150 POKE53280,0:PRINT"[151]":POKE53265,11
160 FORB=0TO6:READC(B):NEXTB:RESTORE:FORJ=6TO0STEP-1:READD(J):NEXTJ
170 FORI=54272TO54295:POKEI,0:NEXT
180 POKE54272+22,50
190 POKE54278,255:POKE54272+23,50
200 POKE54276,23:POKE54276,23
210 FORE1=15TO7STEP-2.5
220 FORE2=7TO15STEP+2.5
230 FORB=0TO6:FORJ=0TO6
240 POKE54287,C(B)
250 FORA=255TO0STEP-4
260 POKE54296,E1:POKE54273,A
270 NEXTA
280 POKE54287,D(J)
290 FORM=0TO255STEP+2
300 POKE54296,E2:POKE54273,M
310 NEXTM
320 NEXTJ:NEXTB:NEXTE2:NEXTE1
330 DATA23,21,21,19,19,18,19
340 POKE53265,27:POKE54296,0