ZXTape! 0Created with Ramsoft MakeTZXEMPIRE d d  f "EMPIRE" 4:0: i7:1,11 ;" ";2,11 ;" EMPIRE ";3,11 ;" " #_100d,163:568,0:0,-16:-568,0:0,16 $^97a,165:62>,0:0,-20:-62>,0:0,20 (5,1;" The Korth Imperial Computer ";6,1;"has gone down and YOU must run";7,1;"the Empire without its help. " >  MACBRIDE 1983 << K1,0:19,1;"PLEASE STOP THE TAPE AND WAIT " #23658j\,8 (XZX=0:R(3):P$(30,7):D(6,2):D$(10 ,9 ) 2IN=130:P$(N,1)=(65A+(>.3)+(>.73333)) <'P$(N,2)=((*6)+1) A>P$(N,3)=((*4)):>.6P$(N,3)="0" FMp$(n,4)="0":P$(N,3)>"0"P$(N,4)=((*9 )+1) P'P$(N,5)=((*6)+1) _]P$(N,6)="A":P$(N,7)=(502+(P$(N,2)*P$(N,3)*P$(N,4))) dN nMMS=0:KP=0:CY=0:120x:N=110 :D$(N):N xc"METALS","FUELS","BATHMUD","SHIPS","GUARDS","UPRISINGS","NONE","PRIMITIVE","ADVANCED","DANGEROUS" 4000 Ȑ:2,4;" THE IMPERIAL PLANETS "''" If you wish to alter guard"''" numbers or production levels"''" on any planets then give"'' ]" Planet number (1-30)"''"  Other Options."''" 0 to look at planets"''" 99 to move on." !"Planet number ,0 or 99 ? ";a$ 53500 :q=01,-10 :260 "a=044000:200 "a=99c1000 ,*a>301,-20:260 6n=a:4610 @A0,0;"Production or Guard levels?(P/G)";a$ Ja$="P"360h Ta$="G"450 ^ 320@ h=0,0;" New Production level ? ";a$:3500 rq=0360h w 5000 |Oa>90021,0;" Production limit 900 tonnes ":360h Wp$(n,7)="B"21,0;" Send Guards to crush uprising ":450 pl=p$(n,2)*100d {((a-pl)/100d)*p$(n,5)>d(4,2)21,0;" Not enough spare ships for that":360h )gx=(a-pl)*p$(n,3)*p$(n,4) Lgx>021,0;" ";gx;" more guards needed ":440 Dgx<021,0;" You can remove ";gx;" guards." !p$(n,2)=((a/100d)) Id(4,2)=d(4,2)-((a-pl)/100d)*p$(n,5) 70,0;"New Guard level ? ";a$:3500  5000 q=0450 (GL=(P$(N,7)-502)*100d GX=((A-GL)/100d) \GX>D(5,2)21,0;"Not enough spare guards for that":450 *d(5,2)=d(5,2)-gx )p$(n,7)=(502+(A/100d)) 60,0;"Orders for more planets?(Y/N)";a$ a$=89Y200 a$=78N600X & 520 @4000::2,3;" ORDERS FOR KORTH PLANET " N''"START RATIONING HOME ROBOTS 1"',"HEATING FUEL 2"',"BATHMUD 3"'' L" END RATIONING HOME ROBOTS 4"',"HEATING FUEL 5"',"BATHMUD 6"'' ^" BUILD MORE  GUARDS 7"',"SHIPS 8"''" NO FURTHER ORDERS  9" :0,0;" ORDER NUMBER (1-9 )?";A$:3500 Q=01040  5000 $A>31100L .fR(A)=121,0;" YOU HAVE RATIONED THAT ALREADY ":1,20:1040 8jD(A,2)=D(A,2)*.9ffff:R(A)=1:KP=KP+1:KP=3Q$="RATIONINGS":5200P B 1040 LA>61200 V[R(A-3)=021,0;" THAT IS NOT RATIONED ANYWAY ":1040 `fD(A-3,2)=D(A-3,2)*1.1 :R(A-3)=0:KP=KP-1:1040 A=9 1300  Z=A-6 bD(Z,2)D(Z,1)21,0;"IMPOSSIBLE - SHORT OF ";D$(Z);"":1040 9X=(D(Z,1)-D(Z,2)):Z=1X=X*10 Y0,0;("HOW MANY ";D$(6-Z,6);" ?(MAX ";X;"0) ");A$:3500 Q=01230 ,A>X*10 1,30:1230 Z=1A=A/10 hD(Z,2)=D(Z,2)+A/10 :D(6-Z,2)=D(6-Z,2)+A/10 :1040 ?CY=CY+1::2,2;"Cycle ";cy;" over safely." (J0,0;" See if the Imperial Computer is mended ?(Y/N)";a$ 2a$=78N190 nO<.8L20,0;" De-bugging still in process ":1440 x:0,0;"It is.Do you want to retire ?";a$ a$=89Y1500 5300:190 X''"FINAL SCORE.. "''"RATIONINGS ";KP''"UPRISINGS ";D(6,1)''"SHORTAGES ";MS  5210Z q=0:a$="" &l=1̱a$:a$(l)<"0"a$(l)>"9" l:a=a$:q=1: 4:1,3;" THE STATE OF THE EMPIRE " ,N=16:D(N,1)=0:N N=130:P$(N,6)="A":p$(n,7)-502N=45:D(N,2)=(*20):N:4300 hyMS=0:N=13:D(N,2)=D(N,2)*1.03 =:D(N,2)>D(N,1)*1.1 MS=MS+1 mN X=64@:Y=144 r'"SUPPLY"''"DEMAND"''''"IN USE"''"SPARE"''''D$(6);" ";D(6,1)''"SHORTAGES ";MS,"RATIONINGS ";KP PN=15:SX=D(N,1):D(N,2)>D(N,1)SX=D(N,2) 1(191-Y)/8,X/8;D$(N,8) MT=12:H=0D(N,T)*60</SX:X+H,Y:T;0,10 WH:Y=Y-16:T:Y=Y+32 :X=X+64@:X>192X=64@:Y=Y-480 N )MS>2Q$="SHORTAGES ":5200P 9D(6,1)>5Q$="UPRISINGS ":5200P &5300: 0B0,0;"All planets 1 or special ones 2";a$ Da$="1"4500 Na$="2"4440X S1,-20:44000 X40,0;" Planet number ?(1 to 30)";n$ ].n$<"0"n$>"9"1,-10 :4440X b5n=n$:N>0N304600:4460l gH1,10 :18,2;" No planet number ";n:4440X l30,0;" Another planet ? (Y/N) ";a$ va$=89Y4440X a$=78N  4460l n=130:4600:20,0;" Press  Q  to quit.";21,6;"  ENTER  for next planet." 0:="Q" 13 4505 N: Q:" PLANET NUMBER K";N''" RESOURCE TYPE ";D$(P$(N,1)-64@)''  R" PRODUCTION ";(P$(N,2)/(1+(P$(N,6)="B")));"00 TONNES"'' \" LIFEFORMS ";D$(P$(N,3)-41))''" POPULATION ";P$(N,4);"000000"''  2" DISTANCE ";P$(N,5);" LIGHT YEARS."'' *@" SHIPS SERVICING PLANET ";P$(N,2)*P$(N,5)'' 4" GUARDS PRESENT ";P$(N,7)-502;"00"''" GUARDS NEEDED ";P$(N,2)*P$(N,3)*P$(N,4)*(1+(P$(N,6)="B"));"00" >/P$(N,6)="B"" UPRISING ON PLANET " H 821,0;" ": PN=13:b=07:b:.2~L,b*5:b:N:19,5;" TOO MANY ";Q$;"!";20,7;" YOU ARE SACKED." Z10,0;"Like another game ?(Y/N)";a$ da$="Y"5250 na$="N"5230n x 5210Z n:10 ,0;" CREATING A NEW  KORTH  EMPIRE ";13 ,9 ;"PLEASE WAIT":35# 1" PRESS  ENTER  TO GO ON ";A$: 2qxy`Zw a zN4 PAYA5003A2C5002A2B6006A2A1122A4C1003A2A2001A2A5002A2A3006A2B4185ARB2233A>A1004A2B1362ADC3356A_ A_