PLANETFALL4 46 *65150~:0:0:0: Y#0;0,0;1;6;1;" PLANETFALL IS LOADING " #e#0;4;0,0;"Spectrum adaptation by P.Rawling from an original by T.Garden" (23689\,25:"PF" d"Planetfall"1:"" PF Ǒ(#Ǒɑ3:0:5::B$;"        ": *A$:A$="".5,-10 :20 BI=1̱A$:A$(I)<"0"A$(I)>"9".5,-10 :20 I: JX=(-.5)*100d:Y=*502:X<25Y<2530 ##F=1:502:F30 -!X(1,7,S1)=0: 2 568-H 4Z=X:X=-Y:Y=Z:557 5Y=-Y:557 6Z=X:X=Y:Y=Z 7mJ=1S1-1:((X-X(1,11 ,J))^2+(Y-X(1,12 ,J))^2)D970F AF=0:J=S1-1:J: FTJ:X(1,11 ,S1)=X:X(1,12 ,S1)=Y:H=1+(H3)*H: PME=100d:90Z:X(1,7,S1)=5+(*5)+1: UME=502:90Z:X(1,7,S1)=10 +(*5)+1: ZDX=(-.5)*E:Y=*E/2:F=1:502:F90Z _ dMR1=1+(X(1,7,S1)5)+(X(1,7,S1)10 ) iMD2=12 *(Y1-X(1,10 ,S1))+(D1-X(1,9 ,S1))/30 nI=16:X(1,13 ,I+12 )=(1+X(1,7,S1)/15)*(X(2,I,R1+13 )*X(1,7,S1)+X(2,I+6,R1+13 )) xeX(1,13 ,I+12 ).1}LX(1,13 ,I)=0:155+10 *(V$="") }Q1=(X(1,13 ,I+12 )*12 ):Q2=(X(1,I,S1)+D2*X(1,13 ,I+12 )):Q1>Q2Q3=Q2:135 Q3=Q1 X(1,I,S1)=(X(1,13 ,I+12 ))*Q3:X(1,13 ,I)=X(1,13 ,I+6)*(1-(X(1,I,S1))*(X(1,I,S1)/(X(1,13 ,I+12 )*X9))) X(1,13 ,I)=100d*(X(1,13 ,I)/100d+.5):P$(S1,I)=(X(1,13 ,I)/100d):I:V$=""165 S1ɰV$(1)165 yX(1,13 ,V$(2))=V$(V$-1)*100d:X(1,V$(2),S1)=-(X(1,V$(2),S1)) 7X(1,9 ,S1)=D1:X(1,10 ,S1)=Y1: K0:0:6::236066\,127:236077\,253 I=0202:5;I,15;"3";I+1,15;"4":I:5;10 ,1;"65664656646566465664656646566" I=1S9:236066\,0:236077\,60<:9 +X(1,12 ,I)/5.50,X(1,11 ,I)/3.5`+14;S$(X(1,8,I)X(1,8,I)+3);10 +X(1,12 ,I)/5.50,X(1,11 ,I)/3.5`+15; ȧ236066\,127:236077\,253:J=(X(1,7,I)/5+1):7;1;"8"J=1;"9"J=2;":"J=3;"7"J=4:I o236066\,0:236077\,60<:AR#0;1;4;" PRESS A KEY TO START " ARƦ=""210 "": 4:"":6:0::0,8;"";1,7;"   S H I P  TO  E T A " M5;1;1,10 ;Y$:LO=6:PZ=1+(T98) I=1T9:X(2,1,I+1)=(X(2,11 ,I+1)-2070)*360h+X(2,10 ,I+1):X(2,I+1,1)=X(2,1,I+1):I rI=T92-1:J=1I-1:X(2,1,J+1)X(2,1,J+2)242 }XX=X(2,1,J+1):X(2,1,J+1)=X(2,1,J+2):X(2,1,J+2)=XX 3J:I:I=1T9:J=1T9:J=T1300, FX(2,1,I+1)X(2,J+1,1)300, X(2,J+1,1)=0:S3=X(2,9 ,J+1):S4=X(1,8,S3):L=(J-1)*6+1 }M7=((X(2,10 ,J+1)-1)/30):L7=3*M7+1:L8=X(2,10 ,J+1)-30*M7 A$=X(2,11 ,J+1):LO,1;T$(J,1,2);15;S$(S4S4+3);22;L8;25;C$(L7L7+2);" ";A$(3) 'LO=LO+PZ:J=T9 ,J:I:AR=5 1?#0;1;7;" P R E S S A K E Y " 6=""3106 ;"": haK=0:S3=S1:SX=(S9/5):SX=SX+(SXS9/5):4:6:0::"Page  S T A R S Y S T E M  C  1  : : : :  A of ";SX;"  : : : :  R  G Weeks : : : :  O  " m"URAN : : : :    : : : :  IRON : : : :    : : : :  MACH : : : :    : : : :  " o"MEDI : : : :    : : : :  COMP : : : :    : : : :  GEMS : : : :  " r"   Buying  Selling       " |8:8:"":K=K+1-SX*(K=SX):J=116:J,5;8;8-2*(J6);" : : : : "(J=3J=5):J ^1,1;K:J=15:S1=5*(K-1)+J:S1>S9J=5:455 ESC=(X(1,7,S1)/5)+1:SC>4SC=4 1,5*(S1-5*(K-1));1;S$(X(1,8,S1)X(1,8,S1)+3);2,5*(S1-5*(K-1));D$(SC):S3=S1455 WZ1100d D2=((X(1,11 ,S3)-X(1,11 ,S1))^2+(X(1,12 ,S3)-X(1,12 ,S1))^2)/R9:4,5*(S1-5*(K-1))+1;(D2/7) Z=16:X(1,Z,S1)0X(1,13 ,Z)10004+2*Z,5*(S1-5*(K-1));" "X(1,Z,S1)<0;" "X(1,Z,S1)>0;P$(S1,Z) Z nJ:480:SX>1#0;0,0;1;6;" Press R for Rest of Prices " (WZ=0K=SX)WZ=1 (WX=QM:FL=0:QM=1:S1=S3: J=16:4+2*J,29;1;7;" "X(2,J+1,T1+1)<100d;X(2,J+1,T1+1):J 1;7;20,16;"CASH `";X(2,12 ,T1+1);20,1;5;0;T$(T1,2,2);21,1;T$(T1,1,2): u#0;1,0;B$:PQ1#0;1,15;2;7;1;" X for Options " Q#0;1,0;3;7;1;1;" Next Star? " A$=:A$=""505 >SX>1A$="R"360h+20*(K>0):500 ?XX=K:K=0:PQ1A$="X""":1650r:500  AJ=0:I=1S9:A$=S$(X(1,8,I))J=I:I=S9 |I:J#0;1,15;2;7;1;" NO SUCH SYSTEM ":.5,-10 :100d:500 X(2,9 ,T1+1)=J:J=S1#0;1,15;2;7;" YOU'RE THERE! ":.5,-10 :100d:500 !"":D2=((X(1,11 ,S1)-X(1,11 ,J))^2+(X(1,12 ,S1)-X(1,12 ,J))^2)/R9:D2=D2:WZ=0:QM=0:X(1,7,S1)=X(1,7,S1)+.02{# =+/25:GQ=1575? 0-5:XX=6:>Q/2575? 55XX=0:I=(*3)+1:D2=D2+7*I :2;7;1;7,2;B$(28);8,2;" SHIP FAILS INSPECTION "I=1;" CREWMEN DEMAND A VACATION "I=2;" LOCAL HOLIDAY SOON "I=3 <9 ,2;2;7;1;B$(28);10 ,2;" ";I;" WEEK DELAY ";11 ,2;B$(28) ?X(2,10 ,T1+1)=X(2,10 ,T1+1)+D2:X(2,10 ,T1+1)>360hX(2,10 ,T1+1)=X(2,10 ,T1+1)-360h:X(2,11 ,T1+1)=X(2,11 ,T1+1)+1 IMM=((X(2,10 ,T1+1)-1)/30):L=3*M+1 NGQ114-XX,7;"";15-XX,7;" ETA at ";S$(X(1,8,J)X(1,8,J)+3);" is ";16-XX,7;" ";17-XX,7;" ";X(2,10 ,T1+1)-30*M;13 ;;C$(LL+2);18;X(2,11 ,T1+1);" ";18-XX,7;"" S>I=((*7)+1)*(>Q/2):I>3595S XX(2,10 ,T1+1)=X(2,10 ,T1+1)+I*7:X(2,10 ,T1+1)>360hX(2,10 ,T1+1)=X(2,10 ,T1+1)-360h:X(2,11 ,T1+1)=X(2,11 ,T1+1)+1 b$X(2,13 ,T1+1)=I: QQD=D1:685 D=X(2,10 ,2):Y=X(2,11 ,2):T1=1:I=2T9:X(2,11 ,I+1).93nzV$=""1750 $KO=KO+1:KO>145V$="" LX(2,11 ,I+1)>YX(2,10 ,I+1)>D675 7X(2,10 ,I+1)=Dƥ>.5675 HD=X(2,10 ,I+1):Y=X(2,11 ,I+1):T1=I I EY1YD1=1:Y1=Y:Y1.56,17;"3 WEEKS DELAY";7,18;"AT CUSTOMS":750 թX(2,12 ,T1+1)=(X(2,12 ,T1+1)/2):I=26:X(2,I,T1+1)=(X(2,I,T1+1)*(1-.4L*)):I X(2,7,T1+1)=(X(2,7,T1+1)*):X(2,8,T1+1)=X(2,2,T1+1)+X(2,3,T1+1)+X(2,4,T1+1)+X(2,5,T1+1) c6,18;"3 WEEKS LATE";7,18;"PIRATE ATTACK";8,20;"MID VOYAGE" WZ=0:A$="PRESS A KEY":I=111 :1;9 +I,2;A$(I);10 ,I+1;A$(I):.03{u\*SN,20:I:0 =""752 ;I=10 20:6;I,2;" ":I I=24:5;0;13 ,8+5*I;X(2,I,T1+1):I:I=57:5;0;16,5*I-7;X(2,I,T1+1):I (QQQQ=0:1600@:1110V 100d:J1=1:9 ,0;"":I=10 20:I,0;" ":I:21,0;"" 6:I=84T20-16:3,I:124|,0:0,-1:-124|,0:I:6,17;" ";7,17;" SELL CARGO ";8,17;" "  SSNI=13:.1}L,12 :.1}L,18:.1}L,24:I K=16 X1600@:8:8:I=10 202:I,1;B$(15):I  mX(1,K,S1)0X(2,K+1,T1+1)<.5X(1,13 ,K)<100d885u %<SN.2~L,12 :.1}L,18:.2~L,6 *10 ,1;O$(J1,2);12 ,1;"No.Wanted:";-X(1,K,S1);14,1;"No.For Sale ? ";8;8;8; /ONC=2:1320(:20,1;B$(15):X=0885u 4X>X(2,K+1,T1+1)1;20,1;"ONLY ";X(2,K+1,T1+1);" IN HOLD":.5,-10 :810* 9_X>-X(1,K,S1)20,2;1;" NO DUMPING ":.5,-10 :885u >Z=1K9:18,10 ;" ":Z<316,1;":::::::::::::: ":.1}L*SN,6:.1}L*SN,6:.1}L*SN,12 :16,1;S$(MM+3);" says ";:Y2=(L1+1)*10 /3 HmZ3.2~L*SN,20:.2~L*SN,0:.2~L*SN,20:20,1;"Last Bid "; M:100d*(.009ztj*X(1,13 ,K)*X+.5) R18,1;"You Ask ? ";18,9 ;:X1=X:NC=6:1320(:20,1;" ":Y=X:X=X1 WYX(1,13 ,K)*X/10 YX(1,13 ,K)*X*10 20,3;1;" TRY AGAIN ":.5,-10 :850R \h20,1;" ":X1=0:YX(1,13 ,K)*XX1=1:Z=K9:875k a?Y>(1+(Z(X)))*X(1,13 ,K)*XZ=K9:875k fCX(1,13 ,K)=.8L*X(1,13 ,K)+.2~L*Y/X khZ:X120,2;"* NO THANKS *":SN.08}# =,0:.15~,-6:.2~L,0 pIX120,1;"** WE'LL BUY **":I=14:.05|L*SN,6*I:I:X(2,K+1,T1+1)=X(2,K+1,T1+1)-X:X(2,8,T1+1)=X(2,8,T1+1)-X*(K<5):X(2,12 ,T1+1)=X(2,12 ,T1+1)+Y:X(1,K,S1)=X(1,K,S1)+X uJ1=J1+1:0;13 +3*(K>3),13 +5*(K-3*(K>3));X(2,K+1,T1+1);" ":K J1=1:6,17;" ";7,17;" BUY GOODS ";8,17;" " RSNI=13:.1}L,6:.1}L,12 :.1}L,18:I K=16 F1600@:I=10 202:I,1;B$(15):I lX(1,13 ,K)<100dX(1,13 ,K+12 )0X(1,K,S1)<110753 7K4X(2,8,T1+1)W10753 <SN.2~L,12 :.1}L,18:.2~L,6 10 ,1;O$(J1,2);12 ,1;X(1,K,S1);" at ";100d*(.01z# =*X(1,13 ,K)+.5);14,1;"No.Wanted ?" e14,11 ;:NC=2:1320(:20,1;B$(15):X=010753 K4X+X(2,8,T1+1)>W20,1;1;" MAX LOAD ";W-X(2,8,T1+1);" ":.5,-10 :945 |X>(X(1,K,S1)+.2~L)20,1;1;" ";X(1,K,S1);" FOR SALE ":.5,-10 :945 Z=1K9:18,9 ;" ":Z<316,1;":::::::::::::: ":.1}L*SN,6:.1}L*SN,6:.1}L*SN,12 :16,1;S$(MM+3);" asks "; mZ3.2~L*SN,20:.2~L*SN,0:.2~L*SN,20:20,1;"Last Bid "; BPP=X(1,13 ,K):100d*(.011z49X*PP*X+.5) 18,1;"You Say ? ";18,9 ;:X1=X:NC=6:1320(:Y=X:X=X1:YPP*X/10 YPP*X*10 20,3;1;" TRY AGAIN ":.5,-10 :990 W20,1;" ":X1=0:YPP*XX1=1:Z=K9:1015 +Y<(1-Z(X))*PP*XZ=K9:1015 CX(1,13 ,K)=.8L*X(1,13 ,K)+.2~L*Y/X Z:X11070. :X1=0:YX(2,12 ,T1+1)1050 X(2,13 ,T1+1)=0:20,1;1;"TOO LITTLE CASH":.3,0:1300:150:X(1,7,S1)<10 X(2,12 ,T1+1)+X(1,B1,16)X(2,12 ,T1+1)1070. X1=1:20,1;" *** SOLD *** ":I=14:.05|L*SN,6*I:I:X(2,K+1,T1+1)=X(2,K+1,T1+1)+X $X(2,8,T1+1)=X(2,8,T1+1)-X*(K<5):X(1,K,S1)=X(1,K,S1)-X:X(2,12 ,T1+1)=X(2,12 ,T1+1)-Y .gX120,1;" -- NO SALE -- ":SN.08}# =,0:.15~,-6:.2~L,0 3J1=J1+1:0;13 +3*(K>3),13 +5*(K-3*(K>3));X(2,K+1,T1+1);" ":K:1300 BX(1,7,S1)10 (X(2,12 ,T1+1)+X(1,B1,16)0)1400x:#0;0,0;6;0;1;" You are on ";S$(MM+3);B$(10 ) LBX(1,7,S1)=X(1,7,S1)+.02{# =+/25 VW500:J=0:I=16:XX=I:X(1,I,S1)0I:1130j [GX(1,I,S1) STAR CALLED ";S$(X(1,8,S1)X(1,8,S1)+3);" " hJ=16:.03{u\*SN,3*J:.03{u\*SN,6*(J-1):.05|L*SN,3*J:J Y#0;1,0;4;7;1;" P R E S S A K E Y " =""1175 "":650 6:"":AR=10,0;"  ANNUAL REPORT No.  ";3;7;1,24;Y1-2070 AR=20,0;"   BANK STATEMENT   ";1,18;4;7;Y$ ,AR6;0,0;B$;B$;B$;B$ 4,0;" CAPTAIN SHIPBANKCARGO TOTAL 000s000sVALUE ASSETS "; SI=821:"     ":I bMAX=0:I=1P9:B1=I:1310:I:LO=9 :PZ=1+(P9<8)+(P9<6) dI=1P9:M1=0:M2=M1:J=0T9/P9-1:M1=M1+X(2,12 ,P9*J+I+1) ؂K=16:M2=M2+X(2,K+1,P9*J+I+1)*X(1,13 ,K+6):K:J:S7=(I-1)*6+1 6M3=M2+M1+X(1,I,16):M3>MAXMAX=M3:WI=I 8;8;LO,0;T$(I,2,2);11 ;(M1/1000);15;(X(1,I,16)/1000);19;(M2/1000);24;M3 LO=LO+PZ:I:8;8;1;1;9 -PZ+PZ*WI,0;B$:AR=1#0;4;7;" P R E S S A K E Y ":0  2B1=T1:I=1S9/P9:B1P9I=S9/P9:B1=B1+P9 B1=B1-P9:I: X(1,B1,16)=X(1,B1,16)*(1+.05|L*(Y1-X(1,B1,18)+(D1-X(1,B1,17))/360h)) #8X(1,B1,17)=D1:X(1,B1,18)=Y1: (3A$:A$=""űA$>NC.5,-10 :1320( -NI=1̱A$:A$(I)<"0"A$(I)>"9"I=A$:I:.5,-10 :1320( 2"I:X=A$:8;8;A$: x5:11 ,47/:231,0:-27,27:27,27:-231,0:27,-27:-27,-27 M11 ,9 ;"DO YOU WISH TO";13 ,6;"VISIT THE LOCAL BANK" A$=:A$=""1415  A$="N" 1300:1310 [0:0,0;"   STATEMENT    "; 236066\,127:236077\,253:1,9 ;3;7;"!#%#')+' -#/1";2,9 ;"""$&$(*,( .$02":236066\,0:236077\,60< 8,2;"In The Bank .... `  Onboard Ship ... ` " p1;7;8,20;X(1,B1,16);10 ,20;X(2,12 ,T1+1) SI=12 18:I,0;" ":I D" ";6;B$;0;B$ 2NC=10 :X(1,B1,16)1460 K13 ,2;5;0;"Withdrawal Amount ` ?";8; 1320(:X>X(1,B1,16)18,4;2;7;" TOO MUCH - Try again ":5;0;13 ,22;" ":1445 18,4;5;" ":X>0X(1,B1,16)=X(1,B1,16)-X:X(2,12 ,T1+1)=X(2,12 ,T1+1)+X: K16,2;5;0;"Deposit Amount ` ?";8; 1320(:X>X(2,12 ,T1+1)18,2;2;7;" YOU ONLY HAVE `";X(2,12 ,T1+1);" ";5;0;16,22;" ":1460 18,2;5;" ":X(2,12 ,T1+1)=X(2,12 ,T1+1)-X:X(1,B1,16)=X(1,B1,16)+X: JO=T1 JO>P9JO=JO-P9:1505 H3<1H3=1 3Y$=(D1-30*M)+" "+C$(H3H3+2)+" "+Y1 3:6::"":0,0;" " 1,3;8;8;Y$;17+(13 -T$(JO,2))/2;T$(JO,2,21+T$(JO,2)):M=X(1,8,S1):QM=0 \3,0;"      SHIP'S LOG      on ";S$(MM+3);"       " n3;7;4,7-(T$(T1,1)/2);T$(T1,1,21+T$(T1,1)) I=10 16:I,16;" ":I:16;"";5;0;10 ,20;"C A R G O";12 ,17;"URAN IRON MACH";15,17;"MEDI COMP GEMS" U2:136,84T:115s,0:0,1:-115s,0 s136,59;:115s,0:172,32 :0,524:212,32 :0,524  18,16;"";16;" CASH ` ";16;" BANK ` ";16;""  @D19,24;4;" ";20,24;" " E1300:1310 Jr19,24;4;7;X(2,12 ,T1+1);20,24;X(1,B1,16): r5:6,4;"N New Game";8,4;"L Load Old Game";10 ,4;"S Save Present Game";12 ,4;"P Prices of Commodities";14,4;"T Travel Printout";16,4;"M Map of Star Systems";18,4;"B Bank Statement";20,4;"E End the Game" 6#0;1;" PRESS THE KEY OF YOUR CHOICE " A$=:A$=""1670 "":A$="P"360h A$="M"AR=1:170 A$="S"R=1:2000 A$="T"AR=5:220 A$="N"1720  A$="B"AR=2:1200 +A$="L"R=1:GQ=0:21004 A$="E"9410$  1665 y#0;0,0;2;7;1;" DO YOU REALLY WANT TO START A NEW GAME? " ""1722 A$=:A$=""1725 "":A$="Y"9090#  1665  5 |KO=0:XX=(*S9)+1:A$=S$(X(1,8,XX)X(1,8,XX)+3):V$=XX:XX>9 1755 T2:7:1:XX=(*5)+1:7,1;B$(30) XXX=18,1;" NUCLEAR POWER PLANT DISASTER ":V$=V$+"175":JO=1 XXX=28,1;" RAGING INFLATION ":V$=V$+"660":JO=6 XXX=38,1;" NEW GALACTIC RAILWAY ":V$=V$+"275":JO=2 XXX=48,1;" DEEP THOUGHT PROJECT ":V$=V$+"575":JO=5 XXX=58,1;" PLAGUE ":V$=V$+"488":JO=4 u9 ,1;B$(30);10 ,1;" ON ";A$;" ";11 ,1;B$(30) ISNI=13:.3,-12 :.3,0:2:I 0:14,6;"";15,6;" URGENT NEED FOR ";16,6;" ";17,6;" "(11 -O$(JO)/2);O$(JO,21+O$(JO));24;"";18,6;""  ?#0;1;7;" P R E S S A K E Y " =""1810 "": 5:5:"":T$(1,2,P9+1)=Y$:2035:I=112 :J=1718:X(2,I,J):J:I:W,D9,K9,X9,D1,X1,P9,T9,S9,Y9,H,Y1,R9,G9,Q,S1,T1,R,H3,H4,SN,SX,L1,I Y11 ,5;"THE DATA WILL SAVE IN"''" TWO BLOCKS":"PF"X():"PF"T$() 11 ,1;" REWIND THE TAPE AND PRESS "''" ANY KEY TO VERIFY ":0:""X():""T$():5:1:"": 5:5:"":I=162:1;6;3;9 +I,5;" S T A R T T A P E ";3;6;10 +I,5;" S T A R T T A P E ":I :""X():""T$() ?W=X(2,1,17):D9=X(2,1,18):K9=X(2,2,17):X9=X(2,2,18):D1=X(2,3,17):X1=X(2,3,18):P9=X(2,4,17):T9=X(2,4,18):S9=X(2,5,17):Y9=X(2,5,18) H=X(2,6,17):Y1=X(2,6,18):R9=X(2,7,17):G9=X(2,7,18):Q=X(2,8,17):S1=X(2,8,18):T1=X(2,9 ,17):R=X(2,9 ,18):H3=X(2,10 ,17):H4=X(2,10 ,18):SN=X(2,11 ,17):SX=X(2,11 ,18) DL1=X(2,12 ,17):Y$=T$(1,2,P9+1)  5: #-23689\,25:"":"":#0;3;7;1;" S T O P T H E T A P E ":.5,0:5:.5,0 #.D23658j\,8:KO=0:QQ=KO:AR=KO:WZ=KO:QM=WZ:V$="" #29000(#:P$(15,6):X(2,13 ,18):T$(12 ,2,13 ):D$(4,3):O$(6,15) #AU:B$(32 ):I=14:D$(I):I:I=16:A$:O$(I)=±A$+A$:I #C"<4>","<3>","<2>","<1>" #DN"URANIUM","IRON ORE","MACHINERY","MEDIC SUPPLIES","COMPUTERS","DIAMOND GEMS" #K+C$="JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC" #PCS$="Sol VerlGwifZenoQatzFlynWephNookYttrDrunIpneCheeLingOvisJuss" #UFZ(X)=(Y(X)*.5-(T(X))*X)/(2*(X(1,K,S1)))/Z #Z#Y(X)=(XȽ(X(1,K,S1))) #_#T(X)=(X<(X(1,K,S1))) #d3I=13:.1}L,20+6*I:I #i#0;4;7;1;0,0;" Press N for NEW GAME, L to LOAD old game from tape. " #na$=:a$=""9070n# #sEA$="L" R=1:QQ=R:GQ=0:PQ=GQ:2200:9325m$ #x(A$"N".5,-10 :9070n# #a"":9100#:R9=2/7:D9=15:S9=8:X3=2:Q=.1}L:GQ=1 #LX(2,13 ,18):I=712 :X(1,13 ,I):I #C5000,3900<,4000,4500,3300 ,3500 #yK9=3:W=30:X9=36$:G9=1.25 :R=0:D1=1:M=0:Y1=2070:Y$=" 1 Jan 2070" #>I=16:J=1416:X(2,I,J):J:I #?I=712 :J=1416:X(2,I,J):J:I #-.1}L,-.2~L,-.1}L,0,-.1}L,-.1}L,0,.1}L,.1}L,-.1}L,.1}L,0,.1}L,.2~L,.1}L,.1}L,-.1}L,0 #1,1.5@,.5,.75@,.75@,.75@,-.75@,-.75@,-.75@,-.5,-1.5@,.5,-1,-1.5@,-.5,.5,1.5@,-.5 #;5:1;7,1;" How many players ? " #20:P9=A$:P9<2P9>12 2;7;1;18,2;" BETWEEN 2 AND 12 CAN PLAY ":.5,-0:20,6;"Try again ..... ":9125# #18,0;5;B$;20,0;B$;7,1;1;0;8;" ";0;"........ ";P9 #81;9 ,1;" No. of ships per player ?" #C20:X=A$:T9=P9*X:X3=X:X>0T912 9165# #~T9>12 18,0;1;2;7;" I CAN'T LOOK AFTER MORE THAN A TOTAL OF 12 SHIPS " #D20,6;"Try again .....":.5,-0:9140# #~5;18,0;B$;B$;B$;1;0;8;9 ,1;" ";0;". ";X3 #9 1;11 ,1;" How many Star systems ? " #׸20:S9=A$:S9<2S9>151;2;7;18,3;" BETWEEN 2 AND 15 PLEASE ":.5,-0:20,6;"Try again .....":9175# #܎5;18,0;B$;20,0;B$;1;0;0;11 ,1;" ";0;"... ";S9 #913 ,1;1;" Length of game in years ?" #20:A$>2ŰA$<12;7;1;18,3;" BETWEEN 1 AND 99 PLEASE ":.5,-0:20,6;"Try again":9195# #5;18,0;B$;20,0;B$;13 ,1;1;0;0;" ";0;". ";A$:Y9=A$+Y1 #17,1;1;7;B$(30);18,1;" It takes a few moments to ";19,1;" build the Universe .... ";20,1;b$(30) #FX(1,7,1)=15:H=1:S1=2:30 #,S1=3:30:S1=4:80P $lI=5S9:S1=I:J=I-3*((I-1)/3):30+502*(J=2)+557*(J=3) $ bI:I=1S9:J=16:X(1,J,I)=0:J:I1I1=1:9240$ $\I1=4*(*14)+5:J=2I-1:X(1,8,J)=I19230$ $J $^X(1,8,I)=I1:X(1,9 ,I)=270:X(1,10 ,I)=Y1-1:I $/I=720:I,0;5;B$:I $";6,1;1;" CAPTAINS - ENTER YOUR NAMES " $'xJ=8+(P9<7):I=1P9:J,2;"Captain ";I;" ...";"."I9 ;" ?";:J=J+1+(P97) $,7A$:A$=""űA$>11 .5,-0:9260,$ $1 8;A$ $6T$(I,2)=±A$+A$:I $;;T1=2:I=621:8;I,0;B$:I $@C6,3;1;" CAPTAINS NAME YOUR SHIPS ":K=9 $EI=1T9/P9:J=1P9:X(2,2,T1)=0:X(2,3,T1)=0:X(2,7,T1)=0:X(2,4,T1)=15:X(2,5,T1)=10 :X(2,6,T1)=10 $JX(2,8,T1)=25:X(2,9 ,T1)=1:X(2,10 ,T1)=D1:X(2,11 ,T1)=Y1:X(2,12 ,T1)=5000:X(2,13 ,T1)=0 $TaK,0;T$(J,2,2);" - No.";I;" "I9 ;": ?";:K=K+1+(T97) $Y8A$:A$=""űA$>11 .5,-10 :9305Y$ $^ 8;A$ $c[T$(T1-1,1)=±A$+A$:T$(T1-1,2)=T$(J,2):T1=T1+1:J:I $hdI=1P9:X(1,I,16)=0:X(1,I,17)=D1:X(1,I,18)=Y1:I $iz5:8,4;"";9 ,4;" Would you like ";10 ,4;"sound during your game";11 ,4;"";15,1;1;5;"";16,1;7;" Press 1 for ON or 0 for OFF ";17,1;5;"" $jA$=:A$=""9322j$ $k-A$"0"A$"1".5,0:9322j$ $lSN=A$ $mCR=1100d:170:220:K=0:9400$ $wGH3=1:H4=1:S1=1:T1=1:L1=1:170 $)FL=1:PQ=1:360h:XX=K $ GQ=1 $B=1T9/P9:C=1P9 $ S7=(C-1)*6+1 $g5;0;20,1;T$(T1,2,2);21,1;T$(T1,1,2) $?SN.15~,20:.15~,10 :.2~L,20 $xK=XX:500:480:SX>1#0;0,0;6;1;" Press R for rest of prices " $<WZ=1:L1=L1+6:T1=T1+1:C:B:PQ=0 $#GQ=1220:GQ=0 $=""9395$ $ 650 $%AR=0:1200:XX=65A $0,0;"**END OF GAME******END OF GAME**                               " $̔2;7;1;1;2,6+(11 -T$(WI,2))/2;T$(WI,2,21+T$(WI,2));" HAS WON!" $є.1}L,11 ,.1}L,11 ,.8L,16,.05|L,11 ,.05|L,16,.05|L,11 ,.05|L,16,1,20 $Z9425$:I=18:K,J:K,J:I:I=.1}L0-.01z# =:I,28:I $8#0;" P R E S S A K E Y ":I=1 $=""9430$ $5:10 ,1;"Perhaps ";T$(WI,2,21+T$(WI,2));" won't be";12 ,4;"so lucky on the next game!";17,3;1;7;B$(27);18,3;" Do you want another game? ";19,3;B$(27) $A$=:A$=""9440$ $9A$="Y"5;17,0;B$;B$;B$:9006.# $5:10 ,0;"    Press ""E"" to erase program   and reset the Computer   " $X$=:X$=""9465$ $X$"E"9410$ % 0 '::"PF"9000(#:"Char"65151,385:"":"" AChar >|BBB|BBBBBB|BBbbRRJJFFBBDDHPP`PHHDBB>><<0000000000000000000?000000000000