* ? 6 ZD:\%" YOU EXPORT?";EX EX>CORN3000 CORN=CORN-EX 33,5;" ";3,5;CORN EX>0CIH=CIH+(EX*CCP)  #4500:N=14:C$ (C$);X  4500 N : 0"POWER STATIONS?","FACTORIES?","FUEL?","CORN?"  X=0 BN=1CIHX*NPPS=PS+X:CIH=CIH-(X*NP):ASSET=ASSET+(X*NP) >N=2CIHX*IPF=F+X:CIH=CIH-X*IP:ASSET=ASSET+(X*IP) ,N=3CIHX*FPMJ=MJ+X:CIH=CIH-X*FP `N=4X*CCP>CIH"SORRY! YOU CANNOT AFFORD THAT MUCH CORN. TRY AGAIN.";X:4580 2N=4CIHX*CCPCORN=CORN+X:CIH=CIH-X*CCP  *CIH>1E6t$CIH<10E65500| +CIH>10E6CIH<10E7> 5510 CIH>10E7> 5520 BUY=(*3)+1:Z=1BUY:AMT:A$:COST:Z:#1;"IN ACCORDANCE WITH YOUR PLANS OFEXPANSION YOU HAVE PURCHASED ";AMT;A$;COST;" EACH.":CIH=CIH-(AMT*COST) CASSET=ASSET+(AMT*COST):BIAS=BIAS+2:300,::100d |3," NEW ROADS AT `",1E5CP,100d," COUNCIL HOUSES AT `",5E4P,20," SHOPS AT `",7.5E4|,5," FIRE-ENGINES AT `",1E5CP,5," AMBULANCES AT `",1E5CP 1," NEW BY-PASS AT `",5E6,1," NEW SHOPPING CENTRE AT `",4E6t$,1," GOVERNMENT OFFICE BLOCK AT `",9E6 T@,2," POLICE STATIONS AT `",1E6t$,2," ARMY BARRACKS AT `",3E67 1," AIRPORT AT `",12E67,1," DOCKYARD AT `",10E6,3," WARSHIPS AT `",5E6,3," RAILWAY STATIONS AT `",5E6,2," HOSPITALS AT `",10E6  A$="S"VARS=(23627K\+256*23628L\):TOP=((23641Y\+256*23642Z\)-1-VARS):"SPECTREALM"VARS,TOP:99c |A$="L"#1;"LOADING: START THE TAPE AND THENPRESS ANY KEY. ":0:"SPECTREALM":99c p4:4:0: z8B(12 ):B$="SEPOCTNOVDECJANFEBMARAPRMAYJUNJULAUG" 'A$="METEOROLOGICAL HARVEST FORECAST." -Z=1̱A$:A$(Z);:.01z# =,3:Z "FOR THE YEAR ";YEAR;" A.S." $" _" 0Z=011 :.01z# =,3:B$(Z*3+1Z*3+3):B(Z+1)=(*3)+1:Z:Z=111 :B(12 )=B(12 )+B(Z):Z:HARVEST=0+(1B(12 )22)+(2(B(12 )>22B(12 )<27))+(3B(12 )27) $" _" H7;PLANT*2;16;PLANT*4;25;PLANT*8 57;"BAD";16;"AVERAGE";25;"GOOD" ʸB(12 )=HARVEST:Z=112 :G=42+(5B(Z)=1)+(14B(Z)=2)+(23B(Z)=3):.01z# =,3:Z+2,G;7;"";:G:Z ԟ19,0;"TOTAL YIELD THIS YEAR:";0+(PLANT*2HARVEST=1)+(PLANT*4HARVEST=2)+(PLANT*8HARVEST=3):100d  X2:2: bTLOSS=0:1;1;'''"  " lBIAS=BIAS-2:''''6;0;"SPECTREALM HAS BEEN INVADED BY THE CREA'N RACE. YOUR COUNTRY HAS BEEN PLUNGED INTO A BLOODY WAR!!" vD#1;5;1;"Press ~R~retalliate; ~S~ Surrender." @x$=:X$=""8050r:X$=""7040:x$="S"7200  50::1''''"YOU ARE AMASSING YOUR ARMY" 1FIGHT=7300:ENEMYAREA=(*(AREA*2)) -LOSS=0:ELOSS=0:COUNT=10 TW=1200:W:0:0::''''7;"YOUR ARMY IS NOW READY." oW=1100d:W:0:0::0;7;"REPORT COMING IN:":W=1100d:W 0::8200 :FIGHT %COUNT=0POP=ENEMY7500L %COUNT=0POP>ENEMY7500L %COUNT=0ENEMY>POP7200  {''5;"YOUR IMMEDIATE LOSSES ARE:";LOSS:''7;"CREA'N LOSSES ARE ESTIMATED AT ";ELOSS:W=1200:W >5:5::''''7;"THE FIGHTING CONTINUES."  7075  '7:0::0:LOSE *X$="S""YOU HAVE SURRENDERED.":"UNFORTUNATELY YOU WERE NOT ABLE TO FLEE THE COUNTRY IN TIME AND YOU HAVE BEEN EXECUTED BY YOUR CONQUERERS.":521  40;"YOU HAVE LOST THE WAR!!!":"YOUR COUNTRY HAS BEEN OVERRUN BY THE CREA'N RACE. YOU HAVE BEEN LOCKED IN A DUNGEON FROM WHICH THE ONLY ESCAPE IS DEATH." 9H''''"+  " >W=1500:W HQ:0;"AFTER MANY YEARS IN PRISON YOU FINALLY DIE OF OLD AGE.":521  `LOSS=(*(POP/1.5@)):ELOSS=(*ENEMY):POP=POP-LOSS:ENEMY=ENEMY-ELOSS:TLOSS=TLOSS+LOSS COUNT=COUNT-2  V `1;6;"      " j<BIAS=BIAS+2:''''7;"YOU HAVE WON THE WAR!!!": o 8100 tqPOP=POP+200:EPS=(*3)+1:EF=EPS*2:POP=POP+(ENEMYENEMY>0):AREA=AREA+ENEMYAREA y4:5: ~/0;0;''"YOUR LOSSES WERE:";TLOSS BW=1200:W:PS=PS+EPS:F=F+EF:MJ=MJ+(EPS*100d) o:"THIS PARTICULAR STATE OF CREA HAS NOW BECOME PART OF SPECTRIA,GIVING YOU ";ENEMYAREA;" EXTRA LAND UNITS" E'"YOUR SPOILS INCLUDE ";EPS:"POWER STATIONS AND ";EF;" FACTORIES." ^'"YOU HAVE ALSO WON THE RIGHT TO GOVERN ";ENEMY;" CREA'N AS SPECTRIANS" -W=1600X:W:100d @SOUND EFFECTS J98000@:BA:BB:Z=1BA:BC:BD:BC/BB,BD:Z: T11 ,10 ,5,0,4,0,2,0,6,0,4,4,2,4,4,2,2,0,3.5`,0,2.5 ,-.5,7,0 r0BA=.015zu\:Z=-1616:BA,Z:Z: JZ=15:Q=120:.01z# =,Q:.01z# =,-Q:Q:Z: h8160:BA=.01z# =:Z=15:Q=120:BB:BA,BB*5:Q:8160:Z: 1,2,3,4,5,6,7,8,9 ,10 ,9 ,8,7,6,5,4,3,2,1,0 =Z=13:.01z# =,3:.1}L,3:Z: #Z %0:0:6: %&"SPECTRIA HAS ITS PUBLIC ELECTIONEVERY 5 YEARS. SINCE YOU WERE ELECTED, 5 YEARS HAVE PASSED AND YOUR PEOPLE ARE NOW VOTING." %0VV=-11 :Z=10 -10 -1:V=V+1:.1}L,Z:.1}L,V:Z: %:G"VOTE COUNTS: YEAR ";YEAR;" A.S.":" _" %DM4,0;"VOTES FOR ";P$(PLA);8,0;"VOTES FOR ";P$(PLB) %JZD(5):D(1)=POP:D(2)=CORN:D(3)=CIH:D(4)=PS:D(5)=F %K1Z=15:D(Z)C(Z)BIAS=BIAS+1 %MZ %N!Q(2):AD=(POP/200) %S*Z=1POPAD:V=(*3)+1 %XbBIAS5Q(PLA)=Q(PLA)+(ADV2):Q(PLB)=Q(PLB)+(ADV>2) %bDBIAS<5BIAS>0RR=(*2)+1:Q(RR)=Q(RR)+AD %gbBIAS0Q(PLB)=Q(PLB)+(ADV2):Q(PLA)=Q(PLA)+(ADV>2) %l34,20;Q(PLA);8,20;Q(PLB) %vZ:: %{"Z=15:.1}L,Z:Z %{Q(PLA)>Q(PLB)"CONGRATULATIONS ";P$(PLA):'"YOU HAVE BEEN RE-ELECTED FOR ANOTHER TERM OF OFFICE":250:90Z %Q(PLB)>Q(PLA)PL=2Q$=P$(PLA):P$(PLA)=P$(PLB):P$(PLB)=Q$:"BAD LUCK ";P$(PLB):'"YOU HAVE BEEN DEFEATED BY ":"YOUR RIVAL, ";P$(PLA)'"WHO NOW TAKES OFFICE IN YOUR PLACE":250:90Z %Q(PLB)>Q(PLA)PL=1"BAD LUCK ";P$(PLA):'"YOU HAVE BEEN DEFEATED!! YOU WERE UNABLE TO FACE THE SHAME OF DEFEAT AND SO YOU HAVE COMMITTED SUICIDE BY JUMPING OFFTHE GOVERNMENT OFFICE BUILDING.":250:521  &09910&:P=063?:b:"A"+P,b:P &128,192,224,240,248,252,254,255,129,195,231,255,255,255,255,255,255,127,63?,31,15,7,3,1,1,3,7,15,31,63?,127,255,255,254,252,248,240,224,192,128 &255,255,195,195,195,195,255,255,148,182,109m,181,237,154,87W,180,73I,42*,137,74J,41),154,93],62> & '"SPECTREALM"1 @?&b> "" ECTREALM#GF MMS M3j26e3-b v>>[Kv\!Xq# P 88 MOO\GWq !v>??mWI*J)]> @ DHpHDB@~BfZBBBBbRJFB>>>B|B@~|@ @BB@B@B@@BB@B@B@@ WWWWWW@<<@B~B@~<<@B~B@~ `!{{{zzz~~~|||}}}yyyxxx{{{zzz~~~{{{zzz~~~|||}}}yyyxxx{{{zzz~~~{{{zzz~~~|||}}}yyyxxx{{{zzz~~~{{{zzz~~~|||}}}yyyxxx{{{zzz~~~{{{zzz~~~|||}}}yyyxxx{{{zzz~~~! oh@ h fDDfDDDDfDfDf Df@8 # # <@( £ۣ\\\Q^^# \zGXN+![!PX!!@8I>M38U ?y*~c܇Iڢ K SR P* * -Jon A. Slack, * * for * * ~RUNESOFT~. * * 23658j\,8 236099\,40( ?#1;1;1;"STOP THE TAPE **** STOP THE TAPE" _9900&:Z=-2020:.1}L,Z:Z:Z=20-20-1:.1}L,Z:Z p"HOW MANY PLAYERS?";PL:PL1PL2#1;"THIS IS A ONE OR TWO PLAYER GAME":502:11 R$(2,8):O$(1,8):P$(2,8):Z=1PL:"PLAYER ";(Z);" WHAT IS YOUR NAME?";P$(Z):R$(Z)=P$(Z):Z PL>1V=(*2)+1:O$(1)=P$(V):#0;1;"ELECTION RESULT FOLLOWS:":502:#1;0;O$(1);" HAS BEEN ELECTED." #100d:0:Y(PL+1) ]PL>1PLA=0+(1O$(1)=P$(1))+(2O$(1)=P$(2)) .PL=1P$(2)="RIVAL":PLA=1 9PLB=0+(1PLA=2)+(2PLA=1)  PL=2Y(3)=1  1000 3PS=0:F=0:MJ=0:CIH=1000 (ASSET=0:NP=25E6> 2BYEAR =0:CORN=5000:POP=1000:AREA=200 <CCP=(*20)+1 FFP=25E4t$:IP=10E6 ZD4:0::7;0,7;"ELECTION CAMPAIGN." ["HAVING BEEN ELECTED FOR A 5-YEARTERM OF OFFICE, YOU HAVE BEEN ASKED BY THE KING OF SPECTRIA TO GIVE A FORECAST OF WHAT YOU WILL DO DURING YOUR 5 YEARS OF GOVERNMENT." \'"AFTER YOUR 5 YEARS ARE UP, YOU WILL BE ASSESSED BY THE PEOPLE ON THE RESULTS OF YOUR TERM OF OFFICE. IF THESE RESULTS DO NOT MATCH UP TO YOUR PROMISES YOU MAY GO THE SAME WAY AS MANY GOVERNMENTS BEFORE YOU - OUT!!!!" ] C(5) ^y'"ANSWER THE PROMPT WITH YOUR ESTIMATE OF THE FINAL FIGURES (AT THE END OF 5 YEARS). CURRENTFIGURES IN BRACKETS." _98b:Z=15:C$,CF:(C$);"?";"(";(CF);")";C(Z):C(Z)CF*1.5@#1;"THE KING EXPECTS PROGRESS!!! TRYAGAIN:":100d:(C$);"?";"(";(CF);")";C(Z) `=Z:Y(1)=Y(1)+(YEAR+POP+CIHR$(1)=P$(PLA)) a:Y(2)=Y(2)+(YEAR+POP+CIHR$(2)=P$(PLA)) bR"POPULATION",POP,"CORN(SACKS)",CORN,"CASH",CIH,"POWER STATIONS",PS,"FACTORIES",F cBIAS=0 d&0:7:0:0: i"ENEMY=(*(POP*2))+1 mMJ<0MJ=0 n6"YEAR:";YEAR:"POP:";POP:"AREA:";AREA:"CORN:";CORN o{"POWER STATIONS:";PS:"FACTORIES:";F:"FUEL (GJ):";MJ::"SPECTRIA OWNS:`";CIH;" CASH":"SPECTRIA OWNS `";ASSET;" ASSETS" p,V=:V>.98zGCIH>1E6t$5000 qkPOP*2>AREA*8''1;"YOU HAVE ENOUGH LAND TO PLANT: ";(AREA*8);" SACKS OF CORN." rgPOP*2AREA*8))+(POP*2(POP*2CORN'1;"YOU ARE ";NEED-CORN;" SACKS OF CORN SHORT" v 2000 x'"HOW MUCH CORN WILL YOU PLANT?";PLANT PLANT>CORN120x POP*2AREA*8120x CORN=CORN-PLANT 33,5;" ";3,5;CORN "HOW MUCH CORN FOR FOOD?";FOOD FOOD>CORN170 CORN=CORN-FOOD FOOD>(POP*4*1.25 )#1;"YOU SET ASIDE TOO MUCH CORN FOR FOOD, AND ";FOOD-(POP*4*1.25 );" SACKS OF IT HAVE ROTTED.":FOOD=(POP*4*1.25 ):250 33,5;" ";3,5;CORN 3000 %AP=PLANT/8:ACRES PLANTED GROUND=AREA*.75@ 3AP>GROUNDAREA=AREA+(AREA*.25~):240 AREA=AREA-(AREA*.25~) FOOD=FOOD/4 REF=POP POPFED=FOOD c:POPFED.5)-((*10000')+1ƥ<.5):FP<25E4t$FP=25E4t$ MiCCP=CCP+((*10 )+1ƥ>.5)-((*10 )+1ƥ<.5):CCP<3CCP=3 NMJ07000X T9PS=REF1:F=REF2:YEAR=100d400:ENDPROG U*YEAR/5=(YEAR/5)9500% V3V=:V>.97xQ:"YOU HAVE STRUCK.":'1;0;2;"                ":2;6;0;''"ONE OF YOUR EXPLORATION TEAMS HAS FOUND A RESEVOIR OF GOOD QUALITY CRUDE.":''"THIS RESERVE WILL PROVIDE YOU WITH ";:OIL=(*1000):OIL;" GIGAJOULES (G/J) OF FREE ENERGY." WCV>.97xQBIAS=BIAS+1:MJ=MJ+OIL:8150:8150 ^ 100d @:"WELL DONE. SPECTRIA IS 100 YEARSOLD. THE COUNTRY CONTROLS:" :"A POPULATION OF:";POP ':"AN AREA OF:";AREA;" SQUARE MILES." #:"IT HAS ";CORN;" SACKS OF CORN" O'"TOGETHER WITH ";F;" FACTORIES, GIVING YOU AN ANNUAL INCOME OF `";F*POP; d''"AND ";PS;" POWER STATIONS, PROVIDING YOU WITH AN ANNUAL INCOME OF `";PS*POP*(YEAR/10 ) C'"SPECTRIAS' TOTAL CASH IS `";CIH:"ITS ASSETS ARE WORTH `";ASSET /#1;"PRESS ANY KEY FOR SCORES.":0 N:0,13 ;"SCORES"''R$(1),Y(1)''R$(2),Y(2) 250:YEAR<100d  #1;"MORE THAN 25% OF THE POPULATION HAVE STARVED TO DEATH. THERE HASBEEN AN ATTEMPT TO BLOW UP THE GOVERNMENT OFFICES. ":250:ASS=(*3)+1 ASS=1ASS=3#1;1;"THE ATTEMPT WAS UNSUCCESSFUL ANDTHE OFFENDERS HAVE BEEN EXECUTED":150: :0:7:"MORE THAN 25% OF THE POPULATION HAVE DIED OF STARVATION. AS A RESULT OF THIS A GUNPOWDER PLOT HATCHED BY REBELS HAS SUCCEEDED IN DESTROYING THE GOVERNMENT OFFICE BUILDINGS, KILLING ALL PERSONNEL INSIDE."  ''"UNFORTUNATELY, YOUR DEMISE IS ALSO THE DEMISE OF SPECTRIA. TOO BAD - FOR A WHILE THERE THE GOING LOOKED PRETTY GOOD. ":800   :''"+           ":8000@:8000@ 450::'"IF YOU WOULD LIKE TO BE REINCARNATED AND GIVEN THE CHANCE OF TRYING AGAIN, THEN PRESS ~A~. IF NOT, THEN PRESS ~N~." 0:="A"10 & 0 X:"YOU HAVE LET ALL OF YOUR SUBJECTS STARVE. WITH NO POPULATION YOUR LAND HAS BEEN INVADED AND YOU HAVE BEEN EXECUTED.":521  0:6:2:  0,10 ;"SPECTREALM" d''"FROM THE ASHES OF A NATION TORN BY WAR, A NEW COUNTRY IS BEING BUILT. IT IS CALLED: SPECTRIA." '"YOU HAVE BEEN ELECTED TO GOVERN IN YOUR TINY INDEPENDENT STATE. YOU HAVE A MERE 200 SQUARE MILESAROUND WHICH TO PLACE YOUR BORDERS." N'"YOUR POPULATION NUMBERS 1000 ANDYOUR RESOURCES ARE THE CROPS YOUCAN GROW." W'"YOUR PEOPLE WOULD LIKE TO SEE THE COUNTRY GROW PROSPEROUSLY. THAT IS UP TO YOU." $%#1;"PRESS ANY KEY":0: ."CAN SPECTRIA LAST FOR 100 YEARS?":''"IF YOU CAN ENSURE THAT YOUR PEOPLE DO NOT STARVE, AND HELP THEM THROUGH THE BAD TIMES, THENYOU SHOULD SURVIVE." 8j''"IT IS NOT EASY RUNNING A COUNTRY-EVEN A LITTLE ONE LIKE YOURS."''"AS YOU WILL FIND OUT."''"GOOD LUCK" B4#1;"PRESS ANY KEY TO TAKE OFFICE":0: [#1;"DO YOU WISH TO SEE THE IMPORT PRICE LIST?(Y/N) (P/S/L)":0:A$= A$="S"A$="L"5600  A$="N" A$="P"450:100d &:"CURRENT INTERNATIONAL PRICE LIST" ''"POWER STATIONS:`";NP H:"FACTORIES:`";IP::"FUEL:`";FP;" PER GJ":'"CORN:`";CCP;" PER SACK" C#1;"DO YOU WISH TO BUY?":0:B$=:B$="Y"4000  100d %"HOW MUCH CORN WILL