1 CLS:POKE30777,1:K=1:L=156:Y=1:D=0:B=192:PRINT@0,"SCORE:":GOTO5
2 I=I+1:J=I+B-64:PRINT@J,"#";:A$=INKEY$:IFI=31,I=1:B=RND(5)*96
3 PRINT@J-1," ":IFA$="",6ELSEIFA$="Q",Y=Y-3ELSEIFA$="A",Y=Y+3
4 PRINT@L-32,"   ";:PRINT@L,"   ":PRINT@L+32,"   ";:IFY<2,Y=1ELSEIFY>13,Y=13
5 K=29+Y*32:L=K:PRINT@K-31,"";:PRINT@K,"";:PRINT@K+33,"";
6 PRINT@6,S:IFPEEK(28704+J)=159,S=S+1:GOTO2ELSE2
