ZXTape! DST {B g?}B 0  1  7 # (&0,172:200,0 2&0,156:200,0 <"" F"DST:Deep Space Trading" P"":"" d25,25,10 n150,502,30 xn=1100d (*200),(*150) n "Press any key to continue..." ""145 =""146 n$=""  $"Start by entering your name:":n$ "":"" 0.1}L,12 {"Welcome ";n$;" to the trade union. You need to start by purchasing a ship. Note that the cost is in the form of a loan." $"":"Press any key to continue..." ""200 =""210 0.1}L,12  $"" $"Ship Cost Hang. People.cap" "Simple $1000 50 0" "Cargo $2000 100 5" "Del.Ca $5000 200 20" "Meg.Ca $8000 500 50" ""Titan $10000 1000 100" ,$"" 6 "":"":"" @2"Enter the ship you want. It is case sensitive:" Js$="" Ts$ UHmax=0 Vcash=0 Wloan=0 X peo=0 ^Ts$="Simple"Hmax=502:cash=502:loan=1000:peo=0:410 hTs$="Cargo"Hmax=100d:cash=45-:loan=2000:peo=5:410 rVs$="Del.Ca"Hmax=200:cash=40(:loan=5000:peo=20:410 |Vs$="Meg.Ca"Hmax=500:cash=40(:loan=8000@:peo=502:410 Xs$="Titan"Hmax=1000:cash=30:loan=10000':peo=100d:410 )"Please enter a 'real' ship":340T   ꏏGame sequence (0.1}L,12 :0.1}L,24 cash=502 interest=1 Metal=0 Plastic=0 Star=0 Dark=0 Diamonds=0 Neutrons=0 Gall=0 Zion=0 Anti=0 Quant=0 ꉉSetup arrays  a(20) z=120:a(z) z 3,4,0,15,0,0,502,150,500,1000,6,10 ,3,30,15,25,502,150,500,1000 & b(20) 0z=120:b(z) :z D5,10 ,17,10 ,20,0,80P,0,0,0,8,30,502,10 ,20,25,200,135,400,800  N c(20) Xz=120:c(z) bz l0,0,10 ,10 ,35#,30,0,150,750,1000,0.5,1,20,10 ,100d,30,25,150,1000,1000 v d(20) z=120:d(z) z 3,0,0,10 ,0,40(,65A,150,500,1200,10 ,1,2,10 ,19,502,75K,150,500,1500  e(20) z=120:e(z) z 0,2,5,0,20,40(,0,200,600X,1000,0.3,2,5,7,20,90Z,40(,300,,900,1000 fuelmax=100d fuel=20 days=0  p$="Nilen" 'loan=((loan/100d)*interest)+loan days=days+1 :cash(peo/10 )cash=cash-(Peo/10 ):730  9930&  ꏏTEMP (days502loan>09040P# cash0Metal=0Plastic=0Star=0Dark=0Diamonds=0Neutrons=0Gall=0Zion=0Anti=0Quant=0fuel=09040P#  ""Planet ";p$;" Day: ";days "Player name: ";n$ &0,159:255,0 ;0,-100d:-255,0:0,100d  )129,159:0,-100d  Draw map )p$="Nilen"60<,112p,30 $)p$="Ceres"60<,112p,10 .+p$="Pandora"60<,112p,25 8,p$="Galifrey"60<,112p,40( B*p$="Utaken"60<,112p,35# L139,59;:0,502:30,0:0,-502:0,80P:20,0:0,-80P:0,30:502,0:0,-30:0,90Z:15,0:0,-90Z V9149,109m:0,20:20,0 `145,65A ja=0:b=0 t,z=127:145+a,65A+b ~ a=a+5 $a15a=0:b=b+5 z 175,65A a=0:b=0 ,z=130:175+a,65A+b  a=a+5 $a10 a=0:b=b+5 z $a10 a=0:b=b+5 a=0:b=0 ,z=140(:195+a,65A+b  a=a+5 $a40(a=0:b=b+5  z 245,65A a=0:b=0 (,z=134":245+a,65A+b 2 a=a+5 <$a10 a=0:b=b+5 Fz P.15,0;"Please select an option:" Z_"(A)Market (B)Fuel Station (C)Loan Shark (D)Hanger (E)Leave Planet(F)Quit game" d321,0;"Cash $";cash;" Loan $";loan no$="" so$ t0.1}L,12 xo$="A"1600@ o$="B"1460 o$="C"5000 o$="D"5130  o$="E"5500| o$="F"9900& FUEL STATION  p$="Ceres"a=3 p$="Pandora"a=5 p$="Nilen"a=7 p$="Galifrey"a=4 p$="Utaken"a=100d "Fuel Station" "":"Current fuel: "; fuel "Max fuel = 100" "Fuel costs $"; a;" per unit" 9"How many units of fuel would you like to purchase?":z  h=0 h=z z=z*a vzcashcash=cash-z:"":"Fuel purchased! Taking you back to the trade center...":100d:fuel=fuel+h:730 +"":"You dont have the money!":100d   " , 6 @MARKET J O x(20) T "Market" ^$"" h"Item Buy Sell" r.p$="Ceres"z=120:x(z)=a(z):z |0p$="Pandora"z=120:x(z)=b(z):z .p$="Nilen"z=120:x(z)=c(z):z 1p$="Galifrey"z=120:x(z)=d(z):z /p$="Utaken"z=120:x(z)=e(z):z I"Metal ";x(1);" ":3,23; x(11 ) H"Plastics ";x(2);" ":4,23;x(12 ) H"Star fuel ";x(3);" ":5,23;x(13 ) H"Darkmatter ";x(4);" ":6,23;x(14) H"Diamonds ";x(5);" ":7,23;x(15) H"Neutrons ";x(6);" ":8,23;x(16) H"Gallium ";x(7);" ":9 ,23;x(17) I"Zion-Par ";x(8);" ":10 ,23;x(18) I"AntiMatter ";x(9 );" ":11 ,23;x(19) J"Quantum-Par ";x(10 );" ":12 ,23;x(20) ["":"Please type in the item you want to deal or type exit to return to the main screen:" i$  i$="exit"i$="Exit"730 i$="Metal"8000@ i$="Plastics"8052t &i$="Star fuel"8170 0i$="Dark Matter"8300l :i$="Diamonds"8420 Di$="Neutrons"8540\! Ii$="Gallium"8660! Ni$="Zion-Par"8780L" Xi$="AntiMatter"8920" bi$="Quantum-Par"9040P# l-"Invalid selection!":100d:1610J   ꏏ  "LOAN SHARK":"" Ploan=0"You dont have a debt. Taking you back...":100d:730 x"":"Welcome. I see that you have a debt to pay. Remember that the interest rate per day is currently "; interest;" %" 0"":"So, how much do you want to pay back?":z Qzcashloan=loan-z:cash=cash-z:"Transaction complete!":100d:730 1"Something went wrong...":100d:730     ꏏHanger    "HANGER" @"Item Quantity":"" "Metal ";Metal ("Plastic ";Plastic 2"Star-Fuel ";Star <"DarkMatter ";Dark F"Diamonds ";Diamonds P"Neutrons ";Neutrons Z"Zion-Par ";Zion d"AntiMatter ";Anti n"Quantum-Par ";Quant s""":"Press any key to continue." x""5240x =""5250  730    |ꏏTravelling AND events  "Leave Planet" 7"":"Ceres":"Pandora":"Nilen":"Galifrey":"Utaken" """:"Please make a selection..." o$ Uo$="Ceres"p$="Ceres":"Travelling to Ceres. This will take some time.":500 [o$="Pandora"p$="Pandora":"Travelling to Pandora. This will take some time.":500 Uo$="Nilen"p$="Nilen":"Travelling to Nilen. This will take some time.":500 ^o$="Galifrey"p$="Galifrey":"Travelling to Galifrey. This will take some time.":500 Xo$="Utaken"p$="Utaken":"Travelling to Utaken. This will take some time.":500 Sort data on transfer fuel=fuel-1 fuel>fuelmaxfuel=fuelmax z=(*200) z=5"Your ship got plundered along the journey":Metal=0:Plastic=0:Star=0:Dark=0:Diamonds=0:Neutrons=0:Gall=0:Zion=0:Anti=0:Quant=0:100d cz=30"Your rich relative died, you got $5000 inheritance":cash=cash+5000:100d z=557"Space police find a fugative in your hanger. A fine of ";(cash/2);" has been issued":cash=cash/2:100d &sz=123{"You got knocked of course. Twice the fuel is needed to get you back!":fuel=fuel-1:100d 0^z=167"You won the lottery! Get ready for $100000":cash=cash+100000CP:100d :dz=189"Your loaner drops the interest down by 0.1%":interest=interest-0.1}L:100d Dhz=200"Your loaner increases the interest rate by 0.2%":interest=interest+0.2~L:100d N 726 < = > ?ꏏMetal @"(B)uy or (S)ell?":o$ A z=0 Io$="S"8030^ J.o$="B""How much would you like to buy?":z T{z*x(11 )cashMetal+zHmax"Transaction complete!":Metal=Metal+z:cash=cash-(z*x(11 )):100d:1610J Y="Something went wrong on your side!":100d:1610J ^'"How much would you like to sell?":z hbMetalz"Transaction complete!":Metal=Metal-z:cash=cash+(z*x(1)):100d:1610J r="Something went wrong on your side!":100d:1610J s t u v z=0 |ꏏPlastic "(B)uy or (S)ell?":o$ o$="S"8120 .o$="B""How much would you like to buy?":z z*x(12 )cashPlastic+zHmax"Transaction complete!":Plastic=Plastic+z:cash=cash-(z*x(12 )):100d:1610J ="Something went wrong on your side!":100d:1610J '"How much would you like to sell?":z hPlasticz"Transaction complete!":Plastic=Plastic-z:cash=cash+(z*x(2)):100d:1610J ="Something went wrong on your side!":100d:1610J   ꏏStar Fuel "(B)uy or (S)ell?":o$  z=0 o$="S"8120 .o$="B""How much would you like to buy?":z xz*x(13 )cashStar+zHmax"Transaction complete!":Star=Star+z:cash=cash-(z*x(13 )):100d:1610J &="Something went wrong on your side!":100d:1610J 0'"How much would you like to sell?":z :_Starz"Transaction complete!":Star=Star-z:cash=cash+(z*x(3)):100d:1610J D="Something went wrong on your side!":100d:1610J N X b lꏏDarmMatter v"(B)uy or (S)ell?":o$ o$="S"8360 .o$="B""How much would you like to buy?":z xz*x(14)cashDark+zHmax"Transaction complete!":Dark=Dark+z:cash=cash-(z*x(14)):100d:1610J ="Something went wrong on your side!":100d:1610J '"How much would you like to sell?":z _Darkz"Transaction complete!":Dark=Dark-z:cash=cash+(z*x(4)):100d:1610J ="Something went wrong on your side!":100d:1610J    ꏏDiamonds z=0 "(B)uy or (S)ell?":o$ !o$="S"8485%! ! .o$="B""How much would you like to buy?":z !z*x(15)cashDiamonds+zHmax"Transaction complete!":Diamonds=Diamonds+z:cash=cash-(z*x(15)):100d:1610J ! ="Something went wrong on your side!":100d:1610J !%'"How much would you like to sell?":z !*kDiamondsz"Transaction complete!":Diamonds=Diamonds-z:cash=cash+(z*x(5)):100d:1610J !4="Something went wrong on your side!":100d:1610J !> !H !R !\ꏏNeurtrons !a z=0 !f"(B)uy or (S)ell?":o$ !po$="S"8600! !z.o$="B""How much would you like to buy?":z !z*x(16)cashNeutrons+zHmax"Transaction complete!":Neutrons=Neutrons+z:cash=cash-(z*x(16)):100d:1610J !="Something went wrong on your side!":100d:1610J !'"How much would you like to sell?":z !kNeutronsz"Transaction complete!":Neutrons=Neutrons-z:cash=cash+(z*x(6)):100d:1610J !="Something went wrong on your side!":100d:1610J ! ! ! !ꏏGallium ! z=0 !"(B)uy or (S)ell?":o$ !o$="S"8720" !.o$="B""How much would you like to buy?":z !xz*x(17)cashGall+zHmax"Transaction complete!":Gall=Gall+z:cash=cash-(z*x(17)):100d:1610J "="Something went wrong on your side!":100d:1610J "'"How much would you like to sell?":z "_Gallz"Transaction complete!":Gall=Gall-z:cash=cash+(z*x(7)):100d:1610J "$="Something went wrong on your side!":100d:1610J ". "8 "B "LꏏZion "V z=0 "`"(B)uy or (S)ell?":o$ "jo$="S"8850" "t.o$="B""How much would you like to buy?":z "~xz*x(18)cashZion+zHmax"Transaction complete!":Zion=Zion+z:cash=cash-(z*x(18)):100d:1610J "="Something went wrong on your side!":100d:1610J "'"How much would you like to sell?":z "_Zionz"Transaction complete!":Zion=Zion-z:cash=cash+(z*x(8)):100d:1610J "="Something went wrong on your side!":100d:1610J " " " "ꏏAntiMatter " z=0 ""(B)uy or (S)ell?":o$ "o$="S"8980# ".o$="B""How much would you like to buy?":z #xz*x(19)cashAnti+zHmax"Transaction complete!":Anti=Anti+z:cash=cash-(z*x(19)):100d:1610J # ="Something went wrong on your side!":100d:1610J #'"How much would you like to sell?":z #_Antiz"Transaction complete!":Anti=Anti-z:cash=cash+(z*x(9 )):100d:1610J #(="Something went wrong on your side!":100d:1610J #2 #< #F #PꏏQuantum #Z"(B)uy or (S)ell?":o$ #do$="S"8980# #n.o$="B""How much would you like to buy?":z #xz*x(20)cashQuantum+zHmax"Transaction complete!":Quantum=Quantum+z:cash=cash-(z*x(20)):100d:1610J #="Something went wrong on your side!":100d:1610J #'"How much would you like to sell?":z #iQuantumz"Transaction complete!":Quantum=Quantum-z:cash=cash+(z*x(10 )):100d:1610J &7:"Are you sure you want to quit. (Y)es or (N)o?":o$ &o$="N"o$="n"730 &"Thank you for playing DST: Deep Space Trading, the only good trading game on the ZX Spectrum and the first game developed by Mitchell Software ltd.":150: & GAMEOVER &:"Game over!" &8"":"Would you like to start again.(Y)es or (N)o?":o$ &o$="Y"10 & 9920& edxNRoSTitanmaasoaffednteresetalastitaariamondeutronaliontuang2 2"C"(g  P2  g # dg (A  2Kg(XZ(,uelmadueayabUPPandoraONO