home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Club 1995 February / SOFM_Feb1995.bin / pc / os2 / zoc / install.fil / SCRIPT / RXSAMPLE / MISC / RXLOGIN < prev   
Encoding:
Text File  |  1994-08-13  |  510 b   |  34 lines
  1. /* REXX */
  2.  
  3. number= 00000000
  4. user= Joe User
  5. pwd= secret
  6. done= no
  7. TIMEOUT 60
  8.  
  9. /* dial number and wait until we get in */
  10. /* retry until three times or success */
  11. DO 3 UNTIL DONE=yes
  12.     DIAL number
  13.     WAIT CONNECT
  14.  
  15.     IF RC=0 THEN 
  16.         DO 
  17.  
  18.         /* log in (send name/password) */
  19.         WAIT Name?
  20.         SEND user^M
  21.         WAIT Passwort?
  22.         SEND pwd^M
  23.  
  24.         /* skip news bla bla and wait for main menu */
  25.         RESPOND --Enter-- ^M
  26.         RESPOND --More-- N
  27.  
  28.         WAIT "Main menu:"
  29.  
  30.         DONE= yes
  31.         END
  32.  
  33. END /* of DO 3 */
  34.