Listing of file='DEMO.BAS;01' on disk='vmedia/sampler-sector.ccvf'
100 GOTO 660 110 RESTORE :R= 1 120 PLOT 14:PRINT CHR$ (12):PLOT 3,11,16 130 PRINT "T H E A M A Z I N G C O M P U C O L O R" 140 T= 1200:GOSUB 1110 150 PRINT CHR$ (8); 160 GOSUB 1130 170 PLOT 3,10,20:PRINT "OR..."; 180 GOSUB 1470 190 T= 2500:GOSUB 1110 200 PLOT 6,6 210 PRINT CHR$ (12);:PLOT 3,30,24:PRINT "...RAINDROPS...";CHR$ (8); 220 K= 0:P= 0:C= 0:PLOT 2 240 PLOT RND (8)* 127,RND (8)* 127:K= K+ 1 250 IF K< 200THEN 240 260 K= 0:PLOT 255 270 PLOT 6:C= C+ 1:IF C> 7THEN C= 0 280 PLOT C:PRINT 290 PLOT 3,26,28,15:PRINT "THIS IS THE SMALLEST DOT" 300 PRINT CHR$ (8); 310 PLOT 3,81,RND (8)* 64,RND (8)* 32,C,46 320 K= K+ 1:IF K< 200THEN 310 330 K= 0:P= P+ 1:IF P< 2THEN 270 340 PRINT CHR$ (12); 350 GOSUB 1360 360 PLOT 3,4,40,14:PRINT "NOW YOU KNOW WHAT" 370 PRINT " "; 380 PRINT CHR$ (34);"PAINT BY NUMBER";CHR$ (34) 390 PRINT " REALLY MEANS!" 400 T= 4000:GOSUB 1110 410 PLOT 15,255:LOAD "PCARDS;1":RUN 420 PLOT 12,3,64,0 440 IF Z> 12THEN 560 450 Z= Z+ 3 460 X0= 63:Y0= 63:X1= 0:Y1= 0:C= C+ 1 470 PLOT 6,C,2,X0,Y0,242,X1,Y1,240 480 FOR I= 1TO 43 490 PLOT 193,8,8,202 500 NEXT I:PLOT 255:C= C+ 1:X1= 127:Y1= 0 510 FOR I= 1TO 31:Y1= Y1+ 4:C= C+ 4 520 PLOT 6,C,2,X0,Y0,242,X1,Y1,240,200,2,2,198,255 530 NEXT I:C= Z+ 1 540 GOTO 440 560 X= 0:PLOT 15,27,88 570 T= 500:GOSUB 1110:C= 6:PLOT 14 580 FOR T= 0TO 100:NEXT :IF CN> 6THEN PLOT 15:RUN 1790 590 FOR Y= 7TO 49STEP 7 600 PLOT 6,Y,11:PRINT :PLOT 11:PRINT 610 NEXT 620 CN= CN+ 1:GOTO 580 630 PLOT 255,6,C2,2,254 640 FOR I= 1TO J:PLOT 0:NEXT 650 PLOT 255,6,C1,2,254:GOTO 460 660 T= 2000 670 PLOT 30,20,12,29,23 680 CF= 23 690 CX= 3:CY= 4:GOSUB 1120 700 PRINT "HI. THIS IS A DEMONSTRATION PROGRAM TO TEST SOME OF THE" 710 CX= 10:CY= 8:GOSUB 1120 720 PRINT "CAPABILITIES OF YOUR OWN DESK TOP COMPUTER" 730 CX= 5:CY= 12:GOSUB 1120 740 PRINT "WHICH HAS MANY COLOR GRAPHIC MODES OF OPERATION !!!!!!!!" 750 CX= 51:CY= 28:GOSUB 1120 760 PRINT "REV. 1/23/80 770 CX= 15 780 CY= 5:CO= 20:GOSUB 1110:GOSUB 1090:GOSUB 1120:T= 1000 790 PRINT "THIS IS A BLINKING BLINK TEST !" 800 GOSUB 1110 810 CY= 10:CX= 17:GOSUB 1120 820 PRINT "TESTING FOREGROUND COLORS !" 830 PLOT 6,65,30 840 CY= 28:CX= 14:GOSUB 1110 850 PRINT ,"TESTING BACKGROUND COLORS !!" 860 PLOT 6,7,29 870 T= 1000:GOSUB 1110 880 PLOT 6,6,12,14 890 PRINT ," TESTING LOWER CASE OR SPECIAL CHARACTERS 900 PRINT :PRINT 910 FOR CL= 17TO 23:PLOT 29,CL 920 IF CL= 19THEN GOSUB 1310:PRINT 930 IF CL> 18THEN PLOT 15 940 PLOT 29:PRINT ;:FOR A= 64TO 95:PLOT A,32:NEXT :PRINT 950 PLOT 29:PRINT ;:FOR A= 96TO 127:PLOT A,32:NEXT :PRINT 960 NEXT CL:PLOT 29 970 T= 1000:GOSUB 1110:PLOT 12 980 PLOT 14,17:PRINT SPC( 21);"TESTING CONVERGENCE !!" 990 T= 500:CX= 0:CY= 2:GOSUB 1110:PLOT 29,23,15,27,25,46 1000 PRINT SPC( 8);"HIT THE BREAK KEY TO HOLD DISPLAY FOR ADJUSTMENT" 1010 T= 2000:GOSUB 1110:PLOT 12 1020 PLOT 14,29,19:PRINT SPC( 21);"TESTING X,Y PLOTTING!! " 1030 YC= 18:PLOT 2,0,0,242,127,127,127,0,0,127,0,0,255,19 1040 T= 4000:GOSUB 1110:PLOT 12,6,33,12,27,11,14,3,11,6,6,25 1050 PRINT "COMPUCOLOR PRESENTS A UNIQUE COLOR DISPLAY" 1060 T= 3500:GOSUB 1110 1070 CO= 16:GOSUB 1090 1080 RUN 420 1090 PLOT 30,CO,12,30,16,29,CF 1100 RETURN 1110 PLOT 3,64,0:FOR I= 0TO T:NEXT 1120 PLOT 3,CX,CY,14:RETURN 1130 K= 0 1140 FS= 64:A= 127:B= 67:R= - 4 1150 FOR I= ATO BSTEP R 1160 FS= 127- I 1170 FOR P= 246TO 250STEP 4 1180 PLOT 2,P,FS,I,I,255,2,P,FS+ 2,I- 2,I- 2,255,2,P,FS,127- I,I- 1 1190 PLOT 255,2,P,FS+ 2,127- I+ 2,I- 3,255,15,3,64,0 1200 NEXT P 1210 C= INT (RND (1)* 104)- 40 1220 IF C< 0THEN C= 0 1230 IF K> = 4THEN C= 0 1240 PLOT 6,C 1250 NEXT I 1260 X= A:A= B:B= X:R= - R:K= K+ 1 1270 PRINT CHR$ (8):PLOT 6,2 1280 IF K< 5THEN 1150 1290 PLOT 6,2,3,3,3:PRINT "BAR GRAPH MODE" 1300 RETURN 1310 FOR QW= 1TO 1000:NEXT :FOR QW= 6TO 18STEP 2 1320 PLOT 3,0,QW,11 1330 NEXT QW 1340 PLOT 3,0,6 1350 RETURN 1360 K= 0 1370 X0= X0+ 1.06:Y1= Y1+ .98 1380 Y0= Y0- 2:X1= X1- 2.13 1390 IF Y0< 0THEN Y0= 125+ Y0 1400 IF X1< 0THEN X1= 127+ X1 1410 IF X0> 127THEN X0= X0- 127 1420 IF Y1> 125THEN Y1= Y1- 125 1430 C= INT (RND (1)* 7)+ 1 1440 PLOT 2,253,X0,Y0,242,X1,Y1,255,6,C:K= K+ 1 1450 IF K< 125THEN 1370 1460 RETURN 1470 PLOT 6,2,14 1480 CN= 3 1490 IF QQ= 0THEN DIM C(127):QQ= 9 1500 FOR J= 1TO 50 1510 PRINT CHR$ (8);CHR$ (10) 1520 PLOT 3,7,5:PRINT T1 1530 T= 0 1540 PLOT 3,64,0 1550 FOR I= 1TO CN 1560 T= T+ RND (1) 1570 NEXT I 1580 T= INT ((T/ CN)* 127) 1590 C(T)= C(T)+ 1 1600 T1= T1+ 1 1610 NEXT J 1620 GOSUB 1740 1630 PLOT 3,64,0,2,246,10 1640 FOR I= 2TO 125 1650 PLOT I 1660 P= C(I- 2)+ 2* C(I- 1)+ 3* C(I)+ 2* C(I+ 1)+ C(I+ 2):P= P/ 9 1670 PLOT P* SF+ 10 1680 NEXT I 1690 PLOT 255 1700 PRINT CHR$ (8):PRINT :PRINT 1710 PLOT 3,3,7 1720 PRINT "RANDOM METROPOLITAN SKYLINE"; 1730 RETURN 1740 B= 0 1750 FOR I= 0TO 127 1760 IF C(I)> BTHEN B= C(I) 1770 NEXT 1780 SF= 93/ B:RETURN 1790 REM 1800 DIM A(256) 1810 DATA 12,28,6,56,29,11,6,2,3,64,0,2,103,20,242,64,23,240,35,99,35,99,242 1820 DATA 25,20,240,50,58,50,58,242,64,88,240,239,238,74,131,239,255 1830 DATA 6,21,2,101,23,242,40,46,255 1840 DATA 6,3,2,246,19,63,22,243,8,136,255 1850 DATA 17,2,60,4,242,57,18,240,239,238,6,56,239,0,239,238,9,136,239,255 1860 DATA 6,11,2,250,58,12,71,12,71,255 1870 DATA 6,3,2,246,4,18,15,243,8,239,238,11,136,239,255 1880 DATA 6,25,2,18,9,242,30,15,253,30,4,242,41,9,255 1890 DATA 6,5,2,246,4,44,15,243,8,136,136,136,136,255 1900 DATA 6,47,2,44,9,242,53,9,48,9,47,7,50,12,255 1910 DATA 6,6,2,246,4,74,11,243,8,239,238,7,136,239,255 1920 DATA 6,49,2,245,86,11,250,74,7,89,255 1930 DATA 6,4,2,246,4,92,15,243,239,238,7,136,239,255 1940 DATA 6,38,2,245,99,15,255 1950 DATA 6,2,2,34,48,242,64,100,240,239,238,61,131,239 1960 DATA 253,42,70,242,64,108,240,239,238,44,131,239 1970 DATA 253,49,90,242,64,123,240,239,238,30,131,239,255 1980 DATA 23,2,246,124,64,127,250,63,126,65,255 1990 DATA 6,21,2,93,50,242,46,67 2000 DATA 253,83,75,242,52,87 2010 DATA 253,76,95,242,56,103,255 2020 DATA 6,81,2,246,123,66,112,60,92,47,60,82,32,42,36,54,28,72,64,255 2030 DATA 19,2,245,58,104,53,80,79,60,55,52,61,32,93,28,255 2040 DATA 23,2,245,72,100,69,84,63,72,70,48,33,24,87,40,255 2050 DATA 3,64,0,6,1,239,239 2060 PRINT "" 2070 GOSUB 2350 2080 PLOT 30,19,29,17 2090 PLOT 3,10,29:PRINT "COMPUCOLOR" 2100 PLOT 6,1,3,7,2,14 2110 PRINT "MERRY CHRISTMAS":PLOT 3,41,2 2120 PRINT "& HAPPY NEW YEAR" 2130 PLOT 15,3,64,0 2140 T= 5000:GOSUB 1110:PLOT 15:PLOT 12 2150 GOSUB 2350 2160 PLOT 3,7,3 2170 PRINT "* * * * *" 2180 FOR X= 1TO 5 2190 PRINT ," * * * *" 2200 PRINT ,;:PLOT 26 2210 PRINT "* * * * *" 2220 NEXT 2230 PLOT 6,2,3,10,31,14 2240 PRINT "THIRD CENTURY AMERICA NEEDS DESK TOP COMPUTERS"; 2250 PLOT 3,64,0,15,8:PRINT :PLOT 3,64,0 2260 GOSUB 1110:RUN 110 2270 DATA 12,6,3,2,246,1,10,123,255 2280 DATA 6,57,2,250,12,20,127,247,2,239,238,3,34,239,255 2290 DATA 3,4,0 2300 DATA 6,131,30,72,78,104,29,15,239 2310 DATA 238,6,6,15,2,247,34,34,34,34,255 2320 DATA 6,57,2,247,34,34,34,34,255 2330 DATA 239,6,60,2,249,68,65,247,2,239,238,1,34,239,247,239,238,26,34,239,255 2340 DATA 6,39,8,10,13,10,0,239,239 2350 READ X:IF X< > 239THEN PLOT X:GOTO 2350 2360 READ X:IF X= 239THEN RETURN 2370 READ Y:I= - 1 2380 I= I+ 1:READ A(I):IF A(I)< > 239GOTO 2380 2390 FOR X= 1TO Y:FOR J= 0TO I- 1:PLOT A(J):NEXT J,X:GOTO 2350