Atari 8-bit Source code

0GR.24:GR.0:K=ADR(">HUG@V@P `?9?0`"):Q=$BC28:M.K+21,Q-5,8
1M.Q+2,Q+3,17:P=$D000:M=$D404:POK.M,0:POK.M+3,184:POK.559,46:POK.$D01D,3:M.$E000,$B000,512:M.K+29,$B008,48:Z=1:D=1:T=54
2M.K,$BA68,4:DI.X(1),M(1),F(1),I(8),J(5):M.K+8,P,13:U=1:L=5:POK.756,$B0:W=$B99C:E=$BAEC:S=$BE0E:R=S-2:M.K+3,704,8:X(1)=8
3M(1)=8:F(1)=14:A=72:F.J=0TO5:F.I=0TO8:DP.S+J*48+I*2,$4242*((J+2)DIV2)-1:I(I)=6:J(J)=9:N.I:N.J:W.Y+L*2<18ANDC&257=0ANDT
4POK.$D01E,1:U=U+2:H=STICK(0):G=(H=7)-(H=11):IFA+G>46ANDA+G<192:A=A+G*2:POK.P,A:END.:IFV=STRIG(0):B=A+8:V=4:POK.P+1,B
5END.:-.W,W+2,78:O=(O+1)MOD36:IFO MOD9=0:H=O DIV9:I=RAND(X(1)-X(0)+1)+X(0):IFI(I):POK.P+4+H,(X+I)*16+F+55:_=W+I(I)*8+Y*4
6DP._,$202*4^H:END.:END.:PA.0:C=DPEEK(P+8)!DPEEK(P+10):IFV:IFPEEK(P+5):I=(B-F)DIV16-X-3:J=((76-V)DIV4-Y)DIV2:SO.1,8,8,9
7DP.S+J*48+I*2,0:I(I)=I(I)-1:J(J)=J(J)-1:T=T-1:C=C!2:END.:DP.E-V,0:IFV<84ANDC&514=0:V=V+2:DP.E-V,$8080:EL.:V=0:END.:END.
8IFU>T:SO.0,255,10,8:U=1:IFF=F(Z):X(Z)=X(Z)-D*(I(X(Z))=0):IFX(Z)+X=M(Z):D=-D:Z=1-Z:L=L-(J(L)=0):R=R-24:Y=Y+1:EL.:R=R-D-D
9X=X+D:F=F(1-Z):END.:PA.0:DP.Q,R:EL.:F=F+D+D:PA.0:END.:POK.M,F:END.:SO.:WE.:IFT:DP.$BA69,$2A55:EL.:?"WIN":END.:GETA:RU.