;***************************************************************************
;*  Quick ProDial for PC Pursuit                                           *
;*  PROCOMM 2.4, PROCOMM+ COMMAND FILE FOR DIALING PC PURSUIT AND BBS'S!   *  
;*                                                                         *
;*  Uses NEW PC Pursuit City codes!                                        *
;*  Name this file .CMD for PROCOMM or .ASP for PROCOMM PLUS <------       *
;*                                                                         *
;*  Customize BBS Menu at end of file!!!                                   *
;*                                                                         *
;*  File P.KEY (Keyboard Macros) contains:                                 *
;*     ALT 0 - PC Pursuit Password                                         *
;*     ALT 7 - Local Telenet Phone#                                        *
;*     ALT 8 - Baud Rate Code (3=300,12=1200)                              *
;*     ALT 9 - PCPursuit User ID                                           *
;*                                                                         *
;*  Modified by F. Schwartz, Virtusonics Corp., NY                         *
;*  THANKS to the authors of VERSA, PCP, etc. whose code is partially used!*
;***************************************************************************
SET ENQ OFF
SET PARITY EVEN
SET DATABITS 7
SET DUPLEX FULL
MLOAD"P.KEY"
GOTO TI
;
NR:
CLEAR
TRANSMIT"C PURSUIT,"
MACRO 9
TRANSMIT","
MACRO 0
TRANSMIT"^M"
RGET S8
RGET S8
RGET S8
FIND S8"CONNECTED"
IF FOUND
GOTO BC1
ENDIF
MESSAGE"Hit Q to Quit and return to menu"
WAITFOR"Q" 2
IF WAITFOR
TRANSMIT"^M"
CLEAR
MESSAGE"Redial cancelled^M"
GOTO CC
ENDIF
GOTO NR
;
CR:
CLEAR
TRANSMIT"C D/"
TRANSMIT S1
TRANSMIT"/"
MACRO 8
TRANSMIT","
MACRO 9
TRANSMIT","
MACRO 0
TRANSMIT"^M"
RGET S8
RGET S8
RGET S8
FIND S8"CONNECTED"
IF FOUND
MESSAGE"^G"
GOTO L3
ENDIF
MESSAGE"Hit Q to Quit and return to menu"
WAITFOR"Q" 3
IF WAITFOR
TRANSMIT"^M"
CLEAR
MESSAGE"Redial cancelled^M"
GOTO CC
ENDIF
GOTO CR
;
BR:
CLEAR
TRANSMIT"R^M"
RGET S8 18 10
TRANSMIT"^M"
WAITFOR"DIALING..."
;
BB:
RGET S8 2 70
BB1:
FIND S8"CO"
IF FOUND
GOTO BC
ENDIF
FIND S8"AN"
IF FOUND
GOTO BC
ENDIF
FIND S8"RI"
IF FOUND
GOTO BB
ENDIF
FIND S8"BU"
IF FOUND
GOTO BR
ENDIF
FIND S8"FA"
IF FOUND
GOTO BR
ENDIF
MESSAGE"Hit Q TWICE to Quit and return to menu"
RGET S8 2 30
FIND S8"Q"
IF FOUND
PAUSE 1
TRANSMIT"I^M"
MESSAGE"Redial cancelled^M"
PAUSE 2
GOTO PH
ENDIF
GOTO BB1
;
BC:
SET PARITY NONE
SET DATABITS 8
BC1:
ALARM 2
MLOAD"PROCOMM.KEY"	;ASSURE THAT ONE OR THE OTHER GETS RELOADED
MLOAD"PCPLUS.KEY"
EXIT
;
OFF:
CLEAR
IF NOT CONNECTED
GOTO OFF1
ENDIF
SWITCH S0
CASE"1"
GOTO OFF1
ENDCASE
CASE"2"
GOTO D2
ENDCASE
CASE"3"
GOSUB D3
GOTO CC
ENDCASE
ENDSWITCH
;
D3:
CLEAR
MESSAGE"Disconnecting from remote city..."
TRANSMIT"I^M"
WAITFOR"IDLE"6
PAUSE 1
BREAK
WAITFOR"@"5
TRANSMIT"^M"
IF NOT WAITFOR
TRANSMIT"^M@^M"
ENDIF
WAITFOR"@"5
TRANSMIT"D^M"
WAITFOR"@"5
MESSAGE"^M^J^M^J"
PAUSE 1
ASSIGN S0"2"
RETURN
;
D2:
MESSAGE"Disconnecting from Local Telenet..."
TRANSMIT"HANG^M"
PAUSE 1
MESSAGE"^M^J"
;
OFF1:
MLOAD"PROCOMM.KEY"	;ASSURE THAT ONE OR THE OTHER GETS RELOADED
MLOAD"PCPLUS.KEY"
MESSAGE"ProDial finished"
EXIT
;
TI:
CLEAR
LOCATE 2,0
MESSAGE"                       ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ»"
MESSAGE"                       Ί                               Ί"
MESSAGE"                       Ί     ProDial for PC Pursuit    Ί"
MESSAGE"                       Ί                               Ί"
MESSAGE"                       ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ"
LOCATE 14,0
MESSAGE"Determining PC Pursuit level . . .^M^J"
IF NOT CONNECTED
MESSAGE"Modem is currently offline"
ASSIGN S0"1"
PAUSE 1
GOTO ME
ENDIF
TRANSMIT"ATZ^M"
RGET S5 80 3
RGET S8 80 3
RGET S9 80 3
FIND S8"?"
IF FOUND
MESSAGE"^M^JLocal Telenet level determined"
ASSIGN S0"2"
PAUSE 1
GOTO ME
ENDIF
FIND S8"MANUAL ANSWER"
IF FOUND
TRANSMIT"^M"
PAUSE 1
GOTO RF
ENDIF
FIND S9"OK"
IF FOUND
TRANSMIT"^C
MESSAGE"^M^JRemote city level determined"
ASSIGN S0"3"
PAUSE 1
GOTO ME
ENDIF
FIND S9"MANUAL ANSWER"
IF FOUND
TRANSMIT"^M"
PAUSE 1
ENDIF
;
RF:
TRANSMIT"^M"
WAITFOR"*"10
IF NOT WAITFOR
TRANSMIT"^M"
WAITFOR"*"5
ENDIF
TRANSMIT"I^M"
WAITFOR"IDLE"
PAUSE 3
TRANSMIT"ATZ^M"
WAITFOR"OK"
MESSAGE"^M^JRemote city level determined"
ASSIGN S0"3"
PAUSE 1
GOTO ME
ENDIF
MESSAGE"^M^JUnable to determine level^M^J"
GOTO OFF1
;
GO:
SWITCH S0
CASE"1"
GOTO L1
ENDCASE
CASE"2"
CLEAR
GOTO L2
ENDCASE
CASE"3"
CLEAR
GOTO L3
ENDCASE
ENDSWITCH
;
L1:
CLEAR
MESSAGE"Dialing Local Telenet..."
TRANSMIT"ATDT"
MACRO 7
TRANSMIT"^M"
WAITFOR"CONNECT"20
IF NOT WAITFOR
HANGUP
CLEAR
LOCATE 11,19
MESSAGE"Local Telenet did not connect - Redialing..."
LOCATE 0,0
PAUSE 1
GOTO L1
ENDIF
PAUSE 2
TRANSMIT"^M^M"
WAITFOR"="
TRANSMIT"D1^M"
WAITFOR"@"
;
L2:
IF NOT CONNECTED
CLEAR
LOCATE 11,7
MESSAGE"Telenet has disconnected - Will Dial starting at the Local level"
LOCATE 0,0
PAUSE 1
ASSIGN S0"1"
GOTO GO
ENDIF
ASSIGN S0"2"
FIND S1"NET"
IF FOUND
GOTO NR
ENDIF
GOTO CR
;
L3:
IF NOT CONNECTED
CLEAR
SWITCH S1
CASE"_NULL"
LOCATE 11,16
MESSAGE"Telenet has disconnected - Area code unknown"
LOCATE 0,0
PAUSE 1
ASSIGN S0"1"
GOTO CC
ENDCASE
DEFAULT
LOCATE 11,7
MESSAGE"Telenet has disconnected - Will dial starting at the Local level"
LOCATE 0,0
PAUSE 1
ASSIGN S0"1"
GOTO L1
ENDCASE
ENDSWITCH
ENDIF
ASSIGN S0"3"
TRANSMIT"ATZ I^M"
PAUSE 2
TRANSMIT"^M"
L4:
RGET S8 19 8
FIND S8"READY"
IF FOUND
GOTO RC1
ENDIF
SWITCH S8
CASE"_NULL"
TRANSMIT"^M"
PAUSE 1
GOTO L4
ENDCASE
ENDSWITCH
RC1:
PAUSE 1
TRANSMIT"D"
TRANSMIT S2
TRANSMIT"^M"
WAITFOR"DIALING..."
GOTO BB
;
CC:
SWITCH S0
CASE"3"
GOTO PH 
ENDCASE
ENDSWITCH
CLEAR
MESSAGE"     ΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ  PCPursuit Exchange Dialing Menu  ΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ"
MESSAGE" "
MESSAGE"201 (Newark)              404 (Atlanta)             813 (Tampa)"
MESSAGE"202 (Washington, D.C.)    408 (San Jose)            815 (Chicago)"
MESSAGE"203 (Hartford)            414 (Milwaukee)           816 (Kansas City)"
MESSAGE"206 (Seattle)             415 (San Francisco)       817 (Fort Worth)"
MESSAGE"212 (New York)            503 (Portland)            818 (Glendale)"
MESSAGE"213 (Los Angeles)         602 (Phoenix)             813 (Kansas City)"
MESSAGE"214 (Dallas)              612 (Minneapolis)         916 (Sacramento)"
MESSAGE"215 (Philadelphia)        617 (Boston)              919 (Research Triangle)"
MESSAGE"216 (Cleveland)           618 (St.Louis)"
MESSAGE"301 (Washington, D.C.)    619 (San Diego)"
MESSAGE"303 (Denver)              703 (Washington, D.C.)"
MESSAGE"305 (Miami)               713 (Houston)"
MESSAGE"312 (Chicago)             714 (Santa Ana)"
MESSAGE"313 (Detroit)             718 (New York)"
MESSAGE"314 (St.Louis)            801 (Salt Lake City)"
MESSAGE" "
MESSAGE"      ΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ"
;
LOCATE 19,0
MESSAGE"      C = Connect to the Net-Exchange         B - Goto All City BBS Menu"
MESSAGE"      D = Disconnect from Telenet"
LOCATE 22,0
MESSAGE"Your Choice ? "
LOCATE 22,15
GET S9
SWITCH S9
CASE"B"
GOTO ME
ENDCASE
CASE"C"
ASSIGN S1 "NET"
GOTO GO
ENDCASE
CASE"201"
ASSIGN S1 "NJNEW"
ENDCASE
CASE"202"
ASSIGN S1 "DCWAS"
ENDCASE
CASE"203"
ASSIGN S1 "CTHAR"
ENDCASE
CASE"206"
ASSIGN S1 "WASEA"
ENDCASE
CASE"212"
ASSIGN S1 "NYNYO"
ENDCASE
CASE"213"
ASSIGN S1 "CALAN"
ENDCASE
CASE"214"
ASSIGN S1 "TXDAL"
ENDCASE
CASE"215"
ASSIGN S1 "PAPHI"
ENDCASE
CASE"216"
ASSIGN S1 "OHCLV"
ENDCASE
CASE"301"
ASSIGN S1 "DCWAS"
ENDCASE
CASE"303"
ASSIGN S1 "CODEN"
ENDCASE
CASE"305"
ASSIGN S1 "FLMIA"
ENDCASE
CASE"312"
ASSIGN S1 "ILCHI"
ENDCASE
CASE"313"
ASSIGN S1 "MIDET"
ENDCASE
CASE"314"
ASSIGN S1 "MOSLO"
ENDCASE
CASE"404"
ASSIGN S1 "GAATL"
ENDCASE
CASE"408"
ASSIGN S1 "CASJO"
ENDCASE
CASE"414"
ASSIGN S1 "WIMIL"
ENDCASE
CASE"415"
ASSIGN S1 "CASFA"
ENDCASE
CASE"503"
ASSIGN S1 "ORPOR"
ENDCASE
CASE"602"
ASSIGN S1 "AZPHO"
ENDCASE
CASE"612"
ASSIGN S1 "MNMIN"
ENDCASE
CASE"617"
ASSIGN S1 "MABOS"
ENDCASE
CASE"618"
ASSIGN S1 "MOSLO"
ENDCASE
CASE"619"
ASSIGN S1 "CASAD"
ENDCASE
CASE"703"
ASSIGN S1 "DCWAS"
ENDCASE
CASE"713"
ASSIGN S1 "TXHOU"
ENDCASE
CASE"714"
ASSIGN S1 "CASAN"
ENDCASE
CASE"718"
ASSIGN S1 "NYNYO"
ENDCASE
CASE"801"
ASSIGN S1 "UTSLC"
ENDCASE
CASE"813"
ASSIGN S1 "FLTAM"
ENDCASE
CASE"817"
ASSIGN S1 "TXDAL"
ENDCASE
CASE"818"
ASSIGN S1 "CAGLE"
ENDCASE
CASE"913"
ASSIGN S1 "MOKAN"
ENDCASE
CASE"916"
ASSIGN S1 "CASAC"
ENDCASE
CASE"919"
ASSIGN S1 "NCRTP"
ENDCASE
CASE"D"
GOTO OFF
ENDCASE
ENDSWITCH
;
PH:
CLEAR
LOCATE 10,11
MESSAGE"Enter phone number of BBS (D to Disconnect from city):"
LOCATE 10,65
GET S2
SWITCH S2
CASE"D"
GOTO OFF
ENDCASE
ENDSWITCH
GOTO GO
;
ME:
SWITCH S0
CASE"3"
GOTO CC
ENDCASE
ENDSWITCH
CLEAR
LOCATE 2,0
;***************************************************************************
;*                                                                         *
;*  The following BBS menu must be customized for your needs!              *
;*  The city codes and phone#'s are specified below the menu.              *
;*                                                                         *
;***************************************************************************
MESSAGE"      ΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ  All Cities  BBS Directory  ΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ"
MESSAGE" "
MESSAGE"        [ 1] Genesis I           (612)   [11]                     (   )"
MESSAGE"        [ 2] Thunder Dome        (215)   [12]                     (   )"
MESSAGE"        [ 3] Knight Stalker      (713)   [13]                     (   )"
MESSAGE"        [ 4] BYTEnet             (617)   [14]                     (   )"
MESSAGE"        [ 5] Think Tank          (212)   [15]                     (   )"
MESSAGE"        [ 6]                     (   )   [16]                     (   )"
MESSAGE"        [ 7]                     (   )   [17]                     (   )"
MESSAGE"        [ 8]                     (   )   [18]                     (   )"
MESSAGE"        [ 9]                     (   )   [19]                     (   )"
MESSAGE"        [10]                     (   )   [20]                     (   )"
MESSAGE" "
MESSAGE"      ΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ"
;
LOCATE 19,0
MESSAGE"        C = Connect to the Net-Exchange          M = Manual Dial"
MESSAGE"        D = Disconnect from Telenet"
LOCATE 22,0
MESSAGE"Your Choice ? "
;
LOCATE 22,15
GET S9
SWITCH S9
CASE"M"
GOTO CC
ENDCASE
CASE"C"
ASSIGN S1 "NET"
GOTO GO
ENDCASE
;***************************************************************************
;*                                                                         *
;*  The following BBS numbers must be customized for your needs!           *
;*  The CASE numbers correspond to selections on the BBS menu.             *
;*                                                                         *
;***************************************************************************
CASE"1"
ASSIGN S1"MNMIN"
ASSIGN S2"8815719"
ENDCASE
CASE"2"
ASSIGN S1"PAPHI"
ASSIGN S2"7751512"
ENDCASE
CASE"3"
ASSIGN S1"TXHOU"
ASSIGN S2"8903928"
ENDCASE
CASE"4"
ASSIGN S1"MABOS"
ASSIGN S2"8619764"
ENDCASE
CASE"5"
ASSIGN S1"NYNYO"
ASSIGN S2"8652596"
ENDCASE
CASE"D"
GOTO OFF
ENDCASE
DEFAULT
ASSIGN S2 S9
ENDCASE
ENDSWITCH
GOTO GO
;