1 COLOR15,0,0:SCREEN 6
2 COLOR=(1,7,0,0):COLOR=(3,0,0,7)
10 ' Sprite
11 DATA 00011000
12 DATA 01111110
13 DATA 11100111
14 DATA 11011011
15 DATA 11011011
16 DATA 11100111
17 DATA 01111110
18 DATA 00011000
20 ' Colors
21 DATA 00000111
22 DATA 00000111
23 DATA 00000111
24 DATA 00000111
25 DATA 00000111
26 DATA 00000111
27 DATA 00000111
28 DATA 00000111
70 S$=""
73 FOR I=0 TO 7
75 READ D$
76 S$=S$+CHR$(VAL("&b"+D$))
78 NEXT I
79 SPRITE$(0)=S$
80 PUT SPRITE 0,(20,20)
90 C$=""
93 FOR I=0 TO 7
95 READ D$
96 C$=C$+CHR$(VAL("&b"+D$))
98 NEXT I
99 COLOR SPRITE$(0)=C$
100 PUT SPRITE 0,(20,20)
110 GOTO 110