Compucolor.org – Virtual Media

Listing of file='MENU.BAS;02' on disk='vmedia/ncc_15-sector.ccvf'

10 PLOT 12,3,0,12,14:X= 20:POKE 33278,0
20 PRINT SPC( X);"1. 3DCOST GRAPH"
25 PRINT
30 PRINT SPC( X);"2. 3D DESIGN"
35 PRINT
40 PRINT SPC( X);"3. DRAGON"
45 PRINT
50 PRINT SPC( X);"4. CUBE - ROTATING 3D CUBE"
55 PRINT
60 PRINT SPC( X);"5. HAMMER - REAL TIME ANIMATION"
70 PLOT 6,4,2,0,0,242,127,0,127,127,0,127,0,0,255
80 PLOT 2,250,0,83,127,250,0,102,127,255,6,2
85 PLOT 15,31,3,13,8:PRINT "DO NOT USE THE RETURN KEY"
90 PLOT 15,14,3,10,3:PRINT "ENTER THE NUMBER OF YOUR CHOICE ? "
95 PLOT 15,3,64,7
100 A= PEEK (33278)
105 PLOT 6,4,2,0,0,242,0,127,255,6,2
110 IF A= 0THEN 100
120 IF A< 49OR A> 53THEN POKE 33278,0:GOTO 95
130 A= A- 48
200 PLOT 3,5,8,14,6,3,31
210 FOR B= 1TO 25:PRINT A;:NEXT B
225 FOR B= 1TO 1000:NEXT B
227 PLOT 6,2,15,12
230 ON AGOTO 300,310,320,330,340
300 LOAD "3DCOST":RUN
310 LOAD "DESIGN":RUN
320 LOAD "DRAGON":RUN
330 LOAD "CUBE":RUN
340 LOAD "HAMMER":RUN