Quote:

100 SCREEN5,1:COLOR15,0,0

110 FORX=0TO15:LINE(X*16,40)-STEP(16,120),15-X,BF:NEXT

120 B$=""

130 FORI=1TO8:READA$:B$=B$+CHR$(VAL("&B+A$)):NEXT

140 SPRITE$(0)=B$

150 SPRITE$(1)=B$

160 COLORSPRITE(1)=33 'SOMBRA

170 COLORSPRITE(0)=CHR$(12)+CHR$(10)+CHR$(5)+CHR$(8)+CHR$(3)+CHR$(3)

180 FORI=0TO212

190 PUTSPRITE0,(I,I),,0

200 PUTSPRITE1,(I+8,I+8),,1

210 NEXT

220 GOTO 220

230 DATA 10011001

240 DATA 00111100

250 DATA 01111110

260 DATA 11111111

270 DATA 11111111

280 DATA 01111110

290 DATA 01000010

300 DATA 10000001