home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Club 1996 January / SOFM_Jan1996.bin / pc / os2 / zoc / install.fil / SCRIPT / RXSAMPLE / MANUAL / IF1.RX < prev    next >
Encoding:
Text File  |  1995-09-01  |  573 b   |  32 lines
  1. /* REXX sample about decisions */
  2.  
  3. 'TIMEOUT 60'
  4.  
  5.  
  6. /* Wait for 'Name?' - check for success and report error */
  7. 'WAIT "Name?"'
  8.  
  9. IF RC=0 THEN 
  10. DO /* received 'Name?' */
  11.    'SEND "Joe User^M"'
  12. END
  13. ELSE
  14. DO /* Ouch, 'Name?' was not received */
  15.    'WRITELN "ERROR (Name)!!"'
  16.    'HANGUP'
  17. END
  18.  
  19.  
  20. /* Wait for 'Password?' - check for success and report error */
  21. 'WAIT "Password?"'
  22.  
  23. IF RC=0 THEN 
  24. DO /* received 'Password?' */
  25.    'SEND "mypassword^M"'
  26. END
  27. ELSE
  28. DO /* Ouch, 'Password?' was not received */
  29.    'WRITELN "ERROR (Password)!!"'
  30.    'HANGUP'
  31. END
  32.