Listing of file='MENU.BAS;01' on disk='vmedia/chip_107-sector.ccvf'
50 CLEAR 1200 60 DIM F$(18) 100 PLOT 27,11,6,4,15,29,12 110 DN= 108 120 GOSUB 9000 200 DATA "COLORDATA INVENTORY CONTROL - PROGRAM DISK" 210 DATA "CONTRIBUTED BY 'RENAISSANCE MARKETING'" 220 DATA "RUN WITH SAMPLE DATA - CHIP DISK 108, OR" 230 DATA "RUN WITH YOUR OWN DATA DISK - SEE INSTRUCTIONS" 1000 DATA "!" 1010 J= 0 1020 READ F$:IF (F$= "!")OR (J= 18)THEN 1110 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$:REM +STR$ (J) 1060 GOTO 1020 1110 IF J< 8THEN PLOT 14:PRINT 1120 EL= 1:REM 1130 FOR K= 1TO J:PRINT TAB( 6)F$(K):IF ELTHEN PRINT 1140 NEXT 1160 INPUT " PRESS RETURN: ";C$ 1301 LOAD "INMENU":RUN 7999 END 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