Listing of file='CUBE.BAS;01' on disk='vmedia/ncc_15-sector.ccvf'
1 PLOT 12:PRINT :PRINT :PRINT :PLOT 6,2,15,3,0,0 10 PLOT 12:PRINT "WHAT IS YOUR ROTATING SPEED ( 0 - 255 ) "; 20 INPUT S 30 PLOT 12,3,64,0,6,2:GOTO 810 40 REM VIEW NUMBER ONE 50 X= X+ 388 60 POKE X,14:POKE X+ 2,5:POKE X+ 4,5:POKE X+ 6,5:POKE X+ 8,5 70 POKE X+ 10,15 80 X= X+ 128 90 POKE X,1:POKE X+ 10,2:POKE X+ 128,1:POKE X+ 138,2 100 X= X+ 256 110 POKE X,12:POKE X+ 2,31:POKE X+ 4,31:POKE X+ 6,31:POKE X+ 8,31 120 POKE X+ 10,13 130 X= X- 512 140 POKE X,30:POKE X+ 12,30:POKE X- 126,30:POKE X- 114,30 150 X= X- 124 160 POKE X,5:POKE X+ 2,5:POKE X+ 4,5:POKE X+ 6,5:POKE X+ 8,5 170 POKE X+ 10,26:POKE X+ 12,1 180 X= X+ 128 190 POKE X+ 12,1:POKE X+ 140,1:POKE X+ 268,1 200 X= X+ 394 210 POKE X,30:POKE X+ 126,30 220 RETURN 230 REM VIEW NUMBER TWO 240 POKE X+ 6,9:POKE X+ 8,8:POKE X+ 10,6:POKE X+ 12,7 250 X= X+ 128 260 POKE X+ 2,9:POKE X+ 4,8:POKE X+ 14,6:POKE X+ 16,7 270 X= X+ 128 280 POKE X,2:POKE X+ 2,6:POKE X+ 4,7:POKE X+ 14,9:POKE X+ 16,8 290 POKE X+ 18,1 300 X= X+ 128 310 POKE X,2:POKE X+ 6,6:POKE X+ 8,7:POKE X+ 10,9:POKE X+ 12,8 320 POKE X+ 18,1 330 X= X+ 128 340 POKE X,2:POKE X+ 8,2:POKE X+ 18,1 350 X= X+ 128 360 POKE X,2:POKE X+ 8,2:POKE X+ 18,1 370 X= X+ 128 380 POKE X+ 2,6:POKE X+ 4,7:POKE X+ 8,2:POKE X+ 14,9:POKE X+ 16,8 390 X= X+ 128 400 POKE X+ 6,6:POKE X+ 8,2:POKE X+ 10,9:POKE X+ 12,8 410 RETURN 420 REM VIEW NUMBER THREE 430 POKE X,31:POKE X+ 2,31:POKE X+ 4,31:POKE X+ 6,31 440 POKE X+ 8,31:POKE X+ 10,31 450 X= X+ 128 460 POKE X,16:POKE X+ 12,28 470 X= X+ 128 480 POKE X,1:POKE X+ 2,28:POKE X+ 14,28 490 X= X+ 128 500 POKE X,1:POKE X+ 4,14:POKE X+ 6,5:POKE X+ 8,5:POKE X+ 10,5 510 POKE X+ 12,5:POKE X+ 14,15 520 X= X+ 128 530 POKE X,1:POKE X+ 4,1:POKE X+ 14,2 540 X= X+ 128 550 POKE X,28:POKE X+ 4,1:POKE X+ 14,2 560 X= X+ 128 570 POKE X+ 2,28:POKE X+ 4,12:POKE X+ 6,31:POKE X+ 8,31 580 POKE X+ 10,31:POKE X+ 12,31:POKE X+ 14,13 590 RETURN 600 REM VIEW NUMBER FOUR 610 X= X+ 130 620 POKE X,14:POKE X+ 2,5:POKE X+ 4,5:POKE X+ 6,5:POKE X+ 8,5 630 POKE X+ 10,5:POKE X+ 12,15 640 X= X+ 128 650 POKE X,12:POKE X+ 2,31:POKE X+ 4,31:POKE X+ 6,31 660 POKE X+ 8,31:POKE X+ 10,31:POKE X+ 12,13 670 X= X+ 128 680 POKE X,1:POKE X+ 12,2 690 X= X+ 128 700 POKE X,1:POKE X+ 12,2 710 X= X+ 128 720 POKE X,1:POKE X+ 12,2 730 X= X+ 128 740 POKE X,12:POKE X+ 2,31:POKE X+ 4,31:POKE X+ 6,31 750 POKE X+ 8,31:POKE X+ 10,31:POKE X+ 12,13 760 RETURN 765 REM 3DCUBE IS LOCATED FROM 9FEC TO A290 ON DISK. 770 PLOT 27,4:PRINT "LOAD 3DCUBE.PRG":PLOT 27,27 780 POKE 33283,250:POKE 33284,159 790 X= S:Y= CALL (X) 800 END 810 FOR A= 1TO 8 820 READ X 830 ON AGOSUB 60,240,430,620,620,430,240,60 840 NEXT A 850 DATA 25094,24744,24778,24938 860 DATA 27656,27560,27594,28010 870 PLOT 6,1 880 PLOT 2,0,0,242,127,0,127,127,0,127,0,0 890 PLOT 250,0,89,127,250,0,38,127 900 PLOT 246,0,30,38,246,90,30,127,246,0,64,38,246,90,64,127 910 PLOT 246,0,98,38,246,90,98,127,255 920 PLOT 6,2 930 GOTO 770