Listing of file='MENU.BAS;01' on disk='vmedia/chip_25-sector.ccvf'
8 9 10 REM CHIP MENU FOR DISKS WITH ONLY ONE PROGRAM 11 12 20 CLEAR 100 100 PLOT 27,11,6,4,15,29,12 106 107 REM PUT THIS DISK'S NUMBER INTO DN. 108 REM FOR EXAMPLE: DN=22 109 110 DN= 25 111 117 REM PUT THE PROGRAM'S NAME INTO P$. 118 REM FOR EXAMPLE: P$="SUPERBALL FOR TWO" 119 120 P$= "3-D PLOTTING PACKAGE (32K)" 121 127 REM PUT FILE NAME TO LOAD AND RUN INTO F$. 128 REM FOR EXAMPLE: F$="SPRBAL" 129 130 F$= "INSTR" 131 132 140 GOSUB 9000:PRINT :PRINT :PRINT :PRINT 150 IF LEN (P$)= 0OR LEN (F$)= 0THEN PRINT TAB( 22)"NO PROGRAMS ON MENU":END 160 P$= "PRESS RETURN FOR "+ P$+ " " 170 PRINT TAB( 31- LEN (P$)/ 2)P$; 180 INPUT "";A$ 190 LOAD F$: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