home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 December / simtel1292_SIMTEL_1292_Walnut_Creek.iso / msdos / procomm / pcpdial.arc / VERSA1-C.MNU < prev    next >
Text File  |  1988-01-18  |  27KB  |  603 lines
  1. ;VERSA1.MNU
  2. SWITCH S1                    ;Decision based on S1 (city code)
  3.   CASE "GAATL"               ;All of the following 7 cases are identical.
  4.     GOTO GAATL               ; Each branches to the correct menu in the file,
  5.   ENDCASE                    ; depending on the current city code.
  6.   CASE "MABOS"
  7.     GOTO MABOS
  8.   ENDCASE
  9.   CASE "OHCLV"
  10.     GOTO OHCLV
  11.   ENDCASE
  12.   CASE "MIDET"
  13.     GOTO MIDET
  14.   ENDCASE
  15.   CASE "CTHAR"
  16.     GOTO CTHAR
  17.   ENDCASE
  18.   CASE "FLMIA"
  19.     GOTO FLMIA
  20.   ENDCASE
  21.   CASE "NJNEW"
  22.     GOTO NJNEW
  23.   ENDCASE
  24.   DEFAULT                    ;If S1 is anything else, something is wrong
  25.     ASSIGN S9 "ERROR"        ;Put "ERROR" in S9,
  26.     EXECUTE "VERSA.CMD"      ; and go back to VERSA.CMD
  27.   ENDCASE
  28. ENDSWITCH                    ;End of decision based on city code
  29.  
  30. GAATL:
  31. CLEAR                        ;Clear screen
  32. LOCATE 2,0                   ;Locate cursor for menu drawing
  33. MESSAGE "               ╒════════╡ Atlanta BBS Directory  (404) ╞════════╕"
  34. MESSAGE "               │                                                │"
  35. MESSAGE "               │       -Board-                      -SIG-       │"
  36. MESSAGE "               │                                                │"
  37. MESSAGE "               │  < 1> GBBS                                     │"
  38. MESSAGE "               │  < 2> Flagship BBS                             │"
  39. MESSAGE "               │  < 3> Atlanta PCUG                 Unprotects  │"
  40. MESSAGE "               │  < 4> T. J.'s                                  │"
  41. MESSAGE "               │  < 5> Kahn's BBS      Artificial Intelligence  │"
  42. MESSAGE "               │  < 6> Southside BBS                            │"
  43. MESSAGE "               │  < 7> Gumby's Place                            │"
  44. MESSAGE "               │  < 8> La Chateau                               │"
  45. MESSAGE "               │  < 9>                                          │"
  46. MESSAGE "               │  <10>                                          │"
  47. MESSAGE "               │                                                │"
  48. MESSAGE "               │          <G>o back to city selection           │"
  49. MESSAGE "               │                                                │"
  50. MESSAGE "               ├────────────────────────────────────────────────┤"
  51. MESSAGE "               │  Enter 1-10 or other phone number:             │"
  52. MESSAGE "               ╘════════════════════════════════════════════════╛"
  53. LOCATE 20,52                 ;Locate cursor for user input
  54. GET S9 11                    ;Get user input (11 characters)
  55. SWITCH S9                    ;Decision based on S9 (user input)
  56.   CASE "1"                   ;All of the following 10 cases are identical.
  57.     ASSIGN S2 "4576815"      ; Each assigns the number of a BBS to S2 and the
  58.   ;$ASSIGN S7 "COMMAND.VER"  ; name of a "linked command file" to S7.  If no
  59.   ENDCASE                    ; linked command file is to be used, then a
  60.   CASE "2"                   ; semicolon should be at the beginning of the
  61.     ASSIGN S2 "9346299"      ; ASSIGN S7 line, or delete the line entirely.
  62.   ;$ASSIGN S7 "COMMAND.VER"
  63.   ENDCASE
  64.   CASE "3"
  65.     ASSIGN S2 "4330062"
  66.   ;$ASSIGN S7 "COMMAND.VER"
  67.   ENDCASE
  68.   CASE "4"
  69.     ASSIGN S2 "3921756"
  70.   ;$ASSIGN S7 "COMMAND.VER"
  71.   ENDCASE
  72.   CASE "5"
  73.     ASSIGN S2 "9346299"
  74.   ;$ASSIGN S7 "COMMAND.VER"
  75.   ENDCASE
  76.   CASE "6"
  77.     ASSIGN S2 "7670092"
  78.   ;$ASSIGN S7 "COMMAND.VER"
  79.   ENDCASE
  80.   CASE "7"
  81.     ASSIGN S2 "9396569"
  82.   ;$ASSIGN S7 "COMMAND.VER"
  83.   ENDCASE
  84.   CASE "8"
  85.     ASSIGN S2 "9877940"
  86.   ;$ASSIGN S7 "COMMAND.VER"
  87.   ENDCASE
  88.   CASE "9"
  89.     ASSIGN S2 "XXXXXXX"
  90.   ;$ASSIGN S7 "COMMAND.VER"
  91.   ENDCASE
  92.   CASE "10"
  93.     ASSIGN S2 "XXXXXXX"
  94.   ;$ASSIGN S7 "COMMAND.VER"
  95.   ENDCASE
  96.   CASE "D"                   ;If the user enters "D",
  97.     EXECUTE "VERSA.CMD"      ; pass the parameter to VERSA.CMD
  98.   ENDCASE
  99.   CASE "E"                   ;If the user enters "E",
  100.     EXECUTE "VERSA.CMD"      ; pass the parameter to VERSA.CMD
  101.   ENDCASE
  102.   CASE "G"                   ;If the user enters "G",
  103.     EXECUTE "VERSA.CMD"      ; pass the parameter to VERSA.CMD
  104.   ENDCASE
  105.   DEFAULT                    ;Any other input should be a phone number,
  106.     ASSIGN S2 S9             ; so assign the input to S2
  107.   ENDCASE
  108. ENDSWITCH                    ;End of decision based on user input
  109. ASSIGN S9 "ACTIVE"           ;We're ready to dial, so make S9 "ACTIVE",
  110. EXECUTE "VERSA.CMD"          ; and go back to VERSA.CMD
  111.  
  112. MABOS:
  113. CLEAR                        ;Clear screen
  114. LOCATE 2,0                   ;Locate cursor for menu drawing
  115. MESSAGE "               ╒═════════╡ Boston BBS Directory (617) ╞═════════╕"
  116. MESSAGE "               │                                                │"
  117. MESSAGE "               │       -Board-                      -SIG-       │"
  118. MESSAGE "               │                                                │"
  119. MESSAGE "               │  < 1> Boston Computer Society                  │"
  120. MESSAGE "               │  < 2> Alpha Computer Society                   │"
  121. MESSAGE "               │  < 3> Wonderland BBS                           │"
  122. MESSAGE "               │  < 4> Harvard BBS                              │"
  123. MESSAGE "               │  < 5> Microcom's MNP                 MNP Info  │"
  124. MESSAGE "               │  < 6> Boston Fog                               │"
  125. MESSAGE "               │  < 7> PC Week FIDO                             │"
  126. MESSAGE "               │  < 8> The Billboard                            │"
  127. MESSAGE "               │  < 9> Northeastern Exchange                    │"
  128. MESSAGE "               │  <10>                                          │"
  129. MESSAGE "               │                                                │"
  130. MESSAGE "               │          <G>o back to city selection           │"
  131. MESSAGE "               │                                                │"
  132. MESSAGE "               ├────────────────────────────────────────────────┤"
  133. MESSAGE "               │  Enter 1-10 or other phone number:             │"
  134. MESSAGE "               ╘════════════════════════════════════════════════╛"
  135. LOCATE 20,52                 ;Locate cursor for user input
  136. GET S9 11                    ;Get user input (11 characters)
  137. SWITCH S9                    ;Decision based on S9 (user input)
  138.   CASE "1"                   ;All of the following 10 cases are identical.
  139.     ASSIGN S2 "2373750"      ; Each assigns the number of a BBS to S2 and the
  140.   ;$ASSIGN S7 "COMMAND.VER"  ; name of a "linked command file" to S7.  If no
  141.   ENDCASE                    ; linked command file is to be used, then a
  142.   CASE "2"                   ; semicolon should be at the beginning of the
  143.     ASSIGN S2 "2292915"      ; ASSIGN S7 line, or delete the line entirely.
  144.   ;$ASSIGN S7 "COMMAND.VER"
  145.   ENDCASE
  146.   CASE "3"
  147.     ASSIGN S2 "6653796"
  148.   ;$ASSIGN S7 "COMMAND.VER"
  149.   ENDCASE
  150.   CASE "4"
  151.     ASSIGN S2 "4984379"
  152.   ;$ASSIGN S7 "COMMAND.VER"
  153.   ENDCASE
  154.   CASE "5"
  155.     ASSIGN S2 "7699358"
  156.   ;$ASSIGN S7 "COMMAND.VER"
  157.   ENDCASE
  158.   CASE "6"
  159.     ASSIGN S2 "2884667"
  160.   ;$ASSIGN S7 "COMMAND.VER"
  161.   ENDCASE
  162.   CASE "7"
  163.     ASSIGN S2 "5361917"
  164.   ;$ASSIGN S7 "COMMAND.VER"
  165.   ENDCASE
  166.   CASE "8"
  167.     ASSIGN S2 "9658761"
  168.   ;$ASSIGN S7 "COMMAND.VER"
  169.   ENDCASE
  170.   CASE "9"
  171.     ASSIGN S2 "9653121"
  172.   ;$ASSIGN S7 "COMMAND.VER"
  173.   ENDCASE
  174.   CASE "10"
  175.     ASSIGN S2 "XXXXXXX"
  176.   ;$ASSIGN S7 "COMMAND.VER"
  177.   ENDCASE
  178.   CASE "D"                   ;If the user enters "D",
  179.     EXECUTE "VERSA.CMD"      ; pass the parameter to VERSA.CMD
  180.   ENDCASE
  181.   CASE "E"                   ;If the user enters "E",
  182.     EXECUTE "VERSA.CMD"      ; pass the parameter to VERSA.CMD
  183.   ENDCASE
  184.   CASE "G"                   ;If the user enters "G",
  185.     EXECUTE "VERSA.CMD"      ; pass the parameter to VERSA.CMD
  186.   ENDCASE
  187.   DEFAULT                    ;Any other input should be a phone number,
  188.     ASSIGN S2 S9             ; so assign the input to S2
  189.   ENDCASE
  190. ENDSWITCH                    ;End of decision based on user input
  191. ASSIGN S9 "ACTIVE"           ;We're ready to dial, so make S9 "ACTIVE",
  192. EXECUTE "VERSA.CMD"          ; and go back to VERSA.CMD
  193.  
  194. OHCLV:
  195. CLEAR                        ;Clear screen
  196. LOCATE 2,0                   ;Locate cursor for menu drawing
  197. MESSAGE "               ╒═══════╡ Cleveland BBS Directory  (216) ╞═══════╕"
  198. MESSAGE "               │                                                │"
  199. MESSAGE "               │       -Board-                      -SIG-       │"
  200. MESSAGE "               │                                                │"
  201. MESSAGE "               │  < 1> Cleveland RBBS                           │"
  202. MESSAGE "               │  < 2> InfoGuide                                │"
  203. MESSAGE "               │  < 3> InfoGuide (other line)                   │"
  204. MESSAGE "               │  < 4> Micro-Chip                               │"
  205. MESSAGE "               │  < 5> GCPCUG/JCU BBS                           │"
  206. MESSAGE "               │  < 6> The Machine                              │"
  207. MESSAGE "               │  < 7> Free-Net                                 │"
  208. MESSAGE "               │  < 8> Data-Term                                │"
  209. MESSAGE "               │  < 9> Dog House                                │"
  210. MESSAGE "               │  <10>                                          │"
  211. MESSAGE "               │                                                │"
  212. MESSAGE "               │          <G>o back to city selection           │"
  213. MESSAGE "               │                                                │"
  214. MESSAGE "               ├────────────────────────────────────────────────┤"
  215. MESSAGE "               │  Enter 1-10 or other phone number:             │"
  216. MESSAGE "               ╘════════════════════════════════════════════════╛"
  217. LOCATE 20,52                 ;Locate cursor for user input
  218. GET S9 11                    ;Get user input (11 characters)
  219. SWITCH S9                    ;Decision based on S9 (user input)
  220.   CASE "1"                   ;All of the following 10 cases are identical.
  221.     ASSIGN S2 "3313576"      ; Each assigns the number of a BBS to S2 and the
  222.   ;$ASSIGN S7 "COMMAND.VER"  ; name of a "linked command file" to S7.  If no
  223.   ENDCASE                    ; linked command file is to be used, then a
  224.   CASE "2"                   ; semicolon should be at the beginning of the
  225.     ASSIGN S2 "6213434"      ; ASSIGN S7 line, or delete the line entirely.
  226.   ;$ASSIGN S7 "COMMAND.VER"
  227.   ENDCASE
  228.   CASE "3"
  229.     ASSIGN S2 "6213435"
  230.   ;$ASSIGN S7 "COMMAND.VER"
  231.   ENDCASE
  232.   CASE "4"
  233.     ASSIGN S2 "2256130"
  234.   ;$ASSIGN S7 "COMMAND.VER"
  235.   ENDCASE
  236.   CASE "5"
  237.     ASSIGN S2 "3974256"
  238.   ;$ASSIGN S7 "COMMAND.VER"
  239.   ENDCASE
  240.   CASE "6"
  241.     ASSIGN S2 "2521288"
  242.   ;$ASSIGN S7 "COMMAND.VER"
  243.   ENDCASE
  244.   CASE "7"
  245.     ASSIGN S2 "3683888"
  246.   ;$ASSIGN S7 "COMMAND.VER"
  247.   ENDCASE
  248.   CASE "8"
  249.     ASSIGN S2 "5623263"
  250.   ;$ASSIGN S7 "COMMAND.VER"
  251.   ENDCASE
  252.   CASE "9"
  253.     ASSIGN S2 "2510110"
  254.   ;$ASSIGN S7 "COMMAND.VER"
  255.   ENDCASE
  256.   CASE "10"
  257.     ASSIGN S2 "XXXXXXX"
  258.   ;$ASSIGN S7 "COMMAND.VER"
  259.   ENDCASE
  260.   CASE "D"                   ;If the user enters "D",
  261.     EXECUTE "VERSA.CMD"      ; pass the parameter to VERSA.CMD
  262.   ENDCASE
  263.   CASE "E"                   ;If the user enters "E",
  264.     EXECUTE "VERSA.CMD"      ; pass the parameter to VERSA.CMD
  265.   ENDCASE
  266.   CASE "G"                   ;If the user enters "G",
  267.     EXECUTE "VERSA.CMD"      ; pass the parameter to VERSA.CMD
  268.   ENDCASE
  269.   DEFAULT                    ;Any other input should be a phone number,
  270.     ASSIGN S2 S9             ; so assign the input to S2
  271.   ENDCASE
  272. ENDSWITCH                    ;End of decision based on user input
  273. ASSIGN S9 "ACTIVE"           ;We're ready to dial, so make S9 "ACTIVE",
  274. EXECUTE "VERSA.CMD"          ; and go back to VERSA.CMD
  275.  
  276. MIDET:
  277. CLEAR                        ;Clear screen
  278. LOCATE 2,0                   ;Locate cursor for menu drawing
  279. MESSAGE "               ╒════════╡ Detroit BBS Directory  (313) ╞════════╕"
  280. MESSAGE "               │                                                │"
  281. MESSAGE "               │       -Board-                      -SIG-       │"
  282. MESSAGE "               │                                                │"
  283. MESSAGE "               │  < 1> PCUTIL                                   │"
  284. MESSAGE "               │  < 2> Freeform                                 │"
  285. MESSAGE "               │  < 3> East Area BBS                            │"
  286. MESSAGE "               │  < 4> Microchip                                │"
  287. MESSAGE "               │  < 5> 007's Computer Runway                    │"
  288. MESSAGE "               │  < 6> Daedalus                                 │"
  289. MESSAGE "               │  < 7> Arcade                                   │"
  290. MESSAGE "               │  < 8> 23 Cutting Board                         │"
  291. MESSAGE "               │  < 9> Bit Bucket                               │"
  292. MESSAGE "               │  <10>                                          │"
  293. MESSAGE "               │                                                │"
  294. MESSAGE "               │          <G>o back to city selection           │"
  295. MESSAGE "               │                                                │"
  296. MESSAGE "               ├────────────────────────────────────────────────┤"
  297. MESSAGE "               │  Enter 1-10 or other phone number:             │"
  298. MESSAGE "               ╘════════════════════════════════════════════════╛"
  299. LOCATE 20,52                 ;Locate cursor for user input
  300. GET S9 11                    ;Get user input (11 characters)
  301. SWITCH S9                    ;Decision based on S9 (user input)
  302.   CASE "1"                   ;All of the following 10 cases are identical.
  303.     ASSIGN S2 "3930527"      ; Each assigns the number of a BBS to S2 and the
  304.   ;$ASSIGN S7 "COMMAND.VER"  ; name of a "linked command file" to S7.  If no
  305.   ENDCASE                    ; linked command file is to be used, then a
  306.   CASE "2"                   ; semicolon should be at the beginning of the
  307.     ASSIGN S2 "7747258"      ; ASSIGN S7 line, or delete the line entirely.
  308.   ;$ASSIGN S7 "COMMAND.VER"
  309.   ENDCASE
  310.   CASE "3"
  311.     ASSIGN S2 "9496665"
  312.   ;$ASSIGN S7 "COMMAND.VER"
  313.   ENDCASE
  314.   CASE "4"
  315.     ASSIGN S2 "9496745"
  316.   ;$ASSIGN S7 "COMMAND.VER"
  317.   ENDCASE
  318.   CASE "5"
  319.     ASSIGN S2 "3488535"
  320.   ;$ASSIGN S7 "COMMAND.VER"
  321.   ENDCASE
  322.   CASE "6"
  323.     ASSIGN S2 "9331425"
  324.   ;$ASSIGN S7 "COMMAND.VER"
  325.   ENDCASE
  326.   CASE "7"
  327.     ASSIGN S2 "9788087"
  328.   ;$ASSIGN S7 "COMMAND.VER"
  329.   ENDCASE
  330.   CASE "8"
  331.     ASSIGN S2 "2917716"
  332.   ;$ASSIGN S7 "COMMAND.VER"
  333.   ENDCASE
  334.   CASE "9"
  335.     ASSIGN S2 "3430877"
  336.   ;$ASSIGN S7 "COMMAND.VER"
  337.   ENDCASE
  338.   CASE "10"
  339.     ASSIGN S2 "XXXXXXX"
  340.   ;$ASSIGN S7 "COMMAND.VER"
  341.   ENDCASE
  342.   CASE "D"                   ;If the user enters "D",
  343.     EXECUTE "VERSA.CMD"      ; pass the parameter to VERSA.CMD
  344.   ENDCASE
  345.   CASE "E"                   ;If the user enters "E",
  346.     EXECUTE "VERSA.CMD"      ; pass the parameter to VERSA.CMD
  347.   ENDCASE
  348.   CASE "G"                   ;If the user enters "G",
  349.     EXECUTE "VERSA.CMD"      ; pass the parameter to VERSA.CMD
  350.   ENDCASE
  351.   DEFAULT                    ;Any other input should be a phone number,
  352.     ASSIGN S2 S9             ; so assign the input to S2
  353.   ENDCASE
  354. ENDSWITCH                    ;End of decision based on user input
  355. ASSIGN S9 "ACTIVE"           ;We're ready to dial, so make S9 "ACTIVE",
  356. EXECUTE "VERSA.CMD"          ; and go back to VERSA.CMD
  357.  
  358. CTHAR:
  359. CLEAR                        ;Clear screen
  360. LOCATE 2,0                   ;Locate cursor for menu drawing
  361. MESSAGE "               ╒════════╡ Hartford BBS Directory (203) ╞════════╕"
  362. MESSAGE "               │                                                │"
  363. MESSAGE "               │       -Board-                      -SIG-       │"
  364. MESSAGE "               │                                                │"
  365. MESSAGE "               │  < 1>                                          │"
  366. MESSAGE "               │  < 2>                                          │"
  367. MESSAGE "               │  < 3>                                          │"
  368. MESSAGE "               │  < 4>                                          │"
  369. MESSAGE "               │  < 5>                                          │"
  370. MESSAGE "               │  < 6>                                          │"
  371. MESSAGE "               │  < 7>                                          │"
  372. MESSAGE "               │  < 8>                                          │"
  373. MESSAGE "               │  < 9>                                          │"
  374. MESSAGE "               │  <10>                                          │"
  375. MESSAGE "               │                                                │"
  376. MESSAGE "               │          <G>o back to city selection           │"
  377. MESSAGE "               │                                                │"
  378. MESSAGE "               ├────────────────────────────────────────────────┤"
  379. MESSAGE "               │  Enter 1-10 or other phone number:             │"
  380. MESSAGE "               ╘════════════════════════════════════════════════╛"
  381. LOCATE 20,52                 ;Locate cursor for user input
  382. GET S9 11                    ;Get user input (11 characters)
  383. SWITCH S9                    ;Decision based on S9 (user input)
  384.   CASE "1"                   ;All of the following 10 cases are identical.
  385.     ASSIGN S2 "XXXXXXX"      ; Each assigns the number of a BBS to S2 and the
  386.   ;$ASSIGN S7 "COMMAND.VER"  ; name of a "linked command file" to S7.  If no
  387.   ENDCASE                    ; linked command file is to be used, then a
  388.   CASE "2"                   ; semicolon should be at the beginning of the
  389.     ASSIGN S2 "XXXXXXX"      ; ASSIGN S7 line, or delete the line entirely.
  390.   ;$ASSIGN S7 "COMMAND.VER"
  391.   ENDCASE
  392.   CASE "3"
  393.     ASSIGN S2 "XXXXXXX"
  394.   ;$ASSIGN S7 "COMMAND.VER"
  395.   ENDCASE
  396.   CASE "4"
  397.     ASSIGN S2 "XXXXXXX"
  398.   ;$ASSIGN S7 "COMMAND.VER"
  399.   ENDCASE
  400.   CASE "5"
  401.     ASSIGN S2 "XXXXXXX"
  402.   ;$ASSIGN S7 "COMMAND.VER"
  403.   ENDCASE
  404.   CASE "6"
  405.     ASSIGN S2 "XXXXXXX"
  406.   ;$ASSIGN S7 "COMMAND.VER"
  407.   ENDCASE
  408.   CASE "7"
  409.     ASSIGN S2 "XXXXXXX"
  410.   ;$ASSIGN S7 "COMMAND.VER"
  411.   ENDCASE
  412.   CASE "8"
  413.     ASSIGN S2 "XXXXXXX"
  414.   ;$ASSIGN S7 "COMMAND.VER"
  415.   ENDCASE
  416.   CASE "9"
  417.     ASSIGN S2 "XXXXXXX"
  418.   ;$ASSIGN S7 "COMMAND.VER"
  419.   ENDCASE
  420.   CASE "10"
  421.     ASSIGN S2 "XXXXXXX"
  422.   ;$ASSIGN S7 "COMMAND.VER"
  423.   ENDCASE
  424.   CASE "D"                   ;If the user enters "D",
  425.     EXECUTE "VERSA.CMD"      ; pass the parameter to VERSA.CMD
  426.   ENDCASE
  427.   CASE "E"                   ;If the user enters "E",
  428.     EXECUTE "VERSA.CMD"      ; pass the parameter to VERSA.CMD
  429.   ENDCASE
  430.   CASE "G"                   ;If the user enters "G",
  431.     EXECUTE "VERSA.CMD"      ; pass the parameter to VERSA.CMD
  432.   ENDCASE
  433.   DEFAULT                    ;Any other input should be a phone number,
  434.     ASSIGN S2 S9             ; so assign the input to S2
  435.   ENDCASE
  436. ENDSWITCH                    ;End of decision based on user input
  437. ASSIGN S9 "ACTIVE"           ;We're ready to dial, so make S9 "ACTIVE",
  438. EXECUTE "VERSA.CMD"          ; and go back to VERSA.CMD
  439.  
  440. FLMIA:
  441. CLEAR                        ;Clear screen
  442. LOCATE 2,0                   ;Locate cursor for menu drawing
  443. MESSAGE "               ╒═════════╡ Miami BBS Directory  (305) ╞═════════╕"
  444. MESSAGE "               │                                                │"
  445. MESSAGE "               │       -Board-                      -SIG-       │"
  446. MESSAGE "               │                                                │"
  447. MESSAGE "               │  < 1> Adults Only II                           │"
  448. MESSAGE "               │  < 2> Miami PC Network                         │"
  449. MESSAGE "               │  < 3> Miami Users Group                        │"
  450. MESSAGE "               │  < 4> The Kendall Switchboard                  │"
  451. MESSAGE "               │  < 5> CompuSci Fido                            │"
  452. MESSAGE "               │  < 6> Genesis BBS                              │"
  453. MESSAGE "               │  < 7> John Galt Line                           │"
  454. MESSAGE "               │  < 8> Miami Dade Fido                          │"
  455. MESSAGE "               │  < 9>                                          │"
  456. MESSAGE "               │  <10>                                          │"
  457. MESSAGE "               │                                                │"
  458. MESSAGE "               │          <G>o back to city selection           │"
  459. MESSAGE "               │                                                │"
  460. MESSAGE "               ├────────────────────────────────────────────────┤"
  461. MESSAGE "               │  Enter 1-10 or other phone number:             │"
  462. MESSAGE "               ╘════════════════════════════════════════════════╛"
  463. LOCATE 20,52                 ;Locate cursor for user input
  464. GET S9 11                    ;Get user input (11 characters)
  465. SWITCH S9                    ;Decision based on S9 (user input)
  466.   CASE "1"                   ;All of the following 10 cases are identical.
  467.     ASSIGN S2 "5944526"      ; Each assigns the number of a BBS to S2 and the
  468.   ;$ASSIGN S7 "COMMAND.VER"  ; name of a "linked command file" to S7.  If no
  469.   ENDCASE                    ; linked command file is to be used, then a
  470.   CASE "2"                   ; semicolon should be at the beginning of the
  471.     ASSIGN S2 "9354964"      ; ASSIGN S7 line, or delete the line entirely.
  472.   ;$ASSIGN S7 "COMMAND.VER"
  473.   ENDCASE
  474.   CASE "3"
  475.     ASSIGN S2 "6217534"
  476.   ;$ASSIGN S7 "COMMAND.VER"
  477.   ENDCASE
  478.   CASE "4"
  479.     ASSIGN S2 "2712146"
  480.   ;$ASSIGN S7 "COMMAND.VER"
  481.   ENDCASE
  482.   CASE "5"
  483.     ASSIGN S2 "7584871"
  484.   ;$ASSIGN S7 "COMMAND.VER"
  485.   ENDCASE
  486.   CASE "6"
  487.     ASSIGN S2 "8952998"
  488.   ;$ASSIGN S7 "COMMAND.VER"
  489.   ENDCASE
  490.   CASE "7"
  491.     ASSIGN S2 "2351645"
  492.   ;$ASSIGN S7 "COMMAND.VER"
  493.   ENDCASE
  494.   CASE "8"
  495.     ASSIGN S2 "3472970"
  496.   ;$ASSIGN S7 "COMMAND.VER"
  497.   ENDCASE
  498.   CASE "9"
  499.     ASSIGN S2 "XXXXXXX"
  500.   ;$ASSIGN S7 "COMMAND.VER"
  501.   ENDCASE
  502.   CASE "10"
  503.     ASSIGN S2 "XXXXXXX"
  504.   ;$ASSIGN S7 "COMMAND.VER"
  505.   ENDCASE
  506.   CASE "D"                   ;If the user enters "D",
  507.     EXECUTE "VERSA.CMD"      ; pass the parameter to VERSA.CMD
  508.   ENDCASE
  509.   CASE "E"                   ;If the user enters "E",
  510.     EXECUTE "VERSA.CMD"      ; pass the parameter to VERSA.CMD
  511.   ENDCASE
  512.   CASE "G"                   ;If the user enters "G",
  513.     EXECUTE "VERSA.CMD"      ; pass the parameter to VERSA.CMD
  514.   ENDCASE
  515.   DEFAULT                    ;Any other input should be a phone number,
  516.     ASSIGN S2 S9             ; so assign the input to S2
  517.   ENDCASE
  518. ENDSWITCH                    ;End of decision based on user input
  519. ASSIGN S9 "ACTIVE"           ;We're ready to dial, so make S9 "ACTIVE",
  520. EXECUTE "VERSA.CMD"          ; and go back to VERSA.CMD
  521.  
  522. NJNEW:
  523. CLEAR                        ;Clear screen
  524. LOCATE 2,0                   ;Locate cursor for menu drawing
  525. MESSAGE "               ╒═════════╡ Newark BBS Directory (201) ╞═════════╕"
  526. MESSAGE "               │                                                │"
  527. MESSAGE "               │       -Board-                      -SIG-       │"
  528. MESSAGE "               │                                                │"
  529. MESSAGE "               │  < 1> Microsellar               120 Megabytes  │"
  530. MESSAGE "               │  < 2> Hotel California                         │"
  531. MESSAGE "               │  < 3> SEA Board                   Home of ARC  │"
  532. MESSAGE "               │  < 4> Sparta                   Hard Disk Info  │"
  533. MESSAGE "               │  < 5> The Data Base     123, dBase, Framework  │"
  534. MESSAGE "               │  < 6> BOSS BBS                                 │"
  535. MESSAGE "               │  < 7> Shelter                                  │"
  536. MESSAGE "               │  < 8> Ed Gelb's                                │"
  537. MESSAGE "               │  < 9>                                          │"
  538. MESSAGE "               │  <10>                                          │"
  539. MESSAGE "               │                                                │"
  540. MESSAGE "               │          <G>o back to city selection           │"
  541. MESSAGE "               │                                                │"
  542. MESSAGE "               ├────────────────────────────────────────────────┤"
  543. MESSAGE "               │  Enter 1-10 or other phone number:             │"
  544. MESSAGE "               ╘════════════════════════════════════════════════╛"
  545. LOCATE 20,52                 ;Locate cursor for user input
  546. GET S9 11                    ;Get user input (11 characters)
  547. SWITCH S9                    ;Decision based on S9 (user input)
  548.   CASE "1"                   ;All of the following 10 cases are identical.
  549.     ASSIGN S2 "2391346"      ; Each assigns the number of a BBS to S2 and the
  550.   ;$ASSIGN S7 "COMMAND.VER"  ; name of a "linked command file" to S7.  If no
  551.   ENDCASE                    ; linked command file is to be used, then a
  552.   CASE "2"                   ; semicolon should be at the beginning of the
  553.     ASSIGN S2 "3278245"      ; ASSIGN S7 line, or delete the line entirely.
  554.   ;$ASSIGN S7 "COMMAND.VER"
  555.   ENDCASE
  556.   CASE "3"
  557.     ASSIGN S2 "6943348"
  558.   ;$ASSIGN S7 "COMMAND.VER"
  559.   ENDCASE
  560.   CASE "4"
  561.     ASSIGN S2 "7295377"
  562.   ;$ASSIGN S7 "COMMAND.VER"
  563.   ENDCASE
  564.   CASE "5"
  565.     ASSIGN S2 "9435419"
  566.   ;$ASSIGN S7 "COMMAND.VER"
  567.   ENDCASE
  568.   CASE "6"
  569.     ASSIGN S2 "5687293"
  570.   ;$ASSIGN S7 "COMMAND.VER"
  571.   ENDCASE
  572.   CASE "7"
  573.     ASSIGN S2 "7837458"
  574.   ;$ASSIGN S7 "COMMAND.VER"
  575.   ENDCASE
  576.   CASE "8"
  577.     ASSIGN S2 "6947425"
  578.   ;$ASSIGN S7 "COMMAND.VER"
  579.   ENDCASE
  580.   CASE "9"
  581.     ASSIGN S2 "XXXXXXX"
  582.   ;$ASSIGN S7 "COMMAND.VER"
  583.   ENDCASE
  584.   CASE "10"
  585.     ASSIGN S2 "XXXXXXX"
  586.   ;$ASSIGN S7 "COMMAND.VER"
  587.   ENDCASE
  588.   CASE "D"                   ;If the user enters "D",
  589.     EXECUTE "VERSA.CMD"      ; pass the parameter to VERSA.CMD
  590.   ENDCASE
  591.   CASE "E"                   ;If the user enters "E",
  592.     EXECUTE "VERSA.CMD"      ; pass the parameter to VERSA.CMD
  593.   ENDCASE
  594.   CASE "G"                   ;If the user enters "G",
  595.     EXECUTE "VERSA.CMD"      ; pass the parameter to VERSA.CMD
  596.   ENDCASE
  597.   DEFAULT                    ;Any other input should be a phone number,
  598.     ASSIGN S2 S9             ; so assign the input to S2
  599.   ENDCASE
  600. ENDSWITCH                    ;End of decision based on user input
  601. ASSIGN S9 "ACTIVE"           ;We're ready to dial, so make S9 "ACTIVE",
  602. EXECUTE "VERSA.CMD"          ; and go back to VERSA.CMD
  603.