0 CLS:P=28672:G=207:Q=159:N=48:FORX=0TO31:POKEP+X,G:POKE480+P+X,G
1 POKEP+31+X*32,G:POKEP+X*32,G:NEXT:K=299:GOSUB8:K=74:GOSUB8
2 K=417:GOSUB8:K=68:GOSUB8:K=213:GOSUB8:K=372:GOSUB8:Q=143:N=49
3 FORX=318TO478STEP32:Z=X+P:Q=Q+16
4 Z$=INKEY$:POKEZ,255:FORT=1TO15:NEXT:POKEZ,Q:B$=",":B=1:GOSUB7
5 B$="A":B=32:GOSUB7:B$="M":B=-1:GOSUB7:B$="Q":B=-32:GOSUB7
6 IFPEEK(Z+32)=NORPEEK(Z-32)=N,POKEZ,Q:N=N+1:NEXT:Y=1:GOTO9ELSE4
7 IFZ$=B$ANDPEEK(Z+B)=96,Z=Z+B:RETURNELSERETURN
8 FORX=KTOK+4:POKEP+X,Q:POKE32+P+X,Q:NEXT:N=N+1:POKEP+K+2,N
9 POKEP+C*32+318,Q:C=C+1:Q=Q+16:IFY=1,PRINT@0,"WINNER"ELSERETURN
