home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / amiga / utility / misc / reqchang.run / ReqChange / Demo.script < prev    next >
Encoding:
Text File  |  1992-05-03  |  1.1 KB  |  39 lines
  1. FailAt 20
  2.  
  3. Version >NIL: exec.library 37
  4. If WARN
  5.     Echo "You don't have AmigaDOS Release 2 (V37) or higher in ROM."
  6.     Echo "AmigaDOS Release 2 is required for this demo to run."
  7.     Wait 5
  8.     EndCLI >NIL:
  9. EndIf
  10.  
  11. Echo "*nTest of ReqAsk and GetFile (or two requesters...)*n"
  12. Echo "Now a little test of ReqAsk (or the EasyRequester...)*n"
  13. Wait 1
  14. ReqAsk "This is the EasyRequester.*nIf ReqChange is active, this requester*nshould be centered under the mouse." "It is!|Really?|So what?" "DemoRequest"
  15. If $ReqAskResult EQ 1
  16.     Echo "So you have installed ReqChange?"
  17.     Echo "How nice!"
  18. EndIf
  19. If $ReqAskResult EQ 2
  20.     Echo "Yes, that is one of the nice features of ReqTools."
  21.     Echo "Once used to it, you don't wanna miss it!"
  22. EndIf
  23. If $ReqAskResult EQ 0
  24.     Echo "Come on! Don't be so negative! :)"
  25. EndIf
  26.  
  27. Wait 2
  28. Echo "*nAnd now a little test of GetFile (or the AslRequester...)*n"
  29. GetFile SYS: TITLE "Select any file"
  30. If WARN
  31.     Echo    "You didn't select any file!"
  32. Else
  33.     Echo    "You selected this file:"
  34.     Echo    $GetFileResult
  35. EndIf
  36.  
  37. Echo "*nUse the close gadget to get rid of the window.*n"
  38. Echo "End of demo script!"
  39.