home *** CD-ROM | disk | FTP | other *** search
/ The Pier Shareware 6 / The_Pier_Shareware_Number_6_(The_Pier_Exchange)_(1995).iso / 035 / zoc201.zip / INSTALL.FIL / SCRIPT / RXSAMPLE / MISC / RXLOGIN < prev   
Text File  |  1994-08-13  |  510b  |  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.