home *** CD-ROM | disk | FTP | other *** search
/ Network PC / Network PC.iso / amiga utilities / applications / accounts / easycalc2.0f / easyrexx / reqtest.erex < prev    next >
Encoding:
Text File  |  1997-11-20  |  580 b   |  28 lines
  1. /* EasyCalc 2.0 Arexx Script */
  2.  
  3. options results
  4.  
  5. 'getresponse "This script demonstrates some of the EasyCalc 2.0 requester functions" "_Begin"'
  6.  
  7. 'getfile "The file requester..."'
  8.  
  9. if result="" then
  10.     'getresponse "You didn''t choose anything" "_No"'
  11. else
  12.     'getresponse' result "_Yes"
  13.  
  14. 'getnumber "Enter a number..." 0 1000'
  15.  
  16. if result="" then
  17.     'getresponse "You didn''t enter anything" "_Sorry"'
  18. else
  19.     'getresponse' result '_Yes'
  20.  
  21. 'gettext "Now enter some text..." 40'
  22.  
  23. if result="" then
  24.     'getresponse "You didn''t enter anything" "_Shame"'
  25. else
  26.     'getresponse' result '_Correct'
  27.  
  28.