Listing of file='MENU.BAS;02' on disk='vmedia/chip_24-sector.ccvf'
50 CLEAR 1200 60 DIM F$(18) 100 PLOT 27,11,6,4,15,29,12 109 110 DN= 24 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 "HOT AIR: 2 PLAYER BALLOON RACE" 210 DATA "CLUMSY: FIND YOUR WAY THROUGH A DARK ROOM" 220 DATA "WORDS: TRY TO GUESS THE COMPUTER'S WORD" 230 DATA "ASKME: A CONVERSATIONAL PROGRAM" 240 DATA "MAZE: PRINT A MAZE ON YOUR PRINTER" 250 DATA "ANIMAL: TEACH THE COMPUTER" 260 DATA "FLIP: CAN THE COMPUTER OUTGUESS YOU?" 270 DATA "BRAIN TEASER" 280 DATA "GOLF: TRY FOR HOLE IN ONE" 290 DATA "SPACE: SPACE ATTACK" 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 "HOTAIR":RUN 1302 LOAD "CLUMSY":RUN 1303 LOAD "WORDS":RUN 1304 LOAD "ASKME":RUN 1305 LOAD "MAZE1":RUN 1306 LOAD "ANIMAL":RUN 1307 LOAD "FLIP":RUN 1308 LOAD "TEASER":RUN 1309 LOAD "GOLF":RUN 1310 LOAD "SPACE":RUN 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