Compucolor.org – Virtual Media

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