ZXTape! 0Created with Ramsoft MakeTZXGBLTD a[1aGreat Britain Limited.  SIMON W HESSEL 7/82 0:7:7   kth=1 /t=1:cou=2:g=0:i=.1}L wal=2:pcm=0 m=.0:k=1 !u=2:e=2:p=0 'ix=.3:cx=.5:px=.8L ('kt=.1}L:tx=.6:f=100d 2'ax=4:oac=2:vx=.15~ <'b=0:ot=132000:s=0 F,l$(4,60<):m$(4,60<) P#oo=2:l=0:po=0 Z&c=557:fa=10 :op=12 dco=1000 n&aa=(((*5)+1)+98b) x5in=7450+((((*10 )+1)*100d)) ,gs=4500:fp=4000:bs=144 tp=25 &cc=.5:dd=3:ee=.73333 (ff=5.50:gg=30:hh=28 /vv=83000":xa=128000z::xc=65A (xz=200:rr=100d:d=.2~L $ii=0:jj=0:kk=0 ll=0:mm=0 +10 ,5;"Great Britain Limited" !12 ,10 ;"SWH  7/82"  9350$  20,0;"Enter your name (MAX 24 CHRS)" a$ a$=""1,0 a$=""1010 a$<251035  1,0 H21,0;1;6;"TOO MANY CHARACTERS - RE-ENTER "  1000  4000  oo=2  y=1  90,0;lm;"********************************" 81,0;m;"" a=(32 -(7+a$)) a=a/2:x=1̱a$ 0,a;"RT.Hon." 0,a+6+x;a$(x) $1,a;m;"" .1,a+6+x;m;"" 8x :oo=1 ; 0 =&2,7;"**GREAT BRITAIN**" B2,0;":" L2,26;"YEAR:" V"3,0;"INFLTN:" ` 4,0;"UNEMPT:" j43,10 ;"Percent*EXCH.RTE:$" t/4,10 ;"Million*POP.RTNG:" ~ 5,0;"REFRMS:" ,5,10 ;"ACC.BALANCE:`M" 56,0;""  0  9030F# "t>1oo=39505!% oo=3 t>11300  9500% xc/xd>1.433339800H& %u>3.8s333wal=19260,$ Lwb=(*7-(u))+1:wb1wal=2y>19260,$  1500  1600@ y=55000  8000@ 2 2000 < y=y+1 Fix>.59600% x 1200  2 *7,9 ;"COUNTRY PROFILE" +8,5;c;"M People (including)" <9 ,0;"(";fa;"M Children + ";op;"M Pensioners)" /10 ,10 ;co*1000;" Companies"  0 -11 ,7;"INCOME FROM TAXES"  C12 ,3;"VAT Income `":12 ,m(vt);vt;"M" C13 ,3;"P.A.Y.E. Income `":13 ,m(ia);ia;"M" C14,3;"Company Tax Income `":14,m(ci);ci;"M" E15,3;"Excise Duties `":15,m(ts);ts;"M" E16,3;"TOTAL INCOME `":16,m(tt);tt;"M" a17,3;2;"less EXPENDITURE `":17,m((xp+xz));2;(xp+xz);"M"  !18,22;"==========" "ttt=tt-xp-xz:ot=tt+xb+xz $ttt0kin=0 %ttt<0kin=2 &O19,3;kin;"BALANCE `":19,m(ttt);kin;ttt;"M" ' 9200# ) 9030F# , 9225 $ 6 @18,8;3;"SHOPPING BASKET" K10 ,4;"Petrol" T11 ,4;"Scotch" ^ 12 ,4;"Cigarettes" h13 ,4;"Milk" r14,4;"Bread" |15,4;"Tea"  9750& $17,2;"Average Income" (18,2;"Retail Price Index"  9000(# A10 ,20;":`";(((ee+px+(ee*i))*100d))/100d A11 ,20;":`";(((dd+ax+(dd*i))*100d))/100d A12 ,20;":`";(((cc+tx+(cc*i))*100d))/100d (d=(((d+(d*i))*100d))/100d 13 ,20;":`";d #14,20;":`";d*2 '15,20;":`";d+(d/2) 17,20;":`";in rr=(rr+(rr*i)) 18,20;": ";rr  9200#  9225 $   4 -8,6;"REFORM OPPORTUNITY" 010 ,6;"REFORM................`M"  0 U12 ,0;"a.Improve Health Service : ":12 ,m(ii)-1;ii U13 ,0;"b.Build New Homes : ":13 ,m(jj)-1;jj U14,0;"c.Jobs for School Leavers: ":14,m(kk)-1;kk U15,0;"d.Build New Schools : ":15,m(ll)-1;ll  U16,0;"e.Improve Road System : ":16,m(mm)-1;mm .18,0;2;"f.WHEN FINISHED" 4H21,0;1;4;"Enter PREFIX of reform to change" >b$ H$b$=""1,0:21004 MNb$(1)=" "b$(1)>"f"b$(1)"9"1,0:21004 Rb$(1)="f"2235 f?21,0;1;"How much do you wish to allocate" pb$(1)="a"ii:ii=ii zb$(1)="b"jj:jj=jj b$(1)="c"kk:kk=kk b$(1)="d"ll:ll=ll b$(1)="e"mm:mm=mm  9000(#  2020 17,25;"======" xz=(ii+jj+kk+ll+mm) V18,0;" ":18,m(xz)-1;2;xz  9200# j=(*5) k=(*2+t)+1  f=f+(f*i) s=32296 3j=1ii>(k*f)j=2jj>(k*f)2500 3j=3kk>(k*f)j=4ll>(k*f)2500  j=5mm>(k*f)2500 .xz>(200*k)po<20po=po+10  9225 $  +d$=" A SOCIAL REFORM IS RECOGNISED " 'o$=" A SOCIAL REFORM IS RECOGNISED " $x=110 :.25~,x:x O=044 x=819 x,0;o;d$ x x=19:z=112 x,0;o;o$ x=x-1 z o s<3s=s+1  40,0;"Which Party do you represent? " !l$(1)=" CONSERVATIVE" L$(2)=" LABOUR" L$(3)=" LIBERAL" CL$(4)="SOCIAL DEMOCRAT" #7,7;"a.";l$(1) #9 ,7;"b.";l$(2) $11 ,7;"c.";l$(3) $13 ,7;"d.";l$(4) H21,0;4;1;"Select a,b,c or d then ""ENTER""" k$ )k$="a"k$="b"k$="c"k$="d"4120 1,0:4100 k$="a"m$(1)=l$(1):m$(2)=l$(2):m$(3)=l$(3):m$(4)=l$(4):m=1:lm=1 "k$="b"m$(1)=l$(2):m$(2)=l$(1):m$(3)=l$(3):m$(4)=l$(4):m=2:lm=2 ,k$="c"m$(1)=l$(3):m$(2)=l$(1):m$(3)=l$(2):m$(4)=l$(4):m=6:lm=6 6k$="d"m$(1)=l$(4):m$(2)=l$(1):m$(3)=l$(2):m$(4)=l$(3):m=1:lm=2 @ J <i>.11}aGu>1.43333wal<2oo=39100#  oo=1 q=(*2)+1  9660%  1043 "2,7;" ";m$(1) !2,26;"YEAR:";y >3,0;6;"" )4,8;"*ELECTION NIGHT*" >5,0;6;""  7500L 7,9 ;"PARTY" 9 ,4;m$(1) 11 ,4;m$(2) 13 ,4;m$(3)  15,4;m$(4)  9750& 7,23;"SEATS" 0g1=0:g2=0:g3=0:g4=0 |w1=300,*(p/100d) ~w2=300,-w1:6000p 6i<.12}u[w1=(502*((.11}aG-i)/.1}L)) i>.11}aGw1=0 w2=502-w1  6000p 4u<2.1fffw1=(100d*((2-u)/2)) u>2w1=0  6000p w1=s*502 w2=150-w1  6000p e<1.5@w1=0 e>2.1fffw1=502 -e1.5@w1=((1.5@-e)*100d) w2=502-w1  6000p  7700 p 7500L x=1w2/10 h=(*10 )+1 %h<8q=1g1=g1+10 %h<8q=2g2=g2+10 0h>7h<10 q=1g2=g2+10 0h>7h<10 q=2g1=g1+10 h=10 g3=g3+10  7600 x x=1w1/10 g4=g4+10  7600 x  L 9660% Qx=132 V34,0;"*RESULTS" `.4,24;"RESULTS*" j!4,0;"*RESULTS" t"4,24;"RESULTS*" ~x  #ju=g4:9960&:9 ,uj;g4 $ju=g1:9960&:11 ,uj;g1 $ju=g2:9960&:13 ,uj;g2 $ju=g3:9960&:15,uj;g3   g5=g1+g2+g3+g4  po=0 :g1>g5/218,1;m$(2):7790n :g2>g5/218,1;m$(3):7790n :g3>g5/218,1;m$(4):7790n ]g1+g2>g5/218,1;m$(2):18,17;m$(3):7780d  ]g1+g3>g5/218,1;m$(2):18,17;m$(4):7780d "]g2+g3>g5/218,1;m$(3):18,17;m$(4):7780d (g4>g5/277302 - 9400$ 2do$=" ELECTED ELECTED ELECTED ELECTED":g4>480o$="********LANDSLIDE VICTORY*******" 3Ns=0:18,1;m$(1):18,17;"Party Elected" 49350$:7810 d 19,10 ;"COALITION" e 9030F# f 7795s n$18,17;"Party Elected" s+o$="YOU ARE OUT OF OFFICE-TRY AGAIN?" u 9380$ v 7900 w x 9200#  7900 0t3+(*3)kth=19700%  t=t+1  wal=2  %8,8;"Do you wish to:-"  10 ,8;"a.Continue" 12 ,8;"b.Retire" $14,8;"c.SAVE to tape" H21,1;1;4;" SELECT a,b or c then ""ENTER""" b$ b$="a"1040 b$="b":9650%: b$="c"7885 1,1:7865  P10 ,1;"set up cassette recorder then",''" press ""ENTER""" b$::9650% "GBLTD"7835 e3,0::10 ,1;" Rewind and press ""ENTER"" to",''" VERIFY":b$: "GBLTD":7840 z=16 x=121 z x,0;o$ x:z "0:o=0:9228 $: ? @ 0 E+8,5;"BUDGET DAY i.Taxes" J610 ,5;"Category.........Rate:" TVX>.5VX=.5 Yix0.01z# =ix=0 Zcx0.01z# =cx=0 [vx0.01z# =vx=0 \px0.01z# =px=0 ]tx0.01z# =tx=0 ^ax0.01z# =ax=0 a<12 ,5;"a.Income Tax ";ix*100d;"% " b<13 ,5;"b.Corpn. Tax ";cx*100d;"% " c<14,5;"c.VAT ";vx*100d;"% " r116,5;"d.Tobacco Tax `";tx;" " |117,5;"e.Alcohol Tax `";ax;" " 118,5;"f.Petrol Tax `";px;" " 019,5;2;"g.NO MORE CHANGES" H21,0;1;4;" Enter PREFIX of tax to change " b$ $b$=""1,0:8080 ]b$(1)=""b$(1)=" "b$(1)"9"b$(1)>"g"1,0:8080 b$(1)="g"8232( A21,0;1;" Key in future rate then ""ENTER""" b$(1)="a"ix b$(1)="b"cx b$(1)="c"vx b$(1)="d"tx b$(1)="e"ax b$(1)="f"px "b$(1)="a"ix=ix/100d "b$(1)="b"cx=cx/100d "b$(1)="c"vx=vx/100d & 8020T l 9222$ q88,5;2;"BUDGET DAY ii.Benefits" s810 ,5;"Category...........Rate:" vff.01z# =ff=0 wgg.01z# =gg=0 xhh.01z# =hh=0 712 ,1;"a.Child Allowance `";ff;" " 714,1;"b.Old Age Pension `";gg;" " 716,1;"c.Unemployment Benefit `";hh;" " 018,1;2;"d.NO MORE CHANGES" H21,0;1;4;"Key in PREFIX of benefit change " b$ $b$=""1,0:8340 Nb$(1)>"d"b$(1)=" "b$(1)"9"1,0:8340 b$(1)="d"8402 A21,0;1;" Key in future rate then ""ENTER""" b$(1)="a"ff b$(1)="b"gg b$(1)="c"hh 8310v 9225 $  9000(# xc=xc+(xc*i) 'xb=((fa*ff)+(op*gg)+(u*hh)*524) xa=(xa+(xa*i)):xd=ff+gg+hh xd0xd=0.001wn xp=xa+xb:pp=15*(xd/xc) pp>15pp=15 xc>xdpp=0 ax0ax=0.001wn !tx0tx=0.001wn !px0px=0.001wn !4dd=dd+(dd*i) !6ee=ee+(ee*i) !8cc=cc+(cc*i) !>"bs=(295'+(t*5))*dd/ax !C8bs>(295'+(t*5))bs=(295'+(t*5)) !H$fp=(6000p+(t*10 ))*cc/tx !M<fp>(6000p+(t*10 ))fp=(6000p+(t*10 )) !R$gs=(6000p+(t*502))*ee/px !T<gs>(6000p+(t*502))gs=(6000p+(t*502)) !Wvv=vv+(vv*i):vt=(vv*vx) !k&vx>.19~B\)vt=(vt*(.19~B\)/vx)) !bs=bs*ax:fp=fp*tx:gs=gs*px !ts=(bs+fp+gs) !!ax+px+tx0.01z# =ts=0 !)ss=(200*((dd+ee+cc)/(ax+px+tx))) !ss>190ss=190 !(t<9 xv=.165~(-(t/100d) !/xt=((*4)+1)*.01z# =+.47p !xt=xt-(.025{L*t) !ix0ix=0.001wn !vx0vx=0.001wn !cx0cx=0.001wn !cq=(200*(xv/vx)) !cq>204cq=204 !cs=(400*(xt/cx)) !cs>400cs=400 !co=200+cq+cs+ss !co>1000co=1000 !+cx>.79J=pco=199-(cx*100d) !%u=25-(co*25/1000) !u=((u*10 ))/10 !.u<0u=((*3)+1)*.1}L !aa=aa+(aa*i) !in=in+(in*i) !5ia=((25-u)*in*ix):ix0.01z# =ia=0 !+ci=(co*aa*cx):cx0.01z# =ci=0 "tt=vt+ia+ci+ts "!i=(((tt+xb-(tt*i))/ot)-1) "i<0i=0 "(i=i+(((t*3)+1)*.01z# =) "l=l+(tt-xp-xz) " "l<0i=i+(l/100000CP) " e=e-(e*i) "2e=e+.1}L+(((*10 )+1)*.01z# =) "e=((e*100d))/100d "e>3e=3 "$9e<.5e=.5+((*4)+1)*.15~ ".pq=20-(i*100d) "8pq<0pq=0 "Bpr=25-(u*10 ) "Lpr<0pr=0 "Vp=(po+pp+pq+pr) "`)ix>.353333+(k/100d)b=t+1 "tb>1p=(p/b) "~ b=b-1 ",gg<(xc/3)p=((*17)+4) # #(H21,0;1;5;" PROCESSING DATA - PLEASE WAIT -" #2 #F620,0;"================================" #P #Zex=027:9 ,x;1;2;"*NEWS":.05|L,15:.05|L,20:x #_ #gj=(*4)+1:2,7;2;"WEEKS TO ELECT'N:";1;2;j #j=(*4)+1 #M2,7;2;"WEEKS TO ELECT'N:";2;1;j #b10 ,2;"A GENERAL ELECTION must take";11 ,5;"place in ";j;" weeks' time." #$j=111 ,20;"'s" #W13 ,0;"You now have the opportunity to","improve your POPULARITY rating." #^p=p-pcm:4,27;1;2;p:9200#:4,27;p:9228 $ #cou=19119# #10 ,0;"You will have 1000 units to",'"allocate and you should try to",'"use these in areas which require"'"immediate attention."''"i.e if Law and order has been a","problem then allocate some unitsto this CATEGORY." #9200#:9225 $ #10 ,0;"When you have allocated all yourunits an ammended POPULARITY ","RATING will be displayed.",''"You may keep trying different ","allocations each week until the","ELECTION." #9200#:9225 $ #08,13 ;5;"MANIFESTO" #C10 ,3;5;"CATEGORY............EMPHASIS" #kpcm=0:uni=1000:inf=0:ump=0:bal=0:law=0:aid=0:nat=0 #T12 ,2;"a.Inflation : ";12 ,m(inf)-1;inf #T13 ,2;"b.Unemployment : ";13 ,m(ump)-1;ump #T14,2;"c.Overseas Aid : ";14,m(aid)-1;aid #T15,2;"d.Law and Order : ";15,m(law)-1;law #.17,2;2;"e.WHEN FINISHED" #19,0;" ":19,0;"You have ";5;uni;0;" units to allocate " #Luni=019,0;2;" All units have been allocated " #H21,0;2;1;" Enter PREFIX of CATEGORY " #b$ #$b$=""1,0:9138# #b$(1)="e"9160# #]b$(1)=""b$(1)=" "b$(1)"9"b$(1)>"e"1,0:9138# #?21,0;1;"key number of units to allocate " # b$(1)="a"inf:inf=inf # b$(1)="b"ump:ump=ump # b$(1)="c"aid:aid=aid # b$(1)="d"law:law=law #1eml=inf+ump+aid+law:eml>10009154# #,uni=1000-eml:9000(#:9122# #e1,0:21,0;3;1;"Insufficient units - RE-ENTER - ":9121# #|i>.11}aG+(j/100d)i<.17~.z+(j/100d)pcm=pcm+(((inf/250)*(((.25~+(j/100d))-i)*100d))) #|i>.17~.z+(j/100d)i<.25~+(j/100d)pcm=pcm+(((inf/250)*(((.25~+(j/100d))-i)*100d))) #<i.25~+(j/100d)pcm=pcm+(inf/250)*5 #vu>1.43333+(j/10 )u<2.6&fff+(j/10 )pcm=pcm+(((ump/250)*(u-(1.43333+(j/10 ))))*10 ) #wu>2.6&fff+(j/10 )u<3.6ffff+(j/10 )pcm=pcm+(((ump/250)*(((4+(j/100d))-u)*10 ))) #;u>3.6ffff+(j/10 )pcm=pcm+(ump/250)*5 #Oi<.12}u[+(j/100d)u<1.9s333+(j/10 )pcm=pcm+(aid/250)*k #2wal=1pcm=pcm+(law/250)*(k+1) #2wal=0pcm=pcm+(law/150)*(k+1) #Kp=(p+pcm):4,27;1;p:9225 $:4,27;p # j=j-1 #(j=0cou=2:pcm=0:: #212 ,0;" Do you wish to try again?" #?21,0;1;" key in Y or N then ENTER " #b$ #$b$=""1,0:9188# #Fb$(1)="y"b$(1)="Y"9225 $:cou=1:9102# #Ib$(1)="n"b$(1)="N"9225 $:cou=2:pcm=0: #1,0:9187# #9225 $: #H21,0;1;2;" Press ENTER to continue " #z$ $621,0;" " $ $ o=11 $ 9228 $ $ o=7 $ 621,0;" " $ x=o19 $/x,0;" " $x:9030F#:9220$ $, 9050Z# $1wal=19280@$ $6212 ,2;"Severe rioting in many large" $8514,1;"cities occurred during the year" $= wal=1 $>2,-15 $?9200#:9225 $: $@12 ,1;2;1;" Law and order has broken down ";15,1;2;0;" A GENERAL ELECTION MUST TAKE "," PLACE IMMEDIATELY":3,-15:wal=0:9200#:9225 $:5003 $T?.1}L,15:.1}L,15:x=125:x: $1.5@,0:.5,0:.5,1:1,1:.5,0:.5,1:.5,0:.5,-2 $.5,-4:2,-5:1,3:1,1:.25~,0:.25~,-4:.25~,1:.25~,3 $[.5,3:.5,1:1,0:1,-2:2,-4: $.75@,0:.75@,0:.375?,0:.75@,0:.5,3:.5,2:.5,0:.5,0:.5,0:.5,-2:1,0: $<18,0;2;" No Government can be formed" $?19,0;2;"THERE MUST BE A FURTHER ELECTION" $29200#::oo=3:1043:5000 % 8410 %!2,5;t %&2,31;y %03,7;" " %3,3,7;1;((i*100d)) %4 9300T$ %5#3,7;((i*100d)) %:3,28;" " %?*3,28;1;e:9300T$ %D3,28;e %N4,7;" " %P)4,7;1;u:9300T$ %S4,7;u %X4,27;" " %]*4,27;1;p:9300T$ %b4,27;p %l)5,7;1;s:9300T$ %n5,7;s %v5,24;" " %{5,24;l %}?l<05,24;2;1;l:9300T$ %~*l<05,24;2;l % %39050Z#:11 ,11 ;"PARTY NEWS" %713 ,0;"Party wets have rebelled against " %<15,3;ix*100d;" Per cent Income Tax rate" %ix=.40L+(k*.02{# =) %D17,0;"It must be reduced to ";ix*100d;" Percent" %2,-10 % 9200# %9225 $: %10 ,0;"Send for details of other GAMES:",''" Simon W Hessel,15 Lytham Court,",'" Cardwell Cres.,Sunninghill,",''" Berkshire,England." % %L.5,5:.5,9 :.5,12 :.5,17: %'o$="A KNIGHTHOOD FOR YOUR GREAT WORK" % kth=2 % 7900 % &616,0;"--------------------------------" &  &H 9050Z#:x=140( &M&11 ,12 ;"WARNING" &R"11 ,12 ;"WARNING" &fx &\13 ,3;2;"Social benefits are falling ",''" badly behind INFLATION" &2,-14:9200# &9225 $: &""9900& &=""9910& & =" " & 9900& &M(xd)=31-x &uj=27-ju: ttogi~ (xacmku&fffeqpL̫}L̴fda~b-@sldc7 Yͩ:Nw ̤S333ER02R dd~L̩ya@  $ ~ ~5"~QnzsA51`A@tdi jqF h lnnmaaiamD$ A SOCIAL REFORM IS RECOGNISED O A KNIGHTHOOD FOR YOUR GREAT WORKBe< CONSERVATIVE  LABOUR LIBERAL SOCIAL DEMOCRAT < CONSERVATIVE  LABOUR LIBERAL SOCIAL DEMOCRAT AaKaZ GBLTD a[yaGreat Britain Limited.  SIMON W HESSEL 7/82 0:7:7   kth=1 /t=1:cou=2:g=0:i=.1}L wal=2:pcm=0 m=.0:k=1 !u=2:e=2:p=0 'ix=.3:cx=.5:px=.8L ('kt=.1}L:tx=.6:f=100d 2'ax=4:oac=2:vx=.15~ <'b=0:ot=132000:s=0 F,l$(4,60<):m$(4,60<) P#oo=2:l=0:po=0 Z&c=557:fa=10 :op=12 dco=1000 n&aa=(((*5)+1)+98b) x5in=7450+((((*10 )+1)*100d)) ,gs=4500:fp=4000:bs=144 tp=25 &cc=.5:dd=3:ee=.73333 (ff=5.50:gg=30:hh=28 /vv=83000":xa=128000z::xc=65A (xz=200:rr=100d:d=.2~L $ii=0:jj=0:kk=0 ll=0:mm=0 +10 ,5;"Great Britain Limited" !12 ,10 ;"SWH  7/82"  9350$  20,0;"Enter your name (MAX 24 CHRS)" a$ a$=""1,0 a$=""1010 a$<251035  1,0 H21,0;1;6;"TOO MANY CHARACTERS - RE-ENTER "  1000  4000  oo=2  y=1  90,0;lm;"********************************" 81,0;m;"" a=(32 -(7+a$)) a=a/2:x=1̱a$ 0,a;"RT.Hon." 0,a+6+x;a$(x) $1,a;m;"" .1,a+6+x;m;"" 8x :oo=1 ; 0 =&2,7;"**GREAT BRITAIN**" B2,0;":" L2,26;"YEAR:" V"3,0;"INFLTN:" ` 4,0;"UNEMPT:" j43,10 ;"Percent*EXCH.RTE:$" t/4,10 ;"Million*POP.RTNG:" ~ 5,0;"REFRMS:" ,5,10 ;"ACC.BALANCE:`M" 56,0;""  0  9030F# "t>1oo=39505!% oo=3 t>11300  9500% xc/xd>1.433339800H& %u>3.8s333wal=19260,$ Lwb=(*7-(u))+1:wb1wal=2y>19260,$  1500  1600@ y=55000  8000@ 2 2000 < y=y+1 Fix>.59600% x 1200  2 *7,9 ;"COUNTRY PROFILE" +8,5;c;"M People (including)" <9 ,0;"(";fa;"M Children + ";op;"M Pensioners)" /10 ,10 ;co*1000;" Companies"  0 -11 ,7;"INCOME FROM TAXES"  C12 ,3;"VAT Income `":12 ,m(vt);vt;"M" C13 ,3;"P.A.Y.E. Income `":13 ,m(ia);ia;"M" C14,3;"Company Tax Income `":14,m(ci);ci;"M" E15,3;"Excise Duties `":15,m(ts);ts;"M" E16,3;"TOTAL INCOME `":16,m(tt);tt;"M" a17,3;2;"less EXPENDITURE `":17,m((xp+xz));2;(xp+xz);"M"  !18,22;"==========" "ttt=tt-xp-xz:ot=tt+xb+xz $ttt0kin=0 %ttt<0kin=2 &O19,3;kin;"BALANCE `":19,m(ttt);kin;ttt;"M" ' 9200# ) 9030F# , 9225 $ 6 @18,8;3;"SHOPPING BASKET" K10 ,4;"Petrol" T11 ,4;"Scotch" ^ 12 ,4;"Cigarettes" h13 ,4;"Milk" r14,4;"Bread" |15,4;"Tea"  9750& $17,2;"Average Income" (18,2;"Retail Price Index"  9000(# A10 ,20;":`";(((ee+px+(ee*i))*100d))/100d A11 ,20;":`";(((dd+ax+(dd*i))*100d))/100d A12 ,20;":`";(((cc+tx+(cc*i))*100d))/100d (d=(((d+(d*i))*100d))/100d 13 ,20;":`";d #14,20;":`";d*2 '15,20;":`";d+(d/2) 17,20;":`";in rr=(rr+(rr*i)) 18,20;": ";rr  9200#  9225 $   4 -8,6;"REFORM OPPORTUNITY" 010 ,6;"REFORM................`M"  0 U12 ,0;"a.Improve Health Service : ":12 ,m(ii)-1;ii U13 ,0;"b.Build New Homes : ":13 ,m(jj)-1;jj U14,0;"c.Jobs for School Leavers: ":14,m(kk)-1;kk U15,0;"d.Build New Schools : ":15,m(ll)-1;ll  U16,0;"e.Improve Road System : ":16,m(mm)-1;mm .18,0;2;"f.WHEN FINISHED" 4H21,0;1;4;"Enter PREFIX of reform to change" >b$ H$b$=""1,0:21004 MNb$(1)=" "b$(1)>"f"b$(1)"9"1,0:21004 Rb$(1)="f"2235 f?21,0;1;"How much do you wish to allocate" pb$(1)="a"ii:ii=ii zb$(1)="b"jj:jj=jj b$(1)="c"kk:kk=kk b$(1)="d"ll:ll=ll b$(1)="e"mm:mm=mm  9000(#  2020 17,25;"======" xz=(ii+jj+kk+ll+mm) V18,0;" ":18,m(xz)-1;2;xz  9200# j=(*5) k=(*2+t)+1  f=f+(f*i) s=32296 3j=1ii>(k*f)j=2jj>(k*f)2500 3j=3kk>(k*f)j=4ll>(k*f)2500  j=5mm>(k*f)2500 .xz>(200*k)po<20po=po+10  9225 $  +d$=" A SOCIAL REFORM IS RECOGNISED " 'o$=" A SOCIAL REFORM IS RECOGNISED " $x=110 :.25~,x:x O=044 x=819 x,0;o;d$ x x=19:z=112 x,0;o;o$ x=x-1 z o s<3s=s+1  40,0;"Which Party do you represent? " !l$(1)=" CONSERVATIVE" L$(2)=" LABOUR" L$(3)=" LIBERAL" CL$(4)="SOCIAL DEMOCRAT" #7,7;"a.";l$(1) #9 ,7;"b.";l$(2) $11 ,7;"c.";l$(3) $13 ,7;"d.";l$(4) H21,0;4;1;"Select a,b,c or d then ""ENTER""" k$ )k$="a"k$="b"k$="c"k$="d"4120 1,0:4100 k$="a"m$(1)=l$(1):m$(2)=l$(2):m$(3)=l$(3):m$(4)=l$(4):m=1:lm=1 "k$="b"m$(1)=l$(2):m$(2)=l$(1):m$(3)=l$(3):m$(4)=l$(4):m=2:lm=2 ,k$="c"m$(1)=l$(3):m$(2)=l$(1):m$(3)=l$(2):m$(4)=l$(4):m=6:lm=6 6k$="d"m$(1)=l$(4):m$(2)=l$(1):m$(3)=l$(2):m$(4)=l$(3):m=1:lm=2 @ J <i>.11}aGu>1.43333wal<2oo=39100#  oo=1 q=(*2)+1  9660%  1043 "2,7;" ";m$(1) !2,26;"YEAR:";y >3,0;6;"" )4,8;"*ELECTION NIGHT*" >5,0;6;""  7500L 7,9 ;"PARTY" 9 ,4;m$(1) 11 ,4;m$(2) 13 ,4;m$(3)  15,4;m$(4)  9750& 7,23;"SEATS" 0g1=0:g2=0:g3=0:g4=0 |w1=300,*(p/100d) ~w2=300,-w1:6000p 6i<.12}u[w1=(502*((.11}aG-i)/.1}L)) i>.11}aGw1=0 w2=502-w1  6000p 4u<2.1fffw1=(100d*((2-u)/2)) u>2w1=0  6000p w1=s*502 w2=150-w1  6000p e<1.5@w1=0 e>2.1fffw1=502 -e1.5@w1=((1.5@-e)*100d) w2=502-w1  6000p  7700 p 7500L x=1w2/10 h=(*10 )+1 %h<8q=1g1=g1+10 %h<8q=2g2=g2+10 0h>7h<10 q=1g2=g2+10 0h>7h<10 q=2g1=g1+10 h=10 g3=g3+10  7600 x x=1w1/10 g4=g4+10  7600 x  L 9660% Qx=132 V34,0;"*RESULTS" `.4,24;"RESULTS*" j!4,0;"*RESULTS" t"4,24;"RESULTS*" ~x  #ju=g4:9960&:9 ,uj;g4 $ju=g1:9960&:11 ,uj;g1 $ju=g2:9960&:13 ,uj;g2 $ju=g3:9960&:15,uj;g3   g5=g1+g2+g3+g4  po=0 :g1>g5/218,1;m$(2):7790n :g2>g5/218,1;m$(3):7790n :g3>g5/218,1;m$(4):7790n ]g1+g2>g5/218,1;m$(2):18,17;m$(3):7780d  ]g1+g3>g5/218,1;m$(2):18,17;m$(4):7780d "]g2+g3>g5/218,1;m$(3):18,17;m$(4):7780d (g4>g5/277302 - 9400$ 2do$=" ELECTED ELECTED ELECTED ELECTED":g4>480o$="********LANDSLIDE VICTORY*******" 3Ns=0:18,1;m$(1):18,17;"Party Elected" 49350$:7810 d 19,10 ;"COALITION" e 9030F# f 7795s n$18,17;"Party Elected" s+o$="YOU ARE OUT OF OFFICE-TRY AGAIN?" u 9380$ v 7900 w x 9200#  7900 0t3+(*3)kth=19700%  t=t+1  wal=2  %8,8;"Do you wish to:-"  10 ,8;"a.Continue" 12 ,8;"b.Retire" $14,8;"c.SAVE to tape" H21,1;1;4;" SELECT a,b or c then ""ENTER""" b$ b$="a"1040 b$="b":9650%: b$="c"7885 1,1:7865  P10 ,1;"set up cassette recorder then",''" press ""ENTER""" b$::9650% "GBLTD"7835 e3,0::10 ,1;" Rewind and press ""ENTER"" to",''" VERIFY":b$: "GBLTD":7840 z=16 x=121 z x,0;o$ x:z "0:o=0:9228 $: ? @ 0 E+8,5;"BUDGET DAY i.Taxes" J610 ,5;"Category.........Rate:" TVX>.5VX=.5 Yix0.01z# =ix=0 Zcx0.01z# =cx=0 [vx0.01z# =vx=0 \px0.01z# =px=0 ]tx0.01z# =tx=0 ^ax0.01z# =ax=0 a<12 ,5;"a.Income Tax ";ix*100d;"% " b<13 ,5;"b.Corpn. Tax ";cx*100d;"% " c<14,5;"c.VAT ";vx*100d;"% " r116,5;"d.Tobacco Tax `";tx;" " |117,5;"e.Alcohol Tax `";ax;" " 118,5;"f.Petrol Tax `";px;" " 019,5;2;"g.NO MORE CHANGES" H21,0;1;4;" Enter PREFIX of tax to change " b$ $b$=""1,0:8080 ]b$(1)=""b$(1)=" "b$(1)"9"b$(1)>"g"1,0:8080 b$(1)="g"8232( A21,0;1;" Key in future rate then ""ENTER""" b$(1)="a"ix b$(1)="b"cx b$(1)="c"vx b$(1)="d"tx b$(1)="e"ax b$(1)="f"px "b$(1)="a"ix=ix/100d "b$(1)="b"cx=cx/100d "b$(1)="c"vx=vx/100d & 8020T l 9222$ q88,5;2;"BUDGET DAY ii.Benefits" s810 ,5;"Category...........Rate:" vff.01z# =ff=0 wgg.01z# =gg=0 xhh.01z# =hh=0 712 ,1;"a.Child Allowance `";ff;" " 714,1;"b.Old Age Pension `";gg;" " 716,1;"c.Unemployment Benefit `";hh;" " 018,1;2;"d.NO MORE CHANGES" H21,0;1;4;"Key in PREFIX of benefit change " b$ $b$=""1,0:8340 Nb$(1)>"d"b$(1)=" "b$(1)"9"1,0:8340 b$(1)="d"8402 A21,0;1;" Key in future rate then ""ENTER""" b$(1)="a"ff b$(1)="b"gg b$(1)="c"hh 8310v 9225 $  9000(# xc=xc+(xc*i) 'xb=((fa*ff)+(op*gg)+(u*hh)*524) xa=(xa+(xa*i)):xd=ff+gg+hh xd0xd=0.001wn xp=xa+xb:pp=15*(xd/xc) pp>15pp=15 xc>xdpp=0 ax0ax=0.001wn !tx0tx=0.001wn !px0px=0.001wn !4dd=dd+(dd*i) !6ee=ee+(ee*i) !8cc=cc+(cc*i) !>"bs=(295'+(t*5))*dd/ax !C8bs>(295'+(t*5))bs=(295'+(t*5)) !H$fp=(6000p+(t*10 ))*cc/tx !M<fp>(6000p+(t*10 ))fp=(6000p+(t*10 )) !R$gs=(6000p+(t*502))*ee/px !T<gs>(6000p+(t*502))gs=(6000p+(t*502)) !Wvv=vv+(vv*i):vt=(vv*vx) !k&vx>.19~B\)vt=(vt*(.19~B\)/vx)) !bs=bs*ax:fp=fp*tx:gs=gs*px !ts=(bs+fp+gs) !!ax+px+tx0.01z# =ts=0 !)ss=(200*((dd+ee+cc)/(ax+px+tx))) !ss>190ss=190 !(t<9 xv=.165~(-(t/100d) !/xt=((*4)+1)*.01z# =+.47p !xt=xt-(.025{L*t) !ix0ix=0.001wn !vx0vx=0.001wn !cx0cx=0.001wn !cq=(200*(xv/vx)) !cq>204cq=204 !cs=(400*(xt/cx)) !cs>400cs=400 !co=200+cq+cs+ss !co>1000co=1000 !+cx>.79J=pco=199-(cx*100d) !%u=25-(co*25/1000) !u=((u*10 ))/10 !.u<0u=((*3)+1)*.1}L !aa=aa+(aa*i) !in=in+(in*i) !5ia=((25-u)*in*ix):ix0.01z# =ia=0 !+ci=(co*aa*cx):cx0.01z# =ci=0 "tt=vt+ia+ci+ts "!i=(((tt+xb-(tt*i))/ot)-1) "i<0i=0 "(i=i+(((t*3)+1)*.01z# =) "l=l+(tt-xp-xz) " "l<0i=i+(l/100000CP) " e=e-(e*i) "2e=e+.1}L+(((*10 )+1)*.01z# =) "e=((e*100d))/100d "e>3e=3 "$9e<.5e=.5+((*4)+1)*.15~ ".pq=20-(i*100d) "8pq<0pq=0 "Bpr=25-(u*10 ) "Lpr<0pr=0 "Vp=(po+pp+pq+pr) "`)ix>.353333+(k/100d)b=t+1 "tb>1p=(p/b) "~ b=b-1 ",gg<(xc/3)p=((*17)+4) # #(H21,0;1;5;" PROCESSING DATA - PLEASE WAIT -" #2 #F620,0;"================================" #P #Zex=027:9 ,x;1;2;"*NEWS":.05|L,15:.05|L,20:x #_ #gj=(*4)+1:2,7;2;"WEEKS TO ELECT'N:";1;2;j #j=(*4)+1 #M2,7;2;"WEEKS TO ELECT'N:";2;1;j #b10 ,2;"A GENERAL ELECTION must take";11 ,5;"place in ";j;" weeks' time." #$j=111 ,20;"'s" #W13 ,0;"You now have the opportunity to","improve your POPULARITY rating." #^p=p-pcm:4,27;1;2;p:9200#:4,27;p:9228 $ #cou=19119# #10 ,0;"You will have 1000 units to",'"allocate and you should try to",'"use these in areas which require"'"immediate attention."''"i.e if Law and order has been a","problem then allocate some unitsto this CATEGORY." #9200#:9225 $ #10 ,0;"When you have allocated all yourunits an ammended POPULARITY ","RATING will be displayed.",''"You may keep trying different ","allocations each week until the","ELECTION." #9200#:9225 $ #08,13 ;5;"MANIFESTO" #C10 ,3;5;"CATEGORY............EMPHASIS" #kpcm=0:uni=1000:inf=0:ump=0:bal=0:law=0:aid=0:nat=0 #T12 ,2;"a.Inflation : ";12 ,m(inf)-1;inf #T13 ,2;"b.Unemployment : ";13 ,m(ump)-1;ump #T14,2;"c.Overseas Aid : ";14,m(aid)-1;aid #T15,2;"d.Law and Order : ";15,m(law)-1;law #.17,2;2;"e.WHEN FINISHED" #19,0;" ":19,0;"You have ";5;uni;0;" units to allocate " #Luni=019,0;2;" All units have been allocated " #H21,0;2;1;" Enter PREFIX of CATEGORY " #b$ #$b$=""1,0:9138# #b$(1)="e"9160# #]b$(1)=""b$(1)=" "b$(1)"9"b$(1)>"e"1,0:9138# #?21,0;1;"key number of units to allocate " # b$(1)="a"inf:inf=inf # b$(1)="b"ump:ump=ump # b$(1)="c"aid:aid=aid # b$(1)="d"law:law=law #1eml=inf+ump+aid+law:eml>10009154# #,uni=1000-eml:9000(#:9122# #e1,0:21,0;3;1;"Insufficient units - RE-ENTER - ":9121# #|i>.11}aG+(j/100d)i<.17~.z+(j/100d)pcm=pcm+(((inf/250)*(((.25~+(j/100d))-i)*100d))) #|i>.17~.z+(j/100d)i<.25~+(j/100d)pcm=pcm+(((inf/250)*(((.25~+(j/100d))-i)*100d))) #<i.25~+(j/100d)pcm=pcm+(inf/250)*5 #vu>1.43333+(j/10 )u<2.6&fff+(j/10 )pcm=pcm+(((ump/250)*(u-(1.43333+(j/10 ))))*10 ) #wu>2.6&fff+(j/10 )u<3.6ffff+(j/10 )pcm=pcm+(((ump/250)*(((4+(j/100d))-u)*10 ))) #;u>3.6ffff+(j/10 )pcm=pcm+(ump/250)*5 #Oi<.12}u[+(j/100d)u<1.9s333+(j/10 )pcm=pcm+(aid/250)*k #2wal=1pcm=pcm+(law/250)*(k+1) #2wal=0pcm=pcm+(law/150)*(k+1) #Kp=(p+pcm):4,27;1;p:9225 $:4,27;p # j=j-1 #(j=0cou=2:pcm=0:: #212 ,0;" Do you wish to try again?" #?21,0;1;" key in Y or N then ENTER " #b$ #$b$=""1,0:9188# #Fb$(1)="y"b$(1)="Y"9225 $:cou=1:9102# #Ib$(1)="n"b$(1)="N"9225 $:cou=2:pcm=0: #1,0:9187# #9225 $: #H21,0;1;2;" Press ENTER to continue " #z$ $621,0;" " $ $ o=11 $ 9228 $ $ o=7 $ 621,0;" " $ x=o19 $/x,0;" " $x:9030F#:9220$ $, 9050Z# $1wal=19280@$ $6212 ,2;"Severe rioting in many large" $8514,1;"cities occurred during the year" $= wal=1 $>2,-15 $?9200#:9225 $: $@12 ,1;2;1;" Law and order has broken down ";15,1;2;0;" A GENERAL ELECTION MUST TAKE "," PLACE IMMEDIATELY":3,-15:wal=0:9200#:9225 $:5003 $T?.1}L,15:.1}L,15:x=125:x: $1.5@,0:.5,0:.5,1:1,1:.5,0:.5,1:.5,0:.5,-2 $.5,-4:2,-5:1,3:1,1:.25~,0:.25~,-4:.25~,1:.25~,3 $[.5,3:.5,1:1,0:1,-2:2,-4: $.75@,0:.75@,0:.375?,0:.75@,0:.5,3:.5,2:.5,0:.5,0:.5,0:.5,-2:1,0: $<18,0;2;" No Government can be formed" $?19,0;2;"THERE MUST BE A FURTHER ELECTION" $29200#::oo=3:1043:5000 % 8410 %!2,5;t %&2,31;y %03,7;" " %3,3,7;1;((i*100d)) %4 9300T$ %5#3,7;((i*100d)) %:3,28;" " %?*3,28;1;e:9300T$ %D3,28;e %N4,7;" " %P)4,7;1;u:9300T$ %S4,7;u %X4,27;" " %]*4,27;1;p:9300T$ %b4,27;p %l)5,7;1;s:9300T$ %n5,7;s %v5,24;" " %{5,24;l %}?l<05,24;2;1;l:9300T$ %~*l<05,24;2;l % %39050Z#:11 ,11 ;"PARTY NEWS" %713 ,0;"Party wets have rebelled against " %<15,3;ix*100d;" Per cent Income Tax rate" %ix=.40L+(k*.02{# =) %D17,0;"It must be reduced to ";ix*100d;" Percent" %2,-10 % 9200# %9225 $: %10 ,0;"Send for details of other GAMES:",''" Simon W Hessel,15 Lytham Court,",'" Cardwell Cres.,Sunninghill,",''" Berkshire,England." % %L.5,5:.5,9 :.5,12 :.5,17: %'o$="A KNIGHTHOOD FOR YOUR GREAT WORK" % kth=2 % 7900 % &616,0;"--------------------------------" &  &H 9050Z#:x=140( &M&11 ,12 ;"WARNING" &R"11 ,12 ;"WARNING" &fx &\13 ,3;2;"Social benefits are falling ",''" badly behind INFLATION" &2,-14:9200# &9225 $: &""9900& &=""9910& & =" " & 9900& &M(xd)=31-x &uj=27-ju: ttogi~ (xacmku&fffeqpL̫}L̴fda~b-@sldc7 Yͩ:Nw ̤S333ER02R dd~L̩ya@  $ ~ ~5"~QnzsA51`A@tdi jqF h lnnmaaiamD$ A SOCIAL REFORM IS RECOGNISED O A KNIGHTHOOD FOR YOUR GREAT WORKBe< CONSERVATIVE  LABOUR LIBERAL SOCIAL DEMOCRAT < CONSERVATIVE  LABOUR LIBERAL SOCIAL DEMOCRAT AaKaZ