Compucolor.org – Virtual Media

Listing of file='MENU.BAS;01' on disk='vmedia/chip_91-sector.ccvf'

50 CLEAR 1200
60 DIM F$(18)
100 PLOT 27,11,6,4,15,29,12
109
110 DN= 91:REM  THIS DISK'S NUMBER
111
120 GOSUB 9000
130 FOR J= 1TO 23:D$= D$+ ". ":NEXT
189
190 REM  ENTER PROGRAM DESCRIPTIONS AS DATA STATEMENTS
191 REM  STARTING AT LINE 200.  FOR EXAMPLE:
192 REM
193 REM  200 DATA "STAR TREK (BATTLE THE KLINGONS)"
194 REM  210 DATA "TIC-TAC-TOE","MASTERMIND"
195 REM
196 REM  ...ETC.
197 REM
198 REM  MAXIMUM OF 18 FILES.
199
200 DATA "INTERACTIVE SCREEN DRAWING- CHRIS TEO"
210 DATA  "OTHELLO - SIMILAR TO COMPUCOLOR PROGRAM"
220 DATA  "FOOTBALL - SIMILAR TO DISK 15"
230 DATA  "ZILCH - SIMILAR TO DISK 13"
240 DATA  "BATTLESHIP"
998
999 REM  GET THE DESCRIPTIONS FOR THE MENU
1000 DATA "!"
1010 J= 0
1020 READ F$:IF (F$= "!")OR (J= 18)THEN 1100
1030 J= J+ 1:IF LEN (F$)/ 2< > INT (LEN (F$)/ 2)THEN F$= F$+ " "
1040 F$= LEFT$ (F$+ D$,47):IF J< 10THEN F$= F$+ " "
1050 F$(J)= F$+ STR$ (J)
1060 GOTO 1020
1100 IF J= 0THEN PRINT :PRINT TAB( 21)"NO PROGRAMS ON MENU":END
1110 IF J< 8THEN PLOT 14:PRINT
1120 IF (J< 5)OR ((J= 8)OR (J= 9))THEN EL= 1
1128
1129 REM  PRINT THE MENU
1130 FOR K= 1TO J:PRINT TAB( 6)F$(K):IF ELTHEN PRINT
1140 NEXT
1150 IF J> 4THEN PRINT
1158
1159 REM  GET USER'S CHOICE
1160 INPUT "  ENTER THE NUMBER FOR YOUR CHOICE, THEN PRESS RETURN: ";C$
1170 C= VAL (C$)
1190 IF C< 1OR C< > INT (C)OR C> JTHEN PLOT 28,11:GOTO 1160
1198
1199 REM  REPRINT CHOSEN FILE DESCRIPTION IN RED
1200 Y= 4* C+ 9
1210 IF J> 4THEN Y= 2* C+ 11
1220 IF J> 7THEN Y= 2* C+ 9
1230 IF J> 9THEN Y= 10+ C
1240 PLOT 3,6,Y:PRINT F$(C):PLOT 3,64,0
1249
1250 ON CGOTO 1301,1302,1303,1304,1305,1306,1307,1308,1309
1260 ON C- 9GOTO 1310,1311,1312,1313,1314,1315,1316,1317,1318
1297
1298 REM  ENTER LOAD AND RUN INSTRUCTIONS ON LINES
1299 REM  1301,1302,1303, ... , 1318.
1300 REM
1301 LOAD "PMENU":RUN
1302 PLOT 27,4:PRINT "RUN OTHELL":PLOT 27,27
1303 PLOT 27,4:PRINT "RUN FOOT":PLOT 27,27
1304 PLOT 27,4:PRINT "RUN ZILCH":PLOT 27,27
1305 PLOT 27,4:PRINT "RUN BSHIP":PLOT 27,27
7997
7998
7999 END
8998
8999 REM  LOGO
9000 PRINT TAB( 5)"~t  u~  ~ ~ ~   u     ";
9010 PRINT "~    ~ ~   u~   u~t  u~   u~ ~ "
9020 PRINT TAB( 5)"   ~           ~      ";
9030 PRINT "          ~    ~    ~    ~     "
9040 PRINT TAB( 5)"   ~~           w     ";
9050 PRINT "           ";:PLOT 2,254,9,255
9060 PRINT "    w         w v w"
9070 PRINT TAB( 5)"   ~    ~      w      ";
9080 PRINT "          ~   ~";
9090 PLOT 2,254,243,255,6,1,2,254,12,255
9100 PRINT "   ~   ~";:PLOT 2,254,243,255,6,1,2,254,12,255
9110 PRINT "v~ "
9120 PRINT TAB( 5)" v  w                 ";
9130 PRINT "           w   ~         ~    "
9140 PRINT TAB( 5)"v  w ~~ ~~~~~~        ";
9150 PRINT "~   ~~~~  w ~~ ~~~~ ~~~~ ~~ ~~"
9160 PRINT
9170 PRINT TAB( 8)"COMPUCOLOR USERS' GROUP OF ROCHESTER, NEW YORK"
9190 PLOT 6,4,30:PRINT TAB( 25)"":PLOT 29
9200 PRINT TAB( 25);:PLOT 6,33:PRINT " DISK  #    ";
9210 PLOT 26,26,26,26:PRINT DN:PLOT 6,2:PRINT
9230 RETURN