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 / MANUAL / LOGIN2.RX < prev    next >
Text File  |  1994-11-02  |  2KB  |  74 lines
  1. /* A REXX sample to show how to log into a bbs and do 
  2.    work automatically */
  3.  
  4. 'TIMEOUT 60'   /* general time out */
  5.  
  6. /***** Wait for name prompt or bail out *****/
  7. 'WAIT "Name?"'
  8.  
  9. IF RC=0 THEN 
  10. DO /* received 'Name?' */
  11.    'SEND "Zaphod^M"'
  12. END
  13. ELSE
  14. DO /* Ouch, 'Name?' was not received */
  15.    'WRITELN "ERROR (Name)!!"'
  16.    SIGNAL BailOut   /* this command jumps to the end */
  17. END
  18.  
  19.  
  20. /***** Wait for password prompt or bail out *****/
  21. 'WAIT "Password?"'
  22.  
  23. IF RC=0 THEN 
  24. DO /* received 'Password?' */
  25.    'SEND "HeartOfGold^M"'
  26. END
  27. ELSE
  28. DO /* Ouch, 'Password?' was not received */
  29.    'WRITELN "ERROR (Password)!!"'
  30.    'HANGUP'
  31.    SIGNAL BailOut
  32. END
  33.  
  34.  
  35. /***** Skip host's intro screens             *****/
  36. /***** (and probably security feature)       *****/
  37.  
  38. 'REPLY "Press ENTER to continue" "^M"' 
  39. 'REPLY "Enter your birthdate" "030466^M"' 
  40.  
  41. 'WAIT "Main Menu"'    /* we just assume that it will work */
  42.  
  43. 'REPLY "Press ENTER to continue"'  /* cancel REPLY command */
  44. 'REPLY "Enter your birthdate"'
  45.  
  46.  
  47. /***** Wait for the prompt and go to the      *****/
  48. /***** mail area and download a mail packet   *****/
  49. /***** using the Zmodem protocol              *****/
  50.  
  51. 'WAIT "your choice>"'
  52. 'SEND "MAIL^M"'
  53.  
  54. 'WAIT "your choice>"'
  55. 'SEND "RECEIVE^M"'
  56.  
  57. 'WAIT "protocol>"'
  58. 'SEND "Zmodem^M"'
  59.  
  60. /* download into C:\MAIL directory */
  61. 'DOWNLOAD Z "C:\MAIL"'
  62.  
  63.  
  64. /***** Go back to the main menu and log off   *****/
  65.  
  66. 'SEND "QUIT^M"'
  67.  
  68. 'WAIT "your choice>"'
  69. 'SEND "LOGOUT^M"'
  70.  
  71.  
  72. BailOut:  /* this is the target for the SIGNAL command */ 
  73. 'HANGUP'
  74.