Listing of file='DEMO.BAS;01' on disk='vmedia/arcade_games-sector.ccvf'
100 PRINT "K" 110 CO= 48 120 SZ= 130 130 PLOT 6,7,12,14,3,64,0 140 FOR Q= 1TO 10 150 READ X,Y,SP 160 IF X= 124THEN SZ= 127 170 IF X= 125THEN SZ= 130 180 IF X= 100THEN CO= Y:GOTO 250 190 IF X< > 0GOTO 240 200 IF SZ= 127THEN PLOT 15,3,64,31,10,3,64,0 210 PLOT 14,3,64,31,10,3,64,0 220 IF YGOTO 260 230 GOTO 250 240 PLOT 3,SZ,X,Y,CO* 1.5:PRINT SPC( SP) 250 NEXT Q:PLOT 8:PRINT :PLOT 3,64,0:GOTO 140 260 GOSUB 4580 270 GOTO 990 280 DATA 2,3,10,6,5,2,6,7,2,6,9,2,6,11,2 290 DATA 14,3,2,14,5,2,14,7,10,14,9,2,22,3,2,22,5,2,22,9,2 300 DATA 14,11,2,22,11,2 310 DATA 26,3,10,26,5,2,26,7,6,26,9,2,26,11,10 320 DATA 100,24,0 330 DATA 2,15,2,2,17,2,2,19,2,2,21,2,2,23,10 340 DATA 14,15,10,14,17,2,14,19,2,14,21,2,14,23,10 350 DATA 22,17,2,22,19,2,22,21,2 360 DATA 26,15,10,26,17,2,26,19,2,26,21,2,26,23,10 370 DATA 32,19,4,34,21,2 380 DATA 40,15,6,42,17,2,42,19,2,42,21,2,40,23,6 390 DATA 48,15,10,48,17,2,48,19,2,48,21,2,48,23,10 400 DATA 2,27,10,14,27,2,22,27,2,26,27,10,38,27,10 410 DATA 2,29,2,14,29,2,22,29,2,26,29,2,38,29,2,46,29,2 420 DATA 34,29,2 430 DATA 2,31,10,14,31,10,34,31,2,26,31,2,38,31,10 440 DATA 0,0,0 450 DATA 10,31,2,14,31,2,22,31,2,26,31,2,34,31,2,38,31,2 460 DATA 0,0,0 470 DATA 2,31,10,14,31,2,22,31,2,26,31,10,38,31,2 480 DATA 0,0,0,0,0,0,0,0,0,0,0,0 490 DATA 100,32,0 500 DATA 124,0,0 510 DATA 8,30,5,14,30,5,20,30,5,26,30,5,32,30,5,38,30,1 520 DATA 42,30,1,44,30,5,50,30,5 530 DATA 8,31,1,12,31,1,14,31,1,18,31,1,20,31,1,26,31,1 540 DATA 32,31,1,38,31,2,42,31,1,46,31,1,50,31,1 550 DATA 0,0,0 560 DATA 8,28,5,14,28,5,20,28,4,26,28,5,32,28,4,38,28,1 570 DATA 40,28,1,42,28,1,46,28,1,50,28,5 580 DATA 8,29,1,14,29,1,17,29,1,20,29,1,30,29,1,32,29,1 590 DATA 38,29,1,41,29,2,46,29,1,54,29,1 600 DATA 8,30,1,14,30,1,18,30,1,20,30,5,26,30,5,32,30,5 610 DATA 38,30,1,42,30,1,46,30,1,50,30,5 620 DATA 0,0,0,0,0,0,0,0,0 630 DATA 125,0,0 640 DATA 100,16,0 650 DATA 14,31,10,26,31,2,34,31,2,38,31,10 660 DATA 0,0,0 670 DATA 18,31,2,26,31,2,34,31,2,38,31,2 680 DATA 0,0,0 690 DATA 18,31,2,26,31,10,38,31,10 700 DATA 0,0,0 710 DATA 18,31,2,26,31,2,34,31,2,38,31,2 720 DATA 0,0,0 730 DATA 18,31,2,26,31,2,34,31,2,38,31,10 740 DATA 0,0,0,0,0,0,0,0,0 750 DATA 100,40,0 760 DATA 124,0,0 770 DATA 2,30,5,8,30,5,14,30,2,17,30,2 780 DATA 20,30,5,26,30,1,30,30,1,32,30,5,38,30,5,44,30,1 790 DATA 50,30,5,56,30,5 800 DATA 2,31,1,8,31,1,12,31,1,14,31,1,16,31,1,18,31,1,20,31,1,24,31,1 810 DATA 26,31,1,30,31,1,32,31,1,38,31,1,42,31,1,44,31,1 820 DATA 50,31,1,54,31,1,56,31,1,60,31,1 830 DATA 0,0,0 840 DATA 2,28,1,8,28,1,12,28,1,14,28,1,18,28,1,20,28,5,26,28,1 850 DATA 30,28,1,32,28,1,38,28,1,42,28,1,44,28,1,50,28,1 860 DATA 54,28,1,56,28,5 870 DATA 2,29,1,8,29,1,12,29,1,14,29,1,18,29,1,20,29,1,26,29,1 880 DATA 30,29,1,32,29,1,38,29,1,42,29,1,44,29,1,50,29,1 890 DATA 54,29,1,56,29,1,59,29,1 900 DATA 2,30,5,8,30,5,14,30,1,18,30,1,20,30,1,26,30,5 910 DATA 32,30,5,38,30,5,44,30,5,50,30,5,56,30,1,60,30,1 920 DATA 0,0,0,0,0,0 930 DATA 27,27,3,33,27,3 940 DATA 28,28,1,34,28,1 950 DATA 28,29,1,34,29,1 960 DATA 28,30,1,34,30,1 970 DATA 27,31,3,33,31,3 980 DATA 0,-1,0 990 PRINT "K":X= RND (- PEEK (33209)- PEEK (33208)) 1000 REM FLAG 1010 PLOT 29,6,4,12,3,64,0,2,246,20 1020 FOR Q= 15TO 127:PLOT Q,115:NEXT Q:PLOT 255 1030 PLOT 6,3,2,246,0,12,117,13,117,255 1040 REM UNION JACK 1050 PLOT 6,60:GOSUB 1340 1060 PLOT 2,15,65,242,65,115,255 1070 PLOT 2,15,64,242,65,114,255 1080 PLOT 2,15,115,242,65,65,255 1090 PLOT 2,15,114,242,65,64,255 1100 PLOT 2,40,115,242,40,64,255 1110 PLOT 2,39,115,242,39,64,255 1120 PLOT 2,15,90,242,65,90,255 1130 PLOT 2,15,89,242,65,89,255 1140 PLOT 6,15,3,19,7,2,254,15,255 1150 PLOT 3,19,11,2,254,15,255 1160 REM SEPARATE POLE 1170 PLOT 6,0,2,246,2,14,124,255 1180 REM TOP 1190 PLOT 3,5,1:PRINT "t u v w" 1200 PLOT 14,6,39 1210 REM STARS 1220 PLOT 3,48,6,42,3,42,12,42,3,55,11,42,3,49,20,42,15,3,52,15,42,14,6,39 1230 PLOT 3,20,21:PRINT "sy" 1240 PLOT 3,20,23:PRINT "zp" 1250 REM ROUND CORNERS 1260 PLOT 6,4,15,3,63,3,245,3,63,26,247 1270 PLOT 6,2,3,20,28 1280 PRINT "tu ab cf en {d tu a en tu" 1290 PLOT 3,20,29 1300 PRINT "no vw gd a a| no l l no" 1310 GOSUB 1430 1320 GOSUB 4580 1330 GOTO 1570 1340 FOR Q= 1TO 12:IF Q= 6OR Q= 7GOTO 1390 1350 PLOT 3,Q* 2+ 8,Q+ 2,2,254,49,247,255 1360 PLOT 3,Q* 2+ 5,Q+ 3,2,254,206,8,255 1370 PLOT 3,Q* 2+ 8,16- Q,2,254,128,236,255 1380 PLOT 3,Q* 2+ 5,15- Q,2,254,127,19,255 1390 NEXT Q 1400 REM CLEAN RIGHT EDGE 1410 PLOT 6,36,2,66,115,242,66,66,255 1420 PLOT 6,57:RETURN 1430 REM POEM 1440 PLOT 3,64,0 1450 A$(0)= "A LAND OF SWEEPING PLAINS," 1460 A$(1)= "OF RUGGED MOUNTAIN RANGES," 1470 A$(2)= "OF DROUGHT" 1480 A$(3)= "AND FLOODING RAINS." 1490 FOR Q= 0TO 4 1500 PLOT 3,127,10,31,7 1510 PRINT SPC( 40) 1520 IF Q= 4THEN RETURN 1530 PLOT 3,127,(66- LEN (A$(Q)))/ 2,31,7 1540 PRINT A$(Q); 1550 GOSUB 4580 1560 NEXT Q 1570 REM COLOUR DEMONSTRATION 1580 PLOT 6,2,12,14 1590 DATA 23,19,18,27,11,58,63,29,15,61,45,13,12,37,50,34,48,39,38,36,32 1600 PRINT "THIS IS THE COMPUCOLOR II":PLOT 6,6,14 1610 PRINT :PRINT 1620 PRINT "THIS IS NOT A BORING B & W RF-MODULATED CONVERTED TV" 1630 PRINT "THIS IS A PROFESSIONAL COLOUR VIDEO MONITOR" 1640 GOSUB 4580:GOSUB 4580 1650 PLOT 3,0,10 1660 PRINT "HERE IS JUST A SHORT EXAMPLE OF WHAT COLOURS ARE AVAILABLE" 1670 GOSUB 4580 1680 PLOT 15,27,10 1690 FOR Q= 0TO 63 1700 PLOT 6,2,3,Q,12 1710 IF Q< 10THEN PRINT " "; 1720 PRINT Q;:PLOT 6,Q 1730 PRINT "``````````````" 1740 NEXT Q:PLOT 27,11,6,7,3,64,0 1750 FOR Q= 1TO 300:POKE 29433+ 2* INT (384* RND (1)),RND (1)* 6+ 1:NEXT Q 1760 PLOT 6,7,12 1770 FOR A= 1TO 21:READ Q 1780 PLOT 6,0:PRINT TAB( 5):PLOT 6,Q 1790 PRINT "`````````````````````````````````````````````````````" 1800 NEXT A 1810 PLOT 6,3,14,3,10,28 1820 PRINT "PASTEL SHADES OF GREEN, RED, BLUE" 1830 GOSUB 4580:GOSUB 4580 1840 PLOT 15 1850 A= 0:PLOT 6,53,27,25,96,6,7,14,3,0,24,11,10,11,10,11,10,11,30,15,27,10,3,64,0 1860 RESTORE 1950:FOR QQ= 1TO 8:READ Q 1870 FOR W= 1TO 8 1880 PLOT Q 1890 A= A+ 1:PLOT 3,A,0 1900 IF W= 8GOTO 1930 1910 PRINT SPC( 20):PRINT 1920 NEXT W 1930 NEXT QQ 1940 PLOT 27,11,6,6,3,1,22 1950 DATA 16,17,21,20,18,19,22,23 1960 PRINT " BLACK RED MAGENTA BLUE GREEN YELLOW CYAN WHITE " 1970 PLOT 6,7 1980 PLOT 14,3,18,28 1990 PRINT "PLUS ALL YOUR OLD FAVOURITES !" 2000 PLOT 29 2010 GOSUB 4580:GOSUB 4580 2020 REM SINCOS 2030 A1$= "" 2040 PLOT 6,7,14,12,3,10,0 2050 PRINT "SOME SIMPLE USES OF COLOUR ARE IN TEACHING GRAPHS" 2060 GOSUB 4580 2070 PLOT 15,3,0,16:PRINT A1$A1$:PLOT 6,2,3,64,0,2 2080 FOR W= 0TO 127 2090 PLOT W,60+ 50* SIN (W/ 10) 2100 NEXT W:PLOT 255,6,3,2 2110 FOR W= 0TO 127 2120 PLOT W,60+ 50* COS (W/ 10) 2130 NEXT W:PLOT 255,3,23,0 2140 PLOT 3,32,26:PRINT "COS (X)" 2150 PLOT 3,17,5 :PRINT "SIN (X)" 2160 REM 2170 A$= "yzyzyz":REM 2180 PLOT 3,15,11,6,2:PRINT A$ 2190 PLOT 3,36,25,6,3:PRINT A$ 2200 GOSUB 4580 2210 REM EXPONENTIAL FAMILY 2220 PLOT 15,29,12 2230 PLOT 6,7,3,64,0,2,246,0,63,127,250,0,62,127,255 2240 E= 64:PLOT 3,25,0:PRINT "F (X)" 2250 PLOT 3,40,2:PRINT "E^X" 2260 PLOT 3,54,7:PRINT "LOG X" 2270 PLOT 3,39,17,49,3,48,17,69 2280 PLOT 3,30,11,49,3,30,7,69 2290 PLOT 3,62,17,88,3,64,0,6,4,2 2300 FOR Q= 1/ 16TO 4STEP 1/ 32 2310 X= EXP (Q):W= 3+ 22* LOG (X):PLOT X+ 64,W,W,X+ 64:NEXT Q 2320 PLOT 255,6,65,2,97,80,79,96,255 2330 PLOT 6,7:GOSUB 4580 2340 REM 'PLOT 2' DEMO 2350 PLOT 6,7,12,3,64,0,2,0,0,242,0,127,127,127,127,0,0,0,255 2360 FOR Q= 1TO 100 2370 T= RND (1)* 127:E= RND (1)* 127 2380 PLOT 2,63,63,242,T,E,255,6,RND (1)* 7+ 1 2390 NEXT Q:PLOT 6,INT (RND (1)* 7)+ 1 2400 FOR Q= 0TO 127STEP 2 2410 PLOT 2,Q,127,242,127- Q,0,255,2,127,127- Q,242,0,Q,255 2420 NEXT Q 2430 GOSUB 4580:PLOT 255 2440 PLOT 6,4,12,15,30 2450 D$= CHR$ (126)+ CHR$ (28) 2460 FOR I= 1TO 7:PRINT :PLOT 3,6* I,25 2470 FOR J= 1TO 22:PRINT D$;:NEXT J,I 2480 FOR I= 1TO 5:H$= H$+ CHR$ (101):NEXT I:H$= H$+ CHR$ (122) 2490 FOR I= 1TO 8:PLOT 3,2+ 3* I,28- 3* I:PRINT RIGHT$ (H$,2); 2500 FOR J= 1TO 6:PRINT H$;:NEXT J:PRINT :NEXT I 2510 FOR I= 1TO 7:Y= 27- I* 3:C= I+ 16 2520 FOR J= 1TO 6:X= 1+ I* 3+ J* 6 2530 H= INT (RND (1)* 5)+ 1:GOSUB 2660:NEXT J,I 2540 FOR I= 1TO 7:PLOT 3,I* 3- 3,26- I* 3,6,1:PRINT "PROD";I:NEXT I 2550 FOR I= 1TO 6:PLOT 6,7,3,I* 6,26:PRINT I+ 1973:NEXT I 2560 PLOT 29,6,3,3,0,1,27,10:PRINT "$ PER UNIT":PLOT 27,11 2570 FOR I= 1TO 6:X= 2:IF I= 1THEN X= 3 2580 PLOT 3,X,10- I:PRINT I* 5:NEXT I 2590 X= 6:Y= 10:C= 17:H= 6:GOSUB 2660 2600 PLOT 6,3,14,3,47,21:FOR A= 1TO 16:READ A$:PRINT A$; 2610 FOR B= 1TO 20:NEXT B,A 2620 PLOT 3,47,24:FOR A= 1TO 16:READ A$:PRINT A$; 2630 FOR B= 1TO 20:NEXT B,A 2640 PLOT 3,64,29:GOSUB 4580:GOSUB 4580:PLOT 6,7,12:GOTO 2710 2650 DATA E,N,D,L,E,S,S," ",G,R,A,P,H,I,C,S,P,O,S,S,I,B,I,L,I,T,I,E,S,!,!,! 2660 FOR K= 1TO H 2670 PLOT 3,X,Y- K,29,16,30,C,101,111,126,28,26,26,26 2680 PLOT 16,29,C,126,16,30,C,32,126 2690 IF K= 1THEN PLOT 3,X+ 2,Y- K,30,C,29,16,126 2700 NEXT K:RETURN 2710 A$= "JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC" 2720 DEF FN A(Z)= 80* EXP (- 8.3E- 04* Z* Z) 2730 PLOT 6,2,14,12,3,19,0 2740 PRINT "EFFECTS OF THE COMPUCOLOR II" 2750 PLOT 6,7,3,64,0,2,0,12,242,127,12,127,100,0,100,0,12,255,3,22,4,14 2760 PRINT "P R O F I T S ( $M )" 2770 PLOT 15,6,2,27,10 2780 FOR Q= 1TO 36STEP 3:PLOT 3,Q* 1.7+ 3,29:PRINT MID$ (A$,Q,3):NEXT Q 2790 PLOT 27,11,6,3,29,3,64,0 2800 FOR Q= 13TO 99STEP 2:PLOT 2,62,Q,255:NEXT Q 2810 PLOT 3,13,10:PRINT "BEFORE" 2820 PLOT 3,44,10:PRINT "AFTER" 2830 PLOT 6,6,3,64,0 2840 FOR Q= 3TO 61STEP 2:IF FN A(Q)< 13THEN PLOT 6,1 2850 PLOT 2,Q,12,242,Q,FN A(Q),255:NEXT Q 2860 FOR Q= 63TO 125STEP 2 2870 IF Q> 79THEN PLOT 6,6 2880 PLOT 2,Q,12,242,Q,(Q- 63)^ 2/ 32+ 3,255 2890 NEXT Q 2900 GOSUB 4580 2910 PLOT 255,12,29,6,7,15,27,25,95 2920 PRINT "3 GRAPHS SIMULTANEOUSLY" 2930 FOR Q= 32TO 2STEP - 1:PLOT 3,30,32- Q:PRINT 4* Q:NEXT Q 2940 PLOT 6,3,2,246,0 2950 FOR Q= 1TO 127STEP 6 2960 PLOT Q,60+ 50* SIN (Q/ 12) 2970 NEXT Q 2980 PLOT 255,6,1,2,246,0 2990 FOR Q= 3TO 123STEP 6 3000 PLOT Q,60+ 50* SIN (Q/ 13) 3010 NEXT Q 3020 PLOT 255,6,4,2,246,0 3030 FOR Q= 5TO 125STEP 6 3040 PLOT Q,60+ 50* SIN (Q/ 14) 3050 NEXT Q 3060 PLOT 255 3070 PLOT 3,50,0:PRINT "SIN (X/12)" 3080 PLOT 3,50,1:PRINT "SIN (X/13)" 3090 PLOT 3,50,2:PRINT "SIN (X/14)" 3100 GOSUB 4580 3110 REM SPIRAL IN 3120 PLOT 6,3,12,3,64,0,2 3130 Z= 63/ 800:A= 63 3140 FOR Q= 0TO 800STEP 3 3150 IF INT (Q/ 9)= Q/ 9THEN PLOT 255,6,RND (1)* 7+ 1,2 3160 F= Q* Z- 63 3170 PLOT 63+ F* SIN (Q/ 10),63- F* COS (Q/ 10),242 3180 NEXT Q:PLOT 255 3190 REM 8 SINWAVES 3200 PLOT 6,3,12,3,64,0,2 3210 FOR W= 0TO 126STEP .75 3220 B= A* SIN (W/ 10):C= A* COS (W/ 10) 3230 PLOT W,A+ B,W,A- B,W,A+ C,W,A- C,A+ B,W,A- B,W,A+ C,W,A- C,W 3240 NEXT W:PLOT 255 3250 REM CHARACTER SET 3260 PLOT 6,2,12 3270 FOR E= 15TO 14STEP - 1 3280 PLOT E 3290 PRINT :PRINT :PRINT 3300 PLOT 30:REM 3310 FOR Q= 32TO 127 3320 PRINT CHR$ (Q)+ " "; 3330 NEXT Q 3340 PLOT 29 3350 FOR Q= 96TO 127 3360 PRINT CHR$ (Q)+ " "; 3370 NEXT Q:PLOT 6,3:NEXT E:PLOT 15 3380 PLOT 3,0,10:PRINT :PLOT 3,19,11,6,6:PRINT "COMPLETE CHARACTER SET" 3390 PLOT 3,14,13:PRINT "NOTE CHESS PIECES AND CARD SUITS" 3400 GOSUB 4580:GOSUB 4580 3410 PLOT 6,7,12,30 3420 FOR Q= 15TO 14STEP - 1 3430 PLOT Q 3440 IF Q= 14THEN PRINT :PRINT :PRINT :PRINT :PLOT 6,3 3450 PRINT " ~| {d tf nu {e {e tf ab en b bh a pq pb tu {d tu {d cf en" 3460 PRINT " no {d vi lw l a v} no l gw a| l ab as vw a vx a| gd a" 3470 PRINT :PRINT 3480 PRINT " ab ab ab |~ |~ ez `u 'a hd ez ~a {e tf ez cd cd n bb ++ cn" 3490 PRINT " vw |~ rs ~| b y vx a y gd en gd cd ~ cd gw ! ++ md" 3500 NEXT Q 3510 PLOT 15,3,20,10,6,65 3520 PRINT "4 CHARACTER SIZES !" 3530 GOSUB 4580:GOSUB 4580 3540 REM DIFERENTIAL EQ. SOLUTION 3550 RESTORE 3730 3560 PLOT 6,7,12 3570 DEF FN F(X)= SIN (X/ A)* EXP (X/ B) 3580 DEF FN D(X)= (COS (X/ A)* EXP (X/ B))/ A 3590 READ A,B,S$:B= - B 3600 GOSUB 3700 3610 PRINT "DIFFERENTIAL EQUATION SOLUTION F (X) = SIN(X/"A")*E^(X/"B")" 3620 PRINT " D/DX PLOTTED IN RED" 3630 PLOT 3,12,28:PRINT "NOTE: MIXED GRAPHICS, TEXT AND VECTORS" 3640 PLOT 3,64,0 3650 FOR Q= 0TO 127 3660 PLOT 6,1,2,Q,63* FN D(Q)+ 65,255 3670 PLOT 6,3,2,Q,63* FN F(Q)+ 65,255 3680 NEXT Q:PLOT 6,7 3690 GOTO 3740 3700 PLOT 6,4,27,25,12,8,11,10,11,10,11,10:PRINT A1$A1$ 3710 PLOT 3,0,31,11,28,11,6,2,3,27,6:PRINT S$:PLOT 6,7,8 3720 RETURN 3730 DATA 4,50,"UNDER DAMPED (GUITAR STRING)" 3740 REM TREE (YANK SOFTWARE) 3750 DIM A(256):RESTORE 3760 3760 DATA 12,28,6,56,29,11,6,2,3,64,0,2,103,20,242,64,23,240,35,99,35,99,242 3770 DATA 25,20,240,50,58,50,58,242,64,88,240,239,238,74,131,239,255 3780 DATA 6,21,2,101,23,242,40,46,255 3790 DATA 6,3,2,246,19,63,22,243,8,136,255 3800 DATA 17,2,60,4,242,57,18,240,239,238,6,56,239,0,239,278,9,136,239,255 3810 DATA 6,11,2,250,58,12,71,12,71,255 3820 DATA 6,3,2,246,4,18,15,243,8,239,238,11,136,239,255 3830 DATA 6,25,2,18,9,242,30,15,253,30,4,242,41,9,255 3840 DATA 6,5,2,246,4,44,15,243,8,136,136,136,136,255 3850 DATA 6,47,2,44,9,242,53,9,48,9,47,7,50,12,255 3860 DATA 6,6,2,246,4,74,11,243,8,239,238,7,136,239,255 3870 DATA 6,49,2,245,86,11,250,74,7,89,255 3880 DATA 6,4,2,246,4,92,15,243,239,238,7,136,239,255 3890 DATA 6,38,2,245,99,15,255 3900 DATA 6,2,2,34,48,242,64,100,240,239,238,61,131,239 3910 DATA 253,42,70,242,64,108,240,239,238,44,131,239 3920 DATA 253,49,90,242,64,123,240,239,238,30,131,239,255 3930 DATA 23,2,246,124,64,127,250,63,126,65,255 3940 DATA 6,21,2,93,50,242,46,67 3950 DATA 253,83,75,242,52,87 3960 DATA 253,76,95,242,56,103,255 3970 DATA 6,81,2,246,123,66,112,60,92,47,60,82,32,42,36,54,28,72,64,255 3980 DATA 19,2,245,58,104,53,80,79,60,55,52,61,32,93,28,255 3990 DATA 23,2,245,72,100,69,84,63,72,70,48,33,24,87,40,255 4000 DATA 3,64,0,6,1,239,239 4010 DATA SAMPLER,OTHELLO,CHESS,"STAR TREK",BLACKJACK,QUBIC,SHARKS,"AIR RAID","STAR TRADER",SWARMS 4020 DATA SOUNDWARE,SHOOT,"LUNAR LANDER" 4030 DATA "PERSONAL FINANCE",BONDS,EQUITY,"PERSONAL INCOME","STATISTICS 1,2,3" 4040 DATA ASSEMBLER,MONITOR,DEBUG,FORMATTER,"BASIC EDITOR","SCREEN EDITOR","TEXT EDITOR","DATA BASE" 4050 DATA "WORD KING",FORTRAN,"BASIC TUTORIALS" 4060 GOSUB 4170 4070 PRINT 4080 PLOT 6,25,3,10,29:PRINT "COMPUCOLOR" 4090 PLOT 6,3,3,4,2,14 4100 PRINT "SOFTWARE AVAILABLE":PLOT 3,41,2 4110 PRINT "FROM ALL OVER THE WORLD":RESTORE 4010:PLOT 6,3 4120 PRINT 4130 FOR Q= 1TO 13:READ A$:PLOT 3,50,Q+ 5:PRINT A$:NEXT Q:PLOT 3,0,6 4140 FOR Q= 1TO 5:READ A$:PRINT A$:NEXT Q:PLOT 3,0,12 4150 FOR Q= 1TO 11:READ A$:PRINT A$:NEXT Q 4160 GOSUB 4580:GOSUB 4580:GOTO 4220 4170 READ X:IF X< > 239THEN PLOT X:GOTO 4170 4180 READ X:IF X= 239THEN RETURN 4190 READ Y:I= - 1 4200 I= I+ 1:READ A(I):IF A(I)< > 239GOTO 4200 4210 FOR X= 1TO Y:FOR J= 0TO I- 1:PLOT A(J):NEXT J,X:GOTO 4170 4220 REM COMPUCOLOR BLURB 4230 PLOT 6,53,12 4240 Z(0,0)= .2:Z(1,0)= 105:Z(2,0)= 200:Z(3,0)= 130:Z(4,0)= 1 4250 Z(5,0)= 53:Z(5,1)= 51:Z(4,1)= .5 4260 Z(0,1)= 1:Z(2,1)= 200:Z(3,1)= 132 4270 Z(1,1)= 105 4280 Z(1,0)= 0 4290 FOR Z= 1TO 0STEP - 1 4300 RR= Z(0,Z):WR= Z(2,Z):ST= Z(3,Z) 4310 R1= 63/ (RR+ 1):R2= R1* RR:K1= 2* 3.141593/ ST 4320 K2= K1* WR 4330 PLOT 6,Z(5,Z) 4340 PLOT 3,64,0,2,Z(1,Z),63,242 4350 D= ST/ 2 4360 IF Z= 1THEN L= 1:U= ST/ 2:GOTO 4380 4370 L= ST/ 2:U= ST 4380 FOR N= LTO U 4390 P1= K1* N 4400 P2= K2* N 4410 X= R1* COS (P1)+ R2* COS (P2) 4420 Y= R1* SIN (P1)+ R2* SIN (P2) 4430 PLOT ABS (X+ 63),ABS (Y+ 63) 4440 NEXT N:PLOT 255,8 4450 NEXT Z 4460 PLOT 14,3,23,15 4470 PRINT "THE COMPUCOLOR II" 4480 PLOT 3,17,20 4490 PRINT "THE RENAISSANCE MACHINE FROM" 4500 PLOT 15,3,28,22 4510 PRINT "en ab {e":PLOT 3,28,23 4520 PRINT " a no l" 4530 PLOT 3,18,25 4540 PRINT "a tu tf en tf cf ab tu {d":PLOT 3,18,26 4550 PRINT "l vw v} l vi gd no vw a " 4560 PLOT 15:GOSUB 4580:GOSUB 4580 4570 RUN 110:REM SAFE LOOP 4580 REM DELAY OF 3 SECONDS 4590 PLOT 3,64,0:FOR M7= 1TO 1740:NEXT M7:RETURN