home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Club 1996 January / SOFM_Jan1996.bin / pc / os2 / zoc / install.fil / SCRIPT / RXSAMPLE / MISC / 3_LOOP < prev    next >
Encoding:
Text File  |  1995-09-08  |  323 b   |  21 lines

  1. /* REXX */
  2.  
  3. /* THIS SCRIPT SHOWS HOW TO LOOP COMMANDS */
  4.  
  5. 'CLS'
  6.  
  7. /* a simple loop (running three times) */
  8. DO 3
  9.     'WRITE "ZOC!"'
  10. END 
  11.  
  12.  
  13. /* a loop running until the user answers YES */
  14. DO UNTIL ANSWER="YES"
  15.     'REQUEST "Do you like ZOC?" "YES" "NO"'
  16.     ANSWER= ZOCRESULT()
  17. END 
  18.  
  19. 'WRITE "Glad to hear this!"'
  20.  
  21.