home *** CD-ROM | disk | FTP | other *** search
/ Best Objectech Shareware Selections / UNTITLED.iso / boss / comm / misc / 005 / pcp-on.scr < prev    next >
Encoding:
Text File  |  1991-09-19  |  2.3 KB  |  56 lines
  1. ;=| PC Pursuit Logon Script v1.00 |===========================================;
  2. ;                                                                             ;
  3. ; Before using this script you must enter your PC Pursuit User ID/Password    ;
  4. ; below where indicated with <--.  You must also set up Intellicomm for use   ;
  5. ; with PC Pursuit.  See "LONG DISTANCE SERVICES" in the manual for details.   ;
  6. ;                                                                             ;
  7. ;=============================================================================;
  8. SENDCR:
  9. delay 10              ;^M is automatically added after send, sendnc does not
  10. send "@D"             ;<-- first @ could also be changed to ^M (send "^MD")
  11. waitfor "TERMINAL=" 10 SENDCR
  12. sendnc "D1"
  13. SENDCR2:
  14. send ""
  15. waitfor "@" 10 SENDCR2
  16. sendnc "C D/"
  17. sendbif "G" "city"    ;send City (area code), as defined in the BIF
  18. sendnc "/24"          ;<-- or /3 for 300 baud, /12 for 1200 baud
  19. sendnc ","
  20. send "USERID"         ;<-- ENTER YOUR PC PURSUIT USER ID HERE (between the "")
  21.                       ;-------------------------------------------------------
  22. waitfor "PASSWORD ="
  23. send "PASSWORD"       ;<-- ENTER YOUR PC PURSUIT PASSWORD HERE (between the "")
  24.                       ;--------------------------------------------------------
  25.  
  26. when                  ;clear all whens
  27. when "BUSY"          DISCONNECT ;if/when get BUSY goto label DISCONNECT below
  28. when "NOT OPERATING" DISCONNECT
  29. when "NO CARRIER"    DISCONNECT
  30. waitfor "CONNECT" 45 DISCONNECT ;wait for CONNECT or goto DISCONNECT in 45 sec.
  31.  
  32. send "ATZ^M"          ;reset/wake up remote MODEM
  33. waitfor "OK"
  34. sendnc "ATDT"
  35. sendbif G "phn1"      ;send the BBS phone #, as defined in the BIF
  36. send ""               ;add a CR, sendbif doesn't add one
  37.  
  38. when                  ;clear any previous whens
  39. when "BUSY" SITEBUSY  ;goto SITEBUSY: if get the message BUSY
  40. when "NO DIALTONE" SITEBUSY
  41. when "NO CARRIER" SITEBUSY
  42. waitfor "CONNECT" 45 SITEBUSY   ;wait 45 seconds then timeout and goto SITEBUSY
  43. exit                  ;exit with no errorcode tells Icom to logon BBS now
  44.  
  45. SITEBUSY:
  46. send "^M@"
  47. when
  48. when "@" "D"
  49. waitfor "DISCONNECTED" 10
  50.  
  51. DISCONNECT:
  52. delay 20
  53. hangup
  54. exit 1                ;exit with > 0 errorcode tells Icom to cancel BBS logon
  55.                       ; but to try again later
  56.