Atari 8-bit Source code

G.8:G.17:M.$E080,$B080,80:M.&"<"+1,$B00E,10:P.756,$B0:M.&"*"+1,704,9:MS.$BDD0,20,65:M.$BDD0,$BDF8,300
MS.$BDA8,20,66:MS.$BF38,20,66:MS.$BE70,20,130:P.$BD63,198:P.$BD67,134:M.$BD67,$BD69,18:Z=215:PMG.1:DA.P()B.="0Qh]8"
DA.Q()B.="wD:n":DA.R()=0,-1,-2,-3,-4,-5,5,4,3,2,1:A=$B679:M.&"ffff"+1,A,26:-.A-48,A-64,64
M.A+16,A+32,64:DL.S.D=P W.I.$D002,Q W.I.$D014,0W.W.W.W.W.W.W.W.I.$D014:DL.D:DI.S(2),T(2),N(2),O(2):PM.0,88:PM.1,160
B=&"\|<\|<0$\|<0"+1:M.B,$B4D7,10:M.B,$B5D7,10:DO:P.708,42:R.:U.P.53279=6:P.77,0:F.I=0T.1:J=PM.I
MS.J,256,0:S(I)=Z:T(I)=0:N(I)=0:O(I)=0:POS.4+10*I,0:?#6,"0 ":M.B,J+Z,10:N.:P.20,0:D.18,0:R.:I.P.19>23T.P.708,P.708+4:PA.
P.$D01E,0:F.I=1T.10:P(I)=((P(I)+128+R(I))M.168)+40:N.:PA.:F.I=0T.1:I.P.($D00C+I)A.T(I)<11:T(I)=29:E.:J=T(I):I.J:I.J>11
S.I+2,9+(J M.6),10,8:S(I)=S(I)+2:I.S(I)>Z T.S(I)=Z:M.B+20*(J&1),PM.I+S(I),10:ELI.J=11:S.I+2:E.:DE.T(I):EL.:J=S.I
K=((J=13)-(J=14))*2:I.K:S.I,200+16*I,10,3:J=S(I)+K:I.J<43:N(I)=15:INCO(I):POS.4+10*I,0:?#6,O(I):MS.PM.I+J,12,0:J=Z
ELI.J>Z:J=Z:E.:M.B+10*(J&2>0),PM.I+J,12:S(I)=J:S.I:E.:E.:I.N(I):S.I+2,78+4*I,12,N(I)-1:DE.N(I):E.:N.:U.P.19>26:S.:L.	

• Download link 1