home *** CD-ROM | disk | FTP | other *** search
/ The First Hungarian Family / The_First_Hungarian_Family_CD-ROM.bin / internet / offlread / 1st200 / a / cis.scr < prev    next >
Text File  |  1995-07-19  |  1KB  |  63 lines
  1. '       ┌─────────────────────────────────┐
  2. '       │ CompuServe script for 1stReader │
  3. '       │ July 20, 1995                   │
  4. '       └─────────────────────────────────┘
  5.  
  6. LOCKLINE 20 30
  7. COMMENT "@DATE@ @TIME@  Connected with @BBSNAME@"
  8. COMMENT "@DATE@ @TIME@  Logging in to system"
  9.  
  10. SETCOM 7O1
  11.  
  12. :PROMPT
  13. PAUSE 1
  14. TRANSMIT "^C"
  15. WAITFOR "User ID:" 7
  16. IF FOUND=0 THEN GOTO PROMPT
  17. PAUSE 1
  18. TRANSMIT "@USER@;TTY^M"
  19.  
  20. WAITFOR "Password:" 20
  21. IF FOUND=0 THEN EXIT
  22. COMMENT "@DATE@ @TIME@  Transmitting password"
  23. TRANSMIT "@PASSWORD@^M"
  24. IF SCR_SERVER THEN GOTO TELNET
  25. TERMINAL
  26. EXIT
  27.  
  28. :TELNET
  29. WAITFOR "!|<CR>!|OK"
  30. COMMENT "@DATE@ @TIME@  Selecting CompuServe telnet service"
  31. TRANSMIT "GO TELNET^M"
  32. WAITFOR "!"
  33. TRANSMIT "8^M"
  34. WAITFOR "name:"
  35. COMMENT "@DATE@ @TIME@  Requesting connect to @TELNET@"
  36. TRANSMIT "@TELNET@^M"
  37. WAITFOR "MORE !"
  38. TRANSMIT "^M"
  39. COMMENT "@DATE@ @TIME@  Waiting for a connection"
  40. WAITFOR "Connected|Unresponsive|refused"
  41. IF FOUND=2 THEN GOTO EXIT
  42. IF FOUND=3 THEN GOTO EXIT
  43. COMMENT "@DATE@ @TIME@  Checking for an available node"
  44. WAITFOR "BUSY" 10
  45. IF FOUND=1 THEN GOTO EXIT
  46. SETCOM 8N1
  47. COMMENT "@DATE@ @TIME@  Swapping systems"
  48. SWAP_SYS
  49.  
  50. SETCOM 7O1
  51. COMMENT "@DATE@ @TIME@  Reconnecting with CompuServe"
  52. WAITFOR "Compuserve"
  53.  
  54. :EXIT
  55. WAITFOR "!"
  56. COMMENT "@DATE@ @TIME@  Logging off CompuServe"
  57. TRANSMIT "OFF^M"
  58. PAUSE 3
  59. HANGUP
  60. EXIT
  61.  
  62.  
  63.