STACK 5000

ECHO "*n*n                  [33mAskEnv Testscript[0m*N*N"
ECHO "              Requester Tool for Scriptfiles*N*N"

RESIDENT AskEnv PURE
ECHO "                 AskEnv now resident...*N*N"


ECHO "              Filerequestor: " NOLINE

AskEnv FREQ "Select File or Dir" EOL
IF WARN
 ECHO "canceled"
ENDIF

ECHO "*N              Systemrequestor: " NOLINE


AskEnv SREQ "Is your Screen-Font Topaz 8 ?" BODY "(or something the same size)" NEG "Topaz 8" POS "larger"

ECHO "ok"

IF WARN
 CD hires
ELSE
 CD lace
ENDIF

AskEnv GADFILE Intro.req

AskEnv GADFILE Warning.req

ECHO "*N              Path-selection:"

AskEnv GADFILE Strings.req

IF WARN
 ECHO "*N               canceled!"
ELSE
 ECHO "*N                    Path:" $askPath
 ECHO "*N                     Dir:" $askDir
ENDIF

AskEnv GADFILE Offset.req
IF NOT WARN
 IF $choice EQ "0"
  Set lOffset 0
 ENDIF
 IF $choice EQ "1"
  Set lOffset 100
 ENDIF
 IF $choice EQ "2"
  Set lOffset 200
 ENDIF
 IF $choice EQ "3"
  Set lOffset 400
 ENDIF
ELSE
 Set lOffset 10
ENDIF

AskEnv GADFILE Select.req

RESIDENT AskEnv REMOVE

ECHO "*N              End of Demo..."

ECHO
