10 CLS:N=156:O=96:H=32:K=1:L=156:R=127:X=1:Y=32:D=96:E=-96:F=156
20 POKE30777,1:PRINT@2,"SCORE";S,T
30 H=28672+Y+X:IFPEEK(H+1)=159,T=T+1ELSEIFPEEK(H-1)=159,S=S+1
40 C=X+Y:IFI=0,X=X+1:IFX>29,I=1:ELSE:ELSEIFI=1,X=X-1:IFX<2,I=0
50 IFJ=0,Y=Y+32:IFY>416,J=1:ELSE:ELSEIFJ=1,Y=Y-32:IFY<64,J=0
60 F=L:P=0:Q=0:PRINT@C," ";:PRINT@X+Y,"#";:B$=INKEY$:A$=INKEY$:IFA$="",20
70 IFA$="P",P=EELSEIFA$="L",P=DELSEIFA$="Q",Q=EELSEIFA$="A",Q=D
80 R=R+P:O=O+Q:G=R:GOSUB90:L=G:R=G:F=N:G=O:GOSUB90:O=G:N=O:GOTO20
90 PRINT@F-32," ";:PRINT@F," ";:PRINT@F+32," ";:IFG<64,G=G+DELSEIFG>416,G=G+E
100 FORZ=G-32TOG+32STEP32:PRINT@Z,"";:NEXT:RETURN
