Category : Communication (modem) tools and utilities
Archive   : ICOM095A.ZIP
Filename : PCP-ON.SCR

 
Output of file : PCP-ON.SCR contained in archive : ICOM095A.ZIP
;=| PC Pursuit Logon Script v1.00 |===========================================;
; ;
; Before using this script you must enter your PC Pursuit User ID/Password ;
; below where indicated with <--. You must also set up Intellicomm for use ;
; with PC Pursuit. See "LONG DISTANCE SERVICES" in the manual for details. ;
; ;
;=============================================================================;
SENDCR:
delay 10 ;^M is automatically added after send, sendnc does not
send "@D" ;<-- first @ could also be changed to ^M (send "^MD")
waitfor "TERMINAL=" 10 SENDCR
sendnc "D1"
SENDCR2:
send ""
waitfor "@" 10 SENDCR2
sendnc "C D/"
sendbif "G" "city" ;send City (area code), as defined in the BIF
sendnc "/24" ;<-- or /3 for 300 baud, /12 for 1200 baud
sendnc ","
send "USERID" ;<-- ENTER YOUR PC PURSUIT USER ID HERE (between the "")
;-------------------------------------------------------
waitfor "PASSWORD ="
send "PASSWORD" ;<-- ENTER YOUR PC PURSUIT PASSWORD HERE (between the "")
;--------------------------------------------------------

when ;clear all whens
when "BUSY" DISCONNECT ;if/when get BUSY goto label DISCONNECT below
when "NOT OPERATING" DISCONNECT
when "NO CARRIER" DISCONNECT
waitfor "CONNECT" 45 DISCONNECT ;wait for CONNECT or goto DISCONNECT in 45 sec.

send "SET? 1:0,5:1,7:8,12:1"
send "RST? 5:1,12:1"
send "CONT"
delay 10

send "ATZ^M" ;reset/wake up remote MODEM
waitfor "OK"
sendnc "ATDT"
sendbif G "phn1" ;send the BBS phone #, as defined in the BIF
send "" ;add a CR, sendbif doesn't add one

when ;clear any previous whens
when "BUSY" SITEBUSY ;goto SITEBUSY: if get the message BUSY
when "NO DIALTONE" SITEBUSY
when "NO CARRIER" SITEBUSY
waitfor "CONNECT" 45 SITEBUSY ;wait 45 seconds then timeout and goto SITEBUSY
exit ;exit with no errorcode tells Icom to logon BBS now

SITEBUSY:
send "^M@"
when
when "@" "D"
waitfor "DISCONNECTED" 10

DISCONNECT:
delay 20
hangup
exit 1 ;exit with > 0 errorcode tells Icom to cancel BBS logon
; but to try again later


  3 Responses to “Category : Communication (modem) tools and utilities
Archive   : ICOM095A.ZIP
Filename : PCP-ON.SCR

  1. Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/