DO-IT-YOURSELF COLOR
5 R E M :CO MMO DORE COLOR DEMO
10
OPEN 3,4
2D
READ Y,M,C
3D P RI NT# 3, CHR $(2 ?); CHR $( 25) ;
35
PR INT# 3,C HR$ (A) ;
40 ON Y GOS UB 100 0,2 000 ,300 0
50 ON M GO SUB 10 00,2 000 ,30 00
to
ON C GO SUB 100 0,20 00, 30 00
70 PR IN T#3 ,CH R$ (27 ); CHR $( 10) ;C HR$ (1 4) ;
AO IF Y=0 THEN PRI NT# 3, CHR $(1 5): CLO SE 3 :END
qo GOTO 20
1000 PR IN T# 3, CH R$ (2 t) ;C HR $( 25 0) ;C HR $( 25 5) ;
1005 PR IN T# 3, C HR $( 1 3) ;
1010 RETUR N
2000
FOR X=1 TO 125
2010 PRI NT #3, CH R$( 21 3); CH R$( 17 0) ;
2020
NEXT X
2025 PR IN T# 3, C HR $( 1 3) ;
2030 RETUR N
3000 PRI NT# 3,C HR$ (13) ;
3010 RETUR N
4 000
DATA 1 ,1 ,1, 2,1 ,1, 3, 1,1 ,2 ,2, 1, 3,1 ,2 ,2, 3, 1,3 ,
2,1 ,3, 3,1 ,3, 2,2 ,3, 3,
2,
1,2,1
4010
DATA 2, 1,2 ,2, 2,2 ,1 ,1, 3, 2,1 ,3 ,3, 1, 3,2 ,3 ,2, 2,
2,3 ,3, 2,3 ,1, 2,2 ,1, 2,3,1,3,3
4020
DATA 2, 3, 3,1 ,1 ,2, 1, 3,1 ,1 ,3, 2, 0,0 ,0
<030
R E M :l=SO LID COLO R
4040
R E M :2=H ALF -TON E
4050
R E M :3 =WHI TE (SKIP COLOR)
44