10 POKE11,48:POKE12,2:FORP=1TO40:READM:NEXTP 20 FORP=560TO583:READM:POKEP,M:NEXTP:A=64:GOTO180 30 POKE530,1:POKE57088,127:K=PEEK(57088):IFK=127THENA=148 40 IFK=191THENA=149 50 IFK=223THENA=219 60 IFK=239THENA=43 70 IFK=247THENA=46 80 IFK=251THENA=171 90 IFK=253THENA=170 100 POKE57088,191:K=PEEK(57088):IFK=127THENA=187 110 IFK=191THENA=161 120 IFK=223GOTO270 130 IFK=239GOTO260 140 IFK=247GOTO190 150 IFK=251THENA=32 160 POKE530,0:IFA=255GOTO30 170 IFA=BGOTO30 180 B=A:POKE561,A:K=USR(K):GOTO30 190 M=53263:N=54256:O=53728:P=53791:Q=53248:R=54271:S=53279:T=54240 200 FORX=0TO15:Y=32*X:V=33*X:W=31*X:B=48+X:FORI=Q+VTOS+W:POKEI,135 210 NEXTI:FORI=T-WTOR-V:POKEI,128:NEXTI:FORI=Q+VTOT-WSTEP32:POKEI,136 220 NEXTI:FORI=S+WTOR-VSTEP32:POKEI,143:NEXTI 230 POKEQ+V,210:POKER-V,208:POKES+W,207:POKET-W,209:IFX>9GOTO250 240 POKEM+Y,B:POKEN-Y,B:POKEO+X,B:POKEP-X,B 250 NEXTX:A=255:GOTO30 260 RESTORE:FORX=1TO20:READAD,DA:POKEAD,DA:NEXTX:A=255:B=A:GOTO30 270 U=53512:FORI=0TO15:FORJ=0TO15:Z=J+16*I:POKEU+J+32*I,Z:NEXTJ:NEXTI 280 A=255:B=A:GOTO30 290 DATA53648,131,53647,131,53872,132,53871,132,53649,198,53646,196 300 DATA53873,195,53870,197,53682,190,53842,189,53837,190,53677,189 310 DATA53715,200,53811,202,53804,199,53708,201,53747,139,53779,139 320 DATA53740,140,53772,140 330 DATA169,32,160,4,162,0,157,0,208,232,208,250,238,56,2,136,208 340 DATA244,169,208,141,56,2,96 OK