0 DIM M$(800),N$(11),P(10,10),E(10),F(10),B(10):GR.0:C.149:TE.0,6,"ABYSS":POK.755,0:L=150:E(0)=10:E(9)=10:AM=ADR(M$):SM=DPEEK(88):G=SM+420
1 FO.I=0TO9:POK.AM+(I*240+RAND(39)+400)MOD800,33+I:POK.AM+RAND(39)+I*80+40,84:FO.J=0TO9:P(I,J)=RAND(200)-100:NEXT J:NEXT I:POS.7,15:?"v1.2 by Jakub Debski '2014":WHILE STRIG(0):WEND
2 M.AM,SM,800:R=PEEK(G):POK.G,94:POK.710,32*(E(0)<5)+128*(R=80):E(0)=E(0)-(R=80):IF(R=84)&(E(0)>4):POK.AM+G-SM,111:E(3)=E(3)+E(9):E(9)=0:T=0:END.
3 IF T:D=D+1:IF NOT D MOD5:E(0)=E(0)-1:E(9)=E(9)+1:R=RAND(800):IF PEEK(AM+R)=0:POK.AM+R,80:END.:END.:END.:IF D>=K:R=RAND(20):K=D+R+15:Q=(20+D)*5+RAND(D*15):Z=(Z+8)MOD10:END.
4 POS.2,20:?"FUEL:";E(0);" DAY:";D;" MIS:";CHR$(Z+65);"-";K;"-$";Q;"  ":IF E(0)<1 OR D>999:?:?"GAME OVER":WHILE STRIG(0):WEND:RUN:END.:S=STICK(0):S=(S=7)-(S=11)+40*((S=13)-(S=14)):IF S:T=S:END.
5 H=G+T:IF H MOD40<>31 AND H>=SM AND H<SM+800:C=PEEK(H):IF C<59 AND C:C=C-33:CLS:POS.13,0:?"PRICE  PLANET  SHIP":IF C=Z:L=L+Q:K=0:END.:G.6:END.:G=G+T:END.:PA.8:G.2
6 RES.:Y=Y+((S=13)-(S=14)):Y=ABS(Y)MOD10:X=(S=7)-(S=11):FO.I=0TO9:READ N$:J=I*2+1:POS.33,J:?CHR$(32+(I=Y)):IF I=Y OR T OR I=9:IF T:R=D-B(C):IF R>50:R=50
7 END.:A=P(C,I)+RAND(R)-RAND(R):IF ABS(A)>99:A=99*SGN(A):END.:IF I=0 OR I=9:A=ABS(A):END.:P(C,I)=A:F(I)=1.7^I*10:F(I)=INT(F(I)-F(I)*A/200):POS.0,J:?N$:POS.13,J:?F(I):END.:POS.20,J:?P(C,I);" ":POS.28,J:?E(I);" "
8 IF I=Y AND X AND T=0:A=SGN(P(C,I)):IF E( I*(A<0)+9*(A>0) ) AND L>A*F(I):L=L-A*F(I):P(C,I)=P(C,I)-A:E(I)=E(I)+A:IF I<9:E(9)=E(9)-A:END.:END.:END.:END.:NEXT I:T=0
9 S=STICK(0):?:?"$";L;" ":IF NOT STRIG(0):B(C)=D:G.2:END.:G.6:DATA FUEL,FOOD,ANIMALS,ORE,MACHINES,ROBOTS,MEDICINES,WEAPONS,GEMS,CARGO HOLD