home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 June / SIMTEL_0692.cdr / msdos / procomm / pcpdial.arc / VERSA5.MNU < prev   
Text File  |  1988-01-18  |  14KB  |  520 lines
  1. SWIT S1
  2. CASE"CASAD"
  3. GOTO CASAD
  4. ENDC 
  5. CASE"CASFA"
  6. GOTO CASFA
  7. ENDC 
  8. CASE"CASJO"
  9. GOTO CASJO
  10. ENDC 
  11. CASE"CASAN"
  12. GOTO CASAN
  13. ENDC 
  14. CASE"WASEA"
  15. GOTO WASEA
  16. ENDC 
  17. CASE"NETEX"
  18. GOTO NETEX
  19. ENDC 
  20. CASE"_NULL"
  21. ASSI S9"ERROR"
  22. EXEC"VERSA.CMD"
  23. ENDC 
  24. DEFA 
  25. GOTO SPARE
  26. ENDC 
  27. ENDS 
  28. CASAD:
  29. CLEA 
  30. LOCA 2,0
  31. MESS"               ╒═══════╡ San Diego BBS Directory  (619) ╞═══════╕"
  32. MESS"               │                                                │"
  33. MESS"               │       -Board-                      -SIG-       │"
  34. MESS"               │                                                │"
  35. MESS"               │  < 1>                                          │"
  36. MESS"               │  < 2>                                          │"
  37. MESS"               │  < 3>                                          │"
  38. MESS"               │  < 4>                                          │"
  39. MESS"               │  < 5>                                          │"
  40. MESS"               │  < 6>                                          │"
  41. MESS"               │  < 7>                                          │"
  42. MESS"               │  < 8>                                          │"
  43. MESS"               │  < 9>                                          │"
  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"XXXXXXX"
  56. ;ASSI S7"COMMAND.VER"
  57. ENDC 
  58. CASE"2"
  59. ASSI S2"XXXXXXX"
  60. ;ASSI S7"COMMAND.VER"
  61. ENDC 
  62. CASE"3"
  63. ASSI S2"XXXXXXX"
  64. ;ASSI S7"COMMAND.VER"
  65. ENDC 
  66. CASE"4"
  67. ASSI S2"XXXXXXX"
  68. ;ASSI S7"COMMAND.VER"
  69. ENDC 
  70. CASE"5"
  71. ASSI S2"XXXXXXX"
  72. ;ASSI S7"COMMAND.VER"
  73. ENDC 
  74. CASE"6"
  75. ASSI S2"XXXXXXX"
  76. ;ASSI S7"COMMAND.VER"
  77. ENDC 
  78. CASE"7"
  79. ASSI S2"XXXXXXX"
  80. ;ASSI S7"COMMAND.VER"
  81. ENDC 
  82. CASE"8"
  83. ASSI S2"XXXXXXX"
  84. ;ASSI S7"COMMAND.VER"
  85. ENDC 
  86. CASE"9"
  87. ASSI S2"XXXXXXX"
  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. CASFA:
  110. CLEA 
  111. LOCA 2,0
  112. MESS"               ╒═════╡ San Francisco BBS Directory  (415) ╞═════╕"
  113. MESS"               │                                                │"
  114. MESS"               │       -Board-                      -SIG-       │"
  115. MESS"               │                                                │"
  116. MESS"               │  < 1> Charisma                    Multi - SIG  │"
  117. MESS"               │  < 2> Com One                        PC Board  │"
  118. MESS"               │  < 3> VOR RBBS                   Vernon Buerg  │"
  119. MESS"               │  < 4> Pyramid of Power               PC Board  │"
  120. MESS"               │  < 5> Echelon BBS                    PC Board  │"
  121. MESS"               │  < 6> 448 Bernal Bears Board                   │"
  122. MESS"               │  < 7> Midnight Express                         │"
  123. MESS"               │  < 8> 321 Well Tempered BBS                    │"
  124. MESS"               │  < 9> SCI FIDO                                 │"
  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"3496576"
  137. ;ASSI S7"COMMAND.VER"
  138. ENDC 
  139. CASE"2"
  140. ASSI S2"3700411"
  141. ;ASSI S7"COMMAND.VER"
  142. ENDC 
  143. CASE"3"
  144. ASSI S2"9942944"
  145. ;ASSI S7"COMMAND.VER"
  146. ENDC 
  147. CASE"4"
  148. ASSI S2"4820532"
  149. ;ASSI S7"COMMAND.VER"
  150. ENDC 
  151. CASE"5"
  152. ASSI S2"4831768"
  153. ;ASSI S7"COMMAND.VER"
  154. ENDC 
  155. CASE"6"
  156. ASSI S2"6483014"
  157. ;ASSI S7"COMMAND.VER"
  158. ENDC 
  159. CASE"7"
  160. ASSI S2"7923210"
  161. ;ASSI S7"COMMAND.VER"
  162. ENDC 
  163. CASE"8"
  164. ASSI S2"5893273"
  165. ;ASSI S7"COMMAND.VER"
  166. ENDC 
  167. CASE"9"
  168. ASSI S2"6550677"
  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. CASJO:
  191. CLEA 
  192. LOCA 2,0
  193. MESS"               ╒══════╡ San Jose BBS Directory (408/415) ╞══════╕"
  194. MESS"               │                                                │"
  195. MESS"               │       -Board-                      -SIG-       │"
  196. MESS"               │                                                │"
  197. MESS"               │  < 1> Bizcomp BBS                              │"
  198. MESS"               │  < 2> Computer Tyme                            │"
  199. MESS"               │  < 3> Capitol City RBBS                        │"
  200. MESS"               │  < 4> NORAD / Science                          │"
  201. MESS"               │  < 5> Publ Dom Softw Sp                        │"
  202. MESS"               │  < 6> Seacon                                   │"
  203. MESS"               │  < 7> Bay Area BBS                             │"
  204. MESS"               │  < 8> PD Software Xchd                         │"
  205. MESS"               │  < 9> Paco's 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"7209212"
  218. ;ASSI S7"COMMAND.VER"
  219. ENDC 
  220. CASE"2"
  221. ASSI S2"7322187"
  222. ;ASSI S7"COMMAND.VER"
  223. ENDC 
  224. CASE"3"
  225. ASSI S2"2274865"
  226. ;ASSI S7"COMMAND.VER"
  227. ENDC 
  228. CASE"4"
  229. ASSI S2"2685157"
  230. ;ASSI S7"COMMAND.VER"
  231. ENDC 
  232. CASE"5"
  233. ASSI S2"2704085"
  234. ;ASSI S7"COMMAND.VER"
  235. ENDC 
  236. CASE"6"
  237. ASSI S2"3568235"
  238. ;ASSI S7"COMMAND.VER"
  239. ENDC 
  240. CASE"7"
  241. ASSI S2"7237238"
  242. ;ASSI S7"COMMAND.VER"
  243. ENDC 
  244. CASE"8"
  245. ASSI S2"7357190"
  246. ;ASSI S7"COMMAND.VER"
  247. ENDC 
  248. CASE"9"
  249. ASSI S2"6299393"
  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. CASAN:
  272. CLEA 
  273. LOCA 2,0
  274. MESS"               ╒═══════╡ Santa Ana BBS Directory  (714) ╞═══════╕"
  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. WASEA:
  353. CLEA 
  354. LOCA 2,0
  355. MESS"               ╒════════╡ Seattle BBS Directory  (206) ╞════════╕"
  356. MESS"               │                                                │"
  357. MESS"               │       -Board-                      -SIG-       │"
  358. MESS"               │                                                │"
  359. MESS"               │  < 1> Galaxy                Home of Galaxy WP  │"
  360. MESS"               │  < 2> Infinity BASE                  PC Board  │"
  361. MESS"               │  < 3> Cboard                      C Languages  │"
  362. MESS"               │  < 4> Puget Sound RBBS      ($)Communications  │"
  363. MESS"               │  < 5> Underdog's Mininet                       │"
  364. MESS"               │  < 6> Eskimo North                             │"
  365. MESS"               │  < 7> 20M Pugent Sound                         │"
  366. MESS"               │  < 8> Sanctuary                                │"
  367. MESS"               │  < 9> Cheryl's Velvet Touch                    │"
  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"2358760"
  380. ;ASSI S7"COMMAND.VER"
  381. ENDC 
  382. CASE"2"
  383. ASSI S2"3299026"
  384. ;ASSI S7"COMMAND.VER"
  385. ENDC 
  386. CASE"3"
  387. ASSI S2"4880924"
  388. ;ASSI S7"COMMAND.VER"
  389. ENDC 
  390. CASE"4"
  391. ASSI S2"2817661"
  392. ;ASSI S7"COMMAND.VER"
  393. ENDC 
  394. CASE"5"
  395. ASSI S2"7259233"
  396. ;ASSI S7"COMMAND.VER"
  397. ENDC 
  398. CASE"6"
  399. ASSI S2"3673837"
  400. ;ASSI S7"COMMAND.VER"
  401. ENDC 
  402. CASE"7"
  403. ASSI S2"7430162"
  404. ;ASSI S7"COMMAND.VER"
  405. ENDC 
  406. CASE"8"
  407. ASSI S2"7476839"
  408. ;ASSI S7"COMMAND.VER"
  409. ENDC 
  410. CASE"9"
  411. ASSI S2"9372957"
  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. SPARE:
  434. CLEA 
  435. LOCA 2,0
  436. MESS"               ╒═════════╡ Selected city code:        ╞═════════╕"
  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 2,47
  457. MESS S1
  458. LOCA 20,52
  459. GET S9 11
  460. SWIT S9
  461. CASE"1"
  462. ASSI S2"XXXXXXX"
  463. ;ASSI S7"COMMAND.VER"
  464. ENDC 
  465. CASE"2"
  466. ASSI S2"XXXXXXX"
  467. ;ASSI S7"COMMAND.VER"
  468. ENDC 
  469. CASE"3"
  470. ASSI S2"XXXXXXX"
  471. ;ASSI S7"COMMAND.VER"
  472. ENDC 
  473. CASE"4"
  474. ASSI S2"XXXXXXX"
  475. ;ASSI S7"COMMAND.VER"
  476. ENDC 
  477. CASE"5"
  478. ASSI S2"XXXXXXX"
  479. ;ASSI S7"COMMAND.VER"
  480. ENDC 
  481. CASE"6"
  482. ASSI S2"XXXXXXX"
  483. ;ASSI S7"COMMAND.VER"
  484. ENDC 
  485. CASE"7"
  486. ASSI S2"XXXXXXX"
  487. ;ASSI S7"COMMAND.VER"
  488. ENDC 
  489. CASE"8"
  490. ASSI S2"XXXXXXX"
  491. ;ASSI S7"COMMAND.VER"
  492. ENDC 
  493. CASE"9"
  494. ASSI S2"XXXXXXX"
  495. ;ASSI S7"COMMAND.VER"
  496. ENDC 
  497. CASE"10"
  498. ASSI S2"XXXXXXX"
  499. ;ASSI S7"COMMAND.VER"
  500. ENDC 
  501. CASE"D"
  502. EXEC"VERSA.CMD"
  503. ENDC 
  504. CASE"E"
  505. EXEC"VERSA.CMD"
  506. ENDC 
  507. CASE"G"
  508. EXEC"VERSA.CMD"
  509. ENDC 
  510. DEFA 
  511. ASSI S2 S9
  512. ENDC 
  513. ENDS 
  514. ASSI S9"ACTIVE"
  515. EXEC"VERSA.CMD"
  516. NETEX:
  517. ;ASSI S7"COMMAND.VER"
  518. ASSI S9"ACTIVE"
  519. EXEC"VERSA.CMD"
  520.