ZXTape!Corridors >' >'e@' 1000  ( 1500 2 9900& < 2000 F)year=1:half=1:gec=4 P 9900& Z 2500 d 9900& n 3000 x 3500 0pay*(1-intax).64500+cn*200 x @'"Do you want to call a General for sooner than at present?" a$ 4a$""a$(1)="y"a$(1)="Y"6000p  &gec=0half=17000X half=half+1 "half>2500 ,pop>1pop=1 6pop<0pop=0 @ 80P half=1 year=year+1 gec=gec-1  pop=.5+/3 bp=1e10 ndb=1e10 fs=1e5CP sb=7.5e9_u pay=2000 $ub=1500 .prod=2 8costs=1000 Bunemp=(*5e6) Laid=1e6t$ Vintax=.2~L `ptax=.4L jeptax=.25~ tiptax=.3 ~tps=1000 vat=.15~  "CORRIDORS OF POWER" '"You are the leader of the Demo- cratic Party in a country of"'"50 million. In the last General Election, you won with a"'"majority of ";(pop*1000)/10 ;"%." "f'"As Prime Minister, you take"'"decisions on policy and any"'"important occurrences which"'"appear." J'"Every 5 years, or whenever thereis a General Election. If you win more than 98% of the vote, all the other parties join you to form a one-party state under you." | mintax=.15~ mub=ub+(*ub/10 ) mpay=pay+(*pay/10 ) msb=sb+*sb/10 !munemp=unemp-(*unemp/2)  7500L   half=1"First"; half=2"Second"; " half of year ";year  ."Popularity ";(pop*1000)/10 ;"%" 6"Balance of payments"'"`";(bp/1e6t$);" million" 9"Public Services Budget"'"`";(sb/1e6t$);" million" 7"Defence Expenditure"'"`";(ndb/1e6t$);" million" #"Size of Armed Forces ";fs;" men" 9"Industrial Aid `";(aid/1e5CP)/10 ;" million" 2'"Basic weekly wage `";(pay/25) <0"Weekly Unemployment Benefit `";(ub/25) F-"Weekly Cost of Living `";(costs/25) P"Number of unemployed ";unemp Z&"Income Tax ";(intax*100d);"%" d)"Tax on Profits ";(ptax*100d);"%" n&"Import Tax ";(iptax*100d);"%" x&"Export Tax ";(eptax*100d);"%" "VAT ";(vat*100d);"%"  "BUDGET FOR THIS SEASON"  ""What % Income Tax do you want?" 3400H intax=a $"What % change in Public Service?" 3400H sb=sb*(1+a) +"What % change in Defence"'"Expenditure?"  3400H ndb=ndb*(1+a) &,"What % change in Unemployment Benefit?" 0 3400H :ub=(ub*(1+a)) D$"What % change in the Basic Wage?" N 3400H Xpay=(pay*(1+a)) b""What % Profit Tax do you want?" l 3400H v ptax=a ""What % Import Tax do you want?" 3400H iptax=a ""What % Export Tax do you want?" 3400H eptax=a "What % VAT do you want?" 3400H vat=a $"What % change in Industrial Aid?" 3400H aid=aid*(1+a)  Ha Ra>40(a=40( \a<-40(a=-40( fa=a/100d p "fs=((fs+ndb/5e4P)/3) Kbp=bp-ndb-sb-ub*unemp-aid+(5e7> -unemp)*pay*intax+5e7> *costs*vat 5pm=((5e7> -unemp)*(pay*(1-intax)-costs)) Asie=(1-vat)*ub*unemp+(5e7> -unemp)*(tps*prod-pay)+aid ig=(sie/20/costs) ig>unempig=unemp unemp=unemp-ig em=(sie/4)+sie/4  $"INDUSTRIAL REPORT FOR THE SEASON"  "Growth: ";ig;" men" $)"Exports: `";(em/1e6t$);" million" .)"Imports: `";(pm/1e6t$);" million" 8%costs=(costs+costs*(-)/20) B"bp=bp+sie*ptax+pm*iptax+em*eptax L&pop=pop*(1+(sb-msb)/10 ) V,pop=pop*(1+(mintax-intax)/10 ) `'pop=pop*(1+(pay-mpay)/8) j&pop=pop*(1+(ub-mub)/10 ) t,pop=pop*(1+(munemp-unemp)/10 ) ~pop>1pop=1 pop<0pop=0 !bp<-1e6t$pop=pop*.6 sie<0pop=pop*.73333  #mpay-pay>pay/10 4100 <.2~L41506  U"Strikes have broken out because the Government has not kept its payrise promises." " 4200h , 6;"Unions have called a strike for a shorter working week." J 4200h T h r"Here are your choices:" |" 1.Do nothing." " 2.Increase working hours." " 3.Insist on a wage cut." " 4.Offer a pay increase." -" 5.Offer to reduce working hours." 0" 6.Agree if productivity is improved." "Which do you want?" b  b>6b<1b=1 b=69500% b=b-3.5`  pop=pop*(1+*b/20) b=-2.5 "By how many %?"  3400H )b=1.5@tps=(tps*(1+a*b)) )b1.5@pay=(pay*(1-a*b)) &pop=pop*(1-a/5) 0 9900& : c=(*502) V"NATO has called for an increase of ";c;"% in military spending."'"Will you comply?" a$:a$=¯a$ .a$="y"a$="Y"ndb=ndb*(1+c/100d) a$"y"a$"Y"4600  s= /s<.5"Your refusal has been accepted."  s<.5 #"You have been forced to accept."  pop=pop*.8L *ndb=ndb*(1+c/100d) 4 \c=(*502) f|"The World Health Organisation has called for an increase of"'c;"% in Public Services expendi-"'"ture. Will you comply?" a$:a$=¯a$ ,a$="y"a$="Y"sb=sb*(1+c/100d) a$"y"a$"Y"4800  s= s<.5pop=pop*.8L s<.5 #"You have been forced to comply." pop=pop*.95s333 sb=sb*(1+c/100d)  $M"There has been a disaster in theThird World. How much aid will you send?" 8a Ba=a L bp=bp-a Va<1e4'pop=pop*.9ffff `!a>1e6t$pop=pop*1.05fff j D"There has been an outbreak of anepidemic disease in the country."  s=-.1}L  sb>1e10*s=.1}L "The Health Services were "; s<0"un"; ("able" 2"to fight it effectively." <pop=pop*(1+*s) F c=(*60<) Z"A Disarmament Agreement has beenmade. Will you reduce Defence Expenditure by ";c;"%?" a$:a$=¯a$ a$="y"a$="Y"5400 -a$"y"a$"Y"pop=pop*(1+/25)  ndb=ndb*(1-c/100d) ""pop=pop*(1+(-)/10 ) , p8"How many years do you want the General Election in?" a a=a a>geca=gec "a=0gec>0a=1 ("It has been arranged for ";a'"years." gec=a  9900&  X@"The General Election is due. Youmust prepare your manifesto." v/'"What are your promises for the following:" " Income Tax (%)" a mintax=(a)/100d $" Weekly Unemployment Benefit (`)" a mub=25*a " Public Services Budget (`)" a msb=a " Unemployment (people)" a  munemp=a " Weekly pay (`)"  a mpay=25*a  5pop=pop*(1+(mub-costs-2e3)*/10 ) *(pop=pop*(1+(msb-sb)*/10 ) 4"pop=pop*(1-mintax/2) >8pop=pop*(1-(munemp-unemp+1e4')*/10 ) H)pop=pop*(1+(mpay-pay)*/5) Rpop>1pop=1 \pop<0pop=0 f p"GENERAL ELECTION - RESULTS" z pl=1-pop:mp=pop "Republican Party"  7450 "Nationalist Party"  7450 "Official Loony Party"  7450 5"Democratic Party"'" ";(pop*5e7> );" votes." 3"Communist Party"'" ";(pl*5e7> );" votes."  popmp"You won." .popmppop.98zGgec=5:280 9pop>.98zG"You may now form a one-party state." popmpmp=p . " ";(p*5e7> );" votes." 8 pl=pl-p B L!"MANIFESTO OF DEMOCRATIC PARTY" `I'"We undertake to create the"'"following situation in our"'"country:"'' t'"Income Tax ";(mintax*100d);"%" ~1"Weekly Unemployment Benefit `";(mub/25) B"Public Services Budget"'"`";(2*msb/1e6t$);" million" !"Unemployed: less than ";munemp  @ 9900& JR"The workers have revolted"'"because they do not have enough money to buy food." ^ 85004!  9900& s"The country's economy has"'"collapsed. Because of your"'"policies, the industries were sucked dry and ruined." 0 85004! !*: ******************************** !+tFrom this point on, thecode was missing from the PDF (and from the looks of it, from the original book as well). !,xLines 8500-8540 and 9900-9930 are very similar to the corresponding routines in other games from the same book. !-Lines 9500-9590 are specific to this game, and are only my wild guess at what the original code might have looked like. Many other ways of fillingin this missing subroutine wouldbe equally valid. !3: ******************************** !4'"Do you want another game?" !Ha$ !R*a$""a$(1)="Y"a$(1)="y" !\ 10000' %s=(-)/10 %&s09560X% %0{"Your proposal has been accepted.Productivity will rise by ";(s*100d);"%"'"in return for a similar increasein pay." %:prod=prod*(1+s) %Dpay=(pay*(1+s)) %N 9580l% %X$"Your proposal has been rejected." %bpop=pop*(.9ffff+s) %l 9900& %v &'"Press Any Key To Continue." &=""9920& & & ;