home *** CD-ROM | disk | FTP | other *** search
/ The Pier Shareware 6 / The_Pier_Shareware_Number_6_(The_Pier_Exchange)_(1995).iso / 035 / zoc201.zip / INSTALL.FIL / SCRIPT / RXSAMPLE / MANUAL / ZOCRESU.RX < prev   
Text File  |  1994-11-01  |  269b  |  19 lines
  1. /* REXX */
  2.  
  3. 'REQUEST "Are you sure?" "Yes" "No"'
  4.  
  5. IF ZOCRESULT()=="Yes" THEN
  6. DO 
  7.    SAY "User really wants it!"
  8. END
  9.  
  10. IF ZOCRESULT()=="No" THEN
  11. DO
  12.    SAY "User isn't sure"
  13. END
  14.  
  15. IF ZOCRESULT()=="##CANCEL##" THEN
  16. DO
  17.    SAY "User pressed the ESC key"
  18. END
  19.