� > $.GolfGam
� by Jon Perry and Pali Rao
� (c) The Micro User
(
�x(&1300)
2"� �7:�:�" at line ";�:�:�7:�e
<�2:�23,1,0;0;0;0;:*FX11
F	�i:�c
P�h:�7:�f
Z�:�
d��f
n
�d=0�1
x%�10,1+d)�141�130"Golf ScoreCard"
�.�0,5+d)�141�134"Number of shots :"�132;sh
�+�3,8+d)�141�134"Par for "S$" :"�132;P%
�5�0,12+d)�141�129"Another game ? (Y/N)":�:*FX15,0
�
�:A$=�
�Z%=�"YyNn",A$)
�	�Z%>0
��Z%<3 �
��
�D��i:dir$="@.Courses":holes$=dir$+".Holes.":stats$=dir$+".Stats."
�`�a(14),l(14):G=0:xb=0:yb=0:x=64:y=0:oxb=0:oyb=0:P=0:OP=0:OW=1:W=1:sh=0:SM=100:gc=5:WH=0:P%=0
�%�R=1�14:�a(R),l(R):a(R)=�(a(R)):�
�a�22,185,25,171,29,158,33,144,37,131,41,117,45,104,49,90,55,81,0,0,11,248,16,225,18,216,21,203
���23,224,0,0,99,99,127,127,99,99,23,225,0,0,0,127,96,127,3,127,23,226,0,8,28,62,127,28,28,28,23,227,16,24,252,254,252,24,16,0

��23,228,28,28,28,127,62,28,8,0,23,229,0,16,48,126,254,126,48,16,23,230,60,126,255,255,255,255,126,60,23,231,0,0,24,60,60,24,0,0

!�23,232,0,12,30,30,62,62,28,0

�

"��c:Z%=0

,�1:�8,1)"GOLF"

6�2:�0,4)"H:Hole  C:Course"

@
�:A$=�

JZ%=�"HhCc",A$)

T	�Z%>0

^1�Z%<3 S$="hole":ML=7 � S$="course":ML=6:Z%=10

h �:�0,3);"Enter name of ";S$

r
�j(6,6):�

|��h:*FX12,5

�*FX11,10

�
*FX4,1

��:f=0:�

�/�Z%<3 �l(N$) � n$=N$+�(Z%-9):�l(n$):Z%=Z%+1

�&�0,1:X=TX:Y=TY:OX=X:OY=Y:�69,HX,HY

��o

��

��t:�p:�m:�a

��P=6 �g

�� (Z%<3 � Z%>9) � f=1

�P%=P%+p

��Z%<3 � Z%=19

��
��j(Q,W)
 �Q,W);:N$="1234567":N$="":�
A=�:�A=13 �DDB
&)�A=127 � N$>"" N$=�N$,�(N$)-1):�(A);
0�A<48 � A>90 �T\B
:.�(N$)<ML N$=N$+�(A):�(A);:� �1,-10,100,2
D
� A=13
N�
X��l(T$)
b �("LOAD "+holes$+T$+" 468E")
lT$=stats$+T$
vch=�(T$)
��#ch,yd,p,GR,HX,HY,TX,TY
��#ch
��
���o
��b(1,32,736,1248,1012)
��b(1,160,924,1120,1004)
�)�6:�3,1)"3456789PS":�5:�13,1)"D345"
��0,0:�176,736:�1104,736
��b(1,168,724,1112,780)
�E�7:�3,8);"Par:   Yds:";�6,4);"Shots:";:�3:�;sh;�7,8);p;�14,8);yd
��3,gc:�TX,TY:�TX+x,TY
��
���t
F�24,48;744;144;1004;:�0,128:�:�24,1136;744;1232;1004;:�0,128:�:�26
2�b(4,48,744,144,1004):�b(4,1136,744,1232,1004)
1�I=760�988�114:�56,I:�136,I:�1144,I:�1224,I:�
 1�5:�1,2)�224�1,6)�225�18,2)�228�18,6)�226:�7
*�
4��b(CL,x1,y1,x2,y2)
>,�0,CL:�x1,y1:�x1,y2:�x2,y2:�x2,y1:�x1,y1
H�
R��p
\ox=x:oy=y:�3,gc:�3
f�:*FX15
p�P=3 W=9:�OW+2,2);" "
z
ox=x:oy=y
��W+2,2);"^":A=�
��A=90:�x>-64 x=x-4
��A=88:�x<64 x=x+4
��A=58:�y<64 y=y+4
��A=47:�y>-64 y=y-4
�!�A=137:�W<14:W=W+1:�W=10 W=11
��A=136:�W>1:W=W-1:�W=10 W=9
��W<>OW �OW+2,2);" ":OW=W
�!�X,Y:�X+ox,Y+oy:�X,Y:�X+x,Y+y
��A=13 � � (x=0 � y=0)
��q
�H=�s(64):�w(500):*FX15
�S=�s(1152)
sh=sh+1:�3:�12,4);sh;" "
�

ݤs(h)
$Q=0:QD=8:�3,6:DT=�(10):�=0
.�
8�h,Q+874:�h+64,Q+874
B6Q=Q+QD:�Q=112 � Q=-112 QD=-QD:�h,Q+874:�h+64,Q+874
L��-99 � �>DT:=Q/8
V��m
`�x<>0 a=�(�(y/x)) � a=90
j'D=((PS-�(S)-�(S))/100)*l(W)*1280/yd
t�a<>�(a)a=180-�(a)
~�y<0 � (x<0 � y=0) a=a+180
�a=a+H+H
��
���a
��3,gc:�X,Y:�X+x,Y+y
�1xb=0:yb=0:oxb=0:oyb=0:OP=0:P=0:ST=0:LX=0:LY=0
��z(X,Y)
�%c=D*�(�(a)):s=D*�(�(a)):t=�(a(W))
��:oxb=xb:oyb=yb
�)xb=xb+c/80:yb=yb+s/80:X1=X+xb:Y1=Y+yb
�+hx=�((xb^2)+(yb^2)):h=hx*t-((hx^2)*t)/D
��P<>OP LX=xb:LY=yb
�a�(P=4 � h<=0) � (P=0 � OP<>0) � (P=5 � h<=20) ST=1 � �z(X+oxb,Y+oyb):OP=P:P=�X1,Y1):�z(X1,Y1)
*�X1<68 � X1>1220 � Y1<52 � Y1>684 ST=1

�hx>=D � ST=1 � WH=1
�r
�
(��r
2�0,P:�z(X+oxb,Y+oyb)
<7�3,gc:�ST=0 � P<>0 X=X1:Y=Y1 � � P<>0 X=X+LX:Y=Y+LY
F�ST=1:�P=0 X=X+LX:Y=Y+LY
P�0,P:�z(X1,Y1):�3,gc
Zx=64:y=0:�X,Y:�X+x,Y
d2�P=5:�OP<>0 �3,6);�(3);"Trees !!   ":�w(2000)
n9SM=100:�P=3 SM=60:�3,6);�(2);"Bunker !!!  ":�w(2000)
x)�P=0 �3,6);"Out of bounds!":�w(2000)
��
���q
�'�7:�3,6);" Strength:   %":�3:PS=SM
�	*FX15
��
��-42:�PS>30 PS=PS-1
��-58:�PS<SM PS=PS+1
��13,6);PS;:�PS<100 �" "
�
��-106
��
���w(WA)
��w=0� WA:�
��
��g
$�w(1000):�3,6);"On the green !"
1�128:�1:�3,1);"Green Speed :";GR;�3,2);�(14)
"	�k:�y
,,�5,23,1,0;0;0;0;:�0,4:�640,400:�230:�0,7
6(X=80+�(10)*8:Y=116+�(80)*4:dx=X:dy=Y
@�X,Y:�231
J�:�4:�d:�5,23,1,0;0;0;0;
TH=�s(64):�w(500):*FX15
^S=�s(1152)+14
h
mo=0:�
r�px=�((S*2*(0.1+GR/100))*(640-X)+H*200)*(640-X)/�(640-X)*mo/300:py=�((S*2*(0.1+GR/100))*(402-Y)+H*200)*(402-Y)/�(402-Y)*mo/300
|$�3,5:�dx,dy:�231:�X+px,Y+py:�231
�dx=X+px:dy=Y+py:mo=mo+1
�&dt=�(�(((640-dx)^2)+((402-dy)^2)))
�H� dt<30 � mo>=75 � dt<30 � mo>5 � (dx<80 � dx>1172 � dy<96 � dy>670)
�BX=X+px:Y=Y+py:�4:sh=sh+1:�3:�12,4);sh;" ":�y:�5,23,1,0;0;0;0;
�
�dt<30
��4,23,1,0;0;0;0;
�	f=1:�
���y
��t
�&�5:�18,2)�226;�1,2)�232;�1,6)�232
��
���d
�4dt=�(((640-dx)^2)+((402-dy)^2)):ds=�(dt*yd/1280)
/d$=�(ds):�ds<100 d$="0"+d$:�ds<10 d$="0"+d$
�4:�3,8);"Distance : ";d$
�
&��k
0A�24,40;40;1244;700;:�0,128:�:�24,72;72;1212;668;:�0,130:�:�26
:�
D��z(qx,qy)
N3�69,qx,qy:�69,qx+4,qy:�69,qx,qy+4:�69,qx+4,qy+4
X�
b��e
l�=17 �''"Escape":�
v3�''"No file ";T$:�''"Press 'C'":�A$=�:�A$="C":�
��
���x(Q%)
�P%=�:�P%<=Q% �
�&L%=�P-P%:�129�136"Relocating...."
��M%=0�L%-1 �4
�Q%!M%=P%!M%:�
��=Q%:A%=138:X%=0:*FX15
� $&100="OLD"+�13+"RUN"+�6+�13
��L%=&100�&108:Y%=?L%
�Z%=�&FFF4:�:�21
��
�

00000000  0d 00 0a 11 f4 20 3e 20  24 2e 47 6f 6c 66 47 61  |..... > $.GolfGa|
00000010  6d 0d 00 14 1f f4 20 62  79 20 4a 6f 6e 20 50 65  |m..... by Jon Pe|
00000020  72 72 79 20 61 6e 64 20  50 61 6c 69 20 52 61 6f  |rry and Pali Rao|
00000030  0d 00 1e 18 f4 20 28 63  29 20 54 68 65 20 4d 69  |..... (c) The Mi|
00000040  63 72 6f 20 55 73 65 72  0d 00 28 0d f2 78 28 26  |cro User..(..x(&|
00000050  31 33 30 30 29 0d 00 32  22 ee 85 20 eb 37 3a f6  |1300)..2".. .7:.|
00000060  3a f1 22 20 61 74 20 6c  69 6e 65 20 22 3b 9e 3a  |:." at line ";.:|
00000070  e0 3a eb 37 3a f2 65 0d  00 3c 1b eb 32 3a ef 32  |.:.7:.e..<..2:.2|
00000080  33 2c 31 2c 30 3b 30 3b  30 3b 30 3b 3a 2a 46 58  |3,1,0;0;0;0;:*FX|
00000090  31 31 0d 00 46 09 f2 69  3a f2 63 0d 00 50 0c f2  |11..F..i:.c..P..|
000000a0  68 3a eb 37 3a f2 66 0d  00 5a 07 d8 3a f9 0d 00  |h:.7:.f..Z..:...|
000000b0  64 07 dd f2 66 0d 00 6e  0a e3 64 3d 30 b8 31 0d  |d...f..n..d=0.1.|
000000c0  00 78 25 f1 8a 31 30 2c  31 2b 64 29 bd 31 34 31  |.x%..10,1+d).141|
000000d0  bd 31 33 30 22 47 6f 6c  66 20 53 63 6f 72 65 43  |.130"Golf ScoreC|
000000e0  61 72 64 22 0d 00 82 2e  f1 8a 30 2c 35 2b 64 29  |ard"......0,5+d)|
000000f0  bd 31 34 31 bd 31 33 34  22 4e 75 6d 62 65 72 20  |.141.134"Number |
00000100  6f 66 20 73 68 6f 74 73  20 3a 22 bd 31 33 32 3b  |of shots :".132;|
00000110  73 68 0d 00 8c 2b f1 8a  33 2c 38 2b 64 29 bd 31  |sh...+..3,8+d).1|
00000120  34 31 bd 31 33 34 22 50  61 72 20 66 6f 72 20 22  |41.134"Par for "|
00000130  53 24 22 20 3a 22 bd 31  33 32 3b 50 25 0d 00 96  |S$" :".132;P%...|
00000140  35 f1 8a 30 2c 31 32 2b  64 29 bd 31 34 31 bd 31  |5..0,12+d).141.1|
00000150  32 39 22 41 6e 6f 74 68  65 72 20 67 61 6d 65 20  |29"Another game |
00000160  3f 20 28 59 2f 4e 29 22  3a ed 3a 2a 46 58 31 35  |? (Y/N)":.:*FX15|
00000170  2c 30 0d 00 a0 0a f5 3a  41 24 3d be 0d 00 aa 12  |,0.....:A$=.....|
00000180  5a 25 3d a7 22 59 79 4e  6e 22 2c 41 24 29 0d 00  |Z%=."YyNn",A$)..|
00000190  b4 09 fd 5a 25 3e 30 0d  00 be 0b e7 5a 25 3c 33  |...Z%>0.....Z%<3|
000001a0  20 e1 0d 00 c8 05 e0 0d  00 d2 44 dd f2 69 3a 64  | .........D..i:d|
000001b0  69 72 24 3d 22 40 2e 43  6f 75 72 73 65 73 22 3a  |ir$="@.Courses":|
000001c0  68 6f 6c 65 73 24 3d 64  69 72 24 2b 22 2e 48 6f  |holes$=dir$+".Ho|
000001d0  6c 65 73 2e 22 3a 73 74  61 74 73 24 3d 64 69 72  |les.":stats$=dir|
000001e0  24 2b 22 2e 53 74 61 74  73 2e 22 0d 00 dc 60 de  |$+".Stats."...`.|
000001f0  61 28 31 34 29 2c 6c 28  31 34 29 3a 47 3d 30 3a  |a(14),l(14):G=0:|
00000200  78 62 3d 30 3a 79 62 3d  30 3a 78 3d 36 34 3a 79  |xb=0:yb=0:x=64:y|
00000210  3d 30 3a 6f 78 62 3d 30  3a 6f 79 62 3d 30 3a 50  |=0:oxb=0:oyb=0:P|
00000220  3d 30 3a 4f 50 3d 30 3a  4f 57 3d 31 3a 57 3d 31  |=0:OP=0:OW=1:W=1|
00000230  3a 73 68 3d 30 3a 53 4d  3d 31 30 30 3a 67 63 3d  |:sh=0:SM=100:gc=|
00000240  35 3a 57 48 3d 30 3a 50  25 3d 30 0d 00 e6 25 e3  |5:WH=0:P%=0...%.|
00000250  52 3d 31 b8 31 34 3a f3  61 28 52 29 2c 6c 28 52  |R=1.14:.a(R),l(R|
00000260  29 3a 61 28 52 29 3d b2  28 61 28 52 29 29 3a ed  |):a(R)=.(a(R)):.|
00000270  0d 00 f0 61 dc 32 32 2c  31 38 35 2c 32 35 2c 31  |...a.22,185,25,1|
00000280  37 31 2c 32 39 2c 31 35  38 2c 33 33 2c 31 34 34  |71,29,158,33,144|
00000290  2c 33 37 2c 31 33 31 2c  34 31 2c 31 31 37 2c 34  |,37,131,41,117,4|
000002a0  35 2c 31 30 34 2c 34 39  2c 39 30 2c 35 35 2c 38  |5,104,49,90,55,8|
000002b0  31 2c 30 2c 30 2c 31 31  2c 32 34 38 2c 31 36 2c  |1,0,0,11,248,16,|
000002c0  32 32 35 2c 31 38 2c 32  31 36 2c 32 31 2c 32 30  |225,18,216,21,20|
000002d0  33 0d 00 fa 80 ef 32 33  2c 32 32 34 2c 30 2c 30  |3.....23,224,0,0|
000002e0  2c 39 39 2c 39 39 2c 31  32 37 2c 31 32 37 2c 39  |,99,99,127,127,9|
000002f0  39 2c 39 39 2c 32 33 2c  32 32 35 2c 30 2c 30 2c  |9,99,23,225,0,0,|
00000300  30 2c 31 32 37 2c 39 36  2c 31 32 37 2c 33 2c 31  |0,127,96,127,3,1|
00000310  32 37 2c 32 33 2c 32 32  36 2c 30 2c 38 2c 32 38  |27,23,226,0,8,28|
00000320  2c 36 32 2c 31 32 37 2c  32 38 2c 32 38 2c 32 38  |,62,127,28,28,28|
00000330  2c 32 33 2c 32 32 37 2c  31 36 2c 32 34 2c 32 35  |,23,227,16,24,25|
00000340  32 2c 32 35 34 2c 32 35  32 2c 32 34 2c 31 36 2c  |2,254,252,24,16,|
00000350  30 0d 01 04 83 ef 32 33  2c 32 32 38 2c 32 38 2c  |0.....23,228,28,|
00000360  32 38 2c 32 38 2c 31 32  37 2c 36 32 2c 32 38 2c  |28,28,127,62,28,|
00000370  38 2c 30 2c 32 33 2c 32  32 39 2c 30 2c 31 36 2c  |8,0,23,229,0,16,|
00000380  34 38 2c 31 32 36 2c 32  35 34 2c 31 32 36 2c 34  |48,126,254,126,4|
00000390  38 2c 31 36 2c 32 33 2c  32 33 30 2c 36 30 2c 31  |8,16,23,230,60,1|
000003a0  32 36 2c 32 35 35 2c 32  35 35 2c 32 35 35 2c 32  |26,255,255,255,2|
000003b0  35 35 2c 31 32 36 2c 36  30 2c 32 33 2c 32 33 31  |55,126,60,23,231|
000003c0  2c 30 2c 30 2c 32 34 2c  36 30 2c 36 30 2c 32 34  |,0,0,24,60,60,24|
000003d0  2c 30 2c 30 0d 01 0e 21  ef 32 33 2c 32 33 32 2c  |,0,0...!.23,232,|
000003e0  30 2c 31 32 2c 33 30 2c  33 30 2c 36 32 2c 36 32  |0,12,30,30,62,62|
000003f0  2c 32 38 2c 30 0d 01 18  05 e1 0d 01 22 0c dd f2  |,28,0......."...|
00000400  63 3a 5a 25 3d 30 0d 01  2c 13 fb 31 3a f1 8a 38  |c:Z%=0..,..1:..8|
00000410  2c 31 29 22 47 4f 4c 46  22 0d 01 36 1f fb 32 3a  |,1)"GOLF"..6..2:|
00000420  f1 8a 30 2c 34 29 22 48  3a 48 6f 6c 65 20 20 43  |..0,4)"H:Hole  C|
00000430  3a 43 6f 75 72 73 65 22  0d 01 40 0a f5 3a 41 24  |:Course"..@..:A$|
00000440  3d be 0d 01 4a 12 5a 25  3d a7 22 48 68 43 63 22  |=...J.Z%=."HhCc"|
00000450  2c 41 24 29 0d 01 54 09  fd 5a 25 3e 30 0d 01 5e  |,A$)..T..Z%>0..^|
00000460  31 e7 5a 25 3c 33 20 53  24 3d 22 68 6f 6c 65 22  |1.Z%<3 S$="hole"|
00000470  3a 4d 4c 3d 37 20 8b 20  53 24 3d 22 63 6f 75 72  |:ML=7 . S$="cour|
00000480  73 65 22 3a 4d 4c 3d 36  3a 5a 25 3d 31 30 0d 01  |se":ML=6:Z%=10..|
00000490  68 20 db 3a f1 8a 30 2c  33 29 3b 22 45 6e 74 65  |h .:..0,3);"Ente|
000004a0  72 20 6e 61 6d 65 20 6f  66 20 22 3b 53 24 0d 01  |r name of ";S$..|
000004b0  72 0d f2 6a 28 36 2c 36  29 3a e1 0d 01 7c 0f dd  |r..j(6,6):...|..|
000004c0  f2 68 3a 2a 46 58 31 32  2c 35 0d 01 86 0c 2a 46  |.h:*FX12,5....*F|
000004d0  58 31 31 2c 31 30 0d 01  90 0a 2a 46 58 34 2c 31  |X11,10....*FX4,1|
000004e0  0d 01 9a 0b f5 3a 66 3d  30 3a da 0d 01 a4 2f e7  |.....:f=0:..../.|
000004f0  5a 25 3c 33 20 f2 6c 28  4e 24 29 20 8b 20 6e 24  |Z%<3 .l(N$) . n$|
00000500  3d 4e 24 2b c3 28 5a 25  2d 39 29 3a f2 6c 28 6e  |=N$+.(Z%-9):.l(n|
00000510  24 29 3a 5a 25 3d 5a 25  2b 31 0d 01 ae 26 e6 30  |$):Z%=Z%+1...&.0|
00000520  2c 31 3a 58 3d 54 58 3a  59 3d 54 59 3a 4f 58 3d  |,1:X=TX:Y=TY:OX=|
00000530  58 3a 4f 59 3d 59 3a f0  36 39 2c 48 58 2c 48 59  |X:OY=Y:.69,HX,HY|
00000540  0d 01 b8 06 f2 6f 0d 01  c2 05 f5 0d 01 cc 0f f2  |.....o..........|
00000550  74 3a f2 70 3a f2 6d 3a  f2 61 0d 01 d6 0b e7 50  |t:.p:.m:.a.....P|
00000560  3d 36 20 f2 67 0d 01 e0  19 fd 20 28 5a 25 3c 33  |=6 .g..... (Z%<3|
00000570  20 84 20 5a 25 3e 39 29  20 80 20 66 3d 31 0d 01  | . Z%>9) . f=1..|
00000580  ea 0b 50 25 3d 50 25 2b  70 0d 01 f4 11 fd 5a 25  |..P%=P%+p.....Z%|
00000590  3c 33 20 84 20 5a 25 3d  31 39 0d 01 fe 05 e1 0d  |<3 . Z%=19......|
000005a0  02 08 0c dd f2 6a 28 51  2c 57 29 0d 02 12 20 f1  |.....j(Q,W)... .|
000005b0  8a 51 2c 57 29 3b 3a 4e  24 3d 22 31 32 33 34 35  |.Q,W);:N$="12345|
000005c0  36 37 22 3a 4e 24 3d 22  22 3a f5 0d 02 1c 13 41  |67":N$="":.....A|
000005d0  3d a5 3a e7 41 3d 31 33  20 e5 8d 44 44 42 0d 02  |=.:.A=13 ..DDB..|
000005e0  26 29 e7 41 3d 31 32 37  20 80 20 4e 24 3e 22 22  |&).A=127 . N$>""|
000005f0  20 4e 24 3d c0 4e 24 2c  a9 28 4e 24 29 2d 31 29  | N$=.N$,.(N$)-1)|
00000600  3a f1 bd 28 41 29 3b 0d  02 30 16 e7 41 3c 34 38  |:..(A);..0..A<48|
00000610  20 84 20 41 3e 39 30 20  e5 8d 54 5c 42 0d 02 3a  | . A>90 ..T\B..:|
00000620  2e e7 a9 28 4e 24 29 3c  4d 4c 20 4e 24 3d 4e 24  |...(N$)<ML N$=N$|
00000630  2b bd 28 41 29 3a f1 bd  28 41 29 3b 3a 8b 20 d4  |+.(A):..(A);:. .|
00000640  31 2c 2d 31 30 2c 31 30  30 2c 32 0d 02 44 0a fd  |1,-10,100,2..D..|
00000650  20 41 3d 31 33 0d 02 4e  05 e1 0d 02 58 0b dd f2  | A=13..N....X...|
00000660  6c 28 54 24 29 0d 02 62  20 ff 28 22 4c 4f 41 44  |l(T$)..b .("LOAD|
00000670  20 22 2b 68 6f 6c 65 73  24 2b 54 24 2b 22 20 34  | "+holes$+T$+" 4|
00000680  36 38 45 22 29 0d 02 6c  10 54 24 3d 73 74 61 74  |68E")..l.T$=stat|
00000690  73 24 2b 54 24 0d 02 76  0c 63 68 3d 8e 28 54 24  |s$+T$..v.ch=.(T$|
000006a0  29 0d 02 80 1c e8 23 63  68 2c 79 64 2c 70 2c 47  |).....#ch,yd,p,G|
000006b0  52 2c 48 58 2c 48 59 2c  54 58 2c 54 59 0d 02 8a  |R,HX,HY,TX,TY...|
000006c0  08 d9 23 63 68 0d 02 94  05 e1 0d 02 9e 07 dd f2  |..#ch...........|
000006d0  6f 0d 02 a8 1a f2 62 28  31 2c 33 32 2c 37 33 36  |o.....b(1,32,736|
000006e0  2c 31 32 34 38 2c 31 30  31 32 29 0d 02 b2 1b f2  |,1248,1012).....|
000006f0  62 28 31 2c 31 36 30 2c  39 32 34 2c 31 31 32 30  |b(1,160,924,1120|
00000700  2c 31 30 30 34 29 0d 02  bc 29 fb 36 3a f1 8a 33  |,1004)...).6:..3|
00000710  2c 31 29 22 33 34 35 36  37 38 39 50 53 22 3a fb  |,1)"3456789PS":.|
00000720  35 3a f1 8a 31 33 2c 31  29 22 44 33 34 35 22 0d  |5:..13,1)"D345".|
00000730  02 c6 1b e6 30 2c 30 3a  ec 31 37 36 2c 37 33 36  |....0,0:.176,736|
00000740  3a df 31 31 30 34 2c 37  33 36 0d 02 d0 1a f2 62  |:.1104,736.....b|
00000750  28 31 2c 31 36 38 2c 37  32 34 2c 31 31 31 32 2c  |(1,168,724,1112,|
00000760  37 38 30 29 0d 02 da 45  fb 37 3a f1 8a 33 2c 38  |780)...E.7:..3,8|
00000770  29 3b 22 50 61 72 3a 20  20 20 59 64 73 3a 22 3b  |);"Par:   Yds:";|
00000780  8a 36 2c 34 29 3b 22 53  68 6f 74 73 3a 22 3b 3a  |.6,4);"Shots:";:|
00000790  fb 33 3a f1 3b 73 68 3b  8a 37 2c 38 29 3b 70 3b  |.3:.;sh;.7,8);p;|
000007a0  8a 31 34 2c 38 29 3b 79  64 0d 02 e4 19 e6 33 2c  |.14,8);yd.....3,|
000007b0  67 63 3a ec 54 58 2c 54  59 3a df 54 58 2b 78 2c  |gc:.TX,TY:.TX+x,|
000007c0  54 59 0d 02 ee 05 e1 0d  02 f8 07 dd f2 74 0d 03  |TY...........t..|
000007d0  02 46 ef 32 34 2c 34 38  3b 37 34 34 3b 31 34 34  |.F.24,48;744;144|
000007e0  3b 31 30 30 34 3b 3a e6  30 2c 31 32 38 3a da 3a  |;1004;:.0,128:.:|
000007f0  ef 32 34 2c 31 31 33 36  3b 37 34 34 3b 31 32 33  |.24,1136;744;123|
00000800  32 3b 31 30 30 34 3b 3a  e6 30 2c 31 32 38 3a da  |2;1004;:.0,128:.|
00000810  3a ef 32 36 0d 03 0c 32  f2 62 28 34 2c 34 38 2c  |:.26...2.b(4,48,|
00000820  37 34 34 2c 31 34 34 2c  31 30 30 34 29 3a f2 62  |744,144,1004):.b|
00000830  28 34 2c 31 31 33 36 2c  37 34 34 2c 31 32 33 32  |(4,1136,744,1232|
00000840  2c 31 30 30 34 29 0d 03  16 31 e3 49 3d 37 36 30  |,1004)...1.I=760|
00000850  b8 39 38 38 88 31 31 34  3a ec 35 36 2c 49 3a df  |.988.114:.56,I:.|
00000860  31 33 36 2c 49 3a ec 31  31 34 34 2c 49 3a df 31  |136,I:.1144,I:.1|
00000870  32 32 34 2c 49 3a ed 0d  03 20 31 fb 35 3a f1 8a  |224,I:... 1.5:..|
00000880  31 2c 32 29 bd 32 32 34  8a 31 2c 36 29 bd 32 32  |1,2).224.1,6).22|
00000890  35 8a 31 38 2c 32 29 bd  32 32 38 8a 31 38 2c 36  |5.18,2).228.18,6|
000008a0  29 bd 32 32 36 3a fb 37  0d 03 2a 05 e1 0d 03 34  |).226:.7..*....4|
000008b0  17 dd f2 62 28 43 4c 2c  78 31 2c 79 31 2c 78 32  |...b(CL,x1,y1,x2|
000008c0  2c 79 32 29 0d 03 3e 2c  e6 30 2c 43 4c 3a ec 78  |,y2)..>,.0,CL:.x|
000008d0  31 2c 79 31 3a df 78 31  2c 79 32 3a df 78 32 2c  |1,y1:.x1,y2:.x2,|
000008e0  79 32 3a df 78 32 2c 79  31 3a df 78 31 2c 79 31  |y2:.x2,y1:.x1,y1|
000008f0  0d 03 48 05 e1 0d 03 52  07 dd f2 70 0d 03 5c 16  |..H....R...p..\.|
00000900  6f 78 3d 78 3a 6f 79 3d  79 3a e6 33 2c 67 63 3a  |ox=x:oy=y:.3,gc:|
00000910  fb 33 0d 03 66 0b f5 3a  2a 46 58 31 35 0d 03 70  |.3..f..:*FX15..p|
00000920  1a e7 50 3d 33 20 57 3d  39 3a f1 8a 4f 57 2b 32  |..P=3 W=9:..OW+2|
00000930  2c 32 29 3b 22 20 22 0d  03 7a 0d 6f 78 3d 78 3a  |,2);" "..z.ox=x:|
00000940  6f 79 3d 79 0d 03 84 14  f1 8a 57 2b 32 2c 32 29  |oy=y......W+2,2)|
00000950  3b 22 5e 22 3a 41 3d a5  0d 03 8e 16 e7 41 3d 39  |;"^":A=......A=9|
00000960  30 3a e7 78 3e 2d 36 34  20 78 3d 78 2d 34 0d 03  |0:.x>-64 x=x-4..|
00000970  98 15 e7 41 3d 38 38 3a  e7 78 3c 36 34 20 78 3d  |...A=88:.x<64 x=|
00000980  78 2b 34 0d 03 a2 15 e7  41 3d 35 38 3a e7 79 3c  |x+4.....A=58:.y<|
00000990  36 34 20 79 3d 79 2b 34  0d 03 ac 16 e7 41 3d 34  |64 y=y+4.....A=4|
000009a0  37 3a e7 79 3e 2d 36 34  20 79 3d 79 2d 34 0d 03  |7:.y>-64 y=y-4..|
000009b0  b6 21 e7 41 3d 31 33 37  3a e7 57 3c 31 34 3a 57  |.!.A=137:.W<14:W|
000009c0  3d 57 2b 31 3a e7 57 3d  31 30 20 57 3d 31 31 0d  |=W+1:.W=10 W=11.|
000009d0  03 c0 1f e7 41 3d 31 33  36 3a e7 57 3e 31 3a 57  |....A=136:.W>1:W|
000009e0  3d 57 2d 31 3a e7 57 3d  31 30 20 57 3d 39 0d 03  |=W-1:.W=10 W=9..|
000009f0  ca 1d e7 57 3c 3e 4f 57  20 f1 8a 4f 57 2b 32 2c  |...W<>OW ..OW+2,|
00000a00  32 29 3b 22 20 22 3a 4f  57 3d 57 0d 03 d4 21 ec  |2);" ":OW=W...!.|
00000a10  58 2c 59 3a df 58 2b 6f  78 2c 59 2b 6f 79 3a ec  |X,Y:.X+ox,Y+oy:.|
00000a20  58 2c 59 3a df 58 2b 78  2c 59 2b 79 0d 03 de 19  |X,Y:.X+x,Y+y....|
00000a30  fd 41 3d 31 33 20 80 20  ac 20 28 78 3d 30 20 80  |.A=13 . . (x=0 .|
00000a40  20 79 3d 30 29 0d 03 e8  06 f2 71 0d 03 f2 1a 48  | y=0).....q....H|
00000a50  3d a4 73 28 36 34 29 3a  f2 77 28 35 30 30 29 3a  |=.s(64):.w(500):|
00000a60  2a 46 58 31 35 0d 03 fc  0e 53 3d a4 73 28 31 31  |*FX15....S=.s(11|
00000a70  35 32 29 0d 04 06 1d 73  68 3d 73 68 2b 31 3a fb  |52)....sh=sh+1:.|
00000a80  33 3a f1 8a 31 32 2c 34  29 3b 73 68 3b 22 20 22  |3:..12,4);sh;" "|
00000a90  0d 04 10 05 e1 0d 04 1a  0a dd a4 73 28 68 29 0d  |...........s(h).|
00000aa0  04 24 1e 51 3d 30 3a 51  44 3d 38 3a e6 33 2c 36  |.$.Q=0:QD=8:.3,6|
00000ab0  3a 44 54 3d b3 28 31 30  29 3a d1 3d 30 0d 04 2e  |:DT=.(10):.=0...|
00000ac0  05 f5 0d 04 38 18 ec 68  2c 51 2b 38 37 34 3a df  |....8..h,Q+874:.|
00000ad0  68 2b 36 34 2c 51 2b 38  37 34 0d 04 42 36 51 3d  |h+64,Q+874..B6Q=|
00000ae0  51 2b 51 44 3a e7 51 3d  31 31 32 20 84 20 51 3d  |Q+QD:.Q=112 . Q=|
00000af0  2d 31 31 32 20 51 44 3d  2d 51 44 3a ec 68 2c 51  |-112 QD=-QD:.h,Q|
00000b00  2b 38 37 34 3a df 68 2b  36 34 2c 51 2b 38 37 34  |+874:.h+64,Q+874|
00000b10  0d 04 4c 15 fd a6 2d 39  39 20 80 20 91 3e 44 54  |..L...-99 . .>DT|
00000b20  3a 3d 51 2f 38 0d 04 56  07 dd f2 6d 0d 04 60 1c  |:=Q/8..V...m..`.|
00000b30  e7 78 3c 3e 30 20 61 3d  9d 28 99 28 79 2f 78 29  |.x<>0 a=.(.(y/x)|
00000b40  29 20 8b 20 61 3d 39 30  0d 04 6a 27 44 3d 28 28  |) . a=90..j'D=((|
00000b50  50 53 2d 94 28 53 29 2d  94 28 53 29 29 2f 31 30  |PS-.(S)-.(S))/10|
00000b60  30 29 2a 6c 28 57 29 2a  31 32 38 30 2f 79 64 0d  |0)*l(W)*1280/yd.|
00000b70  04 74 16 e7 61 3c 3e 94  28 61 29 61 3d 31 38 30  |.t..a<>.(a)a=180|
00000b80  2d 94 28 61 29 0d 04 7e  1e e7 79 3c 30 20 84 20  |-.(a)..~..y<0 . |
00000b90  28 78 3c 30 20 80 20 79  3d 30 29 20 61 3d 61 2b  |(x<0 . y=0) a=a+|
00000ba0  31 38 30 0d 04 88 0b 61  3d 61 2b 48 2b 48 0d 04  |180....a=a+H+H..|
00000bb0  92 05 e1 0d 04 9c 07 dd  f2 61 0d 04 a6 17 e6 33  |.........a.....3|
00000bc0  2c 67 63 3a ec 58 2c 59  3a df 58 2b 78 2c 59 2b  |,gc:.X,Y:.X+x,Y+|
00000bd0  79 0d 04 b0 31 78 62 3d  30 3a 79 62 3d 30 3a 6f  |y...1xb=0:yb=0:o|
00000be0  78 62 3d 30 3a 6f 79 62  3d 30 3a 4f 50 3d 30 3a  |xb=0:oyb=0:OP=0:|
00000bf0  50 3d 30 3a 53 54 3d 30  3a 4c 58 3d 30 3a 4c 59  |P=0:ST=0:LX=0:LY|
00000c00  3d 30 0d 04 ba 0b f2 7a  28 58 2c 59 29 0d 04 c4  |=0.....z(X,Y)...|
00000c10  25 63 3d 44 2a 9b 28 b2  28 61 29 29 3a 73 3d 44  |%c=D*.(.(a)):s=D|
00000c20  2a b5 28 b2 28 61 29 29  3a 74 3d b7 28 61 28 57  |*.(.(a)):t=.(a(W|
00000c30  29 29 0d 04 ce 13 f5 3a  6f 78 62 3d 78 62 3a 6f  |)).....:oxb=xb:o|
00000c40  79 62 3d 79 62 0d 04 d8  29 78 62 3d 78 62 2b 63  |yb=yb...)xb=xb+c|
00000c50  2f 38 30 3a 79 62 3d 79  62 2b 73 2f 38 30 3a 58  |/80:yb=yb+s/80:X|
00000c60  31 3d 58 2b 78 62 3a 59  31 3d 59 2b 79 62 0d 04  |1=X+xb:Y1=Y+yb..|
00000c70  e2 2b 68 78 3d b6 28 28  78 62 5e 32 29 2b 28 79  |.+hx=.((xb^2)+(y|
00000c80  62 5e 32 29 29 3a 68 3d  68 78 2a 74 2d 28 28 68  |b^2)):h=hx*t-((h|
00000c90  78 5e 32 29 2a 74 29 2f  44 0d 04 ec 16 e7 50 3c  |x^2)*t)/D.....P<|
00000ca0  3e 4f 50 20 4c 58 3d 78  62 3a 4c 59 3d 79 62 0d  |>OP LX=xb:LY=yb.|
00000cb0  04 f6 61 e7 28 50 3d 34  20 80 20 68 3c 3d 30 29  |..a.(P=4 . h<=0)|
00000cc0  20 84 20 28 50 3d 30 20  80 20 4f 50 3c 3e 30 29  | . (P=0 . OP<>0)|
00000cd0  20 84 20 28 50 3d 35 20  80 20 68 3c 3d 32 30 29  | . (P=5 . h<=20)|
00000ce0  20 53 54 3d 31 20 8b 20  f2 7a 28 58 2b 6f 78 62  | ST=1 . .z(X+oxb|
00000cf0  2c 59 2b 6f 79 62 29 3a  4f 50 3d 50 3a 50 3d b0  |,Y+oyb):OP=P:P=.|
00000d00  58 31 2c 59 31 29 3a f2  7a 28 58 31 2c 59 31 29  |X1,Y1):.z(X1,Y1)|
00000d10  0d 05 00 2a e7 58 31 3c  36 38 20 84 20 58 31 3e  |...*.X1<68 . X1>|
00000d20  31 32 32 30 20 84 20 59  31 3c 35 32 20 84 20 59  |1220 . Y1<52 . Y|
00000d30  31 3e 36 38 34 20 53 54  3d 31 0d 05 0a 18 fd 68  |1>684 ST=1.....h|
00000d40  78 3e 3d 44 20 84 20 53  54 3d 31 20 84 20 57 48  |x>=D . ST=1 . WH|
00000d50  3d 31 0d 05 14 06 f2 72  0d 05 1e 05 e1 0d 05 28  |=1.....r.......(|
00000d60  07 dd f2 72 0d 05 32 18  e6 30 2c 50 3a f2 7a 28  |...r..2..0,P:.z(|
00000d70  58 2b 6f 78 62 2c 59 2b  6f 79 62 29 0d 05 3c 37  |X+oxb,Y+oyb)..<7|
00000d80  e6 33 2c 67 63 3a e7 53  54 3d 30 20 80 20 50 3c  |.3,gc:.ST=0 . P<|
00000d90  3e 30 20 58 3d 58 31 3a  59 3d 59 31 20 8b 20 e7  |>0 X=X1:Y=Y1 . .|
00000da0  20 50 3c 3e 30 20 58 3d  58 2b 4c 58 3a 59 3d 59  | P<>0 X=X+LX:Y=Y|
00000db0  2b 4c 59 0d 05 46 1c e7  53 54 3d 31 3a e7 50 3d  |+LY..F..ST=1:.P=|
00000dc0  30 20 58 3d 58 2b 4c 58  3a 59 3d 59 2b 4c 59 0d  |0 X=X+LX:Y=Y+LY.|
00000dd0  05 50 18 e6 30 2c 50 3a  f2 7a 28 58 31 2c 59 31  |.P..0,P:.z(X1,Y1|
00000de0  29 3a e6 33 2c 67 63 0d  05 5a 18 78 3d 36 34 3a  |):.3,gc..Z.x=64:|
00000df0  79 3d 30 3a ec 58 2c 59  3a df 58 2b 78 2c 59 0d  |y=0:.X,Y:.X+x,Y.|
00000e00  05 64 32 e7 50 3d 35 3a  e7 4f 50 3c 3e 30 20 f1  |.d2.P=5:.OP<>0 .|
00000e10  8a 33 2c 36 29 3b 89 28  33 29 3b 22 54 72 65 65  |.3,6);.(3);"Tree|
00000e20  73 20 21 21 20 20 20 22  3a f2 77 28 32 30 30 30  |s !!   ":.w(2000|
00000e30  29 0d 05 6e 39 53 4d 3d  31 30 30 3a e7 50 3d 33  |)..n9SM=100:.P=3|
00000e40  20 53 4d 3d 36 30 3a f1  8a 33 2c 36 29 3b 89 28  | SM=60:..3,6);.(|
00000e50  32 29 3b 22 42 75 6e 6b  65 72 20 21 21 21 20 20  |2);"Bunker !!!  |
00000e60  22 3a f2 77 28 32 30 30  30 29 0d 05 78 29 e7 50  |":.w(2000)..x).P|
00000e70  3d 30 20 f1 8a 33 2c 36  29 3b 22 4f 75 74 20 6f  |=0 ..3,6);"Out o|
00000e80  66 20 62 6f 75 6e 64 73  21 22 3a f2 77 28 32 30  |f bounds!":.w(20|
00000e90  30 30 29 0d 05 82 05 e1  0d 05 8c 07 dd f2 71 0d  |00)...........q.|
00000ea0  05 96 27 fb 37 3a f1 8a  33 2c 36 29 3b 22 20 53  |..'.7:..3,6);" S|
00000eb0  74 72 65 6e 67 74 68 3a  20 20 20 25 22 3a fb 33  |trength:   %":.3|
00000ec0  3a 50 53 3d 53 4d 0d 05  a0 09 2a 46 58 31 35 0d  |:PS=SM....*FX15.|
00000ed0  05 aa 05 f5 0d 05 b4 18  e7 a6 2d 34 32 3a e7 50  |..........-42:.P|
00000ee0  53 3e 33 30 20 50 53 3d  50 53 2d 31 0d 05 be 18  |S>30 PS=PS-1....|
00000ef0  e7 a6 2d 35 38 3a e7 50  53 3c 53 4d 20 50 53 3d  |..-58:.PS<SM PS=|
00000f00  50 53 2b 31 0d 05 c8 1c  f1 8a 31 33 2c 36 29 3b  |PS+1......13,6);|
00000f10  50 53 3b 3a e7 50 53 3c  31 30 30 20 f1 22 20 22  |PS;:.PS<100 ." "|
00000f20  0d 05 d2 0a fd a6 2d 31  30 36 0d 05 dc 05 e1 0d  |......-106......|
00000f30  05 e6 0b dd f2 77 28 57  41 29 0d 05 f0 0e e3 77  |.....w(WA).....w|
00000f40  3d 30 b8 20 57 41 3a ed  0d 05 fa 05 e1 0d 06 04  |=0. WA:.........|
00000f50  07 dd f2 67 0d 06 0e 24  f2 77 28 31 30 30 30 29  |...g...$.w(1000)|
00000f60  3a f1 8a 33 2c 36 29 3b  22 4f 6e 20 74 68 65 20  |:..3,6);"On the |
00000f70  67 72 65 65 6e 20 21 22  0d 06 18 31 fb 31 32 38  |green !"...1.128|
00000f80  3a fb 31 3a f1 8a 33 2c  31 29 3b 22 47 72 65 65  |:.1:..3,1);"Gree|
00000f90  6e 20 53 70 65 65 64 20  3a 22 3b 47 52 3b 8a 33  |n Speed :";GR;.3|
00000fa0  2c 32 29 3b 89 28 31 34  29 0d 06 22 09 f2 6b 3a  |,2);.(14).."..k:|
00000fb0  f2 79 0d 06 2c 2c ef 35  2c 32 33 2c 31 2c 30 3b  |.y..,,.5,23,1,0;|
00000fc0  30 3b 30 3b 30 3b 3a e6  30 2c 34 3a ec 36 34 30  |0;0;0;:.0,4:.640|
00000fd0  2c 34 30 30 3a ef 32 33  30 3a e6 30 2c 37 0d 06  |,400:.230:.0,7..|
00000fe0  36 28 58 3d 38 30 2b b3  28 31 30 29 2a 38 3a 59  |6(X=80+.(10)*8:Y|
00000ff0  3d 31 31 36 2b b3 28 38  30 29 2a 34 3a 64 78 3d  |=116+.(80)*4:dx=|
00001000  58 3a 64 79 3d 59 0d 06  40 0e ec 58 2c 59 3a f1  |X:dy=Y..@..X,Y:.|
00001010  bd 32 33 31 0d 06 4a 1c  f5 3a ef 34 3a f2 64 3a  |.231..J..:.4:.d:|
00001020  ef 35 2c 32 33 2c 31 2c  30 3b 30 3b 30 3b 30 3b  |.5,23,1,0;0;0;0;|
00001030  0d 06 54 1a 48 3d a4 73  28 36 34 29 3a f2 77 28  |..T.H=.s(64):.w(|
00001040  35 30 30 29 3a 2a 46 58  31 35 0d 06 5e 11 53 3d  |500):*FX15..^.S=|
00001050  a4 73 28 31 31 35 32 29  2b 31 34 0d 06 68 0a 6d  |.s(1152)+14..h.m|
00001060  6f 3d 30 3a f5 0d 06 72  81 70 78 3d 94 28 28 53  |o=0:...r.px=.((S|
00001070  2a 32 2a 28 30 2e 31 2b  47 52 2f 31 30 30 29 29  |*2*(0.1+GR/100))|
00001080  2a 28 36 34 30 2d 58 29  2b 48 2a 32 30 30 29 2a  |*(640-X)+H*200)*|
00001090  28 36 34 30 2d 58 29 2f  94 28 36 34 30 2d 58 29  |(640-X)/.(640-X)|
000010a0  2a 6d 6f 2f 33 30 30 3a  70 79 3d 94 28 28 53 2a  |*mo/300:py=.((S*|
000010b0  32 2a 28 30 2e 31 2b 47  52 2f 31 30 30 29 29 2a  |2*(0.1+GR/100))*|
000010c0  28 34 30 32 2d 59 29 2b  48 2a 32 30 30 29 2a 28  |(402-Y)+H*200)*(|
000010d0  34 30 32 2d 59 29 2f 94  28 34 30 32 2d 59 29 2a  |402-Y)/.(402-Y)*|
000010e0  6d 6f 2f 33 30 30 0d 06  7c 24 e6 33 2c 35 3a ec  |mo/300..|$.3,5:.|
000010f0  64 78 2c 64 79 3a ef 32  33 31 3a ec 58 2b 70 78  |dx,dy:.231:.X+px|
00001100  2c 59 2b 70 79 3a ef 32  33 31 0d 06 86 1b 64 78  |,Y+py:.231....dx|
00001110  3d 58 2b 70 78 3a 64 79  3d 59 2b 70 79 3a 6d 6f  |=X+px:dy=Y+py:mo|
00001120  3d 6d 6f 2b 31 0d 06 90  26 64 74 3d a8 28 b6 28  |=mo+1...&dt=.(.(|
00001130  28 28 36 34 30 2d 64 78  29 5e 32 29 2b 28 28 34  |((640-dx)^2)+((4|
00001140  30 32 2d 64 79 29 5e 32  29 29 29 0d 06 9a 48 fd  |02-dy)^2)))...H.|
00001150  20 64 74 3c 33 30 20 84  20 6d 6f 3e 3d 37 35 20  | dt<30 . mo>=75 |
00001160  84 20 64 74 3c 33 30 20  84 20 6d 6f 3e 35 20 80  |. dt<30 . mo>5 .|
00001170  20 28 64 78 3c 38 30 20  84 20 64 78 3e 31 31 37  | (dx<80 . dx>117|
00001180  32 20 84 20 64 79 3c 39  36 20 84 20 64 79 3e 36  |2 . dy<96 . dy>6|
00001190  37 30 29 0d 06 a4 42 58  3d 58 2b 70 78 3a 59 3d  |70)...BX=X+px:Y=|
000011a0  59 2b 70 79 3a ef 34 3a  73 68 3d 73 68 2b 31 3a  |Y+py:.4:sh=sh+1:|
000011b0  fb 33 3a f1 8a 31 32 2c  34 29 3b 73 68 3b 22 20  |.3:..12,4);sh;" |
000011c0  22 3a f2 79 3a ef 35 2c  32 33 2c 31 2c 30 3b 30  |":.y:.5,23,1,0;0|
000011d0  3b 30 3b 30 3b 0d 06 ae  0a fd 64 74 3c 33 30 0d  |;0;0;.....dt<30.|
000011e0  06 b8 14 ef 34 2c 32 33  2c 31 2c 30 3b 30 3b 30  |....4,23,1,0;0;0|
000011f0  3b 30 3b 0d 06 c2 09 66  3d 31 3a e1 0d 06 cc 07  |;0;....f=1:.....|
00001200  dd f2 79 0d 06 d6 06 f2  74 0d 06 e0 26 fb 35 3a  |..y.....t...&.5:|
00001210  f1 8a 31 38 2c 32 29 bd  32 32 36 3b 8a 31 2c 32  |..18,2).226;.1,2|
00001220  29 bd 32 33 32 3b 8a 31  2c 36 29 bd 32 33 32 0d  |).232;.1,6).232.|
00001230  06 ea 05 e1 0d 06 f4 07  dd f2 64 0d 06 fe 34 64  |..........d...4d|
00001240  74 3d b6 28 28 28 36 34  30 2d 64 78 29 5e 32 29  |t=.(((640-dx)^2)|
00001250  2b 28 28 34 30 32 2d 64  79 29 5e 32 29 29 3a 64  |+((402-dy)^2)):d|
00001260  73 3d a8 28 64 74 2a 79  64 2f 31 32 38 30 29 0d  |s=.(dt*yd/1280).|
00001270  07 08 2f 64 24 3d c3 28  64 73 29 3a e7 64 73 3c  |../d$=.(ds):.ds<|
00001280  31 30 30 20 64 24 3d 22  30 22 2b 64 24 3a e7 64  |100 d$="0"+d$:.d|
00001290  73 3c 31 30 20 64 24 3d  22 30 22 2b 64 24 0d 07  |s<10 d$="0"+d$..|
000012a0  12 1e fb 34 3a f1 8a 33  2c 38 29 3b 22 44 69 73  |...4:..3,8);"Dis|
000012b0  74 61 6e 63 65 20 3a 20  22 3b 64 24 0d 07 1c 05  |tance : ";d$....|
000012c0  e1 0d 07 26 07 dd f2 6b  0d 07 30 41 ef 32 34 2c  |...&...k..0A.24,|
000012d0  34 30 3b 34 30 3b 31 32  34 34 3b 37 30 30 3b 3a  |40;40;1244;700;:|
000012e0  e6 30 2c 31 32 38 3a da  3a ef 32 34 2c 37 32 3b  |.0,128:.:.24,72;|
000012f0  37 32 3b 31 32 31 32 3b  36 36 38 3b 3a e6 30 2c  |72;1212;668;:.0,|
00001300  31 33 30 3a da 3a ef 32  36 0d 07 3a 05 e1 0d 07  |130:.:.26..:....|
00001310  44 0e dd f2 7a 28 71 78  2c 71 79 29 0d 07 4e 33  |D...z(qx,qy)..N3|
00001320  f0 36 39 2c 71 78 2c 71  79 3a f0 36 39 2c 71 78  |.69,qx,qy:.69,qx|
00001330  2b 34 2c 71 79 3a f0 36  39 2c 71 78 2c 71 79 2b  |+4,qy:.69,qx,qy+|
00001340  34 3a f0 36 39 2c 71 78  2b 34 2c 71 79 2b 34 0d  |4:.69,qx+4,qy+4.|
00001350  07 58 05 e1 0d 07 62 07  dd f2 65 0d 07 6c 17 e7  |.X....b...e..l..|
00001360  9f 3d 31 37 20 f1 27 27  22 45 73 63 61 70 65 22  |.=17 .''"Escape"|
00001370  3a e0 0d 07 76 33 f1 27  27 22 4e 6f 20 66 69 6c  |:...v3.''"No fil|
00001380  65 20 22 3b 54 24 3a f1  27 27 22 50 72 65 73 73  |e ";T$:.''"Press|
00001390  20 27 43 27 22 3a f5 41  24 3d be 3a fd 41 24 3d  | 'C'":.A$=.:.A$=|
000013a0  22 43 22 3a f9 0d 07 80  05 e1 0d 07 8a 0b dd f2  |"C":............|
000013b0  78 28 51 25 29 0d 07 94  12 50 25 3d 90 3a e7 50  |x(Q%)....P%=.:.P|
000013c0  25 3c 3d 51 25 20 e1 0d  07 9e 26 4c 25 3d b8 50  |%<=Q% ....&L%=.P|
000013d0  2d 50 25 3a f1 bd 31 32  39 bd 31 33 36 22 52 65  |-P%:..129.136"Re|
000013e0  6c 6f 63 61 74 69 6e 67  2e 2e 2e 2e 22 0d 07 a8  |locating...."...|
000013f0  11 e3 4d 25 3d 30 b8 4c  25 2d 31 20 88 34 0d 07  |..M%=0.L%-1 .4..|
00001400  b2 11 51 25 21 4d 25 3d  50 25 21 4d 25 3a ed 0d  |..Q%!M%=P%!M%:..|
00001410  07 bc 1a d0 3d 51 25 3a  41 25 3d 31 33 38 3a 58  |....=Q%:A%=138:X|
00001420  25 3d 30 3a 2a 46 58 31  35 0d 07 c6 20 24 26 31  |%=0:*FX15... $&1|
00001430  30 30 3d 22 4f 4c 44 22  2b bd 31 33 2b 22 52 55  |00="OLD"+.13+"RU|
00001440  4e 22 2b bd 36 2b bd 31  33 0d 07 d0 18 e3 4c 25  |N"+.6+.13.....L%|
00001450  3d 26 31 30 30 b8 26 31  30 38 3a 59 25 3d 3f 4c  |=&100.&108:Y%=?L|
00001460  25 0d 07 da 13 5a 25 3d  ba 26 46 46 46 34 3a ed  |%....Z%=.&FFF4:.|
00001470  3a ef 32 31 0d 07 e4 05  e1 0d ff                 |:.21.......|
0000147b