Listing of file='DEMO.BAS;01' on disk='vmedia/sampler-3.31.78-sector.ccvf'
2 GOTO 600 3 RESTORE :R= 1 10 PLOT 14:PRINT CHR$ (12):PLOT 3,11,16 20 PRINT "T H E A M A Z I N G C O M P U C O L O R" 40 T= 1200:GOSUB 995 45 PRINT CHR$ (8); 50 GOSUB 1000 60 PLOT 3,10,20:PRINT "OR..."; 70 GOSUB 5000 80 T= 2500:GOSUB 995 85 PLOT 6,6 90 PRINT CHR$ (12);:PLOT 3,30,24:PRINT "...RAINDROPS...";CHR$ (8); 95 K= 0:P= 0:C= 0 99 PLOT 2 100 PLOT RND (8)* 127,RND (8)* 127:K= K+ 1 110 IF K< 200THEN 100 112 K= 0:PLOT 255 114 PLOT 6:C= C+ 1:IF C> 7THEN C= 0 115 PLOT C:PRINT 116 PLOT 3,26,28,15:PRINT "THIS IS THE SMALLEST DOT" 117 PRINT CHR$ (8); 118 PLOT 3,81,RND (8)* 64,RND (8)* 32,C,46 119 K= K+ 1:IF K< 200THEN 118 120 K= 0:P= P+ 1:IF P< 2THEN 114 130 PRINT CHR$ (12); 140 GOSUB 3099 150 PLOT 3,4,40,14:PRINT "NOW YOU KNOW WHAT" 165 PRINT " "; 170 PRINT CHR$ (34);"PAINT BY NUMBER";CHR$ (34) 180 PRINT " REALLY MEANS!" 190 T= 4000:GOSUB 995 195 PLOT 15,255:LOAD "PCARDS;1":RUN 200 PLOT 12,3,64,0 212 Z= 6 220 IF Z> 12THEN 355 225 Z= Z+ 3 230 X0= 63:Y0= 63:X1= 0:Y1= 0:C= C+ 1 240 PLOT 6,C,2,X0,Y0,242,X1,Y1,240 265 FOR I= 1TO 43 270 PLOT 193,8,8,202 280 NEXT I:PLOT 255:C= C+ 1:X1= 127:Y1= 0 293 FOR I= 1TO 31:Y1= Y1+ 4:C= C+ 4 300 PLOT 6,C,2,X0,Y0,242,X1,Y1,240,200,2,2,198,255 340 NEXT I:C= Z+ 1 350 GOTO 220 355 REM 395 X= 0:PLOT 15,27,88 400 T= 500:GOSUB 995:C= 6:PLOT 14 402 FOR T= 0TO 100:NEXT :IF CN> 6THEN PLOT 15:RUN 10000 403 FOR Y= 7TO 49STEP 7 405 PLOT 6,Y,11:PRINT :PLOT 11:PRINT 408 NEXT 410 CN= CN+ 1:GOTO 402 500 PLOT 255,6,C2,2,254 510 FOR I= 1TO J:PLOT 0:NEXT 520 PLOT 255,6,C1,2,254:GOTO 230 600 T= 2000 605 PLOT 30,20,12,29,23 606 CF= 23 607 CX= 3:CY= 4:GOSUB 996 610 PRINT "HI THIS IS A DEMONSTRATION PROGRAM TO TEST SOME OF THE " 612 CX= 10:CY= 8:GOSUB 996 613 PRINT "CAPABILITIES OF YOUR OWN DESK TOP COMPUTER " 614 CX= 5:CY= 12:GOSUB 996 615 PRINT "WHICH HAS MANY COLOR GRAPHIC MODES OF OPERATION !!!!!!!!" 617 CX= 52:CY= 28:GOSUB 996 619 PRINT "REV.3/31/78" 621 CX= 15 623 CY= 5:CO= 20:GOSUB 995:GOSUB 990:GOSUB 996:T= 1000 624 PRINT "THIS IS A BLINKING BLINK TEST !" 626 GOSUB 995 627 CY= 10:CX= 17:GOSUB 996 630 PRINT "TESTING FOREGROUND COLORS !" 632 PLOT 6,65,30 633 CY= 28:CX= 14:GOSUB 995 634 PRINT ,"TESTING BACKGROUND COLORS !!" 636 PLOT 6,7,29 637 T= 1000:GOSUB 995 640 PLOT 6,6,12,14 645 PRINT ,"TESTING LOWER CASE OR SPECIAL CHARACTERS" 650 PRINT :PRINT 651 FOR CL= 17TO 23:PLOT 29,CL 653 IF CL= 19THEN GOSUB 1300:PRINT 654 IF CL> 18THEN PLOT 15 655 PLOT 29:PRINT ;:FOR A= 64TO 95:PLOT A,32:NEXT :PRINT 656 PLOT 29:PRINT ;:FOR A= 96TO 127:PLOT A,32:NEXT :PRINT 660 NEXT CL:PLOT 29 670 T= 1000:GOSUB 995:PLOT 12 674 PLOT 14,17:PRINT SPC( 21);"TESTING CONVERGENCE !!" 675 T= 500:CX= 0:CY= 2:GOSUB 995:PLOT 29,23,15,27,25,46 682 PRINT SPC( 8);"HIT THE BREAK KEY TO HOLD DISPLAY FOR ADJUSTMENT" 684 T= 2000:GOSUB 995:PLOT 12 685 PLOT 14,29,19:PRINT SPC( 21);"TESTING X,Y PLOTTING!! " 690 YC= 18:PLOT 2,0,0,242,127,127,127,0,0,127,0,0,255,19 710 T= 4000:GOSUB 995:PLOT 12,6,33,12,27,11,14,3,11,6,6,25 740 PRINT "COMPUCOLOR PRESENTS A UNIQUE COLOR DISPLAY" 745 T= 3500:GOSUB 995 755 CO= 16:GOSUB 990 989 RUN 200 990 PLOT 30,CO,12,30,16,29,CF 991 RETURN 995 PLOT 3,64,0:FOR I= 0TO T:NEXT 996 PLOT 3,CX,CY,14:RETURN 1000 K= 0 1010 FS= 64:A= 127:B= 67:R= - 4 1030 FOR I= ATO BSTEP R 1040 FS= 127- I 1050 FOR P= 246TO 250STEP 4 1060 PLOT 2,P,FS,I,I,255,2,P,FS+ 2,I- 2,I- 2,255,2,P,FS,127- I,I- 1 1080 PLOT 255,2,P,FS+ 2,127- I+ 2,I- 3,255,15,3,64,0 1160 NEXT P 1170 C= INT (RND (1)* 104)- 40 1180 IF C< 0THEN C= 0 1185 IF K> = 4THEN C= 0 1190 PLOT 6,C 1200 NEXT I 1210 X= A:A= B:B= X:R= - R:K= K+ 1 1220 PRINT CHR$ (8):PLOT 6,2 1230 IF K< 5THEN 1030 1235 PLOT 6,2,3,3,3:PRINT "BAR GRAPH MODE" 1240 RETURN 1300 FOR QW= 1TO 1000:NEXT :FOR QW= 6TO 18STEP 2 1310 PLOT 3,0,QW,11 1320 NEXT QW 1330 PLOT 3,0,6 1340 RETURN 3099 K= 0 4000 X0= X0+ 1.06:Y1= Y1+ .98 4001 Y0= Y0- 2:X1= X1- 2.13 4002 IF Y0< 0THEN Y0= 125+ Y0 4003 IF X1< 0THEN X1= 127+ X1 4005 IF X0> 127THEN X0= X0- 127 4006 IF Y1> 125THEN Y1= Y1- 125 4010 C= INT (RND (1)* 7)+ 1 4030 PLOT 2,253,X0,Y0,242,X1,Y1,255,6,C:K= K+ 1 4080 IF K< 125THEN 4000 4085 RETURN : 5000 PLOT 6,2,14 5001 CN= 3 5005 IF QQ= 0THEN DIM C(127):QQ= 9 5020 FOR J= 1TO 50 5025 PRINT CHR$ (8);CHR$ (10) 5026 PLOT 3,7,5:PRINT T1 5030 T= 0 5035 PLOT 3,64,0 5040 FOR I= 1TO CN 5050 T= T+ RND (1) 5060 NEXT I 5070 T= INT ((T/ CN)* 127) 5080 C(T)= C(T)+ 1 5090 T1= T1+ 1 5100 NEXT J 5101 GOSUB 5200 5105 PLOT 3,64,0,2,246,10 5109 FOR I= 2TO 125 5120 PLOT I 5121 P= C(I- 2)+ 2* C(I- 1)+ 3* C(I)+ 2* C(I+ 1)+ C(I+ 2):P= P/ 9 5122 PLOT P* SF+ 10 5130 NEXT I 5135 PLOT 255 5140 PRINT CHR$ (8):PRINT :PRINT 5145 PLOT 3,3,7 5150 PRINT "RANDOM METROPOLITAN SKYLINE"; 5170 RETURN 5200 B= 0 5205 FOR I= 0TO 127 5210 IF C(I)> BTHEN B= C(I) 5220 NEXT 5230 SF= 93/ B:RETURN 10000 REM 10500 DIM A(256) 11000 DATA 12,28,6,56,29,11,6,2,3,64,0,2,103,20,242,64,23,240,35,99,35,99,242 11005 DATA 25,20,240,50,58,50,58,242,64,88,240,239,238,74,131,239,255 11010 DATA 6,21,2,101,23,242,40,46,255 11015 DATA 6,3,2,246,19,63,22,243,8,136,255 11017 DATA 17,2,60,4,242,57,18,240,239,238,6,56,239,0,239,238,9,136,239,255 11020 DATA 6,11,2,250,58,12,71,12,71,255 11025 DATA 6,3,2,246,4,18,15,243,8,239,238,11,136,239,255 11027 DATA 6,25,2,18,9,242,30,15,253,30,4,242,41,9,255 11030 DATA 6,5,2,246,4,44,15,243,8,136,136,136,136,255 11033 DATA 6,47,2,44,9,242,53,9,48,9,47,7,50,12,255 11035 DATA 6,6,2,246,4,74,11,243,8,239,238,7,136,239,255 11036 DATA 6,49,2,245,86,11,250,74,7,89,255 11040 DATA 6,4,2,246,4,92,15,243,239,238,7,136,239,255 11041 DATA 6,38,2,245,99,15,255 11045 DATA 6,2,2,34,48,242,64,100,240,239,238,61,131,239 11050 DATA 253,42,70,242,64,108,240,239,238,44,131,239 11055 DATA 253,49,90,242,64,123,240,239,238,30,131,239,255 11058 DATA 23,2,246,124,64,127,250,63,126,65,255 11061 DATA 6,21,2,93,50,242,46,67 11062 DATA 253,83,75,242,52,87 11063 DATA 253,76,95,242,56,103,255 11065 DATA 6,81,2,246,123,66,112,60,92,47,60,82,32,42,36,54,28,72,64,255 11070 DATA 19,2,245,58,104,53,80,79,60,55,52,61,32,93,28,255 11075 DATA 23,2,245,72,100,69,84,63,72,70,48,33,24,87,40,255 11080 DATA 3,64,0,6,1,239,239 11083 PRINT " ":REM 11085 GOSUB 20000 11087 PLOT 30,19,29,17 11088 PLOT 3,10,29:PRINT "COMPUCOLOR" 11090 PLOT 6,1,3,7,2,14 11091 PRINT "MERRY CHRISTMAS":PLOT 3,41,2 11092 PRINT "& HAPPY NEW YEAR" 11105 PLOT 15,3,64,0 11110 T= 5000:GOSUB 995:PLOT 15:PLOT 12 11115 GOSUB 20000 11119 PLOT 3,7,3 11120 PRINT "* * * * *" 11125 FOR X= 1TO 5 11126 PRINT ," * * * *" 11127 PRINT ,;:PLOT 26 11128 PRINT "* * * * *" 11130 NEXT 11135 PLOT 6,2,3,10,31,14 11140 PRINT "THIRD CENTURY AMERICA NEEDS DESK TOP COMPUTERS"; 11145 PLOT 3,64,0,15,8:PRINT :PLOT 3,64,0 11150 GOSUB 995:RUN 3 11155 DATA 12,6,3,2,246,1,10,123,255 11157 DATA 6,57,2,250,12,20,127,247,2,239,238,3,34,239,255 11159 DATA 3,4,0 11160 DATA 6,131,30,72,78,104,29,15,239 11162 DATA 238,6,6,15,2,247,34,34,34,34,255 11163 DATA 6,57,2,247,34,34,34,34,255 11165 DATA 239,6,60,2,249,68,65,247,2,239,238,1,34,239,247,239,238,26,34,239,255 11170 DATA 6,39,8,10,13,10,0,239,239 20000 READ X:IF X< > 239THEN PLOT X:GOTO 20000 20020 READ X:IF X= 239THEN RETURN 20030 READ Y:I= - 1 20040 I= I+ 1:READ A(I):IF A(I)< > 239GOTO 20040 20050 FOR X= 1TO Y:FOR J= 0TO I- 1:PLOT A(J):NEXT J,X:GOTO 20000