ZXTape!èEmpire ¬ ¬,è®ÿ û  í1000è  í1500Ü ( ñy=1 2 í2000Ð < í3500¬ Fëx=1Ì4 P í4000  Zóx dëx=1Ì4 núf(x)=0Ëì6000p xúf(x)=10 Ëì6500d ‚óx Œ í5500| – ñy=y+1   ì502 èét(5):éd(5) ò ép(4,2):éf(4) ü ée(5) ëx=1Ì4 ñf(x)=4+¼(¥-¥) ñd(x)=º(¥*100d) $ñe(x)=º(¥*70F) .ëy=1Ì2 8 ñp(x,y)=¥-¥ Bóy Lóx V-ñd(5)=1000è:ñe(5)=800  `þ Üõ"GALACTIC EMPIRE" ð{õ'"You are the general of the"'"space-fleet of an expanding"'"galactic empire. It currently occupies 40% of the galaxy." Ðõ"Using military strategy and"'"political acumen, you must beat back the forces of another,"'"larger empire while taking care not to alarm planets of the"'"frontier regions of your milita-ristic intentions." Tõ'"When a territory is occupied, besure to allocate enough ships toguard against rebellion from"'"nationalist elements among the populace." | í9000(# †þ Ðû Úõ"Here are your options:" äõ"1. Do nothing." î$õ"2. Display situation on a front." øõ"3. Transfer ships." õ"Which one do you want?"  îa:õa ña=ºa  úa>3Ëña=3 * úaÇ1Ëþ >úa=2Ëõ"W"; Húa=3Ëõ"To w"; R-õ"hich front? (1 to 4 or 5 for"'"reserves.)" fîb:õb pñb=º½b z úb>5Åb<1Ëñb=1 „úa=2Ëí2500Ä Žúa=3Ëí3000¸ ˜ ì2000Ð Äû Îúb<5Ëõ"Front ";b Øúb=5Ëõ"Reserves" âõ ì õ"We have ";d(b);" ships here." ö õ"The enemy is thought to have" 2õ"about ";º(½(e(b)+(¥-¥)/5*e(b)));" ships." úb=5Ëì2710– :õ'"The front is ";f(b);" regions from"'"our home planet." 2õ <ëx=1Ì2 Fõ"The population on "; Púx=1Ëõ"our side is" Z!úx=2Ëõ"the enemy sideis "; n úp(b,x)<.4LÌÌÌËõ"rebellious." x1úp(b,x)È.4LÌÌÌÆp(b,x)Ç.7€3333Ëõ"fairly calm." ‚úp(b,x)>.7€3333Ëõ"content." Œóx – í9000(#  þ ¸õ'"From which front?" Ìîc:õc Öñc=º½c à úc>5Åc<1Ëñc=5 ôõ"How many ships?" þîd:õd ñd=º½d úd>d(c)Ëñd=d(c)  ñd(c)=d(c)-d & ñt(b)=t(b)+d 0þ ¬ ñtd=0 ¶ëx=1Ì4 Àñtd=td+½(5-f(x)) Ê'ñe(5)=e(5)+º(e(x)/2) Ôñe(x)=º(e(x)/2) Þóx èëx=1Ì4 ò6ñe(x)=e(x)+º(½(5-f(x))/(td+1)*e(5)) üóx ñe(5)=0 þ  &ñsl=½(º(e(x)/5+(¥-¥)*20)) ª&ñtl=½(º(d(x)/5+(¥-¥)*20)) ´úsl>d(x)Ëñsl=d(x) ¾útl>e(x)Ëñtl=e(x) Èñd(x)=d(x)-sl Òñe(x)=e(x)-tl Ü$ñnp=f(x)+¼(º((d(x)-e(x))/25)) æúnp>10 Ëñnp=10 ðúnp<0Ëñnp=0 úû õ"Report from front ";x'' õ"We lost ";sl;" ships." " õ"The enemy lost ";tl;" ships." ,õ 6&únp>f(x)Ëõ"We have taken the region." @%únp.3™™™Æf(x)<10 Ëí4500” 1úp(x,2)<-.7€3333Æf(x)>0Ëí5000ˆ š í9000(# ¤þ Ì,õ'"How many ships will occupy the region?" àîa:õa êña=½ºa ôúa>d(x)Ëña=d(x) þ ñd(x)=d(x)-a þ ”>õ'"The next region outward has"'"rebelled against the enemy." ²+úd(x)