1984 ! 64767 0:0:0: 'n=3036$:0.075},n:n C 20,8;"NOW LOADING 1984" #18,0; (0:"" %$1984 @""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~>>L @"""""""""""""""""""""">{""""""""L0 P ""xxxxxxxxxxxxxxxxxxxxxx>xxxxxxxx^q""X&xx  ÊV _  ^]wkZ&   ߟހ?   _w_. ~~~~~~~~~~~~~~?~~~~~~~~~~~~~~~~>~~""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((      "9# # <@-&&&\\]/g.m\W&t-X![!@@P!!&  !|{"\ Pz K SR P 6 &65536-(7962):0: 63767:0 kV0=0:V=0:V1=1:V2=2:V3=3:V4=4:V5=5:V6=6:V7=7  236099\,45- RATO=V 23658j\,8  V2:V:V2: V4,V;" " D.6,10 :.6,6:.6,8:.73333,V1 :n=1417:n,7;" ":n :N=40(64@:N,16:V,568+*4:N ;N=64@200:N,16:V,24+*6:N JN=200208:N,16:V,557+(N-200)^1.5@:N AN=128132:N,40(:V,(N-122z)^1.5@:N AN=132136:N,40(:V,(142-N)^1.5@:N JN=208216:N,16:V,568+(216-N)^1.5@:N !217,16:0,557:V:V2:N=13:12 +N,25;" ":N:208,62>,5:209,67C:0,-5:-2,-2 "D.73333,V1:.6,8:.6,10 :.73333,6 #SV2:V:100d:N=10 20:N,V;" ":N '7;13 ,6;" '1984' THE GAME OF ECONOMIC SURVIVAL  1983 RMH CARTER & INCENTIVE SOFTWARE" 4V6:V::20,5;" PROGRAM INITIALISING " R(128) rN=V1120x15:R(N):N:4.8,3,400,34.5 ,100d,-2,7000X,1.5@ %BANKRATE=10 +((-.5)*V3) IQ(27):A(27):B(21):C(11 ,4):D(15) N=V127:A(N):N:V5,V4,5.63333,18.3fff,13 ,36.4,104h,1.43333,46.,121.7sfff,3,3,19.9333,3.9y,3.1Ffff,579,557,1,18.8fff,20,31,51.1Lfff,53.5V,17.6 ,1.8ffff,11.34,13.7[333 N=V121:B(N):N:30,15,40(,32 ,25,6,6500d,7000X,6500d,568,23,3,8,10 ,12 ,33!,100d,100d,100d,100d,100d IN=V111 :C(N,V1):C(N,V2)=(C(N,V1)*B(8)/100d)/10 :C(N,V4):C(N,V3)=C(N,V4)-C(N,V2):N:.4L,32.5,.8L,14.4ffff,1.3&fff,13.9^fff,.8L,12.6I,.2~L,5.9<,.2~L,4.3 ,.3,4.3 ,.2~L,3.4Y,.2~L,2.6&fff,.8L,9.2333,5.2&fff,103.1N333 S,IMF=V:XOX=V:XOD=V:YEAR=1984:Y=V1 W+EXRT=(150*(+0.5))/100d XY=16:N=10 502:.005y# =,N:N:N=16:N::N+1:1;9 ;8+N,10 ;"YOU MADE IT":15,10 ;9 ;" TO 1999! ":502::N:N=10 502:.005y# =,N:N:9860& ZRAT=V bCD(V1)=A(V1)+A(V2)+A(10 )+A(12 )+A(17)+A(26) lAD(V2)=A(V3)+A(V4)+A(7)+A(8)+A(16)+A(27) vD(V3)=D(V1)-D(V2) YD(V4)=A(V5)+A(V6)+A(7)+A(8)+A(13 )+A(14)+A(15)+A(20) 6D(V5)=A(9 )+A(10 )+A(11 )+A(21) D(V6)=D(V4)-D(V5) <D(7)=A(21)+A(23)+A(25)+A(27) <D(8)=A(20)+A(22)+A(24)+A(26) "D(9 )=D(7)-D(8) =D(10 )=A(11 )+A(16)+A(18)+A(24) =D(11 )=A(12 )+A(17)+A(19)+A(25) %D(12 )=D(10 )-D(11 ) <D(13 )=A(V3)+A(V4)+A(9 )+A(19)+A(22) aD(14)=A(V1)+A(V2)+A(V5)+A(V6)+A(13 )+A(14)+A(15)+A(18)+A(23) %D(15)=D(13 )-D(14) .0275{aG,38& *20,V5;" PRESS ANY KEY! ":V  aV:V:V6::N=V328:.01z# =,20:M=614:V2;0;M,N;"":M:N: !7N=812 :N,V5;"":N "V1;10 ,14;YEAR *B(17)=B(17)+D(15):B(18)=B(18)+D(V3):B(19)=B(19)+D(V6):B(20)=B(20)+D(9 ):B(21)=B(21)+D(12 ) S21,9 ;V6;"PRESS ANY KEY":.4L,20:V:.0175{\(,38& !D(V3)>0RAT=RAT+10  :END=V U 9 V(V1;" GOVERNMENT BALANCE SHEET " `2:V;4;" SOURCES OF REVENUE M` " j1" CORP. TAX";24;(A(3)*1000) k7" VALUE ADDED TAX";23;(A(4)*1000) l2" INCOME TAX";23;(A(9 )*1000) m9" CUSTOMS & EXCISE";23;(A(19)*1000) n." LOANS";23;(A(22)*1000) o<V1;" TOTAL REVENUE.....";V1;(D(13 )*1000) t2:V;4;" DETAILS OF SPENDING M` " u," CONTRACTS";24;(A(V1)*1000) v:" GRANTS TO INDUSTRY";24;(A(2)*1000) w;" PUBLIC SECTOR WAGES";23;(A(5)*1000) x7" GOVT.DEPT.WAGES";23;(A(6)*1000) y1" PENSIONS";23;(A(13 )*1000) z7" UNEMPL.BENEFIT";24;(A(14)*1000) {8" CHILD ALLOWANCE";24;(A(15)*1000) |4" FOREIGN AID";24;(A(18)*1000) }:" INTEREST ON LOANS";23;(A(23)*1000) ~8V1;" TOTAL SPENDING....";(D(14)*1000) D(15)>V400:21,0;V3;9 ;" BUDGET SURPLUS IS M` ";21,23;(D(15)*1000):RAT=RAT+10 D(15)5681165 =.0275{aG,38&:X=X$(1):x9 2000 TOT=V:N=V1X:N=X:480,24:120x,V:V,128:-120x,V:V,-128:M=V120x8:M+480,24:V,128:M:13 ,24;"CURRENT":14,24;"FIGURE":1100L+(N*100d) N  LV1,V5;"INFLATION (% p.a.)":N=1YEAR-1983:TOT-64@M=V18:M+31+(8*(N-74J)),88X:4;0,R(N):M N  1980  WV1,V5;"AVERAGE WAGE (`/Yr)":N=90Z90Z+YEAR-1983:TOT572025:q=(q*100)/100 0Q=Q$:q=((q+.005y# =)*100d)/100d q2016,V5;"UNREALISTIC CHANCELLOR!";17,V5;" TRY 5 - 20% RANGE ":.65&fff,-10 :2025 qBANKRATE+BANKRATE*.2~L16,5;"RATE IS NOT SO MOBILE ";17,5;" TRY AGAIN ":.65&fff,-10 :2025  BANKRATE=q xV:7:V1::V1,V;" THIS CHART SHOWS HOW WELL BALANCED THE ECONOMY IS. -TRY TO KEEP IT BALANCED-" 020,V;" GOVT INDST POPLN BANKS WORLD " cN=V200480:7+N,23:41),V:V,101e:-41),V:V,-101e:N  HN=VB(17)/V2:N100d8,24+N:V2;39',V:N IN=VB(18)/V2:N100d568,24+N:V1;39',V:N  ON=VB(19)/V2:N100d104h,24+N:6;39',V:N *ON=VB(20)/V2:N100d152,24+N:4;39',V:N 4ON=VB(21)/V2:N100d200,24+N:5;39',V:N >5N=V1V5:10 ,V2+((N-V1)*V6);B(N+16):N H'V5,V;" (EACH INDEX SHOWN 1984=100)" M(V,74J:8;255,0 RQ100d:V1;21,9 ;"PRESS ANY KEY":0:.0175{\(,38& )Q=(*30):Q>10 4000 V1:V1:7: aA$="*CABINET MEETING*CABINET MEETING":N=V132 :.04|# =,n:V1;V1,32 -N;A$(N):N 3040 +(Q*10 ) !V3,V5;"DEFENCE COUNCIL REPORT" ]S=(*20)+V1:V5,V;" AGEING HARDWARE NEEDS TO BE REPLACED. WE REQUIRE ";S;" %" p7,V;" DEFENCE BUDGET INCREASE";17,V2;" Will you underwrite it?";20,9 ;"PRESS Y N" W$=:W$=""3043 W$"Y"W$"N"3043 wW$="Y"RAT=RAT-502:C(V2,V3)=((C(V2,V3)+C(V2,V3)*S/100d)*100d)/100d:C(V2,V4)=C(V2,V2)+C(V2,V3) (W$"Y"RAT=RAT+*10 :XOD=XOD+V3 3150N !V3,7;"OIL LEVY PROPOSED" :9 ,6;"An oil levy of ";bankrate/2;" %" c20,9 ;"PRESS YN";10 ,V;" has been put forward. Do you agree to it?" W$=:W$=""3053 W$"Y"W$"N"3053 mW$="Y"RAT=RAT-20:A(10 )=A(10 )*.9ffff:B(18)=B(18)-(10 +(*18)) 3150N S=(*15):8,0;" BRITAIN GETS B` ";S;" EEC REBATE":20,9 ;"PRESS ANY KEY":0:B(21)=B(21)-S:B(17)=B(17)+S 3150N 8,V2;" IS THERE ANY TRUTH IN THE RUMOUR THAT YOU ARE GOING TO INTRODUCE NEW EXCHANGE CONTROLS?" 20,9 ;"SELECT YN" W$=:W$=""3072 W$"Y"W$"N"3072 BW$="Y"R(Y+75K)=R(Y+75K)+(*V5):C(V5,V1)=C(V5,V1)*V2  3150N !V5,V4;"BRITISH RAILWAYS BOARD" 9 ,V2;"Investment in BR is planned for next year, do you lend your support, given that it means budget increases? " 20,9 ;"PRESS YN" W$=:W$=""3083 W$"Y"W$"N"3083 [W$="Y"RAT=RAT+10 :C(V6,V1)=C(V6,V1)+.1}L:C(V6,V4)=C(V6,V4)+C(V6,V4)*.5  3150N V3,10 ;"HOUSING BOOM" iV6,V2;"MORE HOUSES ARE BEING BUILT THAN IN THE LAST TEN YEARS!":14,9 ;"PRESS ANY KEY" @C(9 ,V1)=C(9 ,V1)*V2:C(9 ,V4)=C(9 ,V4)*V2  3150N V3,9 ;"DEMONSTRATIONS" V6,V3;"Marches against authority, passive resistance, urban terrorism: all are rising and the Police need more equipment and personnel." I13 ,V4;"Will the Home Secretary sanction more spending?" 20,9 ;"PRESS YN" W$=:W$=""3104 !W$"Y"W$"N"3104 #oW$="Y"RAT=RAT+10 :C(7,V1)=C(V7,V1)+.1}L:C(7,V4)=C(7,V4)+C(7,V4)*.5 $W$"Y"RAT=RAT-10 % 3150N &!V3,7;"HEALTH PROVISIONS" 'k9 ,V1;"DO YOU INTEND TO ALLOW A MORE COMPREHENSIVE BUT MORE COSTLY NATIONAL HEALTH SERVICE?" ( 20,10 ;"PRESS YN" )W$=:W$=""3113) *W$"Y"W$"N"3113) -:W$="Y"C(V3,V1)=C(V3,V1)+.3:C(V3,V4)=C(V3,V4)+V3 .+W$"Y"RAT=RAT-80P:XOD=XOD+3 / 3150N 08V3:V1;3,2;" CITY FEELS RECESSION BITE!" 19 ,V3;" COLLAPSE OF SHARE PRICES COULD HAPPEN UNLESS YOUR TREASURY STEPS IN WITH A HEFTY LOAN TO FINANCIERS" 2'15,V5;"IS THE LOAN AVAILABLE?" 3 20,10 ;"PRESS YN" 4W$=:W$=""31244 5W$"Y"W$"N"31244 7rW$"Y"R(Y+15)=R(Y+15)+:R(Y+30)=400+(*5):R(Y+60<)=R(Y+60<)*.9ffff 8+W$="Y"B(17)=B(17)-100d 9 3150N :0V1;10 ,5;"POUND DEVALUED BY 15%!" #20,9 ;"PRESS ANY KEY" ? 3150N D20,9 ;"PRESS ANY KEY";10 ,V3;"UNIONS FORCE YOU TO REDUCE UNEMPLOYMENT BY TAKING ON MORE GOVERNMENT EMPLOYEES!":N=110 :C(N,1)=C(N,1)+(C(N,1)*.1}L) FN:N=1100d:N N0:.0175{\(,38& .V2:V6:V::V3,8;"WAGES ROUND ";YEAR N=V1502:.01z# =,N:N 10 ,V;" The art of negotiating is an important one in government. If you bid too low you will lose, if too high you could contribute to inflation!":21,9 ;"PRESS ANY KEY":0:.0175{\(,38& ':V1;V1,8;"WAGES ROUND ";YEAR (Q=((R(Y)+(*R(Y)))*10 )/10 ,8,V3;"CIVIL SERVANTS CLAIM ";Q;" %" ,"ENTER YOUR OFFER ";X$:X$=""4040 2I$=X$:9500%:X$=I$:FL=04040 X1=X$ ̶X135#+Y:V1;10 ,5;"YOUR OFFER IS INSANE!"::200::RATO=-100d:9800H& /B(8)=B(8)+B(8)*X1/100d ܂7;V2;14,11 ;"ACCEPTED!":20,0;" GOVERNMENT EMPLOYEES GET ";X1;"%":.4L,15:100d +V5::V1;V1,8;"WAGES ROUND ";YEAR (Q=((R(Y)+(*R(Y)))*10 )/10 +8,V4;"PUBLIC SECTOR CLAIM ";Q;" %" ,,"ENTER YOUR OFFER ";X$:X$=""4140, -2I$=X$:9500%:X$=I$:FL=04140, .X=X$ 0X35#+Y:V1;10 ,5;"YOUR OFFER IS INSANE!"::200:RATO=-100d:9800H& 6.B(7)=B(7)+B(7)*X/100d @v7;V2;14,11 ;"ACCEPTED!":20,V3;" PUBLIC SECTOR GETS ";X;"%":.4L,15:100d h+V1::V1;V1,8;"WAGES ROUND ";YEAR w(Q=((R(Y)+(*R(Y)))*10 )/10 |,8,V3;"PRIVATE SECTOR CLAIM ";Q;" %" ,"ENTER YOUR OFFER ";X$:X$=""4240 2I$=X$:9500%:X$=I$:FL=04240 X=X$ X35#+Y:V1;10 ,5;"YOUR OFFER IS INSANE!"::200:RATO=-100d:9800H& .B(9 )=B(9 )+B(9 )*X/100d |7;V2;14,11 ;"ACCEPTED!":20,3;" PRIVATE SECTOR GETS ";X;"%":.4L,15:100d IMF>V5:1:9 ::5,V1; "INTERNATIONAL MONETARY FUND":9 ,V;" BECAUSE YOU HAVE HAD TO BORROW FROM THE I.M.F. YOU MUST REPAY PART OF THE DEBT OF B` ";(IMF*100d)/100d:14,V1;"ENTER REPAYMENT IN ";YEAR:X$:X$=""5000  9IMF>VI$=X$:9500%:X$=I$:FL=05000 4IMF>VX=X$:IMF=IMF-X:B(17)=B(17)-X | 7:V1:7:V::V3,V5;"GOVERNMENT INVESTMENTS":10 ,V;" HOW MUCH WILL YOU INVEST IN THE FINANCIAL INSTITUTIONS?":15,0;" (SUGGEST RANGE B`0-5 UNLESS BANKS ARE LOSING LARGE SUMS)":"INVESTMENT IN B` ? ";X$:X$=""5500| 2I$=X$:9500%:X$=I$:FL=05500| AX=X$:B(20)=B(20)+X:R(Y+46.)=R(Y+46.)+X D#B(18)>1305708L I 5750v L0:0:7::10 ,V;" IS INDUSTRY EXPANDING TOO FAST? THEN IMPOSE A LEVY ON INDUSTRIAL PROFITS!" N+20,3;"WILL YOU? (PRESS YN)" OW$=:W$=""5711O PW$"Y"W$"N"5711O Q.0175{\(,38& S^0:W$="Y"S=10 +*15:B(17)=B(17)+S:B(18)=B(18)-S vJUMP TO HERE (*26)=10 V2:V2:7:V1,-5::1;10 ,4;"AFRICA EMBROILED IN WAR!":B(21)=B(21)-502:200:0 $B(21)=B(21)-*20 p]N=V111 :C(N,V2)=(C(N,V1)*B(8)/100d)/10 :C(N,V3)=C(N,V4)-C(N,V2):N zV4:7::V1;7,V5;"DEPARTMENTAL MANAGEMENT":13 ,V;" YOU MUST MAINTAIN AN ADEQUATE LEVEL OF SPENDING,REMEMBERING THAT WAGE RISES AND INFLATION PUSH UP THE DEMAND FOR MONEY!" 21,9 ;"PRESS ANY KEY": 600X:.0175{\(,38&::A$=" SOCIAL SECURITY DEFENCE HEALTH EDUCATION & SCIENCE TRADE & INDUSTRY TRANSPORT LAW & ORDER ENVIRONMENT HOUSING OTHER DEPARTMENTS TOTAL " >TOT=V:N=V110 :TOT=TOT+C(N,V4):N:C(11 ,V4)=TOT 7:V1::V1,V4;"DEPARTMENTAL EXPENDITURE":V,155:255,V:V3,25;"B`":V4,V;A$:n=V111 :n+V3,25;C(N,V4):N n=V9 :n+4,0;n:n:16,4;"If you wish to alter any departmental BUDGET then select the index no." 4V1;20,V;"PRESS ENTER WHEN YOU'VE FINISHED" X$=:X$=""6071 0X$=13 .0175{\(,38&:6090 'X$<480ůX$>5796071 &.0175{\(,38&:X=X$(1) Rx<10 :18,3;"(Enter the BUDGET you want for this Department.)":6,6;A$((x*32 )+1(x*32 )+21):9 ,6;"Employees: ";(C(x+1,1)*1000);",000":14,6;"Expenditure: B` ";C(X+1,4):"New Expenditure (B`) ";Q$:Q$=""6075 >X<10 I$=Q$:9500%:Q$=I$:FL=06075 X<10 Q=Q$ X<10 q100d+(y*12 ):10 ,v1;"PUBLIC SPENDING IS OUT OF HAND!":200:9080x# dXOD>309110# A(V1)=c(11 ,V3)-60< c(V1,V3)<.052|T*((B(V4)*B(15))+(B(V5)*B(12 ))+(B(6)+B(14))):v1;10 ,4;"CAN'T PAY OUT BENEFITS!":500:9800H& b.7:V6:V::V1,9 ;"BUDGET ";YEAR lA$=" (%) 1 INCOME TAX 2 VAT 3 CORP TAX (`/Wk) 4 OLD AGE PENSION 5 UNEMP. BENEFIT 6 CHILD ALLOWANCE" qv,152:255,v v+V4,v;A$:N=V1V3:N+V4,22;B(N):N w!N=V4V6:N+V5,22;B(N):N 13 ,V3;"THE REGULATOR Provision exists to allow you to alter the rates of tax by up to 10% (i.e you could put VAT up from 15% to 16.5%. You may REDUCE rates as desired or alter Benefits as you wish." .#0;"SELECT OPTION (ENTER TO MOVE ON)" X$=:X$=""7050 0X$=13 .0175{\(,38&:7200  4x$(V1)<491ůx$(1)>5467050 .0175{\(,38&  x=x$(V1) x=V27070 x=V37080 x=V47090 x=V57100 x=V67110 7X=V1" NEW INCOME TAX RATE? ";Q$:Q$=""7060 2I$=Q$:9500%:Q$=I$:FL=07060 q=q$ 2QB(V1)+.1}L*B(V1)B(1)=Q:7000X x=V17000X 0X=V2" NEW VAT RATE? ";Q$:Q$=""7070 2I$=Q$:9500%:Q$=I$:FL=07070 q=q$ -QB(V2)+.1}L*B(V2)B(V2)=Q:7000X x=V27000X <X=V3" NEW CORPORATION TAX RATE? ";Q$:Q$=""7080 2I$=Q$:9500%:Q$=I$:FL=07080 q=q$ 2QB(V3)+.1}L*B(V3)B(3)=Q:7000X x=V37000X 2X=V4" NEW WEEKLY OAP? ";q$:q$=""7090 2I$=Q$:9500%:Q$=I$:FL=07090 B(4)=q$ /B(4)B(9 )/223.6_9995 ' x=V47000X <X=V5" NEW UNEMPLOYMENT BENEFIT? ";q$:Q$=""7100 2I$=Q$:9500%:Q$=I$:FL=07100  B(V5)=q$ (B(V5)B(9 )/2809995 ' x=V57000X 7X=V6" NEW CHILD ALLOWANCE? ";q$:q$=""7110 2I$=Q$:9500%:Q$=I$:FL=07110  B(V6)=q$ )B(V6)B(9 )/11669995 ' x=V67000X  B(V4)B(9 )/223.6_B(5)B(9 )/280B(6)B(9 )/1166XOX=XOX+1::XOX-1;8,11 ;"WARNING ";XOX:1;12 ,0;" BENEFITS ARE BEGINNING TO FALL BEHIND INFLATION ":300, *XOX>V39100# VeV5:V5:V1::V1,11 ;"FOREIGN AID":V,V:255,V:V,175:-255,V:V,-175 `N=10 40(10 :128,110n,N:N:88X,110n:80P,0:128,70F:0,80P jX=128:W=110n:Z=28:X,W:Z,Z:X,W:Z,-Z:X,W:-Z,Z:X,W:-Z,-Z:100d,40(:80P,80P,/3:156,40(:-80P,80P,-/3 tM18,V2;"CURRENT ANNUAL AID IS B` ";(A(18)*100d)/100d ~0"ENTER REVISED FIGURE ";q$:Q$=""7550~ 2I$=Q$:9500%:Q$=I$:FL=07550~ Q=(Q$*100d)/100d qA(18)*V51;18,0;" AID CAN ONLY BE RAISED SLOWLY TO EASE ECONOMIC DISRUPTION. ":200:7550~ >:V2;V1;10 ,V6;" B` ";Q;" IS REASONABLE ":200 (A(18)=(q*1000)/1000 |V:V6:V6:V::V1,7;"INDUSTRIAL GRANTS":V,V:255,V,-V1:V,175,-V1:-255,V,-V1:V,-175,-V1 110 ,6;"ANNUAL GRANT B` ";A(2) 0"ENTER REVISED FIGURE ";q$:Q$=""7630 2I$=Q$:9500%:Q$=I$:FL=07630 Q=Q$ تqA(V2)+A(V2)*V4V1;V1;14,V2;"WE CAN'T COPE! REDUCE GRANT!":200:7610 .10 ,6;"ANNUAL GRANT B` ";Q;" " ?V1;V1;14,5;" AN ACCEPTABLE FIGURE ":200 A'7:V:B(12 )=R(15+Y) B A(V2)=q E"B(11 )=26-B(12 ) J1Q(V1)=(C(11 ,V3)*7.49625oG)/100d O Q(V2)=A(V2) PQ(18)=A(18) T6Q(V3)=(A(V3)*B(V3)/40()*(B(18)/100d) ^.Q(V4)=(A(10 )*B(V2)/10 )/10 hVQ(V5)=(((B(11 )-C(11 ,1))*.25~)*B(7)/10 )/300, r<Q(V6)=(C(11 ,1)*B(8)/10 )/100d |[Q(7)=(((B(11 )-C(11 ,1))*.75@)*B(9 )/10 )/100d -Q(8)=A(8)*B(18)/100d OQ(9 )=((A(5)+A(6)+A(7))*B(1)/10 )/10 Q(10 )=(A(V5)+A(V6)+A(7)+A(8)+A(13 )+A(14)+A(15)+A(20)-A(9 )-A(11 )-A(21))+((-.5)*10 ) HQ(11 )=(A(11 )*D(12 )/100d)+((-.5)*4) (Q(12 )=A(12 )*1.5@/EXRT CQ(13 )=(B(15)*524*B(4)/100d)/10 CQ(14)=(B(12 )*524*B(5)/100d)/10 CQ(15)=(B(14)*524*B(6)/100d)/10 :Q(16)=A(16)+(V1-(EXRT/1.5@))*(*V5) ?Q(17)=A(17)+(V1-(1.5@/EXRT))*(*5) :Q(19)=(A(16)*B(16)/10 )/10 TQ(20)=A(20)+((A(5)+A(6)+(7))/1.534DZ)/100d FQ(21)=A(21)+((A(20)-20)*BANKRATE)/100d 4D(15)VQ(22)=A(22)-D(15) .D(15)>VQ(22)=A(22)+(Y*) LQ(23)=A(23)+(((A(22)-53.1Tfff)*BANKRATE)/100d)+Y &.Q(24)=A(24)+Y*BANKRATE/100d 0/Q(25)=(A(24)*BANKRATE)/100d :1Q(26)=A(26)*A(10 )/121.7sfff DHQ(27)=A(27)+((A(26)-11.34)*BANKRATE)/100d NN=V127:A(N)=Q(N):N vPR(Y+V1)(*7)B(8)>10000'R(Y+V1)=R(Y+V1)+(*V4) y>B(17)<100dR(Y+1)=R(Y+1)+(*4) R(Y+V1)>309090# ]R(Y+16)=V3+(0.3*A(10 )/121.7sfff)-(.3*1.5@/EXRT)+(-.5) R(Y+16)>V59060d# R(Y+16)YV1R(Y+61=)=R(Y+60<)*(A(10 )/121.7sfff) BY=V1R(Y+61=)=100d+((-.5)*100d)/10 8Y>*10 R(Y+61=)=R(Y+61=)-R(Y+1) QR(Y+76L)<-40(R(y+76L)>20R(Y+76L)=bankrate/10 5R(Y+76L)=A(17)-A(16)+(Y^1.1 ) O(*V3)=V1A(18)<20R(Y+76L)=R(Y+76L)-bankrate/5 =R(Y+91[)=((B(7)+B(8)+B(9 ))/3) 2R(Y+106j)=1.5@*A(16)/A(17) cR(Y+V1)>8R(Y+106j)=R(Y+106j)+(-(BANKRATE/20))*(R(Y+31)/2000)  B(17)v9080x#  B(18)v9020<#  B(19)v9030F#  B(20)v9040P# ! +R(V1+Y)(*20)+209090# !R(16+Y)V59060d# !*%R(106j+Y).4L9040P# !/R(16+Y)V9070n# !4RAT=RAT+A(18)*10 !5,RAT=RAT+(R(31+Y)-400)*10 !6 RAT=RAT+R(76L+Y)*15 !7*RAT=RAT-(R(1+Y)-10 )*10 !8%RAT=RAT+(V2-R(16+Y))*20 !9#RAT=RAT+(31-B(V1))*10 !:#RAT=RAT+(15-B(V2))*10 !;:10 ,5;"CONGRATULATIONS YOU'VE SURVIVED ";YEAR:.6,10 :.6,6:.6,8:.73333,1 !<Y=V5RAT>150XOD=V:XOX=V:V3::V1;10 ,V4;"IN THE ELECTION OF ";YEAR:11 ,4;"YOU SECURED A 2ND TERM!":300, !=Y=V5RAT150V::V1;10 ,V4;"IN THE ELECTION OF ";YEAR:11 ,6;"YOU WERE DEFEATED!":.5,12 :1.3&fff,6:9800H& !?Y=10 RAT>300,XOD=V:XOX=V:V2::1;10 ,4;"IN THE ELECTION OF ";YEAR:11 ,4;"YOU SECURED A 3RD TERM!":300, !@Y=10 RAT300,0::1;10 ,4;"IN THE ELECTION OF ";YEAR:11 ,4;"YOU WERE NOT RE-ELECTED!":.5,12 :1.3&fff,6:9800H& !C:10 ,V4;"YOUR ANNUAL PERFORMANCE RATING IS: ";((RAT+100d)/10 ):.73333,V1:.6,8:.6,10 :.73333,6 !HRATO=((RATO+RAT)/Y)/10 #'!YEAR=YEAR+V1:Y=Y+V1:600X #(MV2:V2::10 ,V2;" MASSIVE TRADING IMBALANCE ":500:9800H& #2{V:V2:7::9 ,V2;" YOU HAVE EMPTIED NATIONAL COFFERS BY MISMANAGEMENT!":500:9800 H& #5I$=I$(15) %#>N=I$:I$(N)=37%N1I$=I$(1(N-1)) %&N=I$:M=V1N %0CI$(M)<46.ůI$(M)>579FL=0:.375?,-14 %:M: &F &H>300,::6,2;"YOUR RESIGNATION IS ACCEPTED" &RV1;13 ,6;"YOU MADE IT TO ";YEAR:Y118,0;" (A FINAL RECORD OF YOUR TIME IN OFFICE CAN NOW BE SEEN.)" &SY=V19870& &Tj#0;" PRESS ANY KEY ":1000:.0175{\(,38&::END=1:1110V &W 100d &A16,V3;9 ;" PERFORMANCE RATING ";(RATO+100d) &*20,V3;"PUSH ANY KEY TO TRY AGAIN" &N=V1502:N:0 &V1 &63767::0: &"" & "1984"16384@,49152 &L=64803# & ' 6:V2;V1;10 ,V2;"WELFARE STILL BEHIND WAGES!" ' I100d:20,9 ;"PRESS ANY KEY":V:.0175{\(,38&: :9900& 1984 @@ @PMMMR P P P  ^\MM| OOMS1S WMMS P P P @ @S ANK KEY ":1000:.0175{\(,38&::END=1:1110V ;"FUNDS GROSSLY MMMR P P P  ^\MM| OOMS1S WMMS P P P @ @S ANK KEY ":1000:.0175{\(,38&::END=1:1110V ;"FUNDS GROSSLY INSUFFICIENT":200: MMMR P PM P 3 Wq MQ ?v>MMMMGG MTM P P P 33MN3G]GWqv>::\>2:\{=\*Y\6#6 ô8>G^ P P P 3MGG\GWqv>>*]\"_\C*]\~}t[3*a\Þ*x\#"x\| 4@Ϳnu{=\O