home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 June / SIMTEL_0692.cdr / msdos / procomm / pcpdial.arc / VERSA4.MNU < prev    next >
Encoding:
Text File  |  1988-01-18  |  15.7 KB  |  595 lines
  1. SWIT S1
  2. CASE"UTSLC"
  3. GOTO UTSLC
  4. ENDC 
  5. CASE"CAGLE"
  6. GOTO CAGLE
  7. ENDC 
  8. CASE"CALAN"
  9. GOTO CALAN
  10. ENDC 
  11. CASE"CAPAL"
  12. GOTO CAPAL
  13. ENDC 
  14. CASE"ORPOR"
  15. GOTO ORPOR
  16. ENDC 
  17. CASE"CARIV"
  18. GOTO CARIV
  19. ENDC 
  20. CASE"CASAC"
  21. GOTO CASAC
  22. ENDC 
  23. DEFA 
  24. ASSI S9"ERROR"
  25. EXEC"VERSA.CMD"
  26. ENDC 
  27. ENDS 
  28. UTSLC:
  29. CLEA 
  30. LOCA 2,0
  31. MESS"               ╒═════╡ Salt Lake City BBS Directory (801) ╞═════╕"
  32. MESS"               │                                                │"
  33. MESS"               │       -Board-                      -SIG-       │"
  34. MESS"               │                                                │"
  35. MESS"               │  < 1> Salt Air BBS           Home of PC Board  │"
  36. MESS"               │  < 2> InfoQuest Advantage                      │"
  37. MESS"               │  < 3> Techni-Soft                              │"
  38. MESS"               │  < 4> Compushop BBS                            │"
  39. MESS"               │  < 5> Adventurer's Keep                        │"
  40. MESS"               │  < 6> Burgoyne Line 2                          │"
  41. MESS"               │  < 7> Salt Lake Smorgasboard                   │"
  42. MESS"               │  < 8> Redundant Dept. etc                      │"
  43. MESS"               │  < 9> InfoQuest Advantage         David Terry  │"
  44. MESS"               │  <10>                                          │"
  45. MESS"               │                                                │"
  46. MESS"               │          <G>o back to city selection           │"
  47. MESS"               │                                                │"
  48. MESS"               ├────────────────────────────────────────────────┤"
  49. MESS"               │  Enter 1-10 or other phone number:             │"
  50. MESS"               ╘════════════════════════════════════════════════╛"
  51. LOCA 20,52
  52. GET S9 11
  53. SWIT S9
  54. CASE"1"
  55. ASSI S2"2660328"
  56. ;ASSI S7"COMMAND.VER"
  57. ENDC 
  58. CASE"2"
  59. ASSI S2"2540344"
  60. ;ASSI S7"COMMAND.VER"
  61. ENDC 
  62. CASE"3"
  63. ASSI S2"2648290"
  64. ;ASSI S7"COMMAND.VER"
  65. ENDC 
  66. CASE"4"
  67. ASSI S2"5836119"
  68. ;ASSI S7"COMMAND.VER"
  69. ENDC 
  70. CASE"5"
  71. ASSI S2"2680069"
  72. ;ASSI S7"COMMAND.VER"
  73. ENDC 
  74. CASE"6"
  75. ASSI S2"5317149"
  76. ;ASSI S7"COMMAND.VER"
  77. ENDC 
  78. CASE"7"
  79. ASSI S2"5348099"
  80. ;ASSI S7"COMMAND.VER"
  81. ENDC 
  82. CASE"8"
  83. ASSI S2"4875339"
  84. ;ASSI S7"COMMAND.VER"
  85. ENDC 
  86. CASE"9"
  87. ASSI S2"2540344"
  88. ;ASSI S7"COMMAND.VER"
  89. ENDC 
  90. CASE"10"
  91. ASSI S2"XXXXXXX"
  92. ;ASSI S7"COMMAND.VER"
  93. ENDC 
  94. CASE"D"
  95. EXEC"VERSA.CMD"
  96. ENDC 
  97. CASE"E"
  98. EXEC"VERSA.CMD"
  99. ENDC 
  100. CASE"G"
  101. EXEC"VERSA.CMD"
  102. ENDC 
  103. DEFA 
  104. ASSI S2 S9
  105. ENDC 
  106. ENDS 
  107. ASSI S9"ACTIVE"
  108. EXEC"VERSA.CMD"
  109. CAGLE:
  110. CLEA 
  111. LOCA 2,0
  112. MESS"               ╒════════╡ Glendale BBS Directory (818) ╞════════╕"
  113. MESS"               │                                                │"
  114. MESS"               │       -Board-                      -SIG-       │"
  115. MESS"               │                                                │"
  116. MESS"               │  < 1> The Lunacy BBS              2000+ files  │"
  117. MESS"               │  < 2> BAMM                                     │"
  118. MESS"               │  < 3> Underground RBBS                         │"
  119. MESS"               │  < 4> Light Artists                            │"
  120. MESS"               │  < 5> Sysops Only                              │"
  121. MESS"               │  < 6> Programmer Xchange                       │"
  122. MESS"               │  < 7> Vangaurd                                 │"
  123. MESS"               │  < 8> B.J.'s                                   │"
  124. MESS"               │  < 9> The Ledge PCBoard                        │"
  125. MESS"               │  <10>                                          │"
  126. MESS"               │                                                │"
  127. MESS"               │          <G>o back to city selection           │"
  128. MESS"               │                                                │"
  129. MESS"               ├────────────────────────────────────────────────┤"
  130. MESS"               │  Enter 1-10 or other phone number:             │"
  131. MESS"               ╘════════════════════════════════════════════════╛"
  132. LOCA 20,52
  133. GET S9 11
  134. SWIT S9
  135. CASE"1"
  136. ASSI S2"8941248"
  137. ;ASSI S7"COMMAND.VER"
  138. ENDC 
  139. CASE"2"
  140. ASSI S2"3454485"
  141. ;ASSI S7"COMMAND.VER"
  142. ENDC 
  143. CASE"3"
  144. ASSI S2"9540800"
  145. ;ASSI S7"COMMAND.VER"
  146. ENDC 
  147. CASE"4"
  148. ASSI S2"9850541"
  149. ;ASSI S7"COMMAND.VER"
  150. ENDC 
  151. CASE"5"
  152. ASSI S2"9906842"
  153. ;ASSI S7"COMMAND.VER"
  154. ENDC 
  155. CASE"6"
  156. ASSI S2"2817586"
  157. ;ASSI S7"COMMAND.VER"
  158. ENDC 
  159. CASE"7"
  160. ASSI S2"8968602"
  161. ;ASSI S7"COMMAND.VER"
  162. ENDC 
  163. CASE"8"
  164. ASSI S2"2481087"
  165. ;ASSI S7"COMMAND.VER"
  166. ENDC 
  167. CASE"9"
  168. ASSI S2"3523620"
  169. ;ASSI S7"COMMAND.VER"
  170. ENDC 
  171. CASE"10"
  172. ASSI S2"XXXXXXX"
  173. ;ASSI S7"COMMAND.VER"
  174. ENDC 
  175. CASE"D"
  176. EXEC"VERSA.CMD"
  177. ENDC 
  178. CASE"E"
  179. EXEC"VERSA.CMD"
  180. ENDC 
  181. CASE"G"
  182. EXEC"VERSA.CMD"
  183. ENDC 
  184. DEFA 
  185. ASSI S2 S9
  186. ENDC 
  187. ENDS 
  188. ASSI S9"ACTIVE"
  189. EXEC"VERSA.CMD"
  190. CALAN:
  191. CLEA 
  192. LOCA 2,0
  193. MESS"               ╒══════╡ Los Angeles BBS Directory  (213) ╞══════╕"
  194. MESS"               │                                                │"
  195. MESS"               │       -Board-                      -SIG-       │"
  196. MESS"               │                                                │"
  197. MESS"               │  < 1> Crest BBS                                │"
  198. MESS"               │  < 2> Point=Stone                              │"
  199. MESS"               │  < 3> Sleepy Hollow                            │"
  200. MESS"               │  < 4> Camelot                                  │"
  201. MESS"               │  < 5> Intl Collectors                          │"
  202. MESS"               │  < 6> Host 102 Socialnet                       │"
  203. MESS"               │  < 7> RWL Downloading                          │"
  204. MESS"               │  < 8> Bytebusters Lair                         │"
  205. MESS"               │  < 9> South Bay PC BBS                         │"
  206. MESS"               │  <10>                                          │"
  207. MESS"               │                                                │"
  208. MESS"               │          <G>o back to city selection           │"
  209. MESS"               │                                                │"
  210. MESS"               ├────────────────────────────────────────────────┤"
  211. MESS"               │  Enter 1-10 or other phone number:             │"
  212. MESS"               ╘════════════════════════════════════════════════╛"
  213. LOCA 20,52
  214. GET S9 11
  215. SWIT S9
  216. CASE"1"
  217. ASSI S2"4712518"
  218. ;ASSI S7"COMMAND.VER"
  219. ENDC 
  220. CASE"2"
  221. ASSI S2"8212675"
  222. ;ASSI S7"COMMAND.VER"
  223. ENDC 
  224. CASE"3"
  225. ASSI S2"8599334"
  226. ;ASSI S7"COMMAND.VER"
  227. ENDC 
  228. CASE"4"
  229. ASSI S2"2046158"
  230. ;ASSI S7"COMMAND.VER"
  231. ENDC 
  232. CASE"5"
  233. ASSI S2"2040646"
  234. ;ASSI S7"COMMAND.VER"
  235. ENDC 
  236. CASE"6"
  237. ASSI S2"2042996"
  238. ;ASSI S7"COMMAND.VER"
  239. ENDC 
  240. CASE"7"
  241. ASSI S2"2577327"
  242. ;ASSI S7"COMMAND.VER"
  243. ENDC 
  244. CASE"8"
  245. ASSI S2"3700189"
  246. ;ASSI S7"COMMAND.VER"
  247. ENDC 
  248. CASE"9"
  249. ASSI S2"3767089"
  250. ;ASSI S7"COMMAND.VER"
  251. ENDC 
  252. CASE"10"
  253. ASSI S2"XXXXXXX"
  254. ;ASSI S7"COMMAND.VER"
  255. ENDC 
  256. CASE"D"
  257. EXEC"VERSA.CMD"
  258. ENDC 
  259. CASE"E"
  260. EXEC"VERSA.CMD"
  261. ENDC 
  262. CASE"G"
  263. EXEC"VERSA.CMD"
  264. ENDC 
  265. DEFA 
  266. ASSI S2 S9
  267. ENDC 
  268. ENDS 
  269. ASSI S9"ACTIVE"
  270. EXEC"VERSA.CMD"
  271. CAPAL:
  272. CLEA 
  273. LOCA 2,0
  274. MESS"               ╒═════╡ Palo Alto BBS Directory  (415/408) ╞═════╕"
  275. MESS"               │                                                │"
  276. MESS"               │       -Board-                      -SIG-       │"
  277. MESS"               │                                                │"
  278. MESS"               │  < 1>                                          │"
  279. MESS"               │  < 2>                                          │"
  280. MESS"               │  < 3>                                          │"
  281. MESS"               │  < 4>                                          │"
  282. MESS"               │  < 5>                                          │"
  283. MESS"               │  < 6>                                          │"
  284. MESS"               │  < 7>                                          │"
  285. MESS"               │  < 8>                                          │"
  286. MESS"               │  < 9>                                          │"
  287. MESS"               │  <10>                                          │"
  288. MESS"               │                                                │"
  289. MESS"               │          <G>o back to city selection           │"
  290. MESS"               │                                                │"
  291. MESS"               ├────────────────────────────────────────────────┤"
  292. MESS"               │  Enter 1-10 or other phone number:             │"
  293. MESS"               ╘════════════════════════════════════════════════╛"
  294. LOCA 20,52
  295. GET S9 11
  296. SWIT S9
  297. CASE"1"
  298. ASSI S2"XXXXXXX"
  299. ;ASSI S7"COMMAND.VER"
  300. ENDC 
  301. CASE"2"
  302. ASSI S2"XXXXXXX"
  303. ;ASSI S7"COMMAND.VER"
  304. ENDC 
  305. CASE"3"
  306. ASSI S2"XXXXXXX"
  307. ;ASSI S7"COMMAND.VER"
  308. ENDC 
  309. CASE"4"
  310. ASSI S2"XXXXXXX"
  311. ;ASSI S7"COMMAND.VER"
  312. ENDC 
  313. CASE"5"
  314. ASSI S2"XXXXXXX"
  315. ;ASSI S7"COMMAND.VER"
  316. ENDC 
  317. CASE"6"
  318. ASSI S2"XXXXXXX"
  319. ;ASSI S7"COMMAND.VER"
  320. ENDC 
  321. CASE"7"
  322. ASSI S2"XXXXXXX"
  323. ;ASSI S7"COMMAND.VER"
  324. ENDC 
  325. CASE"8"
  326. ASSI S2"XXXXXXX"
  327. ;ASSI S7"COMMAND.VER"
  328. ENDC 
  329. CASE"9"
  330. ASSI S2"XXXXXXX"
  331. ;ASSI S7"COMMAND.VER"
  332. ENDC 
  333. CASE"10"
  334. ASSI S2"XXXXXXX"
  335. ;ASSI S7"COMMAND.VER"
  336. ENDC 
  337. CASE"D"
  338. EXEC"VERSA.CMD"
  339. ENDC 
  340. CASE"E"
  341. EXEC"VERSA.CMD"
  342. ENDC 
  343. CASE"G"
  344. EXEC"VERSA.CMD"
  345. ENDC 
  346. DEFA 
  347. ASSI S2 S9
  348. ENDC 
  349. ENDS 
  350. ASSI S9"ACTIVE"
  351. EXEC"VERSA.CMD"
  352. ORPOR:
  353. CLEA 
  354. LOCA 2,0
  355. MESS"               ╒════════╡ Portland BBS Directory (503) ╞════════╕"
  356. MESS"               │                                                │"
  357. MESS"               │       -Board-                      -SIG-       │"
  358. MESS"               │                                                │"
  359. MESS"               │  < 1> PEGBOARD 2                               │"
  360. MESS"               │  < 2> Experimentor's Connx                     │"
  361. MESS"               │  < 3> Huggy's Den                              │"
  362. MESS"               │  < 4> Pro-YAM System                           │"
  363. MESS"               │  < 5> VanPort Area                             │"
  364. MESS"               │  < 6> Aloha RBBS                               │"
  365. MESS"               │  < 7> CTCSoftware Etc                          │"
  366. MESS"               │  < 8> WSO's Roost                              │"
  367. MESS"               │  < 9> PSG Portland                             │"
  368. MESS"               │  <10>                                          │"
  369. MESS"               │                                                │"
  370. MESS"               │          <G>o back to city selection           │"
  371. MESS"               │                                                │"
  372. MESS"               ├────────────────────────────────────────────────┤"
  373. MESS"               │  Enter 1-10 or other phone number:             │"
  374. MESS"               ╘════════════════════════════════════════════════╛"
  375. LOCA 20,52
  376. GET S9 11
  377. SWIT S9
  378. CASE"1"
  379. ASSI S2"2394032"
  380. ;ASSI S7"COMMAND.VER"
  381. ENDC 
  382. CASE"2"
  383. ASSI S2"2533650"
  384. ;ASSI S7"COMMAND.VER"
  385. ENDC 
  386. CASE"3"
  387. ASSI S2"6464312"
  388. ;ASSI S7"COMMAND.VER"
  389. ENDC 
  390. CASE"4"
  391. ASSI S2"6213746"
  392. ;ASSI S7"COMMAND.VER"
  393. ENDC 
  394. CASE"5"
  395. ASSI S2"2818322"
  396. ;ASSI S7"COMMAND.VER"
  397. ENDC 
  398. CASE"6"
  399. ASSI S2"6453667"
  400. ;ASSI S7"COMMAND.VER"
  401. ENDC 
  402. CASE"7"
  403. ASSI S2"6539576"
  404. ;ASSI S7"COMMAND.VER"
  405. ENDC 
  406. CASE"8"
  407. ASSI S2"2810952"
  408. ;ASSI S7"COMMAND.VER"
  409. ENDC 
  410. CASE"9"
  411. ASSI S2"2979145"
  412. ;ASSI S7"COMMAND.VER"
  413. ENDC 
  414. CASE"10"
  415. ASSI S2"XXXXXXX"
  416. ;ASSI S7"COMMAND.VER"
  417. ENDC 
  418. CASE"D"
  419. EXEC"VERSA.CMD"
  420. ENDC 
  421. CASE"E"
  422. EXEC"VERSA.CMD"
  423. ENDC 
  424. CASE"G"
  425. EXEC"VERSA.CMD"
  426. ENDC 
  427. DEFA 
  428. ASSI S2 S9
  429. ENDC 
  430. ENDS 
  431. ASSI S9"ACTIVE"
  432. EXEC"VERSA.CMD"
  433. CARIV:
  434. CLEA 
  435. LOCA 2,0
  436. MESS"               ╒═══════╡ Riverside BBS Directory  (714) ╞═══════╕"
  437. MESS"               │                                                │"
  438. MESS"               │       -Board-                      -SIG-       │"
  439. MESS"               │                                                │"
  440. MESS"               │  < 1>                                          │"
  441. MESS"               │  < 2>                                          │"
  442. MESS"               │  < 3>                                          │"
  443. MESS"               │  < 4>                                          │"
  444. MESS"               │  < 5>                                          │"
  445. MESS"               │  < 6>                                          │"
  446. MESS"               │  < 7>                                          │"
  447. MESS"               │  < 8>                                          │"
  448. MESS"               │  < 9>                                          │"
  449. MESS"               │  <10>                                          │"
  450. MESS"               │                                                │"
  451. MESS"               │          <G>o back to city selection           │"
  452. MESS"               │                                                │"
  453. MESS"               ├────────────────────────────────────────────────┤"
  454. MESS"               │  Enter 1-10 or other phone number:             │"
  455. MESS"               ╘════════════════════════════════════════════════╛"
  456. LOCA 20,52
  457. GET S9 11
  458. SWIT S9
  459. CASE"1"
  460. ASSI S2"XXXXXXX"
  461. ;ASSI S7"COMMAND.VER"
  462. ENDC 
  463. CASE"2"
  464. ASSI S2"XXXXXXX"
  465. ;ASSI S7"COMMAND.VER"
  466. ENDC 
  467. CASE"3"
  468. ASSI S2"XXXXXXX"
  469. ;ASSI S7"COMMAND.VER"
  470. ENDC 
  471. CASE"4"
  472. ASSI S2"XXXXXXX"
  473. ;ASSI S7"COMMAND.VER"
  474. ENDC 
  475. CASE"5"
  476. ASSI S2"XXXXXXX"
  477. ;ASSI S7"COMMAND.VER"
  478. ENDC 
  479. CASE"6"
  480. ASSI S2"XXXXXXX"
  481. ;ASSI S7"COMMAND.VER"
  482. ENDC 
  483. CASE"7"
  484. ASSI S2"XXXXXXX"
  485. ;ASSI S7"COMMAND.VER"
  486. ENDC 
  487. CASE"8"
  488. ASSI S2"XXXXXXX"
  489. ;ASSI S7"COMMAND.VER"
  490. ENDC 
  491. CASE"9"
  492. ASSI S2"XXXXXXX"
  493. ;ASSI S7"COMMAND.VER"
  494. ENDC 
  495. CASE"10"
  496. ASSI S2"XXXXXXX"
  497. ;ASSI S7"COMMAND.VER"
  498. ENDC 
  499. CASE"D"
  500. EXEC"VERSA.CMD"
  501. ENDC 
  502. CASE"E"
  503. EXEC"VERSA.CMD"
  504. ENDC 
  505. CASE"G"
  506. EXEC"VERSA.CMD"
  507. ENDC 
  508. DEFA 
  509. ASSI S2 S9
  510. ENDC 
  511. ENDS 
  512. ASSI S9"ACTIVE"
  513. EXEC"VERSA.CMD"
  514. CASAC:
  515. CLEA 
  516. LOCA 2,0
  517. MESS"               ╒═══════╡ Sacramento BBS Directory (916) ╞═══════╕"
  518. MESS"               │                                                │"
  519. MESS"               │       -Board-                      -SIG-       │"
  520. MESS"               │                                                │"
  521. MESS"               │  < 1>                                          │"
  522. MESS"               │  < 2>                                          │"
  523. MESS"               │  < 3>                                          │"
  524. MESS"               │  < 4>                                          │"
  525. MESS"               │  < 5>                                          │"
  526. MESS"               │  < 6>                                          │"
  527. MESS"               │  < 7>                                          │"
  528. MESS"               │  < 8>                                          │"
  529. MESS"               │  < 9>                                          │"
  530. MESS"               │  <10>                                          │"
  531. MESS"               │                                                │"
  532. MESS"               │          <G>o back to city selection           │"
  533. MESS"               │                                                │"
  534. MESS"               ├────────────────────────────────────────────────┤"
  535. MESS"               │  Enter 1-10 or other phone number:             │"
  536. MESS"               ╘════════════════════════════════════════════════╛"
  537. LOCA 20,52
  538. GET S9 11
  539. SWIT S9
  540. CASE"1"
  541. ASSI S2"XXXXXXX"
  542. ;ASSI S7"COMMAND.VER"
  543. ENDC 
  544. CASE"2"
  545. ASSI S2"XXXXXXX"
  546. ;ASSI S7"COMMAND.VER"
  547. ENDC 
  548. CASE"3"
  549. ASSI S2"XXXXXXX"
  550. ;ASSI S7"COMMAND.VER"
  551. ENDC 
  552. CASE"4"
  553. ASSI S2"XXXXXXX"
  554. ;ASSI S7"COMMAND.VER"
  555. ENDC 
  556. CASE"5"
  557. ASSI S2"XXXXXXX"
  558. ;ASSI S7"COMMAND.VER"
  559. ENDC 
  560. CASE"6"
  561. ASSI S2"XXXXXXX"
  562. ;ASSI S7"COMMAND.VER"
  563. ENDC 
  564. CASE"7"
  565. ASSI S2"XXXXXXX"
  566. ;ASSI S7"COMMAND.VER"
  567. ENDC 
  568. CASE"8"
  569. ASSI S2"XXXXXXX"
  570. ;ASSI S7"COMMAND.VER"
  571. ENDC 
  572. CASE"9"
  573. ASSI S2"XXXXXXX"
  574. ;ASSI S7"COMMAND.VER"
  575. ENDC 
  576. CASE"10"
  577. ASSI S2"XXXXXXX"
  578. ;ASSI S7"COMMAND.VER"
  579. ENDC 
  580. CASE"D"
  581. EXEC"VERSA.CMD"
  582. ENDC 
  583. CASE"E"
  584. EXEC"VERSA.CMD"
  585. ENDC 
  586. CASE"G"
  587. EXEC"VERSA.CMD"
  588. ENDC 
  589. DEFA 
  590. ASSI S2 S9
  591. ENDC 
  592. ENDS 
  593. ASSI S9"ACTIVE"
  594. EXEC"VERSA.CMD"
  595.