t e&ee = TRADER PART ONE  PIXEL PRODUCTIONS 1983 . _49504`,255:RT:7:7:0::8,7;"THE TRADER TRILOGY" >10 ,0;"  PIXEL PRODUCTIONS 1983 " *12 ,6;"LOADING MACHINE CODE" "mc"51711  0 AA(7)::EN=0:S$=" " 12 ,0;S$ "236099\,255:680 d7:0:0: n65000:: 0:0:6:: ,7:7:1:: C7;X,19;"__";X+1,20;" E27 " 7;x+2,12 ;">--------------";x+2,7;"/";x+3,5;"/ ........... PEGASUS =" V2;x+4,1;"-";7;"   " I2;7;x+5,16;"         =" I2;7;x+6,16;"         =" & IP=01000:P NP=0500:P XP=0150:P b 0:: J14,0;s$;14,9 ;1;2;"STOP THE TAPE" 516,4;"PRESS ANY KEY TO START":0 c100d:0:10 ,3;6;1;"PIXEL PRODUCTIONS PRESENTS":100d  5010  CL=1 0:64800 `EN=121,0;6;0;" END OF PART ONE ":9000(# 7:5,18;"A SPACE";6,18;"ADVENTURE";7,18;"IN THREE";8,18;"PARTS";12 ,18;"PART ONE";15,17;"'PEGASUS'":6000p  1000 A49504`,23728\:(64841I+256*64840H) ;:X=7:100d:500:S1=0:S2=0 n=50210 -.5:x+5,31;"";x+6,31;"";;x+5,11 ;"*":.05|L,n:0:x+5,31;" ";x+5,11 ;" ";x+6,31;" " An>2015,S1;0;7;" .":S1=S1+.5 ?n<255,S2;0;7;" .":S2=S2+1 n=2015,S1;" " &n:8000@:8012L:590N 1960:19,6;1;"+":1965:PE=28:X=315:0;7;X,PE;"":.1}L,27-X:X,PE;" ":PE=PE-1:X `N=1519.2~L:7;0;N,PE;"":.1}L,27-N:N,PE;" ":N  20,PE;"":590N  200 l7,0;"AS THE SPACEHOPPER 'PEGASUS'",,,"TOUCHES DOWN AT EPSILON DOCK",,,"BUSINESS IS BRISK.",,, O"YOU MUST INVEST MOST OF YOUR",,,"1000 CREDITS IN CARGO AND FUEL.":585I $R:10 ,0;"LET US SEE WHAT THE MARKET IS",,,"LIKE TODAY...":590N L&N=17:A(N)=0:N: VHF=(*100d)+100d:PC=(*20)+20:MU=(*10 )+10 :BO=(*200)+100d:SM=(*5)+5:GO=(*502)+10 `=0:300,:C=1000+8^4:X=4 j0,0;" TODAY'S PRICES ",,"",," HOPPER FUEL";18;" PER FILL ",,, o" PETROCHEM";18;" /UNIT",,," MUNCH";18;" /UNIT",,," SYNTHOMUNCH";18;" /UNIT",,," BOOSTERSPICE";18;" /UNIT",,, tO" GOLD";18;" /UNIT",,,"" y2:T=06:4,18;HF;6,19;PC;8,19;MU;10 ,20;SM;12 ,18;BO;14,19;GO ~e1:18,0;" INPUT HOW MUCH YOU WANT OF EACH COMMODITY. " C8^41176 Z1:21,0;" WE DO NOT ACCEPT CREDIT! ":590N:1120` K0:21,0;" YOU HAVE ";C-8^4;" CREDITS " 0T<6X,0;1;">" +T0X-2,0;" " !.5,20:T<6W T=01200 T=1A(1)=W T=1C=C-W*PC T=2A(2)=W T=2C=C-W*MU T=3A(3)=W T=3C=C-W*SM T=4A(4)=W T=4C=C-W*BO T=5A(5)=W T=5C=C-W*GO 6T=618,0;S$;19,0;S$ X=X+2:T 590N:1220 xW11:21,0;" YOU CAN ONLY CARRY ONE! ":590N:0:21,0;S$  C=C-HF: Ă1:1::X=5:X-1,0;" CARGO INVENTORY ",,"" U7:9 ,0;" PETROCHEM";24-(A(1));A(1);" U",,, F11 ,0;" MUNCH";24-(A(2));A(2);" U" L13 ,0;" SYNTHOMUNCH";24-(A(3));A(3);" U" M15,0;" BOOSTERSPICE";24-(A(4));A(4);" U" E17,0;" GOLD";24-(A(5));A(5);" U" E19,0;"":585I Z100d:"":4,19;"XXXXXXX":19;": XX":19;": XX" $4;"XXXXXX";23;"XX" 5:8,4;"XX";8,23;"XX";9 ,4;"XX";9 ,23;"XX";10 ,4;"XX";10 ,23;"XX" 5:11 ,4;"XX";11 ,23;"XX";12 ,4;"XX";12 ,23;"XX";13 ,4;"XX";13 ,23;"XX" 5:14,4;"XX";14,23;"XX";15,4;"XX";15,23;"XX";16,4;"XX";16,23;"XX" 5:17,4;"XX";17,23;"XX";18,4;"XX";18,23;"XX";19,4;"XX";19,23;"XX";20,4;"XX";20,23;"XX" &J21,0;6;1;"" 0X=13 :500 515,9 ;"";8,9 ;":";9 ,9 ;":";10 ,9 ;"";20,16;"I";20,28;"I" :Xl=0:n=014:19,l;"   ";20,l;" oo o" ?:N=819,4;"X";20,4;"X" @;N=10 19,5;"X";20,5;"X" D$L=L+.5:.01z# =,0:N NZ600X:3:N=10 30:.01z# =,N:N=10 18,9 ;"": S#N=2018,9 ;"" VN:600X bmX=10 14.1}L:X,9 ;":";X+1,9 ;1;"":.1}L,0-X:X g%X+1,9 ;"":600X lFX=148-.1}L:X,9 ;" ":.05|L,0-X:X q*15,9 ;" ":.1}L,-5 vt600X:6:N=029:2,N;" ":.05|L,30+N/10 :N:2,30;" " x600X:18,9 ;"":.05|L,10 :600X:18,9 ;" ":.05|L,5:600X k200:10 ,0;"'PEGASUS' IS NOW LOADED UP.",,,"PERMISSION TO LIFT OFF GRANTED.":590N  1970 100d:6:20,155:11 ,11 ,:21,0;1;6;"" 5:17,8;"__";17,28;"__":18,0;" ____ __ __ ":19,0;" + " =5:19,0;" + " #" " p20,5;6;1;"... .... ... .. ..":0:19,6;1;"+": 20,25;1;6;"oo o";19,25;0;5;"":19,6;1;"+":0: V1960:6:1,6;"PRESS ";1;"T";0;" TO TAKE OFF." +H=25:20,H;1;"" =""1972 ,1,5;" " hX=200-.5:1:X,H;"":.01z# =,40(-X:X,H;" ":H=H-.5:X U0:100d:10 ,9 ;"*** TRADER ***":6000p:600X  200 چ8,0;"YOU ARE NOW ON A FLIGHTPATH TO",,,"PSI. LET US SEE WHAT THE FLIGHT",,,"COMPUTER HAS TO SAY ABOUT IT...":590N #8000@:8009I:590N 1:6:1:  2050 7:2:X=4:X,0;" SATELLITE ";X+3,0;" ENVIRONMENT ";X+6,0;" INHABITANTS " nX+9 ,0;" MOBILITY ";X+12 ,0;" RESOURCES ";X+15,0;" REQUIREMENTS":  2020  1:7:1:X,14;"PSI";X+3,14;"NO2 ATMOSPHERE";X+6,14;"HYDROGEN SILICON";X+7,14;"BASED LIFEFORMS" QX+9 ,14;"TELEKINESIS OVER";X+10 ,14;"SPACIAL DISTANCES" =X+12 ,14;"PETROCHEM";X+15,14;"???"  585I 40:200:9 ,0;"THE HOP TO PSI WILL NOT TAKE",,,"VERY LONG IN THIS SHIP, WE ARE",,,"ALREADY APPROACHING ORBIT.":585I f1100d:"":X=6:500:G=21 pN=030 uQX+5,31;"";X+6,31;"";X+5,10 ;"*" xb.1}L,40(-N:X+5,31;" ";X+6,31;" ";X+5,10 ;"*" zLN23G,0;" ":G=G-1 ?N=27X+7,16;"I";X+7,28;"I" N )590N:X+4,8;" " MT=11 13 .1}L:T,8;"=":.01z# =,30-T:T 590N:N=06.5:ٺ(*7)+1:13 ,N;"":.02{# =,*5+30:ٺ(*7)+1:13 ,N;"";13 ,N;" ":N jT=010 :ٺ(*7)+1:13 ,N;"":.02{# =,*10 +30:T:590N +N=18:X=2113 -.5 kٺ(*7)+1:4:X,N;"":.02{# =,*5+30:X,N;"";X,N;" ":N=N-.5:X 0:X,N;""  590N cQ=0:100d:X=1921:X,0;" ":X  ~N=017:18,N-1;" ";17,N;" ";16,N;" " $Z15,N;" ";14,N;" OO";13 ,N;" + +" .5P=02:.02{# =,*15+30:P 8N = 2400` BN=010 .5 G_ٺ(*7)+1:(*4)+15,(*8)+19;(129+(*14)) H#ץ/20,*20+30:N LB14,21;"00":.2~L,40(:.2~L,502 QC.01z# =,*20+30:14,21;"OO":: V?x=311 :x,12 ;" ":x:: `Z2370B :7:3,15;"WELL HUMAN";4,12 ;"IF YOU WANT FUEL" j|5,15;"WE ARE ONLY";6,14;"INTERESTED IN";7,16;"ONE THING...":2370B :2390V td7:3,15;"YOUR BRAIN";5,13 ;"WAVE PATTERNS!":2370B :2390V ~f7:3,13 ;" WE THRIVE ON";12 ;" MENTAL ACTIVITY,";13 ;" SO TO GET OFF" 13 ;"THIS PLANET YOU";13 ;" MUST ANSWER";13 ;" SOME QUESTIONS";13 ;" CORRECTLY...":2370B :2390V 23658j\,8 7:3,15;"TO START OFF";5,15;"WHAT IS YOUR";7,16;"FIRST NAME?":N$:2390V :2370B 7:3,21-(((N$)/2));N$;"?";5,15;"WHAT A STUPID";7,19;"NAME!":502:9 ,15;"MINE IS .":2370B :2390V 7:3,15;"WHAT IS OUR";5,15;"DISTANCE IN";7,15;"LIGHT YEARS";9 ,15;"FROM EARTH?":LY:2390V :2370B LY=162480 7:3,15;"OBVIOUSLY I";5,15;"WILL HAVE TO";7,16;"ASK EASIER";9 ,15;"QUESTIONS...":2370B :2390V m7:3,15;"WE WILL START";5,19;"AGAIN...":2370B :2390V :2600( 7:3,15;" OK, SO YOU";5,15;"HAVE READ THE";7,15;"INSTRUCTIONS...":2370B :2390V :2600( ĿR=(*10 )+1:E$(10 ,15):E$(1)=" NITROBENZINE":E$(2)="SULPHURIC ACID":E$(3)="CARBON DIOXIDE":E$(4)=" OZONE":E$(5)=" FERRIC OXIDE" ɐE$(6)=" NITRIC ACID":E$(7)="SODIUM CHLORIDE":E$(8)="CARBON MONOXIDE":E$(9 )=" WATER":E$(10 )=" ACETIC ACID" ΃7:3,16;"WHAT IS THE";5,14;"CHEMICAL FORMULA";7,20;"FOR";9 ,15;E$(R):F$ %R=1F$="C6H5NO2"Q=Q+1 #R=2F$="H2SO4"Q=Q+1 !R=3F$="CO2"Q=Q+1 R=4F$="O3"Q=Q+1 #R=5F$="FE2O3"Q=Q+1 "R=6F$="HNO3"Q=Q+1 "R=7F$="NACL"Q=Q+1 R=8F$="CO"Q=Q+1 !R=9 F$="H2O"Q=Q+1 &R=10 F$="CH3COOH"Q=Q+1 2390V :2370B : N2370B :N=012 :N,12 ;0;" ":N ]7:3,15;"GOODBYE, UM,";5,20-((N$)/2);N$:2370B C7:1:12 ,19;"SNIGGER":502:0  (=A=(*502)+5:B=((*20)+18)*2 2D$=A+" X "+B 2T<6S6,S %DT>5T<11 S3,S %IT>7T<13 S8,S %NT>9 T<14S5,S %ST>10 T<17S2,S %XT>13 T<18S7,S %&T<6S1,0:S1=S1-2 %1T>2T<6S6,0:S6=S6-30 %2T>5T<11 S3,0:S3=S3-32 %2T>7T<13 S8,0:S8=S8+34" %2T>9 T<14S5,0:S5=S5-34" %2T>10 T<17S2,0:S2=S2+2 %3T>13 T<18S7,0:S7=S7+30 %2I=35,13 ;1;"DANGER" %TM=TM+.2~L:T:I: %8,13 ;0;" ";9 ,13 ;" ";10 ,13 ;" ";11 ,13 ;" ";12 ,13 ;" " %7T=010 :6:125},100d,T:T & &2:"t"9982&:"mc"51711,138256: &E23728\,38&:23729\,5:RT=51711:10 mc 66>0 @ a@|"*UB"R%UaUT"% *U@% UUU T- @B~ x1u@׃*]AJUDDEUT$*@ h줠UIMUT B@_ Up*]@JvU""EUT*@ ptUIMUTx0~|cuH8a^ D*U@I,U%UT*U@ U%-UT0B@|? }\"$U"@*U@%,R@U%UTR*U@ RPU%-UTx B@σhx0$nUD|1@*u@$J@UDDU@TK@*U@JHUUTl0B~(ph*WpIb"UW@*u@}I@U"$U@TK@*U@aIHUWTx0@ ^ @u*ULD)WUTI!*U@) UUU T-*U@)(URUT*U@%$UR_T* UFHUUTd*UH$weU-UT"@*U@$=mmUUTH* U"m%T|TP$  |*U@<.UJUT* U^$$UUUH*UD"U/UTH *U@"HUUT$* U%WWP "@*U@87@UJUT* UY"@w݅UUU$*UBHp ݵU7UT$ *U@$@UUT"H* Tp4QP@@ *U@x;U*UUT*Uh ۅUUV"*UB$ U?UT"H*U@ "{UUT$* TI^?_@*U@d]RRU)]T@*Ud wEUUVH*UA"HvU^UT$*U@}UUT"@*P%EG@H @*UAnJJU)]UT *UbH nUUV$*UA$U|UT "H*U@n_UUTH *P"Ex$ @*UAwU%oT *UR$U+eUU"H*U@"W`]UxUT$*U@H[MU8UT$ (@ 0 * UG)-U%mUTx*UI"H eU+UT$*U@H;{mUUT"*U@$imUUT"H(@  @ |>@<<@  <@||<<< @B@BBD @0B8xD<@8BD8B8D88x8(BBBB@B@(0@DDD 0DxB0(DB DBD@BB BDx< ~<<0<8@ 8D @8D< @ 8<8 88Dx><<<0@8880 0000 00>80x 000 ! Z! P!Y!H!@!H>w# x:&M8M8 P P PM3M2N2R2R2G2HM2K2rJ2I2.Q2B2E2!@2I2 Q2)L2^C2H2R2F2K2hA2K2DI2(O2K2~D2H2O2UL2J2A2M2B2H2LC2L2A22I2I2G2Q!@>6#6#6#6#6#6#6#6#= !X>6#6#6#6#6#6#6#6#=  P P P 88 MSS \Wq !}v>x|>?????$~$~B@P TU *TU,4,4,4,4t2 NNGN 43922,255::10 ,9 ;2;1;"STOP THE TAPE":12 ,4;8;"PRESS ANY KEY TO START":0  A(7`) K=65290 (#I=16:A(I)=(K+I):I 20A(7`)=(K+8)+256*(K+7`) P EN=0 Z 500 d7:0:0: n65000:: 0:0:6:: ,7:7:1:: 0:64800 *0:7:EN=19000(# 621,0;"PART TWO 'THE MOONS OF MERIDIEN'" 0#9100#:9800H&:630v : 1000z bP=01000 gP lP=0500 qP vP=0100d {P  0::  800   630 \:9 ,0;"WE ARE NOT INTERESTED IN YOUR",,,G$;"...",,,,"WHAT ELSE HAVE YOU GOT?"  1710U  '.4L,10 :.4L,5: *+N=08:.1}L,30:N: )100d:64740:64720: L7:0:7,5;"__";8,5;"E27" Y9 ,4;"-------------<";10 ,3;"= PEGASUS .......... " R11 ,2;2;7;" ";0;"-" 812 ,1;2;7;"= " 813 ,1;2;7;"= " &208,95_:8,-8 _N=0100d:12 ,0;1;"";13 ,0;"":.02{# =,30 /N=305:12 ,21;"" .N>40(N<80P180,120x-N -12 ,0;" ";13 ,0;" " N  ?43922,23728\:64841I+256*64840H  200 "(K+9)=11300" R=(*200H)+10 M7`,0;"YOUR FALLING SHIP SUDDENLY",,,"LURCHES AND STOPS AS A",,, A"A BETAN SALVAGE TUG CATCHES YOU",,,"IN ITS TRACTOR BEAM...",,, %"BUT IT COSTS YOU ";R;" CREDITS..." A(7`)=A(7`)-R  610b #9200#:9230$:630v $1500:1550:1372\ 100d:7 (6,16;"I";7,16;"::";8,16;"::=";9 ,11 ;"=:=:::X";10 ,10 ;"X:::::I" 211 ,10 ;"::::::::::";12 ,7;":::::::XX::::::I";13 ,8;"::=-==-XX==-=-=- " <414,5;"-OOOOOOOOOOOOOOOOOOOOOOOO-" F15,14;")(";16,15;"";17,15;"::::";18,6;":::: " P19,5;":::: ";20,0;"" UG1;13 ,10 ;"*";13 ,20;"+":0 Z \ 1310 _*H=0:P=0:N=030 nm5,16;"+";H,P;" ";9 ,24;">";5,16;"X";9 ,24;"<" s/N<22N/200,30-N:H,P;" " xN<22H=H+.5 N<16P=P+.5 N17H,P;" " N Y=30p20 -.5 $19,Y;0;6;" " .05|L,20:Y 19,Y;" "  1600H 0:1:1:  X=4 t2:7:X,0;" SATELLITE ";X+3,0;" ENVIRONMENT ";X+6,0;" INHABITANTS " lX+9 ,0;" MOBILITY ";X+12 ,0;" RESOURCES ";X+15,0;" REQUIREMENTS"  V7:1:1:4,14;"BETA";7,14;"TERRA-FORMED" 10 ,14`;"EXTERRANS";13P,14`;"PLANET HOPPERS";16,14`;"HI TECH, LEISURE";19,14`;"FOODSTUFFS" 60:610b: @1:7:7: JP8,0;"WELCOME TO BETA, TRADER, YOU",,,"HAVE SOMETHING TO SELL.",,, O6"COME INTO THE BAR AND WE WILL",,,"TALK BUSINESS..." T 610 Y 200 ^y8,0;"YOU TAKE A QUICK LOOK AT YOUR",,,"CARGO INVENTORY REMEMBERING",,,"THAT BETANS ARE TOUGH CUSTOMERS",,, h"AND NOTORIOUS CROOKS..." r 610 w 4810P | 200 U9,0;"REMEMBER TO ASK GOOD PRICES,",,,"THEY WILL TRY TO BEAT YOU DOWN."  620 7:1:7:  DS=0 U9,0;"OK TRADER, WHAT HAVE YOU GOT",,,"TO SELL IN THAT WRECK OF YOURS?" G$ G$"MUNCH"700/  810* O:9 ,0;"OK, HOW MUCH ARE YOU ASKING FOR",,,"A UNIT OF MUNCH, EH?" O=(*10 )+10 ND=(*10 )+10 C   630 800 :L=9 SL,0;C;" ??? YOU MUST BE KIDDING...",,,"I USUALLY PAY ABOUT ";O;" CREDITS." 4L+5 ,0;"COME ON, YOU CAN DO BETTER..." CC=C  NO=2  2000z CCC1810b@    BL,0;"ARE YOU TRYING TO BE FUNNY",,,"TRADER, TRY AGAIN..." 800 :630v  2000z NO=(*10 )+2 O=O+NO   630 D=(*6@) GD=0L,0;"NO. ";C;" IS FAR TOO MUCH. ",,,O;" CREDITS..." &\D=1L,0;"YOU ARE VERY EXPENSIVE, TRADER,";L+2,0;O;" CREDITS..." +:D=2L,0;"I WILL PAY NO MORE THAN ";O;"..." 01D=3@L,0;"NO... ";O; " CREDITS..." 54D=4L,0;"NO WAY... ";O;" CREDITS..." D7D=5 L,0;"YOU ARE HARD TO DEAL WITH, ";O N800 :CC=C C DS=DS+1 DSND2090 CO+92050  1800a   L,0;"OK, BUT YOU DRIVE A HARD BARGAIN";L+2,0;"TRADER...";L+5 ,0;"I WILL TAKE YOUR MUNCH AT ";C;"..." 810*:620l $A(7`)=A(7`)+C*A(2)  A(2)=0 * 4M9,0;"HOW MUCH DO YOU WANT FOR YOUR",,,"SYNTHOMUNCH MY FRIEND?" HQ R \310 ,0;Q;"? COME ON, BE REASONABLE..." z800 :Q  O=(*10 )+10 _9 ,0;"THATS BETTER BUT I TELL",,,"YOU WHAT, ";O;" CREDITS AND IT'S",,,"A DEAL..." Q QO*22500@  '10 ,0;"SORRY, NO DEAL..." 800 :620l  3000;  *9,0;"OK, I WILL TAKE IT..." 810*:620l $A(7`)=A(7`)+A(3@)*Q A(3@)=0 200 L=7` HR=(*2) U8,0;"YOU RETURN TO YOUR HOPPER TO",,,"FIND THAT SOMEONE HAS STOLEN",,, CR=0"A UNIT OF PETROCHEM FROM THE",,,"HOLD... TOUGH LUCK." *R=0A(1)=A(1)-1 CR=1"THE FUEL THAT YOU TOOK SUCH",,,"PAINS TO CONSERVE..." 0R=1,,,,"A FILL COSTS YOU 150 CREDITS." ,R=1A(7`)=A(7`)-150 t 610  1305#  H=110  P=8 N=035 m5,16;"+";H,P;" ";9 ,24;">";5,16;"X";9 ,24;"<" .02{# =,N:H,P;" " $N>10 N<20 H=H-1 N>15pP=P+1  N {100d:21,0;" ":5:60<,0:195,5,-/10 mJ=0:N=180-1:N,J;7;"":.01z# =,30-N:N,J," ":J=J+1:N  200 T8,0;"THE NEXT STAGE OF YOUR TRIP",,,"TAKES YOU HALF WAY ROUND THE",,, ?"GIANT GAS PLANET MERIDIEN TO",,,"A LARGE HOLLOW ASTEROID..." .620l:9200#:9240$:630v '1500:7:1:1 @4,14`;"ALPHA";7`,14`;"STERILE, AIRLESS" ܃10 ,14`;"MECHANOIDS";13P,14`;"TRANSMAT BEAMS";16,14`;"PLASTIRON";19,14`;"PETROCHEM"  610 0:6100  200 Y7`,0;"HAVING ARRIVED ON ALPHA YOU ARE",,,"NOT QUITE SURE WHAT TO EXPECT..." B,,,,"THE ALPHANS, BEING ROBOTIC,",,,"DO NOT HAGGLE OVER PRICES." (,,,,"YOU MUST TAKE WHAT THEY OFFER..." " 610 h0:0:7: r7:0 |0,9 ;"";1,8;"";2,8;"";3,9 ;"";4,6;"  " 5,5;" ";6,5;"   ";7,5;"   ";8,5;"= +++ =" j9 ,5;"    ";10 ,5;" ::::: ";11 ,5;" - - - " -12 ,4;"   " 13 ,8;" " 14,8;" " 15,8;" " 16,8;" " 17,8;" " p1:7:18,7;" =O=O= ";19,7;" ----- ";20,7;0;" " ?21,0;1;""  70F,115s:44000 0:N=015 ց1,7;"+";1,13 ;"+":.1}L,(*10 )+20:1,7;"-";1,13 ;"-" N Y7:0:12 ,4;" I":.5,30:12 ,4;"" 4;LH,LV 7:0: X=1110 X,Y;"" X  0%Y=17:LH=5:LV=10 5 4300 :7:0:1,Y;"YOU MUST HAVE";3,Y;"PETROCHEM TO";5,Y;"SELL HUMAN,";7,Y;"OR YOU WOULD";9 ,Y;"NOT HAVE COME" ?110,Y;"HERE." BLH=3:LV=-9 D 4300` I 4350 NP1,Y;"AND YOU WILL";3,Y;"NEED HOPPER";5,Y;"FUEL TO LEAVE." PLH=5:LV=8 S 4300` X 4350 bR=(*3@)+1 lR=3R$="65" nR=1R$="35" qR=2R$="50" ve1,Y;"WE PAY ";R$;3,Y;"CREDITS A";5,Y;"UNIT, DO YOU";7,Y;"WANT TO SELL?" {10 ,Y;"YES/NO" |LH=3:LV=-4 A$ A$="NO"4500 (A(7)=A(7)+(R$*A(1)) A(1)=0  4350  4300` c1,Y;"WE NEED SOME";3,Y;"GOLD, OUR";5,Y;"TANKS ARE";7,Y;"CORRODING..." LH=1:LV=-2  4300`  4350 R=(*3)+1 R=1G$="100" R=2G$="90" R=3@G$="80" I1,Y;"WE WILL PAY";3,Y;G$;" A UNIT...";7,Y;"YES/NO" LH=2:LV=5 A$ A$="NO"4600 (A(7)=A(7)+(G$*A(5)) A(5 )=0  4350  A(6@)=04800 R=(*3@) R=04700  R=14720 *C$="DIAMONDS..." 4!A(7`)=A(7`)+100H > 4750p \C$="GOLD..." f A(7`)=A(7`)+75 k 4750p pC$="A BOMB..." z!A(7`)=A(7`)-100H k1,Y;"THE CARGO";3,Y;"YOU BROUGHT";5,Y;"FROM PSI";7,Y;"CONTAINS";9 ,Y;C$ LH=-20:LV=0  4300`  4350 ;R=21,Y;"TAKE A TIP";3,Y;"OF 100 CS" :R=01,Y;"TAKE A TIP";3,Y;"OF 75 CS" iR=11,Y;"WE HAVE";3,Y;"DEFUSED IT.";6,Y;"YOU ARE FINED";8,Y;"100 CS"  4300` Q=(*100H)+30p  7500j` 38,0;"YOU PAY ";Q;" CREDITS FOR FUEL" [10 ,0;"AND TAKE OFF FOR GAMMA CHECKING";12@,0;"YOUR INVENTORY..." A(7`)=A(7`)-Q  620  4877h 1:1:  X=5 4,0;7;2;" CARGO INVENTORY ":6,0;"":7:8,1;"PETROCHEM";24-A(1);A(1);" U" 10 ,1;"MUNCH";24@-A(2);A(2);" U";12@,1;"SYNTHOMUNCH";24@-A(3@);A(3@);" U" 14`,1;"BOOSTERSPICE";24@-A(4);A(4);" U";16,1;"GOLD";24@-A(5 );A(5 );" U" 18,0;"";20,1;"CREDITS";24-(A(7)-8^4);A(7)-8^4;" CS"  610    4810P N100d:10 ,9 ;"*** TRADER ***":9100#:630v A200:10 ,0;"A SHORT HOP BRINGS YOU TO GAMMA."  620 $#9200#:9250"$:630v '1500:7:1:1 4,14`;"GAMMA";7`,14`;"HIGH RADIATION";10 ,14`;"UNINHABITABLE";13P,14`;"NONE";16,14`;"RAW FUEL";19,14`;"NONE" 0:610b  200 b7,0;"EVEN AT ORBITAL DISTANCES, THE";9 ,0;"RADIATION IS AFFECTING YOUR" T110,0;"INSTRUMENTS...";14`,0;"GO DOWN MANUALLY BUT DO NOT" 216,0;"STAY MORE THAN ONE MINUTE..."  610  900  200 g7`,0;"TRY TO SUCK UP RAW FUEL WITH",,,"THE VACUUM TUBE UNDER THE FRONT",,,"OF YOUR SHIP." 114`,0;"STEER WITH THE CURSOR KEYS."  610  100d H2:0:21,0;""  X=2 #Y=X 2H20,0;3;1;" " <T=260<.5 F2X,Y;"";X+1,Y+1;" ":.2~L,X KN1,9 ;1;7;" TIME ";(T);" SECS ";X,Y;0;" " P="8"Y<30pY=Y+1 Z="5"Y>0Y=Y-.5 d="7"X>0X=X-.5 n="6"X<18X=X+1 X>17X=X-.25~ T #1,9 ;" " XX=X T=0XX :X,Y;"";1,9 ;1;"GET OUT...FAST" ,3.05|L,30:.05|L,40(:X,Y;" " 6="7"X=X-1 8T ;X>25600/ |RF=28:J=22144V Y=031  U=(J+Y) U=170RF=RF-2 U=42*RF=RF-1 Y  200 27`,0;"WITH ";RF;" UNITS OF RAW FUEL" 29,0;"STOWED IN ITS HOLD, PEGASUS " 2110,0;"HEADS FOR DELTA AND THE MOST" 413P,0;"UNPREDICTABLE CUSTOMERS IN THE" (15p,0;"MERIDIEN SYSTEM..." "K+9 ,RF:A(6)=0  610 "(*2)=18000@ 2:2:7: N=010 f7,12 ;"WARNING":.05|L,30:7,12 ;"WARNING":.05|L,40( N X27000Z pl10 ,0;"DEPRESSURISATION IN CARGO HOLD.",,,"THERE HAS BEEN AN EXPLOSION...":A(6)=1  8000z  200 R9,0;"GUIDE THE SHIP INTO THE BLACK",,,"TUNNEL WITH KEYS 6 AND 7..."  620  RP=0 865180,24 =+100d:6:6:65130j B0:6 LY0,25;"";1,30;"";2,24;"";4,27;"" NY5,29;"";6,29;"";7,24;"";9 ,26;"" P]10 ,24;"";11 ,28;"";12 ,25;"";14,27;"" R]15,25;"";16,31;"";17,27;"";18,25;"" TF19,28;"";20,30;"";21,26;"" j*2:10 ,24;1;"O" +:H=(*19)+1:R=(*9 )  7:0:Y=R23 ,H,Y;" ":.02{# =,10 +Y:H,Y;" " &="7"H>0H=H-1/2 '="6"H<21H=H+1/2 Y \H9 H11 H-1,21;".";H+1,21;".":2:6800  0:5:1: 610 ,0;"" _9 ,28;"";8,29;"";7,30;"";6,31;"" 20:5 <Y=029h F'10 ,Y;" ":.02{# =,30 PY d20:0:1::648248,0 nC648204:7,0;"" p7:1:10 ,18;"^^";11 ,18;" ";12 ,18;" " z0:7:13 ,17;".........";14,16;"..X..X..X..";15,15;" :::::::::: ---:" .14,29;1;1;"*" H0:5:16,0;"________________________________" 7:1 Y=0502 5Y10 15,Y;" ":.02{# =,30-Y z11 ,21;"O";10 ,19;"- - -":.01z# =,40(:11 ,21;"+";10 ,19;" - - " Y , 4080 6:0: s8,0;"YOU HAVE CRASH LANDED ON ALPHA.",,,"YOU WILL HAVE TO PAY FOR THE",,,"REPAIRS TO YOUR HOPPER..."  RP=1  620 N 4080 XM9 ,0;"A SHIP HAS JUST MATERIALISED",,,"OFF THE PORT SIDE...",,, g 620 l/"SOMEONE HAS JUST ENTERED THE",,,"AIRLOCK..."  620l   Z9 ,0;"IT'S THE SPACE POLICE AND THEY",,,"ARE LOOKING FOR BOOSTERSPICE...",,, *HA(4)>0"BOY, HAVE YOU GOT TROUBLE...":A(6)=2 4 8000z L 200 QRP=0 VR=(*200H)+50H `m8,0;"REPAIRS TO YOUR SHIP COSTS YOU",,,R;" CREDITS BUT THE ROBOTS HAVE",,,"DONE A GOOD JOB..." j 620 tA(7`)=A(7`)-R ~  A(4)=0  5600/ @ r 610 | EN=1  500z #(J21,0;7;0;" END OF PART TWO " #)K=65290 #*I=16 #2 K+I,A(I) #<I #F#K+7`,(A(7`)/256) #P8K+8,A(7`)-256*(A(7`)/256) #_ 9100# #dQ21,0;1;7;0;" PRESS PLAY ON TAPE " #n620l::"t3": #3:E=.12}u[:N=017:F:D:D,F:N: #F0,E,4,E,0,E,7,E,4,E,12 ,E*2 #11 ,E/3,9 ,E/3,7,E/3,5,E/3,4,E/3,5,E,2,E,0,E,-1,E,0,E,-5,E,-12 ,E #H100d:0,0;"ASTRONAV";1,0;"--------" # 64780 :64760:: $y5:125},90Z,40(:6:88X,75K,2:13 ,6;"Beta":.3,30: $}3:125},100d,70F:6:169,155,3:2,23;"Alpha":.3,30: $"i4:120x,60<,60<:7:145,115s,2:7,20;"Gamma": &HIN=072:"U"+N,170:"U"+N+1,85U:N &R"C",0:"C"+1,0:"C"+2,0:"C"+3,0:"C"+4,64@:"C"+5,255:"C"+6,240:"C"+7,0 &\"D",0:"D"+1,0:"D"+2,0:"D"+3,0:"D"+4,255:"D"+5,191:"D"+6,255:"D"+7,69E &f"O",28:"O"+1,6:"O"+2,513:"O"+3,99c:"O"+4,99c:"O"+5,513:"O"+6,6:"O"+7,28 &p"P",0:"P"+1,0:"P"+2,0:"P"+3,16:"P"+4,40(:"P"+5,84T:"P"+6,170:"P"+7,85U &z"Q",0:"Q"+1,0:"Q"+2,0:"Q"+3,0:"Q"+4,8:"Q"+5,20:"Q"+6,42*:"Q"+7,85U & :"t2"9982&: & t3 Q QYQ T3 44428,255::10 ,9 ;1;2;"STOP THE TAPE":12 ,4;8;"PRESS ANY KEY TO START":0 A(7):EN=0 I=16@ # A(I)=(K+I) (I -0A(7`)=(K+8)+256*(K+7`) 2W=(K+9) Z 500 d7:0:0: n65000:: 6:0:0:: V=814` V,21(;" " V  0:64800 +EN=19600% 0H7:0:21,0;" PART 3 'LIVING DEATH ON DELTA' " :9100#:9900& D 1000z bP=01000 gP lP=0500 qP vP=0100d {P P=010 P  0::  150 Q9 ,0;"SOMEHOW THEY KNOW YOU ARE LYING",,,"AND YOU BECOME UNEASY..."  620  1740Y  ",,"BUT YOU CAN NOT ESCAPE...",,, * 620 4 5220# ?44428,23728\:64841I+256*64840H "mc"65000,536:  150  A(6)=21100L  A(6)=01200 Z8,0;"THE EXPLOSION IN YOUR HOLD HAS",,,"BLOWN A HOLE IN THE SIDE OF YOUR",, T"SHIP. OUTSIDE, YOUR PRECIOUS",,,"CARGO IS JUST A WHITE CLOUD OF",,,"STARDUST..."  610 I=16@ A(I)=0 I !K+9 ,0 $ 1200 L 150 VB=(*200H)+100H `j9 ,0;"THE SPACE PATROL HAVE LEFT",,,"COMPLETE WITH 'CONSIDERATIONS'",,,"OF ";B;" CREDITS..." jA(7`)=A(7`)-B  610  150  X=10 OX,0;"YOUR FUEL IS LOW, YOU MUST LAND";X+2,0;"ON DELTA..."  620  1300" 0:1:1: X=4:2:7 4,0;" SATELLITE ";7,0;" ENVIRONMENT ";10 ,0;" INHABITANTS ";13 ,0;" MOBILITY ";16,0;" RESOURCES ";19,0;" REQUIREMENTS"  #9200#:630v:1250 'Y=16:7:1:1 4,Y;"DELTA";7,Y;"TERRAFORMED";10 ,Y;"HUMAN";13 ,Y;"HOPPERS";16,Y;"GOLD";19,Y;"BOOSTERSPICE" ( 620 n 14555 x 100d:7:0 17,13 ;"I" 718,0;"=..:" &" .-. ........ == .." /5;"" 65;1;"________________________________"   1400/ X=2:Y=3 N=E37% !16,13 ;2;"+" N<32 X,Y;"" N/100d,40(-N: N<32 X,Y;" " !16,13 ;4;"X" X=X+.5:Y=Y+.5 N  630  150  X=6@ tX,0;"YOU STEP OUTSIDE YOUR SHIP INTO",,,"A DARK, DANK, STINKING SLUM.",,,,,"YOU ARE CONFRONTED BY TWO THIN" [,,"FIGURES WHO SPEAK IN A STRANGE",,,"DIALECT THAT YOU CAN JUST ABOUT",,,"UNDERSTAND..."  610 &7:1:1:0: ,8,0;"HEY, YOU GOT SPICE MAN?" ,,"WE GOTTA HAVE SPICE..." ,,,,,"YES / NO"  P$: "P$="NO"1700T $(P$="YES"A(4)<1700 %P$"YES"1568  '113P,0;"HOW MUCH FOR A UNIT? " ,P 6(P>(*200H)+250z1700T @ 150 Jz7`,0;"THE DELTANS BUY YOUR SPICE AND",,,"PAY ";A(4)*P;" CREDITS.",,,"THEY DISAPPEAR INTO THE SHADOWS." L$A(7`)=A(7`)+P*A(4) NA(4)=0 O 630 T 1720W  150 I7`,0;"THEY JUST SHRUG THEIR SHOULDERS",,,"AND WALK AWAY..."  630 V,,,,"YOU WALK OFF INTO A DARK ALLEY.",,,"THERE MUST BE FUEL TO BUY",,,"SOMEWHERE..."  610 "(*2)=11830d  150 H9,0;"FOR AN INSTANT YOU HEAR A",,,"SHUFFLE BEHIND YOU..."  630 ,,,,"PAIN... ",  630 "BLACKNESS..."  630 r100d:21,0;"":23692\,255:N=52430-1::23692\,255:N  620l x150:7,0;"SOMEWHERE IN THE DELTAN SLUM",,,"YOU COME ROUND.",,,,"THE AIR IS THICK WITH THE ACRID",,, <"SMELL OF BOOSTERSPICE.",,,"YOUR HEAD IS A FOGGY SWAMP..." "(*2)=11820 2A(4)>0,,,,"YOUR SPICE HAS GONE..." A(4)=0  610 & 150 0u8,0;"AROUND YOU IS A WARREN OF HUTS",,,"CONTAINING BODIES. SOME LOOK",,,"DEAD. THEY ALL JUST STARE..." : 610 ? 150 D310 ,0;"YOU LOOK IN THE NEXT SHACK..." N 620 l7:1:0: 9 ,0;" ";9 ,24;" ";10 ,0;"( O";10 ,24;"O O";11 ,0;" ";11 ,23;"( )";12 ,0;" =";12 ,24;" - " 13 ,0;" ";13 ,25;"";14,0;"==";14,23;"----- ";15,0;"== ";15,21;" " Y16,0;"== + + ";"== " ("==  " T" ----.... ...... ";" E  " A21,0;1;"" O4:15,14;"";12 ,14;"";13 ,14;"" [14,14;"";16,11 ;3;"";17,11 ;"" 312 ,4;5;"--------------------" =1,0;7;" IT IS FULL OF RUSTING ROBOTS."  2050 Z=13 :ZZ=14 ST+1:N=09 :.01z# =,N+40(:.01z# =,40(-N:1 }12 ,Z;"=";12 ,ZZ;"=";12 ,13 ;7;"++":12 ,13 ;"**";12 ,Z;"-";12 ,ZZ;"-"  Z=Z-1 ZZ=ZZ+1  0:N  0: T=05  2000z 6T=120,9 ;0;7;"G" 9T=410 ,24;7;0;"O O" 9T=210 ,24;7;0;"- -" 6T=310 ,3;7;0;"-" T  +X=1419:.01z# =,X+10 X,21;" " X  630  7:0:1,0;" THEIR HEADS ARE WIRED TO A BOX";3,0;" IN THE MIDDLE OF THE FLOOR.";5,0;" THEY ARE HOOKED ON JUICE..." "T=05 $ 2000z (NT=310 ,24;7;0;"- -";12 ,25;"O" *T 4 150 >V9,0;"AMONG THE DEBRIS, YOU FIND AN",,,"AUTOMAP UNIT. IT STILL WORKS..." H 620 TTI=E VAB=TI WM=(*4) XF=(*2) YS=TI ^ 3143Dp 150:0:4 S0,0;" AUTO MAP ";1,0;"" ,2,0;"" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" 4:""   !M6:1:2,5;"";2,10 ;"";2,14;"":3,3;"";3,7;"";3,9 ;"";3,13 ;"":4,7;"";4,9 ;"":5,2;"";5,4;"";5,9 ;"";5,11 ;"";5,14;"" ".01z# =,40( +6,3;"";6,12 ;"";6,14;"";6,16;"":7,3;"";7,6;"";7,14;"":8,8;"";8,10 ;"";8,16;"" ,.01z# =,35# 04M=05,10 ;6;1;"" 14M=15,15;1;0;"" 23M=26,3;1;0;"" 59 ,2;"";9 ,4;"";9 ,16;"":10 ,4;"";10 ,6;"";10 ,14;"":11 ,3;"";11 ,11 ;"":12 ,2;"";12 ,6;"";12 ,15;"" 6.01z# =,30 :13 ,4;"";13 ,8;"";13 ,10 ;"":14,3;"";14,11 ;"";14,15;"":15,4;"";15,9 ;"":16,7;"";16,15;"" ;.01z# =,25 58h5200" H$X=10 +FY=5 4000z M$X=15p+FY=6@4100 R%X=12@Y=13P+F4200@ W$X=6@Y=13P-F4300` Y$X=13P+MY=24400 \$X=110+FY=94500 a$X=9Y=110-M4700 f!X=5 Y=3@4900 k$X=9-FY=15p4500 p#X=8Y=5 -F4800 u#X=3Y=2+F4600 z$X=4+MY=12 4600 m(X+1,Y)=23ū(X-1,Y)=23ū(X,Y+1)=23ū(X,Y-1)=236900  3210H  150 TI0TI=TI-10 y8,0;"IN A HUT YOU FIND A STORE OF",,,"SOME KIND. SYNTHOMUNCH. YOU HELP",,"YOURSELF, IT WILL STRENGTHEN",,, "YOUR TIRED BODY..." )A(3@)=A(3@)+M*2+1  620  6500K  150 z8,0;"A THING, HALF RAT, HALF LIZARD",,,"SPRINGS AT YOU AND BITES YOUR",,,"LEG. YOU MUST FIND SOME SERUM",,, ."FAST OR YOU WILL DIE WITHIN",,,"MINUTES..." :P=020:.005y# =,(*40()+10 :P  TI=1 " 610 , 6500K h 150 jh7,0;"FROM A POOL OF EVIL LOOKING",,,"LIQUID, A TENTACLE SLITHERS",,,"TOWARDS YOUR LEG..." k;J$="1011121213131415151413131314151617181817181919192021" mI=31:630v:4:N=15242:J=J$(NN+1):J,I;"":.01z# =,N+(*3)-2:5:I=I-1:N  640 AB=04580  4520 @  6500K  150 FF=(*10 )+1 u7,0;"YOU FIND A SMALL STORE. A DOPED",,,"UP DELTAN WOULD NOT RECOGNISE",,,"THE DISGUISED CONTAINERS",, Z,"BUT YOU ARE NOT FOOLED...SPICE.",,,FF;" UNITS OF BOOSTERSPICE. YOU",,,"TAKE IT ALL..."  610 A(4)=A(4)+FF  6500K 0 150 :{8,0;"A HEAP OF BODIES ON THE GROUND",,,"ARE NOT DOPED. NO, THE CHARRED",,,"CIRCLES ON THEIR CLOTHING CAN",,, D"ONLY MEAN ONE THING..." N 620 X 150 ]S=(*3@)+2 bj9 ,0;"YOU FIND A BLASTER IN A MAN'S",,,"HAND. IT HAS ";S;" SHOTS LEFT...",,,"YOU TAKE IT..." l 620 q AB=1 v 6500K  150 8,0;"FROM THE SHADOWS SOMETHING",,,"HORRIBLE COMES AT YOU...":620l:4:1:I=218-1:I,13 ;" ":.02{# =,0-I I,12 ;" ":I kI,13 ;" ":640:I,13 ;"- -":640:640:I,13 ;" ":640 0:2:9 ,13 ;"____":640:9 ,13 ;"V V":640:P=010 :.005y# =,:P AB=04580 =150:10 ,0;"YOU RAISE YOUR BLASTER...",,,  630v  6600N@  150 S=94580 aR=(*2):R=09 ,0;"IT IS TRANSFORMED INTO A ",,,"SMOULDERING HEAP..." HR=19 ,0;"IT IS REDUCED TO A CLOUD",,,"OF ATOMS..."  620  6500K 29 ,0;"YOU RUN AS FAST AS YOU CAN..."  620 !(*5 )=1800H  6500K t150:5,0;"YOUR LEGS GO FROM UNDER YOU",,,"AS YOU TUMBLE HEADLONG INTO A",,,"BOTTOMLESS HOLE..." *630v:150:N=021  UN,3;(21-N)/3;"DOWN":.05|L,30-N:N,3;" ":N 620l:9500% \ 150 aTI=E f|150:8,0;"YOU HAVE FOUND A STORE FULL OF",,,"MEDICAL SUPPLIES, YOU TAKE WHAT",,,"YOU NEED AND LEAVE..." z 620  6500K  150 k7,0;"YOU ARE SURROUNDED BY A GANG OF",,,"SPACED-OUT DELTANS. THEY ARE",,,"COMING FOR YOU..."  620 AB=05000 $,,,,"YOU PULL OUT YOUR BLASTER..."  630  6600N@ S=95000@  150 610 ,0;"ONE SHOT SENDS THEM SCURRYING..."  620  6500K $ 150 .j8,0;"NOW HERE IS A STORE OF GOLD",,,"YOU MIGHT AS WELL TAKE SOME,",,,"IT'S QUITE USEFUL..." 3A(5 )=A(5 )+5 8 620 B 6500K  150 n6,0;"THEY PIN YOU TO THE GROUND",,,"AND LAUGH AS BOOSTERSPICE IS",,,"POURED INTO YOUR MOUTH..." K,,,,"YOU FEEL GOOD. YOU DONT CARE...",,,"DELTA IS A GREAT PLACE........."  610  620l  9500% P 150 Zv7,0;"YOU HAVE NOT FOUND THE MEDICINE",,,"AND YOU ARE VERY WEAK. YOUR LEGS",,"GO FROM UNDER YOU...",,,,, dG"THE BLACK DELTAN SKY DROPS DOWN",,,"AND FILLS YOUR HEAD............" n 610 x 5040 d t 150 x 3000;  3100A   3210H   100H ܓ10 ,3;0;"=====";11 ,2;" ";12 ,2;" 0000000 === ";13 ,2;" " " __";15,0;"_";16,0;"_";17,0;"_";18,2;""  630v 914,8;"":640:.01z# =,0 GS<1S=9 14,8;"":630v:6700, 812 ,17;7;2;" " 812 ,17;7;1;"" 8P=010 :.01z# =,(*2)+502:P /12 ,17;0;""  14,8;"_"  630v  S=S-1  , 630 6 150 @)10 ,0;"THE GUN IS EMPTY..." E S=9 J 630 T 6680P  150 x8,0;"YOU HAVE FOUND YOUR SHIP AND",,,"THERE IS ANOTHER HOPPER BESIDE",,,"IT WITH FUEL BEING LOADED...",,, G"NOBODY IS LOOKING SO YOU ATTACH",,,"THE NOZZLE TO YOUR INLET VALVE." & 610b X br9 ,0;"YOU GET INTO YOUR WAITING SHIP",,,"AND WITHIN MINUTES THE PEGASUS ",,"IS CLIMBING SKYWARD..." l 620 q 1400/ v Y=5 X=181-1 ,X,Y;"":.01z# =,40(-X:X,Y;" "  Y=Y+1 X  620 Y100d:10 ,8;"*** TRADER ***":9100#:630v:150  f9,E;"THE JOURNEY TO EPSILON IS FAST",,,"AND SOON YOU ARE UNLOADING IN",,,"THE DOCKING BAY..." R 620 @ 150 TF9 ,0;"HOME AT LAST. NOW YOU MUST SELL",,,"YOUR CARGO..." ^%,,,,"HERE ARE THE BUYING PRICES..." c 620 h7:7:1: rRF=(*50H)+50H wPC=(*20 )+10 |MU=(*10 )+10 BO=(*200H)+100H SM=(*5 )+5 GO=(*50H)+10 q2,0;" TODAYS BUYING PRICES ";4,0;"" 1:7:,," RAW FUEL";18;" /UNIT",,," PETROCHEM";18;" /UNIT";,,," MUNCH";18;" /UNIT",,, q" SYNTHOMUNCH";18;" /UNIT",,," BOOSTERSPICE";18;" /UNIT",,," GOLD";18;" /UNIT",,, 62;7;"" 7:0:6,18;RF;8,18;PC;10 ,18;MU;12 ,19;SM;14,17;BO;16,18;GO `21,0;0;6;"PRESS ";1;"S";0;" TO SELL YOUR CARGO " "S"8135~8 bN=012 :.1}L,N:N:21,0;2;" " q1:7:6,27;"X ";W;8,27;"X ";A(1);10 ,27;"X ";A(2) j12@,27X;"X ";A(3@);14`,27X;"X ";A(4);16,27X;"X ";A(5 ) [CA=(RF*W)+(PC*A(1))+(MU*A(2))+(SM*A(3@))+(BO*A(4))+(GO*A(5 )) W21,1;7;2;"CARGO VALUE ";1;CA;0;" CREDITS "  610b 'A(7`)=A(7`)-8^4  150 PR=A(7)+CA-1000 8,0;"YOUR ";CA;" CREDITS FOR YOUR",,,"CARGO PLUS YOUR ";A(7);" CREDITS",,,"FROM THE TRIP GIVES YOU A PROFIT",, 1"OF ";1;PR;" CREDITS";0;"..."  610b & 150 :MPR010 ,0;"YOU ARE BROKE...",,,"BETTER LUCK NEXT TRIP." DYPR>0PR50010 ,0;"WELL DONE...",,,,"BUT DO BETTER NEXT TIME." NUPR>500z10 ,0;"YOU HAVE DONE REALLY WELL...",,,"CONGRATULATIONS." l620l:9500% #3:E=.12}u[:N=017:F:D:D,F:N: #F0,E,4,E,0,E,7,E,4,E,12 ,E*2 #11 ,E/3,9 ,E/3,7,E/3,5,E/3,4,E/3,5,E,2,E,0,E,-1,E,0,E,-5,E,-12 ,E #H100d:0,0;"ASTRONAV";1,0;"--------" #64780 :64760: $|2:120x,85U,557:6:162,502,2:15,21;"Delta":.3,30: % EN=1 %& 500z %<15,12 ;7;1;"THE END":9100# % 0:: &"L",255:"L"+1,255:"L"+2,0:"L"+3,255:"L"+4,0:"L"+5,0:"L"+6,255:"L"+7,0 &1N=07:"M"+N,128+64@:N &"N",24:"N"+1,24:"N"+2,60<:"N"+3,60<:"N"+4,60<:"N"+5,24:"N"+6,24:"N"+7,60< &"O",60<:"O"+1,126~:"O"+2,231:"O"+3,195:"O"+4,195:"O"+5,231:"O"+6,126~:"O"+7,60< & :"t3"9982&: &+K=65290 :SK=65000:10 k