home *** CD-ROM | disk | FTP | other *** search
/ World of A1200 / World_Of_A1200.iso / programs / system / askenv / test < prev    next >
Text File  |  1995-02-27  |  1KB  |  70 lines
  1. STACK 5000
  2.  
  3. ECHO "*n*n                  AskEnv Testscript*N*N"
  4. ECHO "              Requester Tool for Scriptfiles*N*N"
  5.  
  6. RESIDENT AskEnv PURE
  7. ECHO "                 AskEnv now resident...*N*N"
  8.  
  9.  
  10. ECHO "              Filerequestor: " NOLINE
  11.  
  12. AskEnv FREQ "Select File or Dir" EOL
  13. IF WARN
  14.  ECHO "canceled"
  15. ENDIF
  16.  
  17. ECHO "*N              Systemrequestor: " NOLINE
  18.  
  19.  
  20. AskEnv SREQ "Is your Screen-Font Topaz 8 ?" BODY "(or something the same size)" NEG "Topaz 8" POS "larger"
  21.  
  22. ECHO "ok"
  23.  
  24. IF WARN
  25.  CD hires
  26. ELSE
  27.  CD lace
  28. ENDIF
  29.  
  30. AskEnv GADFILE Intro.req
  31.  
  32. AskEnv GADFILE Warning.req
  33.  
  34. ECHO "*N              Path-selection:"
  35.  
  36. AskEnv GADFILE Strings.req
  37.  
  38. IF WARN
  39.  ECHO "*N               canceled!"
  40. ELSE
  41.  ECHO "*N                    Path:" $askPath
  42.  ECHO "*N                     Dir:" $askDir
  43. ENDIF
  44.  
  45. AskEnv GADFILE Offset.req
  46. IF NOT WARN
  47.  IF $choice EQ "0"
  48.   Set lOffset 0
  49.  ENDIF
  50.  IF $choice EQ "1"
  51.   Set lOffset 100
  52.  ENDIF
  53.  IF $choice EQ "2"
  54.   Set lOffset 200
  55.  ENDIF
  56.  IF $choice EQ "3"
  57.   Set lOffset 400
  58.  ENDIF
  59. ELSE
  60.  Set lOffset 10
  61. ENDIF
  62.  
  63. AskEnv GADFILE Select.req
  64.  
  65. RESIDENT AskEnv REMOVE
  66.  
  67. ECHO "*N              End of Demo..."
  68.  
  69. ECHO
  70.