0 CLS:POKE30777,1:FORI=28704TO29119:POKEI,128:NEXT:FORI=1TO30
1 POKE28672+I,179:POKE29120+I,188:NEXT:FORI=28704TO29088STEP32
2 POKEI,181:POKEI+31,186:NEXT:POKE28672,177:POKE28703,178:Z=32
3 POKE29120,180:POKE29151,184:J=28672:X=-32:FORI=1TO4+RND(4)
4 POKEJ+RND(12)*32+RND(28)+34,191:NEXT:S=0:M=1:P=28705:COLOR2
5 PRINT@13,"PAINTER";:PRINT@495,"HIGH SCORE:";H;:SOUND23,3
6 PRINT@481,"SCORE:";S;:A$=INKEY$
7 IFA$="Q",M=XELSEIFA$="A",M=ZELSEIFA$="M",M=-1ELSEIFA$=",",M=1
8 P=P+M:IFPEEK(P)=128,POKEP,159:S=S+1:GOTO6
9  PRINT@267,"";:SOUND23,4;19,9:IFS>H,H=S:GOTO0ELSE0
