5
10
cD
3D
35
L;O
50
60
70
50
90
1000
1005
1010
COOO
c010
cOcO
COC5
c030
3000
3010
L;OOO
L;010
L;OCO
L;030
L;OL;O
L;050
DO-IT-YOURSELF COLOR
------------
REM
COMMODORE
COLOR
DEMO
OPEN
3,L;
READ
Y,M,C
PRINT#3,CHR$(c7);CHR$(c5);
PRINT#3,CHR$(5);
ON Y GOSUB
1000,COOO,3000
ON M GOSUB
1000,COOO,3000
ON C GOSUB
1000,COOO,3000
PRINT#3,CHR$(c7)
;CHR$(10);CHR$(1L;);
IF
y=o
THEN
PRINT#3,CHR$(15):CLOSE
3:END
GOTO
cD
PRINT#3,CHR$(c6)
;CHR$(c50);CHR$(c55);
PRINT#3,CHR$(13)
;
RETURN
FOR
X=1
TO
1c5
PRINT#3,CHR$(c13);CHR$(170);
NEXT
X
PRINT#3,CHR$(13);
RETURN
PRINT#3,CHR$(13);
RETURN
DATA
1,1,1,c,1,1,3,1,1,c,c,1,3,1,c,c,3,1,3,c,1,3,3,1,3,c,c,3,3,c,1,c,1
DATA
c,1,c,c,c,c,1,1,3,c,1,j,3,1,3,c,3,c,c,c,3,3,c,3,1,c,c,1,c,3,1,3,3
DATA
c,3,3,1,1,c,1,3,1,1,3,c,O,O,O
REM:1=SOLID
COLOR
REM:c=
HALF-TONE
REM:3 =
WHITE
(SKIP
COLOR)
35