home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 June / SIMTEL_0692.cdr / msdos / procomm / prodia21.arc / P.ASP next >
Encoding:
Text File  |  1988-05-27  |  12.4 KB  |  642 lines
  1. ;***************************************************************************
  2. ;*  Quick ProDial for PC Pursuit                                           *
  3. ;*  PROCOMM 2.4, PROCOMM+ COMMAND FILE FOR DIALING PC PURSUIT AND BBS'S!   *  
  4. ;*                                                                         *
  5. ;*  Uses NEW PC Pursuit City codes!                                        *
  6. ;*  Name this file .CMD for PROCOMM or .ASP for PROCOMM PLUS <------       *
  7. ;*                                                                         *
  8. ;*  Customize BBS Menu at end of file!!!                                   *
  9. ;*                                                                         *
  10. ;*  File P.KEY (Keyboard Macros) contains:                                 *
  11. ;*     ALT 0 - PC Pursuit Password                                         *
  12. ;*     ALT 8 - Baud Rate Code (3=300,12=1200)                              *
  13. ;*     ALT 9 - PCPursuit User ID                                           *
  14. ;*                                                                         *
  15. ;*  Modified by F. Schwartz, Virtusonics Corp., NY                         *
  16. ;*  THANKS to the authors of VERSA, PCP, etc. whose code is partially used!*
  17. ;***************************************************************************
  18. SET ENQ OFF
  19. SET PARITY EVEN
  20. SET DATABITS 7
  21. SET DUPLEX FULL
  22. MLOAD"P.KEY"
  23. GOTO TI
  24. ;
  25. NR:
  26. CLEAR
  27. TRANSMIT"C PURSUIT,"
  28. MACRO 9
  29. TRANSMIT","
  30. MACRO 0
  31. TRANSMIT"^M"
  32. RGET S8
  33. RGET S8
  34. RGET S8
  35. FIND S8"CONNECTED"
  36. IF FOUND
  37. GOTO BC1
  38. ENDIF
  39. MESSAGE"Hit Q to Quit and return to menu"
  40. WAITFOR"Q" 2
  41. IF WAITFOR
  42. TRANSMIT"^M"
  43. CLEAR
  44. MESSAGE"Redial cancelled^M"
  45. GOTO MENU
  46. ENDIF
  47. GOTO NR
  48. ;
  49. CR:
  50. CLEAR
  51. TRANSMIT"C D/"
  52. TRANSMIT S1
  53. TRANSMIT"/"
  54. MACRO 8
  55. TRANSMIT","
  56. MACRO 9
  57. TRANSMIT","
  58. MACRO 0
  59. TRANSMIT"^M"
  60. RGET S8
  61. RGET S8
  62. RGET S8
  63. FIND S8"CONNECTED"
  64. IF FOUND
  65. MESSAGE"^G"
  66. GOTO L3
  67. ENDIF
  68. MESSAGE"Hit Q to Quit and return to menu"
  69. WAITFOR"Q" 3
  70. IF WAITFOR
  71. TRANSMIT"^M"
  72. CLEAR
  73. MESSAGE"Redial cancelled^M"
  74. GOTO MENU
  75. ENDIF
  76. GOTO CR
  77. ;
  78. BR:
  79. CLEAR
  80. TRANSMIT"R^M"
  81. RGET S8 18 10
  82. BR1:
  83. TRANSMIT"^M"
  84. WAITFOR"DIALING..."8
  85. IF NOT WAITFOR
  86. GOTO BR
  87. ENDIF
  88. ;
  89. BB:
  90. RGET S8 2 70
  91. BB1:
  92. FIND S8"CO"
  93. IF FOUND
  94. GOTO BC
  95. ENDIF
  96. FIND S8"AN"
  97. IF FOUND
  98. GOTO BC
  99. ENDIF
  100. FIND S8"RI"
  101. IF FOUND
  102. GOTO BB
  103. ENDIF
  104. FIND S8"BU"
  105. IF FOUND
  106. GOTO BR
  107. ENDIF
  108. FIND S8"DI"
  109. IF FOUND
  110. GOTO BR
  111. ENDIF
  112. FIND S8"FA"
  113. IF FOUND
  114. GOTO BR
  115. ENDIF
  116. MESSAGE"Hit Q TWICE to Quit and return to menu"
  117. RGET S8 2 30
  118. FIND S8"Q"
  119. IF FOUND
  120. PAUSE 1
  121. TRANSMIT"I^M"
  122. MESSAGE"Redial cancelled^M"
  123. PAUSE 2
  124. GOTO PH
  125. ENDIF
  126. GOTO BB1
  127. ;
  128. BC:
  129. SET PARITY NONE
  130. SET DATABITS 8
  131. BC1:
  132. ALARM 2
  133. ;  THIS IS THE EXIT POINT WHEN SUCCESSFUL CONNECTION! <-----
  134. EXIT
  135. ;
  136. OFF:
  137. CLEAR
  138. IF NOT CONNECTED
  139. GOTO OFF1
  140. ENDIF
  141. SWITCH S0
  142. CASE"1"
  143. GOTO OFF1
  144. ENDCASE
  145. CASE"2"
  146. GOTO D2
  147. ENDCASE
  148. CASE"3"
  149. GOSUB D3
  150. GOTO MENU
  151. ENDCASE
  152. ENDSWITCH
  153. ;
  154. D3:
  155. CLEAR
  156. MESSAGE"Disconnecting from remote city..."
  157. TRANSMIT"I^M"
  158. WAITFOR"IDLE"4
  159. PAUSE 1
  160. BREAK
  161. WAITFOR"@"5
  162. TRANSMIT"^M"
  163. IF NOT WAITFOR
  164. TRANSMIT"^M@^M"
  165. ENDIF
  166. WAITFOR"@"5
  167. TRANSMIT"D^M"
  168. WAITFOR"@"5
  169. MESSAGE"^M^J^M^J"
  170. PAUSE 1
  171. ASSIGN S0"2"
  172. RETURN
  173. ;
  174. D2:
  175. MESSAGE"Disconnecting from Local Telenet..."
  176. TRANSMIT"HANG^M"
  177. WAITFOR"@"3
  178. IF WAITFOR
  179. GOTO D2
  180. ENDIF
  181. MESSAGE"^M^J"
  182. ;
  183. OFF1:
  184. MLOAD"PROCOMM.KEY"    ;ASSURE THAT ONE OR THE OTHER GETS RELOADED
  185. MLOAD"PCPLUS.KEY"
  186. MESSAGE"ProDial finished"
  187. EXIT
  188. ;
  189. TI:
  190. CLEAR
  191. LOCATE 2,0
  192. MESSAGE"                       ╔═══════════════════════════════╗"
  193. MESSAGE"                       ║                               ║"
  194. MESSAGE"                       ║     ProDial for PC Pursuit    ║"
  195. MESSAGE"                       ║                               ║"
  196. MESSAGE"                       ╚═══════════════════════════════╝"
  197. LOCATE 14,0
  198. MESSAGE"Determining PC Pursuit level . . .^M^J"
  199. IF NOT CONNECTED
  200. MESSAGE"Modem is currently offline"
  201. ASSIGN S0"1"
  202. PAUSE 1
  203. GOTO MENU
  204. ENDIF
  205. TRANSMIT"ATZ^M"
  206. RGET S5 80 3
  207. RGET S8 80 3
  208. RGET S9 80 3
  209. FIND S8"?"
  210. IF FOUND
  211. MESSAGE"^M^JLocal Telenet level determined"
  212. ASSIGN S0"2"
  213. PAUSE 1
  214. GOTO MENU
  215. ENDIF
  216. FIND S8"MANUAL ANSWER"
  217. IF FOUND
  218. TRANSMIT"^M"
  219. PAUSE 1
  220. GOTO RF
  221. ENDIF
  222. FIND S9"OK"
  223. IF FOUND
  224. TRANSMIT"^C
  225. MESSAGE"^M^JRemote city level determined"
  226. ASSIGN S0"3"
  227. PAUSE 1
  228. GOTO MENU
  229. ENDIF
  230. FIND S9"MANUAL ANSWER"
  231. IF FOUND
  232. TRANSMIT"^M"
  233. PAUSE 1
  234. ENDIF
  235. ;
  236. RF:
  237. TRANSMIT"^M"
  238. WAITFOR"*"10
  239. IF NOT WAITFOR
  240. TRANSMIT"^M"
  241. WAITFOR"*"5
  242. ENDIF
  243. TRANSMIT"I^M"
  244. WAITFOR"IDLE"
  245. PAUSE 3
  246. TRANSMIT"ATZ^M"
  247. WAITFOR"OK"
  248. MESSAGE"^M^JRemote city level determined"
  249. ASSIGN S0"3"
  250. PAUSE 1
  251. GOTO MENU
  252. ENDIF
  253. MESSAGE"^M^JUnable to determine level^M^J"
  254. GOTO OFF1
  255. ;
  256. GO:
  257. SWITCH S0
  258. CASE"1"
  259. GOTO L1
  260. ENDCASE
  261. CASE"2"
  262. CLEAR
  263. FIND S1"NET"
  264. IF FOUND
  265. GOTO NR
  266. ENDIF
  267. GOTO CR
  268. ENDCASE
  269. CASE"3"
  270. CLEAR
  271. GOTO L3
  272. ENDCASE
  273. ENDSWITCH
  274. ;
  275. L1:
  276. CLEAR
  277. MESSAGE"Dialing Local Telenet..."
  278. ;***************************************************************************
  279. ;*  YOUR DIAL DIRECTORY ENTRY FOR TELENET GOES HERE! <----                 *
  280. ;***************************************************************************
  281. DIAL "2"
  282. IF NOT CONNECTED
  283. CLEAR
  284. GOTO OFF1
  285. ENDIF
  286. GOTO L21
  287. ;
  288. L2:
  289. IF NOT CONNECTED
  290. CLEAR
  291. LOCATE 11,7
  292. MESSAGE"Telenet has disconnected - Will Dial starting at the Local level"
  293. LOCATE 0,0
  294. PAUSE 1
  295. ASSIGN S0"1"
  296. GOTO GO
  297. ENDIF
  298. ;
  299. L21:
  300. PAUSE 2
  301. TRANSMIT"^M^M"
  302. WAITFOR"="
  303. TRANSMIT"D1^M"
  304. WAITFOR"@"
  305. ASSIGN S0"2"
  306. FIND S1"NET"
  307. IF FOUND
  308. GOTO NR
  309. ENDIF
  310. GOTO CR
  311. ;
  312. L3:
  313. IF NOT CONNECTED
  314. CLEAR
  315. SWITCH S1
  316. CASE"_NULL"
  317. LOCATE 11,16
  318. MESSAGE"Telenet has disconnected - Area code unknown"
  319. LOCATE 0,0
  320. PAUSE 1
  321. ASSIGN S0"1"
  322. GOTO CC
  323. ENDCASE
  324. DEFAULT
  325. LOCATE 11,7
  326. MESSAGE"Telenet has disconnected - Will dial starting at the Local level"
  327. LOCATE 0,0
  328. PAUSE 1
  329. ASSIGN S0"1"
  330. GOTO L1
  331. ENDCASE
  332. ENDSWITCH
  333. ENDIF
  334. ASSIGN S0"3"
  335. TRANSMIT"ATZ I^M"
  336. WAITFOR "OK" 10
  337. TRANSMIT"^M"
  338. L4:
  339. WAITFOR"*" 5
  340. IF NOT WAITFOR
  341. TRANSMIT"^M"
  342. PAUSE 1
  343. GOTO L4
  344. ENDIF
  345. RC1:
  346. PAUSE 1
  347. TRANSMIT"D"
  348. TRANSMIT S2
  349. GOTO BR1
  350. ;
  351. CC:
  352. SWITCH S0
  353. CASE"3"
  354. GOTO PH 
  355. ENDCASE
  356. ENDSWITCH
  357. CLEAR
  358. MESSAGE"     ════════════════  PCPursuit Exchange Dialing Menu  ═════════════════"
  359. MESSAGE" "
  360. MESSAGE"201 (Newark)              404 (Atlanta)             813 (Tampa)"
  361. MESSAGE"202 (Washington, D.C.)    408 (San Jose)            815 (Chicago)"
  362. MESSAGE"203 (Hartford)            414 (Milwaukee)           816 (Kansas City)"
  363. MESSAGE"206 (Seattle)             415 (San Francisco)       817 (Fort Worth)"
  364. MESSAGE"212 (New York)            503 (Portland)            818 (Glendale)"
  365. MESSAGE"213 (Los Angeles)         602 (Phoenix)             813 (Kansas City)"
  366. MESSAGE"214 (Dallas)              612 (Minneapolis)         916 (Sacramento)"
  367. MESSAGE"215 (Philadelphia)        617 (Boston)              919 (Research Triangle)"
  368. MESSAGE"216 (Cleveland)           618 (St.Louis)"
  369. MESSAGE"301 (Washington, D.C.)    619 (San Diego)"
  370. MESSAGE"303 (Denver)              703 (Washington, D.C.)"
  371. MESSAGE"305 (Miami)               713 (Houston)"
  372. MESSAGE"312 (Chicago)             714 (Santa Ana)"
  373. MESSAGE"313 (Detroit)             718 (New York)"
  374. MESSAGE"314 (St.Louis)            801 (Salt Lake City)"
  375. MESSAGE" "
  376. MESSAGE"      ═══════════════════════════════════════════════════════════════════"
  377. ;
  378. LOCATE 19,0
  379. MESSAGE"      C = Connect to the Net-Exchange         B - Goto All City BBS Menu"
  380. MESSAGE"      D = Disconnect from Telenet"
  381. LOCATE 22,0
  382. MESSAGE"Your Choice ? "
  383. LOCATE 22,15
  384. GET S9
  385. SWITCH S9
  386. CASE"B"
  387. GOTO ME
  388. ENDCASE
  389. CASE"C"
  390. ASSIGN S1 "NET"
  391. GOTO GO
  392. ENDCASE
  393. CASE"201"
  394. ASSIGN S1 "NJNEW"
  395. ENDCASE
  396. CASE"202"
  397. ASSIGN S1 "DCWAS"
  398. ENDCASE
  399. CASE"203"
  400. ASSIGN S1 "CTHAR"
  401. ENDCASE
  402. CASE"206"
  403. ASSIGN S1 "WASEA"
  404. ENDCASE
  405. CASE"212"
  406. ASSIGN S1 "NYNYO"
  407. ENDCASE
  408. CASE"213"
  409. ASSIGN S1 "CALAN"
  410. ENDCASE
  411. CASE"214"
  412. ASSIGN S1 "TXDAL"
  413. ENDCASE
  414. CASE"215"
  415. ASSIGN S1 "PAPHI"
  416. ENDCASE
  417. CASE"216"
  418. ASSIGN S1 "OHCLV"
  419. ENDCASE
  420. CASE"301"
  421. ASSIGN S1 "DCWAS"
  422. ENDCASE
  423. CASE"303"
  424. ASSIGN S1 "CODEN"
  425. ENDCASE
  426. CASE"305"
  427. ASSIGN S1 "FLMIA"
  428. ENDCASE
  429. CASE"312"
  430. ASSIGN S1 "ILCHI"
  431. ENDCASE
  432. CASE"313"
  433. ASSIGN S1 "MIDET"
  434. ENDCASE
  435. CASE"314"
  436. ASSIGN S1 "MOSLO"
  437. ENDCASE
  438. CASE"404"
  439. ASSIGN S1 "GAATL"
  440. ENDCASE
  441. CASE"408"
  442. ASSIGN S1 "CASJO"
  443. ENDCASE
  444. CASE"414"
  445. ASSIGN S1 "WIMIL"
  446. ENDCASE
  447. CASE"415"
  448. ASSIGN S1 "CASFA"
  449. ENDCASE
  450. CASE"503"
  451. ASSIGN S1 "ORPOR"
  452. ENDCASE
  453. CASE"602"
  454. ASSIGN S1 "AZPHO"
  455. ENDCASE
  456. CASE"612"
  457. ASSIGN S1 "MNMIN"
  458. ENDCASE
  459. CASE"617"
  460. ASSIGN S1 "MABOS"
  461. ENDCASE
  462. CASE"618"
  463. ASSIGN S1 "MOSLO"
  464. ENDCASE
  465. CASE"619"
  466. ASSIGN S1 "CASAD"
  467. ENDCASE
  468. CASE"703"
  469. ASSIGN S1 "DCWAS"
  470. ENDCASE
  471. CASE"713"
  472. ASSIGN S1 "TXHOU"
  473. ENDCASE
  474. CASE"714"
  475. ASSIGN S1 "CASAN"
  476. ENDCASE
  477. CASE"718"
  478. ASSIGN S1 "NYNYO"
  479. ENDCASE
  480. CASE"801"
  481. ASSIGN S1 "UTSLC"
  482. ENDCASE
  483. CASE"813"
  484. ASSIGN S1 "FLTAM"
  485. ENDCASE
  486. CASE"817"
  487. ASSIGN S1 "TXDAL"
  488. ENDCASE
  489. CASE"818"
  490. ASSIGN S1 "CAGLE"
  491. ENDCASE
  492. CASE"913"
  493. ASSIGN S1 "MOKAN"
  494. ENDCASE
  495. CASE"916"
  496. ASSIGN S1 "CASAC"
  497. ENDCASE
  498. CASE"919"
  499. ASSIGN S1 "NCRTP"
  500. ENDCASE
  501. CASE"D"
  502. GOTO OFF
  503. ENDCASE
  504. ENDSWITCH
  505. ;
  506. PH:
  507. CLEAR
  508. LOCATE 10,11
  509. MESSAGE"Enter phone number of BBS (D to Disconnect from city):"
  510. LOCATE 10,65
  511. GET S2
  512. SWITCH S2
  513. CASE"D"
  514. GOTO OFF
  515. ENDCASE
  516. ENDSWITCH
  517. GOTO GO
  518. ;
  519. ME:
  520. SWITCH S0
  521. CASE"3"
  522. GOTO CC
  523. ENDCASE
  524. ENDSWITCH
  525. CLEAR
  526. LOCATE 2,0
  527. ;***************************************************************************
  528. ;*                                                                         *
  529. ;*  The following BBS menu must be customized for your needs!              *
  530. ;*  The city codes and phone#'s are specified below the menu.              *
  531. ;*                                                                         *
  532. ;***************************************************************************
  533. MESSAGE"      ═══════════════════  All Cities  BBS Directory  ═══════════════════"
  534. MESSAGE" "
  535. MESSAGE"        [ 1] Genesis I  GEN     Min,MN   [11] Programmer's Forum Gle,CA"
  536. MESSAGE"        [ 2] Thunder Dome GEN   Phi,PA   [12] Satellite Swtchbd  SLC,UT"
  537. MESSAGE"        [ 3] Knight Stalker GEN Hou,TX   [13] Computer Connction Mia,FL"
  538. MESSAGE"        [ 4] BYTEnet            Bos,MA   [14] Virtuoso Think Tank NY,NY"
  539. MESSAGE"        [ 5] Pgmr's Workshop GT Hou,TX   [15]                     (   )"
  540. MESSAGE"        [ 6] DARWIN             Was,DC   [16]                     (   )"
  541. MESSAGE"        [ 7] Salt Air PCB       SLC,UT   [17]                     (   )"
  542. MESSAGE"        [ 8] Home DBA PCB       Was,DC   [18]                     (   )"
  543. MESSAGE"        [ 9] Infolinc            SF,CA   [19]                     (   )"
  544. MESSAGE"        [10] Tool Shop PCB      Pho,AZ   [20]                     (   )"
  545. MESSAGE" "
  546. MESSAGE"      ═══════════════════════════════════════════════════════════════════"
  547. ;
  548. LOCATE 19,0
  549. MESSAGE"        C = Connect to the Net-Exchange          M = Manual Dial"
  550. MESSAGE"        D = Disconnect from Telenet"
  551. LOCATE 22,0
  552. MESSAGE"Your Choice ? "
  553. ;
  554. LOCATE 22,15
  555. GET S9
  556. SWITCH S9
  557. CASE"M"
  558. GOTO CC
  559. ENDCASE
  560. CASE"C"
  561. ASSIGN S1 "NET"
  562. GOTO GO
  563. ENDCASE
  564. ;***************************************************************************
  565. ;*                                                                         *
  566. ;*  The following BBS numbers must be customized for your needs! <----     *
  567. ;*  The CASE numbers correspond to selections on the BBS menu.             *
  568. ;*                                                                         *
  569. ;***************************************************************************
  570. CASE"1"
  571. ASSIGN S1"MNMIN"
  572. ASSIGN S2"8815719"
  573. ENDCASE
  574. CASE"2"
  575. ASSIGN S1"PAPHI"
  576. ASSIGN S2"7751512"
  577. ENDCASE
  578. CASE"3"
  579. ASSIGN S1"TXHOU"
  580. ASSIGN S2"8903928"
  581. ENDCASE
  582. CASE"4"
  583. ASSIGN S1"MABOS"
  584. ASSIGN S2"8619764"
  585. ENDCASE
  586. CASE"5"
  587. ASSIGN S1"TXHOU"
  588. ASSIGN S2"7722090"
  589. ENDCASE
  590. CASE"6"
  591. ASSIGN S1"DCWAS"
  592. ASSIGN S2"3012519206"
  593. ENDCASE
  594. CASE"7"
  595. ASSIGN S1"UTSLC"
  596. ASSIGN S2"2618976"
  597. ENDCASE
  598. CASE"8"
  599. ASSIGN S1"DCWAS"
  600. ASSIGN S2"4884709"
  601. ENDCASE
  602. CASE"9"
  603. ASSIGN S1"CASFA"
  604. ASSIGN S2"6729270"
  605. ENDCASE
  606. CASE"10"
  607. ASSIGN S1"AZPHO"
  608. ASSIGN S2"2792673"
  609. ENDCASE
  610. CASE"11"
  611. ASSIGN S1"CAGLE"
  612. ASSIGN S2"7011021"
  613. ENDCASE
  614. CASE"12"
  615. ASSIGN S1"UTSLC"
  616. ASSIGN S2"9651678"
  617. ENDCASE
  618. CASE"13"
  619. ASSIGN S1"FLMIA"
  620. ASSIGN S2"2952749"
  621. ENDCASE
  622. CASE"14"
  623. ASSIGN S1"NYNYO"
  624. ASSIGN S2"8652596"
  625. ENDCASE
  626. CASE"D"
  627. GOTO OFF
  628. ENDCASE
  629. DEFAULT
  630. ASSIGN S2 S9
  631. ENDCASE
  632. ENDSWITCH
  633. GOTO GO
  634. ;
  635. ;***************************************************************************
  636. ;*  THIS GOTO SHOULD BE 'ME' IF ALL CITY BBS MENU DEFAULT, <----           *
  637. ;*  'CC' IF MANUAL DIAL DEFAULT                                            *
  638. ;***************************************************************************
  639. MENU:
  640. GOTO ME
  641. ;GOTO CC
  642.