home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 January / CHIPCD1_98.iso / software / tipsy / zoc / install.fil / SCRIPT / RXSAMPLE / MANUAL / IF2.ZRX < prev    next >
Text File  |  1996-08-26  |  837b  |  36 lines

  1. /* REXX sample about decisions */
  2.  
  3. /* Set max wait time to 60 seconds */
  4. CALL ZocTimeout 60
  5.  
  6. /* Wait for text 'Name:' - check for timeout
  7.    and send user name or report error */
  8. timeout= ZocWait("Name:")
  9. IF timeout=0 THEN DO
  10.    /* received 'Name:' */
  11.    CALL ZocSend "Joe User^M"
  12. END
  13. ELSE DO 
  14.    /* Ouch, 'Name:' was not received */
  15.    CALL ZocWriteln "ERROR (Name)!!"
  16.    CALL ZocHangup
  17.    SIGNAL GetOut  /* Jump to end of program */
  18. END
  19.  
  20.  
  21. /* Wait for text 'Password:' - check timeout
  22.    and send password or report error */
  23. timeout= ZocWait("Password:")
  24. IF timeout=0 THEN DO
  25.    /* received 'Password:' OK */
  26.    CALL ZocSend "secret^M"
  27. END
  28. ELSE DO
  29.    /* Ouch, 'Password:' was not received */
  30.    CALL ZocWriteln "ERROR (Password)!!"
  31.    CALL ZocHangup
  32. END
  33.  
  34. GetOut:  /* target for SIGNAL command */
  35. EXIT
  36.