ZXTape!Downing ; ;x=   1000  1500 ( 2000 2 y=1 < 2500 F 3000 Px=13 Z 3500 dx nwar=04000 xwar=14500 5000 p1+p2+p3<55500| $y/5=(y/5)6000p y=y+1 60< "DOWNING STREET" y'"Your party, which you choose"'"shortly, has been elected to"'"power in a country very similar to the United Kingdom." $"In this simulation, you make"'"basic policy decisions rather than numerical analyses, to"'"remain as popular as possible. You are only required to give the desired trend of taxes, etc." `"In your decisions, take account of your backers in the differentclasses in the country. Their individual opinions of you can be gauged from the appropriate popularity-indicating activitiessuch as strikes, lobbies and"'"riots."  9900&  h"In choosing your political"'"party, you must decide between Conservative, Liberal-SDP and Labour." -"Enter the name in full (Block letters)." /23658j\,8:p$:23658j\,0 <p$"CONSERVATIVE"p$"LIBERAL-SDP"p$"LABOUR"1540 p$="CONSERVATIVE"p=1 "p$="LIBERAL-SDP"p=2 ,p$="LABOUR"p=3 6 @p=11700 Jp=21800 Tp=31900l  p1=20 p2=20+(*10 ) p3=5+(*45-)  p1=10 +(*10 )  p2=30 p3=15+(*35#) & lp1=(*20+1) vp2=(*30+1) p3=40(+(*10 )   e(7)  c(7) x=17 <.5c(x)=1 x f=(*15)  u=(*5e6) g=((-)*15)  c=((-)*15) * war=0 4 ws=0 >  "YEAR ";y;" OF ";p$;" POWER"  -"National popularity:";p1+p2+p3;"% support" "Inflation rate: ";f;"%" "Unemployment: ";u;" people" "Industrial growth: ";g;"%" "Crime rate "; c<0"down"; c0"up"; (" by ";c;"%" 2 <4p1<10 "There is an increase in"'"lobbying." F:p2<20"White-collar workers are"'"striking more." P:p3<40("There are anti-policy demon-"'"strations." Z>p3<30"Strikes of manual workers are onthe increase." d8p3<5"Riots are taking place in the capital." n 9900& x 3300 x=17  i$ "At present, ";i$'"is "; e(x)=0"low." e(x)=1"high." '"Do you want to change this"'"trend?" a$ ;a$""a$(1)="y"a$(1)="Y"e(x)=e(x)-1 e(x)<0e(x)=1 &x 0 3350 :x=17 D Ni$ X"The ";i$'"is "; b*c(x)=0"under private ownership." lc(x)=1"nationalised." v"Do you want to alter this?" a$ ;a$""a$(1)="y"a$(1)="Y"c(x)=c(x)-1 c(x)<0c(x)=1 x  *"the Police Budget","the Defence Budget" +"the Taxation level","Industrial Subsidy" ,"the Health Budget","the Education Budget" "the average salary" /"Broadcasting Corporation","National Railway" ("Steel Corporation","National Airline" *-"Coal Board","Electricity Generating Board" 4"Shipbuilding Corporation"  )"Common Market Conference"'"Session ";x -'"The motion is that your country should "; )motion=3700t+(*6)*10 motion i$,i i$;"." "Will you accept?" a$ d=-i -a$""a$(1)="y"a$(1)="Y"d=i $p1=(p1+*d*15) .p2=(p2+*d*15) 8p3=(p3+*d*15) B t&"import more dairyproduce",-1 ~*"contribute more to thebudget",-1 2"reduce the size of itssteel industry",-1  "receive more rebates",1 )"receive an agriculturalgrant",1 &"supply the Market'sarmies",1 >.15~  g"A Third-World country has"'"attacked one of your dependen- cies. Will you launch a counter-attack?" a$ 4a$""a$(1)="y"a$(1)="Y"4200h p1=(p1/2+*p1/4) p2=(p2/3+*p2/3) p3=(p3/4+*p3/4)  h war=1 rp1=(p1/2+*p1/4) |p2=(p2/2+*p2) p3=(p3+*p3/5)  ws=ws+e(2)-.5  "PROGRESS OF FOREIGN WAR" A'"According to the latest reports from the front lines, we are" ws>0"winning"; ws=0"bogged down"; ws<0"losing"; ws1"." #ws>1" by a wide margin." @"Do you want to withdraw and callfor a diplomatic settlement?" a$  4a$""a$(1)="y"a$(1)="Y"4700\ *$ws<-1ƥ<.54750 4#ws>1ƥ<.54850 > 9900& H \ war=0 f p3=(*p3) p ws=0 z  '"We have lost the war."  war=0  ws=0  p1=(*p1)  p2=(*p2)  p3=(*p3)  '"We have won the war."  war=0  ws=0 p1=(p1/2+*p1) $p2=(p2/2+*p2) .p3=(p3+*20) 8 ?f=(f+(e(3)+e(7)-1)*10 +(-)*5) .g=(g+*5*(e(4)-)/(i+.1}L)) u=(u-*g*1e5CP) ,c=(c+*u/5e5t$-*10 *e(1)) (p1=p1+*(g-c-f-u/5e5t$+ws*5) (p2=p2+*(g-c-f-u/5e5t$+ws*5) (p3=p3+*(g-c-f-u/5e5t$+ws*5)  5300 x=17 i,j,k p1=(p1+i*e(x)+(-)*5) p2=(p2+j*e(x)+(-)*5)  p3=(p3+k*e(x)+(-)*5) x !5400+10 *(p-1) (x=17 2i <*p1=(p1+i*(c(x)-.5)+(-)*5) F*p2=(p2+i*(c(x)-.5)+(-)*5) P*p3=(p3+i*(c(x)-.5)+(-)*5) Zx dp1>20p1=20 np2>30p2=30 xp3>502p3=502  5,5,-10 -5,0,10 0,-5,-10 -5,0,15 -5,10 ,15 -5,10 ,15 -5,10 ,15 97,7,7,7,7,7,7 "97,7,0,0,7,7,0 ,90,0,0,0,0,0,0 |  v=p1+p2+p3 v<0v=0 ("Your popularity has fallen to ";v;"%" P"There has been a revolution and you have been ousted. You lasted";y;" years."  6500d p z""It is year ";y;", time for the" y>5"next "; "General Election." $'"The results are coming through." ''"PARTY";20;"VOTES" 5'"Communist Party";20;(*150+2) 2"Ecology Party";20;(*400+3)  6350 vl=100d-p1-p2-p3  vm=0 x=13 i$ i$;" Party";  v=(*vl) $/x=2p=3x=3p<3v=vl .v>vmxpvm=v 8x=pv=p1+p2+p3 Bxpvl=vl-v L(v=(5e5t$*v/(1+/150)) V 20;v `x j'' ~p1+p2+p3vm6400 "You lost the election."  6500d '"Conservative","Liberal-SDP","Labour" V"You won the General Election. Do you want to continue as"'"leader of your party?" a$ (3a$""a$(1)="y"a$(1)="Y"160 d n"Do you want another game?" xa$ *a$""a$(1)="y"a$(1)="Y"  10000' &'"Press Any Key To Continue" &=""9920& & & u