20 COLOR 15,1,1:CLS:SCREEN 2:COLOR 15,1:CLS
60 FOR I=0 TO 7
70    READ A:VPOKE I,A:VPOKE I+2048,A:VPOKE I+4096,A
80 NEXT
90 FOR I=6144 TO 6144+767:VPOKE I,0:NEXT
120 FOR I=8192 TO 14435:VPOKE I,241:NEXT
150 GOTO 150
160 DATA &b11111111
170 DATA &b10011001
180 DATA &b10111101
190 DATA &b11100111
200 DATA &b11100111
210 DATA &b10111101
220 DATA &b10011001
230 DATA &b11111111