� �>&E00 �ttE
�7:�init:�oil:�players
�
(WEEK%=WEEK%+1
2
�r%=1�p-1
<�2:�map:�7:�drill
F� a=78 � �DZ@
P�bore(depth%)
Z�sell:game=�:�
d� WEEK%>14
n1game=�:�2:�map:�wait(3):�fill:�wait(3):�score
x�
�	*****
�
��init
�L� name$(3),cost%(3,14),wk%(3,14),pl%(3,14),field%(9,13),S$(3,14),tot%(3)
�!WEEK%=0:L=�(-�):game=�:r%=1:�
�
��players
�H�s%=1�2:�6,s%)�141�131"HOW MANY PLAYERS (1-4) ?":�:�:A=�:�A>48�A<53
�c�p=1�A-48:�'�4)�(p+128)"Enter the name of player No. ";p:�7)�(p+128)"Maximum of eight letters"
�>�16)name$(p-1):�(name$(p-1))>8 name$(p-1)=�name$(p-1),8)
� �(name$(p-1))<1 �7,11:�dH@
��:�
���map:�23;8202;0;0;0;:�131:�:�6:�6,1)"OIL FIELD":�1:�a%=65�78:�a%-62,3)�a%:�:�a%=0�9:�1,a%+5);a%�18,a%+5);a%:�:�7:�19,7,3;0;
�&�a%=3�16:�q%=5�14:�a%,q%)�227:�:�
��19,7,7;0;:�show:� game=� �

D�28,1,30,18,16:�128:�:�(8+r%):�9-�(name$(r%-1))/2,1)name$(r%-1)

0�7:�2,3)"Enter drilling"�3,5)"site details"

D�5:�''�3)"Letter ";:�:P$=�:�P$>"@"�P$<"O":�P$:P=�(P$):�0,-10,1,5

"7�6:�''�3)"Number ";:�:R=�:�R>47�R<58:�R:�0,-10,2,5

,;� field%(R-48,P-65)>0 � field%(R-48,P-65)<>3 �7:�:�TDA

6OS$(r%-1,WEEK%-1)=P$+"-"+�R:field%(R-48,P-65)=field%(R-48,P-65)+2:�wait(1):�

@p��portfolio:�back:�s%=0�1:�8-�(name$(r%-1))�2,s%)�(128+�(6))�141;name$(r%-1);"'s Portfolio WEEK ";WEEK%:�:�

J-�5)"SITE"�14)"COST"�22)"WEEKLY"�33)"P/L"

T[�a%=1�WEEK%:� cost%(r%-1,a%-1)=0 � �1,a%+4)�(64+a%)�3,a%+4)�37,"*"):�3,a%+4)" ":�DrA

^5�calc:pl$=�(pl%(r%-1,a%-1)):wk$=�(wk%(r%-1,a%-1))

hk�1,a%+4)�(64+a%)�6,a%+4)S$(r%-1,a%-1)�13,a%+4);cost%(r%-1,a%-1)�28-�(wk$),a%+4)wk$�38-�(pl$),a%+4);pl$

r�

|7�22)�133"TOTAL `";:� tot%(r%-1)<0�;�129;tot%(r%-1)

�'� tot%(r%-1)>=0 � �;�130;tot%(r%-1)

��

�+��drill:�23;8202;0;0;0;:x%=R-48:y%=P-65

�4� field%(x%,y%)=1 � ch%=90+�(9):co%=5000+�(2000)

�5� field%(x%,y%)=2 � ch%=70+�(20):co%=3000+�(2000)

�1� field%(x%,y%)=5 � ch%=100:co%=10000+�(4000)

�@�j%=6�7:�18-�(name$(p-2))/2,j%)�(128+�(6))�141name$(r%-1):�

�Q�0,10)�131" The chances of finding oil in this"�11)�131"sector are ";ch%;"%"

�I�'�133" The cost of drilling is `";co%;" per"�11)�133" fifty metres."

�4�'�8)�136�132"Do you wish to drill ?"':�v(89,78)

��a=78 �

�/�rig:�bg%=11�22:�0,bg%)�134�157;�39)�156:�

�� ch%=100 depth%=�(2)
$� ch%>97 � ch%<100 depth%=�(2)+1
#� ch%>94 � ch%<98 depth%=�(3)+1
#� ch%>88 � ch%<95 depth%=�(3)+2
&#� ch%>79 � ch%<89 depth%=�(3)+3
0#� ch%>69 � ch%<80 depth%=�(3)+4
:� �(100)>ch% depth%=8
D�
N!��v(f%,l%):�:a=�:�a=f%�a=l%:�
X��sell:�26:�:�portfolio
b?�(3)<2�WEEK%>13�7,22)�133"Press any key when ready":A=�:�
lP�28,0,23,39,21:�:�5)"Do you wish to sell any rigs ?":�v(78,89):�a=78 �tax:�
v?�'�7)"Which rig will you sell ?":�:g%=�:�(g%>64�g%<65+a%-1)
�D� cost%(r%-1,g%-65)=0 �7:�9)�136�134"NOTHING TO SELL !!!":�DlB
�F�28,0,23,39,0:sp%=(cost%(r%-1,g%-65)�2+cost%(r%-1,g%-65)��((4)+2))
�I�3,(g%-64)+4)" ";�4,(g%-64)+4)�9,"*");" SOLD for `";sp%;" ";�10,"*")
�1cost%(r%-1,g%-65)=0:tot%(r%-1)=tot%(r%-1)+sp%
�Z�19,WEEK%+5)�132�136"NEW TOTAL `";:� tot%(r%-1)<0�;�129;tot%(r%-1)� �;�130;tot%(r%-1)
�	�DlB
�
�tax:�
���bore(depth%)
�5�5,11)�130"DEPTH"�27,11)�129"COST":�wait(1):�top
�G�18,11)�131�255�134�157:�0,-10,6,3:�wait(.7):�28,2,22,38,12,31,0,0
�J�drill=1�depth%:�0,-10,6,3:cost%(r%-1,WEEK%-1)=cost%(r%-1,WEEK%-1)+co%
�� drill=1 pt=1 � pt=0
�6�pt)�130;drill*50;" metres";�16)�131�255�134�157;
Bct$=�(cost%(r%-1,WEEK%-1)):�29-�(ct$));�129;"`";ct$:�wait(.7)
,�:pl%(r%-1,WEEK%-1)=-cost%(r%-1,WEEK%-1)
Qvpos=�+12:� depth%=8 �26:�8,20)�132�136"This well is dry !!!":�wait(3):�T~C
 0�26:�a%=22�vpos �-1:�0,a%);�132:�wait(.3):�
*I�spout:wk%(r%-1,WEEK%-1)=cost%(r%-1,WEEK%-1)� depth%+(�(90)*depth%*9)
4d�31,1,vpos+1,131:�"This well will give a weekly income"�15)�131"of `";wk%(r%-1,WEEK%-1):�wait(4)
>Ptot%(r%-1)=tot%(r%-1)+(-cost%(r%-1,WEEK%-1)):� depth%=8cost%(r%-1,WEEK%-1)=0
H�
R	��oil
\(�x%=0�9:�y%=0�13:field%(x%,y%)=�:�:�
f�a%=0�39
p1x%=�(10)-1:y%=�(14)-1:�field%(x%,y%)<>0 ��DpC
zfield%(x%,y%)=�:�
��a%=0�9
�1x%=�(10)-1:y%=�(14)-1:�field%(x%,y%)<>0 ��tNC
�field%(x%,y%)=3:�
��
�
��fill
��x%=0�9:�y%=0�13
�*� field%(x%,y%)=0�field%(x%,y%)=2�k%=2
�+� field%(x%,y%)=-1�field%(x%,y%)=1�k%=0
�*� field%(x%,y%)=3�field%(x%,y%)=5�k%=9
�(�k%:�print:�1,-10,y%*10,1:�wait(.25)
�	�:�:�
�(��wait(time):ti=�+time*100:�:�ti<�:�
�
��show
�x%=0�9:�y%=0�13
�field%(x%,y%)=2 �2:�print
� field%(x%,y%)=1 �0:�print
$� field%(x%,y%)=5 �9:�print
.�:�:x%=0:y%=0:�
8��print:�y%+3,x%+5)�255:�
B7��calc:pl%(r%-1,a%-1)=pl%(r%-1,a%-1)+wk%(r%-1,a%-1)
L*tot%(r%-1)=tot%(r%-1)+wk%(r%-1,a%-1):�
V��back:�
``�k%=5�4+WEEK%:�3,k%)�148�157�131�10,k%)�147�157�132�20,k%)�145�157�135�29,k%)�146�157�132:�
j�
t:��score:�28,1,30,18,16:�128:�:�6:�3,1)"FINAL PROFITS"
~B�sc%=0�p-2:�sc%+1:�1,sc%*2+4)name$(sc%)�9)"`"�10);tot%(sc%):�
�
*FX210
��
�	��top
�+� de%=1�10:�de% � 2=0 � cr=125 � cr=230
�2�19,de%)�(cr):�1,-10,(10-de%)*5,3:�wait(.2):�
��
���rig:�
�0�"�����                                  �";
�0�"�����                                  �";
�0�"�����             � �                  �";
�0�"�����             � �                  �";
�0�"�����             � �                  �";
0�"�����             � �                  �";

0�"�����             � �                  �";
0�"�����             � �                  �";
0�"�����            � �                 �";
(0�"�����            �   �                 �";
2/�"�����           ��   ��                �"
<�
F��spout
P@vpos1=vpos:�dpth%=vpos1 � 11 �-1:�18,dpth%)�148:�wait(.2):�
Z.�loop%=10�0 �-1:�4,loop%)�148:�wait(.2):�
d�19,0)�252:�0,1,12,1:�18,0)�255�20,0)�255�17,0)�255�21,0)�255�16,0)�252�22,0)�252�15,0)�240�15,1)�175�23,0)�240�23,1)�175
nN�14,2)�175�24,2)�175:�l=1�10:�(13)+4,�(8)+2)�255��(16)+20,�(8)+2)�255:�
x�
���tax:� �(1)<.9 �
�,ttl%=tot%(r%-1):� ttl%<=0 � ttl%/20<=0 �
�A�:�10)�134�136"TAXES NOW DUE.":�0,1,1,1:�1,1,1,1:tx%=ttl%/20
�9�11)�129"TAX BILL = `";tx%:tot%(r%-1)=tot%(r%-1)-tx%
��:�
�K*K.0*T.|MF.A%=0TO(TOP-PA.)S.4:A%!&E00=A%!PA.:N.|MPA.=&E00|MO.|MGOTO10|M
�*FX138,0,128
�

00000000  0d 00 0a 12 e7 20 90 3e  26 45 30 30 20 e5 8d 74  |..... .>&E00 ..t|
00000010  74 45 0d 00 14 1a eb 37  3a f2 69 6e 69 74 3a f2  |tE.....7:.init:.|
00000020  6f 69 6c 3a f2 70 6c 61  79 65 72 73 0d 00 1e 05  |oil:.players....|
00000030  f5 0d 00 28 11 57 45 45  4b 25 3d 57 45 45 4b 25  |...(.WEEK%=WEEK%|
00000040  2b 31 0d 00 32 0d e3 72  25 3d 31 b8 70 2d 31 0d  |+1..2..r%=1.p-1.|
00000050  00 3c 15 eb 32 3a f2 6d  61 70 3a eb 37 3a f2 64  |.<..2:.map:.7:.d|
00000060  72 69 6c 6c 0d 00 46 11  e7 20 61 3d 37 38 20 8c  |rill..F.. a=78 .|
00000070  20 8d 44 5a 40 0d 00 50  11 f2 62 6f 72 65 28 64  | .DZ@..P..bore(d|
00000080  65 70 74 68 25 29 0d 00  5a 12 f2 73 65 6c 6c 3a  |epth%)..Z..sell:|
00000090  67 61 6d 65 3d a3 3a ed  0d 00 64 0e fd 20 57 45  |game=.:...d.. WE|
000000a0  45 4b 25 3e 31 34 0d 00  6e 31 67 61 6d 65 3d b9  |EK%>14..n1game=.|
000000b0  3a eb 32 3a f2 6d 61 70  3a f2 77 61 69 74 28 33  |:.2:.map:.wait(3|
000000c0  29 3a f2 66 69 6c 6c 3a  f2 77 61 69 74 28 33 29  |):.fill:.wait(3)|
000000d0  3a f2 73 63 6f 72 65 0d  00 78 05 e0 0d 00 82 09  |:.score..x......|
000000e0  2a 2a 2a 2a 2a 0d 00 8c  0a dd f2 69 6e 69 74 0d  |*****......init.|
000000f0  00 96 4c de 20 6e 61 6d  65 24 28 33 29 2c 63 6f  |..L. name$(3),co|
00000100  73 74 25 28 33 2c 31 34  29 2c 77 6b 25 28 33 2c  |st%(3,14),wk%(3,|
00000110  31 34 29 2c 70 6c 25 28  33 2c 31 34 29 2c 66 69  |14),pl%(3,14),fi|
00000120  65 6c 64 25 28 39 2c 31  33 29 2c 53 24 28 33 2c  |eld%(9,13),S$(3,|
00000130  31 34 29 2c 74 6f 74 25  28 33 29 0d 00 a0 21 57  |14),tot%(3)...!W|
00000140  45 45 4b 25 3d 30 3a 4c  3d b3 28 2d 91 29 3a 67  |EEK%=0:L=.(-.):g|
00000150  61 6d 65 3d a3 3a 72 25  3d 31 3a e1 0d 00 aa 0d  |ame=.:r%=1:.....|
00000160  dd f2 70 6c 61 79 65 72  73 0d 00 b4 48 e3 73 25  |..players...H.s%|
00000170  3d 31 b8 32 3a f1 8a 36  2c 73 25 29 bd 31 34 31  |=1.2:..6,s%).141|
00000180  bd 31 33 31 22 48 4f 57  20 4d 41 4e 59 20 50 4c  |.131"HOW MANY PL|
00000190  41 59 45 52 53 20 28 31  2d 34 29 20 3f 22 3a ed  |AYERS (1-4) ?":.|
000001a0  3a f5 3a 41 3d a5 3a fd  41 3e 34 38 80 41 3c 35  |:.:A=.:.A>48.A<5|
000001b0  33 0d 00 be 63 e3 70 3d  31 b8 41 2d 34 38 3a f1  |3...c.p=1.A-48:.|
000001c0  27 8a 34 29 bd 28 70 2b  31 32 38 29 22 45 6e 74  |'.4).(p+128)"Ent|
000001d0  65 72 20 74 68 65 20 6e  61 6d 65 20 6f 66 20 70  |er the name of p|
000001e0  6c 61 79 65 72 20 4e 6f  2e 20 22 3b 70 3a f1 8a  |layer No. ";p:..|
000001f0  37 29 bd 28 70 2b 31 32  38 29 22 4d 61 78 69 6d  |7).(p+128)"Maxim|
00000200  75 6d 20 6f 66 20 65 69  67 68 74 20 6c 65 74 74  |um of eight lett|
00000210  65 72 73 22 0d 00 c8 3e  e8 8a 31 36 29 6e 61 6d  |ers"...>..16)nam|
00000220  65 24 28 70 2d 31 29 3a  e7 a9 28 6e 61 6d 65 24  |e$(p-1):..(name$|
00000230  28 70 2d 31 29 29 3e 38  20 6e 61 6d 65 24 28 70  |(p-1))>8 name$(p|
00000240  2d 31 29 3d c0 6e 61 6d  65 24 28 70 2d 31 29 2c  |-1)=.name$(p-1),|
00000250  38 29 0d 00 d2 20 e7 a9  28 6e 61 6d 65 24 28 70  |8)... ..(name$(p|
00000260  2d 31 29 29 3c 31 20 ef  37 2c 31 31 3a e5 8d 64  |-1))<1 .7,11:..d|
00000270  48 40 0d 00 dc 07 ed 3a  e1 0d 00 e6 83 dd f2 6d  |H@.....:.......m|
00000280  61 70 3a ef 32 33 3b 38  32 30 32 3b 30 3b 30 3b  |ap:.23;8202;0;0;|
00000290  30 3b 3a fb 31 33 31 3a  db 3a fb 36 3a f1 8a 36  |0;:.131:.:.6:..6|
000002a0  2c 31 29 22 4f 49 4c 20  46 49 45 4c 44 22 3a fb  |,1)"OIL FIELD":.|
000002b0  31 3a e3 61 25 3d 36 35  b8 37 38 3a f1 8a 61 25  |1:.a%=65.78:..a%|
000002c0  2d 36 32 2c 33 29 bd 61  25 3a ed 3a e3 61 25 3d  |-62,3).a%:.:.a%=|
000002d0  30 b8 39 3a f1 8a 31 2c  61 25 2b 35 29 3b 61 25  |0.9:..1,a%+5);a%|
000002e0  8a 31 38 2c 61 25 2b 35  29 3b 61 25 3a ed 3a fb  |.18,a%+5);a%:.:.|
000002f0  37 3a ef 31 39 2c 37 2c  33 3b 30 3b 0d 00 f0 26  |7:.19,7,3;0;...&|
00000300  e3 61 25 3d 33 b8 31 36  3a e3 71 25 3d 35 b8 31  |.a%=3.16:.q%=5.1|
00000310  34 3a f1 8a 61 25 2c 71  25 29 bd 32 32 37 3a ed  |4:..a%,q%).227:.|
00000320  3a ed 0d 00 fa 1f ef 31  39 2c 37 2c 37 3b 30 3b  |:......19,7,7;0;|
00000330  3a f2 73 68 6f 77 3a e7  20 67 61 6d 65 3d b9 20  |:.show:. game=. |
00000340  e1 0d 01 04 44 ef 32 38  2c 31 2c 33 30 2c 31 38  |....D.28,1,30,18|
00000350  2c 31 36 3a fb 31 32 38  3a db 3a fb 28 38 2b 72  |,16:.128:.:.(8+r|
00000360  25 29 3a f1 8a 39 2d a9  28 6e 61 6d 65 24 28 72  |%):..9-.(name$(r|
00000370  25 2d 31 29 29 2f 32 2c  31 29 6e 61 6d 65 24 28  |%-1))/2,1)name$(|
00000380  72 25 2d 31 29 0d 01 0e  30 fb 37 3a f1 8a 32 2c  |r%-1)...0.7:..2,|
00000390  33 29 22 45 6e 74 65 72  20 64 72 69 6c 6c 69 6e  |3)"Enter drillin|
000003a0  67 22 8a 33 2c 35 29 22  73 69 74 65 20 64 65 74  |g".3,5)"site det|
000003b0  61 69 6c 73 22 0d 01 18  44 fb 35 3a f1 27 27 8a  |ails"...D.5:.''.|
000003c0  33 29 22 4c 65 74 74 65  72 20 22 3b 3a f5 3a 50  |3)"Letter ";:.:P|
000003d0  24 3d be 3a fd 50 24 3e  22 40 22 80 50 24 3c 22  |$=.:.P$>"@".P$<"|
000003e0  4f 22 3a f1 50 24 3a 50  3d 97 28 50 24 29 3a d4  |O":.P$:P=.(P$):.|
000003f0  30 2c 2d 31 30 2c 31 2c  35 0d 01 22 37 fb 36 3a  |0,-10,1,5.."7.6:|
00000400  f1 27 27 8a 33 29 22 4e  75 6d 62 65 72 20 22 3b  |.''.3)"Number ";|
00000410  3a f5 3a 52 3d a5 3a fd  52 3e 34 37 80 52 3c 35  |:.:R=.:.R>47.R<5|
00000420  38 3a f1 bd 52 3a d4 30  2c 2d 31 30 2c 32 2c 35  |8:..R:.0,-10,2,5|
00000430  0d 01 2c 3b e7 20 66 69  65 6c 64 25 28 52 2d 34  |..,;. field%(R-4|
00000440  38 2c 50 2d 36 35 29 3e  30 20 80 20 66 69 65 6c  |8,P-65)>0 . fiel|
00000450  64 25 28 52 2d 34 38 2c  50 2d 36 35 29 3c 3e 33  |d%(R-48,P-65)<>3|
00000460  20 ef 37 3a db 3a e5 8d  54 44 41 0d 01 36 4f 53  | .7:.:..TDA..6OS|
00000470  24 28 72 25 2d 31 2c 57  45 45 4b 25 2d 31 29 3d  |$(r%-1,WEEK%-1)=|
00000480  50 24 2b 22 2d 22 2b bd  52 3a 66 69 65 6c 64 25  |P$+"-"+.R:field%|
00000490  28 52 2d 34 38 2c 50 2d  36 35 29 3d 66 69 65 6c  |(R-48,P-65)=fiel|
000004a0  64 25 28 52 2d 34 38 2c  50 2d 36 35 29 2b 32 3a  |d%(R-48,P-65)+2:|
000004b0  f2 77 61 69 74 28 31 29  3a e1 0d 01 40 70 dd f2  |.wait(1):...@p..|
000004c0  70 6f 72 74 66 6f 6c 69  6f 3a f2 62 61 63 6b 3a  |portfolio:.back:|
000004d0  e3 73 25 3d 30 b8 31 3a  f1 8a 38 2d a9 28 6e 61  |.s%=0.1:..8-.(na|
000004e0  6d 65 24 28 72 25 2d 31  29 29 81 32 2c 73 25 29  |me$(r%-1)).2,s%)|
000004f0  bd 28 31 32 38 2b b3 28  36 29 29 bd 31 34 31 3b  |.(128+.(6)).141;|
00000500  6e 61 6d 65 24 28 72 25  2d 31 29 3b 22 27 73 20  |name$(r%-1);"'s |
00000510  50 6f 72 74 66 6f 6c 69  6f 20 57 45 45 4b 20 22  |Portfolio WEEK "|
00000520  3b 57 45 45 4b 25 3a ed  3a f1 0d 01 4a 2d f1 8a  |;WEEK%:.:...J-..|
00000530  35 29 22 53 49 54 45 22  8a 31 34 29 22 43 4f 53  |5)"SITE".14)"COS|
00000540  54 22 8a 32 32 29 22 57  45 45 4b 4c 59 22 8a 33  |T".22)"WEEKLY".3|
00000550  33 29 22 50 2f 4c 22 0d  01 54 5b e3 61 25 3d 31  |3)"P/L"..T[.a%=1|
00000560  b8 57 45 45 4b 25 3a e7  20 63 6f 73 74 25 28 72  |.WEEK%:. cost%(r|
00000570  25 2d 31 2c 61 25 2d 31  29 3d 30 20 8c 20 f1 8a  |%-1,a%-1)=0 . ..|
00000580  31 2c 61 25 2b 34 29 bd  28 36 34 2b 61 25 29 8a  |1,a%+4).(64+a%).|
00000590  33 2c 61 25 2b 34 29 c4  33 37 2c 22 2a 22 29 3a  |3,a%+4).37,"*"):|
000005a0  f1 8a 33 2c 61 25 2b 34  29 22 20 22 3a e5 8d 44  |..3,a%+4)" ":..D|
000005b0  72 41 0d 01 5e 35 f2 63  61 6c 63 3a 70 6c 24 3d  |rA..^5.calc:pl$=|
000005c0  c3 28 70 6c 25 28 72 25  2d 31 2c 61 25 2d 31 29  |.(pl%(r%-1,a%-1)|
000005d0  29 3a 77 6b 24 3d c3 28  77 6b 25 28 72 25 2d 31  |):wk$=.(wk%(r%-1|
000005e0  2c 61 25 2d 31 29 29 0d  01 68 6b f1 8a 31 2c 61  |,a%-1))..hk..1,a|
000005f0  25 2b 34 29 bd 28 36 34  2b 61 25 29 8a 36 2c 61  |%+4).(64+a%).6,a|
00000600  25 2b 34 29 53 24 28 72  25 2d 31 2c 61 25 2d 31  |%+4)S$(r%-1,a%-1|
00000610  29 8a 31 33 2c 61 25 2b  34 29 3b 63 6f 73 74 25  |).13,a%+4);cost%|
00000620  28 72 25 2d 31 2c 61 25  2d 31 29 8a 32 38 2d a9  |(r%-1,a%-1).28-.|
00000630  28 77 6b 24 29 2c 61 25  2b 34 29 77 6b 24 8a 33  |(wk$),a%+4)wk$.3|
00000640  38 2d a9 28 70 6c 24 29  2c 61 25 2b 34 29 3b 70  |8-.(pl$),a%+4);p|
00000650  6c 24 0d 01 72 05 ed 0d  01 7c 37 f1 8a 32 32 29  |l$..r....|7..22)|
00000660  bd 31 33 33 22 54 4f 54  41 4c 20 60 22 3b 3a e7  |.133"TOTAL `";:.|
00000670  20 74 6f 74 25 28 72 25  2d 31 29 3c 30 f1 3b bd  | tot%(r%-1)<0.;.|
00000680  31 32 39 3b 74 6f 74 25  28 72 25 2d 31 29 0d 01  |129;tot%(r%-1)..|
00000690  86 27 e7 20 74 6f 74 25  28 72 25 2d 31 29 3e 3d  |.'. tot%(r%-1)>=|
000006a0  30 20 8c 20 f1 3b bd 31  33 30 3b 74 6f 74 25 28  |0 . .;.130;tot%(|
000006b0  72 25 2d 31 29 0d 01 90  05 e1 0d 01 9a 2b dd f2  |r%-1)........+..|
000006c0  64 72 69 6c 6c 3a ef 32  33 3b 38 32 30 32 3b 30  |drill:.23;8202;0|
000006d0  3b 30 3b 30 3b 3a 78 25  3d 52 2d 34 38 3a 79 25  |;0;0;:x%=R-48:y%|
000006e0  3d 50 2d 36 35 0d 01 a4  34 e7 20 66 69 65 6c 64  |=P-65...4. field|
000006f0  25 28 78 25 2c 79 25 29  3d 31 20 8c 20 63 68 25  |%(x%,y%)=1 . ch%|
00000700  3d 39 30 2b b3 28 39 29  3a 63 6f 25 3d 35 30 30  |=90+.(9):co%=500|
00000710  30 2b b3 28 32 30 30 30  29 0d 01 ae 35 e7 20 66  |0+.(2000)...5. f|
00000720  69 65 6c 64 25 28 78 25  2c 79 25 29 3d 32 20 8c  |ield%(x%,y%)=2 .|
00000730  20 63 68 25 3d 37 30 2b  b3 28 32 30 29 3a 63 6f  | ch%=70+.(20):co|
00000740  25 3d 33 30 30 30 2b b3  28 32 30 30 30 29 0d 01  |%=3000+.(2000)..|
00000750  b8 31 e7 20 66 69 65 6c  64 25 28 78 25 2c 79 25  |.1. field%(x%,y%|
00000760  29 3d 35 20 8c 20 63 68  25 3d 31 30 30 3a 63 6f  |)=5 . ch%=100:co|
00000770  25 3d 31 30 30 30 30 2b  b3 28 34 30 30 30 29 0d  |%=10000+.(4000).|
00000780  01 c2 40 e3 6a 25 3d 36  b8 37 3a f1 8a 31 38 2d  |..@.j%=6.7:..18-|
00000790  a9 28 6e 61 6d 65 24 28  70 2d 32 29 29 2f 32 2c  |.(name$(p-2))/2,|
000007a0  6a 25 29 bd 28 31 32 38  2b b3 28 36 29 29 bd 31  |j%).(128+.(6)).1|
000007b0  34 31 6e 61 6d 65 24 28  72 25 2d 31 29 3a ed 0d  |41name$(r%-1):..|
000007c0  01 cc 51 f1 8a 30 2c 31  30 29 bd 31 33 31 22 20  |..Q..0,10).131" |
000007d0  54 68 65 20 63 68 61 6e  63 65 73 20 6f 66 20 66  |The chances of f|
000007e0  69 6e 64 69 6e 67 20 6f  69 6c 20 69 6e 20 74 68  |inding oil in th|
000007f0  69 73 22 8a 31 31 29 bd  31 33 31 22 73 65 63 74  |is".11).131"sect|
00000800  6f 72 20 61 72 65 20 22  3b 63 68 25 3b 22 25 22  |or are ";ch%;"%"|
00000810  0d 01 d6 49 f1 27 bd 31  33 33 22 20 54 68 65 20  |...I.'.133" The |
00000820  63 6f 73 74 20 6f 66 20  64 72 69 6c 6c 69 6e 67  |cost of drilling|
00000830  20 69 73 20 60 22 3b 63  6f 25 3b 22 20 70 65 72  | is `";co%;" per|
00000840  22 8a 31 31 29 bd 31 33  33 22 20 66 69 66 74 79  |".11).133" fifty|
00000850  20 6d 65 74 72 65 73 2e  22 0d 01 e0 34 f1 27 8a  | metres."...4.'.|
00000860  38 29 bd 31 33 36 bd 31  33 32 22 44 6f 20 79 6f  |8).136.132"Do yo|
00000870  75 20 77 69 73 68 20 74  6f 20 64 72 69 6c 6c 20  |u wish to drill |
00000880  3f 22 27 3a f2 76 28 38  39 2c 37 38 29 0d 01 ea  |?"':.v(89,78)...|
00000890  0b e7 61 3d 37 38 20 e1  0d 01 f4 2f f2 72 69 67  |..a=78 ..../.rig|
000008a0  3a e3 62 67 25 3d 31 31  b8 32 32 3a f1 8a 30 2c  |:.bg%=11.22:..0,|
000008b0  62 67 25 29 bd 31 33 34  bd 31 35 37 3b 8a 33 39  |bg%).134.157;.39|
000008c0  29 bd 31 35 36 3a ed 0d  01 fe 19 e7 20 63 68 25  |).156:...... ch%|
000008d0  3d 31 30 30 20 64 65 70  74 68 25 3d b3 28 32 29  |=100 depth%=.(2)|
000008e0  0d 02 08 24 e7 20 63 68  25 3e 39 37 20 80 20 63  |...$. ch%>97 . c|
000008f0  68 25 3c 31 30 30 20 64  65 70 74 68 25 3d b3 28  |h%<100 depth%=.(|
00000900  32 29 2b 31 0d 02 12 23  e7 20 63 68 25 3e 39 34  |2)+1...#. ch%>94|
00000910  20 80 20 63 68 25 3c 39  38 20 64 65 70 74 68 25  | . ch%<98 depth%|
00000920  3d b3 28 33 29 2b 31 0d  02 1c 23 e7 20 63 68 25  |=.(3)+1...#. ch%|
00000930  3e 38 38 20 80 20 63 68  25 3c 39 35 20 64 65 70  |>88 . ch%<95 dep|
00000940  74 68 25 3d b3 28 33 29  2b 32 0d 02 26 23 e7 20  |th%=.(3)+2..&#. |
00000950  63 68 25 3e 37 39 20 80  20 63 68 25 3c 38 39 20  |ch%>79 . ch%<89 |
00000960  64 65 70 74 68 25 3d b3  28 33 29 2b 33 0d 02 30  |depth%=.(3)+3..0|
00000970  23 e7 20 63 68 25 3e 36  39 20 80 20 63 68 25 3c  |#. ch%>69 . ch%<|
00000980  38 30 20 64 65 70 74 68  25 3d b3 28 33 29 2b 34  |80 depth%=.(3)+4|
00000990  0d 02 3a 19 e7 20 b3 28  31 30 30 29 3e 63 68 25  |..:.. .(100)>ch%|
000009a0  20 64 65 70 74 68 25 3d  38 0d 02 44 05 e1 0d 02  | depth%=8..D....|
000009b0  4e 21 dd f2 76 28 66 25  2c 6c 25 29 3a f5 3a 61  |N!..v(f%,l%):.:a|
000009c0  3d a5 3a fd 61 3d 66 25  84 61 3d 6c 25 3a e1 0d  |=.:.a=f%.a=l%:..|
000009d0  02 58 1b dd f2 73 65 6c  6c 3a ef 32 36 3a db 3a  |.X...sell:.26:.:|
000009e0  f2 70 6f 72 74 66 6f 6c  69 6f 0d 02 62 3f e7 b3  |.portfolio..b?..|
000009f0  28 33 29 3c 32 84 57 45  45 4b 25 3e 31 33 f1 8a  |(3)<2.WEEK%>13..|
00000a00  37 2c 32 32 29 bd 31 33  33 22 50 72 65 73 73 20  |7,22).133"Press |
00000a10  61 6e 79 20 6b 65 79 20  77 68 65 6e 20 72 65 61  |any key when rea|
00000a20  64 79 22 3a 41 3d a5 3a  e1 0d 02 6c 50 ef 32 38  |dy":A=.:...lP.28|
00000a30  2c 30 2c 32 33 2c 33 39  2c 32 31 3a db 3a f1 8a  |,0,23,39,21:.:..|
00000a40  35 29 22 44 6f 20 79 6f  75 20 77 69 73 68 20 74  |5)"Do you wish t|
00000a50  6f 20 73 65 6c 6c 20 61  6e 79 20 72 69 67 73 20  |o sell any rigs |
00000a60  3f 22 3a f2 76 28 37 38  2c 38 39 29 3a e7 61 3d  |?":.v(78,89):.a=|
00000a70  37 38 20 f2 74 61 78 3a  e1 0d 02 76 3f f1 27 8a  |78 .tax:...v?.'.|
00000a80  37 29 22 57 68 69 63 68  20 72 69 67 20 77 69 6c  |7)"Which rig wil|
00000a90  6c 20 79 6f 75 20 73 65  6c 6c 20 3f 22 3a f5 3a  |l you sell ?":.:|
00000aa0  67 25 3d a5 3a fd 28 67  25 3e 36 34 80 67 25 3c  |g%=.:.(g%>64.g%<|
00000ab0  36 35 2b 61 25 2d 31 29  0d 02 80 44 e7 20 63 6f  |65+a%-1)...D. co|
00000ac0  73 74 25 28 72 25 2d 31  2c 67 25 2d 36 35 29 3d  |st%(r%-1,g%-65)=|
00000ad0  30 20 ef 37 3a f1 8a 39  29 bd 31 33 36 bd 31 33  |0 .7:..9).136.13|
00000ae0  34 22 4e 4f 54 48 49 4e  47 20 54 4f 20 53 45 4c  |4"NOTHING TO SEL|
00000af0  4c 20 21 21 21 22 3a e5  8d 44 6c 42 0d 02 8a 46  |L !!!":..DlB...F|
00000b00  ef 32 38 2c 30 2c 32 33  2c 33 39 2c 30 3a 73 70  |.28,0,23,39,0:sp|
00000b10  25 3d 28 63 6f 73 74 25  28 72 25 2d 31 2c 67 25  |%=(cost%(r%-1,g%|
00000b20  2d 36 35 29 81 32 2b 63  6f 73 74 25 28 72 25 2d  |-65).2+cost%(r%-|
00000b30  31 2c 67 25 2d 36 35 29  81 b3 28 28 34 29 2b 32  |1,g%-65)..((4)+2|
00000b40  29 29 0d 02 94 49 f1 8a  33 2c 28 67 25 2d 36 34  |))...I..3,(g%-64|
00000b50  29 2b 34 29 22 20 22 3b  8a 34 2c 28 67 25 2d 36  |)+4)" ";.4,(g%-6|
00000b60  34 29 2b 34 29 c4 39 2c  22 2a 22 29 3b 22 20 53  |4)+4).9,"*");" S|
00000b70  4f 4c 44 20 66 6f 72 20  60 22 3b 73 70 25 3b 22  |OLD for `";sp%;"|
00000b80  20 22 3b c4 31 30 2c 22  2a 22 29 0d 02 9e 31 63  | ";.10,"*")...1c|
00000b90  6f 73 74 25 28 72 25 2d  31 2c 67 25 2d 36 35 29  |ost%(r%-1,g%-65)|
00000ba0  3d 30 3a 74 6f 74 25 28  72 25 2d 31 29 3d 74 6f  |=0:tot%(r%-1)=to|
00000bb0  74 25 28 72 25 2d 31 29  2b 73 70 25 0d 02 a8 5a  |t%(r%-1)+sp%...Z|
00000bc0  f1 8a 31 39 2c 57 45 45  4b 25 2b 35 29 bd 31 33  |..19,WEEK%+5).13|
00000bd0  32 bd 31 33 36 22 4e 45  57 20 54 4f 54 41 4c 20  |2.136"NEW TOTAL |
00000be0  60 22 3b 3a e7 20 74 6f  74 25 28 72 25 2d 31 29  |`";:. tot%(r%-1)|
00000bf0  3c 30 f1 3b bd 31 32 39  3b 74 6f 74 25 28 72 25  |<0.;.129;tot%(r%|
00000c00  2d 31 29 8b 20 f1 3b bd  31 33 30 3b 74 6f 74 25  |-1). .;.130;tot%|
00000c10  28 72 25 2d 31 29 0d 02  b2 09 e5 8d 44 6c 42 0d  |(r%-1)......DlB.|
00000c20  02 bc 0a f2 74 61 78 3a  e1 0d 02 c6 12 dd f2 62  |....tax:.......b|
00000c30  6f 72 65 28 64 65 70 74  68 25 29 0d 02 d0 35 f1  |ore(depth%)...5.|
00000c40  8a 35 2c 31 31 29 bd 31  33 30 22 44 45 50 54 48  |.5,11).130"DEPTH|
00000c50  22 8a 32 37 2c 31 31 29  bd 31 32 39 22 43 4f 53  |".27,11).129"COS|
00000c60  54 22 3a f2 77 61 69 74  28 31 29 3a f2 74 6f 70  |T":.wait(1):.top|
00000c70  0d 02 da 47 f1 8a 31 38  2c 31 31 29 bd 31 33 31  |...G..18,11).131|
00000c80  bd 32 35 35 bd 31 33 34  bd 31 35 37 3a d4 30 2c  |.255.134.157:.0,|
00000c90  2d 31 30 2c 36 2c 33 3a  f2 77 61 69 74 28 2e 37  |-10,6,3:.wait(.7|
00000ca0  29 3a ef 32 38 2c 32 2c  32 32 2c 33 38 2c 31 32  |):.28,2,22,38,12|
00000cb0  2c 33 31 2c 30 2c 30 0d  02 e4 4a e3 64 72 69 6c  |,31,0,0...J.dril|
00000cc0  6c 3d 31 b8 64 65 70 74  68 25 3a d4 30 2c 2d 31  |l=1.depth%:.0,-1|
00000cd0  30 2c 36 2c 33 3a 63 6f  73 74 25 28 72 25 2d 31  |0,6,3:cost%(r%-1|
00000ce0  2c 57 45 45 4b 25 2d 31  29 3d 63 6f 73 74 25 28  |,WEEK%-1)=cost%(|
00000cf0  72 25 2d 31 2c 57 45 45  4b 25 2d 31 29 2b 63 6f  |r%-1,WEEK%-1)+co|
00000d00  25 0d 02 ee 19 e7 20 64  72 69 6c 6c 3d 31 20 70  |%..... drill=1 p|
00000d10  74 3d 31 20 8b 20 70 74  3d 30 0d 02 f8 36 f1 8a  |t=1 . pt=0...6..|
00000d20  70 74 29 bd 31 33 30 3b  64 72 69 6c 6c 2a 35 30  |pt).130;drill*50|
00000d30  3b 22 20 6d 65 74 72 65  73 22 3b 8a 31 36 29 bd  |;" metres";.16).|
00000d40  31 33 31 bd 32 35 35 bd  31 33 34 bd 31 35 37 3b  |131.255.134.157;|
00000d50  0d 03 02 42 63 74 24 3d  c3 28 63 6f 73 74 25 28  |...Bct$=.(cost%(|
00000d60  72 25 2d 31 2c 57 45 45  4b 25 2d 31 29 29 3a f1  |r%-1,WEEK%-1)):.|
00000d70  8a 32 39 2d a9 28 63 74  24 29 29 3b bd 31 32 39  |.29-.(ct$));.129|
00000d80  3b 22 60 22 3b 63 74 24  3a f2 77 61 69 74 28 2e  |;"`";ct$:.wait(.|
00000d90  37 29 0d 03 0c 2c ed 3a  70 6c 25 28 72 25 2d 31  |7)...,.:pl%(r%-1|
00000da0  2c 57 45 45 4b 25 2d 31  29 3d 2d 63 6f 73 74 25  |,WEEK%-1)=-cost%|
00000db0  28 72 25 2d 31 2c 57 45  45 4b 25 2d 31 29 0d 03  |(r%-1,WEEK%-1)..|
00000dc0  16 51 76 70 6f 73 3d bc  2b 31 32 3a e7 20 64 65  |.Qvpos=.+12:. de|
00000dd0  70 74 68 25 3d 38 20 ef  32 36 3a f1 8a 38 2c 32  |pth%=8 .26:..8,2|
00000de0  30 29 bd 31 33 32 bd 31  33 36 22 54 68 69 73 20  |0).132.136"This |
00000df0  77 65 6c 6c 20 69 73 20  64 72 79 20 21 21 21 22  |well is dry !!!"|
00000e00  3a f2 77 61 69 74 28 33  29 3a e5 8d 54 7e 43 0d  |:.wait(3):..T~C.|
00000e10  03 20 30 ef 32 36 3a e3  61 25 3d 32 32 b8 76 70  |. 0.26:.a%=22.vp|
00000e20  6f 73 20 88 2d 31 3a f1  8a 30 2c 61 25 29 3b bd  |os .-1:..0,a%);.|
00000e30  31 33 32 3a f2 77 61 69  74 28 2e 33 29 3a ed 0d  |132:.wait(.3):..|
00000e40  03 2a 49 f2 73 70 6f 75  74 3a 77 6b 25 28 72 25  |.*I.spout:wk%(r%|
00000e50  2d 31 2c 57 45 45 4b 25  2d 31 29 3d 63 6f 73 74  |-1,WEEK%-1)=cost|
00000e60  25 28 72 25 2d 31 2c 57  45 45 4b 25 2d 31 29 81  |%(r%-1,WEEK%-1).|
00000e70  20 64 65 70 74 68 25 2b  28 b3 28 39 30 29 2a 64  | depth%+(.(90)*d|
00000e80  65 70 74 68 25 2a 39 29  0d 03 34 64 ef 33 31 2c  |epth%*9)..4d.31,|
00000e90  31 2c 76 70 6f 73 2b 31  2c 31 33 31 3a f1 22 54  |1,vpos+1,131:."T|
00000ea0  68 69 73 20 77 65 6c 6c  20 77 69 6c 6c 20 67 69  |his well will gi|
00000eb0  76 65 20 61 20 77 65 65  6b 6c 79 20 69 6e 63 6f  |ve a weekly inco|
00000ec0  6d 65 22 8a 31 35 29 bd  31 33 31 22 6f 66 20 60  |me".15).131"of `|
00000ed0  22 3b 77 6b 25 28 72 25  2d 31 2c 57 45 45 4b 25  |";wk%(r%-1,WEEK%|
00000ee0  2d 31 29 3a f2 77 61 69  74 28 34 29 0d 03 3e 50  |-1):.wait(4)..>P|
00000ef0  74 6f 74 25 28 72 25 2d  31 29 3d 74 6f 74 25 28  |tot%(r%-1)=tot%(|
00000f00  72 25 2d 31 29 2b 28 2d  63 6f 73 74 25 28 72 25  |r%-1)+(-cost%(r%|
00000f10  2d 31 2c 57 45 45 4b 25  2d 31 29 29 3a e7 20 64  |-1,WEEK%-1)):. d|
00000f20  65 70 74 68 25 3d 38 63  6f 73 74 25 28 72 25 2d  |epth%=8cost%(r%-|
00000f30  31 2c 57 45 45 4b 25 2d  31 29 3d 30 0d 03 48 05  |1,WEEK%-1)=0..H.|
00000f40  e1 0d 03 52 09 dd f2 6f  69 6c 0d 03 5c 28 e3 78  |...R...oil..\(.x|
00000f50  25 3d 30 b8 39 3a e3 79  25 3d 30 b8 31 33 3a 66  |%=0.9:.y%=0.13:f|
00000f60  69 65 6c 64 25 28 78 25  2c 79 25 29 3d a3 3a ed  |ield%(x%,y%)=.:.|
00000f70  3a ed 0d 03 66 0c e3 61  25 3d 30 b8 33 39 0d 03  |:...f..a%=0.39..|
00000f80  70 31 78 25 3d b3 28 31  30 29 2d 31 3a 79 25 3d  |p1x%=.(10)-1:y%=|
00000f90  b3 28 31 34 29 2d 31 3a  e7 66 69 65 6c 64 25 28  |.(14)-1:.field%(|
00000fa0  78 25 2c 79 25 29 3c 3e  30 20 8c 8d 44 70 43 0d  |x%,y%)<>0 ..DpC.|
00000fb0  03 7a 15 66 69 65 6c 64  25 28 78 25 2c 79 25 29  |.z.field%(x%,y%)|
00000fc0  3d b9 3a ed 0d 03 84 0b  e3 61 25 3d 30 b8 39 0d  |=.:......a%=0.9.|
00000fd0  03 8e 31 78 25 3d b3 28  31 30 29 2d 31 3a 79 25  |..1x%=.(10)-1:y%|
00000fe0  3d b3 28 31 34 29 2d 31  3a e7 66 69 65 6c 64 25  |=.(14)-1:.field%|
00000ff0  28 78 25 2c 79 25 29 3c  3e 30 20 8c 8d 74 4e 43  |(x%,y%)<>0 ..tNC|
00001000  0d 03 98 15 66 69 65 6c  64 25 28 78 25 2c 79 25  |....field%(x%,y%|
00001010  29 3d 33 3a ed 0d 03 a2  05 e1 0d 03 ac 0a dd f2  |)=3:............|
00001020  66 69 6c 6c 0d 03 b6 14  e3 78 25 3d 30 b8 39 3a  |fill.....x%=0.9:|
00001030  e3 79 25 3d 30 b8 31 33  0d 03 c0 2a e7 20 66 69  |.y%=0.13...*. fi|
00001040  65 6c 64 25 28 78 25 2c  79 25 29 3d 30 84 66 69  |eld%(x%,y%)=0.fi|
00001050  65 6c 64 25 28 78 25 2c  79 25 29 3d 32 8c 6b 25  |eld%(x%,y%)=2.k%|
00001060  3d 32 0d 03 ca 2b e7 20  66 69 65 6c 64 25 28 78  |=2...+. field%(x|
00001070  25 2c 79 25 29 3d 2d 31  84 66 69 65 6c 64 25 28  |%,y%)=-1.field%(|
00001080  78 25 2c 79 25 29 3d 31  8c 6b 25 3d 30 0d 03 d4  |x%,y%)=1.k%=0...|
00001090  2a e7 20 66 69 65 6c 64  25 28 78 25 2c 79 25 29  |*. field%(x%,y%)|
000010a0  3d 33 84 66 69 65 6c 64  25 28 78 25 2c 79 25 29  |=3.field%(x%,y%)|
000010b0  3d 35 8c 6b 25 3d 39 0d  03 de 28 fb 6b 25 3a f2  |=5.k%=9...(.k%:.|
000010c0  70 72 69 6e 74 3a d4 31  2c 2d 31 30 2c 79 25 2a  |print:.1,-10,y%*|
000010d0  31 30 2c 31 3a f2 77 61  69 74 28 2e 32 35 29 0d  |10,1:.wait(.25).|
000010e0  03 e8 09 ed 3a ed 3a e1  0d 03 f2 28 dd f2 77 61  |....:.:....(..wa|
000010f0  69 74 28 74 69 6d 65 29  3a 74 69 3d 91 2b 74 69  |it(time):ti=.+ti|
00001100  6d 65 2a 31 30 30 3a f5  3a fd 74 69 3c 91 3a e1  |me*100:.:.ti<.:.|
00001110  0d 03 fc 0a dd f2 73 68  6f 77 0d 04 06 14 e3 78  |......show.....x|
00001120  25 3d 30 b8 39 3a e3 79  25 3d 30 b8 31 33 0d 04  |%=0.9:.y%=0.13..|
00001130  10 1e e7 66 69 65 6c 64  25 28 78 25 2c 79 25 29  |...field%(x%,y%)|
00001140  3d 32 20 fb 32 3a f2 70  72 69 6e 74 0d 04 1a 1f  |=2 .2:.print....|
00001150  e7 20 66 69 65 6c 64 25  28 78 25 2c 79 25 29 3d  |. field%(x%,y%)=|
00001160  31 20 fb 30 3a f2 70 72  69 6e 74 0d 04 24 1f e7  |1 .0:.print..$..|
00001170  20 66 69 65 6c 64 25 28  78 25 2c 79 25 29 3d 35  | field%(x%,y%)=5|
00001180  20 fb 39 3a f2 70 72 69  6e 74 0d 04 2e 13 ed 3a  | .9:.print.....:|
00001190  ed 3a 78 25 3d 30 3a 79  25 3d 30 3a e1 0d 04 38  |.:x%=0:y%=0:...8|
000011a0  1e dd f2 70 72 69 6e 74  3a f1 8a 79 25 2b 33 2c  |...print:..y%+3,|
000011b0  78 25 2b 35 29 bd 32 35  35 3a e1 0d 04 42 37 dd  |x%+5).255:...B7.|
000011c0  f2 63 61 6c 63 3a 70 6c  25 28 72 25 2d 31 2c 61  |.calc:pl%(r%-1,a|
000011d0  25 2d 31 29 3d 70 6c 25  28 72 25 2d 31 2c 61 25  |%-1)=pl%(r%-1,a%|
000011e0  2d 31 29 2b 77 6b 25 28  72 25 2d 31 2c 61 25 2d  |-1)+wk%(r%-1,a%-|
000011f0  31 29 0d 04 4c 2a 74 6f  74 25 28 72 25 2d 31 29  |1)..L*tot%(r%-1)|
00001200  3d 74 6f 74 25 28 72 25  2d 31 29 2b 77 6b 25 28  |=tot%(r%-1)+wk%(|
00001210  72 25 2d 31 2c 61 25 2d  31 29 3a e1 0d 04 56 0c  |r%-1,a%-1):...V.|
00001220  dd f2 62 61 63 6b 3a db  0d 04 60 60 e3 6b 25 3d  |..back:...``.k%=|
00001230  35 b8 34 2b 57 45 45 4b  25 3a f1 8a 33 2c 6b 25  |5.4+WEEK%:..3,k%|
00001240  29 bd 31 34 38 bd 31 35  37 bd 31 33 31 8a 31 30  |).148.157.131.10|
00001250  2c 6b 25 29 bd 31 34 37  bd 31 35 37 bd 31 33 32  |,k%).147.157.132|
00001260  8a 32 30 2c 6b 25 29 bd  31 34 35 bd 31 35 37 bd  |.20,k%).145.157.|
00001270  31 33 35 8a 32 39 2c 6b  25 29 bd 31 34 36 bd 31  |135.29,k%).146.1|
00001280  35 37 bd 31 33 32 3a ed  0d 04 6a 05 e1 0d 04 74  |57.132:...j....t|
00001290  3a dd f2 73 63 6f 72 65  3a ef 32 38 2c 31 2c 33  |:..score:.28,1,3|
000012a0  30 2c 31 38 2c 31 36 3a  fb 31 32 38 3a db 3a fb  |0,18,16:.128:.:.|
000012b0  36 3a f1 8a 33 2c 31 29  22 46 49 4e 41 4c 20 50  |6:..3,1)"FINAL P|
000012c0  52 4f 46 49 54 53 22 0d  04 7e 42 e3 73 63 25 3d  |ROFITS"..~B.sc%=|
000012d0  30 b8 70 2d 32 3a fb 73  63 25 2b 31 3a f1 8a 31  |0.p-2:.sc%+1:..1|
000012e0  2c 73 63 25 2a 32 2b 34  29 6e 61 6d 65 24 28 73  |,sc%*2+4)name$(s|
000012f0  63 25 29 8a 39 29 22 60  22 8a 31 30 29 3b 74 6f  |c%).9)"`".10);to|
00001300  74 25 28 73 63 25 29 3a  ed 0d 04 88 0a 2a 46 58  |t%(sc%):.....*FX|
00001310  32 31 30 0d 04 92 05 e1  0d 04 9c 09 dd f2 74 6f  |210...........to|
00001320  70 0d 04 a6 2b e3 20 64  65 25 3d 31 b8 31 30 3a  |p...+. de%=1.10:|
00001330  e7 64 65 25 20 81 20 32  3d 30 20 8c 20 63 72 3d  |.de% . 2=0 . cr=|
00001340  31 32 35 20 8b 20 63 72  3d 32 33 30 0d 04 b0 32  |125 . cr=230...2|
00001350  f1 8a 31 39 2c 64 65 25  29 bd 28 63 72 29 3a d4  |..19,de%).(cr):.|
00001360  31 2c 2d 31 30 2c 28 31  30 2d 64 65 25 29 2a 35  |1,-10,(10-de%)*5|
00001370  2c 33 3a f2 77 61 69 74  28 2e 32 29 3a ed 0d 04  |,3:.wait(.2):...|
00001380  ba 05 e1 0d 04 c4 0b dd  f2 72 69 67 3a db 0d 04  |.........rig:...|
00001390  ce 30 f1 22 95 9d 9e 9a  93 20 20 20 20 20 20 20  |.0.".....       |
000013a0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000013b0  20 20 20 20 20 20 20 20  20 20 20 9c 22 3b 0d 04  |           .";..|
000013c0  d8 30 f1 22 95 9d 9e 9a  93 20 20 20 20 20 20 20  |.0.".....       |
000013d0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000013e0  20 20 20 20 20 20 20 20  20 20 20 9c 22 3b 0d 04  |           .";..|
000013f0  e2 30 f1 22 95 9d 9e 9a  93 20 20 20 20 20 20 20  |.0.".....       |
00001400  20 20 20 20 20 20 ea 20  b5 20 20 20 20 20 20 20  |      . .       |
00001410  20 20 20 20 20 20 20 20  20 20 20 9c 22 3b 0d 04  |           .";..|
00001420  ec 30 f1 22 95 9d 9e 9a  93 20 20 20 20 20 20 20  |.0.".....       |
00001430  20 20 20 20 20 20 ea 20  b5 20 20 20 20 20 20 20  |      . .       |
00001440  20 20 20 20 20 20 20 20  20 20 20 9c 22 3b 0d 04  |           .";..|
00001450  f6 30 f1 22 95 9d 9e 9a  93 20 20 20 20 20 20 20  |.0.".....       |
00001460  20 20 20 20 20 20 ea 20  b5 20 20 20 20 20 20 20  |      . .       |
00001470  20 20 20 20 20 20 20 20  20 20 20 9c 22 3b 0d 05  |           .";..|
00001480  00 30 f1 22 95 9d 9e 9a  93 20 20 20 20 20 20 20  |.0.".....       |
00001490  20 20 20 20 20 20 ea 20  b5 20 20 20 20 20 20 20  |      . .       |
000014a0  20 20 20 20 20 20 20 20  20 20 20 9c 22 3b 0d 05  |           .";..|
000014b0  0a 30 f1 22 95 9d 9e 9a  93 20 20 20 20 20 20 20  |.0.".....       |
000014c0  20 20 20 20 20 20 ea 20  b5 20 20 20 20 20 20 20  |      . .       |
000014d0  20 20 20 20 20 20 20 20  20 20 20 9c 22 3b 0d 05  |           .";..|
000014e0  14 30 f1 22 95 9d 9e 9a  93 20 20 20 20 20 20 20  |.0.".....       |
000014f0  20 20 20 20 20 20 b5 20  ea 20 20 20 20 20 20 20  |      . .       |
00001500  20 20 20 20 20 20 20 20  20 20 20 9c 22 3b 0d 05  |           .";..|
00001510  1e 30 f1 22 95 9d 9e 9a  93 20 20 20 20 20 20 20  |.0.".....       |
00001520  20 20 20 20 20 ea b5 20  ea b5 20 20 20 20 20 20  |     .. ..      |
00001530  20 20 20 20 20 20 20 20  20 20 20 9c 22 3b 0d 05  |           .";..|
00001540  28 30 f1 22 95 9d 9e 9a  93 20 20 20 20 20 20 20  |(0.".....       |
00001550  20 20 20 20 20 ff 20 20  20 ff 20 20 20 20 20 20  |     .   .      |
00001560  20 20 20 20 20 20 20 20  20 20 20 9c 22 3b 0d 05  |           .";..|
00001570  32 2f f1 22 95 9d 9e 9a  93 20 20 20 20 20 20 20  |2/.".....       |
00001580  20 20 20 20 f8 ff 20 20  20 ff f4 20 20 20 20 20  |    ..   ..     |
00001590  20 20 20 20 20 20 20 20  20 20 20 9c 22 0d 05 3c  |           ."..<|
000015a0  05 e1 0d 05 46 0b dd f2  73 70 6f 75 74 0d 05 50  |....F...spout..P|
000015b0  40 76 70 6f 73 31 3d 76  70 6f 73 3a e3 64 70 74  |@vpos1=vpos:.dpt|
000015c0  68 25 3d 76 70 6f 73 31  20 b8 20 31 31 20 88 2d  |h%=vpos1 . 11 .-|
000015d0  31 3a f1 8a 31 38 2c 64  70 74 68 25 29 bd 31 34  |1:..18,dpth%).14|
000015e0  38 3a f2 77 61 69 74 28  2e 32 29 3a ed 0d 05 5a  |8:.wait(.2):...Z|
000015f0  2e e3 6c 6f 6f 70 25 3d  31 30 b8 30 20 88 2d 31  |..loop%=10.0 .-1|
00001600  3a f1 8a 34 2c 6c 6f 6f  70 25 29 bd 31 34 38 3a  |:..4,loop%).148:|
00001610  f2 77 61 69 74 28 2e 32  29 3a ed 0d 05 64 7f f1  |.wait(.2):...d..|
00001620  8a 31 39 2c 30 29 bd 32  35 32 3a d4 30 2c 31 2c  |.19,0).252:.0,1,|
00001630  31 32 2c 31 3a f1 8a 31  38 2c 30 29 bd 32 35 35  |12,1:..18,0).255|
00001640  8a 32 30 2c 30 29 bd 32  35 35 8a 31 37 2c 30 29  |.20,0).255.17,0)|
00001650  bd 32 35 35 8a 32 31 2c  30 29 bd 32 35 35 8a 31  |.255.21,0).255.1|
00001660  36 2c 30 29 bd 32 35 32  8a 32 32 2c 30 29 bd 32  |6,0).252.22,0).2|
00001670  35 32 8a 31 35 2c 30 29  bd 32 34 30 8a 31 35 2c  |52.15,0).240.15,|
00001680  31 29 bd 31 37 35 8a 32  33 2c 30 29 bd 32 34 30  |1).175.23,0).240|
00001690  8a 32 33 2c 31 29 bd 31  37 35 0d 05 6e 4e f1 8a  |.23,1).175..nN..|
000016a0  31 34 2c 32 29 bd 31 37  35 8a 32 34 2c 32 29 bd  |14,2).175.24,2).|
000016b0  31 37 35 3a e3 6c 3d 31  b8 31 30 3a f1 8a b3 28  |175:.l=1.10:...(|
000016c0  31 33 29 2b 34 2c b3 28  38 29 2b 32 29 bd 32 35  |13)+4,.(8)+2).25|
000016d0  35 8a b3 28 31 36 29 2b  32 30 2c b3 28 38 29 2b  |5..(16)+20,.(8)+|
000016e0  32 29 bd 32 35 35 3a ed  0d 05 78 05 e1 0d 05 82  |2).255:...x.....|
000016f0  15 dd f2 74 61 78 3a e7  20 b3 28 31 29 3c 2e 39  |...tax:. .(1)<.9|
00001700  20 e1 0d 05 8c 2c 74 74  6c 25 3d 74 6f 74 25 28  | ....,ttl%=tot%(|
00001710  72 25 2d 31 29 3a e7 20  74 74 6c 25 3c 3d 30 20  |r%-1):. ttl%<=0 |
00001720  84 20 74 74 6c 25 2f 32  30 3c 3d 30 20 e1 0d 05  |. ttl%/20<=0 ...|
00001730  96 41 db 3a f1 8a 31 30  29 bd 31 33 34 bd 31 33  |.A.:..10).134.13|
00001740  36 22 54 41 58 45 53 20  4e 4f 57 20 44 55 45 2e  |6"TAXES NOW DUE.|
00001750  22 3a d4 30 2c 31 2c 31  2c 31 3a d4 31 2c 31 2c  |":.0,1,1,1:.1,1,|
00001760  31 2c 31 3a 74 78 25 3d  74 74 6c 25 2f 32 30 0d  |1,1:tx%=ttl%/20.|
00001770  05 a0 39 f1 8a 31 31 29  bd 31 32 39 22 54 41 58  |..9..11).129"TAX|
00001780  20 42 49 4c 4c 20 3d 20  60 22 3b 74 78 25 3a 74  | BILL = `";tx%:t|
00001790  6f 74 25 28 72 25 2d 31  29 3d 74 6f 74 25 28 72  |ot%(r%-1)=tot%(r|
000017a0  25 2d 31 29 2d 74 78 25  0d 05 aa 08 e7 a5 3a e1  |%-1)-tx%......:.|
000017b0  0d 05 b4 4b 2a 4b 2e 30  2a 54 2e 7c 4d 46 2e 41  |...K*K.0*T.|MF.A|
000017c0  25 3d 30 54 4f 28 54 4f  50 2d 50 41 2e 29 53 2e  |%=0TO(TOP-PA.)S.|
000017d0  34 3a 41 25 21 26 45 30  30 3d 41 25 21 50 41 2e  |4:A%!&E00=A%!PA.|
000017e0  3a 4e 2e 7c 4d 50 41 2e  3d 26 45 30 30 7c 4d 4f  |:N.|MPA.=&E00|MO|
000017f0  2e 7c 4d 47 4f 54 4f 31  30 7c 4d 0d 05 be 10 2a  |.|MGOTO10|M....*|
00001800  46 58 31 33 38 2c 30 2c  31 32 38 0d ff           |FX138,0,128..|
0000180d