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