1 INPUT"LEVEL (1-9)";E:CLS:M=28672:A=9:B=9:FORY=0TO9:FORX=0TO9
2 POKEM+X+Y*32,46:NEXT:NEXT:X=0:Y=0:W(0)=98:W$(1)="YOU WIN!"
3 P=M+X+Y*32:G=M+A+B*32:C=PEEK(P):D=PEEK(G):POKEP,F:POKEG,98
4 S$=INKEY$:IFS$="",5 ELSES=ASC(S$):F=60:IFS=77THENF=62
5 Q=(S=77ANDX>0):Q=Q-(S=44ANDX<9):R=(S=81ANDY>0):R=R-(S=65ANDY<9)
6 X=X+Q:Y=Y+R:IFC=46,POKEP,61:SOUND8,1:C=32:T=T+E:PRINT@11,T;
7 P=M+X-Q+(Y-R)*32:G=M+A+B*32:POKEP,C:POKEG,D
8  IFRND(11)<=ETHENA=A-(X>A)+(X<A):B=B-(BY)+(B>Y)
9  ON-((X=A)+(Y=B)<>-2)GOTO3:W(1)=F:C=-(T=(E*100)):POKEG,W(C)
10 SOUND16,3:PRINT@353,"GAME OVER";:PRINT@385,W$(C);:PRINT@416,;:RUN
