Compucolor.org – Virtual Media

Listing of file='TONES.BAS;01' on disk='vmedia/colorcue-sector.ccvf'

10 REM  COLORCUE VOL II.3 PAGE 3
20 REM  HALF-TONE COLORS
100 PLOT 12,15,27,24
200 B= 16:F= 16
300 REM
400 KT= 0
500 A= 2:Z= 15
1000 FOR X= 0TO 63
2000 FOR Y= ATO Z
3000 PLOT 30,B
4000 PLOT 29,F
5000 PLOT 3,X,Y,96
6000 NEXT
6100 REM  DRAWS THREE LINES FOR EACH COLOR
6500 IF FLG< > 1THEN FLG= 1:GOTO 10000
6600 FLG= 0
7000 B= B+ 1
8000 IF B= 24THEN F= F+ 1:B= 16
9000 IF F= 24GOTO 11000
10000 NEXT
11000 IF KT< > 0THEN 15000
12000 KT= 1
13000 A= 16:Z= 29
14000 GOTO 1000
15000 PLOT 8,29,18,30,16,15
16000 END