� GREAT BRITAIN LIMITED
� COPYRIGHT SIMON W HESSEL
� SOFTWARE  8/82
$� 15 LYTHAM COURT,CARDWELL CRES.
$� SUNNINGHILL,BERKSHIRE,ENGLAND.

*KEY10"OLD|M RUN|M"
(�7:�23;8202;0;0;0;
2>�VAR: �:�I%=11�12:�8,I%);VV$;Z$;"GREAT BRITAIN LIMITED":�
74�1,19);"Copyright Simon W Hessel Software 8/82"
<�TIMER(.25)
E
QQ$=V$
F�
P
�QUEST
d4�1,3);UU$;"ENTER YOUR NAME (MAX 25 CHARACTERS)"
n�A$
s� A$=""�Dd@
xu� � A$>25 �(7);�1,5);�A$-25;" TOO MANY CHARACTERS PLEASE RE-ENTER":�1,4);"                         <   ":�Dd@ 
�
�(40)
��
�7�1,3);UU$;"WHICH PARTY DO YOU WISH TO REPRESENT:-"
�
�PARTY
�C�''''�10)"A.";L1$;''�10)"B.";L2$;''�10)"C.";L3$;''�10)"D.";L4$ 
�1�''''�7);VV$;PP$;"ENTER A-D THEN RETURN":�K$ 
�(   �K$="A"�K$="B"�K$="C"�K$="D"�t~@
�       �(12):�(7):�tV@
�4  � K$="A"M1$=L1$:M2$=L2$:M3$=L3$:M4$=L4$:QQ$=T$
�5   � K$="B"M1$=L2$:M2$=L1$:M3$=L3$:M4$=L4$:QQ$=W$
�5   � K$="C"M1$=L3$:M2$=L1$:M3$=L2$:M4$=L4$:QQ$=U$
�5   � K$="D"M1$=L4$:M2$=L1$:M3$=L2$:M4$=L3$:QQ$=Y$

,�SETUP 

-�T=1�Y>1�D^A

.�T>1 �D^A

6�U>3.8 � WAL=1 �RIOTB 

;4WB=�(7):WB=WB-(�U):� WB<=1 � WAL=2 � Y>1 �RIOTA 

^�T=1�Y>1�CALC 

c� XC/XD>1.4 �LOSOC 

h�CLR:�PROCD:�RES 

r  �0,7):�CLR:�PROF

�  �0,7):�CLR:�BASKET

��Y=5��ELECTION

� �0,7):�CLR:�BUDGETA

�  �0,7):�CLR:�BUDGETB

� �0,7):�CLR:�REFORM

�Y=Y+1:�IX>.5 �REVOLT

�	�TvA
� SS=�(200*((TS/1000)/10)) 
���QUEST
�1�2,10);"IF YOU WISH TO LOAD A PREVIOUS GAME"
�0�2,14);"ENTER  Y  AND THEN PRESS  <RETURN>"
�*�5,18);"IF NOT JUST  PRESS  <RETURN>"
�#�B$:� B$="Y" � �VARLOAD:�:�TlA
��:�
�
��NEWS
�
� Z=1 � 5
�#�I%=8�9:�0,I%);UU$;NN$;�(39):�
�O�X=1�30:�I%=8�9:�X,I%);Z$;"���*NEWS ":�I%:�I%=8�9:�0,I%);UU$;NN$:�I%:�X  
��0,-10,1,2:�0,-10,0,2
��Z
��
���LOSOC:�CLR
�	�NEWS
��TIMER(.1)
�5� I%=11� 12:�11,I%);PP$;WW$;Z$;"W A R N I N G":�
�i�6,15);UU$;"Social Benefits are falling"'';UU$;"        badly behind INFLATION":�0,-15,2,20:�SPACE:�
4��RIOTA
9�CLR
>	�NEWS
C�TIMER(.1)
Hv�5,14);VV$;"SEVERE RIOTING IN MANY LARGE"''';VV$;"    CITIES OCCURRED DURING THE YEAR":WAL=1:�0,-15,2,20:�SPACE:�
���RIOTB:�CLR
��NEWS:�TIMER(.1)
���5,12);YY$;"Law and order has broken down";�4,15);SS$;PP$;"A GENERAL ELECTION MUST TAKE "'';SS$;PP$;"         PLACE IMMEDIATELY":�0,-15,2,35:�SPACE:AWL=1:WAL=0:�ELECTION
��
���REVOLT:�CLR
	�NEWS:�TIMER(.1)
	e�3,13);UU$;"Party Wets have rebelled  against"'';UU$;"      ";IX*100;" PERCENT Income Tax rate" 
	IX=.40+(K*.02)
	$]�3,18);SS$;"It must be reduced to ";IX*100; " PERCENT":�0,-15,1,10:�0,-15,2,20:�SPACE:� 
�
��PROF
�7       �I%=8�9:�11,I%);Z$;VV$;"COUNTRY PROFILE":� 
�$�12,10);V$;",,,,,,,,,,,,,,,"   
�%�9,11);C;"M.PEOPLE(INCLUDING)"  
�7 �4,12);"(";FA;"M.CHILDREN & ";OP;"M.PENSIONERS)" 
�$�10,13);CO*1000;" COMPANIES"   
�%�10,14);VV$;"INCOME FROM TAXES" 
�D�4,15);UU$;"V A T   Income    :";RR$;"`";��K(VT)-6,15);�VT;"M."
�E�4,16);UU$;"P A Y E Income    :";RR$;"`";��K(IA)-6,16);�IA;"M." 
�D�4,17);UU$;"Company Tax Income:";RR$;"`";��K(CI)-6,17);�CI;"M."
D�4,18);UU$;"Excise Duties     :";RR$;"`";��K(TS)-6,18);�TS;"M."
F�4,19);VV$;"  TOTAL INCOME    :";VV$;"`";��K(TT)-6,19);�TT;"M."  
Q�4,20);WW$;"less EXPENDITURE  :";WW$;"`";��K(XP+XZ)-7,20);WW$;�(XP+XZ);"M." 
,G�7,21);"BALANCE (+/-)   : `";��K(TT-XP-XZ)-6,21);�(TT-XP-XZ);"M." 
1]� (TT-XP-XZ)<0 �6,21);WW$;"BALANCE (+/-)   : `";��K(TT-XP-XZ)-7,21);WW$;�(TT-XP-XZ);"M."
6OT=TT+XB+XZ
@
�SPACE
g�
h��BASKET
r6       �I%=8�9:�11,I%);Z$;WW$;"SHOPPING BASKET":�
|#�12,10);W$;",,,,,,,,,,,,,,,"  
�@%=&0002020A 
�"QE=(�((EE+PX+(EE*I))*100))/100
�?�6,11);UU$;"Petrol   (gallon)  :";RR$;"`";��K(QE)-7,11);QE
�"QD=(�((DD+AX+(DD*I))*100))/100
�@�6,12);UU$;"Scotch   (bottle)  :";RR$;"`";��K(QD)-7,12);QD 
�"QC=(�((CC+TX+(CC*I))*100))/100
�?�6,13);UU$;"Cigarettes   (20)  :";RR$;"`";��K(QC)-7,13);QC
�D=(�((D+(D*I))*100))/100
�?�6,14);UU$;"Milk       (pint)  :";RR$;"`";��K(D)-7,14);D  
�B�6,15);UU$;"Bread      (loaf)  :";RR$;"`";��K(D*2)-7,15);D*2 
�J�6,16);UU$;"Tea     (quarter)  :";RR$;"`";��K(D+(D/2))-7,16);D+(D/2) 
�	@%=10
�#�12,17);W$;",,,,,,,,,,,,,,,"  
�2�6,18);UU$;"Average Income     :";RR$;"`";�IN
�RR=�(RR+(RR*I))
�/�6,19);UU$;"Retail Price Index : ";RR$;RR 
� �0,21);QQ$;�39,�44) 
�
�SPACE
/�
0��REFORM
::       �I%=8�9:�8,I%);Z$;VV$;"REFORM OPPORTUNITIES":�
D%�9,10);V$;",,,,,,,,,,,,,,,,,,,,"
NV �2,12);"A";UU$;"Improve Health Service   ";RR$;":`      ";��K(II)-1,12);�II;"M" 
XV  �2,13);"B";UU$;"Build New Homes          ";RR$;":`      ";��K(JJ)-1,13);�JJ;"M"
bV  �2,14);"C";UU$;"Jobs for School Leavers  ";RR$;":`      ";��K(KK)-1,14);�KK;"M"
lV  �2,15);"D";UU$;"Build New Schools        ";RR$;":`      ";��K(LL)-1,15);�LL;"M"
vZ �2,16);"E";UU$;"Improve Road System      ";RR$;":`      ";��K(MM)-1,16);�MM;"M"     
�$ �2,18);"F";VV$;"When finished"
�  �0,20);QQ$;�39,�44)
�E   �0,21);UU$;NN$;VV$;PP$;"Enter PREFIX of reform to change  "  
��K$
��K$="F"��dwQ 
�7             � K$<"A"�K$>"F"�(7);�0,22)�(18):�tJQ
�H   �0,21)�(40);�2,21);UU$;PP$;"Enter AMOUNT you wish to allocate"  
��0,22)"        ";�0,21) 
��K$="A"�II:II=�II
��K$="B"�JJ:JJ=�JJ
��K$="C"�KK:KK=�KK
��K$="D"�LL:LL=�LL
��K$="E"�MM:MM=�MM
��0,22)"        "
�	�TzQ
��32,17);"________"  
��0,18);�(39)
XZ=II+JJ+KK+LL+MM
&�32,18);"`";��K(XZ)-1,18);XZ;"M" 
 �TIMER(.125)
�0,22);"     ":�CLR 
J=�(5):K=�(4):F=F+(F*I)
 �XZ>(200*K)�PO<10 PO=PO+10 
%
�S=3 �
*P� J=1 � II>(K*F)�J=2�JJ>(K*F)�J=3�KK>(K*F)�J=4�LL>(K*F)�J=5�MM>(K*F) � �D\R
[�
\1 O$="   A Social Reform has been recognised "
^$�X=1�5:Z=�(2):Z=Z-1:�0,-15,Z,7:�
a�X1=1�5
f�X=8�22
p           �0,X);VV$;O$:�X  
z�X=8�22
�     �0,X);RR$;O$:�X
��X1
� �CLR:�S<3S=S+1 
��
���ELECTION
�
Q=�(2)
��AWL=1�tPS
�5�I>.11+(J/100) � U>1.4+(J/10) � WAL<2 � OO=3 �WKE
�OO=1
�&�X=1�20:Z=�(3):Z=Z-1:�0,-15,Z,5:� 
�>�CLR:�0,5);QQ$;"sssssssssssssssssssssssssssssssssssssss" 
�G  �I%=3�4:�1,I%);Z$;"TERM:";T;"      ELECTION NIGHT     YEAR:";Y:�
�H�I%=6�7:�0,I%);Y$;Z$;"PERCENT          PARTY         SEATS   ":�   
�D�X=8�20�3:�0,X);QQ$;",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,":�
�# �I%=9�10:�12,I%);Z$;M1$;RR$:�
�$ �I%=12�13:�12,I%);Z$;M2$;RR$:�
�& �I%=15�16:�12,I%);Z$;M3$;RR$:�  
�% �I%=18�19:�12,I%);Z$;M4$;RR$:� 
�G1=0:G2=0:G3=0:G4=0
W1=300*(P/100)
�W1>300W1=300

W2=300-W1

	�SEAT
!�I<.12W1=�(50*((.11-I)/.10)) 
�I>.11W1=0
(W2=50-W1  
2	�SEAT
<�U<2.1W1=�(100*((2-U)/2))
F�U>2W1=0
PW2=100-W1:�SEAT
ZW1=S*50
dW2=150-W1:�SEAT
n�E<1.5W1=0
x�E>1.5W1=�(�(1.5-E)*100)
��E>2.1W1=50
�W2=50-W1:�SEAT
��REELECT
��
�
��SEAT
��X
��X=1�W2
�QE=�(10)
�   �QE<8�Q=1G1=G1+1
�   �QE<8�Q=2G2=G2+1
�   �QE>7�QE<10�Q=1G2=G2+1 
��QE>7�QE<10�Q=2 G1=G1+1 
��QE=10G3=G3+1  
��TOT
��X
�X=1�W1
G4=G4+1
�TOT
"�X
,�
r	��TOT
|#  �I%=9�10:�K(G4)-2,I%);G4:� 
�# �I%=12�13:�K(G3)-2,I%);G3:� 
�% �I%=15�16:�K(G2)-2,I%);G2:�   
�# �I%=18�19:�K(G1)-2,I%);G1:� 
�#  � G1+G2+G3+G4>550��PERCENT   
��
�
��REELECT
�G5=G1+G2+G3+G4
" �G1>(G5/2)�LO$=M4$:N=18:�LOSE
" �G2>(G5/2)�LO$=M3$:N=15:�LOSE
% �G3>(G5/2)�LO$=M2$:N=12:�LOSE   
�G4>(G5/2)�WIN:�TlA
&5   �G1+G2>G5/2 LO$=M4$:LP$=M3$:N=18:O=15:�COAL   
03   �G1+G3>G5/2 LO$=M4$:LP$=M2$:N=18:O=12:�COAL 
:3   �G2+G3>G5/2 LO$=M3$:LP$=M2$:N=15:O=12:�COAL 
<  �NOGOV:�
?�WIN:�TlA  
C�
D
��COAL
N<   �I%=3 � 4:�9,I%);Z$;PP$;"      COALITION    ";OO$:� 
X=   �I%=N � N+1:�11,I%);PP$:�:�I%=O � O+1:�11,I%);PP$:� 
b �X=1�10:Z=�(2):�0,-15,Z,5:� 
�  �TIMER(1):�SPACE:�
��
���NOGOV
�| �0,18);�160;�5,19);YY$;"No government can be formed";�2,20);SS$;PP$;"THERE MUST BE A FUTHER ELECTION":�0,-15,2,20:OO=3
�$�SPACE:�:�SETUP:�RES:�ELECTION:�
p
��LOSE
z �I%=N � N+1:�11,I%);PP$:�
�=   �I%=3 � 4:�9,I%);Z$;PP$;"    R E S U L T      ";OO$:�
�  �X=1�10:Z=�(2):�0,-15,Z,5:�
��SPACE:�:�
d
��PERCENT
nG5=G4/(G1+G2+G3+G4)*100
sG6=G1/(G1+G2+G3+G4)*100
xG7=G2/(G1+G2+G3+G4)*100 
}G8=G3/(G1+G2+G3+G4)*100
�-  �I%=9�10:�K(G5)-34,I%);Z$;�G5;"  ":� 
�.  �I%=12�13:�K(G8)-34,I%);Z$;�G8;"  ":� 
�/  �I%=15�16:�K(G7)-34,I%);Z$;�G7;"  ":�  
�0  �I%=18�19:�K(G6)-34,I%);Z$;�G6;"  ":�   
W�
X
��WIN 
]>   �I%=3 � 4:�9,I%);Z$;PP$;"    R E S U L T      ";OO$:� 
b$ T=T+1:S=0:PO=0:Y=1:WAL=2:AWL=0 
l�I%=9 � 10:�11,I%);PP$:� 
p(  �X=1�30:Z=�(2):Z=Z-1:�0,-15,Z,5:� 
q2  O$=">>>> E L E C T E D  E L E C T E D <<<< "
v8�G4>480 O$="** L A N D S L I D E  V I C T O R Y ** "
�F�X1=1�10:�X=3�20:�0,X);WW$;O$:�X:�X2=3�20:�0,X2);RR$;O$:�X2:�X1 
�  �SPACE:�QUESTB:�TlA:� 
?�
@��TIMER(X)
J�Z
OZ=�
T���-Z>X*1000
^�
h��PARTY
rL1$="�  Conservative  "
|L2$="�    Labour   "
�L3$="    �Liberal   "
�L4$="�Social�Democrat"
��
#(��SETUP
#-  A=�(40-(10+�A$)):A=A/2 
#2�
#A2     �I%=0�1:�A,I%);Z$;"RT HON ";A$;" PM";:� 
#C9 �0,2);QQ$;"sssssssssssssssssssssssssssssssssssssss"
#F9 �5,3);UU$;"Term";RR$;":";�25,3);UU$;"Year";RR$;":" 
#PE �0,4);UU$;"Inflation";RR$;":";�17,4);UU$;"Unemployment";RR$;":"
#ZD �2,5);UU$;"Reforms";RR$;":";�16,5);UU$;"Exchange Rate";RR$;":"
#_@ �1,6);UU$;"Pop.Rtng";RR$;":";�16,6);UU$;"Acc.Bal";RR$;":`"
#d9 �0,7);QQ$;",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,"
#��
#�
��BUDGETA
#�9       �I%=8�9:�10,I%);Z$;UU$;"BUDGET DAY ]TAXES[":�
#�$�11,10);U$;",,,,,,,,,,,,,,,,,,"
$�IX<0.01 IX=0  
$
�CX<0.01 CX=0
$�VX<0.01 VX=0
$X    �8,12);"A";VV$;"Income      Tax";RR$;":          ";��K(IX*100)-9,12);IX*100;"%"
$V  �8,13);"B";VV$;"Corporation Tax";RR$;":          ";��K(CX*100)-9,13);CX*100;"%"
$Z    �8,14);"C";VV$;"Value Added Tax";RR$;":          ";��K(VX*100)-9,14);VX*100;"%"  
$@%=&0002020A 
$"K  �8,16);"D";UU$;"Tobacco     Tax";RR$;":`          ";��K(TX)-9,16);TX
$,L  �8,17);"E";UU$;"Alcohol     Tax";RR$;":`          ";��K(AX)-9,17);AX 
$6Q  �8,18);"F";UU$;"Petroleum   Tax";RR$;":`          ";��K(PX)-9,18);PX      
$;	@%=10
$@+     �8,19);"G";VV$;"No more changes" 
$E �0,20);QQ$;�39,�44) 
$JB   �0,21);UU$;NN$;VV$;PP$;"    Enter PREFIX of tax change   "
$T�K$
$Y�K$="G"��twd  
$^:             � K$<"A"�K$>"G"�(7);�0,22)�(18):�DJd   
$hD   �0,21)�(40);�3,21);UU$;PP$;"Enter future RATE then <RETURN>"
$m�0,22)"        ";�0,21) 
$r�K$="A"�IX:IX=IX/100
$t�K$="B"�CX:CX=CX/100
$v�K$="C"�VX:VX=VX/100
$x�K$="D"�TX
$z�K$="E"�AX 
$|�K$="F"�PX
$��0,22)"        "
$�	�dzc
$��
$�
��BUDGETB
$�@       �I%=8�9:�8,I%);Z$;SS$;"BUDGET DAY ]BENEFITS[":�     
$�&�9,10);S$;",,,,,,,,,,,,,,,,,,,,,"
$�@%=&0002020A
$�M   �4,12);"A";YY$;"Child Allowance     ";RR$;":`      ";��K(FF)-6,12);FF
$�N   �4,14);"B";YY$;"Old Age Pension     ";RR$;":`      ";��K(GG)-6,14);GG 
$�M   �4,16);"C";YY$;"Unemployment Benefit";RR$;":`      ";��K(HH)-6,16);HH
$�	@%=10
$�)     �4,19)"D";SS$;"No more changes"
$�  �0,20);QQ$;�39,�44)
$�@   �0,21);SS$;NN$;UU$;PP$;"    Enter PREFIX of tax change" 
%�K$ 
%�K$="D"��De
%7             � K$<"A"�K$>"D"�(7);�0,22)�(18):�d~d
%&C  �0,21)�(40);�2,21);UU$;PP$;"Enter future RATE then <RETURN>"
%0�0,22)"        ";�0,21) 
%:�K$="A"�FF
%?�K$="B"�GG
%X�K$="C"�HH
%]�0,22)"        " 
%b	�dBd
%�
'	��VAR
'�K$
'l Z$=�(141):Y$=�(&96):W$=�(&91):V$=�(&92):U$=�(&93):T$=�(&94):S$=�(&95):YY$=�(&86):TT$=�(&84):SS$=�(&85) 
'ZR$=�(&97):RR$=�(&87):PP$=�(136):OO$=�(137):NN$=�(157):VV$=�(&82):WW$=�(&81):UU$=�(&83)
'$(IX=.30:CX=.5:VX=.15:TX=.6:AX=4:PX=.8
'.(FF=5.5:GG=30:HH=28:PCM=0:WAL=2:AWL=0
'86T=1:G=0:I=.1:U=0:E=2:P=0:KT=1:COU=2:PCM=0:K=0:OO=0
'BF=100:B=0:OT=132000:S=0 
'LL=0:PO=0:C=55:FA=10
'VOP=12:CO=1000:AA=�(5)+98
'`IN=7450+�(10)*100
'j GS=4500:FP=4000:BS=144:TP=25
'tCC=.5:DD=3:EE=.7:VV=83000 
'~!XA=128000:XC=65:XZ=200:RR=100
'�D=.2:II=0:JJ=0:KK=0:LL=0
'�MM=0
'�Y=1
'��
)	��CLR
)	 �X
)   �X=8�22:�0,X);�(40):�
)�
*�
��CALC
+2XC=XC+(XC*I):XB=� ((FA*FF)+(OP*GG)+(U*HH)*52) 
+ XA=� (XA+(XA*I)):XD=FF+GG+HH
+�XD<=0 XD=0.001  
+XP=XA+XB:PP=15*(XD/XC)
+�PP>15PP=15
+ �XC>XD PP=0 
+%� AX<=0 AX=.001 
+&� TX<=0 TX=.001
+'� PX<=0 PX=.001
+**DD=DD+(DD*I):EE=EE+(EE*I):CC=CC+(CC*I)
+4 BS=(295+(T*5))*DD/AX
+>"�BS>(295+(T*5)) BS=(295+(T*5))
+H FP=(6000+(T*10))*CC/TX
+R&�FP>(6000+(T*10)) FP=(6000+(T*10))
+\GS=(6000+(T*50))*EE/PX
+f&�GS>(6000+(T*50)) GS=(6000+(T*50))
+pVV=VV+(VV*I):VT=�(VV*VX)
+z�VX>.19VT=(VT*(.19/VX))
+�BS=BS*AX:FP=FP*TX:GS=GS*PX
+�TS=�(BS+FP+GS)   
+��AX+PX+TX<0.01 TS=0 
+�%SS=�(200*((DD+EE+CC)/(AX+PX+TX)))
+��SS>190 SS=190
+��T<9XV=.165-(T/100)
+�XT=(�(4)*.01)+.47 
+�XT=XT-(.025*T) 
+��IX<=0 IX=.001
+��VX<=0 VX=.001
+��CX<=0 CX=.001
+�CQ=�(200*(XV/VX))
+��CQ>204CQ=204
+�CS=�(400*(XT/CX))  
+��CS>400CS=400
+�CO=200+CQ+SS+CS
+��CO>1000CO=1000
,�CX>.79CO=199-(CX*100)
,U=25-(CO*25/1000)
,U=(�(U*10))/10
,$�U<0U=�(3)*.1
,.2 AA=AA+(AA*I):IN=IN+(IN*I):IA=�((25-U)*IN*IX) 
,3�IX<.01 IA=0
,8CI=�(CO*AA*CX)
,=�CX<.01 CI=0
,BTT=VT+IA+CI+TS
,LI=(((TT+XB-(TT*I))/OT)-1)
,V�I<0I=0
,`I=I+((�(6)+T)*.01)  
,jL=L+(TT-XP-XZ)
,t�L<0I=I+(�L/100000)
,~!E=E-(E*I):E=E+.1+(�(10)*.01) 
,�E=(�(E*100))/100
,��E>3E=3
,��E<.5�E=.5+�(4)*.15 
,�PQ=20-(I*100)
,�
�PQ<0PQ=0
,�PR=25-(U*10)
,�
�PR<0PR=0
,�P=�(PO+PP+PQ+PR)
,��IX>.35+(K/100) B=T+1
,��B>1P=�(P/B)
,�	B=B-1
,��GG<(XC/3)P=�(17)+4
-�
.�	��RES
.��13,3);T 
.�k�32,3);PP$;Y:�SND:�32,3);OO$;Y;�12,4);"   ";�12,4);PP$;�(I*100);"%";OO$:�SND:�12,4);OO$;�(I*100);"%"
.�d�32,4);"    ";�32,4);PP$;U;"M.";OO$:�SND:�32,4);OO$;U;"M.";�12,5);PP$;S;OO$:�SND:�12,5);OO$;S
/�L<0IQ$=WW$ � IQ$=RR$
/@%=&0002020A 
/J�33,5);"      ";�32,5);PP$;"$";E;"/`":�SND:�32,5);OO$;"$";E;"/`";UU$
/		@%=10
/
L�12,6);"    ";�12,6);PP$;P;OO$:�SND:�12,6);OO$;P;�27,6);"           " 
/4�27,6);PP$;IQ$;�L"M."OO$:�SND:�27,6)OO$;IQ$;�L
0o�
2���SPACE
2�;�0,22);TT$;NN$;RR$;" �Press the SPACE BAR to continue"
2�� �(0)>" "� �d\r
2�
� � �=" "
2��0,22);�(40):� 
6���PROCD
6�8�0,22);RR$;NN$;"  ��PROCESSING DATA - Please Wait "
6��
:�	��WKE
:��CLR:J=�(4)
:�<�1,8);SS$;"W e e k s  t o  E l e c t i o n :";RR$;PP$;J
:��0,9);QQ$;�39,�44)
:�^�5,11);UU$;"A General Election must take ";�7,12);UU$;"place in";RR$;J;UU$;"weeks' time."
:�� J=1 �23,12);"'s"
:�O�4,14);"You now have the opportunity to","improve your POPULARITY rating."
:�7P=P-�PCM:�12,6);PP$;P;OO$:�SPACE:�12,6);OO$;P;OO$
:��COU=1 �D`{
:��0,11);�(240)
:���4,11);"You will have 1000 units to"'"    allocate and you should try to "'"    use these in areas which require "'"    immediate attention."
;l�4,16);"i.e if Law and Order has been a"'"    problem then allocate some units"'"    to this CATEGORY."
;(�SPACE:�0,11);�(160);�0,16);�(240) 
;r�4,11);"When you have allocated all your"'"    units an ammended POPULARITY "'"    rating will be displayed."
;$a�4,15);"You may keep trying different"'"    allocations each week until the"'"    ELECTION."
;.(�SPACE:�0,11);�(160);�0,15);�(240) 
;`J�0,11);�(160);�0,15);�(240):� I%=10�11:�14,I%);Z$;VV$;"MANIFESTO":� 
;j�14,12);QQ$;",,,,,,,,,"
;t2�4,12);VV$;"..Category..............Emphasis"
;~0PCM=0:UNI=1000:INF=0:UMP=0:HAL=0:LAW=0:AID=0
;�O�5,14);"A";UU$;"Inflation       ";RR$;":             ";��K(INF)-4,14);INF 
;�O�5,15);"B";UU$;"Unemployment    ";RR$;":             ";��K(UMP)-4,15);UMP 
;�Q�5,16);"C";UU$;"Overseas Aid    ";RR$;":             ";��K(AID)-4,16);AID   
;�S�5,17);"D";UU$;"Law and Order   ";RR$;":             ";��K(LAW)-4,17);LAW     
;�$�5,18);"E";VV$;"When finished" 
;�L�0,19);�(80);�0,19);SS$;"     You have";UU$;UNI;SS$;"units to allocate"
;�@� UNI=0 �0,19);SS$;"  ALL YOUR UNITS HAVE BEEN ALLOCATED  "
;�D   �0,21);UU$;NN$;VV$;PP$;"    Enter PREFIX of category      " 
;��K$
;� � K$="E"�0,22);"    ":�tL|
;�*� K$<"A"�K$>"E"�(7);�0,22)�(18):�tp{
;�F   �0,21)�(40);�2,21);UU$;PP$;"Enter NUMBER of units to allocate"
;��0,22);"       ";�0,21)
;�� K$="A" �INF:INF=�INF
;�� K$="B" �UMP:UMP=�UMP
;�� K$="C" �AID:AID=�AID
<� K$="D" �LAW:LAW=�LAW
<�0,22)"        "
<
�EML=INF+UMP+AID+LAW:� EML>1000 �0,21);WW$;"Insufficient units  -  RE-ENTER  -    ";�7:�TIMER(.2):�D~{ � UNI=1000-EML:� �tH{
<�Q� I>.11+(J/100) � I<.17+(J/100) PCM=PCM+(((INF/250)*(((.25+(J/100))-I)*100)))
<�Q� I>.17+(J/100) � I<.25+(J/100) PCM=PCM+(((INF/250)*(((.25+(J/100))-I)*100)))
<�(�I>=.25+(J/100) PCM=PCM+(INF/250)*5 
<�J�U>1.4+(J/10) � U<2.6+(J/10) PCM=PCM+(((UMP/250)*(U-(1.4+(J/10))))*10)
<�K�U>2.6+(J/10) � U<3.6+(J/10) PCM=PCM+(((UMP/250)*(((4+(J/100))-U)*10)))
<�%�U>3.6+(J/10) PCM=PCM+(UMP/250)*5
<�5� I<.12+(J/100)� U<1.9+(J/10) PCM=PCM+(AID/250)*K
<�%� WAL=1 � PCM=PCM+(LAW/250)*(K+1)
<�%� WAL=0 � PCM=PCM+(LAW/150)*(K+1)
<�SP=�(P+PCM):�12,6);PP$;P;OO$:�TIMER(.2):�12,6);OO$;P;OO$:�0,10);�(240);�(240)
<�J=J-1:�J=0 COU=2:PCM=0:�
<�+�6,14);UU$;"Do you wish to try again?"
<�C   �0,21);UU$;NN$;TT$;PP$;"    Key in Y or N then  <RETURN>  "
=6�B$:�B$="Y" �0,21);�(40);�0,14);�(40):COU=1:�tlz
=�B$="N" �CLR:COU=2:PCM=0:�
="�7;�0,22);"    ";�0,21):�dz|
>�
N 	��SND
N*�0,-10,0,3:�0,-10,1,3
N/�TIMER(.15):� 
N�
��SNDA
N��0,-15,2,6:�TIMER(.15):�  
R��QUESTB:�
U��11,10);"Do you wish to:"
U��11,13);"A.Continue now"
V�11,15);"B.Save to tape"
V�11,17);"C.Retire" 
V@�0,20);�(131);�157;�130;"    ENTER A-C THEN PRESS <RETURN>"
V"0�B$:�0,21);"    ":�B$<"A"�B$>"C" �7:�PXV 
V,�B$="A" �:�
V6 �B$="B" �:�VARSAVE:�:�`pU:�
V@�B$="C" �:�
VJ�
]���VARSAVE:�
]�2�2,10);"SET UP YOUR CASSETTE RECORDER WITH A"
]�5�2,14);"A BLANK TAPE AND THEN PRESS <RETURN>"   
]��B$
a�X=�("VARS")
a��#X,M1$,M2$,M3$,M4$,A$,QQ$
a��#X,IX,CX,VX,TX,AX,PX
a��#X,WAL,FF,GG,HH,PCM,AWL
a��#X,T,G,I,U,E,P,KT,COU
a��#X,K,OO,F,B,OT,S
a��#X,L,PO,C,FA,OP,CO
a��#X,AA,IN,GS,FP,BS,TP
b�#X,CC,DD,EE,VV,XB
b)�#X,XA,XC,XZ,RR,XD,D,II,JJ,KK,LL,MM,Y
b�#X,VT,IA,CI,TS
b �#X,TT,XP,XZ
b*	�#X:�
e�
��VARLOAD
e�5�:�2,10);"LOAD YOUR CASSETTE RECORDER WITH THE" 
e�1�2,14);"TAPE CONTAINING THE SAVED VARIABLES"
e�3�1,18);"THEN WHEN ALL IS READY PRESS <RETURN>"
e��B$
fX�B$(200)
fbX=�("VARS")
fl�#X,M1$,M2$,M3$,M4$,A$,QQ$
fv�#X,IX,CX,VX,TX,AX,PX 
f��#X,WAL,FF,GG,HH,PCM,AWL 
f��#X,T,G,I,U,E,P,KT,COU
f��#X,K,OO,F,B,OT,S  
f��#X,L,PO,C,FA,OP,CO
f��#X,AA,IN,GS,FP,BS,TP 
f��#X,CC,DD,EE,VV,XB
f�+�#X,XA,XC,XZ,RR,XD,D,II,JJ,KK,LL,MM,Y  
f� �#X,VT,IA,CI,TS,TT,XP,XZ    
f�	�#X:�
}ݤK(J)=39-��(�J) 
�

00000000  0d 00 01 1b f4 20 47 52  45 41 54 20 42 52 49 54  |..... GREAT BRIT|
00000010  41 49 4e 20 4c 49 4d 49  54 45 44 0d 00 02 1e f4  |AIN LIMITED.....|
00000020  20 43 4f 50 59 52 49 47  48 54 20 53 49 4d 4f 4e  | COPYRIGHT SIMON|
00000030  20 57 20 48 45 53 53 45  4c 0d 00 03 14 f4 20 53  | W HESSEL..... S|
00000040  4f 46 54 57 41 52 45 20  20 38 2f 38 32 0d 00 04  |OFTWARE  8/82...|
00000050  24 f4 20 31 35 20 4c 59  54 48 41 4d 20 43 4f 55  |$. 15 LYTHAM COU|
00000060  52 54 2c 43 41 52 44 57  45 4c 4c 20 43 52 45 53  |RT,CARDWELL CRES|
00000070  2e 0d 00 05 24 f4 20 53  55 4e 4e 49 4e 47 48 49  |....$. SUNNINGHI|
00000080  4c 4c 2c 42 45 52 4b 53  48 49 52 45 2c 45 4e 47  |LL,BERKSHIRE,ENG|
00000090  4c 41 4e 44 2e 0d 00 0a  17 2a 4b 45 59 31 30 22  |LAND.....*KEY10"|
000000a0  4f 4c 44 7c 4d 20 52 55  4e 7c 4d 22 0d 00 28 16  |OLD|M RUN|M"..(.|
000000b0  eb 37 3a ef 32 33 3b 38  32 30 32 3b 30 3b 30 3b  |.7:.23;8202;0;0;|
000000c0  30 3b 0d 00 32 3e f2 56  41 52 3a 20 db 3a e3 49  |0;..2>.VAR: .:.I|
000000d0  25 3d 31 31 b8 31 32 3a  f1 8a 38 2c 49 25 29 3b  |%=11.12:..8,I%);|
000000e0  56 56 24 3b 5a 24 3b 22  47 52 45 41 54 20 42 52  |VV$;Z$;"GREAT BR|
000000f0  49 54 41 49 4e 20 4c 49  4d 49 54 45 44 22 3a ed  |ITAIN LIMITED":.|
00000100  0d 00 37 34 f1 8a 31 2c  31 39 29 3b 22 43 6f 70  |..74..1,19);"Cop|
00000110  79 72 69 67 68 74 20 53  69 6d 6f 6e 20 57 20 48  |yright Simon W H|
00000120  65 73 73 65 6c 20 53 6f  66 74 77 61 72 65 20 38  |essel Software 8|
00000130  2f 38 32 22 0d 00 3c 0f  f2 54 49 4d 45 52 28 2e  |/82"..<..TIMER(.|
00000140  32 35 29 0d 00 45 0a 51  51 24 3d 56 24 0d 00 46  |25)..E.QQ$=V$..F|
00000150  05 db 0d 00 50 0a f2 51  55 45 53 54 0d 00 64 34  |....P..QUEST..d4|
00000160  f1 8a 31 2c 33 29 3b 55  55 24 3b 22 45 4e 54 45  |..1,3);UU$;"ENTE|
00000170  52 20 59 4f 55 52 20 4e  41 4d 45 20 28 4d 41 58  |R YOUR NAME (MAX|
00000180  20 32 35 20 43 48 41 52  41 43 54 45 52 53 29 22  | 25 CHARACTERS)"|
00000190  0d 00 6e 07 e8 41 24 0d  00 73 10 e7 20 41 24 3d  |..n..A$..s.. A$=|
000001a0  22 22 e5 8d 44 64 40 0d  00 78 75 e7 20 a9 20 41  |""..Dd@..xu. . A|
000001b0  24 3e 32 35 20 f1 bd 28  37 29 3b 8a 31 2c 35 29  |$>25 ..(7);.1,5)|
000001c0  3b a9 41 24 2d 32 35 3b  22 20 54 4f 4f 20 4d 41  |;.A$-25;" TOO MA|
000001d0  4e 59 20 43 48 41 52 41  43 54 45 52 53 20 50 4c  |NY CHARACTERS PL|
000001e0  45 41 53 45 20 52 45 2d  45 4e 54 45 52 22 3a f1  |EASE RE-ENTER":.|
000001f0  8a 31 2c 34 29 3b 22 20  20 20 20 20 20 20 20 20  |.1,4);"         |
00000200  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000210  3c 20 20 20 22 3a e5 8d  44 64 40 20 0d 00 82 0a  |<   ":..Dd@ ....|
00000220  f1 89 28 34 30 29 0d 00  8c 05 db 0d 00 96 37 f1  |..(40)........7.|
00000230  8a 31 2c 33 29 3b 55 55  24 3b 22 57 48 49 43 48  |.1,3);UU$;"WHICH|
00000240  20 50 41 52 54 59 20 44  4f 20 59 4f 55 20 57 49  | PARTY DO YOU WI|
00000250  53 48 20 54 4f 20 52 45  50 52 45 53 45 4e 54 3a  |SH TO REPRESENT:|
00000260  2d 22 0d 00 9b 0a f2 50  41 52 54 59 0d 00 a0 43  |-".....PARTY...C|
00000270  f1 27 27 27 27 8a 31 30  29 22 41 2e 22 3b 4c 31  |.''''.10)"A.";L1|
00000280  24 3b 27 27 8a 31 30 29  22 42 2e 22 3b 4c 32 24  |$;''.10)"B.";L2$|
00000290  3b 27 27 8a 31 30 29 22  43 2e 22 3b 4c 33 24 3b  |;''.10)"C.";L3$;|
000002a0  27 27 8a 31 30 29 22 44  2e 22 3b 4c 34 24 20 0d  |''.10)"D.";L4$ .|
000002b0  00 aa 31 f1 27 27 27 27  8a 37 29 3b 56 56 24 3b  |..1.''''.7);VV$;|
000002c0  50 50 24 3b 22 45 4e 54  45 52 20 41 2d 44 20 54  |PP$;"ENTER A-D T|
000002d0  48 45 4e 20 52 45 54 55  52 4e 22 3a e8 4b 24 20  |HEN RETURN":.K$ |
000002e0  0d 00 b4 28 20 20 20 e7  4b 24 3d 22 41 22 84 4b  |...(   .K$="A".K|
000002f0  24 3d 22 42 22 84 4b 24  3d 22 43 22 84 4b 24 3d  |$="B".K$="C".K$=|
00000300  22 44 22 e5 8d 74 7e 40  0d 00 b9 1d 20 20 20 20  |"D"..t~@....    |
00000310  20 20 20 f1 bd 28 31 32  29 3a f1 bd 28 37 29 3a  |   ..(12):..(7):|
00000320  e5 8d 74 56 40 0d 00 be  34 20 20 e7 20 4b 24 3d  |..tV@...4  . K$=|
00000330  22 41 22 4d 31 24 3d 4c  31 24 3a 4d 32 24 3d 4c  |"A"M1$=L1$:M2$=L|
00000340  32 24 3a 4d 33 24 3d 4c  33 24 3a 4d 34 24 3d 4c  |2$:M3$=L3$:M4$=L|
00000350  34 24 3a 51 51 24 3d 54  24 0d 00 c8 35 20 20 20  |4$:QQ$=T$...5   |
00000360  e7 20 4b 24 3d 22 42 22  4d 31 24 3d 4c 32 24 3a  |. K$="B"M1$=L2$:|
00000370  4d 32 24 3d 4c 31 24 3a  4d 33 24 3d 4c 33 24 3a  |M2$=L1$:M3$=L3$:|
00000380  4d 34 24 3d 4c 34 24 3a  51 51 24 3d 57 24 0d 00  |M4$=L4$:QQ$=W$..|
00000390  d2 35 20 20 20 e7 20 4b  24 3d 22 43 22 4d 31 24  |.5   . K$="C"M1$|
000003a0  3d 4c 33 24 3a 4d 32 24  3d 4c 31 24 3a 4d 33 24  |=L3$:M2$=L1$:M3$|
000003b0  3d 4c 32 24 3a 4d 34 24  3d 4c 34 24 3a 51 51 24  |=L2$:M4$=L4$:QQ$|
000003c0  3d 55 24 0d 00 dc 35 20  20 20 e7 20 4b 24 3d 22  |=U$...5   . K$="|
000003d0  44 22 4d 31 24 3d 4c 34  24 3a 4d 32 24 3d 4c 31  |D"M1$=L4$:M2$=L1|
000003e0  24 3a 4d 33 24 3d 4c 32  24 3a 4d 34 24 3d 4c 33  |$:M3$=L2$:M4$=L3|
000003f0  24 3a 51 51 24 3d 59 24  0d 01 2c 0b f2 53 45 54  |$:QQ$=Y$..,..SET|
00000400  55 50 20 0d 01 2d 11 e7  54 3d 31 84 59 3e 31 e5  |UP ..-..T=1.Y>1.|
00000410  8d 44 5e 41 0d 01 2e 0e  e7 54 3e 31 20 e5 8d 44  |.D^A.....T>1 ..D|
00000420  5e 41 0d 01 36 1a e7 55  3e 33 2e 38 20 80 20 57  |^A..6..U>3.8 . W|
00000430  41 4c 3d 31 20 f2 52 49  4f 54 42 20 0d 01 3b 34  |AL=1 .RIOTB ..;4|
00000440  57 42 3d b3 28 37 29 3a  57 42 3d 57 42 2d 28 a8  |WB=.(7):WB=WB-(.|
00000450  55 29 3a e7 20 57 42 3c  3d 31 20 80 20 57 41 4c  |U):. WB<=1 . WAL|
00000460  3d 32 20 80 20 59 3e 31  20 f2 52 49 4f 54 41 20  |=2 . Y>1 .RIOTA |
00000470  0d 01 5e 12 e7 54 3d 31  84 59 3e 31 f2 43 41 4c  |..^..T=1.Y>1.CAL|
00000480  43 20 0d 01 63 17 e7 20  58 43 2f 58 44 3e 31 2e  |C ..c.. XC/XD>1.|
00000490  34 20 f2 4c 4f 53 4f 43  20 0d 01 68 15 f2 43 4c  |4 .LOSOC ..h..CL|
000004a0  52 3a f2 50 52 4f 43 44  3a f2 52 45 53 20 0d 01  |R:.PROCD:.RES ..|
000004b0  72 17 20 20 f1 8a 30 2c  37 29 3a f2 43 4c 52 3a  |r.  ..0,7):.CLR:|
000004c0  f2 50 52 4f 46 0d 01 86  19 20 20 f1 8a 30 2c 37  |.PROF....  ..0,7|
000004d0  29 3a f2 43 4c 52 3a f2  42 41 53 4b 45 54 0d 01  |):.CLR:.BASKET..|
000004e0  8b 12 e7 59 3d 35 8c f2  45 4c 45 43 54 49 4f 4e  |...Y=5..ELECTION|
000004f0  0d 01 90 19 20 f1 8a 30  2c 37 29 3a f2 43 4c 52  |.... ..0,7):.CLR|
00000500  3a f2 42 55 44 47 45 54  41 0d 01 9a 1a 20 20 f1  |:.BUDGETA....  .|
00000510  8a 30 2c 37 29 3a f2 43  4c 52 3a f2 42 55 44 47  |.0,7):.CLR:.BUDG|
00000520  45 54 42 0d 01 9f 18 20  f1 8a 30 2c 37 29 3a f2  |ETB.... ..0,7):.|
00000530  43 4c 52 3a f2 52 45 46  4f 52 4d 0d 01 a4 18 59  |CLR:.REFORM....Y|
00000540  3d 59 2b 31 3a e7 49 58  3e 2e 35 20 f2 52 45 56  |=Y+1:.IX>.5 .REV|
00000550  4f 4c 54 0d 01 ae 09 e5  8d 54 76 41 0d 04 88 1e  |OLT......TvA....|
00000560  20 53 53 3d a8 28 32 30  30 2a 28 28 54 53 2f 31  | SS=.(200*((TS/1|
00000570  30 30 30 29 2f 31 30 29  29 20 0d 04 b0 0b dd f2  |000)/10)) ......|
00000580  51 55 45 53 54 0d 04 ba  31 f1 8a 32 2c 31 30 29  |QUEST...1..2,10)|
00000590  3b 22 49 46 20 59 4f 55  20 57 49 53 48 20 54 4f  |;"IF YOU WISH TO|
000005a0  20 4c 4f 41 44 20 41 20  50 52 45 56 49 4f 55 53  | LOAD A PREVIOUS|
000005b0  20 47 41 4d 45 22 0d 04  c4 30 f1 8a 32 2c 31 34  | GAME"...0..2,14|
000005c0  29 3b 22 45 4e 54 45 52  20 20 59 20 20 41 4e 44  |);"ENTER  Y  AND|
000005d0  20 54 48 45 4e 20 50 52  45 53 53 20 20 3c 52 45  | THEN PRESS  <RE|
000005e0  54 55 52 4e 3e 22 0d 04  ce 2a f1 8a 35 2c 31 38  |TURN>"...*..5,18|
000005f0  29 3b 22 49 46 20 4e 4f  54 20 4a 55 53 54 20 20  |);"IF NOT JUST  |
00000600  50 52 45 53 53 20 20 3c  52 45 54 55 52 4e 3e 22  |PRESS  <RETURN>"|
00000610  0d 04 d8 23 e8 42 24 3a  e7 20 42 24 3d 22 59 22  |...#.B$:. B$="Y"|
00000620  20 8c 20 f2 56 41 52 4c  4f 41 44 3a db 3a e5 8d  | . .VARLOAD:.:..|
00000630  54 6c 41 0d 04 e2 07 db  3a e1 0d 05 dc 0a dd f2  |TlA.....:.......|
00000640  4e 45 57 53 0d 05 de 0d  e3 20 5a 3d 31 20 b8 20  |NEWS..... Z=1 . |
00000650  35 0d 05 e1 23 e3 49 25  3d 38 b8 39 3a f1 8a 30  |5...#.I%=8.9:..0|
00000660  2c 49 25 29 3b 55 55 24  3b 4e 4e 24 3b 89 28 33  |,I%);UU$;NN$;.(3|
00000670  39 29 3a ed 0d 05 e6 4f  e3 58 3d 31 b8 33 30 3a  |9):....O.X=1.30:|
00000680  e3 49 25 3d 38 b8 39 3a  f1 8a 58 2c 49 25 29 3b  |.I%=8.9:..X,I%);|
00000690  5a 24 3b 22 83 9d 81 2a  4e 45 57 53 20 22 3a ed  |Z$;"...*NEWS ":.|
000006a0  49 25 3a e3 49 25 3d 38  b8 39 3a f1 8a 30 2c 49  |I%:.I%=8.9:..0,I|
000006b0  25 29 3b 55 55 24 3b 4e  4e 24 3a ed 49 25 3a ed  |%);UU$;NN$:.I%:.|
000006c0  58 20 20 0d 05 e8 19 d4  30 2c 2d 31 30 2c 31 2c  |X  .....0,-10,1,|
000006d0  32 3a d4 30 2c 2d 31 30  2c 30 2c 32 0d 05 eb 06  |2:.0,-10,0,2....|
000006e0  ed 5a 0d 05 f0 05 e1 0d  07 d0 10 dd f2 4c 4f 53  |.Z...........LOS|
000006f0  4f 43 3a f2 43 4c 52 0d  07 da 09 f2 4e 45 57 53  |OC:.CLR.....NEWS|
00000700  0d 07 df 0e f2 54 49 4d  45 52 28 2e 31 29 0d 07  |.....TIMER(.1)..|
00000710  e4 35 e3 20 49 25 3d 31  31 b8 20 31 32 3a f1 8a  |.5. I%=11. 12:..|
00000720  31 31 2c 49 25 29 3b 50  50 24 3b 57 57 24 3b 5a  |11,I%);PP$;WW$;Z|
00000730  24 3b 22 57 20 41 20 52  20 4e 20 49 20 4e 20 47  |$;"W A R N I N G|
00000740  22 3a ed 0d 07 ee 69 f1  8a 36 2c 31 35 29 3b 55  |":....i..6,15);U|
00000750  55 24 3b 22 53 6f 63 69  61 6c 20 42 65 6e 65 66  |U$;"Social Benef|
00000760  69 74 73 20 61 72 65 20  66 61 6c 6c 69 6e 67 22  |its are falling"|
00000770  27 27 3b 55 55 24 3b 22  20 20 20 20 20 20 20 20  |'';UU$;"        |
00000780  62 61 64 6c 79 20 62 65  68 69 6e 64 20 49 4e 46  |badly behind INF|
00000790  4c 41 54 49 4f 4e 22 3a  d4 30 2c 2d 31 35 2c 32  |LATION":.0,-15,2|
000007a0  2c 32 30 3a f2 53 50 41  43 45 3a e1 0d 08 34 0b  |,20:.SPACE:...4.|
000007b0  dd f2 52 49 4f 54 41 0d  08 39 08 f2 43 4c 52 0d  |..RIOTA..9..CLR.|
000007c0  08 3e 09 f2 4e 45 57 53  0d 08 43 0e f2 54 49 4d  |.>..NEWS..C..TIM|
000007d0  45 52 28 2e 31 29 0d 08  48 76 f1 8a 35 2c 31 34  |ER(.1)..Hv..5,14|
000007e0  29 3b 56 56 24 3b 22 53  45 56 45 52 45 20 52 49  |);VV$;"SEVERE RI|
000007f0  4f 54 49 4e 47 20 49 4e  20 4d 41 4e 59 20 4c 41  |OTING IN MANY LA|
00000800  52 47 45 22 27 27 27 3b  56 56 24 3b 22 20 20 20  |RGE"''';VV$;"   |
00000810  20 43 49 54 49 45 53 20  4f 43 43 55 52 52 45 44  | CITIES OCCURRED|
00000820  20 44 55 52 49 4e 47 20  54 48 45 20 59 45 41 52  | DURING THE YEAR|
00000830  22 3a 57 41 4c 3d 31 3a  d4 30 2c 2d 31 35 2c 32  |":WAL=1:.0,-15,2|
00000840  2c 32 30 3a f2 53 50 41  43 45 3a e1 0d 08 98 10  |,20:.SPACE:.....|
00000850  dd f2 52 49 4f 54 42 3a  f2 43 4c 52 0d 08 a2 14  |..RIOTB:.CLR....|
00000860  f2 4e 45 57 53 3a f2 54  49 4d 45 52 28 2e 31 29  |.NEWS:.TIMER(.1)|
00000870  0d 08 ac ae f1 8a 35 2c  31 32 29 3b 59 59 24 3b  |......5,12);YY$;|
00000880  22 4c 61 77 20 61 6e 64  20 6f 72 64 65 72 20 68  |"Law and order h|
00000890  61 73 20 62 72 6f 6b 65  6e 20 64 6f 77 6e 22 3b  |as broken down";|
000008a0  8a 34 2c 31 35 29 3b 53  53 24 3b 50 50 24 3b 22  |.4,15);SS$;PP$;"|
000008b0  41 20 47 45 4e 45 52 41  4c 20 45 4c 45 43 54 49  |A GENERAL ELECTI|
000008c0  4f 4e 20 4d 55 53 54 20  54 41 4b 45 20 22 27 27  |ON MUST TAKE "''|
000008d0  3b 53 53 24 3b 50 50 24  3b 22 20 20 20 20 20 20  |;SS$;PP$;"      |
000008e0  20 20 20 50 4c 41 43 45  20 49 4d 4d 45 44 49 41  |   PLACE IMMEDIA|
000008f0  54 45 4c 59 22 3a d4 30  2c 2d 31 35 2c 32 2c 33  |TELY":.0,-15,2,3|
00000900  35 3a f2 53 50 41 43 45  3a 41 57 4c 3d 31 3a 57  |5:.SPACE:AWL=1:W|
00000910  41 4c 3d 30 3a f2 45 4c  45 43 54 49 4f 4e 0d 08  |AL=0:.ELECTION..|
00000920  b1 05 e1 0d 08 fc 11 dd  f2 52 45 56 4f 4c 54 3a  |.........REVOLT:|
00000930  f2 43 4c 52 0d 09 06 14  f2 4e 45 57 53 3a f2 54  |.CLR.....NEWS:.T|
00000940  49 4d 45 52 28 2e 31 29  0d 09 10 65 f1 8a 33 2c  |IMER(.1)...e..3,|
00000950  31 33 29 3b 55 55 24 3b  22 50 61 72 74 79 20 57  |13);UU$;"Party W|
00000960  65 74 73 20 68 61 76 65  20 72 65 62 65 6c 6c 65  |ets have rebelle|
00000970  64 20 20 61 67 61 69 6e  73 74 22 27 27 3b 55 55  |d  against"'';UU|
00000980  24 3b 22 20 20 20 20 20  20 22 3b 49 58 2a 31 30  |$;"      ";IX*10|
00000990  30 3b 22 20 50 45 52 43  45 4e 54 20 49 6e 63 6f  |0;" PERCENT Inco|
000009a0  6d 65 20 54 61 78 20 72  61 74 65 22 20 0d 09 1a  |me Tax rate" ...|
000009b0  12 49 58 3d 2e 34 30 2b  28 4b 2a 2e 30 32 29 0d  |.IX=.40+(K*.02).|
000009c0  09 24 5d f1 8a 33 2c 31  38 29 3b 53 53 24 3b 22  |.$]..3,18);SS$;"|
000009d0  49 74 20 6d 75 73 74 20  62 65 20 72 65 64 75 63  |It must be reduc|
000009e0  65 64 20 74 6f 20 22 3b  49 58 2a 31 30 30 3b 20  |ed to ";IX*100; |
000009f0  22 20 50 45 52 43 45 4e  54 22 3a d4 30 2c 2d 31  |" PERCENT":.0,-1|
00000a00  35 2c 31 2c 31 30 3a d4  30 2c 2d 31 35 2c 32 2c  |5,1,10:.0,-15,2,|
00000a10  32 30 3a f2 53 50 41 43  45 3a e1 20 0d 0f a0 0a  |20:.SPACE:. ....|
00000a20  dd f2 50 52 4f 46 0d 0f  aa 37 20 20 20 20 20 20  |..PROF...7      |
00000a30  20 e3 49 25 3d 38 b8 39  3a f1 8a 31 31 2c 49 25  | .I%=8.9:..11,I%|
00000a40  29 3b 5a 24 3b 56 56 24  3b 22 43 4f 55 4e 54 52  |);Z$;VV$;"COUNTR|
00000a50  59 20 50 52 4f 46 49 4c  45 22 3a ed 20 0d 0f b4  |Y PROFILE":. ...|
00000a60  24 f1 8a 31 32 2c 31 30  29 3b 56 24 3b 22 2c 2c  |$..12,10);V$;",,|
00000a70  2c 2c 2c 2c 2c 2c 2c 2c  2c 2c 2c 2c 2c 22 20 20  |,,,,,,,,,,,,,"  |
00000a80  20 0d 0f be 25 f1 8a 39  2c 31 31 29 3b 43 3b 22  | ...%..9,11);C;"|
00000a90  4d 2e 50 45 4f 50 4c 45  28 49 4e 43 4c 55 44 49  |M.PEOPLE(INCLUDI|
00000aa0  4e 47 29 22 20 20 0d 0f  c8 37 20 f1 8a 34 2c 31  |NG)"  ...7 ..4,1|
00000ab0  32 29 3b 22 28 22 3b 46  41 3b 22 4d 2e 43 48 49  |2);"(";FA;"M.CHI|
00000ac0  4c 44 52 45 4e 20 26 20  22 3b 4f 50 3b 22 4d 2e  |LDREN & ";OP;"M.|
00000ad0  50 45 4e 53 49 4f 4e 45  52 53 29 22 20 0d 0f d2  |PENSIONERS)" ...|
00000ae0  24 f1 8a 31 30 2c 31 33  29 3b 43 4f 2a 31 30 30  |$..10,13);CO*100|
00000af0  30 3b 22 20 43 4f 4d 50  41 4e 49 45 53 22 20 20  |0;" COMPANIES"  |
00000b00  20 0d 0f dc 25 f1 8a 31  30 2c 31 34 29 3b 56 56  | ...%..10,14);VV|
00000b10  24 3b 22 49 4e 43 4f 4d  45 20 46 52 4f 4d 20 54  |$;"INCOME FROM T|
00000b20  41 58 45 53 22 20 0d 0f  e6 44 f1 8a 34 2c 31 35  |AXES" ...D..4,15|
00000b30  29 3b 55 55 24 3b 22 56  20 41 20 54 20 20 20 49  |);UU$;"V A T   I|
00000b40  6e 63 6f 6d 65 20 20 20  20 3a 22 3b 52 52 24 3b  |ncome    :";RR$;|
00000b50  22 60 22 3b 8a a4 4b 28  56 54 29 2d 36 2c 31 35  |"`";..K(VT)-6,15|
00000b60  29 3b a8 56 54 3b 22 4d  2e 22 0d 0f f0 45 f1 8a  |);.VT;"M."...E..|
00000b70  34 2c 31 36 29 3b 55 55  24 3b 22 50 20 41 20 59  |4,16);UU$;"P A Y|
00000b80  20 45 20 49 6e 63 6f 6d  65 20 20 20 20 3a 22 3b  | E Income    :";|
00000b90  52 52 24 3b 22 60 22 3b  8a a4 4b 28 49 41 29 2d  |RR$;"`";..K(IA)-|
00000ba0  36 2c 31 36 29 3b a8 49  41 3b 22 4d 2e 22 20 0d  |6,16);.IA;"M." .|
00000bb0  0f fa 44 f1 8a 34 2c 31  37 29 3b 55 55 24 3b 22  |..D..4,17);UU$;"|
00000bc0  43 6f 6d 70 61 6e 79 20  54 61 78 20 49 6e 63 6f  |Company Tax Inco|
00000bd0  6d 65 3a 22 3b 52 52 24  3b 22 60 22 3b 8a a4 4b  |me:";RR$;"`";..K|
00000be0  28 43 49 29 2d 36 2c 31  37 29 3b a8 43 49 3b 22  |(CI)-6,17);.CI;"|
00000bf0  4d 2e 22 0d 10 04 44 f1  8a 34 2c 31 38 29 3b 55  |M."...D..4,18);U|
00000c00  55 24 3b 22 45 78 63 69  73 65 20 44 75 74 69 65  |U$;"Excise Dutie|
00000c10  73 20 20 20 20 20 3a 22  3b 52 52 24 3b 22 60 22  |s     :";RR$;"`"|
00000c20  3b 8a a4 4b 28 54 53 29  2d 36 2c 31 38 29 3b a8  |;..K(TS)-6,18);.|
00000c30  54 53 3b 22 4d 2e 22 0d  10 0e 46 f1 8a 34 2c 31  |TS;"M."...F..4,1|
00000c40  39 29 3b 56 56 24 3b 22  20 20 54 4f 54 41 4c 20  |9);VV$;"  TOTAL |
00000c50  49 4e 43 4f 4d 45 20 20  20 20 3a 22 3b 56 56 24  |INCOME    :";VV$|
00000c60  3b 22 60 22 3b 8a a4 4b  28 54 54 29 2d 36 2c 31  |;"`";..K(TT)-6,1|
00000c70  39 29 3b a8 54 54 3b 22  4d 2e 22 20 20 0d 10 18  |9);.TT;"M."  ...|
00000c80  51 f1 8a 34 2c 32 30 29  3b 57 57 24 3b 22 6c 65  |Q..4,20);WW$;"le|
00000c90  73 73 20 45 58 50 45 4e  44 49 54 55 52 45 20 20  |ss EXPENDITURE  |
00000ca0  3a 22 3b 57 57 24 3b 22  60 22 3b 8a a4 4b 28 58  |:";WW$;"`";..K(X|
00000cb0  50 2b 58 5a 29 2d 37 2c  32 30 29 3b 57 57 24 3b  |P+XZ)-7,20);WW$;|
00000cc0  a8 28 58 50 2b 58 5a 29  3b 22 4d 2e 22 20 0d 10  |.(XP+XZ);"M." ..|
00000cd0  2c 47 f1 8a 37 2c 32 31  29 3b 22 42 41 4c 41 4e  |,G..7,21);"BALAN|
00000ce0  43 45 20 28 2b 2f 2d 29  20 20 20 3a 20 60 22 3b  |CE (+/-)   : `";|
00000cf0  8a a4 4b 28 54 54 2d 58  50 2d 58 5a 29 2d 36 2c  |..K(TT-XP-XZ)-6,|
00000d00  32 31 29 3b a8 28 54 54  2d 58 50 2d 58 5a 29 3b  |21);.(TT-XP-XZ);|
00000d10  22 4d 2e 22 20 0d 10 31  5d e7 20 28 54 54 2d 58  |"M." ..1]. (TT-X|
00000d20  50 2d 58 5a 29 3c 30 20  f1 8a 36 2c 32 31 29 3b  |P-XZ)<0 ..6,21);|
00000d30  57 57 24 3b 22 42 41 4c  41 4e 43 45 20 28 2b 2f  |WW$;"BALANCE (+/|
00000d40  2d 29 20 20 20 3a 20 60  22 3b 8a a4 4b 28 54 54  |-)   : `";..K(TT|
00000d50  2d 58 50 2d 58 5a 29 2d  37 2c 32 31 29 3b 57 57  |-XP-XZ)-7,21);WW|
00000d60  24 3b a8 28 54 54 2d 58  50 2d 58 5a 29 3b 22 4d  |$;.(TT-XP-XZ);"M|
00000d70  2e 22 0d 10 36 0f 4f 54  3d 54 54 2b 58 42 2b 58  |."..6.OT=TT+XB+X|
00000d80  5a 0d 10 40 0a f2 53 50  41 43 45 0d 10 67 05 e1  |Z..@..SPACE..g..|
00000d90  0d 10 68 0c dd f2 42 41  53 4b 45 54 0d 10 72 36  |..h...BASKET..r6|
00000da0  20 20 20 20 20 20 20 e3  49 25 3d 38 b8 39 3a f1  |       .I%=8.9:.|
00000db0  8a 31 31 2c 49 25 29 3b  5a 24 3b 57 57 24 3b 22  |.11,I%);Z$;WW$;"|
00000dc0  53 48 4f 50 50 49 4e 47  20 42 41 53 4b 45 54 22  |SHOPPING BASKET"|
00000dd0  3a ed 0d 10 7c 23 f1 8a  31 32 2c 31 30 29 3b 57  |:...|#..12,10);W|
00000de0  24 3b 22 2c 2c 2c 2c 2c  2c 2c 2c 2c 2c 2c 2c 2c  |$;",,,,,,,,,,,,,|
00000df0  2c 2c 22 20 20 0d 10 81  11 40 25 3d 26 30 30 30  |,,"  ....@%=&000|
00000e00  32 30 32 30 41 20 0d 10  83 22 51 45 3d 28 a8 28  |2020A ..."QE=(.(|
00000e10  28 45 45 2b 50 58 2b 28  45 45 2a 49 29 29 2a 31  |(EE+PX+(EE*I))*1|
00000e20  30 30 29 29 2f 31 30 30  0d 10 86 3f f1 8a 36 2c  |00))/100...?..6,|
00000e30  31 31 29 3b 55 55 24 3b  22 50 65 74 72 6f 6c 20  |11);UU$;"Petrol |
00000e40  20 20 28 67 61 6c 6c 6f  6e 29 20 20 3a 22 3b 52  |  (gallon)  :";R|
00000e50  52 24 3b 22 60 22 3b 8a  a4 4b 28 51 45 29 2d 37  |R$;"`";..K(QE)-7|
00000e60  2c 31 31 29 3b 51 45 0d  10 8b 22 51 44 3d 28 a8  |,11);QE..."QD=(.|
00000e70  28 28 44 44 2b 41 58 2b  28 44 44 2a 49 29 29 2a  |((DD+AX+(DD*I))*|
00000e80  31 30 30 29 29 2f 31 30  30 0d 10 90 40 f1 8a 36  |100))/100...@..6|
00000e90  2c 31 32 29 3b 55 55 24  3b 22 53 63 6f 74 63 68  |,12);UU$;"Scotch|
00000ea0  20 20 20 28 62 6f 74 74  6c 65 29 20 20 3a 22 3b  |   (bottle)  :";|
00000eb0  52 52 24 3b 22 60 22 3b  8a a4 4b 28 51 44 29 2d  |RR$;"`";..K(QD)-|
00000ec0  37 2c 31 32 29 3b 51 44  20 0d 10 95 22 51 43 3d  |7,12);QD ..."QC=|
00000ed0  28 a8 28 28 43 43 2b 54  58 2b 28 43 43 2a 49 29  |(.((CC+TX+(CC*I)|
00000ee0  29 2a 31 30 30 29 29 2f  31 30 30 0d 10 9a 3f f1  |)*100))/100...?.|
00000ef0  8a 36 2c 31 33 29 3b 55  55 24 3b 22 43 69 67 61  |.6,13);UU$;"Ciga|
00000f00  72 65 74 74 65 73 20 20  20 28 32 30 29 20 20 3a  |rettes   (20)  :|
00000f10  22 3b 52 52 24 3b 22 60  22 3b 8a a4 4b 28 51 43  |";RR$;"`";..K(QC|
00000f20  29 2d 37 2c 31 33 29 3b  51 43 0d 10 9f 1c 44 3d  |)-7,13);QC....D=|
00000f30  28 a8 28 28 44 2b 28 44  2a 49 29 29 2a 31 30 30  |(.((D+(D*I))*100|
00000f40  29 29 2f 31 30 30 0d 10  a4 3f f1 8a 36 2c 31 34  |))/100...?..6,14|
00000f50  29 3b 55 55 24 3b 22 4d  69 6c 6b 20 20 20 20 20  |);UU$;"Milk     |
00000f60  20 20 28 70 69 6e 74 29  20 20 3a 22 3b 52 52 24  |  (pint)  :";RR$|
00000f70  3b 22 60 22 3b 8a a4 4b  28 44 29 2d 37 2c 31 34  |;"`";..K(D)-7,14|
00000f80  29 3b 44 20 20 0d 10 ae  42 f1 8a 36 2c 31 35 29  |);D  ...B..6,15)|
00000f90  3b 55 55 24 3b 22 42 72  65 61 64 20 20 20 20 20  |;UU$;"Bread     |
00000fa0  20 28 6c 6f 61 66 29 20  20 3a 22 3b 52 52 24 3b  | (loaf)  :";RR$;|
00000fb0  22 60 22 3b 8a a4 4b 28  44 2a 32 29 2d 37 2c 31  |"`";..K(D*2)-7,1|
00000fc0  35 29 3b 44 2a 32 20 0d  10 b8 4a f1 8a 36 2c 31  |5);D*2 ...J..6,1|
00000fd0  36 29 3b 55 55 24 3b 22  54 65 61 20 20 20 20 20  |6);UU$;"Tea     |
00000fe0  28 71 75 61 72 74 65 72  29 20 20 3a 22 3b 52 52  |(quarter)  :";RR|
00000ff0  24 3b 22 60 22 3b 8a a4  4b 28 44 2b 28 44 2f 32  |$;"`";..K(D+(D/2|
00001000  29 29 2d 37 2c 31 36 29  3b 44 2b 28 44 2f 32 29  |))-7,16);D+(D/2)|
00001010  20 0d 10 bd 09 40 25 3d  31 30 0d 10 bf 23 f1 8a  | ....@%=10...#..|
00001020  31 32 2c 31 37 29 3b 57  24 3b 22 2c 2c 2c 2c 2c  |12,17);W$;",,,,,|
00001030  2c 2c 2c 2c 2c 2c 2c 2c  2c 2c 22 20 20 0d 10 c2  |,,,,,,,,,,"  ...|
00001040  32 f1 8a 36 2c 31 38 29  3b 55 55 24 3b 22 41 76  |2..6,18);UU$;"Av|
00001050  65 72 61 67 65 20 49 6e  63 6f 6d 65 20 20 20 20  |erage Income    |
00001060  20 3a 22 3b 52 52 24 3b  22 60 22 3b a8 49 4e 0d  | :";RR$;"`";.IN.|
00001070  10 c7 13 52 52 3d a8 28  52 52 2b 28 52 52 2a 49  |...RR=.(RR+(RR*I|
00001080  29 29 0d 10 cc 2f f1 8a  36 2c 31 39 29 3b 55 55  |)).../..6,19);UU|
00001090  24 3b 22 52 65 74 61 69  6c 20 50 72 69 63 65 20  |$;"Retail Price |
000010a0  49 6e 64 65 78 20 3a 20  22 3b 52 52 24 3b 52 52  |Index : ";RR$;RR|
000010b0  20 0d 10 d1 1a 20 f1 8a  30 2c 32 31 29 3b 51 51  | .... ..0,21);QQ|
000010c0  24 3b c4 33 39 2c bd 34  34 29 20 0d 10 d6 0a f2  |$;.39,.44) .....|
000010d0  53 50 41 43 45 0d 11 2f  05 e1 0d 11 30 0c dd f2  |SPACE../....0...|
000010e0  52 45 46 4f 52 4d 0d 11  3a 3a 20 20 20 20 20 20  |REFORM..::      |
000010f0  20 e3 49 25 3d 38 b8 39  3a f1 8a 38 2c 49 25 29  | .I%=8.9:..8,I%)|
00001100  3b 5a 24 3b 56 56 24 3b  22 52 45 46 4f 52 4d 20  |;Z$;VV$;"REFORM |
00001110  4f 50 50 4f 52 54 55 4e  49 54 49 45 53 22 3a ed  |OPPORTUNITIES":.|
00001120  0d 11 44 25 f1 8a 39 2c  31 30 29 3b 56 24 3b 22  |..D%..9,10);V$;"|
00001130  2c 2c 2c 2c 2c 2c 2c 2c  2c 2c 2c 2c 2c 2c 2c 2c  |,,,,,,,,,,,,,,,,|
00001140  2c 2c 2c 2c 22 0d 11 4e  56 20 f1 8a 32 2c 31 32  |,,,,"..NV ..2,12|
00001150  29 3b 22 41 22 3b 55 55  24 3b 22 49 6d 70 72 6f  |);"A";UU$;"Impro|
00001160  76 65 20 48 65 61 6c 74  68 20 53 65 72 76 69 63  |ve Health Servic|
00001170  65 20 20 20 22 3b 52 52  24 3b 22 3a 60 20 20 20  |e   ";RR$;":`   |
00001180  20 20 20 22 3b 8a a4 4b  28 49 49 29 2d 31 2c 31  |   ";..K(II)-1,1|
00001190  32 29 3b a8 49 49 3b 22  4d 22 20 0d 11 58 56 20  |2);.II;"M" ..XV |
000011a0  20 f1 8a 32 2c 31 33 29  3b 22 42 22 3b 55 55 24  | ..2,13);"B";UU$|
000011b0  3b 22 42 75 69 6c 64 20  4e 65 77 20 48 6f 6d 65  |;"Build New Home|
000011c0  73 20 20 20 20 20 20 20  20 20 20 22 3b 52 52 24  |s          ";RR$|
000011d0  3b 22 3a 60 20 20 20 20  20 20 22 3b 8a a4 4b 28  |;":`      ";..K(|
000011e0  4a 4a 29 2d 31 2c 31 33  29 3b a8 4a 4a 3b 22 4d  |JJ)-1,13);.JJ;"M|
000011f0  22 0d 11 62 56 20 20 f1  8a 32 2c 31 34 29 3b 22  |"..bV  ..2,14);"|
00001200  43 22 3b 55 55 24 3b 22  4a 6f 62 73 20 66 6f 72  |C";UU$;"Jobs for|
00001210  20 53 63 68 6f 6f 6c 20  4c 65 61 76 65 72 73 20  | School Leavers |
00001220  20 22 3b 52 52 24 3b 22  3a 60 20 20 20 20 20 20  | ";RR$;":`      |
00001230  22 3b 8a a4 4b 28 4b 4b  29 2d 31 2c 31 34 29 3b  |";..K(KK)-1,14);|
00001240  a8 4b 4b 3b 22 4d 22 0d  11 6c 56 20 20 f1 8a 32  |.KK;"M"..lV  ..2|
00001250  2c 31 35 29 3b 22 44 22  3b 55 55 24 3b 22 42 75  |,15);"D";UU$;"Bu|
00001260  69 6c 64 20 4e 65 77 20  53 63 68 6f 6f 6c 73 20  |ild New Schools |
00001270  20 20 20 20 20 20 20 22  3b 52 52 24 3b 22 3a 60  |       ";RR$;":`|
00001280  20 20 20 20 20 20 22 3b  8a a4 4b 28 4c 4c 29 2d  |      ";..K(LL)-|
00001290  31 2c 31 35 29 3b a8 4c  4c 3b 22 4d 22 0d 11 76  |1,15);.LL;"M"..v|
000012a0  5a 20 f1 8a 32 2c 31 36  29 3b 22 45 22 3b 55 55  |Z ..2,16);"E";UU|
000012b0  24 3b 22 49 6d 70 72 6f  76 65 20 52 6f 61 64 20  |$;"Improve Road |
000012c0  53 79 73 74 65 6d 20 20  20 20 20 20 22 3b 52 52  |System      ";RR|
000012d0  24 3b 22 3a 60 20 20 20  20 20 20 22 3b 8a a4 4b  |$;":`      ";..K|
000012e0  28 4d 4d 29 2d 31 2c 31  36 29 3b a8 4d 4d 3b 22  |(MM)-1,16);.MM;"|
000012f0  4d 22 20 20 20 20 20 0d  11 80 24 20 f1 8a 32 2c  |M"     ...$ ..2,|
00001300  31 38 29 3b 22 46 22 3b  56 56 24 3b 22 57 68 65  |18);"F";VV$;"Whe|
00001310  6e 20 66 69 6e 69 73 68  65 64 22 0d 11 85 1a 20  |n finished".... |
00001320  20 f1 8a 30 2c 32 30 29  3b 51 51 24 3b c4 33 39  | ..0,20);QQ$;.39|
00001330  2c bd 34 34 29 0d 11 8a  45 20 20 20 f1 8a 30 2c  |,.44)...E   ..0,|
00001340  32 31 29 3b 55 55 24 3b  4e 4e 24 3b 56 56 24 3b  |21);UU$;NN$;VV$;|
00001350  50 50 24 3b 22 45 6e 74  65 72 20 50 52 45 46 49  |PP$;"Enter PREFI|
00001360  58 20 6f 66 20 72 65 66  6f 72 6d 20 74 6f 20 63  |X of reform to c|
00001370  68 61 6e 67 65 20 20 22  20 20 0d 11 94 07 e8 4b  |hange  "  .....K|
00001380  24 0d 11 9e 11 e7 4b 24  3d 22 46 22 8c 8d 64 77  |$.....K$="F"..dw|
00001390  51 20 0d 11 a8 37 20 20  20 20 20 20 20 20 20 20  |Q ...7          |
000013a0  20 20 20 e7 20 4b 24 3c  22 41 22 84 4b 24 3e 22  |   . K$<"A".K$>"|
000013b0  46 22 f1 bd 28 37 29 3b  8a 30 2c 32 32 29 89 28  |F"..(7);.0,22).(|
000013c0  31 38 29 3a e5 8d 74 4a  51 0d 11 b2 48 20 20 20  |18):..tJQ...H   |
000013d0  f1 8a 30 2c 32 31 29 89  28 34 30 29 3b 8a 32 2c  |..0,21).(40);.2,|
000013e0  32 31 29 3b 55 55 24 3b  50 50 24 3b 22 45 6e 74  |21);UU$;PP$;"Ent|
000013f0  65 72 20 41 4d 4f 55 4e  54 20 79 6f 75 20 77 69  |er AMOUNT you wi|
00001400  73 68 20 74 6f 20 61 6c  6c 6f 63 61 74 65 22 20  |sh to allocate" |
00001410  20 0d 11 bc 1d f1 8a 30  2c 32 32 29 22 20 20 20  | ......0,22)"   |
00001420  20 20 20 20 20 22 3b 8a  30 2c 32 31 29 20 0d 11  |     ";.0,21) ..|
00001430  c6 15 e7 4b 24 3d 22 41  22 e8 49 49 3a 49 49 3d  |...K$="A".II:II=|
00001440  94 49 49 0d 11 d0 15 e7  4b 24 3d 22 42 22 e8 4a  |.II.....K$="B".J|
00001450  4a 3a 4a 4a 3d 94 4a 4a  0d 11 da 15 e7 4b 24 3d  |J:JJ=.JJ.....K$=|
00001460  22 43 22 e8 4b 4b 3a 4b  4b 3d 94 4b 4b 0d 11 e4  |"C".KK:KK=.KK...|
00001470  15 e7 4b 24 3d 22 44 22  e8 4c 4c 3a 4c 4c 3d 94  |..K$="D".LL:LL=.|
00001480  4c 4c 0d 11 ee 15 e7 4b  24 3d 22 45 22 e8 4d 4d  |LL.....K$="E".MM|
00001490  3a 4d 4d 3d 94 4d 4d 0d  11 f3 15 f1 8a 30 2c 32  |:MM=.MM......0,2|
000014a0  32 29 22 20 20 20 20 20  20 20 20 22 0d 11 f5 09  |2)"        "....|
000014b0  e5 8d 54 7a 51 0d 11 f7  19 f1 8a 33 32 2c 31 37  |..TzQ......32,17|
000014c0  29 3b 22 5f 5f 5f 5f 5f  5f 5f 5f 22 20 20 0d 11  |);"________"  ..|
000014d0  f8 11 f1 8a 30 2c 31 38  29 3b 89 28 33 39 29 0d  |....0,18);.(39).|
000014e0  12 02 15 58 5a 3d 49 49  2b 4a 4a 2b 4b 4b 2b 4c  |...XZ=II+JJ+KK+L|
000014f0  4c 2b 4d 4d 0d 12 0c 26  f1 8a 33 32 2c 31 38 29  |L+MM...&..32,18)|
00001500  3b 22 60 22 3b 8a a4 4b  28 58 5a 29 2d 31 2c 31  |;"`";..K(XZ)-1,1|
00001510  38 29 3b 58 5a 3b 22 4d  22 20 0d 12 11 11 20 f2  |8);XZ;"M" .... .|
00001520  54 49 4d 45 52 28 2e 31  32 35 29 0d 12 13 19 f1  |TIMER(.125).....|
00001530  8a 30 2c 32 32 29 3b 22  20 20 20 20 20 22 3a f2  |.0,22);"     ":.|
00001540  43 4c 52 20 0d 12 16 1b  4a 3d b3 28 35 29 3a 4b  |CLR ....J=.(5):K|
00001550  3d b3 28 34 29 3a 46 3d  46 2b 28 46 2a 49 29 0d  |=.(4):F=F+(F*I).|
00001560  12 20 1f e7 58 5a 3e 28  32 30 30 2a 4b 29 80 50  |. ..XZ>(200*K).P|
00001570  4f 3c 31 30 20 50 4f 3d  50 4f 2b 31 30 20 0d 12  |O<10 PO=PO+10 ..|
00001580  25 0a e7 53 3d 33 20 e1  0d 12 2a 50 e7 20 4a 3d  |%..S=3 ...*P. J=|
00001590  31 20 80 20 49 49 3e 28  4b 2a 46 29 84 4a 3d 32  |1 . II>(K*F).J=2|
000015a0  80 4a 4a 3e 28 4b 2a 46  29 84 4a 3d 33 80 4b 4b  |.JJ>(K*F).J=3.KK|
000015b0  3e 28 4b 2a 46 29 84 4a  3d 34 80 4c 4c 3e 28 4b  |>(K*F).J=4.LL>(K|
000015c0  2a 46 29 84 4a 3d 35 80  4d 4d 3e 28 4b 2a 46 29  |*F).J=5.MM>(K*F)|
000015d0  20 8c 20 e5 8d 44 5c 52  0d 12 5b 05 e1 0d 12 5c  | . ..D\R..[....\|
000015e0  31 20 4f 24 3d 22 20 20  20 41 20 53 6f 63 69 61  |1 O$="   A Socia|
000015f0  6c 20 52 65 66 6f 72 6d  20 68 61 73 20 62 65 65  |l Reform has bee|
00001600  6e 20 72 65 63 6f 67 6e  69 73 65 64 20 22 0d 12  |n recognised "..|
00001610  5e 24 e3 58 3d 31 b8 35  3a 5a 3d b3 28 32 29 3a  |^$.X=1.5:Z=.(2):|
00001620  5a 3d 5a 2d 31 3a d4 30  2c 2d 31 35 2c 5a 2c 37  |Z=Z-1:.0,-15,Z,7|
00001630  3a ed 0d 12 61 0b e3 58  31 3d 31 b8 35 0d 12 66  |:...a..X1=1.5..f|
00001640  0b e3 58 3d 38 b8 32 32  0d 12 70 20 20 20 20 20  |..X=8.22..p     |
00001650  20 20 20 20 20 20 f1 8a  30 2c 58 29 3b 56 56 24  |      ..0,X);VV$|
00001660  3b 4f 24 3a ed 58 20 20  0d 12 7a 0b e3 58 3d 38  |;O$:.X  ..z..X=8|
00001670  b8 32 32 0d 12 84 19 20  20 20 20 20 f1 8a 30 2c  |.22....     ..0,|
00001680  58 29 3b 52 52 24 3b 4f  24 3a ed 58 0d 12 8e 07  |X);RR$;O$:.X....|
00001690  ed 58 31 0d 12 93 14 20  f2 43 4c 52 3a e7 53 3c  |.X1.... .CLR:.S<|
000016a0  33 53 3d 53 2b 31 20 0d  12 bf 05 e1 0d 13 88 0e  |3S=S+1 .........|
000016b0  dd f2 45 4c 45 43 54 49  4f 4e 0d 13 8d 0a 51 3d  |..ELECTION....Q=|
000016c0  b3 28 32 29 0d 13 8e 0f  e7 41 57 4c 3d 31 e5 8d  |.(2).....AWL=1..|
000016d0  74 50 53 0d 13 8f 35 e7  49 3e 2e 31 31 2b 28 4a  |tPS...5.I>.11+(J|
000016e0  2f 31 30 30 29 20 84 20  55 3e 31 2e 34 2b 28 4a  |/100) . U>1.4+(J|
000016f0  2f 31 30 29 20 84 20 57  41 4c 3c 32 20 84 20 4f  |/10) . WAL<2 . O|
00001700  4f 3d 33 20 f2 57 4b 45  0d 13 90 08 4f 4f 3d 31  |O=3 .WKE....OO=1|
00001710  0d 13 91 26 e3 58 3d 31  b8 32 30 3a 5a 3d b3 28  |...&.X=1.20:Z=.(|
00001720  33 29 3a 5a 3d 5a 2d 31  3a d4 30 2c 2d 31 35 2c  |3):Z=Z-1:.0,-15,|
00001730  5a 2c 35 3a ed 20 0d 13  92 3e f2 43 4c 52 3a f1  |Z,5:. ...>.CLR:.|
00001740  8a 30 2c 35 29 3b 51 51  24 3b 22 73 73 73 73 73  |.0,5);QQ$;"sssss|
00001750  73 73 73 73 73 73 73 73  73 73 73 73 73 73 73 73  |ssssssssssssssss|
*
00001770  73 73 22 20 0d 13 9c 47  20 20 e3 49 25 3d 33 b8  |ss" ...G  .I%=3.|
00001780  34 3a f1 8a 31 2c 49 25  29 3b 5a 24 3b 22 54 45  |4:..1,I%);Z$;"TE|
00001790  52 4d 3a 22 3b 54 3b 22  20 20 20 20 20 20 45 4c  |RM:";T;"      EL|
000017a0  45 43 54 49 4f 4e 20 4e  49 47 48 54 20 20 20 20  |ECTION NIGHT    |
000017b0  20 59 45 41 52 3a 22 3b  59 3a ed 0d 13 a6 48 e3  | YEAR:";Y:....H.|
000017c0  49 25 3d 36 b8 37 3a f1  8a 30 2c 49 25 29 3b 59  |I%=6.7:..0,I%);Y|
000017d0  24 3b 5a 24 3b 22 50 45  52 43 45 4e 54 20 20 20  |$;Z$;"PERCENT   |
000017e0  20 20 20 20 20 20 20 50  41 52 54 59 20 20 20 20  |       PARTY    |
000017f0  20 20 20 20 20 53 45 41  54 53 20 20 20 22 3a ed  |     SEATS   ":.|
00001800  20 20 20 0d 13 b0 44 e3  58 3d 38 b8 32 30 88 33  |   ...D.X=8.20.3|
00001810  3a f1 8a 30 2c 58 29 3b  51 51 24 3b 22 2c 2c 2c  |:..0,X);QQ$;",,,|
00001820  2c 2c 2c 2c 2c 2c 2c 2c  2c 2c 2c 2c 2c 2c 2c 2c  |,,,,,,,,,,,,,,,,|
*
00001840  2c 2c 2c 2c 22 3a ed 0d  13 ba 23 20 e3 49 25 3d  |,,,,":....# .I%=|
00001850  39 b8 31 30 3a f1 8a 31  32 2c 49 25 29 3b 5a 24  |9.10:..12,I%);Z$|
00001860  3b 4d 31 24 3b 52 52 24  3a ed 0d 13 ce 24 20 e3  |;M1$;RR$:....$ .|
00001870  49 25 3d 31 32 b8 31 33  3a f1 8a 31 32 2c 49 25  |I%=12.13:..12,I%|
00001880  29 3b 5a 24 3b 4d 32 24  3b 52 52 24 3a ed 0d 13  |);Z$;M2$;RR$:...|
00001890  e2 26 20 e3 49 25 3d 31  35 b8 31 36 3a f1 8a 31  |.& .I%=15.16:..1|
000018a0  32 2c 49 25 29 3b 5a 24  3b 4d 33 24 3b 52 52 24  |2,I%);Z$;M3$;RR$|
000018b0  3a ed 20 20 0d 13 ec 25  20 e3 49 25 3d 31 38 b8  |:.  ...% .I%=18.|
000018c0  31 39 3a f1 8a 31 32 2c  49 25 29 3b 5a 24 3b 4d  |19:..12,I%);Z$;M|
000018d0  34 24 3b 52 52 24 3a ed  20 0d 13 f6 17 47 31 3d  |4$;RR$:. ....G1=|
000018e0  30 3a 47 32 3d 30 3a 47  33 3d 30 3a 47 34 3d 30  |0:G2=0:G3=0:G4=0|
000018f0  0d 14 00 12 57 31 3d 33  30 30 2a 28 50 2f 31 30  |....W1=300*(P/10|
00001900  30 29 0d 14 02 11 e7 57  31 3e 33 30 30 57 31 3d  |0).....W1>300W1=|
00001910  33 30 30 0d 14 05 0d 57  32 3d 33 30 30 2d 57 31  |300....W2=300-W1|
00001920  0d 14 0a 09 f2 53 45 41  54 0d 14 14 21 e7 49 3c  |.....SEAT...!.I<|
00001930  2e 31 32 57 31 3d a8 28  35 30 2a 28 28 2e 31 31  |.12W1=.(50*((.11|
00001940  2d 49 29 2f 2e 31 30 29  29 20 0d 14 1e 0e e7 49  |-I)/.10)) .....I|
00001950  3e 2e 31 31 57 31 3d 30  0d 14 28 0e 57 32 3d 35  |>.11W1=0..(.W2=5|
00001960  30 2d 57 31 20 20 0d 14  32 09 f2 53 45 41 54 0d  |0-W1  ..2..SEAT.|
00001970  14 3c 1d e7 55 3c 32 2e  31 57 31 3d a8 28 31 30  |.<..U<2.1W1=.(10|
00001980  30 2a 28 28 32 2d 55 29  2f 32 29 29 0d 14 46 0c  |0*((2-U)/2))..F.|
00001990  e7 55 3e 32 57 31 3d 30  0d 14 50 13 57 32 3d 31  |.U>2W1=0..P.W2=1|
000019a0  30 30 2d 57 31 3a f2 53  45 41 54 0d 14 5a 0b 57  |00-W1:.SEAT..Z.W|
000019b0  31 3d 53 2a 35 30 0d 14  64 13 57 32 3d 31 35 30  |1=S*50..d.W2=150|
000019c0  2d 57 31 3a f2 53 45 41  54 0d 14 6e 0e e7 45 3c  |-W1:.SEAT..n..E<|
000019d0  31 2e 35 57 31 3d 30 0d  14 78 1c e7 45 3e 31 2e  |1.5W1=0..x..E>1.|
000019e0  35 57 31 3d a8 28 94 28  31 2e 35 2d 45 29 2a 31  |5W1=.(.(1.5-E)*1|
000019f0  30 30 29 0d 14 82 0f e7  45 3e 32 2e 31 57 31 3d  |00).....E>2.1W1=|
00001a00  35 30 0d 14 8c 12 57 32  3d 35 30 2d 57 31 3a f2  |50....W2=50-W1:.|
00001a10  53 45 41 54 0d 14 91 0c  f2 52 45 45 4c 45 43 54  |SEAT.....REELECT|
00001a20  0d 14 96 05 e1 0d 14 b4  0a dd f2 53 45 41 54 0d  |...........SEAT.|
00001a30  14 b9 06 ea 58 0d 14 be  0b e3 58 3d 31 b8 57 32  |....X.....X=1.W2|
00001a40  0d 14 c8 0c 51 45 3d b3  28 31 30 29 0d 14 d2 17  |....QE=.(10)....|
00001a50  20 20 20 e7 51 45 3c 38  80 51 3d 31 47 31 3d 47  |   .QE<8.Q=1G1=G|
00001a60  31 2b 31 0d 14 d7 17 20  20 20 e7 51 45 3c 38 80  |1+1....   .QE<8.|
00001a70  51 3d 32 47 32 3d 47 32  2b 31 0d 14 dc 1e 20 20  |Q=2G2=G2+1....  |
00001a80  20 e7 51 45 3e 37 80 51  45 3c 31 30 80 51 3d 31  | .QE>7.QE<10.Q=1|
00001a90  47 32 3d 47 32 2b 31 20  0d 14 e1 1c e7 51 45 3e  |G2=G2+1 .....QE>|
00001aa0  37 80 51 45 3c 31 30 80  51 3d 32 20 47 31 3d 47  |7.QE<10.Q=2 G1=G|
00001ab0  31 2b 31 20 0d 14 e6 13  e7 51 45 3d 31 30 47 33  |1+1 .....QE=10G3|
00001ac0  3d 47 33 2b 31 20 20 0d  14 f0 08 f2 54 4f 54 0d  |=G3+1  .....TOT.|
00001ad0  14 fa 06 ed 58 0d 15 04  0b e3 58 3d 31 b8 57 31  |....X.....X=1.W1|
00001ae0  0d 15 0e 0b 47 34 3d 47  34 2b 31 0d 15 18 08 f2  |....G4=G4+1.....|
00001af0  54 4f 54 0d 15 22 06 ed  58 0d 15 2c 05 e1 0d 15  |TOT.."..X..,....|
00001b00  72 09 dd f2 54 4f 54 0d  15 7c 23 20 20 e3 49 25  |r...TOT..|#  .I%|
00001b10  3d 39 b8 31 30 3a f1 8a  a4 4b 28 47 34 29 2d 32  |=9.10:...K(G4)-2|
00001b20  2c 49 25 29 3b 47 34 3a  ed 20 0d 15 86 23 20 e3  |,I%);G4:. ...# .|
00001b30  49 25 3d 31 32 b8 31 33  3a f1 8a a4 4b 28 47 33  |I%=12.13:...K(G3|
00001b40  29 2d 32 2c 49 25 29 3b  47 33 3a ed 20 0d 15 90  |)-2,I%);G3:. ...|
00001b50  25 20 e3 49 25 3d 31 35  b8 31 36 3a f1 8a a4 4b  |% .I%=15.16:...K|
00001b60  28 47 32 29 2d 32 2c 49  25 29 3b 47 32 3a ed 20  |(G2)-2,I%);G2:. |
00001b70  20 20 0d 15 9a 23 20 e3  49 25 3d 31 38 b8 31 39  |  ...# .I%=18.19|
00001b80  3a f1 8a a4 4b 28 47 31  29 2d 32 2c 49 25 29 3b  |:...K(G1)-2,I%);|
00001b90  47 31 3a ed 20 0d 15 a4  23 20 20 e7 20 47 31 2b  |G1:. ...#  . G1+|
00001ba0  47 32 2b 47 33 2b 47 34  3e 35 35 30 8c f2 50 45  |G2+G3+G4>550..PE|
00001bb0  52 43 45 4e 54 20 20 20  0d 15 ae 05 e1 0d 15 e0  |RCENT   ........|
00001bc0  0d dd f2 52 45 45 4c 45  43 54 0d 15 ea 12 47 35  |...REELECT....G5|
00001bd0  3d 47 31 2b 47 32 2b 47  33 2b 47 34 0d 16 12 22  |=G1+G2+G3+G4..."|
00001be0  20 e7 47 31 3e 28 47 35  2f 32 29 8c 4c 4f 24 3d  | .G1>(G5/2).LO$=|
00001bf0  4d 34 24 3a 4e 3d 31 38  3a f2 4c 4f 53 45 0d 16  |M4$:N=18:.LOSE..|
00001c00  14 22 20 e7 47 32 3e 28  47 35 2f 32 29 8c 4c 4f  |." .G2>(G5/2).LO|
00001c10  24 3d 4d 33 24 3a 4e 3d  31 35 3a f2 4c 4f 53 45  |$=M3$:N=15:.LOSE|
00001c20  0d 16 16 25 20 e7 47 33  3e 28 47 35 2f 32 29 8c  |...% .G3>(G5/2).|
00001c30  4c 4f 24 3d 4d 32 24 3a  4e 3d 31 32 3a f2 4c 4f  |LO$=M2$:N=12:.LO|
00001c40  53 45 20 20 20 0d 16 1c  18 e7 47 34 3e 28 47 35  |SE   .....G4>(G5|
00001c50  2f 32 29 f2 57 49 4e 3a  e5 8d 54 6c 41 0d 16 26  |/2).WIN:..TlA..&|
00001c60  35 20 20 20 e7 47 31 2b  47 32 3e 47 35 2f 32 20  |5   .G1+G2>G5/2 |
00001c70  4c 4f 24 3d 4d 34 24 3a  4c 50 24 3d 4d 33 24 3a  |LO$=M4$:LP$=M3$:|
00001c80  4e 3d 31 38 3a 4f 3d 31  35 3a f2 43 4f 41 4c 20  |N=18:O=15:.COAL |
00001c90  20 20 0d 16 30 33 20 20  20 e7 47 31 2b 47 33 3e  |  ..03   .G1+G3>|
00001ca0  47 35 2f 32 20 4c 4f 24  3d 4d 34 24 3a 4c 50 24  |G5/2 LO$=M4$:LP$|
00001cb0  3d 4d 32 24 3a 4e 3d 31  38 3a 4f 3d 31 32 3a f2  |=M2$:N=18:O=12:.|
00001cc0  43 4f 41 4c 20 0d 16 3a  33 20 20 20 e7 47 32 2b  |COAL ..:3   .G2+|
00001cd0  47 33 3e 47 35 2f 32 20  4c 4f 24 3d 4d 33 24 3a  |G3>G5/2 LO$=M3$:|
00001ce0  4c 50 24 3d 4d 32 24 3a  4e 3d 31 35 3a 4f 3d 31  |LP$=M2$:N=15:O=1|
00001cf0  32 3a f2 43 4f 41 4c 20  0d 16 3c 0e 20 20 f2 4e  |2:.COAL ..<.  .N|
00001d00  4f 47 4f 56 3a e1 0d 16  3f 10 f2 57 49 4e 3a e5  |OGOV:...?..WIN:.|
00001d10  8d 54 6c 41 20 20 0d 16  43 05 e1 0d 16 44 0a dd  |.TlA  ..C....D..|
00001d20  f2 43 4f 41 4c 0d 16 4e  3c 20 20 20 e3 49 25 3d  |.COAL..N<   .I%=|
00001d30  33 20 b8 20 34 3a f1 8a  39 2c 49 25 29 3b 5a 24  |3 . 4:..9,I%);Z$|
00001d40  3b 50 50 24 3b 22 20 20  20 20 20 20 43 4f 41 4c  |;PP$;"      COAL|
00001d50  49 54 49 4f 4e 20 20 20  20 22 3b 4f 4f 24 3a ed  |ITION    ";OO$:.|
00001d60  20 0d 16 58 3d 20 20 20  e3 49 25 3d 4e 20 b8 20  | ..X=   .I%=N . |
00001d70  4e 2b 31 3a f1 8a 31 31  2c 49 25 29 3b 50 50 24  |N+1:..11,I%);PP$|
00001d80  3a ed 3a e3 49 25 3d 4f  20 b8 20 4f 2b 31 3a f1  |:.:.I%=O . O+1:.|
00001d90  8a 31 31 2c 49 25 29 3b  50 50 24 3a ed 20 0d 16  |.11,I%);PP$:. ..|
00001da0  62 20 e3 58 3d 31 b8 31  30 3a 5a 3d b3 28 32 29  |b .X=1.10:Z=.(2)|
00001db0  3a d4 30 2c 2d 31 35 2c  5a 2c 35 3a ed 20 0d 16  |:.0,-15,Z,5:. ..|
00001dc0  9e 18 20 20 f2 54 49 4d  45 52 28 31 29 3a f2 53  |..  .TIMER(1):.S|
00001dd0  50 41 43 45 3a f9 0d 16  a7 05 e1 0d 16 a8 0b dd  |PACE:...........|
00001de0  f2 4e 4f 47 4f 56 0d 16  b2 7c 20 f1 8a 30 2c 31  |.NOGOV...| ..0,1|
00001df0  38 29 3b 89 31 36 30 3b  8a 35 2c 31 39 29 3b 59  |8);.160;.5,19);Y|
00001e00  59 24 3b 22 4e 6f 20 67  6f 76 65 72 6e 6d 65 6e  |Y$;"No governmen|
00001e10  74 20 63 61 6e 20 62 65  20 66 6f 72 6d 65 64 22  |t can be formed"|
00001e20  3b 8a 32 2c 32 30 29 3b  53 53 24 3b 50 50 24 3b  |;.2,20);SS$;PP$;|
00001e30  22 54 48 45 52 45 20 4d  55 53 54 20 42 45 20 41  |"THERE MUST BE A|
00001e40  20 46 55 54 48 45 52 20  45 4c 45 43 54 49 4f 4e  | FUTHER ELECTION|
00001e50  22 3a d4 30 2c 2d 31 35  2c 32 2c 32 30 3a 4f 4f  |":.0,-15,2,20:OO|
00001e60  3d 33 0d 16 bc 24 f2 53  50 41 43 45 3a db 3a f2  |=3...$.SPACE:.:.|
00001e70  53 45 54 55 50 3a f2 52  45 53 3a f2 45 4c 45 43  |SETUP:.RES:.ELEC|
00001e80  54 49 4f 4e 3a e1 0d 17  70 0a dd f2 4c 4f 53 45  |TION:...p...LOSE|
00001e90  0d 17 7a 1f 20 e3 49 25  3d 4e 20 b8 20 4e 2b 31  |..z. .I%=N . N+1|
00001ea0  3a f1 8a 31 31 2c 49 25  29 3b 50 50 24 3a ed 0d  |:..11,I%);PP$:..|
00001eb0  17 84 3d 20 20 20 e3 49  25 3d 33 20 b8 20 34 3a  |..=   .I%=3 . 4:|
00001ec0  f1 8a 39 2c 49 25 29 3b  5a 24 3b 50 50 24 3b 22  |..9,I%);Z$;PP$;"|
00001ed0  20 20 20 20 52 20 45 20  53 20 55 20 4c 20 54 20  |    R E S U L T |
00001ee0  20 20 20 20 20 22 3b 4f  4f 24 3a ed 0d 17 8e 20  |     ";OO$:.... |
00001ef0  20 e3 58 3d 31 b8 31 30  3a 5a 3d b3 28 32 29 3a  | .X=1.10:Z=.(2):|
00001f00  d4 30 2c 2d 31 35 2c 5a  2c 35 3a ed 0d 17 98 0e  |.0,-15,Z,5:.....|
00001f10  f2 53 50 41 43 45 3a f9  3a e1 0d 19 64 0d dd f2  |.SPACE:.:...d...|
00001f20  50 45 52 43 45 4e 54 0d  19 6e 1b 47 35 3d 47 34  |PERCENT..n.G5=G4|
00001f30  2f 28 47 31 2b 47 32 2b  47 33 2b 47 34 29 2a 31  |/(G1+G2+G3+G4)*1|
00001f40  30 30 0d 19 73 1b 47 36  3d 47 31 2f 28 47 31 2b  |00..s.G6=G1/(G1+|
00001f50  47 32 2b 47 33 2b 47 34  29 2a 31 30 30 0d 19 78  |G2+G3+G4)*100..x|
00001f60  1c 47 37 3d 47 32 2f 28  47 31 2b 47 32 2b 47 33  |.G7=G2/(G1+G2+G3|
00001f70  2b 47 34 29 2a 31 30 30  20 0d 19 7d 1b 47 38 3d  |+G4)*100 ..}.G8=|
00001f80  47 33 2f 28 47 31 2b 47  32 2b 47 33 2b 47 34 29  |G3/(G1+G2+G3+G4)|
00001f90  2a 31 30 30 0d 19 82 2d  20 20 e3 49 25 3d 39 b8  |*100...-  .I%=9.|
00001fa0  31 30 3a f1 8a a4 4b 28  47 35 29 2d 33 34 2c 49  |10:...K(G5)-34,I|
00001fb0  25 29 3b 5a 24 3b a8 47  35 3b 22 20 20 22 3a ed  |%);Z$;.G5;"  ":.|
00001fc0  20 0d 19 8c 2e 20 20 e3  49 25 3d 31 32 b8 31 33  | ....  .I%=12.13|
00001fd0  3a f1 8a a4 4b 28 47 38  29 2d 33 34 2c 49 25 29  |:...K(G8)-34,I%)|
00001fe0  3b 5a 24 3b a8 47 38 3b  22 20 20 22 3a ed 20 0d  |;Z$;.G8;"  ":. .|
00001ff0  19 96 2f 20 20 e3 49 25  3d 31 35 b8 31 36 3a f1  |../  .I%=15.16:.|
00002000  8a a4 4b 28 47 37 29 2d  33 34 2c 49 25 29 3b 5a  |..K(G7)-34,I%);Z|
00002010  24 3b a8 47 37 3b 22 20  20 22 3a ed 20 20 0d 19  |$;.G7;"  ":.  ..|
00002020  a0 30 20 20 e3 49 25 3d  31 38 b8 31 39 3a f1 8a  |.0  .I%=18.19:..|
00002030  a4 4b 28 47 36 29 2d 33  34 2c 49 25 29 3b 5a 24  |.K(G6)-34,I%);Z$|
00002040  3b a8 47 36 3b 22 20 20  22 3a ed 20 20 20 0d 1b  |;.G6;"  ":.   ..|
00002050  57 05 e1 0d 1b 58 0a dd  f2 57 49 4e 20 0d 1b 5d  |W....X...WIN ..]|
00002060  3e 20 20 20 e3 49 25 3d  33 20 b8 20 34 3a f1 8a  |>   .I%=3 . 4:..|
00002070  39 2c 49 25 29 3b 5a 24  3b 50 50 24 3b 22 20 20  |9,I%);Z$;PP$;"  |
00002080  20 20 52 20 45 20 53 20  55 20 4c 20 54 20 20 20  |  R E S U L T   |
00002090  20 20 20 22 3b 4f 4f 24  3a ed 20 0d 1b 62 24 20  |   ";OO$:. ..b$ |
000020a0  54 3d 54 2b 31 3a 53 3d  30 3a 50 4f 3d 30 3a 59  |T=T+1:S=0:PO=0:Y|
000020b0  3d 31 3a 57 41 4c 3d 32  3a 41 57 4c 3d 30 20 0d  |=1:WAL=2:AWL=0 .|
000020c0  1b 6c 1e e3 49 25 3d 39  20 b8 20 31 30 3a f1 8a  |.l..I%=9 . 10:..|
000020d0  31 31 2c 49 25 29 3b 50  50 24 3a ed 20 0d 1b 70  |11,I%);PP$:. ..p|
000020e0  28 20 20 e3 58 3d 31 b8  33 30 3a 5a 3d b3 28 32  |(  .X=1.30:Z=.(2|
000020f0  29 3a 5a 3d 5a 2d 31 3a  d4 30 2c 2d 31 35 2c 5a  |):Z=Z-1:.0,-15,Z|
00002100  2c 35 3a ed 20 0d 1b 71  32 20 20 4f 24 3d 22 3e  |,5:. ..q2  O$=">|
00002110  3e 3e 3e 20 45 20 4c 20  45 20 43 20 54 20 45 20  |>>> E L E C T E |
00002120  44 20 20 45 20 4c 20 45  20 43 20 54 20 45 20 44  |D  E L E C T E D|
00002130  20 3c 3c 3c 3c 20 22 0d  1b 76 38 e7 47 34 3e 34  | <<<< "..v8.G4>4|
00002140  38 30 20 4f 24 3d 22 2a  2a 20 4c 20 41 20 4e 20  |80 O$="** L A N |
00002150  44 20 53 20 4c 20 49 20  44 20 45 20 20 56 20 49  |D S L I D E  V I|
00002160  20 43 20 54 20 4f 20 52  20 59 20 2a 2a 20 22 0d  | C T O R Y ** ".|
00002170  1b 80 46 e3 58 31 3d 31  b8 31 30 3a e3 58 3d 33  |..F.X1=1.10:.X=3|
00002180  b8 32 30 3a f1 8a 30 2c  58 29 3b 57 57 24 3b 4f  |.20:..0,X);WW$;O|
00002190  24 3a ed 58 3a e3 58 32  3d 33 b8 32 30 3a f1 8a  |$:.X:.X2=3.20:..|
000021a0  30 2c 58 32 29 3b 52 52  24 3b 4f 24 3a ed 58 32  |0,X2);RR$;O$:.X2|
000021b0  3a ed 58 31 20 0d 1b b2  1d 20 20 f2 53 50 41 43  |:.X1 ....  .SPAC|
000021c0  45 3a f2 51 55 45 53 54  42 3a e5 8d 54 6c 41 3a  |E:.QUESTB:..TlA:|
000021d0  e1 20 0d 1f 3f 05 fa 0d  1f 40 0e dd f2 54 49 4d  |. ..?....@...TIM|
000021e0  45 52 28 58 29 0d 1f 4a  06 ea 5a 0d 1f 4f 07 5a  |ER(X)..J..Z..O.Z|
000021f0  3d 91 0d 1f 54 10 f5 fd  91 2d 5a 3e 58 2a 31 30  |=...T....-Z>X*10|
00002200  30 30 0d 1f 5e 05 e1 0d  1f 68 0b dd f2 50 41 52  |00..^....h...PAR|
00002210  54 59 0d 1f 72 1b 4c 31  24 3d 22 84 20 20 43 6f  |TY..r.L1$=".  Co|
00002220  6e 73 65 72 76 61 74 69  76 65 20 20 22 0d 1f 7c  |nservative  "..||
00002230  18 4c 32 24 3d 22 81 20  20 20 20 4c 61 62 6f 75  |.L2$=".    Labou|
00002240  72 20 20 20 22 0d 1f 86  19 4c 33 24 3d 22 20 20  |r   "....L3$="  |
00002250  20 20 83 4c 69 62 65 72  61 6c 20 20 20 22 0d 1f  |  .Liberal   "..|
00002260  90 1a 4c 34 24 3d 22 86  53 6f 63 69 61 6c 85 44  |..L4$=".Social.D|
00002270  65 6d 6f 63 72 61 74 22  0d 1f 9a 05 e1 0d 23 28  |emocrat"......#(|
00002280  0b dd f2 53 45 54 55 50  0d 23 2d 1d 20 20 41 3d  |...SETUP.#-.  A=|
00002290  a8 28 34 30 2d 28 31 30  2b a9 41 24 29 29 3a 41  |.(40-(10+.A$)):A|
000022a0  3d 41 2f 32 20 0d 23 32  05 db 0d 23 41 32 20 20  |=A/2 .#2...#A2  |
000022b0  20 20 20 e3 49 25 3d 30  b8 31 3a f1 8a 41 2c 49  |   .I%=0.1:..A,I|
000022c0  25 29 3b 5a 24 3b 22 52  54 20 48 4f 4e 20 22 3b  |%);Z$;"RT HON ";|
000022d0  41 24 3b 22 20 50 4d 22  3b 3a ed 20 0d 23 43 39  |A$;" PM";:. .#C9|
000022e0  20 f1 8a 30 2c 32 29 3b  51 51 24 3b 22 73 73 73  | ..0,2);QQ$;"sss|
000022f0  73 73 73 73 73 73 73 73  73 73 73 73 73 73 73 73  |ssssssssssssssss|
*
00002310  73 73 73 73 22 0d 23 46  39 20 f1 8a 35 2c 33 29  |ssss".#F9 ..5,3)|
00002320  3b 55 55 24 3b 22 54 65  72 6d 22 3b 52 52 24 3b  |;UU$;"Term";RR$;|
00002330  22 3a 22 3b 8a 32 35 2c  33 29 3b 55 55 24 3b 22  |":";.25,3);UU$;"|
00002340  59 65 61 72 22 3b 52 52  24 3b 22 3a 22 20 0d 23  |Year";RR$;":" .#|
00002350  50 45 20 f1 8a 30 2c 34  29 3b 55 55 24 3b 22 49  |PE ..0,4);UU$;"I|
00002360  6e 66 6c 61 74 69 6f 6e  22 3b 52 52 24 3b 22 3a  |nflation";RR$;":|
00002370  22 3b 8a 31 37 2c 34 29  3b 55 55 24 3b 22 55 6e  |";.17,4);UU$;"Un|
00002380  65 6d 70 6c 6f 79 6d 65  6e 74 22 3b 52 52 24 3b  |employment";RR$;|
00002390  22 3a 22 0d 23 5a 44 20  f1 8a 32 2c 35 29 3b 55  |":".#ZD ..2,5);U|
000023a0  55 24 3b 22 52 65 66 6f  72 6d 73 22 3b 52 52 24  |U$;"Reforms";RR$|
000023b0  3b 22 3a 22 3b 8a 31 36  2c 35 29 3b 55 55 24 3b  |;":";.16,5);UU$;|
000023c0  22 45 78 63 68 61 6e 67  65 20 52 61 74 65 22 3b  |"Exchange Rate";|
000023d0  52 52 24 3b 22 3a 22 0d  23 5f 40 20 f1 8a 31 2c  |RR$;":".#_@ ..1,|
000023e0  36 29 3b 55 55 24 3b 22  50 6f 70 2e 52 74 6e 67  |6);UU$;"Pop.Rtng|
000023f0  22 3b 52 52 24 3b 22 3a  22 3b 8a 31 36 2c 36 29  |";RR$;":";.16,6)|
00002400  3b 55 55 24 3b 22 41 63  63 2e 42 61 6c 22 3b 52  |;UU$;"Acc.Bal";R|
00002410  52 24 3b 22 3a 60 22 0d  23 64 39 20 f1 8a 30 2c  |R$;":`".#d9 ..0,|
00002420  37 29 3b 51 51 24 3b 22  2c 2c 2c 2c 2c 2c 2c 2c  |7);QQ$;",,,,,,,,|
00002430  2c 2c 2c 2c 2c 2c 2c 2c  2c 2c 2c 2c 2c 2c 2c 2c  |,,,,,,,,,,,,,,,,|
00002440  2c 2c 2c 2c 2c 2c 2c 2c  2c 2c 2c 2c 2c 2c 2c 22  |,,,,,,,,,,,,,,,"|
00002450  0d 23 ef 05 e1 0d 23 f0  0d dd f2 42 55 44 47 45  |.#....#....BUDGE|
00002460  54 41 0d 23 fa 39 20 20  20 20 20 20 20 e3 49 25  |TA.#.9       .I%|
00002470  3d 38 b8 39 3a f1 8a 31  30 2c 49 25 29 3b 5a 24  |=8.9:..10,I%);Z$|
00002480  3b 55 55 24 3b 22 42 55  44 47 45 54 20 44 41 59  |;UU$;"BUDGET DAY|
00002490  20 5d 54 41 58 45 53 5b  22 3a ed 0d 23 ff 24 f1  | ]TAXES[":..#.$.|
000024a0  8a 31 31 2c 31 30 29 3b  55 24 3b 22 2c 2c 2c 2c  |.11,10);U$;",,,,|
000024b0  2c 2c 2c 2c 2c 2c 2c 2c  2c 2c 2c 2c 2c 2c 22 0d  |,,,,,,,,,,,,,,".|
000024c0  24 00 13 e7 49 58 3c 30  2e 30 31 20 49 58 3d 30  |$...IX<0.01 IX=0|
000024d0  20 20 0d 24 01 11 e7 43  58 3c 30 2e 30 31 20 43  |  .$...CX<0.01 C|
000024e0  58 3d 30 0d 24 02 11 e7  56 58 3c 30 2e 30 31 20  |X=0.$...VX<0.01 |
000024f0  56 58 3d 30 0d 24 04 58  20 20 20 20 f1 8a 38 2c  |VX=0.$.X    ..8,|
00002500  31 32 29 3b 22 41 22 3b  56 56 24 3b 22 49 6e 63  |12);"A";VV$;"Inc|
00002510  6f 6d 65 20 20 20 20 20  20 54 61 78 22 3b 52 52  |ome      Tax";RR|
00002520  24 3b 22 3a 20 20 20 20  20 20 20 20 20 20 22 3b  |$;":          ";|
00002530  8a a4 4b 28 49 58 2a 31  30 30 29 2d 39 2c 31 32  |..K(IX*100)-9,12|
00002540  29 3b 49 58 2a 31 30 30  3b 22 25 22 0d 24 0e 56  |);IX*100;"%".$.V|
00002550  20 20 f1 8a 38 2c 31 33  29 3b 22 42 22 3b 56 56  |  ..8,13);"B";VV|
00002560  24 3b 22 43 6f 72 70 6f  72 61 74 69 6f 6e 20 54  |$;"Corporation T|
00002570  61 78 22 3b 52 52 24 3b  22 3a 20 20 20 20 20 20  |ax";RR$;":      |
00002580  20 20 20 20 22 3b 8a a4  4b 28 43 58 2a 31 30 30  |    ";..K(CX*100|
00002590  29 2d 39 2c 31 33 29 3b  43 58 2a 31 30 30 3b 22  |)-9,13);CX*100;"|
000025a0  25 22 0d 24 18 5a 20 20  20 20 f1 8a 38 2c 31 34  |%".$.Z    ..8,14|
000025b0  29 3b 22 43 22 3b 56 56  24 3b 22 56 61 6c 75 65  |);"C";VV$;"Value|
000025c0  20 41 64 64 65 64 20 54  61 78 22 3b 52 52 24 3b  | Added Tax";RR$;|
000025d0  22 3a 20 20 20 20 20 20  20 20 20 20 22 3b 8a a4  |":          ";..|
000025e0  4b 28 56 58 2a 31 30 30  29 2d 39 2c 31 34 29 3b  |K(VX*100)-9,14);|
000025f0  56 58 2a 31 30 30 3b 22  25 22 20 20 0d 24 1d 11  |VX*100;"%"  .$..|
00002600  40 25 3d 26 30 30 30 32  30 32 30 41 20 0d 24 22  |@%=&0002020A .$"|
00002610  4b 20 20 f1 8a 38 2c 31  36 29 3b 22 44 22 3b 55  |K  ..8,16);"D";U|
00002620  55 24 3b 22 54 6f 62 61  63 63 6f 20 20 20 20 20  |U$;"Tobacco     |
00002630  54 61 78 22 3b 52 52 24  3b 22 3a 60 20 20 20 20  |Tax";RR$;":`    |
00002640  20 20 20 20 20 20 22 3b  8a a4 4b 28 54 58 29 2d  |      ";..K(TX)-|
00002650  39 2c 31 36 29 3b 54 58  0d 24 2c 4c 20 20 f1 8a  |9,16);TX.$,L  ..|
00002660  38 2c 31 37 29 3b 22 45  22 3b 55 55 24 3b 22 41  |8,17);"E";UU$;"A|
00002670  6c 63 6f 68 6f 6c 20 20  20 20 20 54 61 78 22 3b  |lcohol     Tax";|
00002680  52 52 24 3b 22 3a 60 20  20 20 20 20 20 20 20 20  |RR$;":`         |
00002690  20 22 3b 8a a4 4b 28 41  58 29 2d 39 2c 31 37 29  | ";..K(AX)-9,17)|
000026a0  3b 41 58 20 0d 24 36 51  20 20 f1 8a 38 2c 31 38  |;AX .$6Q  ..8,18|
000026b0  29 3b 22 46 22 3b 55 55  24 3b 22 50 65 74 72 6f  |);"F";UU$;"Petro|
000026c0  6c 65 75 6d 20 20 20 54  61 78 22 3b 52 52 24 3b  |leum   Tax";RR$;|
000026d0  22 3a 60 20 20 20 20 20  20 20 20 20 20 22 3b 8a  |":`          ";.|
000026e0  a4 4b 28 50 58 29 2d 39  2c 31 38 29 3b 50 58 20  |.K(PX)-9,18);PX |
000026f0  20 20 20 20 20 0d 24 3b  09 40 25 3d 31 30 0d 24  |     .$;.@%=10.$|
00002700  40 2b 20 20 20 20 20 f1  8a 38 2c 31 39 29 3b 22  |@+     ..8,19);"|
00002710  47 22 3b 56 56 24 3b 22  4e 6f 20 6d 6f 72 65 20  |G";VV$;"No more |
00002720  63 68 61 6e 67 65 73 22  20 0d 24 45 1a 20 f1 8a  |changes" .$E. ..|
00002730  30 2c 32 30 29 3b 51 51  24 3b c4 33 39 2c bd 34  |0,20);QQ$;.39,.4|
00002740  34 29 20 0d 24 4a 42 20  20 20 f1 8a 30 2c 32 31  |4) .$JB   ..0,21|
00002750  29 3b 55 55 24 3b 4e 4e  24 3b 56 56 24 3b 50 50  |);UU$;NN$;VV$;PP|
00002760  24 3b 22 20 20 20 20 45  6e 74 65 72 20 50 52 45  |$;"    Enter PRE|
00002770  46 49 58 20 6f 66 20 74  61 78 20 63 68 61 6e 67  |FIX of tax chang|
00002780  65 20 20 20 22 0d 24 54  07 e8 4b 24 0d 24 59 12  |e   ".$T..K$.$Y.|
00002790  e7 4b 24 3d 22 47 22 8c  8d 74 77 64 20 20 0d 24  |.K$="G"..twd  .$|
000027a0  5e 3a 20 20 20 20 20 20  20 20 20 20 20 20 20 e7  |^:             .|
000027b0  20 4b 24 3c 22 41 22 84  4b 24 3e 22 47 22 f1 bd  | K$<"A".K$>"G"..|
000027c0  28 37 29 3b 8a 30 2c 32  32 29 89 28 31 38 29 3a  |(7);.0,22).(18):|
000027d0  e5 8d 44 4a 64 20 20 20  0d 24 68 44 20 20 20 f1  |..DJd   .$hD   .|
000027e0  8a 30 2c 32 31 29 89 28  34 30 29 3b 8a 33 2c 32  |.0,21).(40);.3,2|
000027f0  31 29 3b 55 55 24 3b 50  50 24 3b 22 45 6e 74 65  |1);UU$;PP$;"Ente|
00002800  72 20 66 75 74 75 72 65  20 52 41 54 45 20 74 68  |r future RATE th|
00002810  65 6e 20 3c 52 45 54 55  52 4e 3e 22 0d 24 6d 1d  |en <RETURN>".$m.|
00002820  f1 8a 30 2c 32 32 29 22  20 20 20 20 20 20 20 20  |..0,22)"        |
00002830  22 3b 8a 30 2c 32 31 29  20 0d 24 72 18 e7 4b 24  |";.0,21) .$r..K$|
00002840  3d 22 41 22 e8 49 58 3a  49 58 3d 49 58 2f 31 30  |="A".IX:IX=IX/10|
00002850  30 0d 24 74 18 e7 4b 24  3d 22 42 22 e8 43 58 3a  |0.$t..K$="B".CX:|
00002860  43 58 3d 43 58 2f 31 30  30 0d 24 76 18 e7 4b 24  |CX=CX/100.$v..K$|
00002870  3d 22 43 22 e8 56 58 3a  56 58 3d 56 58 2f 31 30  |="C".VX:VX=VX/10|
00002880  30 0d 24 78 0e e7 4b 24  3d 22 44 22 e8 54 58 0d  |0.$x..K$="D".TX.|
00002890  24 7a 0f e7 4b 24 3d 22  45 22 e8 41 58 20 0d 24  |$z..K$="E".AX .$|
000028a0  7c 0e e7 4b 24 3d 22 46  22 e8 50 58 0d 24 83 15  ||..K$="F".PX.$..|
000028b0  f1 8a 30 2c 32 32 29 22  20 20 20 20 20 20 20 20  |..0,22)"        |
000028c0  22 0d 24 86 09 e5 8d 64  7a 63 0d 24 b7 05 e1 0d  |".$....dzc.$....|
000028d0  24 b8 0d dd f2 42 55 44  47 45 54 42 0d 24 c2 40  |$....BUDGETB.$.@|
000028e0  20 20 20 20 20 20 20 e3  49 25 3d 38 b8 39 3a f1  |       .I%=8.9:.|
000028f0  8a 38 2c 49 25 29 3b 5a  24 3b 53 53 24 3b 22 42  |.8,I%);Z$;SS$;"B|
00002900  55 44 47 45 54 20 44 41  59 20 5d 42 45 4e 45 46  |UDGET DAY ]BENEF|
00002910  49 54 53 5b 22 3a ed 20  20 20 20 20 0d 24 cc 26  |ITS[":.     .$.&|
00002920  f1 8a 39 2c 31 30 29 3b  53 24 3b 22 2c 2c 2c 2c  |..9,10);S$;",,,,|
00002930  2c 2c 2c 2c 2c 2c 2c 2c  2c 2c 2c 2c 2c 2c 2c 2c  |,,,,,,,,,,,,,,,,|
00002940  2c 22 0d 24 d1 10 40 25  3d 26 30 30 30 32 30 32  |,".$..@%=&000202|
00002950  30 41 0d 24 d6 4d 20 20  20 f1 8a 34 2c 31 32 29  |0A.$.M   ..4,12)|
00002960  3b 22 41 22 3b 59 59 24  3b 22 43 68 69 6c 64 20  |;"A";YY$;"Child |
00002970  41 6c 6c 6f 77 61 6e 63  65 20 20 20 20 20 22 3b  |Allowance     ";|
00002980  52 52 24 3b 22 3a 60 20  20 20 20 20 20 22 3b 8a  |RR$;":`      ";.|
00002990  a4 4b 28 46 46 29 2d 36  2c 31 32 29 3b 46 46 0d  |.K(FF)-6,12);FF.|
000029a0  24 e0 4e 20 20 20 f1 8a  34 2c 31 34 29 3b 22 42  |$.N   ..4,14);"B|
000029b0  22 3b 59 59 24 3b 22 4f  6c 64 20 41 67 65 20 50  |";YY$;"Old Age P|
000029c0  65 6e 73 69 6f 6e 20 20  20 20 20 22 3b 52 52 24  |ension     ";RR$|
000029d0  3b 22 3a 60 20 20 20 20  20 20 22 3b 8a a4 4b 28  |;":`      ";..K(|
000029e0  47 47 29 2d 36 2c 31 34  29 3b 47 47 20 0d 24 ea  |GG)-6,14);GG .$.|
000029f0  4d 20 20 20 f1 8a 34 2c  31 36 29 3b 22 43 22 3b  |M   ..4,16);"C";|
00002a00  59 59 24 3b 22 55 6e 65  6d 70 6c 6f 79 6d 65 6e  |YY$;"Unemploymen|
00002a10  74 20 42 65 6e 65 66 69  74 22 3b 52 52 24 3b 22  |t Benefit";RR$;"|
00002a20  3a 60 20 20 20 20 20 20  22 3b 8a a4 4b 28 48 48  |:`      ";..K(HH|
00002a30  29 2d 36 2c 31 36 29 3b  48 48 0d 24 ef 09 40 25  |)-6,16);HH.$..@%|
00002a40  3d 31 30 0d 24 f4 29 20  20 20 20 20 f1 8a 34 2c  |=10.$.)     ..4,|
00002a50  31 39 29 22 44 22 3b 53  53 24 3b 22 4e 6f 20 6d  |19)"D";SS$;"No m|
00002a60  6f 72 65 20 63 68 61 6e  67 65 73 22 0d 24 f9 1a  |ore changes".$..|
00002a70  20 20 f1 8a 30 2c 32 30  29 3b 51 51 24 3b c4 33  |  ..0,20);QQ$;.3|
00002a80  39 2c bd 34 34 29 0d 24  fe 40 20 20 20 f1 8a 30  |9,.44).$.@   ..0|
00002a90  2c 32 31 29 3b 53 53 24  3b 4e 4e 24 3b 55 55 24  |,21);SS$;NN$;UU$|
00002aa0  3b 50 50 24 3b 22 20 20  20 20 45 6e 74 65 72 20  |;PP$;"    Enter |
00002ab0  50 52 45 46 49 58 20 6f  66 20 74 61 78 20 63 68  |PREFIX of tax ch|
00002ac0  61 6e 67 65 22 20 0d 25  08 08 e8 4b 24 20 0d 25  |ange" .%...K$ .%|
00002ad0  12 10 e7 4b 24 3d 22 44  22 8c 8d 44 7f 65 0d 25  |...K$="D"..D.e.%|
00002ae0  1c 37 20 20 20 20 20 20  20 20 20 20 20 20 20 e7  |.7             .|
00002af0  20 4b 24 3c 22 41 22 84  4b 24 3e 22 44 22 f1 bd  | K$<"A".K$>"D"..|
00002b00  28 37 29 3b 8a 30 2c 32  32 29 89 28 31 38 29 3a  |(7);.0,22).(18):|
00002b10  e5 8d 64 7e 64 0d 25 26  43 20 20 f1 8a 30 2c 32  |..d~d.%&C  ..0,2|
00002b20  31 29 89 28 34 30 29 3b  8a 32 2c 32 31 29 3b 55  |1).(40);.2,21);U|
00002b30  55 24 3b 50 50 24 3b 22  45 6e 74 65 72 20 66 75  |U$;PP$;"Enter fu|
00002b40  74 75 72 65 20 52 41 54  45 20 74 68 65 6e 20 3c  |ture RATE then <|
00002b50  52 45 54 55 52 4e 3e 22  0d 25 30 1d f1 8a 30 2c  |RETURN>".%0...0,|
00002b60  32 32 29 22 20 20 20 20  20 20 20 20 22 3b 8a 30  |22)"        ";.0|
00002b70  2c 32 31 29 20 0d 25 3a  0e e7 4b 24 3d 22 41 22  |,21) .%:..K$="A"|
00002b80  e8 46 46 0d 25 3f 0e e7  4b 24 3d 22 42 22 e8 47  |.FF.%?..K$="B".G|
00002b90  47 0d 25 58 0e e7 4b 24  3d 22 43 22 e8 48 48 0d  |G.%X..K$="C".HH.|
00002ba0  25 5d 16 f1 8a 30 2c 32  32 29 22 20 20 20 20 20  |%]...0,22)"     |
00002bb0  20 20 20 22 20 0d 25 62  09 e5 8d 64 42 64 0d 25  |   " .%b...dBd.%|
00002bc0  7f 05 e1 0d 27 10 09 dd  f2 56 41 52 0d 27 15 07  |....'....VAR.'..|
00002bd0  ea 4b 24 0d 27 1a 6c 20  5a 24 3d bd 28 31 34 31  |.K$.'.l Z$=.(141|
00002be0  29 3a 59 24 3d bd 28 26  39 36 29 3a 57 24 3d bd  |):Y$=.(&96):W$=.|
00002bf0  28 26 39 31 29 3a 56 24  3d bd 28 26 39 32 29 3a  |(&91):V$=.(&92):|
00002c00  55 24 3d bd 28 26 39 33  29 3a 54 24 3d bd 28 26  |U$=.(&93):T$=.(&|
00002c10  39 34 29 3a 53 24 3d bd  28 26 39 35 29 3a 59 59  |94):S$=.(&95):YY|
00002c20  24 3d bd 28 26 38 36 29  3a 54 54 24 3d bd 28 26  |$=.(&86):TT$=.(&|
00002c30  38 34 29 3a 53 53 24 3d  bd 28 26 38 35 29 20 0d  |84):SS$=.(&85) .|
00002c40  27 1f 5a 52 24 3d bd 28  26 39 37 29 3a 52 52 24  |'.ZR$=.(&97):RR$|
00002c50  3d bd 28 26 38 37 29 3a  50 50 24 3d bd 28 31 33  |=.(&87):PP$=.(13|
00002c60  36 29 3a 4f 4f 24 3d bd  28 31 33 37 29 3a 4e 4e  |6):OO$=.(137):NN|
00002c70  24 3d bd 28 31 35 37 29  3a 56 56 24 3d bd 28 26  |$=.(157):VV$=.(&|
00002c80  38 32 29 3a 57 57 24 3d  bd 28 26 38 31 29 3a 55  |82):WW$=.(&81):U|
00002c90  55 24 3d bd 28 26 38 33  29 0d 27 24 28 49 58 3d  |U$=.(&83).'$(IX=|
00002ca0  2e 33 30 3a 43 58 3d 2e  35 3a 56 58 3d 2e 31 35  |.30:CX=.5:VX=.15|
00002cb0  3a 54 58 3d 2e 36 3a 41  58 3d 34 3a 50 58 3d 2e  |:TX=.6:AX=4:PX=.|
00002cc0  38 0d 27 2e 28 46 46 3d  35 2e 35 3a 47 47 3d 33  |8.'.(FF=5.5:GG=3|
00002cd0  30 3a 48 48 3d 32 38 3a  50 43 4d 3d 30 3a 57 41  |0:HH=28:PCM=0:WA|
00002ce0  4c 3d 32 3a 41 57 4c 3d  30 0d 27 38 36 54 3d 31  |L=2:AWL=0.'86T=1|
00002cf0  3a 47 3d 30 3a 49 3d 2e  31 3a 55 3d 30 3a 45 3d  |:G=0:I=.1:U=0:E=|
00002d00  32 3a 50 3d 30 3a 4b 54  3d 31 3a 43 4f 55 3d 32  |2:P=0:KT=1:COU=2|
00002d10  3a 50 43 4d 3d 30 3a 4b  3d 30 3a 4f 4f 3d 30 0d  |:PCM=0:K=0:OO=0.|
00002d20  27 42 1c 46 3d 31 30 30  3a 42 3d 30 3a 4f 54 3d  |'B.F=100:B=0:OT=|
00002d30  31 33 32 30 30 30 3a 53  3d 30 20 0d 27 4c 17 4c  |132000:S=0 .'L.L|
00002d40  3d 30 3a 50 4f 3d 30 3a  43 3d 35 35 3a 46 41 3d  |=0:PO=0:C=55:FA=|
00002d50  31 30 0d 27 56 1c 4f 50  3d 31 32 3a 43 4f 3d 31  |10.'V.OP=12:CO=1|
00002d60  30 30 30 3a 41 41 3d b3  28 35 29 2b 39 38 0d 27  |000:AA=.(5)+98.'|
00002d70  60 15 49 4e 3d 37 34 35  30 2b b3 28 31 30 29 2a  |`.IN=7450+.(10)*|
00002d80  31 30 30 0d 27 6a 20 47  53 3d 34 35 30 30 3a 46  |100.'j GS=4500:F|
00002d90  50 3d 34 30 30 30 3a 42  53 3d 31 34 34 3a 54 50  |P=4000:BS=144:TP|
00002da0  3d 32 35 0d 27 74 1e 43  43 3d 2e 35 3a 44 44 3d  |=25.'t.CC=.5:DD=|
00002db0  33 3a 45 45 3d 2e 37 3a  56 56 3d 38 33 30 30 30  |3:EE=.7:VV=83000|
00002dc0  20 0d 27 7e 21 58 41 3d  31 32 38 30 30 30 3a 58  | .'~!XA=128000:X|
00002dd0  43 3d 36 35 3a 58 5a 3d  32 30 30 3a 52 52 3d 31  |C=65:XZ=200:RR=1|
00002de0  30 30 0d 27 88 1c 44 3d  2e 32 3a 49 49 3d 30 3a  |00.'..D=.2:II=0:|
00002df0  4a 4a 3d 30 3a 4b 4b 3d  30 3a 4c 4c 3d 30 0d 27  |JJ=0:KK=0:LL=0.'|
00002e00  92 08 4d 4d 3d 30 0d 27  97 07 59 3d 31 0d 27 9c  |..MM=0.'..Y=1.'.|
00002e10  05 e1 0d 29 04 09 dd f2  43 4c 52 0d 29 09 07 20  |...)....CLR.).. |
00002e20  ea 58 0d 29 0e 1d 20 20  20 e3 58 3d 38 b8 32 32  |.X.)..   .X=8.22|
00002e30  3a f1 8a 30 2c 58 29 3b  89 28 34 30 29 3a ed 0d  |:..0,X);.(40):..|
00002e40  29 18 05 e1 0d 2a f8 0a  dd f2 43 41 4c 43 0d 2b  |)....*....CALC.+|
00002e50  02 32 58 43 3d 58 43 2b  28 58 43 2a 49 29 3a 58  |.2XC=XC+(XC*I):X|
00002e60  42 3d a8 20 28 28 46 41  2a 46 46 29 2b 28 4f 50  |B=. ((FA*FF)+(OP|
00002e70  2a 47 47 29 2b 28 55 2a  48 48 29 2a 35 32 29 20  |*GG)+(U*HH)*52) |
00002e80  0d 2b 0c 20 58 41 3d a8  20 28 58 41 2b 28 58 41  |.+. XA=. (XA+(XA|
00002e90  2a 49 29 29 3a 58 44 3d  46 46 2b 47 47 2b 48 48  |*I)):XD=FF+GG+HH|
00002ea0  0d 2b 11 15 e7 58 44 3c  3d 30 20 58 44 3d 30 2e  |.+...XD<=0 XD=0.|
00002eb0  30 30 31 20 20 0d 2b 16  1a 58 50 3d 58 41 2b 58  |001  .+..XP=XA+X|
00002ec0  42 3a 50 50 3d 31 35 2a  28 58 44 2f 58 43 29 0d  |B:PP=15*(XD/XC).|
00002ed0  2b 1b 0f e7 50 50 3e 31  35 50 50 3d 31 35 0d 2b  |+...PP>15PP=15.+|
00002ee0  20 10 e7 58 43 3e 58 44  20 50 50 3d 30 20 0d 2b  | ..XC>XD PP=0 .+|
00002ef0  25 14 e7 20 41 58 3c 3d  30 20 41 58 3d 2e 30 30  |%.. AX<=0 AX=.00|
00002f00  31 20 0d 2b 26 13 e7 20  54 58 3c 3d 30 20 54 58  |1 .+&.. TX<=0 TX|
00002f10  3d 2e 30 30 31 0d 2b 27  13 e7 20 50 58 3c 3d 30  |=.001.+'.. PX<=0|
00002f20  20 50 58 3d 2e 30 30 31  0d 2b 2a 2a 44 44 3d 44  | PX=.001.+**DD=D|
00002f30  44 2b 28 44 44 2a 49 29  3a 45 45 3d 45 45 2b 28  |D+(DD*I):EE=EE+(|
00002f40  45 45 2a 49 29 3a 43 43  3d 43 43 2b 28 43 43 2a  |EE*I):CC=CC+(CC*|
00002f50  49 29 0d 2b 34 19 20 42  53 3d 28 32 39 35 2b 28  |I).+4. BS=(295+(|
00002f60  54 2a 35 29 29 2a 44 44  2f 41 58 0d 2b 3e 22 e7  |T*5))*DD/AX.+>".|
00002f70  42 53 3e 28 32 39 35 2b  28 54 2a 35 29 29 20 42  |BS>(295+(T*5)) B|
00002f80  53 3d 28 32 39 35 2b 28  54 2a 35 29 29 0d 2b 48  |S=(295+(T*5)).+H|
00002f90  1b 20 46 50 3d 28 36 30  30 30 2b 28 54 2a 31 30  |. FP=(6000+(T*10|
00002fa0  29 29 2a 43 43 2f 54 58  0d 2b 52 26 e7 46 50 3e  |))*CC/TX.+R&.FP>|
00002fb0  28 36 30 30 30 2b 28 54  2a 31 30 29 29 20 46 50  |(6000+(T*10)) FP|
00002fc0  3d 28 36 30 30 30 2b 28  54 2a 31 30 29 29 0d 2b  |=(6000+(T*10)).+|
00002fd0  5c 1a 47 53 3d 28 36 30  30 30 2b 28 54 2a 35 30  |\.GS=(6000+(T*50|
00002fe0  29 29 2a 45 45 2f 50 58  0d 2b 66 26 e7 47 53 3e  |))*EE/PX.+f&.GS>|
00002ff0  28 36 30 30 30 2b 28 54  2a 35 30 29 29 20 47 53  |(6000+(T*50)) GS|
00003000  3d 28 36 30 30 30 2b 28  54 2a 35 30 29 29 0d 2b  |=(6000+(T*50)).+|
00003010  70 1c 56 56 3d 56 56 2b  28 56 56 2a 49 29 3a 56  |p.VV=VV+(VV*I):V|
00003020  54 3d a8 28 56 56 2a 56  58 29 0d 2b 7a 1b e7 56  |T=.(VV*VX).+z..V|
00003030  58 3e 2e 31 39 56 54 3d  28 56 54 2a 28 2e 31 39  |X>.19VT=(VT*(.19|
00003040  2f 56 58 29 29 0d 2b 89  1e 42 53 3d 42 53 2a 41  |/VX)).+..BS=BS*A|
00003050  58 3a 46 50 3d 46 50 2a  54 58 3a 47 53 3d 47 53  |X:FP=FP*TX:GS=GS|
00003060  2a 50 58 0d 2b 8e 15 54  53 3d a8 28 42 53 2b 46  |*PX.+..TS=.(BS+F|
00003070  50 2b 47 53 29 20 20 20  0d 2b 93 18 e7 41 58 2b  |P+GS)   .+...AX+|
00003080  50 58 2b 54 58 3c 30 2e  30 31 20 54 53 3d 30 20  |PX+TX<0.01 TS=0 |
00003090  0d 2b 98 25 53 53 3d a8  28 32 30 30 2a 28 28 44  |.+.%SS=.(200*((D|
000030a0  44 2b 45 45 2b 43 43 29  2f 28 41 58 2b 50 58 2b  |D+EE+CC)/(AX+PX+|
000030b0  54 58 29 29 29 0d 2b a2  12 e7 53 53 3e 31 39 30  |TX))).+...SS>190|
000030c0  20 53 53 3d 31 39 30 0d  2b ac 17 e7 54 3c 39 58  | SS=190.+...T<9X|
000030d0  56 3d 2e 31 36 35 2d 28  54 2f 31 30 30 29 0d 2b  |V=.165-(T/100).+|
000030e0  b6 16 58 54 3d 28 b3 28  34 29 2a 2e 30 31 29 2b  |..XT=(.(4)*.01)+|
000030f0  2e 34 37 20 0d 2b c0 13  58 54 3d 58 54 2d 28 2e  |.47 .+..XT=XT-(.|
00003100  30 32 35 2a 54 29 20 0d  2b c1 12 e7 49 58 3c 3d  |025*T) .+...IX<=|
00003110  30 20 49 58 3d 2e 30 30  31 0d 2b c2 12 e7 56 58  |0 IX=.001.+...VX|
00003120  3c 3d 30 20 56 58 3d 2e  30 30 31 0d 2b c3 12 e7  |<=0 VX=.001.+...|
00003130  43 58 3c 3d 30 20 43 58  3d 2e 30 30 31 0d 2b ca  |CX<=0 CX=.001.+.|
00003140  15 43 51 3d a8 28 32 30  30 2a 28 58 56 2f 56 58  |.CQ=.(200*(XV/VX|
00003150  29 29 0d 2b d4 11 e7 43  51 3e 32 30 34 43 51 3d  |)).+...CQ>204CQ=|
00003160  32 30 34 0d 2b de 17 43  53 3d a8 28 34 30 30 2a  |204.+..CS=.(400*|
00003170  28 58 54 2f 43 58 29 29  20 20 0d 2b e8 11 e7 43  |(XT/CX))  .+...C|
00003180  53 3e 34 30 30 43 53 3d  34 30 30 0d 2b f2 13 43  |S>400CS=400.+..C|
00003190  4f 3d 32 30 30 2b 43 51  2b 53 53 2b 43 53 0d 2b  |O=200+CQ+SS+CS.+|
000031a0  fc 13 e7 43 4f 3e 31 30  30 30 43 4f 3d 31 30 30  |...CO>1000CO=100|
000031b0  30 0d 2c 06 1a e7 43 58  3e 2e 37 39 43 4f 3d 31  |0.,...CX>.79CO=1|
000031c0  39 39 2d 28 43 58 2a 31  30 30 29 0d 2c 10 15 55  |99-(CX*100).,..U|
000031d0  3d 32 35 2d 28 43 4f 2a  32 35 2f 31 30 30 30 29  |=25-(CO*25/1000)|
000031e0  0d 2c 1a 12 55 3d 28 a8  28 55 2a 31 30 29 29 2f  |.,..U=(.(U*10))/|
000031f0  31 30 0d 2c 24 11 e7 55  3c 30 55 3d b3 28 33 29  |10.,$..U<0U=.(3)|
00003200  2a 2e 31 0d 2c 2e 32 20  41 41 3d 41 41 2b 28 41  |*.1.,.2 AA=AA+(A|
00003210  41 2a 49 29 3a 49 4e 3d  49 4e 2b 28 49 4e 2a 49  |A*I):IN=IN+(IN*I|
00003220  29 3a 49 41 3d a8 28 28  32 35 2d 55 29 2a 49 4e  |):IA=.((25-U)*IN|
00003230  2a 49 58 29 20 0d 2c 33  10 e7 49 58 3c 2e 30 31  |*IX) .,3..IX<.01|
00003240  20 49 41 3d 30 0d 2c 38  12 43 49 3d a8 28 43 4f  | IA=0.,8.CI=.(CO|
00003250  2a 41 41 2a 43 58 29 0d  2c 3d 10 e7 43 58 3c 2e  |*AA*CX).,=..CX<.|
00003260  30 31 20 43 49 3d 30 0d  2c 42 12 54 54 3d 56 54  |01 CI=0.,B.TT=VT|
00003270  2b 49 41 2b 43 49 2b 54  53 0d 2c 4c 1d 49 3d 28  |+IA+CI+TS.,L.I=(|
00003280  28 28 54 54 2b 58 42 2d  28 54 54 2a 49 29 29 2f  |((TT+XB-(TT*I))/|
00003290  4f 54 29 2d 31 29 0d 2c  56 0b e7 49 3c 30 49 3d  |OT)-1).,V..I<0I=|
000032a0  30 0d 2c 60 18 49 3d 49  2b 28 28 b3 28 36 29 2b  |0.,`.I=I+((.(6)+|
000032b0  54 29 2a 2e 30 31 29 20  20 0d 2c 6a 12 4c 3d 4c  |T)*.01)  .,j.L=L|
000032c0  2b 28 54 54 2d 58 50 2d  58 5a 29 0d 2c 74 17 e7  |+(TT-XP-XZ).,t..|
000032d0  4c 3c 30 49 3d 49 2b 28  94 4c 2f 31 30 30 30 30  |L<0I=I+(.L/10000|
000032e0  30 29 0d 2c 7e 21 45 3d  45 2d 28 45 2a 49 29 3a  |0).,~!E=E-(E*I):|
000032f0  45 3d 45 2b 2e 31 2b 28  b3 28 31 30 29 2a 2e 30  |E=E+.1+(.(10)*.0|
00003300  31 29 20 0d 2c 88 14 45  3d 28 a8 28 45 2a 31 30  |1) .,..E=(.(E*10|
00003310  30 29 29 2f 31 30 30 0d  2c 92 0b e7 45 3e 33 45  |0))/100.,...E>3E|
00003320  3d 33 0d 2c 9c 18 e7 45  3c 2e 35 8c 45 3d 2e 35  |=3.,...E<.5.E=.5|
00003330  2b b3 28 34 29 2a 2e 31  35 20 0d 2c a6 11 50 51  |+.(4)*.15 .,..PQ|
00003340  3d 32 30 2d 28 49 2a 31  30 30 29 0d 2c b0 0d e7  |=20-(I*100).,...|
00003350  50 51 3c 30 50 51 3d 30  0d 2c ba 10 50 52 3d 32  |PQ<0PQ=0.,..PR=2|
00003360  35 2d 28 55 2a 31 30 29  0d 2c c4 0d e7 50 52 3c  |5-(U*10).,...PR<|
00003370  30 50 52 3d 30 0d 2c ce  14 50 3d a8 28 50 4f 2b  |0PR=0.,..P=.(PO+|
00003380  50 50 2b 50 51 2b 50 52  29 0d 2c d8 19 e7 49 58  |PP+PQ+PR).,...IX|
00003390  3e 2e 33 35 2b 28 4b 2f  31 30 30 29 20 42 3d 54  |>.35+(K/100) B=T|
000033a0  2b 31 0d 2c e2 10 e7 42  3e 31 50 3d a8 28 50 2f  |+1.,...B>1P=.(P/|
000033b0  42 29 0d 2c ec 09 42 3d  42 2d 31 0d 2c f6 17 e7  |B).,..B=B-1.,...|
000033c0  47 47 3c 28 58 43 2f 33  29 50 3d b3 28 31 37 29  |GG<(XC/3)P=.(17)|
000033d0  2b 34 0d 2d 00 05 e1 0d  2e e0 09 dd f2 52 45 53  |+4.-.........RES|
000033e0  0d 2e ea 0e f1 8a 31 33  2c 33 29 3b 54 20 0d 2e  |......13,3);T ..|
000033f0  f4 6b f1 8a 33 32 2c 33  29 3b 50 50 24 3b 59 3a  |.k..32,3);PP$;Y:|
00003400  f2 53 4e 44 3a f1 8a 33  32 2c 33 29 3b 4f 4f 24  |.SND:..32,3);OO$|
00003410  3b 59 3b 8a 31 32 2c 34  29 3b 22 20 20 20 22 3b  |;Y;.12,4);"   ";|
00003420  8a 31 32 2c 34 29 3b 50  50 24 3b a8 28 49 2a 31  |.12,4);PP$;.(I*1|
00003430  30 30 29 3b 22 25 22 3b  4f 4f 24 3a f2 53 4e 44  |00);"%";OO$:.SND|
00003440  3a f1 8a 31 32 2c 34 29  3b 4f 4f 24 3b a8 28 49  |:..12,4);OO$;.(I|
00003450  2a 31 30 30 29 3b 22 25  22 0d 2e fe 64 f1 8a 33  |*100);"%"...d..3|
00003460  32 2c 34 29 3b 22 20 20  20 20 22 3b 8a 33 32 2c  |2,4);"    ";.32,|
00003470  34 29 3b 50 50 24 3b 55  3b 22 4d 2e 22 3b 4f 4f  |4);PP$;U;"M.";OO|
00003480  24 3a f2 53 4e 44 3a f1  8a 33 32 2c 34 29 3b 4f  |$:.SND:..32,4);O|
00003490  4f 24 3b 55 3b 22 4d 2e  22 3b 8a 31 32 2c 35 29  |O$;U;"M.";.12,5)|
000034a0  3b 50 50 24 3b 53 3b 4f  4f 24 3a f2 53 4e 44 3a  |;PP$;S;OO$:.SND:|
000034b0  f1 8a 31 32 2c 35 29 3b  4f 4f 24 3b 53 0d 2f 03  |..12,5);OO$;S./.|
000034c0  19 e7 4c 3c 30 49 51 24  3d 57 57 24 20 8b 20 49  |..L<0IQ$=WW$ . I|
000034d0  51 24 3d 52 52 24 0d 2f  07 11 40 25 3d 26 30 30  |Q$=RR$./..@%=&00|
000034e0  30 32 30 32 30 41 20 0d  2f 08 4a f1 8a 33 33 2c  |02020A ./.J..33,|
000034f0  35 29 3b 22 20 20 20 20  20 20 22 3b 8a 33 32 2c  |5);"      ";.32,|
00003500  35 29 3b 50 50 24 3b 22  24 22 3b 45 3b 22 2f 60  |5);PP$;"$";E;"/`|
00003510  22 3a f2 53 4e 44 3a f1  8a 33 32 2c 35 29 3b 4f  |":.SND:..32,5);O|
00003520  4f 24 3b 22 24 22 3b 45  3b 22 2f 60 22 3b 55 55  |O$;"$";E;"/`";UU|
00003530  24 0d 2f 09 09 40 25 3d  31 30 0d 2f 0a 4c f1 8a  |$./..@%=10./.L..|
00003540  31 32 2c 36 29 3b 22 20  20 20 20 22 3b 8a 31 32  |12,6);"    ";.12|
00003550  2c 36 29 3b 50 50 24 3b  50 3b 4f 4f 24 3a f2 53  |,6);PP$;P;OO$:.S|
00003560  4e 44 3a f1 8a 31 32 2c  36 29 3b 4f 4f 24 3b 50  |ND:..12,6);OO$;P|
00003570  3b 8a 32 37 2c 36 29 3b  22 20 20 20 20 20 20 20  |;.27,6);"       |
00003580  20 20 20 20 22 20 0d 2f  0b 34 f1 8a 32 37 2c 36  |    " ./.4..27,6|
00003590  29 3b 50 50 24 3b 49 51  24 3b a8 4c 22 4d 2e 22  |);PP$;IQ$;.L"M."|
000035a0  4f 4f 24 3a f2 53 4e 44  3a f1 8a 32 37 2c 36 29  |OO$:.SND:..27,6)|
000035b0  4f 4f 24 3b 49 51 24 3b  a8 4c 0d 30 6f 05 e1 0d  |OO$;IQ$;.L.0o...|
000035c0  32 c8 0b dd f2 53 50 41  43 45 0d 32 d2 3b f1 8a  |2....SPACE.2.;..|
000035d0  30 2c 32 32 29 3b 54 54  24 3b 4e 4e 24 3b 52 52  |0,22);TT$;NN$;RR|
000035e0  24 3b 22 20 88 50 72 65  73 73 20 74 68 65 20 53  |$;" .Press the S|
000035f0  50 41 43 45 20 42 41 52  20 74 6f 20 63 6f 6e 74  |PACE BAR to cont|
00003600  69 6e 75 65 22 0d 32 dc  14 e7 20 bf 28 30 29 3e  |inue".2... .(0)>|
00003610  22 20 22 8c 20 8d 64 5c  72 0d 32 e6 0d f5 20 fd  |" ". .d\r.2... .|
00003620  20 be 3d 22 20 22 0d 32  f0 14 f1 8a 30 2c 32 32  | .=" ".2....0,22|
00003630  29 3b 89 28 34 30 29 3a  e1 20 0d 36 b0 0b dd f2  |);.(40):. .6....|
00003640  50 52 4f 43 44 0d 36 ba  38 f1 8a 30 2c 32 32 29  |PROCD.6.8..0,22)|
00003650  3b 52 52 24 3b 4e 4e 24  3b 22 20 20 86 88 50 52  |;RR$;NN$;"  ..PR|
00003660  4f 43 45 53 53 49 4e 47  20 44 41 54 41 20 2d 20  |OCESSING DATA - |
00003670  50 6c 65 61 73 65 20 57  61 69 74 20 22 0d 36 c4  |Please Wait ".6.|
00003680  05 e1 0d 3a 98 09 dd f2  57 4b 45 0d 3a a2 0f f2  |...:....WKE.:...|
00003690  43 4c 52 3a 4a 3d b3 28  34 29 0d 3a ac 3c f1 8a  |CLR:J=.(4).:.<..|
000036a0  31 2c 38 29 3b 53 53 24  3b 22 57 20 65 20 65 20  |1,8);SS$;"W e e |
000036b0  6b 20 73 20 20 74 20 6f  20 20 45 20 6c 20 65 20  |k s  t o  E l e |
000036c0  63 20 74 20 69 20 6f 20  6e 20 3a 22 3b 52 52 24  |c t i o n :";RR$|
000036d0  3b 50 50 24 3b 4a 0d 3a  b6 17 f1 8a 30 2c 39 29  |;PP$;J.:....0,9)|
000036e0  3b 51 51 24 3b c4 33 39  2c bd 34 34 29 0d 3a c0  |;QQ$;.39,.44).:.|
000036f0  5e f1 8a 35 2c 31 31 29  3b 55 55 24 3b 22 41 20  |^..5,11);UU$;"A |
00003700  47 65 6e 65 72 61 6c 20  45 6c 65 63 74 69 6f 6e  |General Election|
00003710  20 6d 75 73 74 20 74 61  6b 65 20 22 3b 8a 37 2c  | must take ";.7,|
00003720  31 32 29 3b 55 55 24 3b  22 70 6c 61 63 65 20 69  |12);UU$;"place i|
00003730  6e 22 3b 52 52 24 3b 4a  3b 55 55 24 3b 22 77 65  |n";RR$;J;UU$;"we|
00003740  65 6b 73 27 20 74 69 6d  65 2e 22 0d 3a ca 17 e7  |eks' time.".:...|
00003750  20 4a 3d 31 20 f1 8a 32  33 2c 31 32 29 3b 22 27  | J=1 ..23,12);"'|
00003760  73 22 0d 3a d4 4f f1 8a  34 2c 31 34 29 3b 22 59  |s".:.O..4,14);"Y|
00003770  6f 75 20 6e 6f 77 20 68  61 76 65 20 74 68 65 20  |ou now have the |
00003780  6f 70 70 6f 72 74 75 6e  69 74 79 20 74 6f 22 2c  |opportunity to",|
00003790  22 69 6d 70 72 6f 76 65  20 79 6f 75 72 20 50 4f  |"improve your PO|
000037a0  50 55 4c 41 52 49 54 59  20 72 61 74 69 6e 67 2e  |PULARITY rating.|
000037b0  22 0d 3a de 37 50 3d 50  2d a8 50 43 4d 3a f1 8a  |".:.7P=P-.PCM:..|
000037c0  31 32 2c 36 29 3b 50 50  24 3b 50 3b 4f 4f 24 3a  |12,6);PP$;P;OO$:|
000037d0  f2 53 50 41 43 45 3a f1  8a 31 32 2c 36 29 3b 4f  |.SPACE:..12,6);O|
000037e0  4f 24 3b 50 3b 4f 4f 24  0d 3a e8 10 e7 43 4f 55  |O$;P;OO$.:...COU|
000037f0  3d 31 20 e5 8d 44 60 7b  0d 3a f2 12 f1 8a 30 2c  |=1 ..D`{.:....0,|
00003800  31 31 29 3b 89 28 32 34  30 29 0d 3a fc 92 f1 8a  |11);.(240).:....|
00003810  34 2c 31 31 29 3b 22 59  6f 75 20 77 69 6c 6c 20  |4,11);"You will |
00003820  68 61 76 65 20 31 30 30  30 20 75 6e 69 74 73 20  |have 1000 units |
00003830  74 6f 22 27 22 20 20 20  20 61 6c 6c 6f 63 61 74  |to"'"    allocat|
00003840  65 20 61 6e 64 20 79 6f  75 20 73 68 6f 75 6c 64  |e and you should|
00003850  20 74 72 79 20 74 6f 20  22 27 22 20 20 20 20 75  | try to "'"    u|
00003860  73 65 20 74 68 65 73 65  20 69 6e 20 61 72 65 61  |se these in area|
00003870  73 20 77 68 69 63 68 20  72 65 71 75 69 72 65 20  |s which require |
00003880  22 27 22 20 20 20 20 69  6d 6d 65 64 69 61 74 65  |"'"    immediate|
00003890  20 61 74 74 65 6e 74 69  6f 6e 2e 22 0d 3b 06 6c  | attention.".;.l|
000038a0  f1 8a 34 2c 31 36 29 3b  22 69 2e 65 20 69 66 20  |..4,16);"i.e if |
000038b0  4c 61 77 20 61 6e 64 20  4f 72 64 65 72 20 68 61  |Law and Order ha|
000038c0  73 20 62 65 65 6e 20 61  22 27 22 20 20 20 20 70  |s been a"'"    p|
000038d0  72 6f 62 6c 65 6d 20 74  68 65 6e 20 61 6c 6c 6f  |roblem then allo|
000038e0  63 61 74 65 20 73 6f 6d  65 20 75 6e 69 74 73 22  |cate some units"|
000038f0  27 22 20 20 20 20 74 6f  20 74 68 69 73 20 43 41  |'"    to this CA|
00003900  54 45 47 4f 52 59 2e 22  0d 3b 10 28 f2 53 50 41  |TEGORY.".;.(.SPA|
00003910  43 45 3a f1 8a 30 2c 31  31 29 3b 89 28 31 36 30  |CE:..0,11);.(160|
00003920  29 3b 8a 30 2c 31 36 29  3b 89 28 32 34 30 29 20  |);.0,16);.(240) |
00003930  0d 3b 1a 72 f1 8a 34 2c  31 31 29 3b 22 57 68 65  |.;.r..4,11);"Whe|
00003940  6e 20 79 6f 75 20 68 61  76 65 20 61 6c 6c 6f 63  |n you have alloc|
00003950  61 74 65 64 20 61 6c 6c  20 79 6f 75 72 22 27 22  |ated all your"'"|
00003960  20 20 20 20 75 6e 69 74  73 20 61 6e 20 61 6d 6d  |    units an amm|
00003970  65 6e 64 65 64 20 50 4f  50 55 4c 41 52 49 54 59  |ended POPULARITY|
00003980  20 22 27 22 20 20 20 20  72 61 74 69 6e 67 20 77  | "'"    rating w|
00003990  69 6c 6c 20 62 65 20 64  69 73 70 6c 61 79 65 64  |ill be displayed|
000039a0  2e 22 0d 3b 24 61 f1 8a  34 2c 31 35 29 3b 22 59  |.".;$a..4,15);"Y|
000039b0  6f 75 20 6d 61 79 20 6b  65 65 70 20 74 72 79 69  |ou may keep tryi|
000039c0  6e 67 20 64 69 66 66 65  72 65 6e 74 22 27 22 20  |ng different"'" |
000039d0  20 20 20 61 6c 6c 6f 63  61 74 69 6f 6e 73 20 65  |   allocations e|
000039e0  61 63 68 20 77 65 65 6b  20 75 6e 74 69 6c 20 74  |ach week until t|
000039f0  68 65 22 27 22 20 20 20  20 45 4c 45 43 54 49 4f  |he"'"    ELECTIO|
00003a00  4e 2e 22 0d 3b 2e 28 f2  53 50 41 43 45 3a f1 8a  |N.".;.(.SPACE:..|
00003a10  30 2c 31 31 29 3b 89 28  31 36 30 29 3b 8a 30 2c  |0,11);.(160);.0,|
00003a20  31 35 29 3b 89 28 32 34  30 29 20 0d 3b 60 4a f1  |15);.(240) .;`J.|
00003a30  8a 30 2c 31 31 29 3b 89  28 31 36 30 29 3b 8a 30  |.0,11);.(160);.0|
00003a40  2c 31 35 29 3b 89 28 32  34 30 29 3a e3 20 49 25  |,15);.(240):. I%|
00003a50  3d 31 30 b8 31 31 3a f1  8a 31 34 2c 49 25 29 3b  |=10.11:..14,I%);|
00003a60  5a 24 3b 56 56 24 3b 22  4d 41 4e 49 46 45 53 54  |Z$;VV$;"MANIFEST|
00003a70  4f 22 3a ed 20 0d 3b 6a  1c f1 8a 31 34 2c 31 32  |O":. .;j...14,12|
00003a80  29 3b 51 51 24 3b 22 2c  2c 2c 2c 2c 2c 2c 2c 2c  |);QQ$;",,,,,,,,,|
00003a90  22 0d 3b 74 32 f1 8a 34  2c 31 32 29 3b 56 56 24  |".;t2..4,12);VV$|
00003aa0  3b 22 2e 2e 43 61 74 65  67 6f 72 79 2e 2e 2e 2e  |;"..Category....|
00003ab0  2e 2e 2e 2e 2e 2e 2e 2e  2e 2e 45 6d 70 68 61 73  |..........Emphas|
00003ac0  69 73 22 0d 3b 7e 30 50  43 4d 3d 30 3a 55 4e 49  |is".;~0PCM=0:UNI|
00003ad0  3d 31 30 30 30 3a 49 4e  46 3d 30 3a 55 4d 50 3d  |=1000:INF=0:UMP=|
00003ae0  30 3a 48 41 4c 3d 30 3a  4c 41 57 3d 30 3a 41 49  |0:HAL=0:LAW=0:AI|
00003af0  44 3d 30 0d 3b 88 4f f1  8a 35 2c 31 34 29 3b 22  |D=0.;.O..5,14);"|
00003b00  41 22 3b 55 55 24 3b 22  49 6e 66 6c 61 74 69 6f  |A";UU$;"Inflatio|
00003b10  6e 20 20 20 20 20 20 20  22 3b 52 52 24 3b 22 3a  |n       ";RR$;":|
00003b20  20 20 20 20 20 20 20 20  20 20 20 20 20 22 3b 8a  |             ";.|
00003b30  a4 4b 28 49 4e 46 29 2d  34 2c 31 34 29 3b 49 4e  |.K(INF)-4,14);IN|
00003b40  46 20 0d 3b 8d 4f f1 8a  35 2c 31 35 29 3b 22 42  |F .;.O..5,15);"B|
00003b50  22 3b 55 55 24 3b 22 55  6e 65 6d 70 6c 6f 79 6d  |";UU$;"Unemploym|
00003b60  65 6e 74 20 20 20 20 22  3b 52 52 24 3b 22 3a 20  |ent    ";RR$;": |
00003b70  20 20 20 20 20 20 20 20  20 20 20 20 22 3b 8a a4  |            ";..|
00003b80  4b 28 55 4d 50 29 2d 34  2c 31 35 29 3b 55 4d 50  |K(UMP)-4,15);UMP|
00003b90  20 0d 3b 92 51 f1 8a 35  2c 31 36 29 3b 22 43 22  | .;.Q..5,16);"C"|
00003ba0  3b 55 55 24 3b 22 4f 76  65 72 73 65 61 73 20 41  |;UU$;"Overseas A|
00003bb0  69 64 20 20 20 20 22 3b  52 52 24 3b 22 3a 20 20  |id    ";RR$;":  |
00003bc0  20 20 20 20 20 20 20 20  20 20 20 22 3b 8a a4 4b  |           ";..K|
00003bd0  28 41 49 44 29 2d 34 2c  31 36 29 3b 41 49 44 20  |(AID)-4,16);AID |
00003be0  20 20 0d 3b 9c 53 f1 8a  35 2c 31 37 29 3b 22 44  |  .;.S..5,17);"D|
00003bf0  22 3b 55 55 24 3b 22 4c  61 77 20 61 6e 64 20 4f  |";UU$;"Law and O|
00003c00  72 64 65 72 20 20 20 22  3b 52 52 24 3b 22 3a 20  |rder   ";RR$;": |
00003c10  20 20 20 20 20 20 20 20  20 20 20 20 22 3b 8a a4  |            ";..|
00003c20  4b 28 4c 41 57 29 2d 34  2c 31 37 29 3b 4c 41 57  |K(LAW)-4,17);LAW|
00003c30  20 20 20 20 20 0d 3b a6  24 f1 8a 35 2c 31 38 29  |     .;.$..5,18)|
00003c40  3b 22 45 22 3b 56 56 24  3b 22 57 68 65 6e 20 66  |;"E";VV$;"When f|
00003c50  69 6e 69 73 68 65 64 22  20 0d 3b ab 4c f1 8a 30  |inished" .;.L..0|
00003c60  2c 31 39 29 3b 89 28 38  30 29 3b 8a 30 2c 31 39  |,19);.(80);.0,19|
00003c70  29 3b 53 53 24 3b 22 20  20 20 20 20 59 6f 75 20  |);SS$;"     You |
00003c80  68 61 76 65 22 3b 55 55  24 3b 55 4e 49 3b 53 53  |have";UU$;UNI;SS|
00003c90  24 3b 22 75 6e 69 74 73  20 74 6f 20 61 6c 6c 6f  |$;"units to allo|
00003ca0  63 61 74 65 22 0d 3b ad  40 e7 20 55 4e 49 3d 30  |cate".;.@. UNI=0|
00003cb0  20 f1 8a 30 2c 31 39 29  3b 53 53 24 3b 22 20 20  | ..0,19);SS$;"  |
00003cc0  41 4c 4c 20 59 4f 55 52  20 55 4e 49 54 53 20 48  |ALL YOUR UNITS H|
00003cd0  41 56 45 20 42 45 45 4e  20 41 4c 4c 4f 43 41 54  |AVE BEEN ALLOCAT|
00003ce0  45 44 20 20 22 0d 3b b0  44 20 20 20 f1 8a 30 2c  |ED  ".;.D   ..0,|
00003cf0  32 31 29 3b 55 55 24 3b  4e 4e 24 3b 56 56 24 3b  |21);UU$;NN$;VV$;|
00003d00  50 50 24 3b 22 20 20 20  20 45 6e 74 65 72 20 50  |PP$;"    Enter P|
00003d10  52 45 46 49 58 20 6f 66  20 63 61 74 65 67 6f 72  |REFIX of categor|
00003d20  79 20 20 20 20 20 20 22  20 0d 3b ba 07 e8 4b 24  |y      " .;...K$|
00003d30  0d 3b c4 20 e7 20 4b 24  3d 22 45 22 f1 8a 30 2c  |.;. . K$="E"..0,|
00003d40  32 32 29 3b 22 20 20 20  20 22 3a e5 8d 74 4c 7c  |22);"    ":..tL||
00003d50  0d 3b ce 2a e7 20 4b 24  3c 22 41 22 84 4b 24 3e  |.;.*. K$<"A".K$>|
00003d60  22 45 22 f1 bd 28 37 29  3b 8a 30 2c 32 32 29 89  |"E"..(7);.0,22).|
00003d70  28 31 38 29 3a e5 8d 74  70 7b 0d 3b d8 46 20 20  |(18):..tp{.;.F  |
00003d80  20 f1 8a 30 2c 32 31 29  89 28 34 30 29 3b 8a 32  | ..0,21).(40);.2|
00003d90  2c 32 31 29 3b 55 55 24  3b 50 50 24 3b 22 45 6e  |,21);UU$;PP$;"En|
00003da0  74 65 72 20 4e 55 4d 42  45 52 20 6f 66 20 75 6e  |ter NUMBER of un|
00003db0  69 74 73 20 74 6f 20 61  6c 6c 6f 63 61 74 65 22  |its to allocate"|
00003dc0  0d 3b dd 1c f1 8a 30 2c  32 32 29 3b 22 20 20 20  |.;....0,22);"   |
00003dd0  20 20 20 20 22 3b 8a 30  2c 32 31 29 0d 3b e2 1a  |    ";.0,21).;..|
00003de0  e7 20 4b 24 3d 22 41 22  20 e8 49 4e 46 3a 49 4e  |. K$="A" .INF:IN|
00003df0  46 3d 94 49 4e 46 0d 3b  ec 1a e7 20 4b 24 3d 22  |F=.INF.;... K$="|
00003e00  42 22 20 e8 55 4d 50 3a  55 4d 50 3d 94 55 4d 50  |B" .UMP:UMP=.UMP|
00003e10  0d 3b f6 1a e7 20 4b 24  3d 22 43 22 20 e8 41 49  |.;... K$="C" .AI|
00003e20  44 3a 41 49 44 3d 94 41  49 44 0d 3c 00 1a e7 20  |D:AID=.AID.<... |
00003e30  4b 24 3d 22 44 22 20 e8  4c 41 57 3a 4c 41 57 3d  |K$="D" .LAW:LAW=|
00003e40  94 4c 41 57 0d 3c 05 15  f1 8a 30 2c 32 32 29 22  |.LAW.<....0,22)"|
00003e50  20 20 20 20 20 20 20 20  22 0d 3c 0a 81 45 4d 4c  |        ".<..EML|
00003e60  3d 49 4e 46 2b 55 4d 50  2b 41 49 44 2b 4c 41 57  |=INF+UMP+AID+LAW|
00003e70  3a e7 20 45 4d 4c 3e 31  30 30 30 20 f1 8a 30 2c  |:. EML>1000 ..0,|
00003e80  32 31 29 3b 57 57 24 3b  22 49 6e 73 75 66 66 69  |21);WW$;"Insuffi|
00003e90  63 69 65 6e 74 20 75 6e  69 74 73 20 20 2d 20 20  |cient units  -  |
00003ea0  52 45 2d 45 4e 54 45 52  20 20 2d 20 20 20 20 22  |RE-ENTER  -    "|
00003eb0  3b bd 37 3a f2 54 49 4d  45 52 28 2e 32 29 3a e5  |;.7:.TIMER(.2):.|
00003ec0  8d 44 7e 7b 20 8b 20 55  4e 49 3d 31 30 30 30 2d  |.D~{ . UNI=1000-|
00003ed0  45 4d 4c 3a e5 20 8d 74  48 7b 0d 3c 8c 51 e7 20  |EML:. .tH{.<.Q. |
00003ee0  49 3e 2e 31 31 2b 28 4a  2f 31 30 30 29 20 80 20  |I>.11+(J/100) . |
00003ef0  49 3c 2e 31 37 2b 28 4a  2f 31 30 30 29 20 50 43  |I<.17+(J/100) PC|
00003f00  4d 3d 50 43 4d 2b 28 28  28 49 4e 46 2f 32 35 30  |M=PCM+(((INF/250|
00003f10  29 2a 28 28 28 2e 32 35  2b 28 4a 2f 31 30 30 29  |)*(((.25+(J/100)|
00003f20  29 2d 49 29 2a 31 30 30  29 29 29 0d 3c 96 51 e7  |)-I)*100))).<.Q.|
00003f30  20 49 3e 2e 31 37 2b 28  4a 2f 31 30 30 29 20 80  | I>.17+(J/100) .|
00003f40  20 49 3c 2e 32 35 2b 28  4a 2f 31 30 30 29 20 50  | I<.25+(J/100) P|
00003f50  43 4d 3d 50 43 4d 2b 28  28 28 49 4e 46 2f 32 35  |CM=PCM+(((INF/25|
00003f60  30 29 2a 28 28 28 2e 32  35 2b 28 4a 2f 31 30 30  |0)*(((.25+(J/100|
00003f70  29 29 2d 49 29 2a 31 30  30 29 29 29 0d 3c a0 28  |))-I)*100))).<.(|
00003f80  e7 49 3e 3d 2e 32 35 2b  28 4a 2f 31 30 30 29 20  |.I>=.25+(J/100) |
00003f90  50 43 4d 3d 50 43 4d 2b  28 49 4e 46 2f 32 35 30  |PCM=PCM+(INF/250|
00003fa0  29 2a 35 20 0d 3c aa 4a  e7 55 3e 31 2e 34 2b 28  |)*5 .<.J.U>1.4+(|
00003fb0  4a 2f 31 30 29 20 80 20  55 3c 32 2e 36 2b 28 4a  |J/10) . U<2.6+(J|
00003fc0  2f 31 30 29 20 50 43 4d  3d 50 43 4d 2b 28 28 28  |/10) PCM=PCM+(((|
00003fd0  55 4d 50 2f 32 35 30 29  2a 28 55 2d 28 31 2e 34  |UMP/250)*(U-(1.4|
00003fe0  2b 28 4a 2f 31 30 29 29  29 29 2a 31 30 29 0d 3c  |+(J/10))))*10).<|
00003ff0  b4 4b e7 55 3e 32 2e 36  2b 28 4a 2f 31 30 29 20  |.K.U>2.6+(J/10) |
00004000  80 20 55 3c 33 2e 36 2b  28 4a 2f 31 30 29 20 50  |. U<3.6+(J/10) P|
00004010  43 4d 3d 50 43 4d 2b 28  28 28 55 4d 50 2f 32 35  |CM=PCM+(((UMP/25|
00004020  30 29 2a 28 28 28 34 2b  28 4a 2f 31 30 30 29 29  |0)*(((4+(J/100))|
00004030  2d 55 29 2a 31 30 29 29  29 0d 3c be 25 e7 55 3e  |-U)*10))).<.%.U>|
00004040  33 2e 36 2b 28 4a 2f 31  30 29 20 50 43 4d 3d 50  |3.6+(J/10) PCM=P|
00004050  43 4d 2b 28 55 4d 50 2f  32 35 30 29 2a 35 0d 3c  |CM+(UMP/250)*5.<|
00004060  c8 35 e7 20 49 3c 2e 31  32 2b 28 4a 2f 31 30 30  |.5. I<.12+(J/100|
00004070  29 80 20 55 3c 31 2e 39  2b 28 4a 2f 31 30 29 20  |). U<1.9+(J/10) |
00004080  50 43 4d 3d 50 43 4d 2b  28 41 49 44 2f 32 35 30  |PCM=PCM+(AID/250|
00004090  29 2a 4b 0d 3c d2 25 e7  20 57 41 4c 3d 31 20 8c  |)*K.<.%. WAL=1 .|
000040a0  20 50 43 4d 3d 50 43 4d  2b 28 4c 41 57 2f 32 35  | PCM=PCM+(LAW/25|
000040b0  30 29 2a 28 4b 2b 31 29  0d 3c dc 25 e7 20 57 41  |0)*(K+1).<.%. WA|
000040c0  4c 3d 30 20 8c 20 50 43  4d 3d 50 43 4d 2b 28 4c  |L=0 . PCM=PCM+(L|
000040d0  41 57 2f 31 35 30 29 2a  28 4b 2b 31 29 0d 3c e6  |AW/150)*(K+1).<.|
000040e0  53 50 3d a8 28 50 2b 50  43 4d 29 3a f1 8a 31 32  |SP=.(P+PCM):..12|
000040f0  2c 36 29 3b 50 50 24 3b  50 3b 4f 4f 24 3a f2 54  |,6);PP$;P;OO$:.T|
00004100  49 4d 45 52 28 2e 32 29  3a f1 8a 31 32 2c 36 29  |IMER(.2):..12,6)|
00004110  3b 4f 4f 24 3b 50 3b 4f  4f 24 3a f1 8a 30 2c 31  |;OO$;P;OO$:..0,1|
00004120  30 29 3b 89 28 32 34 30  29 3b 89 28 32 34 30 29  |0);.(240);.(240)|
00004130  0d 3c f0 1c 4a 3d 4a 2d  31 3a e7 4a 3d 30 20 43  |.<..J=J-1:.J=0 C|
00004140  4f 55 3d 32 3a 50 43 4d  3d 30 3a e1 0d 3c f5 2b  |OU=2:PCM=0:..<.+|
00004150  f1 8a 36 2c 31 34 29 3b  55 55 24 3b 22 44 6f 20  |..6,14);UU$;"Do |
00004160  79 6f 75 20 77 69 73 68  20 74 6f 20 74 72 79 20  |you wish to try |
00004170  61 67 61 69 6e 3f 22 0d  3c fa 43 20 20 20 f1 8a  |again?".<.C   ..|
00004180  30 2c 32 31 29 3b 55 55  24 3b 4e 4e 24 3b 54 54  |0,21);UU$;NN$;TT|
00004190  24 3b 50 50 24 3b 22 20  20 20 20 4b 65 79 20 69  |$;PP$;"    Key i|
000041a0  6e 20 59 20 6f 72 20 4e  20 74 68 65 6e 20 20 3c  |n Y or N then  <|
000041b0  52 45 54 55 52 4e 3e 20  20 22 0d 3d 04 36 e8 42  |RETURN>  ".=.6.B|
000041c0  24 3a e7 42 24 3d 22 59  22 20 f1 8a 30 2c 32 31  |$:.B$="Y" ..0,21|
000041d0  29 3b 89 28 34 30 29 3b  8a 30 2c 31 34 29 3b 89  |);.(40);.0,14);.|
000041e0  28 34 30 29 3a 43 4f 55  3d 31 3a e5 8d 74 6c 7a  |(40):COU=1:..tlz|
000041f0  0d 3d 0e 1e e7 42 24 3d  22 4e 22 20 f2 43 4c 52  |.=...B$="N" .CLR|
00004200  3a 43 4f 55 3d 32 3a 50  43 4d 3d 30 3a e1 0d 3d  |:COU=2:PCM=0:..=|
00004210  18 22 f1 bd 37 3b 8a 30  2c 32 32 29 3b 22 20 20  |."..7;.0,22);"  |
00004220  20 20 22 3b 8a 30 2c 32  31 29 3a e5 8d 64 7a 7c  |  ";.0,21):..dz||
00004230  0d 3e 7f 05 e1 0d 4e 20  09 dd f2 53 4e 44 0d 4e  |.>....N ...SND.N|
00004240  2a 19 d4 30 2c 2d 31 30  2c 30 2c 33 3a d4 30 2c  |*..0,-10,0,3:.0,|
00004250  2d 31 30 2c 31 2c 33 0d  4e 2f 12 f2 54 49 4d 45  |-10,1,3.N/..TIME|
00004260  52 28 2e 31 35 29 3a e1  20 0d 4e 84 0a dd f2 53  |R(.15):. .N....S|
00004270  4e 44 41 0d 4e 8e 1e d4  30 2c 2d 31 35 2c 32 2c  |NDA.N...0,-15,2,|
00004280  36 3a f2 54 49 4d 45 52  28 2e 31 35 29 3a e1 20  |6:.TIMER(.15):. |
00004290  20 0d 52 08 0e dd f2 51  55 45 53 54 42 3a db 0d  | .R....QUESTB:..|
000042a0  55 f0 1e f1 8a 31 31 2c  31 30 29 3b 22 44 6f 20  |U....11,10);"Do |
000042b0  79 6f 75 20 77 69 73 68  20 74 6f 3a 22 0d 55 fa  |you wish to:".U.|
000042c0  1d f1 8a 31 31 2c 31 33  29 3b 22 41 2e 43 6f 6e  |...11,13);"A.Con|
000042d0  74 69 6e 75 65 20 6e 6f  77 22 0d 56 04 1d f1 8a  |tinue now".V....|
000042e0  31 31 2c 31 35 29 3b 22  42 2e 53 61 76 65 20 74  |11,15);"B.Save t|
000042f0  6f 20 74 61 70 65 22 0d  56 0e 18 f1 8a 31 31 2c  |o tape".V....11,|
00004300  31 37 29 3b 22 43 2e 52  65 74 69 72 65 22 20 0d  |17);"C.Retire" .|
00004310  56 18 40 f1 8a 30 2c 32  30 29 3b bd 28 31 33 31  |V.@..0,20);.(131|
00004320  29 3b bd 31 35 37 3b bd  31 33 30 3b 22 20 20 20  |);.157;.130;"   |
00004330  20 45 4e 54 45 52 20 41  2d 43 20 54 48 45 4e 20  | ENTER A-C THEN |
00004340  50 52 45 53 53 20 3c 52  45 54 55 52 4e 3e 22 0d  |PRESS <RETURN>".|
00004350  56 22 30 e8 42 24 3a f1  8a 30 2c 32 31 29 3b 22  |V"0.B$:..0,21);"|
00004360  20 20 20 20 22 3a e7 42  24 3c 22 41 22 84 42 24  |    ":.B$<"A".B$|
00004370  3e 22 43 22 20 f1 bd 37  3a e5 8d 50 58 56 20 0d  |>"C" ..7:..PXV .|
00004380  56 2c 0f e7 42 24 3d 22  41 22 20 db 3a e1 0d 56  |V,..B$="A" .:..V|
00004390  36 20 e7 42 24 3d 22 42  22 20 db 3a f2 56 41 52  |6 .B$="B" .:.VAR|
000043a0  53 41 56 45 3a db 3a e5  8d 60 70 55 3a e0 0d 56  |SAVE:.:..`pU:..V|
000043b0  40 0f e7 42 24 3d 22 43  22 20 db 3a e0 0d 56 4a  |@..B$="C" .:..VJ|
000043c0  05 e0 0d 5d c0 0f dd f2  56 41 52 53 41 56 45 3a  |...]....VARSAVE:|
000043d0  db 0d 5d ca 32 f1 8a 32  2c 31 30 29 3b 22 53 45  |..].2..2,10);"SE|
000043e0  54 20 55 50 20 59 4f 55  52 20 43 41 53 53 45 54  |T UP YOUR CASSET|
000043f0  54 45 20 52 45 43 4f 52  44 45 52 20 57 49 54 48  |TE RECORDER WITH|
00004400  20 41 22 0d 5d d4 35 f1  8a 32 2c 31 34 29 3b 22  | A".].5..2,14);"|
00004410  41 20 42 4c 41 4e 4b 20  54 41 50 45 20 41 4e 44  |A BLANK TAPE AND|
00004420  20 54 48 45 4e 20 50 52  45 53 53 20 3c 52 45 54  | THEN PRESS <RET|
00004430  55 52 4e 3e 22 20 20 20  0d 5d de 07 e8 42 24 0d  |URN>"   .]...B$.|
00004440  61 b2 0f 58 3d ae 28 22  56 41 52 53 22 29 0d 61  |a..X=.("VARS").a|
00004450  bc 1e f1 23 58 2c 4d 31  24 2c 4d 32 24 2c 4d 33  |...#X,M1$,M2$,M3|
00004460  24 2c 4d 34 24 2c 41 24  2c 51 51 24 0d 61 c6 19  |$,M4$,A$,QQ$.a..|
00004470  f1 23 58 2c 49 58 2c 43  58 2c 56 58 2c 54 58 2c  |.#X,IX,CX,VX,TX,|
00004480  41 58 2c 50 58 0d 61 d0  1c f1 23 58 2c 57 41 4c  |AX,PX.a...#X,WAL|
00004490  2c 46 46 2c 47 47 2c 48  48 2c 50 43 4d 2c 41 57  |,FF,GG,HH,PCM,AW|
000044a0  4c 0d 61 da 1a f1 23 58  2c 54 2c 47 2c 49 2c 55  |L.a...#X,T,G,I,U|
000044b0  2c 45 2c 50 2c 4b 54 2c  43 4f 55 0d 61 e4 15 f1  |,E,P,KT,COU.a...|
000044c0  23 58 2c 4b 2c 4f 4f 2c  46 2c 42 2c 4f 54 2c 53  |#X,K,OO,F,B,OT,S|
000044d0  0d 61 ee 17 f1 23 58 2c  4c 2c 50 4f 2c 43 2c 46  |.a...#X,L,PO,C,F|
000044e0  41 2c 4f 50 2c 43 4f 0d  61 f8 19 f1 23 58 2c 41  |A,OP,CO.a...#X,A|
000044f0  41 2c 49 4e 2c 47 53 2c  46 50 2c 42 53 2c 54 50  |A,IN,GS,FP,BS,TP|
00004500  0d 62 02 16 f1 23 58 2c  43 43 2c 44 44 2c 45 45  |.b...#X,CC,DD,EE|
00004510  2c 56 56 2c 58 42 0d 62  0c 29 f1 23 58 2c 58 41  |,VV,XB.b.).#X,XA|
00004520  2c 58 43 2c 58 5a 2c 52  52 2c 58 44 2c 44 2c 49  |,XC,XZ,RR,XD,D,I|
00004530  49 2c 4a 4a 2c 4b 4b 2c  4c 4c 2c 4d 4d 2c 59 0d  |I,JJ,KK,LL,MM,Y.|
00004540  62 16 13 f1 23 58 2c 56  54 2c 49 41 2c 43 49 2c  |b...#X,VT,IA,CI,|
00004550  54 53 0d 62 20 10 f1 23  58 2c 54 54 2c 58 50 2c  |TS.b ..#X,TT,XP,|
00004560  58 5a 0d 62 2a 09 d9 23  58 3a e1 0d 65 90 0d dd  |XZ.b*..#X:..e...|
00004570  f2 56 41 52 4c 4f 41 44  0d 65 9a 35 db 3a f1 8a  |.VARLOAD.e.5.:..|
00004580  32 2c 31 30 29 3b 22 4c  4f 41 44 20 59 4f 55 52  |2,10);"LOAD YOUR|
00004590  20 43 41 53 53 45 54 54  45 20 52 45 43 4f 52 44  | CASSETTE RECORD|
000045a0  45 52 20 57 49 54 48 20  54 48 45 22 20 0d 65 a4  |ER WITH THE" .e.|
000045b0  31 f1 8a 32 2c 31 34 29  3b 22 54 41 50 45 20 43  |1..2,14);"TAPE C|
000045c0  4f 4e 54 41 49 4e 49 4e  47 20 54 48 45 20 53 41  |ONTAINING THE SA|
000045d0  56 45 44 20 56 41 52 49  41 42 4c 45 53 22 0d 65  |VED VARIABLES".e|
000045e0  ae 33 f1 8a 31 2c 31 38  29 3b 22 54 48 45 4e 20  |.3..1,18);"THEN |
000045f0  57 48 45 4e 20 41 4c 4c  20 49 53 20 52 45 41 44  |WHEN ALL IS READ|
00004600  59 20 50 52 45 53 53 20  3c 52 45 54 55 52 4e 3e  |Y PRESS <RETURN>|
00004610  22 0d 65 b8 07 e8 42 24  0d 66 58 0c de 42 24 28  |".e...B$.fX..B$(|
00004620  32 30 30 29 0d 66 62 0f  58 3d ad 28 22 56 41 52  |200).fb.X=.("VAR|
00004630  53 22 29 0d 66 6c 1e e8  23 58 2c 4d 31 24 2c 4d  |S").fl..#X,M1$,M|
00004640  32 24 2c 4d 33 24 2c 4d  34 24 2c 41 24 2c 51 51  |2$,M3$,M4$,A$,QQ|
00004650  24 0d 66 76 1a e8 23 58  2c 49 58 2c 43 58 2c 56  |$.fv..#X,IX,CX,V|
00004660  58 2c 54 58 2c 41 58 2c  50 58 20 0d 66 80 1d e8  |X,TX,AX,PX .f...|
00004670  23 58 2c 57 41 4c 2c 46  46 2c 47 47 2c 48 48 2c  |#X,WAL,FF,GG,HH,|
00004680  50 43 4d 2c 41 57 4c 20  0d 66 8a 1a e8 23 58 2c  |PCM,AWL .f...#X,|
00004690  54 2c 47 2c 49 2c 55 2c  45 2c 50 2c 4b 54 2c 43  |T,G,I,U,E,P,KT,C|
000046a0  4f 55 0d 66 94 17 e8 23  58 2c 4b 2c 4f 4f 2c 46  |OU.f...#X,K,OO,F|
000046b0  2c 42 2c 4f 54 2c 53 20  20 0d 66 9e 17 e8 23 58  |,B,OT,S  .f...#X|
000046c0  2c 4c 2c 50 4f 2c 43 2c  46 41 2c 4f 50 2c 43 4f  |,L,PO,C,FA,OP,CO|
000046d0  0d 66 a8 1a e8 23 58 2c  41 41 2c 49 4e 2c 47 53  |.f...#X,AA,IN,GS|
000046e0  2c 46 50 2c 42 53 2c 54  50 20 0d 66 b2 16 e8 23  |,FP,BS,TP .f...#|
000046f0  58 2c 43 43 2c 44 44 2c  45 45 2c 56 56 2c 58 42  |X,CC,DD,EE,VV,XB|
00004700  0d 66 bc 2b e8 23 58 2c  58 41 2c 58 43 2c 58 5a  |.f.+.#X,XA,XC,XZ|
00004710  2c 52 52 2c 58 44 2c 44  2c 49 49 2c 4a 4a 2c 4b  |,RR,XD,D,II,JJ,K|
00004720  4b 2c 4c 4c 2c 4d 4d 2c  59 20 20 0d 66 c6 20 e8  |K,LL,MM,Y  .f. .|
00004730  23 58 2c 56 54 2c 49 41  2c 43 49 2c 54 53 2c 54  |#X,VT,IA,CI,TS,T|
00004740  54 2c 58 50 2c 58 5a 20  20 20 20 0d 66 d0 09 d9  |T,XP,XZ    .f...|
00004750  23 58 3a e1 0d 7d 00 15  dd a4 4b 28 4a 29 3d 33  |#X:..}....K(J)=3|
00004760  39 2d a9 c3 28 a8 4a 29  20 0d ff                 |9-..(.J) ..|
0000476b