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 / MISC / 2_IFELSE < prev    next >
Text File  |  1994-08-13  |  602b  |  29 lines
  1. /* REXX */
  2.  
  3. /* THIS SCRIPT SHOWS HOW DECISIONS WORK IN REXX */
  4.  
  5. CLS
  6.  
  7. /* show a nice request window to the user */
  8. REQUEST '"Do you like ZOC?"' YES NO 
  9. ANSWER=ZOCRESULT()
  10.  
  11. /* here comes a decision with one alternative */
  12. IF ANSWER="##CANCEL##" THEN SIGNAL END    /* jump to the end */
  13.  
  14.  
  15. /* here comes a decision with two alternatives */
  16. IF ANSWER="YES" THEN 
  17.     DO 
  18.     WRITELN Nice to hear that!
  19.     END
  20. ELSE /* ANSWER=NO */
  21.     DO 
  22.     WRITELN "Oops, are you really sure about that?"
  23.     WRITELN "(maybe you mixed it up with Windows NT)"
  24.     END
  25.  
  26.  
  27. END:    /* target for the SIGNAL command above */
  28.  
  29.