Compucolor.org – Virtual Media

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