Compucolor.org – Virtual Media

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