Category : Communication (modem) tools and utilities
Archive   : VERSA11.ZIP
Filename : VERSA1-C.MNU
;VERSA1-C.MNU
;This is the menu file for the six cities listed below. It is executed
;when any of these six area codes are selected by the user.
;This file is NOT TO BE USED DURING EXECUTION! There is an optimized version
;of this file for use.
;========== SELECT ==========
;This code segment determines which menu will be drawn.
SELECT:
SWITCH S1 ;Decision based on selected area code
CASE "404"
GOTO ATLANTA ;All six cases are more or less identical.
ENDCASE ;Each performs a GOTO to the proper label
CASE "617" ;associated with each area code.
GOTO BOSTON
ENDCASE
CASE "216"
GOTO CLEVELAND
ENDCASE
CASE "313"
GOTO DETROIT
ENDCASE
CASE "305"
GOTO MIAMI
ENDCASE
CASE "201"
GOTO NEWARK
ENDCASE
DEFAULT ;If S2 equals anything else, it's an error
ASSIGN S9 "ERROR" ;Put this in S9 . . .
EXECUTE "VERSA.CMD" ;Go back to VERSA (which will terminate)
ENDCASE
ENDSWITCH
;========== ATLANTA ==========
ATLANTA:
CLEAR ;Clear the screen for menu drawing
LOCATE 2,0 ;Locate the cursor for menu drawing
MESSAGE " ÕÍÍÍÍÍÍÍ͵ Atlanta BBS Directory (404) ÆÍÍÍÍÍÍÍ͸"
MESSAGE " ³ ³"
MESSAGE " ³ -Board- -SIG- ³"
MESSAGE " ³ ³"
MESSAGE " ³ < 1> GBBS ³"
MESSAGE " ³ < 2> Flagship BBS ³"
MESSAGE " ³ < 3> Atlanta PCUG Unprotects ³"
MESSAGE " ³ < 4> T. J.'s ³"
MESSAGE " ³ < 5> Kahn's BBS Artificial Intelligence ³"
MESSAGE " ³ < 6> Southside BBS ³"
MESSAGE " ³ < 7> Gumby's Place ³"
MESSAGE " ³ < 8> La Chateau ³"
MESSAGE " ³ < 9> ³"
MESSAGE " ³ <10> ³"
MESSAGE " ³ ³"
MESSAGE " ³
MESSAGE " ³ ³"
MESSAGE " ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´"
MESSAGE " ³ Enter 1-10 or other BBS phone number: ³"
MESSAGE " ÔÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ;"
LOCATE 20,56 ;Locate cursor for user input
GET S9 7 ;User input (7 characters)
SWITCH S9 ;Decision based on user input
CASE "1"
ASSIGN S2 "4576815" ;Cases 1 through 10 are identical. Each
;ASSIGN S7 "COMMAND.VER" ;assigns a phone number to be dialed to
ENDCASE ;S2, and a command file to be executed on
CASE "2" ;connect to S7 (the command file is
ASSIGN S2 "9346299" ;optional).
;ASSIGN S7 "COMMAND.VER"
ENDCASE
CASE "3"
ASSIGN S2 "4330062"
;ASSIGN S7 "COMMAND.VER"
ENDCASE
CASE "4"
ASSIGN S2 "3921756"
;ASSIGN S7 "COMMAND.VER"
ENDCASE
CASE "5"
ASSIGN S2 "9346299"
;ASSIGN S7 "COMMAND.VER"
ENDCASE
CASE "6"
ASSIGN S2 "7670092"
;ASSIGN S7 "COMMAND.VER"
ENDCASE
CASE "7"
ASSIGN S2 "9396569"
;ASSIGN S7 "COMMAND.VER"
ENDCASE
CASE "8"
ASSIGN S2 "9877940"
;ASSIGN S7 "COMMAND.VER"
ENDCASE
CASE "9"
ASSIGN S2 "XXXXXXX"
;ASSIGN S7 "COMMAND.VER"
ENDCASE
CASE "10"
ASSIGN S2 "XXXXXXX"
;ASSIGN S7 "COMMAND.VER"
ENDCASE
CASE "D" ;If user enters "D" . . .
EXECUTE "VERSA.CMD" ;Leave the "D" in S9, execute VERSA
ENDCASE
CASE "E" ;If user enters "E" . . .
EXECUTE "VERSA.CMD" ;Leave the "E" in S9, execute VERSA
ENDCASE
CASE "G" ;If user enters "G" . . .
EXECUTE "VERSA.CMD" ;Leave the "G" in S9, execute VERSA
ENDCASE
DEFAULT ;Any other input should be a phone number
ASSIGN S2 S9 ;Assign the user input to S2
ENDCASE
ENDSWITCH ;All possibilities covered
ASSIGN S9 "ACTIVE" ;Finally, put "ACTIVE" in S9 . . .
EXECUTE "VERSA.CMD" ;And go back to VERSA
;========== BOSTON ==========
BOSTON:
CLEAR ;Clear the screen for menu drawing
LOCATE 2,0 ;Locate the cursor for menu drawing
MESSAGE " ÕÍÍÍÍÍÍÍÍ͵ Boston BBS Directory (617) ÆÍÍÍÍÍÍÍÍ͸"
MESSAGE " ³ ³"
MESSAGE " ³ -Board- -SIG- ³"
MESSAGE " ³ ³"
MESSAGE " ³ < 1> Boston Computer Society ³"
MESSAGE " ³ < 2> Alpha Computer Society ³"
MESSAGE " ³ < 3> Wonderland BBS ³"
MESSAGE " ³ < 4> Harvard BBS ³"
MESSAGE " ³ < 5> Microcom's MNP MNP Info ³"
MESSAGE " ³ < 6> Boston Fog ³"
MESSAGE " ³ < 7> PC Week FIDO ³"
MESSAGE " ³ < 8> The Billboard ³"
MESSAGE " ³ < 9> Northeastern Exchange ³"
MESSAGE " ³ <10> ³"
MESSAGE " ³ ³"
MESSAGE " ³
MESSAGE " ³ ³"
MESSAGE " ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´"
MESSAGE " ³ Enter 1-10 or other BBS phone number: ³"
MESSAGE " ÔÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ;"
LOCATE 20,56 ;Locate cursor for user input
GET S9 7 ;User input (7 characters)
SWITCH S9 ;Decision based on user input
CASE "1"
ASSIGN S2 "2373750" ;Cases 1 through 10 are identical. Each
;ASSIGN S7 "COMMAND.VER" ;assigns a phone number to be dialed to
ENDCASE ;S2, and a command file to be executed on
CASE "2" ;connect to S7 (the command file is
ASSIGN S2 "2292915" ;optional).
;ASSIGN S7 "COMMAND.VER"
ENDCASE
CASE "3"
ASSIGN S2 "6653796"
;ASSIGN S7 "COMMAND.VER"
ENDCASE
CASE "4"
ASSIGN S2 "4984379"
;ASSIGN S7 "COMMAND.VER"
ENDCASE
CASE "5"
ASSIGN S2 "7699358"
;ASSIGN S7 "COMMAND.VER"
ENDCASE
CASE "6"
ASSIGN S2 "2884667"
;ASSIGN S7 "COMMAND.VER"
ENDCASE
CASE "7"
ASSIGN S2 "5361917"
;ASSIGN S7 "COMMAND.VER"
ENDCASE
CASE "8"
ASSIGN S2 "9658761"
;ASSIGN S7 "COMMAND.VER"
ENDCASE
CASE "9"
ASSIGN S2 "9653121"
;ASSIGN S7 "COMMAND.VER"
ENDCASE
CASE "10"
ASSIGN S2 "XXXXXXX"
;ASSIGN S7 "COMMAND.VER"
ENDCASE
CASE "D" ;If user enters "D" . . .
EXECUTE "VERSA.CMD" ;Leave the "D" in S9, execute VERSA
ENDCASE
CASE "E" ;If user enters "E" . . .
EXECUTE "VERSA.CMD" ;Leave the "E" in S9, execute VERSA
ENDCASE
CASE "G" ;If user enters "G" . . .
EXECUTE "VERSA.CMD" ;Leave the "G" in S9, execute VERSA
ENDCASE
DEFAULT ;Any other input should be a phone number
ASSIGN S2 S9 ;Assign user input to S2
ENDCASE
ENDSWITCH
ASSIGN S9 "ACTIVE" ;Finally, put "ACTIVE" in S9 . . .
EXECUTE "VERSA.CMD" ;And go back to VERSA
;========== CLEVELAND ==========
CLEVELAND:
CLEAR ;Clear the screen for menu drawing
LOCATE 2,0 ;Locate the cursor for menu drawing
MESSAGE " ÕÍÍÍÍÍÍ͵ Cleveland BBS Directory (216) ÆÍÍÍÍÍÍ͸"
MESSAGE " ³ ³"
MESSAGE " ³ -Board- -SIG- ³"
MESSAGE " ³ ³"
MESSAGE " ³ < 1> Cleveland RBBS ³"
MESSAGE " ³ < 2> InfoGuide ³"
MESSAGE " ³ < 3> InfoGuide (other line) ³"
MESSAGE " ³ < 4> Micro-Chip ³"
MESSAGE " ³ < 5> GCPCUG/JCU BBS ³"
MESSAGE " ³ < 6> The Machine ³"
MESSAGE " ³ < 7> Free-Net ³"
MESSAGE " ³ < 8> Data-Term ³"
MESSAGE " ³ < 9> Dog House ³"
MESSAGE " ³ <10> ³"
MESSAGE " ³ ³"
MESSAGE " ³
MESSAGE " ³ ³"
MESSAGE " ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´"
MESSAGE " ³ Enter 1-10 or other BBS phone number: ³"
MESSAGE " ÔÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ;"
LOCATE 20,56 ;Locate cursor for user input
GET S9 7 ;User input (7 characters)
SWITCH S9 ;Decision based on user input
CASE "1"
ASSIGN S2 "3313576" ;Cases 1 through 10 are identical. Each
;ASSIGN S7 "COMMAND.VER" ;assigns a phone number to be dialed to
ENDCASE ;S2, and a command file to be executed on
CASE "2" ;connect to S7 (the command file is
ASSIGN S2 "6213434" ;optional).
;ASSIGN S7 "COMMAND.VER"
ENDCASE
CASE "3"
ASSIGN S2 "6213435"
;ASSIGN S7 "COMMAND.VER"
ENDCASE
CASE "4"
ASSIGN S2 "2256130"
;ASSIGN S7 "COMMAND.VER"
ENDCASE
CASE "5"
ASSIGN S2 "3974256"
;ASSIGN S7 "COMMAND.VER"
ENDCASE
CASE "6"
ASSIGN S2 "2521288"
;ASSIGN S7 "COMMAND.VER"
ENDCASE
CASE "7"
ASSIGN S2 "3683888"
;ASSIGN S7 "COMMAND.VER"
ENDCASE
CASE "8"
ASSIGN S2 "5623263"
;ASSIGN S7 "COMMAND.VER"
ENDCASE
CASE "9"
ASSIGN S2 "2510110"
;ASSIGN S7 "COMMAND.VER"
ENDCASE
CASE "10"
ASSIGN S2 "XXXXXXX"
;ASSIGN S7 "COMMAND.VER"
ENDCASE
CASE "D" ;If user enters "D" . . .
EXECUTE "VERSA.CMD" ;Leave the "D" in S9, execute VERSA
ENDCASE
CASE "E" ;If user enters "E" . . .
EXECUTE "VERSA.CMD" ;Leave the "E" in S9, execute VERSA
ENDCASE
CASE "G" ;If user enters "G" . . .
EXECUTE "VERSA.CMD" ;Leave the "G" in S9, execute VERSA
ENDCASE
DEFAULT ;Any other input should be a phone number
ASSIGN S2 S9 ;Assign user input to S2
ENDCASE
ENDSWITCH ;All possibilities covered
ASSIGN S9 "ACTIVE" ;Finally, put "ACTIVE" in S9 . . .
EXECUTE "VERSA.CMD" ;And go back to VERSA
;========== DETROIT ==========
DETROIT:
CLEAR ;Clear the screen for menu drawing
LOCATE 2,0 ;Locate the cursor for menu drawing
MESSAGE " ÕÍÍÍÍÍÍÍ͵ Detroit BBS Directory (313) ÆÍÍÍÍÍÍÍ͸"
MESSAGE " ³ ³"
MESSAGE " ³ -Board- -SIG- ³"
MESSAGE " ³ ³"
MESSAGE " ³ < 1> PCUTIL ³"
MESSAGE " ³ < 2> Freeform ³"
MESSAGE " ³ < 3> East Area BBS ³"
MESSAGE " ³ < 4> Microchip ³"
MESSAGE " ³ < 5> 007's Computer Runway ³"
MESSAGE " ³ < 6> Daedalus ³"
MESSAGE " ³ < 7> Arcade ³"
MESSAGE " ³ < 8> 23 Cutting Board ³"
MESSAGE " ³ < 9> Bit Bucket ³"
MESSAGE " ³ <10> ³"
MESSAGE " ³ ³"
MESSAGE " ³
MESSAGE " ³ ³"
MESSAGE " ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´"
MESSAGE " ³ Enter 1-10 or other BBS phone number: ³"
MESSAGE " ÔÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ;"
LOCATE 20,56 ;Locate cursor for user input
GET S9 7 ;User input (7 characters)
SWITCH S9 ;Decision based on user input
CASE "1"
ASSIGN S2 "3930527" ;Cases 1 through 10 are identical. Each
;ASSIGN S7 "COMMAND.VER" ;assigns a phone number to be dialed to
ENDCASE ;S2, and a command file to be executed on
CASE "2" ;connect to S7 (the command file is
ASSIGN S2 "7747258" ;optional).
;ASSIGN S7 "COMMAND.VER"
ENDCASE
CASE "3"
ASSIGN S2 "9496665"
;ASSIGN S7 "COMMAND.VER"
ENDCASE
CASE "4"
ASSIGN S2 "9496745"
;ASSIGN S7 "COMMAND.VER"
ENDCASE
CASE "5"
ASSIGN S2 "3488535"
;ASSIGN S7 "COMMAND.VER"
ENDCASE
CASE "6"
ASSIGN S2 "9331425"
;ASSIGN S7 "COMMAND.VER"
ENDCASE
CASE "7"
ASSIGN S2 "9788087"
;ASSIGN S7 "COMMAND.VER"
ENDCASE
CASE "8"
ASSIGN S2 "2917716"
;ASSIGN S7 "COMMAND.VER"
ENDCASE
CASE "9"
ASSIGN S2 "3430877"
;ASSIGN S7 "COMMAND.VER"
ENDCASE
CASE "10"
ASSIGN S2 "XXXXXXX"
;ASSIGN S7 "COMMAND.VER"
ENDCASE
CASE "D" ;If user enters "D" . . .
EXECUTE "VERSA.CMD" ;Leave the "D" in S9, execute VERSA
ENDCASE
CASE "E" ;If user enters "E" . . .
EXECUTE "VERSA.CMD" ;Leave the "E" in S9, execute VERSA
ENDCASE
CASE "G" ;If user enters "G" . . .
EXECUTE "VERSA.CMD" ;Leave the "G" in S9, execute VERSA
ENDCASE
DEFAULT ;Any other input should be a phone number
ASSIGN S2 S9 ;Assign user input to S2
ENDCASE
ENDSWITCH ;All possibilities covered
ASSIGN S9 "ACTIVE" ;Finally, put "ACTIVE" in S9 . . .
EXECUTE "VERSA.CMD" ;And go back to VERSA
;========== MIAMI ==========
MIAMI:
CLEAR ;Clear the screen for menu drawing
LOCATE 2,0 ;Locate the cursor for menu drawing
MESSAGE " ÕÍÍÍÍÍÍÍÍ͵ Miami BBS Directory (305) ÆÍÍÍÍÍÍÍÍ͸"
MESSAGE " ³ ³"
MESSAGE " ³ -Board- -SIG- ³"
MESSAGE " ³ ³"
MESSAGE " ³ < 1> Adults Only II ³"
MESSAGE " ³ < 2> Miami PC Network ³"
MESSAGE " ³ < 3> Miami Users Group ³"
MESSAGE " ³ < 4> The Kendall Switchboard ³"
MESSAGE " ³ < 5> CompuSci Fido ³"
MESSAGE " ³ < 6> Genesis BBS ³"
MESSAGE " ³ < 7> John Galt Line ³"
MESSAGE " ³ < 8> Miami Dade Fido ³"
MESSAGE " ³ < 9> ³"
MESSAGE " ³ <10> ³"
MESSAGE " ³ ³"
MESSAGE " ³
MESSAGE " ³ ³"
MESSAGE " ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´"
MESSAGE " ³ Enter 1-10 or other BBS phone number: ³"
MESSAGE " ÔÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ;"
LOCATE 20,56 ;Locate cursor for user input
GET S9 7 ;User input (7 characters)
SWITCH S9 ;Decision based on user input
CASE "1"
ASSIGN S2 "5944526" ;Cases 1 through 10 are identical. Each
;ASSIGN S7 "COMMAND.VER" ;assigns a phone number to be dialed to
ENDCASE ;S2, and a command file to be executed on
CASE "2" ;connect to S7 (the command file is
ASSIGN S2 "9354964" ;optional).
;ASSIGN S7 "COMMAND.VER"
ENDCASE
CASE "3"
ASSIGN S2 "6217534"
;ASSIGN S7 "COMMAND.VER"
ENDCASE
CASE "4"
ASSIGN S2 "2712146"
;ASSIGN S7 "COMMAND.VER"
ENDCASE
CASE "5"
ASSIGN S2 "7584871"
;ASSIGN S7 "COMMAND.VER"
ENDCASE
CASE "6"
ASSIGN S2 "8952998"
;ASSIGN S7 "COMMAND.VER"
ENDCASE
CASE "7"
ASSIGN S2 "2351645"
;ASSIGN S7 "COMMAND.VER"
ENDCASE
CASE "8"
ASSIGN S2 "3472970"
;ASSIGN S7 "COMMAND.VER"
ENDCASE
CASE "9"
ASSIGN S2 "XXXXXXX"
;ASSIGN S7 "COMMAND.VER"
ENDCASE
CASE "10"
ASSIGN S2 "XXXXXXX"
;ASSIGN S7 "COMMAND.VER"
ENDCASE
CASE "D" ;If user enters "D" . . .
EXECUTE "VERSA.CMD" ;Leave the "D" in S9, execute VERSA
ENDCASE
CASE "E" ;If user enters "E" . . .
EXECUTE "VERSA.CMD" ;Leave the "E" in S9, execute VERSA
ENDCASE
CASE "G" ;If user enters "G" . . .
EXECUTE "VERSA.CMD" ;Leave the "G" in S9, execute VERSA
ENDCASE
DEFAULT ;Any other input should be a phone number
ASSIGN S2 S9 ;Assign user input to S2
ENDCASE
ENDSWITCH ;All possibilities covered
ASSIGN S9 "ACTIVE" ;Finally, put "ACTIVE" in S9 . . .
EXECUTE "VERSA.CMD" ;And go back to VERSA
;========== NEWARK ==========
NEWARK:
CLEAR ;Clear the screen for menu drawing
LOCATE 2,0 ;Locate the cursor for menu drawing
MESSAGE " ÕÍÍÍÍÍÍÍÍ͵ Newark BBS Directory (201) ÆÍÍÍÍÍÍÍÍ͸"
MESSAGE " ³ ³"
MESSAGE " ³ -Board- -SIG- ³"
MESSAGE " ³ ³"
MESSAGE " ³ < 1> Microsellar 120 Megabytes ³"
MESSAGE " ³ < 2> Hotel California ³"
MESSAGE " ³ < 3> SEA Board Home of ARC ³"
MESSAGE " ³ < 4> Sparta Hard Disk Info ³"
MESSAGE " ³ < 5> The Data Base 123, dBase, Framework ³"
MESSAGE " ³ < 6> BOSS BBS ³"
MESSAGE " ³ < 7> Shelter ³"
MESSAGE " ³ < 8> Ed Gelb's ³"
MESSAGE " ³ < 9> ³"
MESSAGE " ³ <10> ³"
MESSAGE " ³ ³"
MESSAGE " ³
MESSAGE " ³ ³"
MESSAGE " ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´"
MESSAGE " ³ Enter 1-10 or other BBS phone number: ³"
MESSAGE " ÔÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ;"
LOCATE 20,56 ;Locate cursor for user input
GET S9 7 ;User input (7 characters)
SWITCH S9 ;Decision based on user input
CASE "1"
ASSIGN S2 "2391346" ;Cases 1 through 10 are identical. Each
;ASSIGN S7 "COMMAND.VER" ;assigns a phone number to be dialed to
ENDCASE ;S2, and a command file to be executed on
CASE "2" ;connect to S7 (the command file is
ASSIGN S2 "3278245" ;optional).
;ASSIGN S7 "COMMAND.VER"
ENDCASE
CASE "3"
ASSIGN S2 "6943348"
;ASSIGN S7 "COMMAND.VER"
ENDCASE
CASE "4"
ASSIGN S2 "7295377"
;ASSIGN S7 "COMMAND.VER"
ENDCASE
CASE "5"
ASSIGN S2 "9435419"
;ASSIGN S7 "COMMAND.VER"
ENDCASE
CASE "6"
ASSIGN S2 "5687293"
;ASSIGN S7 "COMMAND.VER"
ENDCASE
CASE "7"
ASSIGN S2 "7837458"
;ASSIGN S7 "COMMAND.VER"
ENDCASE
CASE "8"
ASSIGN S2 "6947425"
;ASSIGN S7 "COMMAND.VER"
ENDCASE
CASE "9"
ASSIGN S2 "XXXXXXX"
;ASSIGN S7 "COMMAND.VER"
ENDCASE
CASE "10"
ASSIGN S2 "XXXXXXX"
;ASSIGN S7 "COMMAND.VER"
ENDCASE
CASE "D" ;If user enters "D" . . .
EXECUTE "VERSA.CMD" ;Leave the "D" in S9, execute VERSA
ENDCASE
CASE "E" ;If user enters "E" . . .
EXECUTE "VERSA.CMD" ;Leave the "E" in S9, execute VERSA
ENDCASE
CASE "G" ;If user enters "G" . . .
EXECUTE "VERSA.CMD" ;Leave the "G" in S9, execute VERSA
ENDCASE
DEFAULT ;Any other input should be a phone number
ASSIGN S2 S9 ;Assign user input to S2
ENDCASE
ENDSWITCH ;All possibilities covered
ASSIGN S9 "ACTIVE" ;Finally, put "ACTIVE" in S9 . . .
EXECUTE "VERSA.CMD" ;And go back to VERSA
Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!
This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.
But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/