Listing of file='MENU.BAS;01' on disk='vmedia/chip_27-sector.ccvf'
50 CLEAR 1200 60 DIM F$(18) 100 PLOT 27,11,6,4,15,29,12 109 110 DN= 27 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 "SCREEN RAM TEST","'SMART' PRINTER DRIVER" 210 DATA "CCII TO CCII TRANSFER PROGRAM" 215 DATA "ASSEMBLER UPGRADE PROGRAM" 220 DATA "DISASSEMBLER","DEBUG","'DUMB' TERMINAL EMULATOR" 230 DATA "MANAZIR'S MONITOR PROGRAM" 240 DATA "LLIST PATCH","DISK FORMATTER" 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 "SCTEST":RUN 1302 LOAD "PRNTER":RUN 1303 LOAD "CCXFER":RUN 1304 LOAD "ASMUPG":RUN 1305 F$= "DISASM":GOTO 1335 1306 F$= "DEBUG":GOTO 1335 1307 F$= "COMTRX":GOTO 1335 1308 F$= "MONITR":GOTO 1335 1309 F$= "LLIST":GOTO 1335 1310 F$= "DSKFMT":GOTO 1335 1335 PLOT 15 1340 PLOT 3,0,11:FOR J= 11TO 30:PLOT 11,10:NEXT :PLOT 3,0,12 1350 PRINT "ENTER FCS WITH ESC D. THEN:" 1360 PRINT :PRINT "FCS>RUN "F$ 1370 PRINT :END 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