home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 December / simtel1292_SIMTEL_1292_Walnut_Creek.iso / msdos / procomm / pcpdial.arc / VERSA.CMD < prev    next >
OS/2 REXX Batch file  |  1988-01-18  |  10KB  |  646 lines
  1. ;PC Pursuit: VERSAdial, Version 1.3, by Allen Brunson, David Rhoten, and Gizmo
  2. ;(C) 1988, Allen Brunson
  3. SWIT S9
  4. CASE"_NULL"
  5. GOTO BEGIN
  6. ENDC 
  7. CASE"D"
  8. GOTO PCPOFF
  9. ENDC 
  10. CASE"E"
  11. CLEA 
  12. GOTO VERSAOFF
  13. ENDC 
  14. CASE"G"
  15. FIND S0"3"
  16. IF FOUN 
  17. GOSU DISC3
  18. ENDI 
  19. GOTO CITYCHOI
  20. ENDC 
  21. CASE"ACTIVE"
  22. SWIT S0
  23. CASE"1"
  24. GOTO LEVEL1
  25. ENDC 
  26. CASE"2"
  27. CLEA 
  28. GOTO LEVEL2
  29. ENDC 
  30. CASE"3"
  31. CLEA 
  32. GOTO LEVEL3
  33. ENDC 
  34. ENDS 
  35. ENDC 
  36. DEFA 
  37. CLEA 
  38. LOCA 11,20
  39. MESS"Parameter error from menu command file."
  40. LOCA 14,0
  41. GOTO VERSAOFF
  42. ENDC 
  43. ENDS 
  44. BEGIN:
  45. SET CR_I CR
  46. SET CR_O CR
  47. SET PARI EVEN
  48. SET DATA 7
  49. SET DUPL FULL
  50. MLOA"VERSA.KEY"
  51. GOTO TITLE
  52. CITYREDI:
  53. CLEA 
  54. TRAN"C D/"
  55. TRAN S1
  56. MACR 8
  57. MACR 9
  58. WAIT"="
  59. MACR 0
  60. RGET S8
  61. RGET S8
  62. RGET S8
  63. FIND S8"CONNECTED"
  64. IF FOUN 
  65. MESS"^G"
  66. GOTO PORTSET
  67. ENDI 
  68. GOTO CITYREDI
  69. BBSREDIA:
  70. CLEA 
  71. LABEL1:
  72. TRAN"A/!"
  73. RGET S8 80 40
  74. RGET S8
  75. FIND S8"CONNECT"
  76. IF FOUN 
  77. GOTO BBSCONNE
  78. ENDI 
  79. GOTO LABEL1
  80. BBSCONNE:
  81. SET PARI NONE
  82. SET DATA 8
  83. ALAR 2
  84. MLOA"PROCOMM.KEY"
  85. SWIT S7
  86. CASE"_NULL"
  87. EXIT
  88. ENDC 
  89. CASE"*"
  90. EXIT
  91. ENDC 
  92. DEFA 
  93. EXEC S7
  94. ENDC 
  95. ENDS 
  96. PCPOFF:
  97. CLEA 
  98. IF NOT CONN 
  99. GOTO VERSAOFF
  100. ENDI 
  101. SWIT S0
  102. CASE"2"
  103. GOTO DISC2
  104. ENDC 
  105. CASE"3"
  106. GOSU DISC3
  107. GOTO DISC2
  108. ENDC 
  109. ENDS 
  110. DISC3:
  111. CLEA 
  112. MESS"Disconnecting from remote city . . ."
  113. IF NOT CONN 
  114. MESS"^M^JTelenet has disconnected.^M^J"
  115. ASSI S0"1"
  116. PAUS 1
  117. RETU 
  118. ENDI 
  119. BREA 10
  120. WAIT"@"5
  121. TRAN"!"
  122. IF NOT WAIT 
  123. TRAN"!@!"
  124. ENDI 
  125. WAIT"@"5
  126. TRAN"D!"
  127. WAIT"@"5
  128. MESS"^M^J^M^J"
  129. PAUS 1
  130. ASSI S0"2"
  131. RETU 
  132. DISC2:
  133. MESS"Disconnecting from local Telenet . . .^M^J"
  134. TRAN"HANGUP!"
  135. PAUS 1
  136. MESS"^M^J"
  137. VERSAOFF:
  138. MLOA"PROCOMM.KEY"
  139. MESS"VERSA finished."
  140. EXIT
  141. NETREDIA:
  142. CLEA 
  143. TRAN"C PURSUIT,"
  144. MACR 9
  145. WAIT"="
  146. MACR 0
  147. RGET S8
  148. RGET S8
  149. RGET S8
  150. FIND S8"CONNECTED"
  151. IF FOUN 
  152. GOTO BBSCONNE
  153. ENDI 
  154. GOTO NETREDIA
  155. NETDIAL:
  156. TRAN"C PURSUIT,"
  157. MACR 9
  158. WAIT"="
  159. MACR 0
  160. RGET S8
  161. RGET S8
  162. RGET S8
  163. FIND S8"CONNECTED"
  164. IF FOUN 
  165. GOTO BBSCONNE
  166. ENDI 
  167. CLEA 
  168. LOCA 11,16
  169. MESS"The Net Exchange is busy.  Begin redial <Y/N>?"
  170. LABEL2:
  171. LOCA 11,63
  172. GET S9 1
  173. SWIT S9
  174. CASE"Y"
  175. GOTO NETREDIA
  176. ENDC 
  177. CASE"N"
  178. ASSI S7"*"
  179. GOTO CITYCHOI
  180. ENDC 
  181. CASE"D"
  182. GOTO PCPOFF
  183. ENDC 
  184. CASE"E"
  185. CLEA 
  186. GOTO VERSAOFF
  187. ENDC 
  188. DEFA 
  189. LOCA 11,63
  190. MESS"^G "
  191. GOTO LABEL2
  192. ENDC 
  193. ENDS 
  194. R/V_MODE:
  195. PAUS 1
  196. TRAN"!"
  197. WAIT"*"2
  198. IF NOT WAIT 
  199. GOTO R/V_MODE
  200. ENDI 
  201. TRAN"I!"
  202. WAIT"IDLE"10
  203. PAUS 1
  204. TRAN"ATZ!"
  205. WAIT"OK"
  206. RETU 
  207. TITLE:
  208. CLEA 
  209. LOCA 2,0
  210. MESS"                       ╔═══════════════════════════════╗"
  211. MESS"                       ║                               ║"
  212. MESS"                       ║     PC Pursuit: VERSAdial     ║"
  213. MESS"                       ║          Version 1.3          ║"
  214. MESS"                       ║   Written by Allen Brunson,   ║"
  215. MESS"                       ║    David Rhoten, and Gizmo    ║"
  216. MESS"                       ║                               ║"
  217. MESS"                       ║       `"D`" - Disconnect        ║"
  218. MESS"                       ║       `"E`" - Exit VERSA        ║"
  219. MESS"                       ║                               ║"
  220. MESS"                       ╚═══════════════════════════════╝"
  221. LOCA 15,0
  222. MESS"Determining PC Pursuit level . . .^M^J"
  223. IF NOT CONN 
  224. MESS"Modem is currently offline."
  225. ASSI S0"1"
  226. PAUS 1
  227. GOTO CITYCHOI
  228. ENDI 
  229. TRAN"ATZ!"
  230. RGET S8 80 3
  231. RGET S8 80 3
  232. RGET S9 80 3
  233. FIND S8"?"
  234. IF FOUN 
  235. MESS"^M^J^M^JLocal Telenet level determined."
  236. ASSI S0"2"
  237. PAUS 1
  238. GOTO CITYCHOI
  239. ENDI 
  240. FIND S9"OK"
  241. IF FOUN 
  242. MESS"^M^JRemote city level determined."
  243. ASSI S0"3"
  244. PAUS 1
  245. GOTO CITYCHOI
  246. ENDI 
  247. FIND S9"MANUAL ANSWER"
  248. IF FOUN 
  249. GOSU R/V_MODE
  250. MESS"^M^JRemote city level determined."
  251. ASSI S0"3"
  252. PAUS 1
  253. GOTO CITYCHOI
  254. ENDI 
  255. MESS"^M^JUnable to determine level.^M^J"
  256. GOTO VERSAOFF
  257. CITYCHOI:
  258. CLEA 
  259. MESS"  ╒═════════════════════════╡ PC Pursuit City Menu ╞═════════════════════════╕"
  260. MESS"  │                                                                          │"
  261. MESS"  │  E GAATL *Atlanta       E DCWAS *Washington DC   P CALAN *Los Angeles    │"
  262. MESS"  │  E MABOS *Boston        C ILCHI *Chicago         P CAPAL +Palo Alto      │"
  263. MESS"  │  E OHCLV  Cleveland     C TXDAL *Dallas          P ORPOR  Portland       │"
  264. MESS"  │  E MIDET *Detroit       C TXHOU *Houston         P CARIV +Riverside      │"
  265. MESS"  │  E CTHAR +Hartford      C MOKAN *Kansas City     P CASAC +Sacramento     │"
  266. MESS"  │  E FLMIA  Miami         C WIMIL +Milwaukee       P CASAD +San Diego      │"
  267. MESS"  │  E NETEX  Net Exchange  C MNMIN  Minneapolis     P CASFA *San Francisco  │"
  268. MESS"  │  E NJNEW *Newark        C MOSLO +St. Louis       P CASJO +San Jose       │"
  269. MESS"  │  E NYNYO *New York      M CODEN *Denver          P CASAN +Santa Ana      │"
  270. MESS"  │  E PAPHI *Philadelphia  M AZPHO  Phoenix         P WASEA *Seattle        │"
  271. MESS"  │  E NCRTP  Res Tri Park  M UTSLC  Salt Lake City  * 2400 baud available   │"
  272. MESS"  │  E FLTAM  Tampa         P CAGLE +Glendale        + 300 baud unavailable  │"
  273. MESS"  │                                                                          │"
  274. MESS"  │  Time   E - Eastern                  Options:  <D>isconnect              │"
  275. MESS"  │  Zones  C - Central                            <E>xit                    │"
  276. MESS"  │         M - Mountain                                                     │"
  277. MESS"  │         P - Pacific     Status:                                          │"
  278. MESS"  │                                                                          │"
  279. MESS"  ├──────────────────────────────────────────────────────────────────────────┤"
  280. MESS"  │                                                                          │"
  281. MESS"  ╘══════════════════════════════════════════════════════════════════════════╛"
  282. LOCA 18,36
  283. SWIT S0
  284. CASE"1"
  285. MESS"Off line"
  286. LOCA 21,21
  287. MESS"Enter city code of desired city:"
  288. ENDC 
  289. CASE"2"
  290. MESS"Local Telenet"
  291. LOCA 21,21
  292. MESS"Enter city code of desired city:"
  293. ENDC 
  294. CASE"3"
  295. MESS"Remote city"
  296. LOCA 17,51
  297. MESS"<G>o to local level"
  298. LOCA 21,21
  299. MESS"Enter city code of CURRENT city:"
  300. ENDC 
  301. ENDS 
  302. LOCA 21,54
  303. GET S9 5
  304. SWIT S9
  305. CASE"D"
  306. GOTO PCPOFF
  307. ENDC 
  308. CASE"E"
  309. CLEA 
  310. GOTO VERSAOFF
  311. ENDC 
  312. CASE"G"
  313. CLEA 
  314. FIND S0"3"
  315. IF FOUN 
  316. GOSU DISC3
  317. ELSE
  318. LOCA 11,19
  319. MESS"^GNot currently connected to a remote city."
  320. LOCA 0,0
  321. PAUS 1
  322. ENDI 
  323. GOTO CITYCHOI
  324. ENDC 
  325. CASE"_NULL"
  326. CLEA 
  327. LOCA 11,18
  328. MESS"^GMust enter a city code or displayed option."
  329. LOCA 0,0
  330. PAUS 1
  331. GOTO CITYCHOI
  332. ENDC 
  333. DEFA 
  334. ASSI S1 S9
  335. GOTO MENUBRAN
  336. ENDC 
  337. ENDS 
  338. MENUBRAN:
  339. SWIT S1
  340. CASE"GAATL"
  341. ASSI S1"GAATL"
  342. EXEC"VERSA1.MNU"
  343. ENDC 
  344. CASE"MABOS"
  345. ASSI S1"MABOS"
  346. EXEC"VERSA1.MNU"
  347. ENDC 
  348. CASE"OHCLV"
  349. ASSI S1"OHCLV"
  350. EXEC"VERSA1.MNU"
  351. ENDC 
  352. CASE"MIDET"
  353. ASSI S1"MIDET"
  354. EXEC"VERSA1.MNU"
  355. ENDC 
  356. CASE"CTHAR"
  357. ASSI S1"CTHAR"
  358. EXEC"VERSA1.MNU"
  359. ENDC 
  360. CASE"FLMIA"
  361. ASSI S1"FLMIA"
  362. EXEC"VERSA1.MNU"
  363. ENDC 
  364. CASE"NETEX"
  365. FIND S0"3"
  366. IF FOUN 
  367. GOSU DISC3
  368. ENDI 
  369. ASSI S1"NETEX"
  370. EXEC"VERSA5.MNU"
  371. ENDC 
  372. CASE"NJNEW"
  373. ASSI S1"NJNEW"
  374. EXEC"VERSA1.MNU"
  375. ENDC 
  376. CASE"NYNYO"
  377. ASSI S1"NYNYO"
  378. EXEC"VERSA2.MNU"
  379. ENDC 
  380. CASE"PAPHI"
  381. ASSI S1"PAPHI"
  382. EXEC"VERSA2.MNU"
  383. ENDC 
  384. CASE"NCRTP"
  385. ASSI S1"NCRTP"
  386. EXEC"VERSA2.MNU"
  387. ENDC 
  388. CASE"FLTAM"
  389. ASSI S1"FLTAM"
  390. EXEC"VERSA2.MNU"
  391. ENDC 
  392. CASE"DCWAS"
  393. ASSI S1"DCWAS"
  394. EXEC"VERSA2.MNU"
  395. ENDC 
  396. CASE"ILCHI"
  397. ASSI S1"ILCHI"
  398. EXEC"VERSA2.MNU"
  399. ENDC 
  400. CASE"TXDAL"
  401. ASSI S1"TXDAL"
  402. EXEC"VERSA2.MNU"
  403. ENDC 
  404. CASE"TXHOU"
  405. ASSI S1"TXHOU"
  406. EXEC"VERSA3.MNU"
  407. ENDC 
  408. CASE"MOKAN"
  409. ASSI S1"MOKAN"
  410. EXEC"VERSA3.MNU"
  411. ENDC 
  412. CASE"WIMIL"
  413. ASSI S1"WIMIL"
  414. EXEC"VERSA3.MNU"
  415. ENDC 
  416. CASE"MNMIN"
  417. ASSI S1"MNMIN"
  418. EXEC"VERSA3.MNU"
  419. ENDC 
  420. CASE"MOSLO"
  421. ASSI S1"MOSLO"
  422. EXEC"VERSA3.MNU"
  423. ENDC 
  424. CASE"CODEN"
  425. ASSI S1"CODEN"
  426. EXEC"VERSA3.MNU"
  427. ENDC 
  428. CASE"AZPHO"
  429. ASSI S1"AZPHO"
  430. EXEC"VERSA3.MNU"
  431. ENDC 
  432. CASE"UTSLC"
  433. ASSI S1"UTSLC"
  434. EXEC"VERSA4.MNU"
  435. ENDC 
  436. CASE"CAGLE"
  437. ASSI S1"CAGLE"
  438. EXEC"VERSA4.MNU"
  439. ENDC 
  440. CASE"CALAN"
  441. ASSI S1"CALAN"
  442. EXEC"VERSA4.MNU"
  443. ENDC 
  444. CASE"CAPAL"
  445. ASSI S1"CAPAL"
  446. EXEC"VERSA4.MNU"
  447. ENDC 
  448. CASE"ORPOR"
  449. ASSI S1"ORPOR"
  450. EXEC"VERSA4.MNU"
  451. ENDC 
  452. CASE"CARIV"
  453. ASSI S1"CARIV"
  454. EXEC"VERSA4.MNU"
  455. ENDC 
  456. CASE"CASAC"
  457. ASSI S1"CASAC"
  458. EXEC"VERSA4.MNU"
  459. ENDC 
  460. CASE"CASAD"
  461. ASSI S1"CASAD"
  462. EXEC"VERSA5.MNU"
  463. ENDC 
  464. CASE"CASFA"
  465. ASSI S1"CASFA"
  466. EXEC"VERSA5.MNU"
  467. ENDC 
  468. CASE"CASJO"
  469. ASSI S1"CASJO"
  470. EXEC"VERSA5.MNU"
  471. ENDC 
  472. CASE"CASAN"
  473. ASSI S1"CASAN"
  474. EXEC"VERSA5.MNU"
  475. ENDC 
  476. CASE"WASEA"
  477. ASSI S1"WASEA"
  478. EXEC"VERSA5.MNU"
  479. ENDC 
  480. DEFA 
  481. LOCA 21,7
  482. MESS"^GUnknown city code.  Continue or Go back to city selection <C/G>?"
  483. LABEL3:
  484. LOCA 21,72
  485. GET S9 1
  486. SWIT S9
  487. CASE"C"
  488. EXEC"VERSA5.MNU"
  489. ENDC 
  490. CASE"G"
  491. GOTO CITYCHOI
  492. ENDC 
  493. CASE"D"
  494. GOTO PCPOFF
  495. ENDC 
  496. CASE"E"
  497. CLEA 
  498. GOTO VERSAOFF
  499. ENDC 
  500. DEFA 
  501. LOCA 21,72
  502. MESS"^G "
  503. GOTO LABEL3
  504. ENDC 
  505. ENDS 
  506. ENDC 
  507. ENDS 
  508. LEVEL1:
  509. CLEA 
  510. TRAN"AT S2=42 DT "
  511. MACR 7
  512. WAIT"CONNECT"20
  513. IF NOT WAIT 
  514. HANG 
  515. CLEA 
  516. LOCA 11,19
  517. MESS"Local Telenet did not connect.  Redialing."
  518. LOCA 0,0
  519. PAUS 1
  520. GOTO LEVEL1
  521. ENDI 
  522. PAUS 2
  523. TRAN"!"
  524. PAUS 1
  525. TRAN"!"
  526. WAIT"="
  527. TRAN"D1!"
  528. WAIT"@"
  529. LEVEL2:
  530. IF NOT CONN 
  531. CLEA 
  532. LOCA 11,7
  533. MESS"Telenet has disconnected.  Dialing will begin at the local level."
  534. LOCA 0,0
  535. PAUS 1
  536. ASSI S0"1"
  537. GOTO LEVEL1
  538. ENDI 
  539. ASSI S0"2"
  540. FIND S1"NETEX"
  541. IF FOUN 
  542. GOTO NETDIAL
  543. ENDI 
  544. TRAN"C D/"
  545. TRAN S1
  546. MACR 8
  547. MACR 9
  548. WAIT"="
  549. MACR 0
  550. RGET S8
  551. RGET S8
  552. RGET S8
  553. FIND S8"CONNECTED"
  554. IF FOUN 
  555. MESS"^G"
  556. GOTO PORTSET
  557. ENDI 
  558. CLEA 
  559. LOCA 11,11
  560. MESS"No modems available in remote city.  Begin redial <Y/N>?"
  561. LABEL4:
  562. LOCA 11,68
  563. GET S9 1
  564. SWIT S9
  565. CASE"Y"
  566. GOTO CITYREDI
  567. ENDC 
  568. CASE"N"
  569. GOTO CITYCHOI
  570. ENDC 
  571. CASE"D"
  572. GOTO PCPOFF
  573. ENDC 
  574. CASE"E"
  575. CLEA 
  576. GOTO VERSAOFF
  577. ENDC 
  578. DEFA 
  579. LOCA 11,68
  580. MESS"^G "
  581. GOTO LABEL4
  582. ENDC 
  583. ENDS 
  584. PORTSET:
  585. TRAN"!@!"
  586. WAIT"@"
  587. TRAN"SET? 1:0,4:2,7:8!"
  588. WAIT"@"3
  589. TRAN"CONT!"
  590. LEVEL3:
  591. IF NOT CONN 
  592. CLEA 
  593. LOCA 11,7
  594. MESS"Telenet has disconnected.  Dialing will begin at the local level."
  595. LOCA 0,0
  596. PAUS 1
  597. ASSI S0"1"
  598. GOTO LEVEL1
  599. ENDI 
  600. ASSI S0"3"
  601. TRAN"ATZ!"
  602. RGET S8 80 3
  603. RGET S8 80 3
  604. RGET S8 80 3
  605. FIND S8"OK"
  606. IF NOT FOUN 
  607. GOSU R/V_MODE
  608. ENDI 
  609. TRAN"ATDT "
  610. TRAN S2
  611. TRAN"!"
  612. RGET S8
  613. RGET S8 80 50
  614. RGET S8
  615. FIND S8"CONNECT"
  616. IF FOUN 
  617. GOTO BBSCONNE
  618. ENDI 
  619. CLEA 
  620. LOCA 11,20
  621. MESS"The BBS is busy.  Begin redial <Y/N>?"
  622. LABEL5:
  623. LOCA 11,58
  624. GET S9 1
  625. SWIT S9
  626. CASE"Y"
  627. GOTO BBSREDIA
  628. ENDC 
  629. CASE"N"
  630. ASSI S7"*"
  631. GOTO MENUBRAN
  632. ENDC 
  633. CASE"D"
  634. GOTO PCPOFF
  635. ENDC 
  636. CASE"E"
  637. CLEA 
  638. GOTO VERSAOFF
  639. ENDC 
  640. DEFA 
  641. LOCA 11,58
  642. MESS"^G "
  643. GOTO LABEL5
  644. ENDC 
  645. ENDS 
  646.