Atari 8-bit Source code

G.8:G.17:PMG.1:DA.X()B.=" |<ZB":DA.Y()B.=" A j*$N|":DA.Z()B.="*`@0(&<jf":DA.W()B.="startZselectZ":DL.S.L=Z I.$D002,X I.$D000,Y I.$D001,W I.$D003:A=PM.0+48:M.&X+9,A+168,8
M.&X+1,A,8:M.A,A+8,160:M.$E3F0,A-16,8:M.&X+17,A+512,8:M.A+512,A+520,168:M.&Y+1,A+768,8:M.A+768,A+776,168:A=PM.-4:M.$E000,A,512:M.&Z+1,A+8,48:P.756,A/256:M.&Y+9,704,8:D=D.88:M.&Y+17,D+166,7:M.&W+1,D+240,20:MS.D.560+6,23,$86:DI.C(23):DA.MD()=1,-1:O=0:DO:R.
A=P.53279:U.A<7:P=A=5:F.A=0T.22:Z(A)=9:X(A)=0:Y(A)=0:W(A)=0:C(A)=D+40:N.:DL.L:MS.D,380,0:M.&""+1,D+380,100:I.O T.@HS:POS.11,0:?#6,"0":S=1+P:B=10:BB=B:H=0
@SI:X(21)=104:U=1:X(22)=88:I.P:M.PM.0,PM.1,256:Y(21)=144:V=-1:Y(22)=200:RR=9:EL.:MS.PM.1,256,0:Y(21)=200:V=0:Y(22)=0:RR=15:E.:T=0:I=0:Q=0:J=0:R=0:E=0:G=0:M=0:N=0:F=1:P.$D01E,0:W.F O.E:INCT:PA.:I.T&1:A=X(21)+U:I.A>55A.A+6<Y(21):X(21)=A:EL.:U=-U:E.:ELI.P
A=Y(21)+V:I.A>X(21)+6A.A+6<200:Y(21)=A:EL.:V=-V:E.:E.:I.E:P.707,E*17:DE.E:S.3,40-E,8,E:I.E=0T.W(G)=9:EL.:A=Z(H)+W:I.A>217O.A<32:Z(H+1)=Z(H):Z(H)=9:INCH:W=-W:EL.:Z(H)=A:E.:E.:A=T&7:P.C(A),0:C(A)=D+40+R.340:P.C(A),65+64*R.3:I.STR.0:Q=1:ELI.I<RR A.Q:Q=0
I.I<21T.X(I)=0:I=21:U=-U:E.:I.STR.1:R=1:ELI.J<RR A.R A.P:R=0:I.J<21T.Y(J)=0:J=21:V=-V:E.:K=P.$D00E&3:I.K:E=15:G=H:I.H=21:F=0:I.K=1:W(H)=X(H):X(H)=0:EL.:W(H)=Y(H):Y(H)=0:E.:EL.:I.K&1:@SC M,4:M=A:I.I<21T.X(I)=0:E.:I.K&2:@SC N,18:N=A:I.J<21T.Y(J)=0:E.
W(H)=Z(H):Z(H)=9:H=H-(H>1)-(H>0):DE.B:I.B=0:I.S<4+P:INCS:EL.:S=1+P:BB=BB-(BB>1):RR=RR-(RR>2):E.:B=BB:E.:@SI:E.:P.$D01E,0:E.:P.77,0:I.T&1:I.I:S.0,100,12,I/2:X(I-1)=X(I):I.I<21T.X(I)=0:DE.I:EL.:S.0:X(0)=0:E.:EL.:I.J:S.1,108,12,J/2:Y(J-1)=Y(J):I.J<21T.Y(J)=0
DE.J:EL.:S.1:Y(0)=0:E.:E.:WE.:S.:M.&"'!-%/6%2"+1,D+244,11:L.:PR.SI:A=R.2:Z(H)=32+A*180:W=S*MD(A):ENDP.:PR.SC A AA:I.H:A=A+2*(21-H):EL.:A=A+100:E.:I.A>9999T.A=9999:POS.AA-L.(STR$A),0:?#6,A;"0":I.A>O:O=A:@HS:E.:ENDP.:PR.HS:POS.11-L.(STR$O),0:?#6,O:ENDP.