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 / 6_CALBBS < prev    next >
Encoding:
Text File  |  1995-09-08  |  599 b   |  35 lines
  1. /* REXX */
  2.  
  3. number= "555-6879"
  4. user= "Joe User"
  5. pwd= "secret"
  6. done= "no"
  7.  
  8. 'TIMEOUT 60'
  9.  
  10. /* dial number and wait until we get in */
  11. /* retry until three times or success */
  12. DO 3 UNTIL DONE="yes"
  13.     'DIAL "'number'"'
  14.     'WAIT "CONNECT"'
  15.  
  16.     /* if no timeout (ie. if connected) */
  17.     IF RC=0 THEN DO 
  18.  
  19.         /* log in (send name/password) */
  20.         'WAIT "Name?"'
  21.         'SEND "user^M"'
  22.         'WAIT "Passwort?"'
  23.         'SEND "pwd^M"'
  24.  
  25.         /* skip news bla bla and wait for main menu */
  26.         'RESPOND "--Enter--" "^M"'
  27.         'RESPOND "--More--" "N"'
  28.  
  29.         'WAIT "Main menu:"'
  30.  
  31.         DONE= "yes"
  32.     END
  33.  
  34. END /* DO 3 */
  35.