SP.TRADER Ÿ7o€Ÿ7ö¡7ÿWêSpace Trader by Steve Greaves from Sinclair User, Sep'85 ç0:Ú0:Ù6:û  í9000(# ‚ê**INSTRUCTIONS** Œ=õ¬0,13 ;"TRADER ********" –õ¬3,0;"You are a SPACE TRADER in a far off galaxy. You make money by travelling around the planets inthe galaxy, buying and selling goods for a profit.You start offwith 10000 @ (@ is the currency)and one ship. It costs 500 @ to fly each ship from one planet to" —õ"another. On your way to another planet you may get robbed of your money or your cargo, get attacked or run into a flying saucer. The game ends when you make 1,000,000 @ or run out of money. G O O D L U C K . ."  +õ¬21,4;"PRESS ANY KEY TO PLAY" ª ò0:û «ña$="COROLETH" ¬ñb$="FRIDGIA" ­ñc$="WRITHULA" ®ñd$="XAGORIA" ¯ñe$="GLATHORIN" °ñf$="ASORTHIA" ´)î"ENTER YOUR NAME ";n$:×.1}LÌÌÌ,0 µú±n$>15Ëì180´ ¶<ñfo=0:ñgo=0:ñdi=0:ñcl=0:ñal=0 ·ñsp=100d:ñsh=1 ¸ ñro=0 ¹ñl$="COROLETH" ¾ñmo=10000' Èê**Main Game** Êúmo>1000000”t$Ëì7000X Íúmo<0Ëì8000@ Ò"úl$=a$Ëç1:Ú1:Ù7 Ó"úl$=b$Ëç7:Ú7:Ù1 Ô"úl$=c$Ëç3:Ú3:Ù0 Õ"úl$=d$Ëç2:Ú2:Ù6 Ö"úl$=e$Ëç6:Ú6:Ù0 ×"úl$=f$Ëç0:Ú0:Ù4 Üû áÓõ¬0,0;" ";¬6,0;" ";¬21,0;" ";¬14,0;" " â7ëa=0Ì21:õ¬a,0;"";¬a,31;"":óa ã(ëa=6Ì13 :õ¬a,15;"":óa æ'õ¬1,1;"SPACE TRADER : ";n$ ð#õ¬2,1;"LOCATION : ";l$ ú%õ¬3,1;"MONEY : ";mo;" @"  õ¬4,1;"SHIPS : ";sh &õ¬5,1;"CARGO SPACE : ";sp õ¬7,5;"CARGO" "õ¬9 ,1;"FOOD:";fo ,õ¬10 ,1;"CLOTH:";cl 6!õ¬11 ,1;"ALCOHOL:";al @õ¬12 ,1;"GOLD:";go J"õ¬13 ,1;"DIAMONDS:";di Oúro=1Ëì395‹ Túl$=a$Ëí1000è ^úl$=b$Ëí1100L húl$=c$Ëí1200° rúl$=d$Ëí1300 |úl$=e$Ëí1400x †úl$=f$Ëí1500Ü "õ¬7,16;"LOCAL PRICES" šõ¬9 ,16;"FOOD:";foo ¤!õ¬10 ,16;"CLOTH:";clo ®#õ¬11 ,16;"ALCOHOL:";alc ¸ õ¬12 ,16;"GOLD:";gol Â$õ¬13 ,16;"DIAMONDS:";dia Ìõ¬15,12 ;"CHOICES" Ö£õ¬17,2;"1 . BUY SOME GOODS";¬18,2;"2 . SELL SOME GOODS";¬19,2;"3 . BUY ANOTHER SHIP";¬20,2;"4 . TAKE-OFF FROM ";l$ à/î"ENTER CHOICE (1 TO 4) ";ch:×.1}LÌÌÌ,0 ê8úchÉ1ÆchÉ2ÆchÉ3ÆchÉ4Ëì480à ô$úch=1Ëñro=1:ì2000Ð þ$úch=2Ëñro=1:ì2500Ä $úch=3Ëñro=1:ì3000¸ ç0:Ú0:Ù7:û  ñro=0 õ¬3,0;"1 . ";a$ &õ¬5,0;"2 . ";b$ 0õ¬7,0;"3 . ";c$ :õ¬9 ,0;"4 . ";d$ Dõ¬11 ,0;"5 . ";e$ Nõ¬13 ,0;"6 . ";f$ X.õ¬18,0;"WHERE DO YOU WANT TO GO?" bîi$:×.1}LÌÌÌ,0 l0úi$Éa$Æi$Éb$Æi$Éc$Æi$Éd$Æi$Ée$Æi$Éf$Ëì610b v~úi$=l$Ëõ¬20,0;"YOU'RE ALREADY AT ";l$:ò100d:õ¬20,0;" ":ì610b €ñl$=i$ Šñmo=mo-500ô*sh ” ì3500¬ èñfoo=º(¥*30)+30 òñclo=º(¥*100d)+200È üñalc=º(¥*100d)+200È  ñgol=º(¥*2000Ð)+1000è  ñdia=º(¥*1000è)+5000ˆ þ Lñfoo=º(¥*70F)+30 Vñclo=º(¥*100d)+500ô `ñalc=º(¥*502)+300, jñgol=º(¥*750î)+1250â t ñdia=º(¥*1500Ü)+2500Ä ~þ °ñfoo=º(¥*30)+120x ºñclo=º(¥*200È)+400 Äñalc=º(¥*350^)+400 Îñgol=º(¥*250ú)+2250Ê Øñdia=º(¥*500ô)+3000¸ âþ ñfoo=º(¥*502)+100d ñclo=º(¥*502)+200È (ñalc=º(¥*400)+200È 2 ñgol=º(¥*1250â)+1250â < ñdia=º(¥*1000è)+4500” Fþ xñfoo=º(¥*60<)+60< ‚ñclo=º(¥*150–)+300, Œñalc=º(¥*500ô)+500ô – ñgol=º(¥*1000è)+2000Ð   ñdia=º(¥*3000¸ )+3000¸ ªþ Üñfoo=º(¥*90Z)+40( æñclo=º(¥*200È)+200È ðñalc=º(¥*125})+675£ úñgol=º(¥*2000Ð)+750î  ñdia=º(¥*2000Ð)+2500Ä þ Ð ê**BUYING** Úç2:Ú2:Ù6:û ä=õ¬0,13 ;"BUYING ********" î!õ¬3,0;"LOCAL PRICES" ø)õ¬5,0;"1 . FOOD : ";foo;" @" *õ¬7,0;"2 . CLOTH : ";clo;" @"  ,õ¬9 ,0;"3 . ALCOHOL : ";alc;" @" *õ¬11 ,0;"4 . GOLD : ";gol;" @"  .õ¬13 ,0;"5 . DIAMONDS : ";dia;" @" *&õ¬16,0;"MONEY : ";mo;" @" 4'õ¬18,0;"CARGO SPACE : ";sp >6õ¬21,0;"WHICH PRODUCT DO YOU WISH TO BUY" H î"1 TO 5 ";ch:×.1}LÌÌÌ,0 RDúchÉ1ÆchÉ2ÆchÉ3ÆchÉ4ÆchÉ5Ëì2120H Súch=1Ëñlo=foo Túch=2Ëñlo=clo Uúch=3Ëñlo=alc Vúch=4Ëñlo=gol Wúch=5Ëñlo=dia \#î"HOW MUCH? ";am:×.1}LÌÌÌ,0 aúam>spËì2140\ fúam*lo>moËì2140\ p ñmo=mo-am*lo zúch=1Ëñfo=fo+am {úch=2Ëñcl=cl+am |úch=3Ëñal=al+am }úch=4Ëñgo=go+am ~úch=5Ëñdi=di+am „ ñsp=sp-am Ž.î"ANYTHING ELSE (Y/N)? ";y$:×.1}LÌÌÌ,0 ˜úy$="Y"Ëì2000Ð ¢ ì200È Ä ê**SELLING** Îç5:Ú5:Ù1:û Ø>õ¬0,13 ;"SELLING *********" âCõ¬3,0;"CARGO";¬3,16;"LOCAL PRICES" ì:õ¬5,0;"FOOD : ";fo;¬5,16;foo;" @" ö;õ¬7,0;"CLOTH : ";cl;¬7,16;clo;" @" =õ¬9 ,0;"ALCOHOL : ";al;¬9 ,16;alc;" @" <õ¬11 ,0;"GOLD : ";go;¬11 ,16;gol;" @" @õ¬13 ,0;"DIAMONDS : ";di;¬13 ,16;dia;" @" 9î"WHAT DO YOU WISH TO SELL(1 TO 5)";ch:×.1}LÌÌÌ,0 (DúchÉ1ÆchÉ2ÆchÉ3ÆchÉ4ÆchÉ5Ëì2590 )úch=1Ëñlo=foo *úch=2Ëñlo=clo +úch=3Ëñlo=alc ,úch=4Ëñlo=gol -úch=5Ëñlo=dia <9î"HOW MUCH DO YOU WANT TO SELL? ";am:×.1}LÌÌÌ,0 Fbúch=1Æam>foÅch=2Æam>clÅch=3Æam>alÅch=4Æam>goÅch=5Æam>diËì2620< P ñmo=mo+am*lo Zúch=1Ëñfo=fo-am dúch=2Ëñcl=cl-am núch=3Ëñal=al-am xúch=4Ëñgo=go-am ‚úch=5Ëñdi=di-am Œ ñsp=sp+am –.î"ANYTHING ELSE (Y/N)? ";y$:×.1}LÌÌÌ,0  úy$="Y"Ëì2500Ä ª ì200È ¸ê**BUYING A NEW SHIP** Âç4:Ú4:Ù0:û ÌHõ¬0,7;"USED SPACESHIP LOT ********************" Öyõ¬4,0;"SHIP";¬3,15;"STORAGE";¬4,16;"SPACE";¬4,25;"PRICE" àWõ¬6,0;"S.S.ENTERPRISE";¬6,17;"125";¬6,25;"12000 @" êOõ¬8,0;"COLUMBIA";¬8,17;"75";¬8,25;"7500 @" ôRõ¬10 ,0;"APOLLO 9";¬10 ,17;"50";¬10 ,25;"5000 @" þ\õ¬12 ,0;"MILLENIUM FALCON";¬12 ,17;"200";¬12 ,25;"20000 @" Qõ¬14,0;"SPUTNIK";¬14,17;"30";¬14,25;"3000 @" 2õ¬21,0;"ENTER YOUR CHOICE ( 1 TO 5 )" &îch:×.1}LÌÌÌ,0 0DúchÉ1ÆchÉ2ÆchÉ3ÆchÉ4ÆchÉ5Ëì3110& 5Íúch=1Æmo<12000à.Åch=2Æmo<7500LÅch=3Æmo<5000ˆÅch=4Æmo<20000 NÅch=5Æmo<3000¸ Ëõ¬21,0;"YOU CAN'T AFFORD IT ":ò100d:ì3100 :Túch=1Ëñsp=sp+125}:ñmo=mo-12000à.:ñsh=sh+1:ñs$="S.S.ENTERPRISE" DLúch=2Ëñsp=sp+75K:ñmo=mo-7500L:ñsh=sh+1:ñs$="COLUMBIA" NLúch=3Ëñsp=sp+502:ñmo=mo-5000ˆ:ñsh=sh+1:ñs$="APOLLO 9" XVúch=4Ëñsp=sp+200È:ñmo=mo-20000 N:ñsh=sh+1:ñs$="MILLENIUM FALCON" bKúch=5Ëñsp=sp+30:ñmo=mo-3000¸ :ñsh=sh+1:ñs$="SPUTNIK" ltõ¬21,0;" ";¬20,0;"YOU HAVE BOUGHT THE";¬21,10 ;s$ v.î"ANYTHING ELSE (Y/N)? ";y$:×.1}LÌÌÌ,0 €úy$="Y"Ëì3000¸ Š ì200È ¬ê**TAKING OFF** ¶ç2:Ú0:Ù7:û »ëc=0Ì15 À!ña=º(¥*9 ):ñb=º(¥*32 ) Å õ¬a,b;".":óc Ê&ö0,76L:ü35#,-76L Ô»ö18,40(:ü10 ,502:ü4,-20:ü3,7:ü20,-46.:ü100d,0:ü9 ,71G:ü40(,0:ü9 ,-71G:ü42*,10 Þ1õ¬16,10 ;"";¬17,10 ;"ŒŽ" è[õ¬14,8;"";¬15,8;"";¬16,8;"";¬17,7;"ŒŠ" ò0õ¬17,17;"";¬16,18;"!" ü õ¬8,22;Ù2;"" þúmo<0Ëì4000  ñz=º(¥*20)  Súz=0Åz=1Åz=2Åz=3Åz=4Åz=5Åz=6Ëì4000  !úz=7Åz=8Ëì4200h "úz=9 Åz=10 Ëì44000 .úz=11 Åz=12 Åz=13 Ëì4600ø $.úz=14Åz=15Åz=16Ëì4800À .ñy=º(¥*5) /,úy=0Ëñx$="FOOD":ñsp=sp+fo:ñfo=0 0-úy=1Ëñx$="CLOTH":ñsp=sp+cl:ñcl=0 1/úy=2Ëñx$="ALCOHOL":ñsp=sp+al:ñal=0 2,úy=3Ëñx$="GOLD":ñsp=sp+go:ñgo=0 30úy=5Ëñx$="DIAMONDS":ñsp=sp+di:ñdi=0 8aõ¬0,0;"Two IMPERIAL GUARDS searched your ships and stole all your cargo of ";x$ B ì4000  Ÿâ  "õ¬17,14;Ù6;"•”" ª'ëz=-60<Ì60<:×.007ye`Aˆ,z:óz ´cëz=17Ì8Í-1:õ¬z,14;Ù6;"•”":×.01z#× =,z:ò4:õ¬z,14;" ":óz ¹^õ¬8,14;Ù6;"•”":ò20:õ¬8,16;Ù2;"—":×.1}LÌÌÌ,30 ¾ëz=14Ì0Í-1 È'õ¬8,z;Ù6;"•” ":ò3:óz Òõ¬8,0;" " Üò100d:ì200È hñx=º(¥*4) iúx=0Ëñy=2 júx=1Ëñy=4 kúx=2Ëñy=10 lúx=3Ëñy=5 rhõ¬0,0;"You were robbed by TWO THIEVES before you took off. They made off with ";mo/y;" @" | ñmo=mo-mo/y † ì4000  0ña=º(¥*3) 1úa=0Ëñy=2 2úa=1Ëñy=4 3úa=2Ëñy=10 :`õ¬0,0;"You were hi-jacked in space by PIRATES who stole 1/";y;" of your cargo." ? ñsp=sp+fo/y+cl/y+al/y+go/y+di/y D ñfo=fo-fo/y N ñcl=cl-cl/y X ñal=al-al/y b ñgo=go-go/y l ñdi=di-di/y € ì4000  ø"õ¬17,14;Ù6;"•”" cëw=30Ì14Í-1:õ¬3,w;Ù7;"’“ ":×.07}\(õ,30:ò4:ów:ò30  [ëw=4Ì16:õ¬w,14;"**":×.07}\(õ,-w-10 :ò1:õ¬w,14;" ":ów "õ¬17,14;Ù2;"––"  ×2,-40( %ñx=º(¥*3000¸ )+1000è *`õ¬0,0;"An IMPERIAL SAUCER blew up your ship and it cost ";x;" @ to repair it." 4 ñmo=mo-x >ò200È:ì200È À"õ¬17,14;Ù6;"•”" Ê'ëz=-60<Ì60<:×.007ye`Aˆ,z:óz Ôëz=17Ì8Í-1 ÞFõ¬z,14;Ù6;"•”":×.01z#× =,z:ò3:õ¬z,14;" ":óz ã^õ¬8,14;Ù6;"•”":ò20:õ¬8,16;Ù2;"—":×.1}LÌÌÌ,30 è!õ¬8,14;Ù6;"•”" íñz=1:ñx=0 òëq=14Ì7Í-1 üpõ¬8,q;Ù6;"•” ";¬z,x;Ù4;"‘":×.07}\(õ,0:ò3:õ¬z,x;" ":ñz=z+1:ñx=x+1:óq 5õ¬8,q+1;Ù2;"––":×2,-40(  ñx=º(¥*4000 ) Xõ¬0,0;"You ran into a FLYING SAUCER in the air. It cost ";x;" @ to repair."  ñmo=mo-x $ò200È:ì200È Xç2:Ú0:Ù7:û ]Võ¬10 ,7;"CONGRATULATIONS";¬13 ,5;"YOU'RE A MILLIONAIRE" b$ëa=0Ì502:ñb=º(¥*8) lçb:óa v ç2 €Œ×.3™™™,0:×.2~LÌÌÌ,2:×.2~LÌÌÌ,4:×.4LÌÌÌ,5:×.3™™™,0:×.2~LÌÌÌ,5:×.2~LÌÌÌ,4:×.2~LÌÌÌ,5:×.2~LÌÌÌ,7:×.2~LÌÌÌ,2:×.2~LÌÌÌ,2:×.3™™™,4:×.3™™™,5:×.4LÌÌÌ,9 :×.2~LÌÌÌ,7:×.2~LÌÌÌ,7:×.2~LÌÌÌ,5:×.2~LÌÌÌ,5:×.2~LÌÌÌ,4:×.2~LÌÌÌ,2:×.2~LÌÌÌ,4:×.5ÿÿÿ,5 Šû ”"õ¬1,1;"WELL DONE ";n$ žõ¬3,1;"You've achieved your aim and become a millionaire. Now you can retire to a peaceful planet for the rest of your life." ¨ ì85004! @ç0:Ú0:Ù7:û J%õ¬0,0;"YOU'RE SKINT ";n$ T¯õ¬2,1;"You've lost everything, your ship, money and home. The peopleyou owe money to have banished you to a prison ship in the frozen wastes..FOREVER....." !4°õ¬10 ,1;"1 . SAVE 'SPACE TRADER'";¬12 ,1;"2 . LOAD THE NEXT PROGRAM";¬14,1;"3 . NEW 'SPACE TRADER'";¬16,1;"4 . PLAY ANOTHER GAME" !>7î"ENTER YOUR CHOICE ( 1 TO 4 )? ";ch:×.1}LÌÌÌ,0 !H9úchÉ1ÆchÉ2ÆchÉ3ÆchÉ4Ëì8510>! !RYúch=1Ëø"SP.TRADER"Ê1:õ¬20,1;"VERIFYING 'SP.TRADER'":Ö"SP.TRADER" !\úch=2Ëï"" !fúch=3Ëæ !p÷ #'â #("ëa=À"a"ÌÀ"h"+7:ãaa:ôa,aa:óa #)Mä60<,255ÿ,60<,0,126~,255ÿ,219Û,195à #*Fä0,0,0,24,36$,255ÿ,36$,0 #+Cä0,0,2,7,9 ,255ÿ,9 ,2 #,Kä0,0,32 ,224à,144,255ÿ,144,64@ #-Lä4,12 ,255ÿ,255ÿ,255ÿ,96`,480,255ÿ #.Iä0,0,31,63?,255ÿ,480,24,255ÿ #/Jä34",568,83S,29,12 ,240ð,32 ,502 #0Eä2,28,0,127,0,28,2,0 #1þ ’