� > $.GolfDes
� By Jon Perry and Pali Rao
� (c) The Micro User
(� �error:�
2�130
<�23,1,0;0;0;0;
F
�title
P�screen
Z�design
d�
n
��init
odir$="@.Courses"
xstats$=dir$+".Stats."
yholes$=dir$+".Holes."
z�("CDIR "+dir$)
{�("CDIR "+stats$)
|�("CDIR "+holes$)
��S(36),C(36)
��I=0�36
�!S(I)=��(I*10):C(I)=��(I*10):�
�X=640:Y=368:c=0:C=2
�sc=320:pa=4:GR=0
�B�23,224,0,240,128,135,132,180,148,244,23,225,0,0,0,0,64,0,64,0
��
���title
��0,130:�
�2�I=0�6:�b(7,32+I*8,844+I*4,1240-I*8,916-I*4):�
��b(1,48,852,1224,908)
��b(1,32,844,1240,916)
�'�135:�0:�1,4);"By J.Perry & P.Rao"

	�init

�dc(1,640,300,50,50)

!�624,260:�656,260:�85,640,100

"�dc(2,640,350,100,70)

,�dc(7,640,440,150,150)

6�0,0

@A�5:�512,496:�"G":�576,464:�"O":�640,432:�"L":�704,384:�"F":�4

J�23,1,0;0;0;0;

TT=1:�=0

^�:T=T+1:�19,1,T;0;

h�T=1 T=T+1

r�T=7 T=0

|�wait=1�100:�

����0 � �>700

��0,128:�:�0:�129:�19,1,1;0;

��

���screen

��b(1,32,32,1248,704)

�9�I=0�32:�b(1-(I=0),32+I*8,736+I*4,1248-I*8,992-I*4):�

��b(7,124,796,264,932)

��b(7,300,852,724,908)

��b(6,816,840,1160,980)

��b(6,752,744,1224,820)

��b(4,304,756,520,812)

��b(4,562,756,648,812)

��b(4,364,916,660,972)
�6,2)�224�225

�chcol

�scale
&�det
0�
:��b(CL,x,y,x1,y1)
D	�0,CL
N �x,y:�x,y1:�x1,y1:�x1,y:�x,y
X�
b��design
l�:C2=�ch:�3,C2:�C2=0 �3,1
v�cur:�dis(16,16)
�	�keys
���
��
�	��cur
��-1 J=16 � J=8
��-67:�X<1232 X=X+J
��-98:�X>56 X=X-J
��-73:�Y<688 Y=Y+J/2
��-105:�Y>48 Y=Y-J/2
��
�
��keys
��-2:�-34:�wipe(C)
��-114:�spray
�-115 �circle
�-21:�C<6 C=C+1:�C=1 C=2
�-116:�C>0 C=C-1:�C=1 C=0
 �-21 � �-116 �chcol
*!�-122:�sc>100 sc=sc-5:�scale
4 �-26:�sc<700 sc=sc+5:�scale
>�-58:sc=100:�scale
H�-42:sc=700:�scale
R�-18:pa=3:�det
\�-19:pa=4:�det
f�-20:pa=5:�det
p�-53:pa=6:�det
z�-118:�file(0)
��-119:�file(1)
��-82:�GR>0 GR=GR-1:�det
��-68:�GR<9 GR=GR+1:�det
��
���circle
�$xh=50:yh=50:�:�size:��-74 � �-33
��-33 �
��dc(C,X,Y,xh,yh)
��
���dc(col,r,s,h1,h2)
�
�0,col
��T=0�36:�T=0 �r,s
�a=r+S(T)*h1:b=s+C(T)*h2
�r,s:�85,a,b:�
�

��size
$�dis(xh,yh)
.�-1 J=8 � J=4
8$�-99:�X+yh<1232 � X-yh>56:xh=yh
B%�-58:�Y+yh<692 � Y-yh>48:yh=yh+J
L�-42:�yh>8:yh=yh-J
V�-26:�xh>8:xh=xh-J
`'�-122:�X+xh<1232 � X-xh>56:xh=xh+J
j�
t��spray
~�:�0,C:�cur
�-�X-4,Y-4:�X+4,Y-4:�85,X-4,Y+4:�85,X+4,Y+4
�C2=C:�C2=0 C2=1
�?�3,C2:�I=0�1:�X-8,Y-8:�X+8,Y-8:�X+8,Y+8:�X-8,Y+8:�X-8,Y-8:�
�	��-33
��
���chcol
�3�B=0�16:�b(C,128+B*4,928-B*4,256-B*4,800+B*4):�
��C=0 M$="Out   "
��C=2 M$="Grass "
��C=3 M$="Bunker"
��C=4 M$="Water "
��C=5 M$="Trees!"
�C=6 M$="Green!"


�5,4);M$
�
��file(type)
(%�type=0 TY$="Save?" � TY$="Load?"
2#�13,2)TY$;�13,4)"(Y/N)":*FX4,1
<A$=�:N=�"YN",A$)
F�N=0 �T|E
P�N=2 �tLE
Z�type=0 �hole
d!�13,2);"Enter"�13,4);"title"
n�input:T$=N$
x�type=0:�save
��type=1:�load
��cl:*FX4,0
��
���cl
��13,2)�5�13,4)�5�12,7)�7
��
���input
�%�12,7);".......";�12,7);:N$="":�
�A=�:�A=13 �dzE
�)�A=127 � N$>"" N$=�N$,�(N$)-1):�(A);
��A<48 � A>90 �dRE
�-�(N$)<7 N$=N$+�(A):�(A);:� �1,-10,100,2
�
� A=13
�
��dis(G,H)
(�P=0�1:�X-G,Y:�X+G,Y:�X,Y-H:�X,Y+H:�
"�
,��scale
6G=0:OX=0:CS=1
@#�:G=G+sc:CS=CS � 1:� 0,(CS*6)+1
J)�OX,4:�OX,20:�85,OX+sc,4:�85,OX+sc,20
T�b(4,0,0,1276,24)
^yd=�(700/sc*130)
hOX=G:�G>1248:�det
r�
|	��det
�GR$="0"+�(GR)
� �9,7);pa;�8,2);GR$;�5,7);yd
��
�
��hole
��cl
��13,2);"Hole?"
��:C2=�ch:�3,C2:�C2=0 �3,1
��cur
��dis(16,16):��-74 � C2=6
�HX=X:HY=Y:�wait=1�200:�
��13,2);"Tee? "
��:C2=�ch:�3,C2:�C2=0 �3,1
��cur
�dis(16,16):��-74 � �ch=2
TX=X:TY=Y:�cl:*FX15

�cl:*FX15
&�
0
��save
:%�("SAVE "+holes$+T$+" 468E 8000")
DT$=stats$+T$
Nch=�(T$)
X�#ch,yd,pa,GR,HX,HY,TX,TY
b�#0
l�
v
��load
� �("LOAD "+holes$+T$+" 468E")
�T$=stats$+T$
�ch=�(T$)
��#ch,yd,pa,GR,HX,HY,TX,TY
��#0
��det
��
�ݤch
�
=�X,Y)
�
��wipe(c)
�)�13,2);"Wipe?";�13,4);"(Y/N)":*FX4,1
�A$=�:N=�"YN",A$)
��N=0 �dnG
�N=2 �TVH
`�I=0�74�2:�b(c,40+I*8,36+I*4,1240-I*8,700-I*4):J=75-I:�b(c,40+J*8,36+J*4,1240-J*8,700-J*4):�
�cl:*FX4
 �
*��error
4�=190 �DzH
>'�("SAVE "+holes$+"error 468E 8000")
H0yd=600:pa=5:GR=0:HX=900:HY=400:TX=300:TY=400
Rch=�(stats$+"error")
\�#ch,yd,pa,GR,HX,HY,TX,TY
f�#0
p�22,7:�<>190 �tDH
z�''"Catalogue full":�
��=214 �''"No file : ";T$
��=17 �''"Escape"
�"�=195 �''"File ";T$;" locked"
�,�''"Current screen and hole information"
� �'"saved under file 'error'"
�"�'''"Press 'C' to continue..."
��:A$=�:�A$="C"
��
�

00000000  0d 00 0a 11 f4 20 3e 20  24 2e 47 6f 6c 66 44 65  |..... > $.GolfDe|
00000010  73 0d 00 14 1f f4 20 42  79 20 4a 6f 6e 20 50 65  |s..... 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 0f ee 85 20 f2  |cro User..(... .|
00000050  65 72 72 6f 72 3a f9 0d  00 32 08 eb 31 33 30 0d  |error:...2..130.|
00000060  00 3c 12 ef 32 33 2c 31  2c 30 3b 30 3b 30 3b 30  |.<..23,1,0;0;0;0|
00000070  3b 0d 00 46 0a f2 74 69  74 6c 65 0d 00 50 0b f2  |;..F..title..P..|
00000080  73 63 72 65 65 6e 0d 00  5a 0b f2 64 65 73 69 67  |screen..Z..desig|
00000090  6e 0d 00 64 05 e0 0d 00  6e 0a dd f2 69 6e 69 74  |n..d....n...init|
000000a0  0d 00 6f 14 64 69 72 24  3d 22 40 2e 43 6f 75 72  |..o.dir$="@.Cour|
000000b0  73 65 73 22 0d 00 78 19  73 74 61 74 73 24 3d 64  |ses"..x.stats$=d|
000000c0  69 72 24 2b 22 2e 53 74  61 74 73 2e 22 0d 00 79  |ir$+".Stats."..y|
000000d0  19 68 6f 6c 65 73 24 3d  64 69 72 24 2b 22 2e 48  |.holes$=dir$+".H|
000000e0  6f 6c 65 73 2e 22 0d 00  7a 13 ff 28 22 43 44 49  |oles."..z..("CDI|
000000f0  52 20 22 2b 64 69 72 24  29 0d 00 7b 15 ff 28 22  |R "+dir$)..{..("|
00000100  43 44 49 52 20 22 2b 73  74 61 74 73 24 29 0d 00  |CDIR "+stats$)..|
00000110  7c 15 ff 28 22 43 44 49  52 20 22 2b 68 6f 6c 65  ||..("CDIR "+hole|
00000120  73 24 29 0d 00 82 10 de  53 28 33 36 29 2c 43 28  |s$).....S(36),C(|
00000130  33 36 29 0d 00 8c 0b e3  49 3d 30 b8 33 36 0d 00  |36).....I=0.36..|
00000140  96 21 53 28 49 29 3d b5  b2 28 49 2a 31 30 29 3a  |.!S(I)=..(I*10):|
00000150  43 28 49 29 3d 9b b2 28  49 2a 31 30 29 3a ed 0d  |C(I)=..(I*10):..|
00000160  00 a0 17 58 3d 36 34 30  3a 59 3d 33 36 38 3a 63  |...X=640:Y=368:c|
00000170  3d 30 3a 43 3d 32 0d 00  aa 14 73 63 3d 33 32 30  |=0:C=2....sc=320|
00000180  3a 70 61 3d 34 3a 47 52  3d 30 0d 00 b4 42 ef 32  |:pa=4:GR=0...B.2|
00000190  33 2c 32 32 34 2c 30 2c  32 34 30 2c 31 32 38 2c  |3,224,0,240,128,|
000001a0  31 33 35 2c 31 33 32 2c  31 38 30 2c 31 34 38 2c  |135,132,180,148,|
000001b0  32 34 34 2c 32 33 2c 32  32 35 2c 30 2c 30 2c 30  |244,23,225,0,0,0|
000001c0  2c 30 2c 36 34 2c 30 2c  36 34 2c 30 0d 00 be 05  |,0,64,0,64,0....|
000001d0  e1 0d 00 c8 0b dd f2 74  69 74 6c 65 0d 00 d2 0c  |.......title....|
000001e0  e6 30 2c 31 33 30 3a da  0d 00 dc 32 e3 49 3d 30  |.0,130:....2.I=0|
000001f0  b8 36 3a f2 62 28 37 2c  33 32 2b 49 2a 38 2c 38  |.6:.b(7,32+I*8,8|
00000200  34 34 2b 49 2a 34 2c 31  32 34 30 2d 49 2a 38 2c  |44+I*4,1240-I*8,|
00000210  39 31 36 2d 49 2a 34 29  3a ed 0d 00 e6 19 f2 62  |916-I*4):......b|
00000220  28 31 2c 34 38 2c 38 35  32 2c 31 32 32 34 2c 39  |(1,48,852,1224,9|
00000230  30 38 29 0d 00 f0 19 f2  62 28 31 2c 33 32 2c 38  |08).....b(1,32,8|
00000240  34 34 2c 31 32 34 30 2c  39 31 36 29 0d 00 fa 27  |44,1240,916)...'|
00000250  fb 31 33 35 3a fb 30 3a  f1 8a 31 2c 34 29 3b 22  |.135:.0:..1,4);"|
00000260  42 79 20 4a 2e 50 65 72  72 79 20 26 20 50 2e 52  |By J.Perry & P.R|
00000270  61 6f 22 0d 01 04 09 f2  69 6e 69 74 0d 01 0e 18  |ao".....init....|
00000280  f2 64 63 28 31 2c 36 34  30 2c 33 30 30 2c 35 30  |.dc(1,640,300,50|
00000290  2c 35 30 29 0d 01 18 21  ec 36 32 34 2c 32 36 30  |,50)...!.624,260|
000002a0  3a ec 36 35 36 2c 32 36  30 3a f0 38 35 2c 36 34  |:.656,260:.85,64|
000002b0  30 2c 31 30 30 0d 01 22  19 f2 64 63 28 32 2c 36  |0,100.."..dc(2,6|
000002c0  34 30 2c 33 35 30 2c 31  30 30 2c 37 30 29 0d 01  |40,350,100,70)..|
000002d0  2c 1a f2 64 63 28 37 2c  36 34 30 2c 34 34 30 2c  |,..dc(7,640,440,|
000002e0  31 35 30 2c 31 35 30 29  0d 01 36 08 e6 30 2c 30  |150,150)..6..0,0|
000002f0  0d 01 40 41 ef 35 3a ec  35 31 32 2c 34 39 36 3a  |..@A.5:.512,496:|
00000300  f1 22 47 22 3a ec 35 37  36 2c 34 36 34 3a f1 22  |."G":.576,464:."|
00000310  4f 22 3a ec 36 34 30 2c  34 33 32 3a f1 22 4c 22  |O":.640,432:."L"|
00000320  3a ec 37 30 34 2c 33 38  34 3a f1 22 46 22 3a ef  |:.704,384:."F":.|
00000330  34 0d 01 4a 12 ef 32 33  2c 31 2c 30 3b 30 3b 30  |4..J..23,1,0;0;0|
00000340  3b 30 3b 0d 01 54 0b 54  3d 31 3a d1 3d 30 0d 01  |;0;..T.T=1:.=0..|
00000350  5e 16 f5 3a 54 3d 54 2b  31 3a ef 31 39 2c 31 2c  |^..:T=T+1:.19,1,|
00000360  54 3b 30 3b 0d 01 68 0e  e7 54 3d 31 20 54 3d 54  |T;0;..h..T=1 T=T|
00000370  2b 31 0d 01 72 0c e7 54  3d 37 20 54 3d 30 0d 01  |+1..r..T=7 T=0..|
00000380  7c 11 e3 77 61 69 74 3d  31 b8 31 30 30 3a ed 0d  ||..wait=1.100:..|
00000390  01 86 10 fd ac a6 30 20  84 20 91 3e 37 30 30 0d  |......0 . .>700.|
000003a0  01 90 1f e6 30 2c 31 32  38 3a da 3a fb 30 3a fb  |....0,128:.:.0:.|
000003b0  31 32 39 3a ef 31 39 2c  31 2c 31 3b 30 3b 0d 01  |129:.19,1,1;0;..|
000003c0  9a 05 e1 0d 01 a4 0c dd  f2 73 63 72 65 65 6e 0d  |.........screen.|
000003d0  01 ae 18 f2 62 28 31 2c  33 32 2c 33 32 2c 31 32  |....b(1,32,32,12|
000003e0  34 38 2c 37 30 34 29 0d  01 b8 39 e3 49 3d 30 b8  |48,704)...9.I=0.|
000003f0  33 32 3a f2 62 28 31 2d  28 49 3d 30 29 2c 33 32  |32:.b(1-(I=0),32|
00000400  2b 49 2a 38 2c 37 33 36  2b 49 2a 34 2c 31 32 34  |+I*8,736+I*4,124|
00000410  38 2d 49 2a 38 2c 39 39  32 2d 49 2a 34 29 3a ed  |8-I*8,992-I*4):.|
00000420  0d 01 c2 19 f2 62 28 37  2c 31 32 34 2c 37 39 36  |.....b(7,124,796|
00000430  2c 32 36 34 2c 39 33 32  29 0d 01 cc 19 f2 62 28  |,264,932).....b(|
00000440  37 2c 33 30 30 2c 38 35  32 2c 37 32 34 2c 39 30  |7,300,852,724,90|
00000450  38 29 0d 01 d6 1a f2 62  28 36 2c 38 31 36 2c 38  |8).....b(6,816,8|
00000460  34 30 2c 31 31 36 30 2c  39 38 30 29 0d 01 e0 1a  |40,1160,980)....|
00000470  f2 62 28 36 2c 37 35 32  2c 37 34 34 2c 31 32 32  |.b(6,752,744,122|
00000480  34 2c 38 32 30 29 0d 01  ea 19 f2 62 28 34 2c 33  |4,820).....b(4,3|
00000490  30 34 2c 37 35 36 2c 35  32 30 2c 38 31 32 29 0d  |04,756,520,812).|
000004a0  01 f4 19 f2 62 28 34 2c  35 36 32 2c 37 35 36 2c  |....b(4,562,756,|
000004b0  36 34 38 2c 38 31 32 29  0d 01 fe 19 f2 62 28 34  |648,812).....b(4|
000004c0  2c 33 36 34 2c 39 31 36  2c 36 36 30 2c 39 37 32  |,364,916,660,972|
000004d0  29 0d 02 08 12 f1 8a 36  2c 32 29 bd 32 32 34 bd  |)......6,2).224.|
000004e0  32 32 35 0d 02 12 0a f2  63 68 63 6f 6c 0d 02 1c  |225.....chcol...|
000004f0  0a f2 73 63 61 6c 65 0d  02 26 08 f2 64 65 74 0d  |..scale..&..det.|
00000500  02 30 05 e1 0d 02 3a 15  dd f2 62 28 43 4c 2c 78  |.0....:...b(CL,x|
00000510  2c 79 2c 78 31 2c 79 31  29 0d 02 44 09 e6 30 2c  |,y,x1,y1)..D..0,|
00000520  43 4c 0d 02 4e 20 ec 78  2c 79 3a df 78 2c 79 31  |CL..N .x,y:.x,y1|
00000530  3a df 78 31 2c 79 31 3a  df 78 31 2c 79 3a df 78  |:.x1,y1:.x1,y:.x|
00000540  2c 79 0d 02 58 05 e1 0d  02 62 0c dd f2 64 65 73  |,y..X....b...des|
00000550  69 67 6e 0d 02 6c 1d f5  3a 43 32 3d a4 63 68 3a  |ign..l..:C2=.ch:|
00000560  e6 33 2c 43 32 3a e7 43  32 3d 30 20 e6 33 2c 31  |.3,C2:.C2=0 .3,1|
00000570  0d 02 76 14 f2 63 75 72  3a f2 64 69 73 28 31 36  |..v..cur:.dis(16|
00000580  2c 31 36 29 0d 02 80 09  f2 6b 65 79 73 0d 02 8a  |,16).....keys...|
00000590  06 fd a3 0d 02 94 05 e1  0d 02 9e 09 dd f2 63 75  |..............cu|
000005a0  72 0d 02 a8 13 e7 a6 2d  31 20 4a 3d 31 36 20 8b  |r......-1 J=16 .|
000005b0  20 4a 3d 38 0d 02 b2 17  e7 a6 2d 36 37 3a e7 58  | J=8......-67:.X|
000005c0  3c 31 32 33 32 20 58 3d  58 2b 4a 0d 02 bc 15 e7  |<1232 X=X+J.....|
000005d0  a6 2d 39 38 3a e7 58 3e  35 36 20 58 3d 58 2d 4a  |.-98:.X>56 X=X-J|
000005e0  0d 02 c6 18 e7 a6 2d 37  33 3a e7 59 3c 36 38 38  |......-73:.Y<688|
000005f0  20 59 3d 59 2b 4a 2f 32  0d 02 d0 18 e7 a6 2d 31  | Y=Y+J/2......-1|
00000600  30 35 3a e7 59 3e 34 38  20 59 3d 59 2d 4a 2f 32  |05:.Y>48 Y=Y-J/2|
00000610  0d 02 da 05 e1 0d 02 e4  0a dd f2 6b 65 79 73 0d  |...........keys.|
00000620  02 ee 17 e7 a6 2d 32 3a  e7 a6 2d 33 34 3a f2 77  |.....-2:..-34:.w|
00000630  69 70 65 28 43 29 0d 02  f8 11 e7 a6 2d 31 31 34  |ipe(C)......-114|
00000640  3a f2 73 70 72 61 79 0d  03 02 12 e7 a6 2d 31 31  |:.spray......-11|
00000650  35 20 f2 63 69 72 63 6c  65 0d 03 0c 1d e7 a6 2d  |5 .circle......-|
00000660  32 31 3a e7 43 3c 36 20  43 3d 43 2b 31 3a e7 43  |21:.C<6 C=C+1:.C|
00000670  3d 31 20 43 3d 32 0d 03  16 1e e7 a6 2d 31 31 36  |=1 C=2......-116|
00000680  3a e7 43 3e 30 20 43 3d  43 2d 31 3a e7 43 3d 31  |:.C>0 C=C-1:.C=1|
00000690  20 43 3d 30 0d 03 20 18  e7 a6 2d 32 31 20 84 20  | C=0.. ...-21 . |
000006a0  a6 2d 31 31 36 20 f2 63  68 63 6f 6c 0d 03 2a 21  |.-116 .chcol..*!|
000006b0  e7 a6 2d 31 32 32 3a e7  73 63 3e 31 30 30 20 73  |..-122:.sc>100 s|
000006c0  63 3d 73 63 2d 35 3a f2  73 63 61 6c 65 0d 03 34  |c=sc-5:.scale..4|
000006d0  20 e7 a6 2d 32 36 3a e7  73 63 3c 37 30 30 20 73  | ..-26:.sc<700 s|
000006e0  63 3d 73 63 2b 35 3a f2  73 63 61 6c 65 0d 03 3e  |c=sc+5:.scale..>|
000006f0  17 e7 a6 2d 35 38 3a 73  63 3d 31 30 30 3a f2 73  |...-58:sc=100:.s|
00000700  63 61 6c 65 0d 03 48 17  e7 a6 2d 34 32 3a 73 63  |cale..H...-42:sc|
00000710  3d 37 30 30 3a f2 73 63  61 6c 65 0d 03 52 13 e7  |=700:.scale..R..|
00000720  a6 2d 31 38 3a 70 61 3d  33 3a f2 64 65 74 0d 03  |.-18:pa=3:.det..|
00000730  5c 13 e7 a6 2d 31 39 3a  70 61 3d 34 3a f2 64 65  |\...-19:pa=4:.de|
00000740  74 0d 03 66 13 e7 a6 2d  32 30 3a 70 61 3d 35 3a  |t..f...-20:pa=5:|
00000750  f2 64 65 74 0d 03 70 13  e7 a6 2d 35 33 3a 70 61  |.det..p...-53:pa|
00000760  3d 36 3a f2 64 65 74 0d  03 7a 13 e7 a6 2d 31 31  |=6:.det..z...-11|
00000770  38 3a f2 66 69 6c 65 28  30 29 0d 03 84 13 e7 a6  |8:.file(0)......|
00000780  2d 31 31 39 3a f2 66 69  6c 65 28 31 29 0d 03 8e  |-119:.file(1)...|
00000790  1c e7 a6 2d 38 32 3a e7  47 52 3e 30 20 47 52 3d  |...-82:.GR>0 GR=|
000007a0  47 52 2d 31 3a f2 64 65  74 0d 03 98 1c e7 a6 2d  |GR-1:.det......-|
000007b0  36 38 3a e7 47 52 3c 39  20 47 52 3d 47 52 2b 31  |68:.GR<9 GR=GR+1|
000007c0  3a f2 64 65 74 0d 03 a2  05 e1 0d 03 ac 0c dd f2  |:.det...........|
000007d0  63 69 72 63 6c 65 0d 03  b6 24 78 68 3d 35 30 3a  |circle...$xh=50:|
000007e0  79 68 3d 35 30 3a f5 3a  f2 73 69 7a 65 3a fd a6  |yh=50:.:.size:..|
000007f0  2d 37 34 20 84 20 a6 2d  33 33 0d 03 c0 0b e7 a6  |-74 . .-33......|
00000800  2d 33 33 20 e1 0d 03 ca  14 f2 64 63 28 43 2c 58  |-33 ......dc(C,X|
00000810  2c 59 2c 78 68 2c 79 68  29 0d 03 d4 05 e1 0d 03  |,Y,xh,yh).......|
00000820  de 17 dd f2 64 63 28 63  6f 6c 2c 72 2c 73 2c 68  |....dc(col,r,s,h|
00000830  31 2c 68 32 29 0d 03 e8  0a e6 30 2c 63 6f 6c 0d  |1,h2).....0,col.|
00000840  03 f2 15 e3 54 3d 30 b8  33 36 3a e7 54 3d 30 20  |....T=0.36:.T=0 |
00000850  ec 72 2c 73 0d 03 fc 1b  61 3d 72 2b 53 28 54 29  |.r,s....a=r+S(T)|
00000860  2a 68 31 3a 62 3d 73 2b  43 28 54 29 2a 68 32 0d  |*h1:b=s+C(T)*h2.|
00000870  04 06 12 ec 72 2c 73 3a  f0 38 35 2c 61 2c 62 3a  |....r,s:.85,a,b:|
00000880  ed 0d 04 10 05 e1 0d 04  1a 0a dd f2 73 69 7a 65  |............size|
00000890  0d 04 24 0f f2 64 69 73  28 78 68 2c 79 68 29 0d  |..$..dis(xh,yh).|
000008a0  04 2e 12 e7 a6 2d 31 20  4a 3d 38 20 8b 20 4a 3d  |.....-1 J=8 . J=|
000008b0  34 0d 04 38 24 e7 a6 2d  39 39 3a e7 58 2b 79 68  |4..8$..-99:.X+yh|
000008c0  3c 31 32 33 32 20 80 20  58 2d 79 68 3e 35 36 3a  |<1232 . X-yh>56:|
000008d0  78 68 3d 79 68 0d 04 42  25 e7 a6 2d 35 38 3a e7  |xh=yh..B%..-58:.|
000008e0  59 2b 79 68 3c 36 39 32  20 80 20 59 2d 79 68 3e  |Y+yh<692 . Y-yh>|
000008f0  34 38 3a 79 68 3d 79 68  2b 4a 0d 04 4c 17 e7 a6  |48:yh=yh+J..L...|
00000900  2d 34 32 3a e7 79 68 3e  38 3a 79 68 3d 79 68 2d  |-42:.yh>8:yh=yh-|
00000910  4a 0d 04 56 17 e7 a6 2d  32 36 3a e7 78 68 3e 38  |J..V...-26:.xh>8|
00000920  3a 78 68 3d 78 68 2d 4a  0d 04 60 27 e7 a6 2d 31  |:xh=xh-J..`'..-1|
00000930  32 32 3a e7 58 2b 78 68  3c 31 32 33 32 20 80 20  |22:.X+xh<1232 . |
00000940  58 2d 78 68 3e 35 36 3a  78 68 3d 78 68 2b 4a 0d  |X-xh>56:xh=xh+J.|
00000950  04 6a 05 e1 0d 04 74 0b  dd f2 73 70 72 61 79 0d  |.j....t...spray.|
00000960  04 7e 0f f5 3a e6 30 2c  43 3a f2 63 75 72 0d 04  |.~..:.0,C:.cur..|
00000970  88 2d ec 58 2d 34 2c 59  2d 34 3a ec 58 2b 34 2c  |.-.X-4,Y-4:.X+4,|
00000980  59 2d 34 3a f0 38 35 2c  58 2d 34 2c 59 2b 34 3a  |Y-4:.85,X-4,Y+4:|
00000990  f0 38 35 2c 58 2b 34 2c  59 2b 34 0d 04 92 13 43  |.85,X+4,Y+4....C|
000009a0  32 3d 43 3a e7 43 32 3d  30 20 43 32 3d 31 0d 04  |2=C:.C2=0 C2=1..|
000009b0  9c 3f e6 33 2c 43 32 3a  e3 49 3d 30 b8 31 3a ec  |.?.3,C2:.I=0.1:.|
000009c0  58 2d 38 2c 59 2d 38 3a  df 58 2b 38 2c 59 2d 38  |X-8,Y-8:.X+8,Y-8|
000009d0  3a df 58 2b 38 2c 59 2b  38 3a df 58 2d 38 2c 59  |:.X+8,Y+8:.X-8,Y|
000009e0  2b 38 3a df 58 2d 38 2c  59 2d 38 3a ed 0d 04 a6  |+8:.X-8,Y-8:....|
000009f0  09 fd a6 2d 33 33 0d 04  b0 05 e1 0d 04 ba 0b dd  |...-33..........|
00000a00  f2 63 68 63 6f 6c 0d 04  c4 33 e3 42 3d 30 b8 31  |.chcol...3.B=0.1|
00000a10  36 3a f2 62 28 43 2c 31  32 38 2b 42 2a 34 2c 39  |6:.b(C,128+B*4,9|
00000a20  32 38 2d 42 2a 34 2c 32  35 36 2d 42 2a 34 2c 38  |28-B*4,256-B*4,8|
00000a30  30 30 2b 42 2a 34 29 3a  ed 0d 04 ce 14 e7 43 3d  |00+B*4):......C=|
00000a40  30 20 4d 24 3d 22 4f 75  74 20 20 20 22 0d 04 d8  |0 M$="Out   "...|
00000a50  14 e7 43 3d 32 20 4d 24  3d 22 47 72 61 73 73 20  |..C=2 M$="Grass |
00000a60  22 0d 04 e2 14 e7 43 3d  33 20 4d 24 3d 22 42 75  |".....C=3 M$="Bu|
00000a70  6e 6b 65 72 22 0d 04 ec  14 e7 43 3d 34 20 4d 24  |nker".....C=4 M$|
00000a80  3d 22 57 61 74 65 72 20  22 0d 04 f6 14 e7 43 3d  |="Water ".....C=|
00000a90  35 20 4d 24 3d 22 54 72  65 65 73 21 22 0d 05 00  |5 M$="Trees!"...|
00000aa0  14 e7 43 3d 36 20 4d 24  3d 22 47 72 65 65 6e 21  |..C=6 M$="Green!|
00000ab0  22 0d 05 0a 0d f1 8a 35  2c 34 29 3b 4d 24 0d 05  |"......5,4);M$..|
00000ac0  14 05 e1 0d 05 1e 10 dd  f2 66 69 6c 65 28 74 79  |.........file(ty|
00000ad0  70 65 29 0d 05 28 25 e7  74 79 70 65 3d 30 20 54  |pe)..(%.type=0 T|
00000ae0  59 24 3d 22 53 61 76 65  3f 22 20 8b 20 54 59 24  |Y$="Save?" . TY$|
00000af0  3d 22 4c 6f 61 64 3f 22  0d 05 32 23 f1 8a 31 33  |="Load?"..2#..13|
00000b00  2c 32 29 54 59 24 3b 8a  31 33 2c 34 29 22 28 59  |,2)TY$;.13,4)"(Y|
00000b10  2f 4e 29 22 3a 2a 46 58  34 2c 31 0d 05 3c 14 41  |/N)":*FX4,1..<.A|
00000b20  24 3d be 3a 4e 3d a7 22  59 4e 22 2c 41 24 29 0d  |$=.:N=."YN",A$).|
00000b30  05 46 0e e7 4e 3d 30 20  e5 8d 54 7c 45 0d 05 50  |.F..N=0 ..T|E..P|
00000b40  0e e7 4e 3d 32 20 e5 8d  74 4c 45 0d 05 5a 11 e7  |..N=2 ..tLE..Z..|
00000b50  74 79 70 65 3d 30 20 f2  68 6f 6c 65 0d 05 64 21  |type=0 .hole..d!|
00000b60  f1 8a 31 33 2c 32 29 3b  22 45 6e 74 65 72 22 8a  |..13,2);"Enter".|
00000b70  31 33 2c 34 29 3b 22 74  69 74 6c 65 22 0d 05 6e  |13,4);"title"..n|
00000b80  10 f2 69 6e 70 75 74 3a  54 24 3d 4e 24 0d 05 78  |..input:T$=N$..x|
00000b90  11 e7 74 79 70 65 3d 30  3a f2 73 61 76 65 0d 05  |..type=0:.save..|
00000ba0  82 11 e7 74 79 70 65 3d  31 3a f2 6c 6f 61 64 0d  |...type=1:.load.|
00000bb0  05 8c 0e f2 63 6c 3a 2a  46 58 34 2c 30 0d 05 96  |....cl:*FX4,0...|
00000bc0  05 e1 0d 05 a0 08 dd f2  63 6c 0d 05 aa 1d f1 8a  |........cl......|
00000bd0  31 33 2c 32 29 89 35 8a  31 33 2c 34 29 89 35 8a  |13,2).5.13,4).5.|
00000be0  31 32 2c 37 29 89 37 0d  05 b4 05 e1 0d 05 be 0b  |12,7).7.........|
00000bf0  dd f2 69 6e 70 75 74 0d  05 c8 25 f1 8a 31 32 2c  |..input...%..12,|
00000c00  37 29 3b 22 2e 2e 2e 2e  2e 2e 2e 22 3b 8a 31 32  |7);".......";.12|
00000c10  2c 37 29 3b 3a 4e 24 3d  22 22 3a f5 0d 05 d2 13  |,7);:N$="":.....|
00000c20  41 3d a5 3a e7 41 3d 31  33 20 e5 8d 64 7a 45 0d  |A=.:.A=13 ..dzE.|
00000c30  05 dc 29 e7 41 3d 31 32  37 20 80 20 4e 24 3e 22  |..).A=127 . N$>"|
00000c40  22 20 4e 24 3d c0 4e 24  2c a9 28 4e 24 29 2d 31  |" N$=.N$,.(N$)-1|
00000c50  29 3a f1 bd 28 41 29 3b  0d 05 e6 16 e7 41 3c 34  |):..(A);.....A<4|
00000c60  38 20 84 20 41 3e 39 30  20 e5 8d 64 52 45 0d 05  |8 . A>90 ..dRE..|
00000c70  f0 2d e7 a9 28 4e 24 29  3c 37 20 4e 24 3d 4e 24  |.-..(N$)<7 N$=N$|
00000c80  2b bd 28 41 29 3a f1 bd  28 41 29 3b 3a 8b 20 d4  |+.(A):..(A);:. .|
00000c90  31 2c 2d 31 30 2c 31 30  30 2c 32 0d 05 fa 0a fd  |1,-10,100,2.....|
00000ca0  20 41 3d 31 33 0d 06 04  05 e1 0d 06 0e 0e dd f2  | A=13...........|
00000cb0  64 69 73 28 47 2c 48 29  0d 06 18 28 e3 50 3d 30  |dis(G,H)...(.P=0|
00000cc0  b8 31 3a ec 58 2d 47 2c  59 3a df 58 2b 47 2c 59  |.1:.X-G,Y:.X+G,Y|
00000cd0  3a ec 58 2c 59 2d 48 3a  df 58 2c 59 2b 48 3a ed  |:.X,Y-H:.X,Y+H:.|
00000ce0  0d 06 22 05 e1 0d 06 2c  0b dd f2 73 63 61 6c 65  |.."....,...scale|
00000cf0  0d 06 36 11 47 3d 30 3a  4f 58 3d 30 3a 43 53 3d  |..6.G=0:OX=0:CS=|
00000d00  31 0d 06 40 23 f5 3a 47  3d 47 2b 73 63 3a 43 53  |1..@#.:G=G+sc:CS|
00000d10  3d 43 53 20 82 20 31 3a  e6 20 30 2c 28 43 53 2a  |=CS . 1:. 0,(CS*|
00000d20  36 29 2b 31 0d 06 4a 29  ec 4f 58 2c 34 3a ec 4f  |6)+1..J).OX,4:.O|
00000d30  58 2c 32 30 3a f0 38 35  2c 4f 58 2b 73 63 2c 34  |X,20:.85,OX+sc,4|
00000d40  3a f0 38 35 2c 4f 58 2b  73 63 2c 32 30 0d 06 54  |:.85,OX+sc,20..T|
00000d50  15 f2 62 28 34 2c 30 2c  30 2c 31 32 37 36 2c 32  |..b(4,0,0,1276,2|
00000d60  34 29 0d 06 5e 14 79 64  3d a8 28 37 30 30 2f 73  |4)..^.yd=.(700/s|
00000d70  63 2a 31 33 30 29 0d 06  68 15 4f 58 3d 47 3a fd  |c*130)..h.OX=G:.|
00000d80  47 3e 31 32 34 38 3a f2  64 65 74 0d 06 72 05 e1  |G>1248:.det..r..|
00000d90  0d 06 7c 09 dd f2 64 65  74 0d 06 86 11 47 52 24  |..|...det....GR$|
00000da0  3d 22 30 22 2b c3 28 47  52 29 0d 06 90 20 f1 8a  |="0"+.(GR)... ..|
00000db0  39 2c 37 29 3b 70 61 3b  8a 38 2c 32 29 3b 47 52  |9,7);pa;.8,2);GR|
00000dc0  24 3b 8a 35 2c 37 29 3b  79 64 0d 06 9a 05 e1 0d  |$;.5,7);yd......|
00000dd0  06 a4 0a dd f2 68 6f 6c  65 0d 06 ae 07 f2 63 6c  |.....hole.....cl|
00000de0  0d 06 b8 13 f1 8a 31 33  2c 32 29 3b 22 48 6f 6c  |......13,2);"Hol|
00000df0  65 3f 22 0d 06 c2 1d f5  3a 43 32 3d a4 63 68 3a  |e?".....:C2=.ch:|
00000e00  e6 33 2c 43 32 3a e7 43  32 3d 30 20 e6 33 2c 31  |.3,C2:.C2=0 .3,1|
00000e10  0d 06 cc 08 f2 63 75 72  0d 06 d6 1c f2 64 69 73  |.....cur.....dis|
00000e20  28 31 36 2c 31 36 29 3a  fd a6 2d 37 34 20 80 20  |(16,16):..-74 . |
00000e30  43 32 3d 36 0d 06 e0 1b  48 58 3d 58 3a 48 59 3d  |C2=6....HX=X:HY=|
00000e40  59 3a e3 77 61 69 74 3d  31 b8 32 30 30 3a ed 0d  |Y:.wait=1.200:..|
00000e50  06 ea 13 f1 8a 31 33 2c  32 29 3b 22 54 65 65 3f  |.....13,2);"Tee?|
00000e60  20 22 0d 06 f4 1d f5 3a  43 32 3d a4 63 68 3a e6  | ".....:C2=.ch:.|
00000e70  33 2c 43 32 3a e7 43 32  3d 30 20 e6 33 2c 31 0d  |3,C2:.C2=0 .3,1.|
00000e80  06 fe 08 f2 63 75 72 0d  07 08 1d f2 64 69 73 28  |....cur.....dis(|
00000e90  31 36 2c 31 36 29 3a fd  a6 2d 37 34 20 80 20 a4  |16,16):..-74 . .|
00000ea0  63 68 3d 32 0d 07 12 17  54 58 3d 58 3a 54 59 3d  |ch=2....TX=X:TY=|
00000eb0  59 3a f2 63 6c 3a 2a 46  58 31 35 0d 07 1c 0d f2  |Y:.cl:*FX15.....|
00000ec0  63 6c 3a 2a 46 58 31 35  0d 07 26 05 e1 0d 07 30  |cl:*FX15..&....0|
00000ed0  0a dd f2 73 61 76 65 0d  07 3a 25 ff 28 22 53 41  |...save..:%.("SA|
00000ee0  56 45 20 22 2b 68 6f 6c  65 73 24 2b 54 24 2b 22  |VE "+holes$+T$+"|
00000ef0  20 34 36 38 45 20 38 30  30 30 22 29 0d 07 44 10  | 468E 8000")..D.|
00000f00  54 24 3d 73 74 61 74 73  24 2b 54 24 0d 07 4e 0c  |T$=stats$+T$..N.|
00000f10  63 68 3d ae 28 54 24 29  0d 07 58 1d f1 23 63 68  |ch=.(T$)..X..#ch|
00000f20  2c 79 64 2c 70 61 2c 47  52 2c 48 58 2c 48 59 2c  |,yd,pa,GR,HX,HY,|
00000f30  54 58 2c 54 59 0d 07 62  07 d9 23 30 0d 07 6c 05  |TX,TY..b..#0..l.|
00000f40  e1 0d 07 76 0a dd f2 6c  6f 61 64 0d 07 80 20 ff  |...v...load... .|
00000f50  28 22 4c 4f 41 44 20 22  2b 68 6f 6c 65 73 24 2b  |("LOAD "+holes$+|
00000f60  54 24 2b 22 20 34 36 38  45 22 29 0d 07 8a 10 54  |T$+" 468E")....T|
00000f70  24 3d 73 74 61 74 73 24  2b 54 24 0d 07 94 0c 63  |$=stats$+T$....c|
00000f80  68 3d 8e 28 54 24 29 0d  07 9e 1d e8 23 63 68 2c  |h=.(T$).....#ch,|
00000f90  79 64 2c 70 61 2c 47 52  2c 48 58 2c 48 59 2c 54  |yd,pa,GR,HX,HY,T|
00000fa0  58 2c 54 59 0d 07 a8 07  d9 23 30 0d 07 b2 08 f2  |X,TY.....#0.....|
00000fb0  64 65 74 0d 07 bc 05 e1  0d 07 c6 08 dd a4 63 68  |det...........ch|
00000fc0  0d 07 d0 0a 3d b0 58 2c  59 29 0d 07 da 0d dd f2  |....=.X,Y)......|
00000fd0  77 69 70 65 28 63 29 0d  07 e4 29 f1 8a 31 33 2c  |wipe(c)...)..13,|
00000fe0  32 29 3b 22 57 69 70 65  3f 22 3b 8a 31 33 2c 34  |2);"Wipe?";.13,4|
00000ff0  29 3b 22 28 59 2f 4e 29  22 3a 2a 46 58 34 2c 31  |);"(Y/N)":*FX4,1|
00001000  0d 07 ee 14 41 24 3d be  3a 4e 3d a7 22 59 4e 22  |....A$=.:N=."YN"|
00001010  2c 41 24 29 0d 07 f8 0e  e7 4e 3d 30 20 e5 8d 64  |,A$).....N=0 ..d|
00001020  6e 47 0d 08 02 0e e7 4e  3d 32 20 e5 8d 54 56 48  |nG.....N=2 ..TVH|
00001030  0d 08 0c 60 e3 49 3d 30  b8 37 34 88 32 3a f2 62  |...`.I=0.74.2:.b|
00001040  28 63 2c 34 30 2b 49 2a  38 2c 33 36 2b 49 2a 34  |(c,40+I*8,36+I*4|
00001050  2c 31 32 34 30 2d 49 2a  38 2c 37 30 30 2d 49 2a  |,1240-I*8,700-I*|
00001060  34 29 3a 4a 3d 37 35 2d  49 3a f2 62 28 63 2c 34  |4):J=75-I:.b(c,4|
00001070  30 2b 4a 2a 38 2c 33 36  2b 4a 2a 34 2c 31 32 34  |0+J*8,36+J*4,124|
00001080  30 2d 4a 2a 38 2c 37 30  30 2d 4a 2a 34 29 3a ed  |0-J*8,700-J*4):.|
00001090  0d 08 16 0c f2 63 6c 3a  2a 46 58 34 0d 08 20 05  |.....cl:*FX4.. .|
000010a0  e1 0d 08 2a 0b dd f2 65  72 72 6f 72 0d 08 34 10  |...*...error..4.|
000010b0  e7 9f 3d 31 39 30 20 e5  8d 44 7a 48 0d 08 3e 27  |..=190 ..DzH..>'|
000010c0  ff 28 22 53 41 56 45 20  22 2b 68 6f 6c 65 73 24  |.("SAVE "+holes$|
000010d0  2b 22 65 72 72 6f 72 20  34 36 38 45 20 38 30 30  |+"error 468E 800|
000010e0  30 22 29 0d 08 48 30 79  64 3d 36 30 30 3a 70 61  |0")..H0yd=600:pa|
000010f0  3d 35 3a 47 52 3d 30 3a  48 58 3d 39 30 30 3a 48  |=5:GR=0:HX=900:H|
00001100  59 3d 34 30 30 3a 54 58  3d 33 30 30 3a 54 59 3d  |Y=400:TX=300:TY=|
00001110  34 30 30 0d 08 52 18 63  68 3d ae 28 73 74 61 74  |400..R.ch=.(stat|
00001120  73 24 2b 22 65 72 72 6f  72 22 29 0d 08 5c 1d f1  |s$+"error")..\..|
00001130  23 63 68 2c 79 64 2c 70  61 2c 47 52 2c 48 58 2c  |#ch,yd,pa,GR,HX,|
00001140  48 59 2c 54 58 2c 54 59  0d 08 66 07 d9 23 30 0d  |HY,TX,TY..f..#0.|
00001150  08 70 17 ef 32 32 2c 37  3a e7 9f 3c 3e 31 39 30  |.p..22,7:..<>190|
00001160  20 e5 8d 74 44 48 0d 08  7a 19 f1 27 27 22 43 61  | ..tDH..z..''"Ca|
00001170  74 61 6c 6f 67 75 65 20  66 75 6c 6c 22 3a e0 0d  |talogue full":..|
00001180  08 84 1d e7 9f 3d 32 31  34 20 f1 27 27 22 4e 6f  |.....=214 .''"No|
00001190  20 66 69 6c 65 20 3a 20  22 3b 54 24 0d 08 8e 15  | file : ";T$....|
000011a0  e7 9f 3d 31 37 20 f1 27  27 22 45 73 63 61 70 65  |..=17 .''"Escape|
000011b0  22 0d 08 98 22 e7 9f 3d  31 39 35 20 f1 27 27 22  |"..."..=195 .''"|
000011c0  46 69 6c 65 20 22 3b 54  24 3b 22 20 6c 6f 63 6b  |File ";T$;" lock|
000011d0  65 64 22 0d 08 a2 2c f1  27 27 22 43 75 72 72 65  |ed"...,.''"Curre|
000011e0  6e 74 20 73 63 72 65 65  6e 20 61 6e 64 20 68 6f  |nt screen and ho|
000011f0  6c 65 20 69 6e 66 6f 72  6d 61 74 69 6f 6e 22 0d  |le information".|
00001200  08 ac 20 f1 27 22 73 61  76 65 64 20 75 6e 64 65  |.. .'"saved unde|
00001210  72 20 66 69 6c 65 20 27  65 72 72 6f 72 27 22 0d  |r file 'error'".|
00001220  08 b6 22 f1 27 27 27 22  50 72 65 73 73 20 27 43  |..".'''"Press 'C|
00001230  27 20 74 6f 20 63 6f 6e  74 69 6e 75 65 2e 2e 2e  |' to continue...|
00001240  22 0d 08 c0 12 f5 3a 41  24 3d be 3a fd 41 24 3d  |".....:A$=.:.A$=|
00001250  22 43 22 0d 08 ca 05 e1  0d ff                    |"C".......|
0000125a