home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 3 Comm / 03-Comm.zip / zow314.exe / INSTALL.FIL / SCRIPT / RXSAMPLE / MANUAL / ZOCRESU.ZRX < prev   
Text File  |  1996-08-26  |  264b  |  16 lines
  1. /* REXX */
  2.  
  3. answer= ZocRequest("Are you sure?", "Yes", "No")
  4.  
  5. IF answer=="Yes" THEN DO 
  6.    SAY "User really wants it!"
  7. END
  8.  
  9. IF answer=="No" THEN DO
  10.    SAY "User isn't sure!"
  11. END
  12.  
  13. IF answer=="##CANCEL##" THEN DO
  14.    SAY "User pressed the ESC key"
  15. END
  16.