home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 3 Comm / 03-Comm.zip / AUTOPO.ZIP / IBM.ASP < prev    next >
Text File  |  1991-08-28  |  2KB  |  61 lines
  1. ;IBM.ASP  IBM EEP BBS posting script for automatically dialing,
  2. ;logging in, and getting to the first command prompt.
  3. ;Public Domain....by Don Babcock Jr. P.E.  8/91
  4. proc main
  5. set baudrate 2400
  6. init n1 4                       ;initialize a retry variable for 3 tries
  7. start:                          ;retry label
  8. dec n1                          ;decrement retry counter
  9. if zero n1                      ;if expired execute another scrip
  10.     execute "ibm"           ;in this case, retry this one indefinitely
  11. endif
  12. hangup                          ;hangup the line
  13.     transmit "AT^M"         ;have we got a live modem?
  14. waitfor "OK" 4
  15. if not waitfor                  ;if not start over
  16.      GOTO start
  17. endif
  18. transmit "ATZ^M"                ;reset modem
  19. pause 1                         ;wait a second
  20. transmit "ATV1^M"               ;set up verbal result codes level 1
  21. waitfor "OK" 4                  ;ack
  22. if not waitfor                  ;not ack-ed, start over
  23.     GOTO start
  24. endif
  25. pause 1                         ;wait a second
  26. transmit "ATX6^M"               ;set up response level
  27. waitfor "OK"
  28. if not waitfor                  ;if not set up start over
  29.     GOTO start
  30. endif
  31. pause 1                         ;wait a second
  32. transmit "ATDT9,18004263389^M"  ;dial the IBM EEP BBS
  33. waitfor "CONNECT 2400" 60       ;wait for a connection
  34. if not waitfor                  ;if we didn't get it start over
  35.     GOTO start
  36. endif
  37. pause 1                         ;wait a second
  38. waitfor "First Name ->" 60      ;wait for login prompt
  39. if not waitfor
  40.      GOTO start             ;didn't get it, start over
  41. endif
  42. pause 1                         ;wait a second
  43. transmit "Don^M"                ;send first name
  44. waitfor "Last Name ->" 60       ;wait for login prompt
  45. if not waitfor
  46.      GOTO start             ;didn't get it, start over
  47. endif
  48. pause 1                         ;wait a second
  49. transmit "Babcock^M"            ;send last name
  50. waitfor "(Not Displayed) ->" 60 ;wait for password prompt
  51. if not waitfor
  52.      GOTO start             ;didn't get it, start over
  53. endif
  54. pause 1
  55. transmit "(your password)^M"    ;send password
  56. waitfor "ontinue?" 60           ;wait for next prompt
  57. transmit "^M"                   ;send a carriage return (CARET)
  58. waitfor "execute ?" 60          ;wait for command prompt
  59. exit                            ;exit procedure, remain on-line
  60. endproc
  61.