� >!DESIGNER.HOLEDOUT3D
9� PROGRAMMED BY G.J.KEY BETWEEN 16-10-89 AND 20-10-89
� (C) THE FOURTH DIMENSION
(� 
2ș"Hourglass_Smash"
<
�*FX229,1
F
�*FX200,2
PL� OB%(6),OB$(6),TRX%(96),TRY%(96),HX%(30,30),HY%(30,30),CO%(30),PTS%(30)
Z�pointer:�initiate
d
�instruct
n
*FX229
x�ONERROR
��colours(12)
�*SCHOOSE SCREEN
�*CHANNELVOICE 1 BELL
��&ED,0,0
��=0
�	*FX15
��:ȗX%,Y%,T%
��>3000�1,-15,300,1:�=0
��T%��(10)<>�
�*CHANNELVOICE 1 1
��
�Ineditor=�
��getoptions




�*FX229,1

�colours(12)

"Hole%=1:totscore%()=0

,#�T%=1�noofplayers:hsp%(T%)=T%:�

6X%=0

@�

J�X%>718�Hole%=18��:��

Tround%=�

^�initcloud

hli%=�(4)-1

r
�getstart

|
�initwind

��setplayer

��

��whichplayer

��round%��:�board:��

��getplayvals

�
�light

��sine(X%,Y%)

��drawscreen

�	�spot

�%�mx%(g%,Hand%),my%(g%):�BY120,176

�*SGET PLAIN

�*SCHOOSE BALL1

��&ED,xs%,ys%
%�mx%(g%,Hand%),my%(g%):�BY120,176
*SGET BLACK
*SCHOOSE 20
&ba%=sty%=y1%:�8,0
0�ba%�&ED,bag%(Hand%),-754
:�
D/�23,27;m%(1,g%)|:�&ED,mx%(g%,Hand%),my%(g%)
N�getinfo
X
D%=�:B%=�
b
W%=�:K%=�
l�walter
v�flight
��sx%>640�chofsc
��W%�splash:��:���
��putback
���
�� 
�
�
��edit
�exit=�:Ȟ20
�island=412
��Course$="EDITOR"
��flag,mem,len,par,NO%,NT%,ob%,closed:�,PTS%(),HX%(),HY%(),CO%(),TRX%(),TRY%(),OB%(),OB$():DIM OB%(6),OB$(6),TRX%(96),TRY%(96),HX%(20,20),HY%(20,20),CO%(20),PTS%(20),sx%,sy%
�OB%(0)=9:OB$(0)="ROUGH  "
�OB%(1)=7:OB$(1)="FAIRWAY"
OB%(2)=5:OB$(2)="GREEN  "
OB%(3)=2:OB$(3)="BUNKER "
OB%(4)=4:OB$(4)="PATH   "
 OB%(5)=6:OB$(5)="WATER  "
* OB%(6)=&107:OB$(6)="TEE    "
4�
>closed=�
H
�setmainv
R&mappoint%=0:map?(mappoint%+&2F8)=1
\len=500:par=4:�startup
f	�grid
p�
z
�chooseob
��mem<10�7:�0
��exit ��:��:�
�
mem-=2
��butt(0)
��getcent
��req("DRAW OUTLINE")
�9�8:�0,2)"LEFT BUTTON TO FIX THE LOCATION OF A POINT"
�D�"RIGHT BUTTON TO JOIN ENDS TO COMPLETE THE OBJECT AND EXIT":�13
�+sx%=-HY%(NO%,0)*1.5:sy%=-HX%(NO%,0)*1.5
�(�MOVE-HY%(NO%,0)*1.5,-HX%(NO%,0)*1.5
��
�D�134:�12:�28,0,31,79,0:�62,1);~mem;"  ":�13:�139:�28,1,30,78,25
��mou
	�3,13
�sx%,sy%,X%,Y%
	Ȗ:Ȗ
$�sx%,sy%,X%,Y%
.
�Y%>-368�
8
�K%=4�
B
� mem>=4�
L�0,OB%(ob%)
VPTS%(NO%)+=1
`$�-HY%(NO%,0)*1.5,-HX%(NO%,0)*1.5
j�sx%,sy%
t
�85,X%,Y%
~sx%=X%:sy%=Y%
�	�grid
�2�MOVE-HY%(NO%,0)*1.5,-HX%(NO%,0)*1.5:MOVEX%,Y%
�HX%(NO%,PTS%(NO%))=-Y%/1.5
�HY%(NO%,PTS%(NO%))=-X%/1.5
�-�58,1);"OBJECT HAS ";PTS%(NO%);" POINTS"
�
mem-=4
��butt(0)
��
��
��
�closed=K%=1
��PTS%(NO%)=20closed=�
�closed

�PTS%(NO%)>1�
'�85,-HY%(NO%,1)*1.5,-HX%(NO%,1)*1.5

NO%+=1
(�
2mem=mem+2+4*(PTS%(NO%)+1)
<�7
F�
P�redisplay
Z�0
d�
n
x��setmainv
��colours(12):ȗ�
�"�COLOUR3,208,160,144:REM FLESH
�!�COLOUR3,32,144,208:REM WATER
�
��0,80,80,80
��mesbox(0,256,1279,768)
��mesbox(0,0,1279,256)
� �24,16;272;1263;1007;:�134:�
��28,1,30,78,25:�139:�
��
�
�
��startup
�holep=1:�readhole2
�

��inputlength
"
�*FX229,1
,�
6�
@l�8:�0,2)"ACCEPTABLE RANGE IS BETWEEN 50 AND 504 YARDS"'"YOU CAN NO LONGER ABORT THE 'NEW' OPTION"�7:�13
J0�0,0)"PLEASE ENTER HOLE LENGTH {YARDS} "len
T�len>49�len<505
^�getpar
h�PROCwrimap(len)
rmem=&2E6
|HX%(0,0)=0
�HY%(0,0)=len �2
�HX%(0,1)=160
�HY%(0,1)=len+40
�HX%(0,2)=-160
�HY%(0,2)=len+40
�HX%(0,3)=-180
�HY%(0,3)=-180
�HX%(0,4)=180
�HY%(0,4)=-180
�CO%(0)=9
�
PTS%(0)=4
�mem=mem-5*4-2
���startup2
�26,24,12;268;1267;1011;:�
ȑisland+len,640
��134:�12:�2,1);len;" YARDS : PAR ";par;" : HOLE No. ";map?(mappoint%+&2F8);" : T X ";:P%=mappoint%+&2E8:�;�map2 �21;" : T Y ";�map2 �21;" : Memory &";~mem
&�28,1,30,78,25:�139:�
0�9
:�-HY%(0,0)*1.5,HX%(0,0)*1.5
D�T%=1�4
N�-HY%(0,0)*1.5,HX%(0,0)*1.5
X$�85,-HY%(0,T%)*1.5,HX%(0,T%)*1.5
b�
l"�85,-HY%(0,1)*1.5,HX%(0,1)*1.5
v*FX229,0
��
�
���getpar
��npar,A%
�
*FX229
��:��:�TVH
�ș6,229,0,255 � ,A%
�	*FX15
��:�
�c�8:�0,2)"THE CURRENT PAR IS ";par;"."'"THE ACCEPTABLE RANGE IS 2 TO 5":�A%=0�"ESCAPE TO ABORT"
�+�13:�0,0)"WHAT IS THE HOLE PAR ? "npar
��npar<2�npar>5 �7
��npar>1�npar<6
par=npar
 P%=mappoint%+&2E8:�wrimap(0)

�*FX229,1
 �
*
4
��getcent
>"�8:�req("POSITION CENTRE"):�13
HPTS%(NO%)=0
R�
\�mou
f
�Y%>-368�
p�K%�
zclosed=�
�HX%(NO%,0)=-Y%/1.5
�HY%(NO%,0)=-X%/1.5
��
��
�
�closed=�
�
mem-=4
��butt(0)
��
�
�
��grid
��0,0
�
�X%,Y%
�X%=-1500
	)�23,6,&55,&55,&55,&55,&55,&55,&55,&55
	�
	�X%*1.5,-384:�29,X%*1.5,640
	$
X%+=50
	.�X%>600
	8)�23,6,&11,&11,&11,&11,&11,&11,&11,&11
	B�Y%=-200�200�50
	L!�-1000,Y%*1.5:�29,1000,Y%*1.5
	V�
	`!�0,-384,0,640:�-1500,0,1000,0
	j�5:ȏ0,0,25*1.5
	t
�CO%(NO%)
	~�
	�
	���shsc(T%,C%)
	��C%�128+8:�11:� �128+11:�8
	�	ȎT%�
	��1:�30,2) "DELETE OBJECT"
	��2:�30,3)"ALTER OBJECT"
	��3:�47,2)"SAVE COURSE"
	��4:�64,2)"LOAD COURSE"
	��5:�47,3)"READ HOLE"
	��6:�64,3)"WRITE HOLE"
	��7:�47,4)"ISLAND"
	��8:�64,4)"'NEW' HOLE"
�9:�47,5)"INSERT TREES"�30

�10:�64,5)"VIEW HOLE"�30
�11:�30,4)"ALTER PAR"
�12:�30,5)"ALTER No."�30
(�13:�9,5)"EXIT EDITOR"�30
2�
<�128+11:�13
F�
P
Z��chooseob
d
dob%=�
n�
x
�showcols
�)�15:�2,2)"HOLED OUT COURSE DESIGNER"
��6,3)"EDITING "Course$
�
��T%=1�13:�shsc(T%,�):�
�	ob%=�
�odob%=1
�obob%=0
��
�	*FX15
�ȗX%,Y%,K%
��Y%+640>193�Y%+640<224�
�dob%=(X%-48+island+len)�176
��island<0�dob%>0dob%=�
��green �dob%=2dob%=�
�tee �dob%=6dob%=�
%�(X%-48+island+len)�176>112dob%=�
�dob%<>� �sc2(�,dob%)
"(�dob%<>odob%�sc2(�,odob%):odob%=dob%
,�K%�dob%<>� �
6ob%=dob%
@�showchosen:�OB%(ob%):�7
J�12
T�
^�
h �dob%<>�:�sc2(�,dob%):dob%=�
r�
|
�ob%=�
�bX%=(X%-160+island+len)
�
bob%=�
�A�Y%<-574�Y%>-606�bX%>610�bX%<800:bob%=9:�K%�inserttrees:��:�0
�@�Y%>-577�Y%<-544�bX%>610�bX%<704:bob%=7:�K%�drawisland:��:�0
��island<0��T\L
�H�Y%>-577�Y%<-544�bX%>334�bX%<480:bob%=11:�K%�getpar:�redisplay:��:�0
�K�Y%>-606�Y%<-574�bX%>334�bX%<480:bob%=12:�K%�getholeno:�redisplay:��:�0
�B�Y%>-513�Y%<-481�bX%>334�bX%<541�NO%>1:bob%=1:�K%�delete:��:�0
�A�Y%>-545�Y%<-512�bX%>334�bX%<526�NO%>1:bob%=2:�K%�alter:��:�0
�@�Y%>-513�Y%<-481�bX%>610�bX%<782:bob%=3:�K%�savecourse:��:�0
�A�Y%>-513�Y%<-481�bX%>880�bX%<1056:bob%=4:�K%�loadcourse:��:�0
�>�Y%>-545�Y%<-512�bX%>610�bX%<752:bob%=5:�K%�readhole:��:�0
�@�Y%>-545�Y%<-512�bX%>880�bX%<1040:bob%=6:�K%�writehole:��:�0
��Y%<-574�Y%>-606�bX%>888�bX%<1024:bob%=10:�K%Ineditor=�:�drawmap(0):Ineditor=�:�4:�setmainv:�startup2:�redisplay:�"FX229,1":��:�0
�X�IFY%<-574ANDY%>-606ANDbX%>610ANDbX%<800:bob%=9:IFK%PROCinserttrees:UNTILTRUE:UNTIL0
�<�Y%<-574�Y%>-606�bX%>2�bX%<172:bob%=13:�K%exit=�:��:��:�
@�Y%>-577�Y%<-544�bX%>610�bX%<704:bob%=7:�K%�drawisland:��:�0
<�Y%>-577�Y%<-544�bX%>880�bX%<1040:bob%=8:�K%�newit:��:�0
&�bob%<>obob%�shsc(obob%,�):obob%=0
&!�bob%�shsc(bob%,�):obob%=bob%
0�
:&�PRINTTAB(0,4)Y%,X%-48+island+len;
D�ob%<>�
NCO%(NO%)=OB%(ob%)
X�ob%=6�drawtee:�0
b�ob%=2�drawgreen:�0
l��
v�
�
���sc2(C%,dob%)
�
�dob%=� �
�(�C%=0�((dob%=2�green)�(dob%=6�tee))�
�/�C% �128+11:�OB%(dob%) � �128+OB%(dob%):�11
��dob%*11+2,0)OB$(dob%);
��128+11:�13
��
�
���drawisland
�island=island �-348
��redisplay
��



��newit

�A$

 
*FX229

*�:��:�tXM

4�

>&�"NEW ---- ARE YOU SURE [Y/N] ?"�7

Hj�8:�'"'NEW' WILL PRODUCE A BLANK HOLE TEMPLATE DESTROYING THE CURRENT HOLE DATA"'"ESCAPE TO ABORT":�13

R	*FX15

\S�:A$=�(0):�A$<>"":� BUG IN BASIC PREVENTS USE OF GET WITH A LOCAL ERROR HANDLER

f�A$<>"Y"�A$<>"y"�

ptee=�:green=�

z�inputlength

�NO%=1:NT%=�

�	�grid

�
�*FX229,1

��

�

���writehole

��gp%,tp%

��

�%�"WRITING HOLE ";mappoint%�&300+1

��"ARE YOU SURE [Y/N] ?"�7

�>�8:�'"IT IS NECCESSARY TO WRITE THE HOLE DATA INTO MEMORY"

�E�"BEFORE IT CAN BE SAVED TO DISC OR BEFORE USING 'VIEW HOLE'":�13

�	*FX15

*FX229
�:��:�tLO
�
$A$=�(0)
.�A$<>""
8�A$<>"Y"�A$<>"y"�tLO
BP%=0
L\�verify:�P%>&2E8 �7:�"ERROR MEMORY ABOUT TO BE OVERWRITTEN!!"'"PRESS SPACE":���=32:�tLO
Vgp%=0:tp%=0
`�T%=1�NO%-1
j�CO%(T%)=&107 tp%=�
t�CO%(T%)=5 gp%=T%
~�
�p�gp%=� �:�8:�0,1)"THERE IS NO GREEN THEREFORE I CAN'T WRITE THIS HOLE!"'"PLEASE PRESS SPACE"�7:���-99:�tLO
�n�tp%=� �:�8:�0,1)"THERE IS NO TEE THEREFORE I CAN'T WRITE THIS HOLE!"'"PLEASE PRESS SPACE"�7:���-99:�tLO
�� gp%<>NO%-1�
�X%=gp%:�delete2
��drawgreen2
��
�3P%=mappoint%+&2E8:�wrimap(teeY%):�wrimap(teeX%)
�P%=mappoint%
�TA%=�("&"+�(�distance(teeX%,teeY%))):map?(P%+&2FA)=A%:map?(mappoint%+&2FB)=A%�256
�map?(P%+&2F9)=par
�&map?(P%+&2F8)=holep �19-(holep>18)
��wrimap1(NT%+1)

�T%=0�NT%

�wrimap(TRX%(T%))
�wrimap(TRY%(T%))
�
(�wrimap1(NO%)
2�T%=0�NO%-1
<C%=CO%(T%):�C%=2C%=1
F�wrimap1(C%)
P�wrimap1(PTS%(T%))
Z�I%=0�PTS%(T%)
d�wrimap(HX%(T%,I%))
n�wrimap(HY%(T%,I%))
x�
��
�
�*FX229,1
��
�
���verify
�	P%+=1
�
�T%=0�NT%
�	P%+=2
�	P%+=2
��
�	P%+=1
��T%=0�NO%-1
�	P%+=2
�I%=0�PTS%(T%)
	P%+=2
	P%+=2
"�
,�
6�
@
J��wrimap1(A%)
Tmap?P%=A%:P%+=1
^�
h
r��wrimap(A%)
|A%=A%*21
�map?P%=A%:P%+=1
�map?P%=A%>>8:P%+=1
��
�
���getholeno
��n%
�
*FX229
��:�� �TfQ
��
��
��8:�0,2)"CURRENT HOLE No. IS ";holep'"CHANGING THE HOLE No. IS A WAY OF COPYING ONE HOLE TO ANOTHER"'"ESCAPE TO ABORT":�13
�	*FX15
�3�0,0)"WHAT IS THE NEW HOLE No. {1 TO 18} ? "n%
�n%>0�n%<19
holep=n%
mappoint%=(holep-1)*&300
&
�*FX229,1
0�
:
D��readhole
N
*FX229
X�:�� �d|R
bgreen=�:tee=�
l�
v�
�	*FX15
���8:�0,2)"THE EXISTING HOLE DATA WILL BE LOST IF IT HAS NOT BEEN WRITTEN INTO"'"MEMORY BY FIRST SELECTING THE 'WRITE HOLE' OPTION!"
��"ESCAPE TO ABORT":�13
�:�0,0)"WHICH HOLE DO YOU WISH TO EDIT {1 TO 18} "holep
��holep>0�holep<19
���readhole2
�P%=(holep-1)*&300
�&len=(�(�~((map!(P%+&2FA))�&FFFF)))
�par=map?(P%+&2F9)
�mappoint%=P%
�5P%=mappoint%+&2E8:teeY%=�map2 �21:teeX%=�map2 �21
�=稤distance(teeX%,teeY%)<>len len=��distance(teeX%,teeY%)
�P%=mappoint%
mem=&2E8
tee=�:green=�
NT%=�map1-1
 
�T%=0�NT%
*TRX%(T%)=�map2 �21
4TRY%(T%)=�map2 �21
>
mem-=4
H�
R
\NO%=�map1:mem-=1
f�T%=0�NO%-1
pCO%(T%)=�map1:mem-=1
z�CO%(T%)=5green=�
��CO%(T%)=1CO%(T%)=2
�
�PTS%(T%)=�map1:mem-=1
��I%=0�PTS%(T%)
�HX%(T%,I%)=�map2 �21
�HY%(T%,I%)=�map2 �21
�
mem-=4
��
�C� CO%(T%)=7�PTS%(T%)=3��(HY%(T%,1)-teeX%)<45 tee=�:CO%(T%)=&107
��
�
�startup2
��redisplay
�
�*FX229,1
�

��loadcourse
$�colours(9):�screenbox
.ȗ�530,512:ȗ�
8Ineditor=�
B�getcourse("EDIT")
LIneditor=�
V�colours(12)
`
�setmainv
j&mappoint%=0:map?(mappoint%+&2F8)=1
tlen=500:par=4:�startup
~�grid:�:tee=TRUE
�ȗ�
��
�
���savecourse
��Pointer,R0
�� Pointer 28
�($Pointer="<Obey$Dir>.MODULES.SHOOSH"
�
*FX229
��
�u���<>17:�redisplay:�26:�meswind2("   "+�$+"   ","PLEASE","PRESS SPACE",1,3):���-99:��24,16;272;1263;1007;:�TXU
��
�ș"OS_File",5,Pointer � R0
�R0<>0 �

e�meswind2("I CAN'T SAVE TO THE DESIGNER DISC","PLEASE INSERT ANOTHER DISC","AND PRESS SPACE",1,3)

���-99
�
(	�R0=0
2g��:�redisplay:�meswind2("    "+�$+"    ","PLEASE","PRESS SPACE",2,3):���=32:�redisplay:�=17:�TXU
<
*MOUNT
Fȑ0,128
P�
ZB�centbox(�,�13," ")+"CURRENT DISC CATALOGUE"+�13," "),8,20):�8
d�24,16;272;1263;1007;
n�GCOL128+11:CLG:GCOL128+6
x�28,17,21,62,3,4
�file$=""
��:�14:*.
�
�15:*FX15
�"�'"PLEASE ENTER COURSE NAME.";
�+ș"OS_ReadLine",Pointer,10,32,126 � ,R0
��R0=0 �0
�Pointer?(R0+1)=13
�file$=$Pointer
��T%=1�R0
�&�file$,T%,1)=" " �file$,T%,1)="_"
��
�
�file$>""
��T%=1��file$
)�("SAVE $."+file$+" "+�~map+" +3600")
 �("SETTYPE $."+file$+" C1F")

�*FX229,1
"�redisplay
,�
6
@��inserttrees
J
�*FX229,1
T�flag,C%
^�:�butt(0)
h!�"INSERT OR DELETE TREES"':�8
r�"LEFT BUTTON TO INSERT"
|�"MIDDLE BUTTON TO DELETE"
��"RIGHT BUTTON TO EXIT"
�*�"MAXIMUM OF 96 TREES PER HOLE"�30:�13
��
�ȗX%,Y%,K%
�
X%=X%�6*6
�
Y%=Y%�6*6
�C%=�X%,Y%)
�#�40,1);NT%+1;" TREES INSERTED"
�#�40,2)"&";~mem;" BYTES LEFT  "
�)�distance(-X%/1.5,-Y%/1.5)<40�K%=4�0
��(C%=6�C%=0)�K%=4�0
�
�K%=4�
��NT%<95�
�mem>4�

NT%+=1
�14
&ȏȐX%,Y%,8
0'TRX%(NT%)=-Y%/1.5:TRY%(NT%)=-X%/1.5
:
mem-=4
D�butt(0)
N��7
X�
b�
l�
v
�K%=2�
��NT%>� �
�
flag=�
�
�T%=0�NT%
�C�(-TRY%(T%)*1.5-X%)<12��(-TRX%(T%)*1.5-Y%)<12flag=T%+1:T%=1000
��
��flag �
��flag<>NT%+1�
��T%=flag-1 �NT%-1
�+TRX%(T%)=TRX%(T%+1):TRY%(T%)=TRY%(T%+1)
��
��
�
NT%-=1
�
mem+=4
�redisplay
�butt(0)
�
 ��7
*�
4�
>	�K%=1
H�butt(0)
R*FX229,0
\�
f
p
��drawtee
z
�tee �7:�
�9�mem<18�"NOT ENOUGH MEMORY!! PRESS SPACE:"�7:���=32:�
��butt(0)
�6�8:�1,2)"POSITION TEE THEN ANY BUTON TO EXIT":�11
�	tee=�
��x%,y%,a%,b,c,d%,e%
�a%=180:y%=0:x%=-len*1.5
�ȗ�x%,y%
��
�ȗX%,Y%,K%
��Y%>y%�a%>160a%-=1
��Y%<y%�a%<200 a%+=1
�x%=(��a%*len)*1.5
�y%=(��a%*len)*1.5
ȗ�x%,y%
�K%
X%=-x%/1.5:Y%=-y%/1.5
$HX%(NO%,0)=Y%:HY%(NO%,0)=X%
.-P%=mappoint%+&2E8:�wrimap(Y%):�wrimap(X%)
8len=��distance(X%,Y%)
Bb=��a%:c=��a%
L6HX%(NO%,0)=b*-10+-c*20+Y%:HY%(NO%,0)=c*-10+b*20+X%
V4HX%(NO%,1)=b*10+-c*20+Y%:HY%(NO%,1)=c*10+b*20+X%
`6HX%(NO%,2)=b*10+-c*-20+Y%:HY%(NO%,2)=c*10+b*-20+X%
j8HX%(NO%,3)=b*-10+-c*-20+Y%:HY%(NO%,3)=c*-10+b*-20+X%
tteeX%=X%:teeY%=Y%
~mem-=18
�PTS%(NO%)=3
�
NO%+=1
��redisplay
��
�
���alter
�*�x%,y%,x1%,y1%,x2%,y2%,x3%,y3%,flag,C%
�
*FX229
�"�:�� �redisplay:�"FX229,1":�
��:�8:�0,2)"THE OVERALL SHAPE AND POSITION OF AN OBJECT CAN BE ADJUSTED"'"BUT NOT THE NUMBER OF EDGE POINTS."'"ESCAPE TO ABORT":�13
��
��findone:�redisplay
B�0,0)"SELECT AND MOVE POINTS TO THEIR REQUIRED POSITIONS    "

=� 8:�0,4)"RIGHT BUTTON TO EXIT"'"ESCAPE TO ABORT"�30:�13
�CO%(X%)=5�7:�0
��
(�outline
2�butt(0)
<�
F�
Pȗx%,y%,K%
Z
flag=�
d�K%�
n�T%=0�PTS%(X%)
xB�(-HY%(X%,T%)*1.5-x%)<12��(-HX%(X%,T%)*1.5-y%)<12flag=�:x%=T%
��
��
�&�K%=1��:��:�redisplay:�"FX229,1":�
�	�flag
�"x1%=-HY%(X%,x%�PTS%(X%)+1)*1.5
�"y1%=-HX%(X%,x%�PTS%(X%)+1)*1.5
�T%=x%-1:�T%<1T%=PTS%(X%)
�x2%=-HY%(X%,T%)*1.5
�y2%=-HX%(X%,T%)*1.5
�x3%=-HY%(X%,x%)*1.5
�y3%=-HX%(X%,x%)*1.5
��3,8
��x%<>0�
�
	Ȗ:Ȗ
�x1%,y1%,x3%,y3%
"�x3%,y3%,x2%,y2%
,ȏx3%,y3%,8
6�
@ȗx3%,y3%,K%
Jx3%=x3%�6*6
Ty3%=y3%�6*6
^1�58,0)"Y ";-�(x3%/1.5),"X ";�(y3%/1.5);"   "
h*FX112,2
rC%=�x3%,y3%)
|*FX112,1
�&�IFC%<>7ANDBEAT=0:SOUND1,-15,120,4
�D�K%=0��((C%=7�island>0)�(island<0�x3%>600�x3%<900��y3%<220))K%=4
�=�K%=0�(C%=7�island>0)�(island<0�x3%>600�x3%<900��y3%<220)
��x1%,y1%,x3%,y3%
��x3%,y3%,x2%,y2%
�ȏx3%,y3%,8
�	�K%=0
��
��
�	Ȗ:Ȗ
�ȏx3%,y3%,8
��
�ȗx3%,y3%,K%
x3%=x3%�6*6
y3%=y3%�6*6
1�58,0)"Y ";-�(x3%/1.5),"X ";�(y3%/1.5);"   "
&*FX112,2
0C%=�x3%,y3%)
:*FX112,1
D&�IFC%<>7ANDBEAT=0:SOUND1,-15,120,4
ND�K%=0��((C%=7�island>0)�(island<0�x3%>600�x3%<900��y3%<220))K%=4
X=�K%=0�(C%=7�island>0)�(island<0�x3%>600�x3%<900��y3%<220)
bȏx3%,y3%,8
l	�K%=0
v�
��58,0)"                 "
�HY%(X%,x%)=-x3%/1.5
�HX%(X%,x%)=-y3%/1.5
��redisplay
��outline
��0
��
�
�
��outline
��0,8
�"�-HY%(X%,1)*1.5,-HX%(X%,1)*1.5
��I%=1�PTS%(X%)
$�-HY%(X%,I%)*1.5,-HX%(X%,I%)*1.5
�
"�-HY%(X%,1)*1.5,-HX%(X%,1)*1.5
 �I%=1�PTS%(X%)
*'ȏ-HY%(X%,I%)*1.5,-HX%(X%,I%)*1.5,8
4�
>%ȏ-HY%(X%,0)*1.5,-HX%(X%,0)*1.5,8
H�
R
\��delete
f�
p
*FX229
z��8:�0,2)"CLICKING ON ONE OF THE RED OBJECT CENTRES WILL RESULT IN THAT OBJECTS"'"DELETION.  PLEASE TAKE CARE!"'"ESCAPE TO ABORT":�13
��:�� �redisplay:�Tn]
��findone
�
��delete2
��CO%(X%)=5green=�
��CO%(X%)=&107 tee=�
�mem=mem+6+PTS%(X%)*4
��X%<>NO%-1�
��T%=X%+1�NO%
��I%=0�PTS%(T%)
�HX%(T%-1,I%)=HX%(T%,I%)
�HY%(T%-1,I%)=HY%(T%,I%)
��
�CO%(T%-1)=CO%(T%)
PTS%(T%-1)=PTS%(T%):�
�

NO%-=1
$�redisplay
.
�*FX229,1
8�
B
L
��findone
V�:�� �
`G�0,0)"THERE ARE ";NO%-1;" OBJECTS DEFINED.  SELECT A CENTRE POINT"
j�8
t�T%=1�NO%-1
~%ȏ-HY%(T%,0)*1.5,-HX%(T%,0)*1.5,8
��
��
�ȗX%,Y%,K%
�
flag=�
��K%�
��T%=1�NO%-1
�M�(�(-HY%(T%,0)*1.5-X%))<12�(�(-HX%(T%,0)*1.5-Y%))<12flag=�:X%=T%:T%=NO%-1
��
��
�	�flag
��
�
��redisplay

�26:*FX112,2
�:�7
ȑisland+len,640
( �-HY%(0,0)*1.5,-HX%(0,0)*1.5
2�I%=1�PTS%(0)
< �-HY%(0,0)*1.5,-HX%(0,0)*1.5
F%�85,-HY%(0,I%)*1.5,-HX%(0,I%)*1.5
P�
Z#�85,-HY%(0,1)*1.5,-HX%(0,1)*1.5
d*FX112,1
n!�26,24,12;268;1267;1011;4:�:�
xȑisland+len,640
���redisplay2
���134:�12:�2,1);len;" YARDS : PAR ";par;" : HOLE No. ";map?(mappoint%+&2F8);" : T X ";:P%=mappoint%+&2E8:�;�map2 �21;" : T Y ";�map2 �21;" : Memory &";~mem
��28,1,30,78,25:�139:�:CLS
��NO%>0�
��T%=0�NO%-1
��CO%(T%)
�"�-HY%(T%,0)*1.5,-HX%(T%,0)*1.5
��I%=1�PTS%(T%)
�"�-HY%(T%,0)*1.5,-HX%(T%,0)*1.5
�'�85,-HY%(T%,I%)*1.5,-HX%(T%,I%)*1.5
��
�%�85,-HY%(T%,1)*1.5,-HX%(T%,1)*1.5
�@�CO%(T%)=&107 �CO%(T%)=5 �12:Ȓ-HY%(T%,0)*1.5,-HX%(T%,0)*1.5
�
�
�NT%>� �
"�14
,
�T%=0�NT%
6%ȏȐ-TRY%(T%)*1.5,-TRX%(T%)*1.5,8
@�
J�
T	�grid
^�
h
r��drawgreen
|�green �7:�
�9�mem<54�"NOT ENOUGH MEMORY!! PRESS SPACE:"�7:���=32:�
���drawgreen2
�green=�
�
mem-=2
�HX%(NO%,0)=0
�HY%(NO%,0)=0
�
mem-=4
�CO%(NO%)=5
�PTS%(NO%)=0
��0,0
��T%=0�330�30
�PTS%(NO%)+=1
�
mem-=4
 �0,0
 HX%(NO%,PTS%(NO%))=��T%*25
 HY%(NO%,PTS%(NO%))=��T%*25
 &7�85,-HY%(NO%,PTS%(NO%))*1.5,-HX%(NO%,PTS%(NO%))*1.5
 0�
 :'�85,-HY%(NO%,1)*1.5,-HX%(NO%,1)*1.5
 D
NO%+=1
 N�redisplay
 X�
 b
 l	��mou
 v�C%
 ��
 �ȗX%,Y%,K%
 �
X%=X%�6*6
 �
Y%=Y%�6*6
 ��ob%>2�ob%<6�
 ��(X%/1.5)<-(len-(�(Y%�6)))�
 �X%=-(len-(�(Y%�6)))*1.5
 �
X%=X%�6*6
 �ȗ�X%,Y%
 ��
 ��
 �/�58,0)"Y ";-�(X%/1.5),"X ";�(Y%/1.5);"   "
 ��58,2);~mem;" BYTES LEFT"
! �58,3);NO%;" OBJECTS DRAWN"
!*FX112,2
!C%=�X%,Y%)
! *FX112,1
!*�C%<>7�K%�Ə=0:�1,-15,120,4
!4;�(C%=7�island>0)�(ob%=0�island<0�X%>600�X%<900��Y%<220)
!>�
!H
!R
��req(A$)
!\�28,1,30,20,30:�
!f�8:�A$;
!p�28,1,30,78,25,7
!z�
!�
!���showcols
!��
!��T%=0�6
!��OB%(T%):�T%*11+2)OB$(T%);
!��
!��
!���showchosen
!��:�OB%(ob%)
!��0,0)"DRAWING "OB$(ob%)
!��
!�
!���instruct
"�colours(9):�screenbox
"C�quest("DO YOU REQUIRE INSTRUCTIONS?","YES","NO",0):�butt(0):�
"'�colours(12):�mesbox(0,0,1279,1023)
"$�12:ȓ998,640,160,256
".*�1058,896,1066,940:�1090,940:�1098,896
"8�139:�1:Ȑ1078,900
"B�1,240,240,192
"L�2,240,208,208
"V�3,240,240,224
"`�1:ȓȐ1000,644,156,248
"j�3:ȓȐ1000,644,156,124
"t�T%=0�2
"~�12:ȓ1012+T%*50,800,32,64
"��2:ȓȐ1014+T%*50,804,28,56
"�!�12:�1020+T%*50,850:�5:�;T%+1
"�
�:�4:�
"��139:�12
"��28,2,30,78,3
"���0,0)"Game control in the Archimedes version of ";:�9:�"HOLED OUT";:�12:�" is via"'"the MOUSE, the keys are numbered as indicated on the right."
"�T�'"The differences to the instructions as shown in the manual"'"are as follows:"
"�B�'"STROKEPLAY/"�16)"There can be up to 6 players in any round"
"؈�'"GAME CONTROLS/"''"1. SELECT CLUB. Use the MOUSE to indicate the club required then"�16)"press any button to go to the next stage"
"�G�'"2. DIRECTION.   Position the cursor with the MOUSE then either."
"�.�(16)"Press [2] to go to the next stage."
"�3�(16)"Press [1] or [3] to select another club"
#Q�'"3. POWER."�16)"As soon as the direction has been selected by pressing [2]"
#
0�16)"the bar indicator will start to move."
#/�16)"Pressing [2] will give a Normal shot"
#/�16)"Pressing [1] will give a Hooked shot"
#(/�16)"Pressing [3] will give a Sliced shot"
#2O�'"To read courses from alternate discs simply insert the disc when in the"
#<'�"COURSES window and press ESCAPE."
#F(�'�22)"PRESS ANY BUTTON TO CONTINUE"
#P�butt(0)
#Z!�:ȗX%,Y%,K%:�K%:�1,-10,200,1
#d�butt(0)
#n�28,2,30,78,1
#x	�:�14
#�
#�"�'"Operation of the EDITOR :-"
#��12
#�P�'"The main EDITOR panel consists of a plan of the hole being edited and an"
#�>�"Options window.  The options are split into two groups."
#�Q�'"The first contains 7 different coloured drawing options which are used to"
#�H�"draw the various objects on the hole {Green, Fairway, Water ect}."
#�L�'"The second group are all coloured red and control the EDITOR actions"
#�R�"{Load and Save files, Object deletion ect} all these actions have their own"
#�R�"Help text.  The best way to discover their operation is to try them out for"
#��"yourself."
#�O�'"All course files are saved in the $ directory on drive :0 and it is not"
#�R�"possible to save files to the EDITOR disc.  There are no special actions to"
$Q�"read or write to another disc simply insert the disc before selecting Load"
$�"or Save."
$R�'"Before you can 'SAVE' a hole as part of a course or 'VIEW' a hole you must"
$"H�"use the 'WRITE HOLE' option to store the data into course memory."
$,P�'"When SAVING a course to disc you can use spaces in the file name so that"
$6��"names such as 'PINE ISLES' are quite acceptable,  The spaces will be replacedby underline characters when the file is saved and restored on loading."
$@)�''�22)"PRESS ANY BUTTON TO CONTINUE"
$J�butt(0)
$T!�:ȗX%,Y%,K%:�K%:�1,-10,200,1
$^�butt(0):�
$h!�"Operation of the EDITOR :-"
$rR�'"It is possible to draw one object over the top of another, so some thought"
$|P�"will be required when constructing a hole if the final result is to be as"
$�P�"you visualise it.  Placing areas of water or bunkers underneath the green"
$�A�"can have unpredictable results so try to avoid doing this."
$�R�'"If you select the 'ISLAND' option it will toggle the hole plan to the left"
$�P�"of the screen.  In this mode you will only be able to draw an island with"
$�Q�"colour 'ROUGH' and position trees on the island.  Select 'ISLAND' again to"
$�)�"return to the normal editing mode."
$�M�'"The hole plan is divided into 50 yard squares these should be used in"
$�Q�"conjunction with the club distances on your quick reference card to ensure"
$�J�"that you don't draw an object that is too big to hit the ball over."
$�K�'"At the top of the Hole Plan, the Hole length, Par, Tee X and Tee Y "
$�J�"coordinates and amount of Hole memory remaining are displayed.  The"
$�K�"X and Y coordinates are reversed from the normal convention, X being"
$�C�"vertical and Y horizontal, Zero being centred upon the hole."
%M�"If you can't draw an object check that there is enough memory left for"
%�"the operation."
%T�'"Finally you don't have to design all 18 holes before saving a course to disc"
%&P�"so as soon as you have created a hole you can save the course, leave the "
%0H�"editor with the 'EXIT EDITOR' option and test play you own holes!"
%:)�''�22)"PRESS ANY BUTTON TO CONTINUE"
%D�butt(0)
%N!�:ȗX%,Y%,K%:�K%:�1,-10,200,1
%X�butt(0)
%b�
%l� 
%v��chofsc
%�*FX112,3
%��
%�=�x1%=� ȑ1280,768+O%-6166*green%:�ȑ0,768+O%-6166*green%
%�P%=rough
%��map1:�drawit
%��map1:�drawit
%�P%=water:�6:�drawit
%�G%=�xs%,ys%)
%��G%=6�G%=11W%=�
%�*FX112,1
%��
%�� 
%�
��preview
&�
&�colours(9):�screenbox:ȗ�
&lhol%=�choseahole
& �lhol%�drawmap(lhol%)
&*�lhol%=�
&4�
&>� 
&H��drawmap(holeno%)
&R�Ineditor ��*FX229,1
&\�initcloud
&fli%=2:�initwind
&p(�r%,l%,OL%,A%,AA%,T%,I%,SP%,X%,Y%,A$
&zX%=640:Y%=512
&��
&�P%=mappoint%+holeno%:SP%=P%
&�&OL%=(�(�~((map!(P%+&2FA))�&FFFF)))
&�
AA%=�map1
&�
�A%=1�AA%
&�l%=�map2/10.5
&�r%=�map2/10.5
&�x%(A%)=r%:y%(A%)=l%
&��
&�I%=�map1-1
&�"T%=�map1:T%=�map1:P%=P%+T%*4+4
&�l%=0:r%=0:t%=0:b%=0
&� �colours(12):�screenbox:�137
'&�mesbox(532-OL%,294,OL%*2+212,692)
')�26,24,548-OL%;310;548+OL%+180;970;:�
'ȑ592+OL%,640
'$�T%=1�I%:�map1
'.
np%=�map1
'8%�map2(CX%,CY%,4):�map2(SX%,SY%,4)
'B,�I%=1�np%-1:�map2(XI%,YI%,85):�CX%,CY%:�
'L�85,SX%,SY%
'V	�:�14
'`8�T%=1�AA%:�-x%(T%),-y%(T%))<>6ȏȐ-x%(T%),-y%(T%),8
'j�:�0:Ȓ0,0
't�26
'~V�smallmes(144,166,12,"POSITION POINTER ON VIEWPOINT THEN PRESS THE MIDDLE BUTTON")
'�.�Ineditor A$="EDITOR":�:A$="HOLE SELECTOR"
'�*A$="RIGHT BUTTON TO RETURN TO THE "+A$
'�!�smallmes(608-�A$*8,66,12,A$)
'�ȗ�:ȗ�X%,Y%
'��
'�!ȗȓ548-OL%,310,OL%*2+180,660
'�ȗX%,Y%,T%
'�'�X%<688�r%=(688-X%)�8�r%=(X%-688)�8
'�)ȗȓ548-OL%,310+r%,OL%*2+180,660-r%*2
'�y%=((592+OL%)-X%)�2
'�x%=(640-Y%)�2
'�
(E�T%=4P%=SP%+&2E8:X%=�map2:Y%=�map2:�displayview2(X%,Y%,SP%):��:��
(
&�T%=2�displayview(X%,Y%,SP%):��:��
(
�T%:��
(�
((� 
(2��displayview(X%,Y%,SP%)
(<YY%=(((592+OL%)-X%)�2)*21
(FX%=((640-Y%)�2)*21
(Pȗ�
(Z�A$,mappoint%:mappoint%=SP%
(d��displayview2(X%,YY%,SP%)
(n�X%<42��YY%<42X%=42:YY%=42
(x7OL%=(�distance(X%,YY%)):green%=(OL%<525):OL%=OL%/21
(�.A$=Course$+" HOLE "+�(holeno%�&300+1)+", "
(�7�green% A$=A$+�(OL%*3)+" FEET":�A$=A$+�OL%+" YARDS"
(�A$=A$+" FROM HOLE"
(�
�light
(��sine(X%,Y%)
(��drawscreen
(�/�26:X%=640-�A$*8-24:�smallmes(X%,860,13,A$)
(��butt(0)
(��ȗX%,Y%,SP%:�SP%
(��butt(0)
(��
(�� 
(���map2(� x%,� y%,p%)
)!y%=-�map2/10.5:x%=-�map2/10.5
)
�p%,x%,y%
)�
)"� 
),ݤchoseahole
)6�butt(0)
)@�X%,Y%,K%,F%,N%,out%
)J,�centbox(�,"PLEASE SELECT A HOLE",12,10)
)T&�mesbox(464,444,148,100):�dono2(1)
)^�mesbox(704,536,80,80)
)h �smallmes(704,462,12,"EXIT")
)r�mesbox(704,368,80,80)
)|%�15:�744,600:�720,554:�85,768,554
)�2�744,388:�720,432:�85,768,432:�720,436,768,436
)� �8:�720,432,744,388:�768,432
)��720,558,744,600:�768,558
)�ȗȓ480,388,432,220
)�N%=1:�:ȗX%,Y%,K%
)��K%�
)��X%>716�
)��X%<772�
)�6�Y%>544N%=N%�18+1:�dono2(N%):�1,-10,200,1:�butt(0)
)�A�Y%<442N%-=1:N%=N%-(N%=0)*18:�dono2(N%):�1,-10,200,1:�butt(0)
)��
)�*�Y%>472�Y%<516out%=�:F%=�:�1,-10,200,1
)��
*�X%<604�
*�Y%>456�Y%<540F%=�
*�
*&�
*0	�F%=�
*:=((N%-1)*&300)�out%
*D� 
*N��dono2(A%)
*X�A$,T%:A$=�(A%)
*b�11:ȓȐ476,464,124,64
*l�476-32*(A%<10),520
*v)�12:�T%=1��A$:�double(�(�A$,T%,1))):�
*��
*�� 
*���getoptions
*��T%=1�6:jump%(T%)=T%:�
*�*CHANNELVOICE 1 1
*��:�
*��colours(9):�screenbox
*�ȗ�640,496
*�\�quest("EDIT HOLES OR PLAY ROUND?","PLAY","EDIT",0)�getcourse("EDIT"):�edit:�"FX229":��
*��butt(0):*FX229
*�:mappoint%=0:�getcourse("PLAY"):mapstart%=map+mappoint%
*�M�quest("PREVIEW HOLES OR PLAY ROUND?","PLAY","PREVIEW",0)�preview:��:���
*�hplay%=�quest("UNDER WHICH RULES ARE YOU TO PLAY?","MATCH PLAY","STROKE PLAY",0)+1:� 1=MATCH 2=STROKE
+noofplayers=�noplaying
+�T%=1�noofplayers
+�getname(T%)
+ Qhand%(T%)=1-�quest("IS "+name$(T%)+" LEFT OR RIGHT HANDED?","LEFT","RIGHT",0)
+*�getskill(T%)
+4�
+>�confirm(noofplayers)�0
+H��
+R7� CHANGE THE FOLLOWING NUMBER TO (HOLE NO. -1)*&300
+\�mappoint%=&2400
+f�
+p
+z��getcourse(E$)
+��N%,I%,T%,C%,C$,E%,X,Y,Z
+�*FX21,9
+��butt(0):*FX229
+�~�:��:�<>17�centbox(�," "+�$+" ",8,1):ȑ0,-256:�centbox(�,"PLEASE PRESS SPACE",8,1):ȑ0,0:���-99:��Ineditor:�"FX229,1":�
+�	*FX15
+�C%=1:E%=-368:I%=0
+��
+��readdir
+�
�I%=0�
+�	*FX15
+�;�centbox(�,"NO COURSES ON THIS DISC!",5,1):�7:N%=�(300)
+�>ȑ0,-256:�centbox(�,"PLEASE PRESS SPACE",8,1):ȑ0,0:���-99
+��
,
�I%<>0
,N%=((I%+1)�2*36)�32
,1�centbox(�,"COURSES AVAILABLE TO "+E$,5,N%+2)
,$T%=512-I%�2*18
,.ȗȓ272,T%-24,736,I%*18
,8�N%=1�I%
,B�showcat(N%,8+(N%=1)*2)
,L�
,VOX=1
,`�
,jȗX,Y,Z
,t'X=-(X>640)+((T%-20+I%*18)-Y)�36*2+1
,~
�X>I%X=I%
,�,�X<>OX �showcat(OX,8):�showcat(X,6):OX=X
,��Z
,�Course$=�no_s(F$(X))
,��"L. $."+F$(X)+" "+�~map
,�
�*FX229,1
,��
,�
,���showcat(N%,C%)
,��5
,��E%
,��N%�1 E%=-368:� E%=48
,�	�3+C%
-/ȓȐ640+E%,T%+I%*18-16-((N%+1)�2)*36,320,32
-
�C%
-%�640+E%,T%+I%*18+12-((N%+1)�2)*36
-�no_s(F$(N%))
-(�
-2
-<ݤno_s(C$)
-F�T%
-P
�T%=1��C$
-Z�C$,T%,1)="_"�C$,T%,1)=" "
-d�
-n=C$
-x
-�
��readdir
-�(�R4,T%,C%,name,Point,buffer,filetype
-�
*MOUNT
-�� Point 11,buffer 34,name 2
-�$name="*":filetype=&C1F
-�$Point="$"+�0:R4=0
-��
-�6ș"OS_GBPB",10,Point,buffer,77,R4,34,name � ,,,,R4
-�0�buffer!&10=1�((!buffer>>8)�&FFF)=filetype �
-�I%+=1:T%=&14
-��
-�C%=buffer?T%
-�T%-=(C%<>0)
.�T%=&1E�C%=0
.buffer?T%=13
.F$(I%)=$(buffer+&14)
."�
.,
�R4=-1
.6�
.@
.J� 
.Tݤconfirm(T%)
.^�N%,I%,A$:I%=(T%+(T%�1))
.h�butt(0)
.r�colours(12):�screenbox
.|Z�centbox(�,"            ARE THE FOLLOWING GAME OPTIONS CORRECT?            ",15,10+I%)
.�!�28,10,20+I%�2,69,13-I%�2,4:�
.��12:�139:�;T%;" PLAYER";
.��T%<>1�"S";
.�*�",  PLAYING AT ";Course$;",  UNDER ";
.�Ȏplay%�
.��1:�"MATCH";
.��2:�"STROKE";
.��
.��" PLAY RULES"
.��0,1)�60,"-")
.�1�6:�0,2)"NAME"�22)"DEXTERITY"�46)"SKILL":�12
.��0,3)�60,"-")
.��0,4);
/
�boardcol
/�N%=1�T%
/	�N%+4
/&�name$(N%)�22);
/0Ȏhand%(N%)�
/:�0:�"RIGHT";
/D�1:�"LEFT";
/N�
/X�" HANDED"�46);
/b A$=�skillname(currents%(N%))
/l�A$
/v�
/��12:��60,"-")
/�$�smallmes(520,368-I%*16,8,"YES")
/�#�smallmes(680,368-I%*16,8,"NO")
/�!ȗȓ536,376-I%*16,208,44:ȗ �
/��
/�ȗX%,Y%,K%
/��(X%<590�X%>692)�K%
/��1,-10,200,1
/�=X%>692
/��
/�� 
/���boardcol
/��5,208,0,0
0�6,144,128,80
0�7,112,112,112
0�8,240,112,0
0 �9,96,96,48
0*�10,208,80,144
04�
0>� 
0H��getskill(T%)
0R�butt(0)
0\�X%,Y%,K%,F%,N%
0f;�centbox(�,"WHAT IS "+name$(T%)+"S SKILL LEVEL?",15,12)
0p3�mesbox(356,464,416,64):�doskill(currents%(T%))
0z�mesbox(820,540,80,80)
0��mesbox(820,372,80,80)
0�%�15:�860,604:�836,558:�85,884,558
0�2�860,388:�836,432:�85,884,432:�836,436,884,436
0� �8:�836,432,860,388:�884,432
0��836,562,860,604:�884,562
0�ȗȓ372,388,514,220
0�N%=1:�:ȗX%,Y%,K%
0��K%�
0��X%>836�
0�8�Y%>544�N%<4N%+=1:�doskill(N%):�1,-10,200,1:�butt(0)
0�8�Y%<442�N%>1N%-=1:�doskill(N%):�1,-10,200,1:�butt(0)
0��
0��X%<780�
1�Y%>475�Y%<514F%=�
1�
1�
1$	�F%=�
1.�1,-10,200,1
18currents%(T%)=N%
1B�
1L� 
1V��doskill(T%)
1`�A$
1jA$=�skillname(T%)
1t�11:ȓȐ372,480,12*32,32
1~�12:�372,508:�A$
1��
1�� 
1�ݤskillname(T%)
1��A$
1�	ȎT%�
1��1:A$="BEGINNER"
1��2:A$="ENTHUSIAST"
1��3:A$="AMATEUR"
1��4:A$="PROFESSIONAL"
1��
1�=A$
1�� 
2��getname(T%)
2
�butt(0)
2*�X%,Y%,K%,Q,OX%,OY%,A$,B$:A$=name$(T%)
2�noofplayers>1�
2(	ȎT%�
22�1:B$="FIRST "
2<�2:B$="SECOND "
2F�3:B$="THIRD "
2P�4:B$="FOURTH "
2Z�5:B$="FIFTH "
2d�6:B$="SIXTH "
2n�
2x�
2��A$<10A$=A$+�10-�A$," ")
2�6�centbox(�,"WHAT IS THE "+B$+"PLAYERS NAME?",15,8)
2�ȗȓ306,480,634,48
2��smallmes(784,472,11,"OK")
2��smallmes(288,472,11,A$)
2�ȗOX%,OY%,K%:�=1000
2��
2��butt(0)
2�A$=name$(T%)
2��336,516:�A$;
2��139:*FX21
2��
2�2Q=�(0):�Q<>� �(X%<702�K%) �=0:ȗOX%,OY%,K%:ȗ�
3�Q<>127Q=Q �223
3�(Q>64�Q<91)�Q=127�
3+�A$<>10�Q<>127A$=A$+�Q:�Q:�1,-10,200,1
3".�A$<>0�Q=127A$=�A$,�A$-1):�Q:�1,-10,200,1
3,�
36ȗX%,Y%,K%
3@%�>500��(X%-OX%)>8��(Y%-OY%)>8ȗ�
3J�(X%>792�K%)�Q=13
3T5�A$=""�1,-15,125,20:name$(T%)=defname$(T%):�=0:��
3^�1,-10,200,1:��
3h�140:name$(T%)=A$
3rdefname$(T%)=A$
3|�
3�� 
3�ݤnoplaying
3��butt(0)
3��play%=1�=2
3��X%,Y%,K%,F%,N%
3�)�centbox(�,"HOW MANY PLAYERS?",12,10)
3�$�mesbox(464,444,84,100):�dono(1)
3��mesbox(704,536,80,80)
3��mesbox(704,372,80,80)
3�%�15:�744,600:�720,554:�85,768,554
3�2�744,388:�720,432:�85,768,432:�720,436,768,436
3� �8:�720,432,744,388:�768,432
3��720,558,744,600:�768,558
4ȗȓ480,384,292,220
4N%=1:�:ȗX%,Y%,K%
4�K%�
4&�X%>716�
405�Y%>544�N%<6N%+=1:�dono(N%):�1,-10,200,1:�butt(0)
4:5�Y%<442�N%>1N%-=1:�dono(N%):�1,-10,200,1:�butt(0)
4D�
4N�X%<540�
4X�Y%>456�Y%<540F%=�
4b�
4l�
4v	�F%=�
4��1,-10,200,1
4�=N%
4�� 
4���dono(A%)
4��11:ȓȐ476,468,60,64
4��476,520
4��12:�double(A%)
4��
4�� 
4�ݤquest(A$,B$,C$,H%)
4�
�L%,D%,R%
4�R%=704+�length(�C$)
4�L%=600-�length(�B$)
5�centbox(�,A$,12,6+H%)
5D%=464-H%*32
5�smallmes(L%,D%,11,B$)
5 �smallmes(704,D%,11,C$)
5*ȗȓL%+16,D%+8,R%-L%-64,48
54ȗ �
5>�butt(0)
5H�:ȗL%,R%,D%
5R�D%�(L%<568�L%>712)
5\�1,-10,200,1
5fD%=-(L%>712)
5p=D%
5z� 
5�ݤlength(L%)
5�L%+=3:�(L%�1)-0L%+=1
5�
=L%*32
5�� 
5���double(C%)
5�C%=128+4*C%
5� �C%,C%+1,8,8,10,C%+2,C%+3,11
5��
5�� 
5���screenbox
5��M%:M%=�6
5��mesbox(0,0,1279,1023)
5��24,16;16;1263;1007;:�140:�
6��textwind
6�28,1,30,38*M%,1:�140:�
6�
6$� 
6.��centbox(cls,A$,C%,H%)
68
�cls �
6B
�T%,I%,M%
6L��=9M%=16�M%=8
6VT%=640-�A$*M%
6`I%=512+H%*16
6j=�mesbox(T%-M%,496-H%*16-20*(H%=1),�A$*M%*2+M%*2,H%*32+32)
6t�C%:�T%,I%-16*(H%=1):�5:�A$
6~�
6�� 
6���smallmes(x%,y%,C%,A$)
6�
�o%,M%
6���=12M%=16�M%=32
6�o%=(1-(�A$�1))*M%
6�$�mesbox(x%,y%,�A$*M%+M%*2+o%,64)
6�!�12:�5:�x%+M%+o%�2,y%+44:�A$;
6��
6�� 
6���mesbox(x%,y%,X%,Y%)
6��8:ȓȐx%,y%,X%,Y%
6��3:ȓx%+4,y%+4,X%-8,Y%-8
7�4:ȓx%+8,y%+8,X%-16,Y%-16
7
#�11:ȓȐx%+12,y%+12,X%-24,Y%-24
7�
7
7(��meswind2(A$,B$,C$,F%,C%)
72*CHANNELVOICE 1 1
7<�26
7F�X%,x%,x2%,c%,I%,Y%
7P!Y%=80-(B$<>"")*48-(C$<>"")*48
7ZX%=(�A$*16+32):x%=640-X%�2
7d�mesbox(x%,800,X%,Y%)
7n	�3,C%
7x�5:X%=x%+16
7�x%=640-(�B$*8)
7�x2%=640-(�C$*8)
7��I%=1�F%*2+1
7��X%,772+Y%:�A$
7��B$<>""�x%,724+Y%:�B$
7��C$<>""�x2%,676+Y%:�C$
7��del(50)
7��1,-10,180,1
7��
7��
7�� 
7���meswind(A$,B$,C$,F%,C%)
7��meswind2(A$,B$,C$,F%,C%)
8�4:�
8�8,0
8*SCHOOSE topofscreen
8"�&ED,0,704
8,
�windows2
86�
8@� 
8J��board
8T'totscore%()=totscore%()+currentS%()
8^A�T%=1�noofplayers:holescores%(hsp%(T%),Hole%)=currentS%(T%):�
8h
�boardcol
8r�3,0,144,0:�131:�
8|�winsort
8�!�P%,Y%,T%,I%,S%,mp%,A$,sc%,O%
8�O%=(play%=2)*4:�26
8��0:ȓȐ60,76,1156,920
8��64,0:ȓȐ64,80,1148,128
8��48,0:ȓȐ64,992,1148,-128
8�&�12:�768,544:�1212,992:�85,1212,80
8�"�13:�512,544:�64,80:�85,64,992
8��11:ȓȐ98,112,1080,848
8��0:ȓ98,112,1080,848
8�%�24,100;116;1176;956;:ȑ98,116:�5
8��14:�P%=1�6:Y%=788-P%*132
8��7:�0,Y%+124,1080,Y%+124
8��14:�0,Y%,1080,Y%
9&�T%=40�80�40:�0,Y%+T%,1080,Y%+T%:�
9'�T%=1�8:X%=T%*120:�X%,Y%,X%,Y%+80:�
9�
9&�P%=1�noofplayers
90,mp%=mapstart%+&2F9:Y%=728-(P%-1)*132:�12
9::�I%=0�-40�-40:�T%=0�8:�T%*120+4,Y%+I%:�;?mp%:mp%+=&300
9D	�:�:�
9N�P%=1�noofplayers
9X5mp%=mapstart%+&2F9:Y%=728-(P%-1)*132:X%=32:par%=0
9b"�T%=1�Hole%:�T%=10Y%-=40:X%=32
9l7sc%=holescores%(hsp%(P%),T%)-?mp%:par%+=?mp%:�X%,Y%
9vȎ�sc%�
9�� 0:A$="PAR":�15
9�� 1:A$="+"+�sc%:�5
9��-1:A$=�sc%:�0
9��
9���5-�A$," ");A$
9�X%+=120:mp%+=&300
9��
9�5�jump%(P%)+4:�4,768-(P%-1)*132:�name$(P%)�20+O%);
9�Ȏcurrents%(P%)�
9��1:�"{BEGINNER}";
9��2:�"{ENTHUSIAST}";
9��3:�"{AMATEUR}";
9��4:�"{PROFESSIONAL}";
:�
:A�40+O%);totscore%(P%);" STROKE"�(-(totscore%(P%)>1)*83)�53);
:6A$=" : "+�Hole%+" HOLE"+�-(Hole%>1),"S")+" PLAYED"
: Ȏplay%�
:*
�1:�match
:4�2:�stroke
:>�
:H�
:R �15:T%=542-�A$*8:�T%,824:�A$
:\�12:ȓT%-8,788,�A$*16+14,48
:f)�26:�smallmes(360,32,11," CONTINUE ")
:p%�smallmes(720,32,11,"QUIT ROUND")
:z�
:�ȗȓ372,44,528,40
:�ȗ�:ȗ�464,64
:��butt(0):�=0:���>100
:��:ȗX%,Y%,T%
:��T%�(X%<556�X%>718)
:�D�X%>718�confirm:�X%>926�0,0:�("SCHOOSE topofscreen"):�&ED,0,0:�0
:���
:��0:�4:�
:�ȗ�
:��139
:��
:�� 
:�
��confirm
;�butt(0)
;�gtos(0)
;�mesbox(640,32,512,160)
;$1�8:�656,176:�"ARE YOU SURE YOU WANT TO QUIT?"
;.�smallmes(794,60,8,"YES")
;8�smallmes(916,60,8,"NO")
;Bȗȓ806,72,178,40:ȗ�890,82
;L�:ȗX%,Y%,T%
;V�T%�(X%<866�X%>926)
;`�
;j� 
;t��match
;~�T%,B$,S1%,S2%
;��T%=1�Hole%
;�;� holescores%(hsp%(1),T%)<holescores%(hsp%(2),T%)S1%+=1
;�;� holescores%(hsp%(2),T%)<holescores%(hsp%(1),T%)S2%+=1
;��:T%=�(S2%-S1%)
;�%B$=�(T%):�T%B$=B$+" UP"�B$="EVEN"
;�B$=�14-�B$," ")+B$
;�	ȎP%�
;��1:�S1%>=S2%�B$
;��2:�S2%>=S1%�B$
;��
;�!A$=Course$+" : MATCH PLAY"+A$
;��
<� 
<
��stroke
<
�T%,B$
<#T%=totscore%(P%)-par%:B$=�(�T%)
<(
Ȏ�T%�
<2�0:B$="EVEN PAR"
<<�1:B$=B$+" OVER PAR"
<F�-1:B$=B$+" UNDER PAR"
<P�
<Z��14-�B$," ");B$
<d"A$=Course$+" : STROKE PLAY"+A$
<n�
<x� 
<���showwind
<�#�w$,T%,C%,s%,i%,x1%,y1%,BX%,BY%
<�5�green% C%=9:w$="SLOPE":s%=-2�C%=6:w$="WIND":s%=4
<�%�13:�26,0)"DIRECTION OF"�29,1)w$
<��T%=C%�C%+s%�s%
<��T%
<�ȏ526,820,88+i%
<�ȏ526,820,12+i%
<�i%+=4:�
<��8
<��526,820
<�BX%=wx*25:BY%=wy*25
<�'x1%=va*BY%+vb*BX%:y1%=vi*BY%+va*BX%
=�526+x1%,820+y1%
=�
=� 
="
��setwind
=,WX=0:WY=0:F%=green%
=6wc=5+4*green%:wc2=wc
=@1�F%:P%=mappoint%+&2F4:wx=�map2/3:wy=�map2/3:�
=Jwx=0:wy=0:�skill%<3�
=Twx=Wx:wy=Wy
=^�
=h� 
=r��initwind
=|�a%
=�stren%=�(36)
=�
a%=�(360)
=�Wx=((��a%)*stren%)/9
=�Wy=((��a%)*stren%)/9
=�Fx=(��a%)*(15+(stren%�2))
=�Fy=(��a%)*(15+(stren%�2))
=��
=�� 
=�
��spot
=�bs%=1:BX=0:BY%=-R%:h%=0
=�%x1%=va*BY%+vb*BX:y1%=vi*BY%+va*BX
=��vt(y1%,x1%,H%):ys%-=4
=�*FX112,2
>lie%=�xs%+2,ys%)
>�wellie(0)
>
�green%�
>&,T%=�(mx%(0,Hand%)+4+T%+80*Hand%),my%(0))
>0�T%=6�T%=11�
>:�wellie(30)
>D�
>N�
>X*FX112,1
>b�xs%,ys%:�BY10,16
>lox%=xs%:oy%=ys%
>vosx%=xs%:osy%=ys%
>�sx%=xs%:sy%=ys%
>�*SGET gr
>�*SGET sh
>��
>�� 
>���wellie(W%)
>��T%
>��T%=1�8:m%(T%,0)=T%+W%:�
>�wellie%=W%=30
>��
>�� 
>���splash
>�*CHANNELVOICE 1 PLOP
?�A$,r%,a%,T%,x%,y%
?bad%=�:�1,-15,5,20
?�r%=5�55�5
? 
�r%>9�
?*�6:Ȗ:Ȗ
?4�a%=0�45
?>2x%=xs%+C(a%)*(r%-10):y%=ys%+S(a%)*((r%-10)>>2)
?H�x%,y%)=11Ȓx%,y%
?R�
?\�
?f�11:�r%<50�
?p	Ȗ:Ȗ
?z1�a%=0�45:x%=xs%+C(a%)*r%:y%=ys%+S(a%)*(r%>>2)
?��x%,y%)=6Ȓx%,y%
?��
?��
?��
?�stroke%+=1
?�!�G%=11A$="THE SEA"�A$="WATER"
?�M�meswind("BALL LOST IN "+A$,"FORFEIT ONE STROKE","PLEASE PLAY AGAIN",5,6)
?��getplayvals
?�	�spot
?�*SCHOOSE plain
?�MȖ:�&ED,mx%(g%,Hand%),my%(g%):�23,27;m%(1,g%)|:�&ED,mx%(g%,Hand%),my%(g%)
?��
?�� 
@
��putback
@
�green%�
@�x1%<80x1%=(80+�(30))*�x1%
@$�y1%<80y1%=(80+�(30))*�y1%
@.�
@8%currentR%(1)=�distance(�x1%,�y1%)
@Bcurrentx%(1)=x1%
@Lcurrenty%(1)=y1%
@VcurrentS%(1)=stroke%
@`�
@j� 
@t
��swapall
@~$Ȕ currentR%(I%),currentR%(I%-1)
@�$Ȕ currentx%(I%),currentx%(I%-1)
@�$Ȕ currenty%(I%),currenty%(I%-1)
@�$Ȕ currents%(I%),currents%(I%-1)
@�$Ȕ currentS%(I%),currentS%(I%-1)
@�$Ȕ totscore%(I%),totscore%(I%-1)
@� Ȕ oldpos%(I%),oldpos%(I%-1)
@�Ȕ name$(I%),name$(I%-1)
@�Ȕ hsp%(I%),hsp%(I%-1)
@�Ȕ hand%(I%),hand%(I%-1)
@�Ȕ jump%(I%),jump%(I%-1)
@��
@�� 
A
��winsort
A

�T%,I%
A�noofplayers<>1�
A'�T%=1�noofplayers:�I%=2�noofplayers
A(�oldpos%(I%)<oldpos%(I%-1)�
A2�swapall
A<�
AF�:�
AP'�T%=1�noofplayers:�I%=2�noofplayers
AZ#�currentS%(I%)<currentS%(I%-1)�
Ad�swapall
An�
Ax�:�
A��
A��
A�� 
A���setplayer
A��T%
A��T%=1�noofplayers
A�oldpos%(T%)=T%
A��
A��
A�� 
A���whichplayer
A�
�T%,I%
A��noofplayers<>1�
B�T%=1�noofplayers
B�I%=2�noofplayers
B#�currentR%(I%)>currentR%(I%-1)�
B"�swapall
B,�
B6�:�
B@�
BJstroke%=currentS%(1)
BTskill%=currents%(1)
B^#�currentx%(1)=0�currenty%(1)=0�
Bhround%=�:mappoint%+=&300
Br�
B|�hand%(1)<>Hand%�
B�Hand%=hand%(1)
B�!�T%=1�11:�("SFlipY "+�(T%)):�
B�"�T%=31�38:�("SFlipY "+�(T%)):�
B�*SFlipY 20
B��
B��
B�� 
B���getplayvals
B�$X%=currentx%(1):YY%=currenty%(1)
B��
B�� 
B���light
B�
Y%=YY%
C�Y%>0�X%>0!px%=li%
C�Y%>0�X%<=0!px%=(li%+1)�3
C�Y%<=0�X%<=0!px%=(li%+2)�3
C&�Y%<=0�X%>0!px%=(li%+3)�3
C0�
C:� 
CD��drawscreen
CNP%=mappoint%:AA%=�map1
CX�caltre(x%(),y%(),z%())
Cb5�sort,bs%,R%,BY%,K%,x1%,y1%,h%,AA%,x%(),z%(),y%()
Cl�windows:�sceen
Cv�
C�� 
C���sine(X%,Y%)
C�R%=�distance(�X%,�Y%)
C�%green%=(R%<525):Ma=.7-(green%*.3)
C�1OL%=(�(�~((map!(mappoint%+&2FA))�&FFFF)))>440
C�*r=12096-2000*green%-1500*(OL%��green%)
C�
d=r-R%
C�(g%=-green%:O%=-6292*green%:H%=250+O%
C�va=-X%/R%:vb=Y%/R%:vi=-vb
C��
C�� 
C�ݤdistance(x%,y%)
C�=�(x%^2+y%^2)
D� 
D��getstart
DP%=&2E8+mappoint%:X%=�map2
D 
YY%=�map2
D*Hole%=map?(mappoint%+&2F8)
D4stx%=X%:sty%=YY%
D>�YY%=15*21:X%=0
DH�T%=1�noofplayers
DRcurrentx%(T%)=X%
D\currenty%(T%)=YY%
Df#currentR%(T%)=�distance(X%,YY%)
DpcurrentS%(T%)=0
Dz�
D��
D�� 
D���chhole
D�	B%-=1
D��(B%>0�ya>4)�h%>30�
D�"�h%>1��(OBY%-BY%)>5�ric:B%=4:�
D�
��chhole2
D�D%=�:*SCHOOSE sh
D��&ED,osx%,osy%
D�*SCHOOSE gr
D��&ED,ox%,oy%
D�*CHANNELVOICE 1 HOLED
D��1,-15,20,20
E
�del(150)
E
�holedout
E'ya=0:u=0:ud=0:p%=0:h%=0:x1%=0:y1%=0
E$�
E.� 
E8��holedout
EB�A$,B$,C$,F%,S%
EL#S%=stroke%-map?(mappoint%+&2F9)
EV	ȎS%�
E`�1:A$="IT'S A BOGIE":B$=""
Ej,�0:A$="HOLED OUT TO PAR":B$="WELL DONE!"
Et2�-1:A$="NICE ONE "+name$(1):B$="IT'S A BIRDIE"
E~5�-2:A$="SUPERB PLAY "+name$(1):B$="IT'S AN EAGLE"
E�E�-3:A$="CONGRATULATIONS "+name$(1):B$="YOU'VE FLOWN AN ALBATROSS"
E�+ A$="HOLED OUT "+�S%+" OVER PAR":B$=""
E��
E�cC$="":F%=3:S%=5:�stroke%=1A$="WOW! IT'S A HOLE IN ONE":B$="KNOCKED IN BY":C$=name$(1):F%=6:S%=3
E�&� �A$<�B$�:A$=" "+A$+" ":��A$>=�B$
E��meswind(A$,B$,C$,F%,S%)
E��del(50)
E��
E�� 
E�	��ric
E��4,-15,20,1
E�
��2ric
Fu=u*4:�u=0u=(3+�(5))*�x1%
F
ya=ya �2:p%=ya �3
F�green%�ya=0 h%=0:p%=0
F�
F(� 
F2��flight
F<OBY%=BY%
FF[��fly:�23,27;m%(8,g%)|:�&ED,mx%(g%,Hand%),my%(g%):�ba%:�23,27;20|:�&ED,bag%(Hand%),-754
FPA�green%�h%=0ș6,112,2:G%=�sx%+4,sy%+4):ș6,112,1:�G%=0�chhole
FZ0OBY%=BY%:�green%��(x1%+4)<5��(y1%)<5�chhole
Fd�sl>ya sl=ya/2*�sl
Fnwc-=1:�wc=0�
Fxwc=wc2:�wc2>1wc2-=1
F�WX+=wx:WY+=wy
F��
F��ya<=0�h%=0��p%<2
F�YY%=y1%:X%=x1%
F��D%��green%�
F�*FX112,2
F�G%=�sx%,sy%)
F�G1%=�sx%,sy%+8)
F�*FX112,1
F��(G%�G1%)=0�chhole2
F��
F�� 
F�	��fly
G�h%<4�ya<16Ȗ
G-Ȗ:BX+=u*yd+Sl:Sl+=sl:u-=ud:�u>ya u=u>>1
G!BY%+=ya*yd:�ya>0 ya-=.5:�ya=0
G"Fx1%=va*BY%+vb*BX+WX:y1%=vi*BY%+va*BX+WY:h%+=p%*Ma:p%-=1:�p%<10F%=�
G,�h%<=0 �bounce
G66�vt(y1%,x1%,H%):sx%=xs%:sy%=ys%:�vt(y1%,x1%,H%-h%)
G@.�K%=� ud=0:ya=0:p%=0:u=0:K%=1:�3,-10,20,40
GJ7�W%� plotball,bs%,oy%,ox%,osy%,osx%,ys%,xs%,sy%,sx%
GT�
G^� 
Gh��walter
Gr*CHANNELVOICE 1 SHOOSH
G|
�T%,I%
G�,yd=1+(.75*green%):�T%=1�5:*SCHOOSE BLACK
G�^Ȗ:�&ED,mx%(g%,Hand%),my%(g%):�23,27;m%(T%,g%)|:�&ED,mx%(g%,Hand%),my%(g%):�I%=0�T%:Ȗ:�:�
G��T%=5�1��:*SCHOOSE BLACK
G��T%=3��green%�1,SO%,40,40
G�[�I%=1�T%:Ȗ:�:�&ED,mx%(g%,Hand%),my%(g%):�23,27;m%(T%,g%)|:�&ED,mx%(g%,Hand%),my%(g%):�
G��2,SO%,1,10
G��T%=6�8:�T%>6�fly:�Ȗ
G�*SCHOOSE plain
G�-�green%:Ȗ:�&ED,mx%(g%,Hand%),my%(g%)�Ȗ
G�0�23,27;m%(T%,g%)|:�&ED,mx%(g%,Hand%),my%(g%)
G�T�lie%=1:�1:�I%=0�20:Ȓsa%(0,T%-6,I%)+(T%+10)*Hand%,sa%(1,T%-6,I%)+my%(g%):�:�8,0
G��
G�
�fly:�fly
H*SCHOOSE plain
HMȖ:�&ED,mx%(g%,Hand%),my%(g%):�23,27;m%(8,g%)|:�&ED,mx%(g%,Hand%),my%(g%)
H�
H&� 
H0
��del(T%)
H:�=0:���>T%
HD�
HN� 
HX��bunker
Hb�32,0:H%+=2:P%=oP%
Hl
�drawbunk
Hv�2:H%+=2:P%=oP%
H�
�drawbunk
H�	H%-=4
H��
H�� 
H���drawbunk
H�<np%=�map1:�map(CX%,CY%,H%,4,r):�map3(SX%,SY%,H%,4,r,CX%)
H�5�I%=1�np%-1:�map3(XI%,YI%,H%,85,r,CX%):�CX%,CY%:�
H��85,SX%,SY%
H��
H�� 
H�!��map3(� x%,� y%,z%,p%,r,CX%)
H��pO%
H�Vy%=�map2:x%=�map2:xe=va*x%+vb*y%:ze=(vi*x%+va*y%+r)*Ma:x%=d*xe �ze:y%=-(d*z%�ze)*2
I)�green%�y%>-32�y%<&FFFF8000 y%=-6000
Ix%=x%-�(x%-CX%)*4
IpO%=�x%,y%)
I ȕpO%>3
I*y%+=4:pO%=�x%,y%)
I4�
I>
�p%,x%,y%
IH�
IR� 
I\��sceen
If
No%=�map1
Iprough=P%
Iz�green%�
I�
Co%=�map1
I��:np%=�map1
I�"P%=P%+np%*4+4:Co%=�map1:No%-=1
I��Co%=5�Co%=1:P%-=1
I��
I�-sP%=P%:�T%=1�No%:Co%=�map1:�Co%=6water=P%
I��green%�Co%=4�
I�np%=�map1:P%=P%+np%*4+4
I�*�:oP%=P%:Co%=Co%-((Co%=1)�green%):�Co%
I��drawit:�Co%=1�bunker
I��:�:�green%�
I��8,0
I�*SCHOOSE HOLE
J�&ED,-6,-(d*H%�r)*2-12
J�
J�trees:*FX112,2
J$�green%�135:��139
J.%�:P%=sP%:�T%=1�No%:Co%=�map1:�Co%
J8�green%�Co%=4�
JBnp%=�map1:P%=P%+np%*4+4
JL�oP%=P%:�drawit
JV�
J`�
Jj�green%�
Jt�8,0
J~*SCHOOSE BLACKHOLE
J��&ED,-6,-(d*H%�r)*2-12
J��
J�*FX112,1
J�Ȏjump%(1)�
J��1:�8,208,0,0
J��2:�8,144,128,80
J��3:�8,112,112,112
J��4:�8,240,112,0
J��5:�8,96,96,48
J��6:�8,208,80,144
J��
J��
K� 
K
��gtos(Y%)
K,�26:�0,Y%:�1279,Y%+319:*SGET topofscreen
K�
K(� 
K2
��getinfo
K<*CHANNELVOICE 1 1
KF�ya2,BX%,BY%,yst%
KP�gtos(704)
KZ
ȑ80,0
Kd�24,0;704;1131;1023;
Kn�139:�139:�
Kx�8:ȓ0,704,412,319
K�ȓ412,704,228,319
K�ȓ640,704,491,319
K��3:ȓ4,708,404,311
K�ȓ416,708,220,311
K�ȓ644,708,483,311
K��4:ȓ8,712,396,303
K�ȓ420,712,212,303
K�ȓ648,712,475,303
K��:�28,6,8,74,1:�12
K�6�41,0)"PLAYER         : ";:�8:�name$(player%):�12
K�%�41,1)"PLAYING AT     : "Course$
K�$�41,2)"HOLE NUMBER    : ";Hole%
K�4�41,3)"PAR            : ";~map?(mappoint%+&2F9)
LE�41,4)"OVERALL LENGTH : ";~(map!(mappoint%+&2FA))�&FFFF;" YARDS"
LV�41,5)"RANGE TO HOLE  : ";:�8:�;(R%�21)*(1-green%*2);:�green%:�" FEET":��" YARDS"
L*�12:�41,6)"STROKES PLAYED : ";stroke%
L"�showlie
L,�setwind
L6
�showwind
L@�
LJ
ȑ80,0
LT�getclub
L^"�12:�2)"DIRECTION THEN POWER"
Lh�8:�4)A$(vp%)" SELECTED"
Lr8�8:ȓ46,776,320,128:ȓ44,776,324,128:�48,866,364,866
L|?�6:ȓȐ48,870,316,32:�12:�78,898:�5:�"CLUB POWER METER"�4:�
L�K�56,784,56,824:�T%=49�100:�((T%/100*T%)�25)=0:�T%*3+56,784,T%*3+56,824
L��
L�ȓ56,792,300,24
L��11:ȓȐ56,796,300,16
L� my%=256-green%*164:ș6,106,2
L�	ȑ0,0
L�>ȗȓ432+(green%=0)*160,my%,414-(green%=0)*320,0:ȗ�640,my%
L�xs%=0:OX%=0:u=0
L��:ȗX%,Y%,C%
L��C%=1�C%=4��:��
L�#a%=(X%-xs%-640)/8:�a%<10a%=�a%
L�	u+=a%
L�
�X%<>xs%�
MABX%=0:BY%=-R%:�vt(vi*BY%+va*BX%,va*BY%+vb*BX%,H%):yst%=ys%+25
MC�:BX%+=u:BY%+=80:�vt(vi*BY%+va*BX%,va*BY%+vb*BX%,H%):�ys%>=yst%
M�
M&ȗ�xs%-640,my%
M0	�C%=2
M:ȗ�
MD
p%=�power
MNSO%=-15*p%/100
MX�green%�vp%=13u=u+�(5)-3
Mb2u=u/(8-g%*2):ya=�((CV%(vp%)/100)*p%):�ya<1ya=1
Mlud=u/(ya*3)
Mvp%=p%*.32:h%=0
M��vp%=13p%=5*-(green%=�)
M��del(100):stroke%+=1
M� �4,26:�:*SCHOOSE topofscreen
M��8,0:�&ED,0,704
M�
�windows2
M��
M�� 
M�
��showlie
M��a$
M�a$="ON THE ":�8
M��41,7);
M�!bunk%=�:bad%=�:wind%=skill%>2
M��green%�
N4�lie%=5 �a$"GREEN";:��"ON EDGE OF GREEN";:lie%=5
N�
NȎlie%�
N �1:�"IN A BUNKER ";:�gob
N*�4:�"ON A PATHWAY";
N4�6:�wetmes
N>*�7:�y1%<>sty%:�a$"FAIRWAY";:��a$"TEE";
NH�9:�"IN THE ROUGH ";:�gob
NR�
N\�
Nf� 
Np��wetmes
Nz�6:bunk%=�:�T%
N�T%=�(3)
N�	ȎT%�
N��1,3:�"IN SHALLOW WATER";
N�>�2:�wellie%�"IT'S A WELLIE JOB";:��"BALANCED ON LILY PAD";
N��
N��
N�� 
N�	��gob
N�:�g$,b$:g$="GOOD LIE":�lie%=9b$="BAD LIE":�b$="PLUGGED"
N�
Ȏskill%�
N��1:�"NO EFFECT";
N��2,3:�g$;:bunk%=�
N�'�4:bunk%=�:�(2)=2�b$;:bad%=1:��g$;
O�
O�
O� 
O$ݤpower
O.�X%,C%,c%,p%,a%
O8
ȑ80,0
OB�12:�butt(0):�del(1):a%=1
OLȕC%=0�c%<>156
OVp%+=a%:�p%=100a%=�
O`c%+=1:�8:�c%�1Ȗ
Oj6ȓȐ56,796,p%*3,16:�11:ȓȐ56+p%*3,796,300-p%*3,16
Ot0�2,4);�(p%/100*p%)-(c%<10);"%  ":ȗX%,X%,C%
O~�
O�
Sl=0:sl=0
O�
�vp%<>13�
O�	ȎC%�
O�
�1:sl=.05
O��4:sl=-.05
O��
O��
O��skill%<>1�
O�Ȏlie%�
O�#�1,9:p%=(p%/100)*red%(vp%,bad%)
O�/�6:a%=vp%-2*(p%<11):p%=p%/100*red%(a%,bad%)
O��
P�
P
�1,-10,200,1
P
�p%<1p%=1
P=p%
P(� 
P2
��getclub
P<�butt(0):�cls
PF�green%vp%=13:�
PP�X%,Y%,C%,x%,y%,ox%,oy%
PZ;ox%=-100:�:�28,6,8,74,1:�mrect(1):ȗ �:�12:�:SYS6,106,3
Pd(�T%=0�13:�TX%(T%),TY%(T%))A$(T%);:�
Pn7�2:�6,0)"SELECT A CLUB":ȟ&2000:Ȟ100:�5:�3,2:�box
Px.�:�Ə=0:�3,2:�7,1)"SELECT A CLUB":��Ə<>0
P�$ȗX%,Y%,C%:x%=X%�128:y%=Y%�&FFE0
P��x%<>ox%�y%<>oy%�box
P�5�mrect(X%):vp%=3^x%+(x%=0)+28-y%�32+(x%=2�y%<832)
P�
�C%<>0
P��butt(0):�4
P�	��cls
P��:�28,6,8,29,1:�
P��
P�� 
P�	��box
P��3,6
P�ȓȐ32+128*ox%,oy%,96,32
P�ȓȐ32+128*x%,y%,96,32
Q�1,-10,200,1
Qox%=x%:oy%=y%
Q�
Q"� 
Q,��mrect(R%)
Q6�R%>288�iop2
Q@	ȎR%�
QJ"� 1:ȗȓ38,844,90,72:ȗ�83,912
QT$� 162:ȗȓ38,844,90,72:ȗ�83,846
Q^'� 128:ȗȓ162,752,90,164:ȗ�208,912
Qh� 252:�iop
Qr'� 288:ȗȓ162,752,90,164:ȗ�208,756
Q|�
Q��
Q�� 
Q�	��iop
Q��Y%>835�
Q� ȗȓ288,836,90,80:ȗ�349,912
Q�"� ȗȓ288,752,90,50:ȗ�349,778
Q��
Q��
Q�� 
Q�
��iop2
Q�'�Y%=836ȗȓ288,752,90,50:ȗ�349,786
Q�'�Y%=802ȗȓ288,836,90,80:ȗ�349,856
Q��
R� 
R��butt(on)
R
�D%,C%
R&�
R0ȗD%,D%,C%
R:
�C%=on
RD�
RN� 
RX
��windows
Rb�26:�128:�:�maincols
Rl
�green%�
Rv�6:ȓȐ 0,0,1280,736
R��4:�0,732,1280,732
R��138:�24,0;736;1279;1023;:�
R��clouds
R���135:�
R��
R���windows2
R� �26:ȑ640,768+O%-6166*green%
R��
R�� 
R���clouds
R�
�C%,T%,O%
R�$�vb>0 O%=��va �O%=180+(180-��va)
R�O%=�O%*3.5:�11
S�C%=1�12:�T%=1�12
S5ȝȐ(CL%(0,C%,T%)+O%)�2520+I%,CL%(1,C%,T%),256,64
S�:�
S �
S*� 
S4��initcloud
S>�C%,T%,X%,Y%
SH+�C%=0�12:X%=194*C%+�(194):Y%=�(288)+736
SR<�T%=0�12:CL%(0,C%,T%)=X%+�(5)*40:CL%(1,C%,T%)=Y%+�(5)*12
S\�:�
Sf�
Sp� 
Sz��bounce
S�h%=0:p%=-p%/2.2
S� �vp%=13��green%��(10)=5�2ric
S�*FX112,2
S�G%=�sx%,sy%)
S�*FX112,1
S�	ȎG%�
S�)�1:p%=p%>>1:�p%>4:ya=ya*.3:�ya=ya*.75
S�/�4:�p%>3�ya<>0p%=p%*1.5:ya=ya*1.3:ud=ud/1.3
S�`�6,11:W%=�:xs%=1000:sx%=1000:ya=0:p%=0:h%=0:� plotball,bs%,oy%,ox%,osy%,osx%,ys%,xs%,sy%,sx%
S�*�9,-1:ya=ya/1.5:p%=p%>>1:u=u/2:ud=ud/2
S��
S��
S�� 
T��drawit
T7np%=�map1:�map(CX%,CY%,H%,4,r):�map(SX%,SY%,H%,4,r)
T0�I%=1�np%-1:�map(XI%,YI%,H%,85,r):�CX%,CY%:�
T$�85,SX%,SY%
T.�
T8� 
TB��vt(x%,y%,z%)
TLLxe%=va*x%+vb*y%:ze%=(vi*x%+va*y%+r)*Ma:xs%=d*xe% �ze%:ys%=-(d*z% �ze%)*2
TV�
T`� 
Tj"��caltre(� x%(),� y%(),� z%())
Tt�i%,l%,lo%,n%
T~
�A%=1�AA%
T�l%=�map2:trex!(A%*4)=l%
T�i%=�map2:trey!(A%*4)=i%
T�xe=va*i%+vb*l%
T�ze=(vi*i%+va*l%+r)*Ma
T�(x%(A%)=d*xe �ze:y%(A%)=-(d*H% �ze)*2
T�z%(A%)=-(d*(H%+200)�ze)*2
T��
T��
T�� 
T���map(� x%,� y%,z%,p%,r)
T�Vy%=�map2:x%=�map2:xe=va*x%+vb*y%:ze=(vi*x%+va*y%+r)*Ma:x%=d*xe �ze:y%=-(d*z%�ze)*2
T�)�green%�y%>-32�y%<&FFFF8000 y%=-6000
U
�p%,x%,y%
U
�
U� 
Uݤmap1:P%+=1:=map?(P%-1)
U(� 
U2$ݤmap2:P%+=2:Q%=map!(P%-2)�&FFFF
U<�Q%>&7FFFQ%=Q%�&FFFF0000
UF=Q%
UP� 
UZ��trees
UdPF%=�:PB%=-(d*H%�(r*Ma))*2
UnPT%=-(d*(H%-30)�(r*Ma))*2
UxFB%=-(d*(H%-24)�(r*Ma))*2
U�Vxe=va*Fx+vb*Fy:ze=(vi*Fx+va*Fy+r)*Ma:FX%=d*xe �ze:FY%=-(d*(H%-16-(stren%�4))�ze)*2
U��green%�
U��T%=AA%�1��
U�X1%=x%(T%):Y%=y%(T%)
U�=�PF%�Y%<PB% �11:�0,PB%:�0,PT%:�3:�0,FB%:�85,FX%,FY%:PF%=�
U�*�(�X1%>400�Y%>-708)��X1%<800�Y%>-1000�
U�Ax%=(�Y%-�z%(T%))>>1:y%=-x%>>2:ya%=y%*1.5:xa%=x%>>4:yd%=ya%>>2
U�+�tr%!(((px%+1)�3)*4):ȓȐX1%,Y%,-xa%,y%
U�*�tr%!(((px%+2)�3)*4):ȓȐX1%,Y%,xa%,y%
U�1Y%+=y%:xa%=xa%*2:z%(T%)=�:x%=x%*.8:xa%=xa%*.8
U�&�plottree,xa%,y%,x%,X1%,Y%,ya%,yd%
U�� z%(T%)=�
U��
V�
V�
V� 
V"��initiate
V,%Hand%=0:green%=0:tee=�:Ineditor=�
V6�0,1
V@�colours(12)
VJ�red%(13,1),F$(77)
VT� CL%(1,12,12)
V^� code &900
Vh� map &6D00
Vr
� parb 20
V|� x%(96),y%(96),z%(96)
V�#�TX%(13),TY%(13),A$(13),CV%(13)
V�C�mx%(1,1),my%(1),m%(8,1),bag%(1),name$(6),defname$(6):player%=1
V���holescores%(6,18),currentx%(6),currenty%(6),currentR%(6),currentS%(6),currents%(6),totscore%(6),oldpos%(6),hsp%(6),hand%(6),jump%(6)
V��C(45),S(45)
V��sa%(1,2,20)
V�currents%()=1
V��I%=2�4
V��N%=0�20
V�sa%(0,I%-2,N%)=�(I%*8)-I%*4
V�#sa%(1,I%-2,N%)=I%*12+16+�(I%)*4
V��
V��
V��T%=0�45
W!C(T%)=��(T%*8):S(T%)=��(T%*8)
W�
W(mx%(0,1)=-2:mx%(0,0)=-96:my%(0)=-728
W&*mx%(1,1)=-4:mx%(1,0)=-64:my%(1)=-13121
W0bag%(0)=-196:bag%(1)=120
W:sx%=�:sy%=�:r=11096
WD
� �PVX
WN�T%=0�13
WX#�TX%(T%),TY%(T%),A$(T%),CV%(T%)
Wb�
Wl�wellie(0)
Wv�T%=1�8:�m%(T%,1):�
W�$�I%=0�1:�T%=0�13:�red%(T%,I%):�,
W�'CX%=0:CY%=0:SX%=0:SY%=0:XI%=0:YI%=0
W�%h%=0:x1%=0:y1%=0:K%=0:BY%=0:bs%=0
W�defname$(1)="JOHN"
W�defname$(2)="GEORGE"
W�defname$(3)="PAUL"
W�defname$(4)="RINGO"
W�defname$(5)="MICK"
W�defname$(6)="JERRY"
W�	�code
W�*POINTER
W�ȗ �
W�ȗ�1,0,240,0
Xȗ�2,0,128,0
X�
X�1,2,1 WOOD,74
X �1,3,3 WOOD,70
X*�1,4,5 WOOD,68
X4�9,2,1 IRON,67
X>�9,3,2 IRON,65
XH�9,4,3 IRON,63
XR�9,5,4 IRON,61
X\�9,6,5 IRON,59
Xf�9,7,6 IRON,57
Xp�17,2,7 IRON,55
Xz�17,3,8 IRON,53
X��17,4,9 IRON,48
X��17,6,WEDGE,41
X��17,7,PUTTER,60
X��9,10,10,11,11,9,9,9
X�/�30,40,48,55,61,66,71,76,81,85,89,93,96,100
X�'�1,1,1,1,1,1,15,40,55,66,76,85,93,1
X�� 
X���colours(M%)
X�Ȗ:�M%:�
X�
�maincols
X��23,17,4,1|
X�)�23,2,&EF,&FE,&EF,&FE,&EF,&FE,&EF,&FE
X�)�23,3,&12,&21,&12,&21,&12,&21,&12,&21
Y)�23,4,&C0,&0C,&C0,&0C,&C0,&0C,&C0,&0C
Y)�23,5,&D4,&4D,&D4,&4D,&D4,&4D,&D4,&4D
Y�
Y$��maincols
Y.� 
Y8�0,0,0,0:� BLACK
YB�1,176,128,0:� DARK SAND
YL�2,176,160,48:� LIGHT SAND
YV�3,208,160,144:� FLESH
Y`�4,144,144,144:� PATH
Yj�5,16,208,0:� GREEN
Yt�6,32,144,208:� WATER
Y~�7,0,160,0:� FAIRWAY
Y��8,208,0,0:� RED
Y��9,0,112,0:� ROUGH
Y��10,96,192,224:� SKY
Y��11,240,240,240:� WHITE
Y��12,80,48,16:� DARK BROWN
Y��13,96,64,48:� LIGHT BROWN
Y�$�14,16,64,48:� DARK GREEN (TREE)
Y�&�15,0,96,64:� LIGHTER GREEN (TREE)
Y��
Y�� 
Y�
��pointer
Y��par 20,block 112
Z	��@nZ
Z
�T%=0�108�4:�block!T%:�
Z
?par=0
Zpar?1=2
Z(par?2=8
Z2par?3=14
Z<par?4=16
ZFpar?5=7
ZPpar!6=block
ZZ�12
Zd*A%=21:B%=par:C%=par �256:ș 7,A%,B%,C%
Zn��&AAAA,&AAAA0000,&9556,&95560000,&AA96,&96AA0000,&A6,&9A000000,&2A,&A8000000,&0,&0,&0,&0,&0,&0,&0,&0,&2A,&A8000000,&A6,&9A000000,&AA96,&96AA0000,&9556,&95560000,&AAAA,&AAAA0000
Zx�
Z�� 
Z�
��code
Z�*�("LOAD <Obey$Dir>.holedout4 "+�~code)
Z�plotball=code+&188
Z�plottree=code
Z�sort=code+&7E0
Z�px%=code+&158
Z�tr%=code+&148
Z�trex=code+&4B8
Z�trey=code+&63C
Z��
�

00000000  0d 00 0a 1b f4 20 3e 21  44 45 53 49 47 4e 45 52  |..... >!DESIGNER|
00000010  2e 48 4f 4c 45 44 4f 55  54 33 44 0d 00 14 39 f4  |.HOLEDOUT3D...9.|
00000020  20 50 52 4f 47 52 41 4d  4d 45 44 20 42 59 20 47  | PROGRAMMED BY G|
00000030  2e 4a 2e 4b 45 59 20 42  45 54 57 45 45 4e 20 31  |.J.KEY BETWEEN 1|
00000040  36 2d 31 30 2d 38 39 20  41 4e 44 20 32 30 2d 31  |6-10-89 AND 20-1|
00000050  30 2d 38 39 0d 00 1e 1e  f4 20 28 43 29 20 54 48  |0-89..... (C) TH|
00000060  45 20 46 4f 55 52 54 48  20 44 49 4d 45 4e 53 49  |E FOURTH DIMENSI|
00000070  4f 4e 0d 00 28 07 f4 20  15 0d 00 32 17 c8 99 22  |ON..(.. ...2..."|
00000080  48 6f 75 72 67 6c 61 73  73 5f 53 6d 61 73 68 22  |Hourglass_Smash"|
00000090  0d 00 3c 0d f4 2a 46 58  32 32 39 2c 31 0d 00 46  |..<..*FX229,1..F|
000000a0  0d f4 2a 46 58 32 30 30  2c 32 0d 00 50 4c de 20  |..*FX200,2..PL. |
000000b0  4f 42 25 28 36 29 2c 4f  42 24 28 36 29 2c 54 52  |OB%(6),OB$(6),TR|
000000c0  58 25 28 39 36 29 2c 54  52 59 25 28 39 36 29 2c  |X%(96),TRY%(96),|
000000d0  48 58 25 28 33 30 2c 33  30 29 2c 48 59 25 28 33  |HX%(30,30),HY%(3|
000000e0  30 2c 33 30 29 2c 43 4f  25 28 33 30 29 2c 50 54  |0,30),CO%(30),PT|
000000f0  53 25 28 33 30 29 0d 00  5a 16 f2 70 6f 69 6e 74  |S%(30)..Z..point|
00000100  65 72 3a f2 69 6e 69 74  69 61 74 65 0d 00 64 0d  |er:.initiate..d.|
00000110  f2 69 6e 73 74 72 75 63  74 0d 00 6e 0a 2a 46 58  |.instruct..n.*FX|
00000120  32 32 39 0d 00 78 0c f4  4f 4e 45 52 52 4f 52 0d  |229..x..ONERROR.|
00000130  00 82 10 f2 63 6f 6c 6f  75 72 73 28 31 32 29 0d  |....colours(12).|
00000140  00 8c 13 2a 53 43 48 4f  4f 53 45 20 53 43 52 45  |...*SCHOOSE SCRE|
00000150  45 4e 0d 00 96 18 2a 43  48 41 4e 4e 45 4c 56 4f  |EN....*CHANNELVO|
00000160  49 43 45 20 31 20 42 45  4c 4c 0d 00 a0 0c f0 26  |ICE 1 BELL.....&|
00000170  45 44 2c 30 2c 30 0d 00  aa 07 d1 3d 30 0d 00 b4  |ED,0,0.....=0...|
00000180  09 2a 46 58 31 35 0d 00  be 10 f5 3a c8 97 58 25  |.*FX15.....:..X%|
00000190  2c 59 25 2c 54 25 0d 00  c8 1b e7 91 3e 33 30 30  |,Y%,T%......>300|
000001a0  30 d4 31 2c 2d 31 35 2c  33 30 30 2c 31 3a d1 3d  |0.1,-15,300,1:.=|
000001b0  30 0d 00 d2 10 fd 54 25  84 a6 28 31 30 29 3c 3e  |0.....T%..(10)<>|
000001c0  b9 0d 00 dc 15 2a 43 48  41 4e 4e 45 4c 56 4f 49  |.....*CHANNELVOI|
000001d0  43 45 20 31 20 31 0d 00  e6 05 f5 0d 00 f0 0e 49  |CE 1 1.........I|
000001e0  6e 65 64 69 74 6f 72 3d  a3 0d 00 fa 0f f2 67 65  |neditor=......ge|
000001f0  74 6f 70 74 69 6f 6e 73  0d 01 04 07 ee 85 87 0d  |toptions........|
00000200  01 0e 0d f4 2a 46 58 32  32 39 2c 31 0d 01 18 10  |....*FX229,1....|
00000210  f2 63 6f 6c 6f 75 72 73  28 31 32 29 0d 01 22 19  |.colours(12)..".|
00000220  48 6f 6c 65 25 3d 31 3a  74 6f 74 73 63 6f 72 65  |Hole%=1:totscore|
00000230  25 28 29 3d 30 0d 01 2c  23 e3 54 25 3d 31 b8 6e  |%()=0..,#.T%=1.n|
00000240  6f 6f 66 70 6c 61 79 65  72 73 3a 68 73 70 25 28  |oofplayers:hsp%(|
00000250  54 25 29 3d 54 25 3a ed  0d 01 36 08 58 25 3d 30  |T%)=T%:...6.X%=0|
00000260  0d 01 40 05 f5 0d 01 4a  19 e7 58 25 3e 37 31 38  |..@....J..X%>718|
00000270  84 48 6f 6c 65 25 3d 31  38 fd b9 3a fd a3 0d 01  |.Hole%=18..:....|
00000280  54 0c 72 6f 75 6e 64 25  3d a3 0d 01 5e 0e f2 69  |T.round%=...^..i|
00000290  6e 69 74 63 6c 6f 75 64  0d 01 68 0e 6c 69 25 3d  |nitcloud..h.li%=|
000002a0  b3 28 34 29 2d 31 0d 01  72 0d f2 67 65 74 73 74  |.(4)-1..r..getst|
000002b0  61 72 74 0d 01 7c 0d f2  69 6e 69 74 77 69 6e 64  |art..|..initwind|
000002c0  0d 01 86 0e f2 73 65 74  70 6c 61 79 65 72 0d 01  |.....setplayer..|
000002d0  90 05 f5 0d 01 9a 10 f2  77 68 69 63 68 70 6c 61  |........whichpla|
000002e0  79 65 72 0d 01 a4 17 e7  72 6f 75 6e 64 25 fd b9  |yer.....round%..|
000002f0  3a f2 62 6f 61 72 64 3a  fd a3 0d 01 ae 10 f2 67  |:.board:.......g|
00000300  65 74 70 6c 61 79 76 61  6c 73 0d 01 b8 0a f2 6c  |etplayvals.....l|
00000310  69 67 68 74 0d 01 c2 10  f2 73 69 6e 65 28 58 25  |ight.....sine(X%|
00000320  2c 59 25 29 0d 01 cc 0f  f2 64 72 61 77 73 63 72  |,Y%).....drawscr|
00000330  65 65 6e 0d 01 d6 09 f2  73 70 6f 74 0d 01 e0 25  |een.....spot...%|
00000340  ec 6d 78 25 28 67 25 2c  48 61 6e 64 25 29 2c 6d  |.mx%(g%,Hand%),m|
00000350  79 25 28 67 25 29 3a ec  42 59 31 32 30 2c 31 37  |y%(g%):.BY120,17|
00000360  36 0d 01 ea 0f 2a 53 47  45 54 20 50 4c 41 49 4e  |6....*SGET PLAIN|
00000370  0d 01 f4 12 2a 53 43 48  4f 4f 53 45 20 42 41 4c  |....*SCHOOSE BAL|
00000380  4c 31 0d 01 fe 10 f0 26  45 44 2c 78 73 25 2c 79  |L1.....&ED,xs%,y|
00000390  73 25 0d 02 08 25 ec 6d  78 25 28 67 25 2c 48 61  |s%...%.mx%(g%,Ha|
000003a0  6e 64 25 29 2c 6d 79 25  28 67 25 29 3a ec 42 59  |nd%),my%(g%):.BY|
000003b0  31 32 30 2c 31 37 36 0d  02 12 0f 2a 53 47 45 54  |120,176....*SGET|
000003c0  20 42 4c 41 43 4b 0d 02  1c 0f 2a 53 43 48 4f 4f  | BLACK....*SCHOO|
000003d0  53 45 20 32 30 0d 02 26  15 62 61 25 3d 73 74 79  |SE 20..&.ba%=sty|
000003e0  25 3d 79 31 25 3a e6 38  2c 30 0d 02 30 1d e7 62  |%=y1%:.8,0..0..b|
000003f0  61 25 f0 26 45 44 2c 62  61 67 25 28 48 61 6e 64  |a%.&ED,bag%(Hand|
00000400  25 29 2c 2d 37 35 34 0d  02 3a 05 f5 0d 02 44 2f  |%),-754..:....D/|
00000410  ef 32 33 2c 32 37 3b 6d  25 28 31 2c 67 25 29 7c  |.23,27;m%(1,g%)||
00000420  3a f0 26 45 44 2c 6d 78  25 28 67 25 2c 48 61 6e  |:.&ED,mx%(g%,Han|
00000430  64 25 29 2c 6d 79 25 28  67 25 29 0d 02 4e 0c f2  |d%),my%(g%)..N..|
00000440  67 65 74 69 6e 66 6f 0d  02 58 0d 44 25 3d a3 3a  |getinfo..X.D%=.:|
00000450  42 25 3d a3 0d 02 62 0d  57 25 3d b9 3a 4b 25 3d  |B%=...b.W%=.:K%=|
00000460  a3 0d 02 6c 0b f2 77 61  6c 74 65 72 0d 02 76 0b  |...l..walter..v.|
00000470  f2 66 6c 69 67 68 74 0d  02 80 14 e7 94 73 78 25  |.flight......sx%|
00000480  3e 36 34 30 f2 63 68 6f  66 73 63 0d 02 8a 16 e7  |>640.chofsc.....|
00000490  ac 57 25 f2 73 70 6c 61  73 68 3a fd a3 3a 8b fd  |.W%.splash:..:..|
000004a0  b9 0d 02 94 0c f2 70 75  74 62 61 63 6b 0d 02 9e  |......putback...|
000004b0  06 fd a3 0d 02 a8 07 f4  20 15 0d 02 b2 04 0d 02  |........ .......|
000004c0  bc 0a dd f2 65 64 69 74  0d 02 c6 0f 65 78 69 74  |....edit....exit|
000004d0  3d a3 3a c8 9e 32 30 0d  02 d0 0e 69 73 6c 61 6e  |=.:..20....islan|
000004e0  64 3d 34 31 32 0d 02 da  15 f4 43 6f 75 72 73 65  |d=412.....Course|
000004f0  24 3d 22 45 44 49 54 4f  52 22 0d 02 e4 b0 ea 66  |$="EDITOR".....f|
00000500  6c 61 67 2c 6d 65 6d 2c  6c 65 6e 2c 70 61 72 2c  |lag,mem,len,par,|
00000510  4e 4f 25 2c 4e 54 25 2c  6f 62 25 2c 63 6c 6f 73  |NO%,NT%,ob%,clos|
00000520  65 64 3a f4 2c 50 54 53  25 28 29 2c 48 58 25 28  |ed:.,PTS%(),HX%(|
00000530  29 2c 48 59 25 28 29 2c  43 4f 25 28 29 2c 54 52  |),HY%(),CO%(),TR|
00000540  58 25 28 29 2c 54 52 59  25 28 29 2c 4f 42 25 28  |X%(),TRY%(),OB%(|
00000550  29 2c 4f 42 24 28 29 3a  44 49 4d 20 4f 42 25 28  |),OB$():DIM OB%(|
00000560  36 29 2c 4f 42 24 28 36  29 2c 54 52 58 25 28 39  |6),OB$(6),TRX%(9|
00000570  36 29 2c 54 52 59 25 28  39 36 29 2c 48 58 25 28  |6),TRY%(96),HX%(|
00000580  32 30 2c 32 30 29 2c 48  59 25 28 32 30 2c 32 30  |20,20),HY%(20,20|
00000590  29 2c 43 4f 25 28 32 30  29 2c 50 54 53 25 28 32  |),CO%(20),PTS%(2|
000005a0  30 29 2c 73 78 25 2c 73  79 25 0d 02 ee 1d 4f 42  |0),sx%,sy%....OB|
000005b0  25 28 30 29 3d 39 3a 4f  42 24 28 30 29 3d 22 52  |%(0)=9:OB$(0)="R|
000005c0  4f 55 47 48 20 20 22 0d  02 f8 1d 4f 42 25 28 31  |OUGH  "....OB%(1|
000005d0  29 3d 37 3a 4f 42 24 28  31 29 3d 22 46 41 49 52  |)=7:OB$(1)="FAIR|
000005e0  57 41 59 22 0d 03 02 1d  4f 42 25 28 32 29 3d 35  |WAY"....OB%(2)=5|
000005f0  3a 4f 42 24 28 32 29 3d  22 47 52 45 45 4e 20 20  |:OB$(2)="GREEN  |
00000600  22 0d 03 0c 1d 4f 42 25  28 33 29 3d 32 3a 4f 42  |"....OB%(3)=2:OB|
00000610  24 28 33 29 3d 22 42 55  4e 4b 45 52 20 22 0d 03  |$(3)="BUNKER "..|
00000620  16 1d 4f 42 25 28 34 29  3d 34 3a 4f 42 24 28 34  |..OB%(4)=4:OB$(4|
00000630  29 3d 22 50 41 54 48 20  20 20 22 0d 03 20 1d 4f  |)="PATH   ".. .O|
00000640  42 25 28 35 29 3d 36 3a  4f 42 24 28 35 29 3d 22  |B%(5)=6:OB$(5)="|
00000650  57 41 54 45 52 20 20 22  0d 03 2a 20 4f 42 25 28  |WATER  "..* OB%(|
00000660  36 29 3d 26 31 30 37 3a  4f 42 24 28 36 29 3d 22  |6)=&107:OB$(6)="|
00000670  54 45 45 20 20 20 20 22  0d 03 34 05 f5 0d 03 3e  |TEE    "..4....>|
00000680  0c 63 6c 6f 73 65 64 3d  b9 0d 03 48 0d f2 73 65  |.closed=...H..se|
00000690  74 6d 61 69 6e 76 0d 03  52 26 6d 61 70 70 6f 69  |tmainv..R&mappoi|
000006a0  6e 74 25 3d 30 3a 6d 61  70 3f 28 6d 61 70 70 6f  |nt%=0:map?(mappo|
000006b0  69 6e 74 25 2b 26 32 46  38 29 3d 31 0d 03 5c 1a  |int%+&2F8)=1..\.|
000006c0  6c 65 6e 3d 35 30 30 3a  70 61 72 3d 34 3a f2 73  |len=500:par=4:.s|
000006d0  74 61 72 74 75 70 0d 03  66 09 f2 67 72 69 64 0d  |tartup..f..grid.|
000006e0  03 70 05 f5 0d 03 7a 0d  f2 63 68 6f 6f 73 65 6f  |.p....z..chooseo|
000006f0  62 0d 03 84 10 e7 6d 65  6d 3c 31 30 ef 37 3a fd  |b.....mem<10.7:.|
00000700  30 0d 03 8e 11 e7 65 78  69 74 20 fd b9 3a fd b9  |0.....exit ..:..|
00000710  3a e1 0d 03 98 0a 6d 65  6d 2d 3d 32 0d 03 a2 0c  |:.....mem-=2....|
00000720  f2 62 75 74 74 28 30 29  0d 03 ac 0c f2 67 65 74  |.butt(0).....get|
00000730  63 65 6e 74 0d 03 b6 18  f2 72 65 71 28 22 44 52  |cent.....req("DR|
00000740  41 57 20 4f 55 54 4c 49  4e 45 22 29 0d 03 c0 39  |AW OUTLINE")...9|
00000750  fb 38 3a f1 8a 30 2c 32  29 22 4c 45 46 54 20 42  |.8:..0,2)"LEFT B|
00000760  55 54 54 4f 4e 20 54 4f  20 46 49 58 20 54 48 45  |UTTON TO FIX THE|
00000770  20 4c 4f 43 41 54 49 4f  4e 20 4f 46 20 41 20 50  | LOCATION OF A P|
00000780  4f 49 4e 54 22 0d 03 ca  44 f1 22 52 49 47 48 54  |OINT"...D."RIGHT|
00000790  20 42 55 54 54 4f 4e 20  54 4f 20 4a 4f 49 4e 20  | BUTTON TO JOIN |
000007a0  45 4e 44 53 20 54 4f 20  43 4f 4d 50 4c 45 54 45  |ENDS TO COMPLETE|
000007b0  20 54 48 45 20 4f 42 4a  45 43 54 20 41 4e 44 20  | THE OBJECT AND |
000007c0  45 58 49 54 22 3a fb 31  33 0d 03 d4 2b 73 78 25  |EXIT":.13...+sx%|
000007d0  3d 2d 48 59 25 28 4e 4f  25 2c 30 29 2a 31 2e 35  |=-HY%(NO%,0)*1.5|
000007e0  3a 73 79 25 3d 2d 48 58  25 28 4e 4f 25 2c 30 29  |:sy%=-HX%(NO%,0)|
000007f0  2a 31 2e 35 0d 03 de 28  f4 4d 4f 56 45 2d 48 59  |*1.5...(.MOVE-HY|
00000800  25 28 4e 4f 25 2c 30 29  2a 31 2e 35 2c 2d 48 58  |%(NO%,0)*1.5,-HX|
00000810  25 28 4e 4f 25 2c 30 29  2a 31 2e 35 0d 03 e8 05  |%(NO%,0)*1.5....|
00000820  f5 0d 03 f2 44 fb 31 33  34 3a fb 31 32 3a ef 32  |....D.134:.12:.2|
00000830  38 2c 30 2c 33 31 2c 37  39 2c 30 3a f1 8a 36 32  |8,0,31,79,0:..62|
00000840  2c 31 29 3b 7e 6d 65 6d  3b 22 20 20 22 3a fb 31  |,1);~mem;"  ":.1|
00000850  33 3a fb 31 33 39 3a ef  32 38 2c 31 2c 33 30 2c  |3:.139:.28,1,30,|
00000860  37 38 2c 32 35 0d 03 fc  08 f2 6d 6f 75 0d 04 06  |78,25.....mou...|
00000870  09 e6 33 2c 31 33 0d 04  10 12 86 73 78 25 2c 73  |..3,13.....sx%,s|
00000880  79 25 2c 58 25 2c 59 25  0d 04 1a 09 c8 96 3a c8  |y%,X%,Y%......:.|
00000890  96 0d 04 24 12 86 73 78  25 2c 73 79 25 2c 58 25  |...$..sx%,sy%,X%|
000008a0  2c 59 25 0d 04 2e 0d e7  59 25 3e 2d 33 36 38 8c  |,Y%.....Y%>-368.|
000008b0  0d 04 38 0a e7 4b 25 3d  34 8c 0d 04 42 0d e7 20  |..8..K%=4...B.. |
000008c0  6d 65 6d 3e 3d 34 8c 0d  04 4c 0f e6 30 2c 4f 42  |mem>=4...L..0,OB|
000008d0  25 28 6f 62 25 29 0d 04  56 10 50 54 53 25 28 4e  |%(ob%)..V.PTS%(N|
000008e0  4f 25 29 2b 3d 31 0d 04  60 24 ec 2d 48 59 25 28  |O%)+=1..`$.-HY%(|
000008f0  4e 4f 25 2c 30 29 2a 31  2e 35 2c 2d 48 58 25 28  |NO%,0)*1.5,-HX%(|
00000900  4e 4f 25 2c 30 29 2a 31  2e 35 0d 04 6a 0c ec 73  |NO%,0)*1.5..j..s|
00000910  78 25 2c 73 79 25 0d 04  74 0d f0 38 35 2c 58 25  |x%,sy%..t..85,X%|
00000920  2c 59 25 0d 04 7e 11 73  78 25 3d 58 25 3a 73 79  |,Y%..~.sx%=X%:sy|
00000930  25 3d 59 25 0d 04 88 09  f2 67 72 69 64 0d 04 92  |%=Y%.....grid...|
00000940  32 f4 4d 4f 56 45 2d 48  59 25 28 4e 4f 25 2c 30  |2.MOVE-HY%(NO%,0|
00000950  29 2a 31 2e 35 2c 2d 48  58 25 28 4e 4f 25 2c 30  |)*1.5,-HX%(NO%,0|
00000960  29 2a 31 2e 35 3a 4d 4f  56 45 58 25 2c 59 25 0d  |)*1.5:MOVEX%,Y%.|
00000970  04 9c 1e 48 58 25 28 4e  4f 25 2c 50 54 53 25 28  |...HX%(NO%,PTS%(|
00000980  4e 4f 25 29 29 3d 2d 59  25 2f 31 2e 35 0d 04 a6  |NO%))=-Y%/1.5...|
00000990  1e 48 59 25 28 4e 4f 25  2c 50 54 53 25 28 4e 4f  |.HY%(NO%,PTS%(NO|
000009a0  25 29 29 3d 2d 58 25 2f  31 2e 35 0d 04 b0 2d f1  |%))=-X%/1.5...-.|
000009b0  8a 35 38 2c 31 29 3b 22  4f 42 4a 45 43 54 20 48  |.58,1);"OBJECT H|
000009c0  41 53 20 22 3b 50 54 53  25 28 4e 4f 25 29 3b 22  |AS ";PTS%(NO%);"|
000009d0  20 50 4f 49 4e 54 53 22  0d 04 ba 0a 6d 65 6d 2d  | POINTS"....mem-|
000009e0  3d 34 0d 04 c4 0c f2 62  75 74 74 28 30 29 0d 04  |=4.....butt(0)..|
000009f0  ce 05 cd 0d 04 d8 05 cd  0d 04 e2 05 cd 0d 04 ec  |................|
00000a00  0f 63 6c 6f 73 65 64 3d  4b 25 3d 31 0d 04 f6 19  |.closed=K%=1....|
00000a10  e7 50 54 53 25 28 4e 4f  25 29 3d 32 30 63 6c 6f  |.PTS%(NO%)=20clo|
00000a20  73 65 64 3d b9 0d 05 00  0b fd 63 6c 6f 73 65 64  |sed=......closed|
00000a30  0d 05 0a 11 e7 50 54 53  25 28 4e 4f 25 29 3e 31  |.....PTS%(NO%)>1|
00000a40  8c 0d 05 14 27 f0 38 35  2c 2d 48 59 25 28 4e 4f  |....'.85,-HY%(NO|
00000a50  25 2c 31 29 2a 31 2e 35  2c 2d 48 58 25 28 4e 4f  |%,1)*1.5,-HX%(NO|
00000a60  25 2c 31 29 2a 31 2e 35  0d 05 1e 0a 4e 4f 25 2b  |%,1)*1.5....NO%+|
00000a70  3d 31 0d 05 28 05 cc 0d  05 32 1d 6d 65 6d 3d 6d  |=1..(....2.mem=m|
00000a80  65 6d 2b 32 2b 34 2a 28  50 54 53 25 28 4e 4f 25  |em+2+4*(PTS%(NO%|
00000a90  29 2b 31 29 0d 05 3c 06  ef 37 0d 05 46 05 cd 0d  |)+1)..<..7..F...|
00000aa0  05 50 0e f2 72 65 64 69  73 70 6c 61 79 0d 05 5a  |.P..redisplay..Z|
00000ab0  06 fd 30 0d 05 64 05 e1  0d 05 6e 04 0d 05 78 0e  |..0..d....n...x.|
00000ac0  dd f2 73 65 74 6d 61 69  6e 76 0d 05 82 14 f2 63  |..setmainv.....c|
00000ad0  6f 6c 6f 75 72 73 28 31  32 29 3a c8 97 ee 0d 05  |olours(12):.....|
00000ae0  8c 22 f4 43 4f 4c 4f 55  52 33 2c 32 30 38 2c 31  |.".COLOUR3,208,1|
00000af0  36 30 2c 31 34 34 3a 52  45 4d 20 46 4c 45 53 48  |60,144:REM FLESH|
00000b00  0d 05 96 21 f4 43 4f 4c  4f 55 52 33 2c 33 32 2c  |...!.COLOUR3,32,|
00000b10  31 34 34 2c 32 30 38 3a  52 45 4d 20 57 41 54 45  |144,208:REM WATE|
00000b20  52 0d 05 a0 04 0d 05 aa  0f fb 30 2c 38 30 2c 38  |R.........0,80,8|
00000b30  30 2c 38 30 0d 05 b4 1b  f2 6d 65 73 62 6f 78 28  |0,80.....mesbox(|
00000b40  30 2c 32 35 36 2c 31 32  37 39 2c 37 36 38 29 0d  |0,256,1279,768).|
00000b50  05 be 19 f2 6d 65 73 62  6f 78 28 30 2c 30 2c 31  |....mesbox(0,0,1|
00000b60  32 37 39 2c 32 35 36 29  0d 05 c8 20 ef 32 34 2c  |279,256)... .24,|
00000b70  31 36 3b 32 37 32 3b 31  32 36 33 3b 31 30 30 37  |16;272;1263;1007|
00000b80  3b 3a e6 31 33 34 3a da  0d 05 d2 19 ef 32 38 2c  |;:.134:......28,|
00000b90  31 2c 33 30 2c 37 38 2c  32 35 3a fb 31 33 39 3a  |1,30,78,25:.139:|
00000ba0  db 0d 05 dc 05 e1 0d 05  e6 04 0d 05 f0 0d dd f2  |................|
00000bb0  73 74 61 72 74 75 70 0d  05 fa 16 68 6f 6c 65 70  |startup....holep|
00000bc0  3d 31 3a f2 72 65 61 64  68 6f 6c 65 32 0d 06 04  |=1:.readhole2...|
00000bd0  05 e1 0d 06 0e 04 0d 06  18 11 dd f2 69 6e 70 75  |............inpu|
00000be0  74 6c 65 6e 67 74 68 0d  06 22 0d f4 2a 46 58 32  |tlength.."..*FX2|
00000bf0  32 39 2c 31 0d 06 2c 05  f5 0d 06 36 05 db 0d 06  |29,1..,....6....|
00000c00  40 6c fb 38 3a f1 8a 30  2c 32 29 22 41 43 43 45  |@l.8:..0,2)"ACCE|
00000c10  50 54 41 42 4c 45 20 52  41 4e 47 45 20 49 53 20  |PTABLE RANGE IS |
00000c20  42 45 54 57 45 45 4e 20  35 30 20 41 4e 44 20 35  |BETWEEN 50 AND 5|
00000c30  30 34 20 59 41 52 44 53  22 27 22 59 4f 55 20 43  |04 YARDS"'"YOU C|
00000c40  41 4e 20 4e 4f 20 4c 4f  4e 47 45 52 20 41 42 4f  |AN NO LONGER ABO|
00000c50  52 54 20 54 48 45 20 27  4e 45 57 27 20 4f 50 54  |RT THE 'NEW' OPT|
00000c60  49 4f 4e 22 bd 37 3a fb  31 33 0d 06 4a 30 e8 8a  |ION".7:.13..J0..|
00000c70  30 2c 30 29 22 50 4c 45  41 53 45 20 45 4e 54 45  |0,0)"PLEASE ENTE|
00000c80  52 20 48 4f 4c 45 20 4c  45 4e 47 54 48 20 7b 59  |R HOLE LENGTH {Y|
00000c90  41 52 44 53 7d 20 22 6c  65 6e 0d 06 54 13 fd 6c  |ARDS} "len..T..l|
00000ca0  65 6e 3e 34 39 80 6c 65  6e 3c 35 30 35 0d 06 5e  |en>49.len<505..^|
00000cb0  0b f2 67 65 74 70 61 72  0d 06 68 14 f4 50 52 4f  |..getpar..h..PRO|
00000cc0  43 77 72 69 6d 61 70 28  6c 65 6e 29 0d 06 72 0c  |Cwrimap(len)..r.|
00000cd0  6d 65 6d 3d 26 32 45 36  0d 06 7c 0e 48 58 25 28  |mem=&2E6..|.HX%(|
00000ce0  30 2c 30 29 3d 30 0d 06  86 13 48 59 25 28 30 2c  |0,0)=0....HY%(0,|
00000cf0  30 29 3d 6c 65 6e 20 81  32 0d 06 90 10 48 58 25  |0)=len .2....HX%|
00000d00  28 30 2c 31 29 3d 31 36  30 0d 06 9a 13 48 59 25  |(0,1)=160....HY%|
00000d10  28 30 2c 31 29 3d 6c 65  6e 2b 34 30 0d 06 a4 11  |(0,1)=len+40....|
00000d20  48 58 25 28 30 2c 32 29  3d 2d 31 36 30 0d 06 ae  |HX%(0,2)=-160...|
00000d30  13 48 59 25 28 30 2c 32  29 3d 6c 65 6e 2b 34 30  |.HY%(0,2)=len+40|
00000d40  0d 06 b8 11 48 58 25 28  30 2c 33 29 3d 2d 31 38  |....HX%(0,3)=-18|
00000d50  30 0d 06 c2 11 48 59 25  28 30 2c 33 29 3d 2d 31  |0....HY%(0,3)=-1|
00000d60  38 30 0d 06 cc 10 48 58  25 28 30 2c 34 29 3d 31  |80....HX%(0,4)=1|
00000d70  38 30 0d 06 d6 11 48 59  25 28 30 2c 34 29 3d 2d  |80....HY%(0,4)=-|
00000d80  31 38 30 0d 06 e0 0c 43  4f 25 28 30 29 3d 39 0d  |180....CO%(0)=9.|
00000d90  06 ea 0d 50 54 53 25 28  30 29 3d 34 0d 06 f4 11  |...PTS%(0)=4....|
00000da0  6d 65 6d 3d 6d 65 6d 2d  35 2a 34 2d 32 0d 06 fe  |mem=mem-5*4-2...|
00000db0  0e dd f2 73 74 61 72 74  75 70 32 0d 07 08 1e ef  |...startup2.....|
00000dc0  32 36 2c 32 34 2c 31 32  3b 32 36 38 3b 31 32 36  |26,24,12;268;126|
00000dd0  37 3b 31 30 31 31 3b 3a  da 0d 07 12 14 c8 91 69  |7;1011;:.......i|
00000de0  73 6c 61 6e 64 2b 6c 65  6e 2c 36 34 30 0d 07 1c  |sland+len,640...|
00000df0  9f fb 31 33 34 3a fb 31  32 3a f1 8a 32 2c 31 29  |..134:.12:..2,1)|
00000e00  3b 6c 65 6e 3b 22 20 59  41 52 44 53 20 3a 20 50  |;len;" YARDS : P|
00000e10  41 52 20 22 3b 70 61 72  3b 22 20 3a 20 48 4f 4c  |AR ";par;" : HOL|
00000e20  45 20 4e 6f 2e 20 22 3b  6d 61 70 3f 28 6d 61 70  |E No. ";map?(map|
00000e30  70 6f 69 6e 74 25 2b 26  32 46 38 29 3b 22 20 3a  |point%+&2F8);" :|
00000e40  20 54 20 58 20 22 3b 3a  50 25 3d 6d 61 70 70 6f  | T X ";:P%=mappo|
00000e50  69 6e 74 25 2b 26 32 45  38 3a f1 3b a4 6d 61 70  |int%+&2E8:.;.map|
00000e60  32 20 81 32 31 3b 22 20  3a 20 54 20 59 20 22 3b  |2 .21;" : T Y ";|
00000e70  a4 6d 61 70 32 20 81 32  31 3b 22 20 3a 20 4d 65  |.map2 .21;" : Me|
00000e80  6d 6f 72 79 20 26 22 3b  7e 6d 65 6d 0d 07 26 19  |mory &";~mem..&.|
00000e90  ef 32 38 2c 31 2c 33 30  2c 37 38 2c 32 35 3a fb  |.28,1,30,78,25:.|
00000ea0  31 33 39 3a db 0d 07 30  06 e6 39 0d 07 3a 1f ec  |139:...0..9..:..|
00000eb0  2d 48 59 25 28 30 2c 30  29 2a 31 2e 35 2c 48 58  |-HY%(0,0)*1.5,HX|
00000ec0  25 28 30 2c 30 29 2a 31  2e 35 0d 07 44 0b e3 54  |%(0,0)*1.5..D..T|
00000ed0  25 3d 31 b8 34 0d 07 4e  1f ec 2d 48 59 25 28 30  |%=1.4..N..-HY%(0|
00000ee0  2c 30 29 2a 31 2e 35 2c  48 58 25 28 30 2c 30 29  |,0)*1.5,HX%(0,0)|
00000ef0  2a 31 2e 35 0d 07 58 24  f0 38 35 2c 2d 48 59 25  |*1.5..X$.85,-HY%|
00000f00  28 30 2c 54 25 29 2a 31  2e 35 2c 48 58 25 28 30  |(0,T%)*1.5,HX%(0|
00000f10  2c 54 25 29 2a 31 2e 35  0d 07 62 05 ed 0d 07 6c  |,T%)*1.5..b....l|
00000f20  22 f0 38 35 2c 2d 48 59  25 28 30 2c 31 29 2a 31  |".85,-HY%(0,1)*1|
00000f30  2e 35 2c 48 58 25 28 30  2c 31 29 2a 31 2e 35 0d  |.5,HX%(0,1)*1.5.|
00000f40  07 76 0c 2a 46 58 32 32  39 2c 30 0d 07 80 05 e1  |.v.*FX229,0.....|
00000f50  0d 07 8a 04 0d 07 94 0c  dd f2 67 65 74 70 61 72  |..........getpar|
00000f60  0d 07 9e 0c ea 6e 70 61  72 2c 41 25 0d 07 a8 0a  |.....npar,A%....|
00000f70  2a 46 58 32 32 39 0d 07  b2 10 ea 85 3a ee 85 ea  |*FX229......:...|
00000f80  3a e5 8d 54 56 48 0d 07  bc 17 c8 99 36 2c 32 32  |:..TVH......6,22|
00000f90  39 2c 30 2c 32 35 35 20  b8 20 2c 41 25 0d 07 c6  |9,0,255 . ,A%...|
00000fa0  09 2a 46 58 31 35 0d 07  d0 07 f5 3a db 0d 07 da  |.*FX15.....:....|
00000fb0  63 fb 38 3a f1 8a 30 2c  32 29 22 54 48 45 20 43  |c.8:..0,2)"THE C|
00000fc0  55 52 52 45 4e 54 20 50  41 52 20 49 53 20 22 3b  |URRENT PAR IS ";|
00000fd0  70 61 72 3b 22 2e 22 27  22 54 48 45 20 41 43 43  |par;"."'"THE ACC|
00000fe0  45 50 54 41 42 4c 45 20  52 41 4e 47 45 20 49 53  |EPTABLE RANGE IS|
00000ff0  20 32 20 54 4f 20 35 22  3a e7 41 25 3d 30 f1 22  | 2 TO 5":.A%=0."|
00001000  45 53 43 41 50 45 20 54  4f 20 41 42 4f 52 54 22  |ESCAPE TO ABORT"|
00001010  0d 07 e4 2b fb 31 33 3a  e8 8a 30 2c 30 29 22 57  |...+.13:..0,0)"W|
00001020  48 41 54 20 49 53 20 54  48 45 20 48 4f 4c 45 20  |HAT IS THE HOLE |
00001030  50 41 52 20 3f 20 22 6e  70 61 72 0d 07 ee 15 e7  |PAR ? "npar.....|
00001040  6e 70 61 72 3c 32 84 6e  70 61 72 3e 35 20 ef 37  |npar<2.npar>5 .7|
00001050  0d 07 f8 12 fd 6e 70 61  72 3e 31 80 6e 70 61 72  |.....npar>1.npar|
00001060  3c 36 0d 08 02 0c 70 61  72 3d 6e 70 61 72 0d 08  |<6....par=npar..|
00001070  0c 20 50 25 3d 6d 61 70  70 6f 69 6e 74 25 2b 26  |. P%=mappoint%+&|
00001080  32 45 38 3a f2 77 72 69  6d 61 70 28 30 29 0d 08  |2E8:.wrimap(0)..|
00001090  16 0d f4 2a 46 58 32 32  39 2c 31 0d 08 20 05 e1  |...*FX229,1.. ..|
000010a0  0d 08 2a 04 0d 08 34 0d  dd f2 67 65 74 63 65 6e  |..*...4...getcen|
000010b0  74 0d 08 3e 22 fb 38 3a  f2 72 65 71 28 22 50 4f  |t..>".8:.req("PO|
000010c0  53 49 54 49 4f 4e 20 43  45 4e 54 52 45 22 29 3a  |SITION CENTRE"):|
000010d0  fb 31 33 0d 08 48 0f 50  54 53 25 28 4e 4f 25 29  |.13..H.PTS%(NO%)|
000010e0  3d 30 0d 08 52 05 f5 0d  08 5c 08 f2 6d 6f 75 0d  |=0..R....\..mou.|
000010f0  08 66 0d e7 59 25 3e 2d  33 36 38 8c 0d 08 70 08  |.f..Y%>-368...p.|
00001100  e7 4b 25 8c 0d 08 7a 0c  63 6c 6f 73 65 64 3d a3  |.K%...z.closed=.|
00001110  0d 08 84 16 48 58 25 28  4e 4f 25 2c 30 29 3d 2d  |....HX%(NO%,0)=-|
00001120  59 25 2f 31 2e 35 0d 08  8e 16 48 59 25 28 4e 4f  |Y%/1.5....HY%(NO|
00001130  25 2c 30 29 3d 2d 58 25  2f 31 2e 35 0d 08 98 05  |%,0)=-X%/1.5....|
00001140  cd 0d 08 a2 05 cd 0d 08  ac 0d fd 63 6c 6f 73 65  |...........close|
00001150  64 3d a3 0d 08 b6 0a 6d  65 6d 2d 3d 34 0d 08 c0  |d=.....mem-=4...|
00001160  0c f2 62 75 74 74 28 30  29 0d 08 ca 05 e1 0d 08  |..butt(0).......|
00001170  d4 04 0d 08 de 0a dd f2  67 72 69 64 0d 08 e8 08  |........grid....|
00001180  e6 30 2c 30 0d 08 f2 0a  ea 58 25 2c 59 25 0d 08  |.0,0.....X%,Y%..|
00001190  fc 0c 58 25 3d 2d 31 35  30 30 0d 09 06 29 ef 32  |..X%=-1500...).2|
000011a0  33 2c 36 2c 26 35 35 2c  26 35 35 2c 26 35 35 2c  |3,6,&55,&55,&55,|
000011b0  26 35 35 2c 26 35 35 2c  26 35 35 2c 26 35 35 2c  |&55,&55,&55,&55,|
000011c0  26 35 35 0d 09 10 05 f5  0d 09 1a 1f ec 58 25 2a  |&55..........X%*|
000011d0  31 2e 35 2c 2d 33 38 34  3a f0 32 39 2c 58 25 2a  |1.5,-384:.29,X%*|
000011e0  31 2e 35 2c 36 34 30 0d  09 24 0a 58 25 2b 3d 35  |1.5,640..$.X%+=5|
000011f0  30 0d 09 2e 0b fd 58 25  3e 36 30 30 0d 09 38 29  |0.....X%>600..8)|
00001200  ef 32 33 2c 36 2c 26 31  31 2c 26 31 31 2c 26 31  |.23,6,&11,&11,&1|
00001210  31 2c 26 31 31 2c 26 31  31 2c 26 31 31 2c 26 31  |1,&11,&11,&11,&1|
00001220  31 2c 26 31 31 0d 09 42  13 e3 59 25 3d 2d 32 30  |1,&11..B..Y%=-20|
00001230  30 b8 32 30 30 88 35 30  0d 09 4c 21 ec 2d 31 30  |0.200.50..L!.-10|
00001240  30 30 2c 59 25 2a 31 2e  35 3a f0 32 39 2c 31 30  |00,Y%*1.5:.29,10|
00001250  30 30 2c 59 25 2a 31 2e  35 0d 09 56 05 ed 0d 09  |00,Y%*1.5..V....|
00001260  60 21 86 30 2c 2d 33 38  34 2c 30 2c 36 34 30 3a  |`!.0,-384,0,640:|
00001270  86 2d 31 35 30 30 2c 30  2c 31 30 30 30 2c 30 0d  |.-1500,0,1000,0.|
00001280  09 6a 13 e6 35 3a c8 8f  30 2c 30 2c 32 35 2a 31  |.j..5:..0,0,25*1|
00001290  2e 35 0d 09 74 0d e6 43  4f 25 28 4e 4f 25 29 0d  |.5..t..CO%(NO%).|
000012a0  09 7e 05 e1 0d 09 88 04  0d 09 92 11 dd f2 73 68  |.~............sh|
000012b0  73 63 28 54 25 2c 43 25  29 0d 09 9c 1e e7 43 25  |sc(T%,C%).....C%|
000012c0  fb 31 32 38 2b 38 3a fb  31 31 3a 8b 20 fb 31 32  |.128+8:.11:. .12|
000012d0  38 2b 31 31 3a fb 38 0d  09 a6 09 c8 8e 54 25 ca  |8+11:.8......T%.|
000012e0  0d 09 b0 1e c9 31 3a f1  8a 33 30 2c 32 29 20 22  |.....1:..30,2) "|
000012f0  44 45 4c 45 54 45 20 4f  42 4a 45 43 54 22 0d 09  |DELETE OBJECT"..|
00001300  ba 1c c9 32 3a f1 8a 33  30 2c 33 29 22 41 4c 54  |...2:..30,3)"ALT|
00001310  45 52 20 4f 42 4a 45 43  54 22 0d 09 c4 1b c9 33  |ER OBJECT".....3|
00001320  3a f1 8a 34 37 2c 32 29  22 53 41 56 45 20 43 4f  |:..47,2)"SAVE CO|
00001330  55 52 53 45 22 0d 09 ce  1b c9 34 3a f1 8a 36 34  |URSE".....4:..64|
00001340  2c 32 29 22 4c 4f 41 44  20 43 4f 55 52 53 45 22  |,2)"LOAD COURSE"|
00001350  0d 09 d8 19 c9 35 3a f1  8a 34 37 2c 33 29 22 52  |.....5:..47,3)"R|
00001360  45 41 44 20 48 4f 4c 45  22 0d 09 e2 1a c9 36 3a  |EAD HOLE".....6:|
00001370  f1 8a 36 34 2c 33 29 22  57 52 49 54 45 20 48 4f  |..64,3)"WRITE HO|
00001380  4c 45 22 0d 09 ec 16 c9  37 3a f1 8a 34 37 2c 34  |LE".....7:..47,4|
00001390  29 22 49 53 4c 41 4e 44  22 0d 09 f6 1a c9 38 3a  |)"ISLAND".....8:|
000013a0  f1 8a 36 34 2c 34 29 22  27 4e 45 57 27 20 48 4f  |..64,4)"'NEW' HO|
000013b0  4c 45 22 0d 0a 00 1f c9  39 3a f1 8a 34 37 2c 35  |LE".....9:..47,5|
000013c0  29 22 49 4e 53 45 52 54  20 54 52 45 45 53 22 bd  |)"INSERT TREES".|
000013d0  33 30 0d 0a 0a 1d c9 31  30 3a f1 8a 36 34 2c 35  |30.....10:..64,5|
000013e0  29 22 56 49 45 57 20 48  4f 4c 45 22 bd 33 30 0d  |)"VIEW HOLE".30.|
000013f0  0a 14 1a c9 31 31 3a f1  8a 33 30 2c 34 29 22 41  |....11:..30,4)"A|
00001400  4c 54 45 52 20 50 41 52  22 0d 0a 1e 1d c9 31 32  |LTER PAR".....12|
00001410  3a f1 8a 33 30 2c 35 29  22 41 4c 54 45 52 20 4e  |:..30,5)"ALTER N|
00001420  6f 2e 22 bd 33 30 0d 0a  28 1e c9 31 33 3a f1 8a  |o.".30..(..13:..|
00001430  39 2c 35 29 22 45 58 49  54 20 45 44 49 54 4f 52  |9,5)"EXIT EDITOR|
00001440  22 bd 33 30 0d 0a 32 05  cb 0d 0a 3c 0f fb 31 32  |".30..2....<..12|
00001450  38 2b 31 31 3a fb 31 33  0d 0a 46 05 e1 0d 0a 50  |8+11:.13..F....P|
00001460  04 0d 0a 5a 0e dd f2 63  68 6f 6f 73 65 6f 62 0d  |...Z...chooseob.|
00001470  0a 64 0a 64 6f 62 25 3d  b9 0d 0a 6e 05 f5 0d 0a  |.d.dob%=...n....|
00001480  78 0d f2 73 68 6f 77 63  6f 6c 73 0d 0a 82 29 fb  |x..showcols...).|
00001490  31 35 3a f1 8a 32 2c 32  29 22 48 4f 4c 45 44 20  |15:..2,2)"HOLED |
000014a0  4f 55 54 20 43 4f 55 52  53 45 20 44 45 53 49 47  |OUT COURSE DESIG|
000014b0  4e 45 52 22 0d 0a 8c 1b  f1 8a 36 2c 33 29 22 45  |NER"......6,3)"E|
000014c0  44 49 54 49 4e 47 20 22  43 6f 75 72 73 65 24 0d  |DITING "Course$.|
000014d0  0a 96 04 0d 0a a0 1a e3  54 25 3d 31 b8 31 33 3a  |........T%=1.13:|
000014e0  f2 73 68 73 63 28 54 25  2c a3 29 3a ed 0d 0a aa  |.shsc(T%,.):....|
000014f0  09 6f 62 25 3d b9 0d 0a  b4 0b 6f 64 6f 62 25 3d  |.ob%=.....odob%=|
00001500  31 0d 0a be 0b 6f 62 6f  62 25 3d 30 0d 0a c8 05  |1....obob%=0....|
00001510  f5 0d 0a d2 09 2a 46 58  31 35 0d 0a dc 0e c8 97  |.....*FX15......|
00001520  58 25 2c 59 25 2c 4b 25  0d 0a e6 1b e7 59 25 2b  |X%,Y%,K%.....Y%+|
00001530  36 34 30 3e 31 39 33 80  59 25 2b 36 34 30 3c 32  |640>193.Y%+640<2|
00001540  32 34 8c 0d 0a f0 1f 64  6f 62 25 3d 28 58 25 2d  |24.....dob%=(X%-|
00001550  34 38 2b 69 73 6c 61 6e  64 2b 6c 65 6e 29 81 31  |48+island+len).1|
00001560  37 36 0d 0a f1 1a e7 69  73 6c 61 6e 64 3c 30 80  |76.....island<0.|
00001570  64 6f 62 25 3e 30 64 6f  62 25 3d b9 0d 0a fa 18  |dob%>0dob%=.....|
00001580  e7 67 72 65 65 6e 20 80  64 6f 62 25 3d 32 64 6f  |.green .dob%=2do|
00001590  62 25 3d b9 0d 0b 04 16  e7 74 65 65 20 80 64 6f  |b%=......tee .do|
000015a0  62 25 3d 36 64 6f 62 25  3d b9 0d 0b 0e 25 e7 28  |b%=6dob%=....%.(|
000015b0  58 25 2d 34 38 2b 69 73  6c 61 6e 64 2b 6c 65 6e  |X%-48+island+len|
000015c0  29 83 31 37 36 3e 31 31  32 64 6f 62 25 3d b9 0d  |).176>112dob%=..|
000015d0  0b 18 19 e7 64 6f 62 25  3c 3e b9 20 f2 73 63 32  |....dob%<>. .sc2|
000015e0  28 a3 2c 64 6f 62 25 29  0d 0b 22 28 e7 64 6f 62  |(.,dob%).."(.dob|
000015f0  25 3c 3e 6f 64 6f 62 25  f2 73 63 32 28 b9 2c 6f  |%<>odob%.sc2(.,o|
00001600  64 6f 62 25 29 3a 6f 64  6f 62 25 3d 64 6f 62 25  |dob%):odob%=dob%|
00001610  0d 0b 2c 11 e7 4b 25 80  64 6f 62 25 3c 3e b9 20  |..,..K%.dob%<>. |
00001620  8c 0d 0b 36 0c 6f 62 25  3d 64 6f 62 25 0d 0b 40  |...6.ob%=dob%..@|
00001630  1c f2 73 68 6f 77 63 68  6f 73 65 6e 3a e6 4f 42  |..showchosen:.OB|
00001640  25 28 6f 62 25 29 3a ef  37 0d 0b 4a 07 fb 31 32  |%(ob%):.7..J..12|
00001650  0d 0b 54 05 cd 0d 0b 5e  05 cc 0d 0b 68 20 e7 64  |..T....^....h .d|
00001660  6f 62 25 3c 3e b9 3a f2  73 63 32 28 b9 2c 64 6f  |ob%<>.:.sc2(.,do|
00001670  62 25 29 3a 64 6f 62 25  3d b9 0d 0b 72 05 cd 0d  |b%):dob%=...r...|
00001680  0b 7c 0a e7 6f 62 25 3d  b9 0d 0b 86 1b 62 58 25  |.|..ob%=.....bX%|
00001690  3d 28 58 25 2d 31 36 30  2b 69 73 6c 61 6e 64 2b  |=(X%-160+island+|
000016a0  6c 65 6e 29 0d 0b 90 0a  62 6f 62 25 3d a3 0d 0b  |len)....bob%=...|
000016b0  91 41 e7 59 25 3c 2d 35  37 34 80 59 25 3e 2d 36  |.A.Y%<-574.Y%>-6|
000016c0  30 36 80 62 58 25 3e 36  31 30 80 62 58 25 3c 38  |06.bX%>610.bX%<8|
000016d0  30 30 3a 62 6f 62 25 3d  39 3a e7 4b 25 f2 69 6e  |00:bob%=9:.K%.in|
000016e0  73 65 72 74 74 72 65 65  73 3a fd b9 3a fd 30 0d  |serttrees:..:.0.|
000016f0  0b 92 40 e7 59 25 3e 2d  35 37 37 80 59 25 3c 2d  |..@.Y%>-577.Y%<-|
00001700  35 34 34 80 62 58 25 3e  36 31 30 80 62 58 25 3c  |544.bX%>610.bX%<|
00001710  37 30 34 3a 62 6f 62 25  3d 37 3a e7 4b 25 f2 64  |704:bob%=7:.K%.d|
00001720  72 61 77 69 73 6c 61 6e  64 3a fd b9 3a fd 30 0d  |rawisland:..:.0.|
00001730  0b 93 12 e7 69 73 6c 61  6e 64 3c 30 8c 8d 54 5c  |....island<0..T\|
00001740  4c 0d 0b 9a 48 e7 59 25  3e 2d 35 37 37 80 59 25  |L...H.Y%>-577.Y%|
00001750  3c 2d 35 34 34 80 62 58  25 3e 33 33 34 80 62 58  |<-544.bX%>334.bX|
00001760  25 3c 34 38 30 3a 62 6f  62 25 3d 31 31 3a e7 4b  |%<480:bob%=11:.K|
00001770  25 f2 67 65 74 70 61 72  3a f2 72 65 64 69 73 70  |%.getpar:.redisp|
00001780  6c 61 79 3a fd b9 3a fd  30 0d 0b a4 4b e7 59 25  |lay:..:.0...K.Y%|
00001790  3e 2d 36 30 36 80 59 25  3c 2d 35 37 34 80 62 58  |>-606.Y%<-574.bX|
000017a0  25 3e 33 33 34 80 62 58  25 3c 34 38 30 3a 62 6f  |%>334.bX%<480:bo|
000017b0  62 25 3d 31 32 3a e7 4b  25 f2 67 65 74 68 6f 6c  |b%=12:.K%.gethol|
000017c0  65 6e 6f 3a f2 72 65 64  69 73 70 6c 61 79 3a fd  |eno:.redisplay:.|
000017d0  b9 3a fd 30 0d 0b ae 42  e7 59 25 3e 2d 35 31 33  |.:.0...B.Y%>-513|
000017e0  80 59 25 3c 2d 34 38 31  80 62 58 25 3e 33 33 34  |.Y%<-481.bX%>334|
000017f0  80 62 58 25 3c 35 34 31  80 4e 4f 25 3e 31 3a 62  |.bX%<541.NO%>1:b|
00001800  6f 62 25 3d 31 3a e7 4b  25 f2 64 65 6c 65 74 65  |ob%=1:.K%.delete|
00001810  3a fd b9 3a fd 30 0d 0b  b8 41 e7 59 25 3e 2d 35  |:..:.0...A.Y%>-5|
00001820  34 35 80 59 25 3c 2d 35  31 32 80 62 58 25 3e 33  |45.Y%<-512.bX%>3|
00001830  33 34 80 62 58 25 3c 35  32 36 80 4e 4f 25 3e 31  |34.bX%<526.NO%>1|
00001840  3a 62 6f 62 25 3d 32 3a  e7 4b 25 f2 61 6c 74 65  |:bob%=2:.K%.alte|
00001850  72 3a fd b9 3a fd 30 0d  0b c2 40 e7 59 25 3e 2d  |r:..:.0...@.Y%>-|
00001860  35 31 33 80 59 25 3c 2d  34 38 31 80 62 58 25 3e  |513.Y%<-481.bX%>|
00001870  36 31 30 80 62 58 25 3c  37 38 32 3a 62 6f 62 25  |610.bX%<782:bob%|
00001880  3d 33 3a e7 4b 25 f2 73  61 76 65 63 6f 75 72 73  |=3:.K%.savecours|
00001890  65 3a fd b9 3a fd 30 0d  0b cc 41 e7 59 25 3e 2d  |e:..:.0...A.Y%>-|
000018a0  35 31 33 80 59 25 3c 2d  34 38 31 80 62 58 25 3e  |513.Y%<-481.bX%>|
000018b0  38 38 30 80 62 58 25 3c  31 30 35 36 3a 62 6f 62  |880.bX%<1056:bob|
000018c0  25 3d 34 3a e7 4b 25 f2  6c 6f 61 64 63 6f 75 72  |%=4:.K%.loadcour|
000018d0  73 65 3a fd b9 3a fd 30  0d 0b d6 3e e7 59 25 3e  |se:..:.0...>.Y%>|
000018e0  2d 35 34 35 80 59 25 3c  2d 35 31 32 80 62 58 25  |-545.Y%<-512.bX%|
000018f0  3e 36 31 30 80 62 58 25  3c 37 35 32 3a 62 6f 62  |>610.bX%<752:bob|
00001900  25 3d 35 3a e7 4b 25 f2  72 65 61 64 68 6f 6c 65  |%=5:.K%.readhole|
00001910  3a fd b9 3a fd 30 0d 0b  e0 40 e7 59 25 3e 2d 35  |:..:.0...@.Y%>-5|
00001920  34 35 80 59 25 3c 2d 35  31 32 80 62 58 25 3e 38  |45.Y%<-512.bX%>8|
00001930  38 30 80 62 58 25 3c 31  30 34 30 3a 62 6f 62 25  |80.bX%<1040:bob%|
00001940  3d 36 3a e7 4b 25 f2 77  72 69 74 65 68 6f 6c 65  |=6:.K%.writehole|
00001950  3a fd b9 3a fd 30 0d 0b  ea 85 e7 59 25 3c 2d 35  |:..:.0.....Y%<-5|
00001960  37 34 80 59 25 3e 2d 36  30 36 80 62 58 25 3e 38  |74.Y%>-606.bX%>8|
00001970  38 38 80 62 58 25 3c 31  30 32 34 3a 62 6f 62 25  |88.bX%<1024:bob%|
00001980  3d 31 30 3a e7 4b 25 49  6e 65 64 69 74 6f 72 3d  |=10:.K%Ineditor=|
00001990  b9 3a f2 64 72 61 77 6d  61 70 28 30 29 3a 49 6e  |.:.drawmap(0):In|
000019a0  65 64 69 74 6f 72 3d a3  3a ef 34 3a f2 73 65 74  |editor=.:.4:.set|
000019b0  6d 61 69 6e 76 3a f2 73  74 61 72 74 75 70 32 3a  |mainv:.startup2:|
000019c0  f2 72 65 64 69 73 70 6c  61 79 3a ff 22 46 58 32  |.redisplay:."FX2|
000019d0  32 39 2c 31 22 3a fd b9  3a fd 30 0d 0b f4 58 f4  |29,1":..:.0...X.|
000019e0  49 46 59 25 3c 2d 35 37  34 41 4e 44 59 25 3e 2d  |IFY%<-574ANDY%>-|
000019f0  36 30 36 41 4e 44 62 58  25 3e 36 31 30 41 4e 44  |606ANDbX%>610AND|
00001a00  62 58 25 3c 38 30 30 3a  62 6f 62 25 3d 39 3a 49  |bX%<800:bob%=9:I|
00001a10  46 4b 25 50 52 4f 43 69  6e 73 65 72 74 74 72 65  |FK%PROCinserttre|
00001a20  65 73 3a 55 4e 54 49 4c  54 52 55 45 3a 55 4e 54  |es:UNTILTRUE:UNT|
00001a30  49 4c 30 0d 0b fe 3c e7  59 25 3c 2d 35 37 34 80  |IL0...<.Y%<-574.|
00001a40  59 25 3e 2d 36 30 36 80  62 58 25 3e 32 80 62 58  |Y%>-606.bX%>2.bX|
00001a50  25 3c 31 37 32 3a 62 6f  62 25 3d 31 33 3a e7 4b  |%<172:bob%=13:.K|
00001a60  25 65 78 69 74 3d b9 3a  fd b9 3a fd b9 3a e1 0d  |%exit=.:..:..:..|
00001a70  0c 08 40 e7 59 25 3e 2d  35 37 37 80 59 25 3c 2d  |..@.Y%>-577.Y%<-|
00001a80  35 34 34 80 62 58 25 3e  36 31 30 80 62 58 25 3c  |544.bX%>610.bX%<|
00001a90  37 30 34 3a 62 6f 62 25  3d 37 3a e7 4b 25 f2 64  |704:bob%=7:.K%.d|
00001aa0  72 61 77 69 73 6c 61 6e  64 3a fd b9 3a fd 30 0d  |rawisland:..:.0.|
00001ab0  0c 12 3c e7 59 25 3e 2d  35 37 37 80 59 25 3c 2d  |..<.Y%>-577.Y%<-|
00001ac0  35 34 34 80 62 58 25 3e  38 38 30 80 62 58 25 3c  |544.bX%>880.bX%<|
00001ad0  31 30 34 30 3a 62 6f 62  25 3d 38 3a e7 4b 25 f2  |1040:bob%=8:.K%.|
00001ae0  6e 65 77 69 74 3a fd b9  3a fd 30 0d 0c 1c 26 e7  |newit:..:.0...&.|
00001af0  62 6f 62 25 3c 3e 6f 62  6f 62 25 f2 73 68 73 63  |bob%<>obob%.shsc|
00001b00  28 6f 62 6f 62 25 2c a3  29 3a 6f 62 6f 62 25 3d  |(obob%,.):obob%=|
00001b10  30 0d 0c 26 21 e7 62 6f  62 25 f2 73 68 73 63 28  |0..&!.bob%.shsc(|
00001b20  62 6f 62 25 2c b9 29 3a  6f 62 6f 62 25 3d 62 6f  |bob%,.):obob%=bo|
00001b30  62 25 0d 0c 30 05 cd 0d  0c 3a 26 f4 50 52 49 4e  |b%..0....:&.PRIN|
00001b40  54 54 41 42 28 30 2c 34  29 59 25 2c 58 25 2d 34  |TTAB(0,4)Y%,X%-4|
00001b50  38 2b 69 73 6c 61 6e 64  2b 6c 65 6e 3b 0d 0c 44  |8+island+len;..D|
00001b60  0b fd 6f 62 25 3c 3e b9  0d 0c 4e 15 43 4f 25 28  |..ob%<>...N.CO%(|
00001b70  4e 4f 25 29 3d 4f 42 25  28 6f 62 25 29 0d 0c 58  |NO%)=OB%(ob%)..X|
00001b80  15 e7 6f 62 25 3d 36 f2  64 72 61 77 74 65 65 3a  |..ob%=6.drawtee:|
00001b90  fd 30 0d 0c 62 17 e7 6f  62 25 3d 32 f2 64 72 61  |.0..b..ob%=2.dra|
00001ba0  77 67 72 65 65 6e 3a fd  30 0d 0c 6c 06 fd b9 0d  |wgreen:.0..l....|
00001bb0  0c 76 05 e1 0d 0c 80 04  0d 0c 8a 12 dd f2 73 63  |.v............sc|
00001bc0  32 28 43 25 2c 64 6f 62  25 29 0d 0c 94 0d e7 64  |2(C%,dob%).....d|
00001bd0  6f 62 25 3d b9 20 e1 0d  0c 9e 28 e7 43 25 3d 30  |ob%=. ....(.C%=0|
00001be0  80 28 28 64 6f 62 25 3d  32 80 67 72 65 65 6e 29  |.((dob%=2.green)|
00001bf0  84 28 64 6f 62 25 3d 36  80 74 65 65 29 29 e1 0d  |.(dob%=6.tee))..|
00001c00  0c a8 2f e7 43 25 20 fb  31 32 38 2b 31 31 3a fb  |../.C% .128+11:.|
00001c10  4f 42 25 28 64 6f 62 25  29 20 8b 20 fb 31 32 38  |OB%(dob%) . .128|
00001c20  2b 4f 42 25 28 64 6f 62  25 29 3a fb 31 31 0d 0c  |+OB%(dob%):.11..|
00001c30  b2 1c f1 8a 64 6f 62 25  2a 31 31 2b 32 2c 30 29  |....dob%*11+2,0)|
00001c40  4f 42 24 28 64 6f 62 25  29 3b 0d 0c bc 0f fb 31  |OB$(dob%);.....1|
00001c50  32 38 2b 31 31 3a fb 31  33 0d 0c c6 05 e1 0d 0c  |28+11:.13.......|
00001c60  d0 04 0d 0c da 10 dd f2  64 72 61 77 69 73 6c 61  |........drawisla|
00001c70  6e 64 0d 0c e4 17 69 73  6c 61 6e 64 3d 69 73 6c  |nd....island=isl|
00001c80  61 6e 64 20 82 2d 33 34  38 0d 0c ee 0e f2 72 65  |and .-348.....re|
00001c90  64 69 73 70 6c 61 79 0d  0c f8 05 e1 0d 0d 02 04  |display.........|
00001ca0  0d 0d 0c 0b dd f2 6e 65  77 69 74 0d 0d 16 07 ea  |......newit.....|
00001cb0  41 24 0d 0d 20 0a 2a 46  58 32 32 39 0d 0d 2a 10  |A$.. .*FX229..*.|
00001cc0  ea 85 3a ee 85 ea 3a e5  8d 74 58 4d 0d 0d 34 05  |..:...:..tXM..4.|
00001cd0  db 0d 0d 3e 26 f1 22 4e  45 57 20 2d 2d 2d 2d 20  |...>&."NEW ---- |
00001ce0  41 52 45 20 59 4f 55 20  53 55 52 45 20 5b 59 2f  |ARE YOU SURE [Y/|
00001cf0  4e 5d 20 3f 22 bd 37 0d  0d 48 6a fb 38 3a f1 27  |N] ?".7..Hj.8:.'|
00001d00  22 27 4e 45 57 27 20 57  49 4c 4c 20 50 52 4f 44  |"'NEW' WILL PROD|
00001d10  55 43 45 20 41 20 42 4c  41 4e 4b 20 48 4f 4c 45  |UCE A BLANK HOLE|
00001d20  20 54 45 4d 50 4c 41 54  45 20 44 45 53 54 52 4f  | TEMPLATE DESTRO|
00001d30  59 49 4e 47 20 54 48 45  20 43 55 52 52 45 4e 54  |YING THE CURRENT|
00001d40  20 48 4f 4c 45 20 44 41  54 41 22 27 22 45 53 43  | HOLE DATA"'"ESC|
00001d50  41 50 45 20 54 4f 20 41  42 4f 52 54 22 3a fb 31  |APE TO ABORT":.1|
00001d60  33 0d 0d 52 09 2a 46 58  31 35 0d 0d 5c 53 f5 3a  |3..R.*FX15..\S.:|
00001d70  41 24 3d bf 28 30 29 3a  fd 41 24 3c 3e 22 22 3a  |A$=.(0):.A$<>"":|
00001d80  f4 20 42 55 47 20 49 4e  20 42 41 53 49 43 20 50  |. BUG IN BASIC P|
00001d90  52 45 56 45 4e 54 53 20  55 53 45 20 4f 46 20 47  |REVENTS USE OF G|
00001da0  45 54 20 57 49 54 48 20  41 20 4c 4f 43 41 4c 20  |ET WITH A LOCAL |
00001db0  45 52 52 4f 52 20 48 41  4e 44 4c 45 52 0d 0d 66  |ERROR HANDLER..f|
00001dc0  15 e7 41 24 3c 3e 22 59  22 80 41 24 3c 3e 22 79  |..A$<>"Y".A$<>"y|
00001dd0  22 e1 0d 0d 70 11 74 65  65 3d a3 3a 67 72 65 65  |"...p.tee=.:gree|
00001de0  6e 3d a3 0d 0d 7a 10 f2  69 6e 70 75 74 6c 65 6e  |n=...z..inputlen|
00001df0  67 74 68 0d 0d 84 0f 4e  4f 25 3d 31 3a 4e 54 25  |gth....NO%=1:NT%|
00001e00  3d b9 0d 0d 8e 09 f2 67  72 69 64 0d 0d 98 0d f4  |=......grid.....|
00001e10  2a 46 58 32 32 39 2c 31  0d 0d a2 05 e1 0d 0d ac  |*FX229,1........|
00001e20  04 0d 0d b6 0f dd f2 77  72 69 74 65 68 6f 6c 65  |.......writehole|
00001e30  0d 0d c0 0c ea 67 70 25  2c 74 70 25 0d 0d ca 05  |.....gp%,tp%....|
00001e40  db 0d 0d d4 25 f1 22 57  52 49 54 49 4e 47 20 48  |....%."WRITING H|
00001e50  4f 4c 45 20 22 3b 6d 61  70 70 6f 69 6e 74 25 81  |OLE ";mappoint%.|
00001e60  26 33 30 30 2b 31 0d 0d  de 1d f1 22 41 52 45 20  |&300+1....."ARE |
00001e70  59 4f 55 20 53 55 52 45  20 5b 59 2f 4e 5d 20 3f  |YOU SURE [Y/N] ?|
00001e80  22 bd 37 0d 0d e8 3e fb  38 3a f1 27 22 49 54 20  |".7...>.8:.'"IT |
00001e90  49 53 20 4e 45 43 43 45  53 53 41 52 59 20 54 4f  |IS NECCESSARY TO|
00001ea0  20 57 52 49 54 45 20 54  48 45 20 48 4f 4c 45 20  | WRITE THE HOLE |
00001eb0  44 41 54 41 20 49 4e 54  4f 20 4d 45 4d 4f 52 59  |DATA INTO MEMORY|
00001ec0  22 0d 0d f2 45 f1 22 42  45 46 4f 52 45 20 49 54  |"...E."BEFORE IT|
00001ed0  20 43 41 4e 20 42 45 20  53 41 56 45 44 20 54 4f  | CAN BE SAVED TO|
00001ee0  20 44 49 53 43 20 4f 52  20 42 45 46 4f 52 45 20  | DISC OR BEFORE |
00001ef0  55 53 49 4e 47 20 27 56  49 45 57 20 48 4f 4c 45  |USING 'VIEW HOLE|
00001f00  27 22 3a fb 31 33 0d 0d  fc 09 2a 46 58 31 35 0d  |'":.13....*FX15.|
00001f10  0e 06 0a 2a 46 58 32 32  39 0d 0e 10 10 ea 85 3a  |...*FX229......:|
00001f20  ee 85 ea 3a e5 8d 74 4c  4f 0d 0e 1a 05 f5 0d 0e  |...:..tLO.......|
00001f30  24 0b 41 24 3d bf 28 30  29 0d 0e 2e 0b fd 41 24  |$.A$=.(0).....A$|
00001f40  3c 3e 22 22 0d 0e 38 19  e7 41 24 3c 3e 22 59 22  |<>""..8..A$<>"Y"|
00001f50  80 41 24 3c 3e 22 79 22  e5 8d 74 4c 4f 0d 0e 42  |.A$<>"y"..tLO..B|
00001f60  08 50 25 3d 30 0d 0e 4c  5c f2 76 65 72 69 66 79  |.P%=0..L\.verify|
00001f70  3a e7 50 25 3e 26 32 45  38 20 ef 37 3a f1 22 45  |:.P%>&2E8 .7:."E|
00001f80  52 52 4f 52 20 4d 45 4d  4f 52 59 20 41 42 4f 55  |RROR MEMORY ABOU|
00001f90  54 20 54 4f 20 42 45 20  4f 56 45 52 57 52 49 54  |T TO BE OVERWRIT|
00001fa0  54 45 4e 21 21 22 27 22  50 52 45 53 53 20 53 50  |TEN!!"'"PRESS SP|
00001fb0  41 43 45 22 3a f5 fd a5  3d 33 32 3a e5 8d 74 4c  |ACE":...=32:..tL|
00001fc0  4f 0d 0e 56 0f 67 70 25  3d 30 3a 74 70 25 3d 30  |O..V.gp%=0:tp%=0|
00001fd0  0d 0e 60 0f e3 54 25 3d  31 b8 4e 4f 25 2d 31 0d  |..`..T%=1.NO%-1.|
00001fe0  0e 6a 17 e7 43 4f 25 28  54 25 29 3d 26 31 30 37  |.j..CO%(T%)=&107|
00001ff0  20 74 70 25 3d b9 0d 0e  74 15 e7 43 4f 25 28 54  | tp%=...t..CO%(T|
00002000  25 29 3d 35 20 67 70 25  3d 54 25 0d 0e 7e 05 ed  |%)=5 gp%=T%..~..|
00002010  0d 0e 88 70 e7 67 70 25  3d a3 20 db 3a fb 38 3a  |...p.gp%=. .:.8:|
00002020  f1 8a 30 2c 31 29 22 54  48 45 52 45 20 49 53 20  |..0,1)"THERE IS |
00002030  4e 4f 20 47 52 45 45 4e  20 54 48 45 52 45 46 4f  |NO GREEN THEREFO|
00002040  52 45 20 49 20 43 41 4e  27 54 20 57 52 49 54 45  |RE I CAN'T WRITE|
00002050  20 54 48 49 53 20 48 4f  4c 45 21 22 27 22 50 4c  | THIS HOLE!"'"PL|
00002060  45 41 53 45 20 50 52 45  53 53 20 53 50 41 43 45  |EASE PRESS SPACE|
00002070  22 bd 37 3a f5 fd a6 2d  39 39 3a e5 8d 74 4c 4f  |".7:...-99:..tLO|
00002080  0d 0e 92 6e e7 74 70 25  3d a3 20 db 3a fb 38 3a  |...n.tp%=. .:.8:|
00002090  f1 8a 30 2c 31 29 22 54  48 45 52 45 20 49 53 20  |..0,1)"THERE IS |
000020a0  4e 4f 20 54 45 45 20 54  48 45 52 45 46 4f 52 45  |NO TEE THEREFORE|
000020b0  20 49 20 43 41 4e 27 54  20 57 52 49 54 45 20 54  | I CAN'T WRITE T|
000020c0  48 49 53 20 48 4f 4c 45  21 22 27 22 50 4c 45 41  |HIS HOLE!"'"PLEA|
000020d0  53 45 20 50 52 45 53 53  20 53 50 41 43 45 22 bd  |SE PRESS SPACE".|
000020e0  37 3a f5 fd a6 2d 39 39  3a e5 8d 74 4c 4f 0d 0e  |7:...-99:..tLO..|
000020f0  9c 11 e7 20 67 70 25 3c  3e 4e 4f 25 2d 31 8c 0d  |... gp%<>NO%-1..|
00002100  0e a6 13 58 25 3d 67 70  25 3a f2 64 65 6c 65 74  |...X%=gp%:.delet|
00002110  65 32 0d 0e b0 0f f2 64  72 61 77 67 72 65 65 6e  |e2.....drawgreen|
00002120  32 0d 0e ba 05 cd 0d 0e  c4 33 50 25 3d 6d 61 70  |2........3P%=map|
00002130  70 6f 69 6e 74 25 2b 26  32 45 38 3a f2 77 72 69  |point%+&2E8:.wri|
00002140  6d 61 70 28 74 65 65 59  25 29 3a f2 77 72 69 6d  |map(teeY%):.wrim|
00002150  61 70 28 74 65 65 58 25  29 0d 0e ce 10 50 25 3d  |ap(teeX%)....P%=|
00002160  6d 61 70 70 6f 69 6e 74  25 0d 0e d8 54 41 25 3d  |mappoint%...TA%=|
00002170  a0 28 22 26 22 2b c3 28  a4 64 69 73 74 61 6e 63  |.("&"+.(.distanc|
00002180  65 28 74 65 65 58 25 2c  74 65 65 59 25 29 29 29  |e(teeX%,teeY%)))|
00002190  3a 6d 61 70 3f 28 50 25  2b 26 32 46 41 29 3d 41  |:map?(P%+&2FA)=A|
000021a0  25 3a 6d 61 70 3f 28 6d  61 70 70 6f 69 6e 74 25  |%:map?(mappoint%|
000021b0  2b 26 32 46 42 29 3d 41  25 81 32 35 36 0d 0e e2  |+&2FB)=A%.256...|
000021c0  15 6d 61 70 3f 28 50 25  2b 26 32 46 39 29 3d 70  |.map?(P%+&2F9)=p|
000021d0  61 72 0d 0e ec 26 6d 61  70 3f 28 50 25 2b 26 32  |ar...&map?(P%+&2|
000021e0  46 38 29 3d 68 6f 6c 65  70 20 83 31 39 2d 28 68  |F8)=holep .19-(h|
000021f0  6f 6c 65 70 3e 31 38 29  0d 0e f6 13 f2 77 72 69  |olep>18).....wri|
00002200  6d 61 70 31 28 4e 54 25  2b 31 29 0d 0f 00 0d e3  |map1(NT%+1).....|
00002210  54 25 3d 30 b8 4e 54 25  0d 0f 0a 15 f2 77 72 69  |T%=0.NT%.....wri|
00002220  6d 61 70 28 54 52 58 25  28 54 25 29 29 0d 0f 14  |map(TRX%(T%))...|
00002230  15 f2 77 72 69 6d 61 70  28 54 52 59 25 28 54 25  |..wrimap(TRY%(T%|
00002240  29 29 0d 0f 1e 05 ed 0d  0f 28 11 f2 77 72 69 6d  |)).......(..wrim|
00002250  61 70 31 28 4e 4f 25 29  0d 0f 32 0f e3 54 25 3d  |ap1(NO%)..2..T%=|
00002260  30 b8 4e 4f 25 2d 31 0d  0f 3c 18 43 25 3d 43 4f  |0.NO%-1..<.C%=CO|
00002270  25 28 54 25 29 3a e7 43  25 3d 32 43 25 3d 31 0d  |%(T%):.C%=2C%=1.|
00002280  0f 46 10 f2 77 72 69 6d  61 70 31 28 43 25 29 0d  |.F..wrimap1(C%).|
00002290  0f 50 16 f2 77 72 69 6d  61 70 31 28 50 54 53 25  |.P..wrimap1(PTS%|
000022a0  28 54 25 29 29 0d 0f 5a  12 e3 49 25 3d 30 b8 50  |(T%))..Z..I%=0.P|
000022b0  54 53 25 28 54 25 29 0d  0f 64 17 f2 77 72 69 6d  |TS%(T%)..d..wrim|
000022c0  61 70 28 48 58 25 28 54  25 2c 49 25 29 29 0d 0f  |ap(HX%(T%,I%))..|
000022d0  6e 17 f2 77 72 69 6d 61  70 28 48 59 25 28 54 25  |n..wrimap(HY%(T%|
000022e0  2c 49 25 29 29 0d 0f 78  05 ed 0d 0f 82 05 ed 0d  |,I%))..x........|
000022f0  0f 8c 0d f4 2a 46 58 32  32 39 2c 31 0d 0f 96 05  |....*FX229,1....|
00002300  e1 0d 0f a0 04 0d 0f aa  0c dd f2 76 65 72 69 66  |...........verif|
00002310  79 0d 0f b4 09 50 25 2b  3d 31 0d 0f be 0d e3 54  |y....P%+=1.....T|
00002320  25 3d 30 b8 4e 54 25 0d  0f c8 09 50 25 2b 3d 32  |%=0.NT%....P%+=2|
00002330  0d 0f d2 09 50 25 2b 3d  32 0d 0f dc 05 ed 0d 0f  |....P%+=2.......|
00002340  e6 09 50 25 2b 3d 31 0d  0f f0 0f e3 54 25 3d 30  |..P%+=1.....T%=0|
00002350  b8 4e 4f 25 2d 31 0d 0f  fa 09 50 25 2b 3d 32 0d  |.NO%-1....P%+=2.|
00002360  10 04 12 e3 49 25 3d 30  b8 50 54 53 25 28 54 25  |....I%=0.PTS%(T%|
00002370  29 0d 10 0e 09 50 25 2b  3d 32 0d 10 18 09 50 25  |)....P%+=2....P%|
00002380  2b 3d 32 0d 10 22 05 ed  0d 10 2c 05 ed 0d 10 36  |+=2.."....,....6|
00002390  05 e1 0d 10 40 04 0d 10  4a 11 dd f2 77 72 69 6d  |....@...J...wrim|
000023a0  61 70 31 28 41 25 29 0d  10 54 13 6d 61 70 3f 50  |ap1(A%)..T.map?P|
000023b0  25 3d 41 25 3a 50 25 2b  3d 31 0d 10 5e 05 e1 0d  |%=A%:P%+=1..^...|
000023c0  10 68 04 0d 10 72 10 dd  f2 77 72 69 6d 61 70 28  |.h...r...wrimap(|
000023d0  41 25 29 0d 10 7c 0c 41  25 3d 41 25 2a 32 31 0d  |A%)..|.A%=A%*21.|
000023e0  10 86 13 6d 61 70 3f 50  25 3d 41 25 3a 50 25 2b  |...map?P%=A%:P%+|
000023f0  3d 31 0d 10 90 16 6d 61  70 3f 50 25 3d 41 25 3e  |=1....map?P%=A%>|
00002400  3e 38 3a 50 25 2b 3d 31  0d 10 9a 05 e1 0d 10 a4  |>8:P%+=1........|
00002410  04 0d 10 ae 0f dd f2 67  65 74 68 6f 6c 65 6e 6f  |.......getholeno|
00002420  0d 10 b8 07 ea 6e 25 0d  10 c2 0a 2a 46 58 32 32  |.....n%....*FX22|
00002430  39 0d 10 cc 10 ea 85 3a  ee 85 ea 20 e5 8d 54 66  |9......:... ..Tf|
00002440  51 0d 10 d6 05 f5 0d 10  e0 05 db 0d 10 ea 7f fb  |Q...............|
00002450  38 3a f1 8a 30 2c 32 29  22 43 55 52 52 45 4e 54  |8:..0,2)"CURRENT|
00002460  20 48 4f 4c 45 20 4e 6f  2e 20 49 53 20 22 3b 68  | HOLE No. IS ";h|
00002470  6f 6c 65 70 27 22 43 48  41 4e 47 49 4e 47 20 54  |olep'"CHANGING T|
00002480  48 45 20 48 4f 4c 45 20  4e 6f 2e 20 49 53 20 41  |HE HOLE No. IS A|
00002490  20 57 41 59 20 4f 46 20  43 4f 50 59 49 4e 47 20  | WAY OF COPYING |
000024a0  4f 4e 45 20 48 4f 4c 45  20 54 4f 20 41 4e 4f 54  |ONE HOLE TO ANOT|
000024b0  48 45 52 22 27 22 45 53  43 41 50 45 20 54 4f 20  |HER"'"ESCAPE TO |
000024c0  41 42 4f 52 54 22 3a fb  31 33 0d 10 f4 09 2a 46  |ABORT":.13....*F|
000024d0  58 31 35 0d 10 fe 33 e8  8a 30 2c 30 29 22 57 48  |X15...3..0,0)"WH|
000024e0  41 54 20 49 53 20 54 48  45 20 4e 45 57 20 48 4f  |AT IS THE NEW HO|
000024f0  4c 45 20 4e 6f 2e 20 7b  31 20 54 4f 20 31 38 7d  |LE No. {1 TO 18}|
00002500  20 3f 20 22 6e 25 0d 11  08 0f fd 6e 25 3e 30 80  | ? "n%.....n%>0.|
00002510  6e 25 3c 31 39 0d 11 12  0c 68 6f 6c 65 70 3d 6e  |n%<19....holep=n|
00002520  25 0d 11 1c 1c 6d 61 70  70 6f 69 6e 74 25 3d 28  |%....mappoint%=(|
00002530  68 6f 6c 65 70 2d 31 29  2a 26 33 30 30 0d 11 26  |holep-1)*&300..&|
00002540  0d f4 2a 46 58 32 32 39  2c 31 0d 11 30 05 e1 0d  |..*FX229,1..0...|
00002550  11 3a 04 0d 11 44 0e dd  f2 72 65 61 64 68 6f 6c  |.:...D...readhol|
00002560  65 0d 11 4e 0a 2a 46 58  32 32 39 0d 11 58 10 ea  |e..N.*FX229..X..|
00002570  85 3a ee 85 ea 20 e5 8d  64 7c 52 0d 11 62 11 67  |.:... ..d|R..b.g|
00002580  72 65 65 6e 3d a3 3a 74  65 65 3d b9 0d 11 6c 05  |reen=.:tee=...l.|
00002590  f5 0d 11 76 05 db 0d 11  80 09 2a 46 58 31 35 0d  |...v......*FX15.|
000025a0  11 8a 87 fb 38 3a f1 8a  30 2c 32 29 22 54 48 45  |....8:..0,2)"THE|
000025b0  20 45 58 49 53 54 49 4e  47 20 48 4f 4c 45 20 44  | EXISTING HOLE D|
000025c0  41 54 41 20 57 49 4c 4c  20 42 45 20 4c 4f 53 54  |ATA WILL BE LOST|
000025d0  20 49 46 20 49 54 20 48  41 53 20 4e 4f 54 20 42  | IF IT HAS NOT B|
000025e0  45 45 4e 20 57 52 49 54  54 45 4e 20 49 4e 54 4f  |EEN WRITTEN INTO|
000025f0  22 27 22 4d 45 4d 4f 52  59 20 42 59 20 46 49 52  |"'"MEMORY BY FIR|
00002600  53 54 20 53 45 4c 45 43  54 49 4e 47 20 54 48 45  |ST SELECTING THE|
00002610  20 27 57 52 49 54 45 20  48 4f 4c 45 27 20 4f 50  | 'WRITE HOLE' OP|
00002620  54 49 4f 4e 21 22 0d 11  94 1a f1 22 45 53 43 41  |TION!"....."ESCA|
00002630  50 45 20 54 4f 20 41 42  4f 52 54 22 3a fb 31 33  |PE TO ABORT":.13|
00002640  0d 11 9e 3a e8 8a 30 2c  30 29 22 57 48 49 43 48  |...:..0,0)"WHICH|
00002650  20 48 4f 4c 45 20 44 4f  20 59 4f 55 20 57 49 53  | HOLE DO YOU WIS|
00002660  48 20 54 4f 20 45 44 49  54 20 7b 31 20 54 4f 20  |H TO EDIT {1 TO |
00002670  31 38 7d 20 22 68 6f 6c  65 70 0d 11 a8 15 fd 68  |18} "holep.....h|
00002680  6f 6c 65 70 3e 30 80 68  6f 6c 65 70 3c 31 39 0d  |olep>0.holep<19.|
00002690  11 b2 0f dd f2 72 65 61  64 68 6f 6c 65 32 0d 11  |.....readhole2..|
000026a0  bc 15 50 25 3d 28 68 6f  6c 65 70 2d 31 29 2a 26  |..P%=(holep-1)*&|
000026b0  33 30 30 0d 11 c6 26 6c  65 6e 3d 28 bb 28 c3 7e  |300...&len=(.(.~|
000026c0  28 28 6d 61 70 21 28 50  25 2b 26 32 46 41 29 29  |((map!(P%+&2FA))|
000026d0  80 26 46 46 46 46 29 29  29 0d 11 d0 15 70 61 72  |.&FFFF)))....par|
000026e0  3d 6d 61 70 3f 28 50 25  2b 26 32 46 39 29 0d 11  |=map?(P%+&2F9)..|
000026f0  da 10 6d 61 70 70 6f 69  6e 74 25 3d 50 25 0d 11  |..mappoint%=P%..|
00002700  e4 35 50 25 3d 6d 61 70  70 6f 69 6e 74 25 2b 26  |.5P%=mappoint%+&|
00002710  32 45 38 3a 74 65 65 59  25 3d a4 6d 61 70 32 20  |2E8:teeY%=.map2 |
00002720  81 32 31 3a 74 65 65 58  25 3d a4 6d 61 70 32 20  |.21:teeX%=.map2 |
00002730  81 32 31 0d 11 ee 3d e7  a8 a4 64 69 73 74 61 6e  |.21...=...distan|
00002740  63 65 28 74 65 65 58 25  2c 74 65 65 59 25 29 3c  |ce(teeX%,teeY%)<|
00002750  3e 6c 65 6e 20 6c 65 6e  3d a8 a4 64 69 73 74 61  |>len len=..dista|
00002760  6e 63 65 28 74 65 65 58  25 2c 74 65 65 59 25 29  |nce(teeX%,teeY%)|
00002770  0d 11 f8 10 50 25 3d 6d  61 70 70 6f 69 6e 74 25  |....P%=mappoint%|
00002780  0d 12 02 0c 6d 65 6d 3d  26 32 45 38 0d 12 0c 11  |....mem=&2E8....|
00002790  74 65 65 3d a3 3a 67 72  65 65 6e 3d a3 0d 12 16  |tee=.:green=....|
000027a0  0f 4e 54 25 3d a4 6d 61  70 31 2d 31 0d 12 20 0d  |.NT%=.map1-1.. .|
000027b0  e3 54 25 3d 30 b8 4e 54  25 0d 12 2a 16 54 52 58  |.T%=0.NT%..*.TRX|
000027c0  25 28 54 25 29 3d a4 6d  61 70 32 20 81 32 31 0d  |%(T%)=.map2 .21.|
000027d0  12 34 16 54 52 59 25 28  54 25 29 3d a4 6d 61 70  |.4.TRY%(T%)=.map|
000027e0  32 20 81 32 31 0d 12 3e  0a 6d 65 6d 2d 3d 34 0d  |2 .21..>.mem-=4.|
000027f0  12 48 05 ed 0d 12 52 04  0d 12 5c 14 4e 4f 25 3d  |.H....R...\.NO%=|
00002800  a4 6d 61 70 31 3a 6d 65  6d 2d 3d 31 0d 12 66 0f  |.map1:mem-=1..f.|
00002810  e3 54 25 3d 30 b8 4e 4f  25 2d 31 0d 12 70 18 43  |.T%=0.NO%-1..p.C|
00002820  4f 25 28 54 25 29 3d a4  6d 61 70 31 3a 6d 65 6d  |O%(T%)=.map1:mem|
00002830  2d 3d 31 0d 12 7a 15 e7  43 4f 25 28 54 25 29 3d  |-=1..z..CO%(T%)=|
00002840  35 67 72 65 65 6e 3d b9  0d 12 84 17 e7 43 4f 25  |5green=......CO%|
00002850  28 54 25 29 3d 31 43 4f  25 28 54 25 29 3d 32 0d  |(T%)=1CO%(T%)=2.|
00002860  12 8e 04 0d 12 98 19 50  54 53 25 28 54 25 29 3d  |.......PTS%(T%)=|
00002870  a4 6d 61 70 31 3a 6d 65  6d 2d 3d 31 0d 12 a2 12  |.map1:mem-=1....|
00002880  e3 49 25 3d 30 b8 50 54  53 25 28 54 25 29 0d 12  |.I%=0.PTS%(T%)..|
00002890  ac 18 48 58 25 28 54 25  2c 49 25 29 3d a4 6d 61  |..HX%(T%,I%)=.ma|
000028a0  70 32 20 81 32 31 0d 12  b6 18 48 59 25 28 54 25  |p2 .21....HY%(T%|
000028b0  2c 49 25 29 3d a4 6d 61  70 32 20 81 32 31 0d 12  |,I%)=.map2 .21..|
000028c0  c0 0a 6d 65 6d 2d 3d 34  0d 12 ca 05 ed 0d 12 d4  |..mem-=4........|
000028d0  43 e7 20 43 4f 25 28 54  25 29 3d 37 80 50 54 53  |C. CO%(T%)=7.PTS|
000028e0  25 28 54 25 29 3d 33 80  94 28 48 59 25 28 54 25  |%(T%)=3..(HY%(T%|
000028f0  2c 31 29 2d 74 65 65 58  25 29 3c 34 35 20 74 65  |,1)-teeX%)<45 te|
00002900  65 3d b9 3a 43 4f 25 28  54 25 29 3d 26 31 30 37  |e=.:CO%(T%)=&107|
00002910  0d 12 de 05 ed 0d 12 e8  0d f2 73 74 61 72 74 75  |..........startu|
00002920  70 32 0d 12 f2 0e f2 72  65 64 69 73 70 6c 61 79  |p2.....redisplay|
00002930  0d 12 fc 0d f4 2a 46 58  32 32 39 2c 31 0d 13 06  |.....*FX229,1...|
00002940  05 e1 0d 13 10 04 0d 13  1a 10 dd f2 6c 6f 61 64  |............load|
00002950  63 6f 75 72 73 65 0d 13  24 1a f2 63 6f 6c 6f 75  |course..$..colou|
00002960  72 73 28 39 29 3a f2 73  63 72 65 65 6e 62 6f 78  |rs(9):.screenbox|
00002970  0d 13 2e 12 c8 97 b8 35  33 30 2c 35 31 32 3a c8  |.......530,512:.|
00002980  97 ee 0d 13 38 0e 49 6e  65 64 69 74 6f 72 3d b9  |....8.Ineditor=.|
00002990  0d 13 42 16 f2 67 65 74  63 6f 75 72 73 65 28 22  |..B..getcourse("|
000029a0  45 44 49 54 22 29 0d 13  4c 0e 49 6e 65 64 69 74  |EDIT")..L.Inedit|
000029b0  6f 72 3d a3 0d 13 56 10  f2 63 6f 6c 6f 75 72 73  |or=...V..colours|
000029c0  28 31 32 29 0d 13 60 0d  f2 73 65 74 6d 61 69 6e  |(12)..`..setmain|
000029d0  76 0d 13 6a 26 6d 61 70  70 6f 69 6e 74 25 3d 30  |v..j&mappoint%=0|
000029e0  3a 6d 61 70 3f 28 6d 61  70 70 6f 69 6e 74 25 2b  |:map?(mappoint%+|
000029f0  26 32 46 38 29 3d 31 0d  13 74 1a 6c 65 6e 3d 35  |&2F8)=1..t.len=5|
00002a00  30 30 3a 70 61 72 3d 34  3a f2 73 74 61 72 74 75  |00:par=4:.startu|
00002a10  70 0d 13 7e 14 f2 67 72  69 64 3a f4 3a 74 65 65  |p..~..grid:.:tee|
00002a20  3d 54 52 55 45 0d 13 88  07 c8 97 ee 0d 13 92 05  |=TRUE...........|
00002a30  e1 0d 13 9c 04 0d 13 a6  10 dd f2 73 61 76 65 63  |...........savec|
00002a40  6f 75 72 73 65 0d 13 b0  0f ea 50 6f 69 6e 74 65  |ourse.....Pointe|
00002a50  72 2c 52 30 0d 13 ba 10  de 20 50 6f 69 6e 74 65  |r,R0..... Pointe|
00002a60  72 20 32 38 0d 13 c4 28  24 50 6f 69 6e 74 65 72  |r 28...($Pointer|
00002a70  3d 22 3c 4f 62 65 79 24  44 69 72 3e 2e 4d 4f 44  |="<Obey$Dir>.MOD|
00002a80  55 4c 45 53 2e 53 48 4f  4f 53 48 22 0d 13 ce 0a  |ULES.SHOOSH"....|
00002a90  2a 46 58 32 32 39 0d 13  d8 06 ea 85 0d 13 e2 75  |*FX229.........u|
00002aa0  ee 85 ea e7 9f 3c 3e 31  37 3a f2 72 65 64 69 73  |.....<>17:.redis|
00002ab0  70 6c 61 79 3a ef 32 36  3a f2 6d 65 73 77 69 6e  |play:.26:.meswin|
00002ac0  64 32 28 22 20 20 20 22  2b f6 24 2b 22 20 20 20  |d2("   "+.$+"   |
00002ad0  22 2c 22 50 4c 45 41 53  45 22 2c 22 50 52 45 53  |","PLEASE","PRES|
00002ae0  53 20 53 50 41 43 45 22  2c 31 2c 33 29 3a f5 fd  |S SPACE",1,3):..|
00002af0  a6 2d 39 39 3a 8b ef 32  34 2c 31 36 3b 32 37 32  |.-99:..24,16;272|
00002b00  3b 31 32 36 33 3b 31 30  30 37 3b 3a e5 8d 54 58  |;1263;1007;:..TX|
00002b10  55 0d 13 ec 05 f5 0d 13  f6 1e c8 99 22 4f 53 5f  |U..........."OS_|
00002b20  46 69 6c 65 22 2c 35 2c  50 6f 69 6e 74 65 72 20  |File",5,Pointer |
00002b30  b8 20 52 30 0d 14 00 0c  e7 52 30 3c 3e 30 20 8c  |. R0.....R0<>0 .|
00002b40  0d 14 0a 65 f2 6d 65 73  77 69 6e 64 32 28 22 49  |...e.meswind2("I|
00002b50  20 43 41 4e 27 54 20 53  41 56 45 20 54 4f 20 54  | CAN'T SAVE TO T|
00002b60  48 45 20 44 45 53 49 47  4e 45 52 20 44 49 53 43  |HE DESIGNER DISC|
00002b70  22 2c 22 50 4c 45 41 53  45 20 49 4e 53 45 52 54  |","PLEASE INSERT|
00002b80  20 41 4e 4f 54 48 45 52  20 44 49 53 43 22 2c 22  | ANOTHER DISC","|
00002b90  41 4e 44 20 50 52 45 53  53 20 53 50 41 43 45 22  |AND PRESS SPACE"|
00002ba0  2c 31 2c 33 29 0d 14 14  0a f5 fd a6 2d 39 39 0d  |,1,3).......-99.|
00002bb0  14 1e 05 cd 0d 14 28 09  fd 52 30 3d 30 0d 14 32  |......(..R0=0..2|
00002bc0  67 ee 85 ea 3a f2 72 65  64 69 73 70 6c 61 79 3a  |g...:.redisplay:|
00002bd0  f2 6d 65 73 77 69 6e 64  32 28 22 20 20 20 20 22  |.meswind2("    "|
00002be0  2b f6 24 2b 22 20 20 20  20 22 2c 22 50 4c 45 41  |+.$+"    ","PLEA|
00002bf0  53 45 22 2c 22 50 52 45  53 53 20 53 50 41 43 45  |SE","PRESS SPACE|
00002c00  22 2c 32 2c 33 29 3a f5  fd a5 3d 33 32 3a f2 72  |",2,3):...=32:.r|
00002c10  65 64 69 73 70 6c 61 79  3a e7 9f 3d 31 37 3a e5  |edisplay:..=17:.|
00002c20  8d 54 58 55 0d 14 3c 0a  2a 4d 4f 55 4e 54 0d 14  |.TXU..<.*MOUNT..|
00002c30  46 0b c8 91 30 2c 31 32  38 0d 14 50 05 f5 0d 14  |F...0,128..P....|
00002c40  5a 42 f2 63 65 6e 74 62  6f 78 28 a3 2c c4 31 33  |ZB.centbox(.,.13|
00002c50  2c 22 20 22 29 2b 22 43  55 52 52 45 4e 54 20 44  |," ")+"CURRENT D|
00002c60  49 53 43 20 43 41 54 41  4c 4f 47 55 45 22 2b c4  |ISC CATALOGUE"+.|
00002c70  31 33 2c 22 20 22 29 2c  38 2c 32 30 29 3a fb 38  |13," "),8,20):.8|
00002c80  0d 14 64 19 ef 32 34 2c  31 36 3b 32 37 32 3b 31  |..d..24,16;272;1|
00002c90  32 36 33 3b 31 30 30 37  3b 0d 14 6e 1d f4 47 43  |263;1007;..n..GC|
00002ca0  4f 4c 31 32 38 2b 31 31  3a 43 4c 47 3a 47 43 4f  |OL128+11:CLG:GCO|
00002cb0  4c 31 32 38 2b 36 0d 14  78 14 ef 32 38 2c 31 37  |L128+6..x..28,17|
00002cc0  2c 32 31 2c 36 32 2c 33  2c 34 0d 14 82 0c 66 69  |,21,62,3,4....fi|
00002cd0  6c 65 24 3d 22 22 0d 14  8c 0c db 3a ef 31 34 3a  |le$="".....:.14:|
00002ce0  2a 2e 0d 14 96 0d ef 31  35 3a 2a 46 58 31 35 0d  |*......15:*FX15.|
00002cf0  14 a0 22 f1 27 22 50 4c  45 41 53 45 20 45 4e 54  |..".'"PLEASE ENT|
00002d00  45 52 20 43 4f 55 52 53  45 20 4e 41 4d 45 2e 22  |ER COURSE NAME."|
00002d10  3b 0d 14 aa 2b c8 99 22  4f 53 5f 52 65 61 64 4c  |;...+.."OS_ReadL|
00002d20  69 6e 65 22 2c 50 6f 69  6e 74 65 72 2c 31 30 2c  |ine",Pointer,10,|
00002d30  33 32 2c 31 32 36 20 b8  20 2c 52 30 0d 14 b4 0c  |32,126 . ,R0....|
00002d40  e7 52 30 3d 30 20 fd 30  0d 14 be 15 50 6f 69 6e  |.R0=0 .0....Poin|
00002d50  74 65 72 3f 28 52 30 2b  31 29 3d 31 33 0d 14 c8  |ter?(R0+1)=13...|
00002d60  12 66 69 6c 65 24 3d 24  50 6f 69 6e 74 65 72 0d  |.file$=$Pointer.|
00002d70  14 d2 0c e3 54 25 3d 31  b8 52 30 0d 14 dc 26 e7  |....T%=1.R0...&.|
00002d80  c1 66 69 6c 65 24 2c 54  25 2c 31 29 3d 22 20 22  |.file$,T%,1)=" "|
00002d90  20 c1 66 69 6c 65 24 2c  54 25 2c 31 29 3d 22 5f  | .file$,T%,1)="_|
00002da0  22 0d 14 e6 05 ed 0d 14  f0 0d fd 66 69 6c 65 24  |"..........file$|
00002db0  3e 22 22 0d 14 fa 10 e3  54 25 3d 31 b8 a9 66 69  |>"".....T%=1..fi|
00002dc0  6c 65 24 0d 15 04 29 ff  28 22 53 41 56 45 20 24  |le$...).("SAVE $|
00002dd0  2e 22 2b 66 69 6c 65 24  2b 22 20 22 2b c3 7e 6d  |."+file$+" "+.~m|
00002de0  61 70 2b 22 20 2b 33 36  30 30 22 29 0d 15 0e 20  |ap+" +3600")... |
00002df0  ff 28 22 53 45 54 54 59  50 45 20 24 2e 22 2b 66  |.("SETTYPE $."+f|
00002e00  69 6c 65 24 2b 22 20 43  31 46 22 29 0d 15 18 0d  |ile$+" C1F")....|
00002e10  f4 2a 46 58 32 32 39 2c  31 0d 15 22 0e f2 72 65  |.*FX229,1.."..re|
00002e20  64 69 73 70 6c 61 79 0d  15 2c 05 e1 0d 15 36 04  |display..,....6.|
00002e30  0d 15 40 11 dd f2 69 6e  73 65 72 74 74 72 65 65  |..@...inserttree|
00002e40  73 0d 15 4a 0d f4 2a 46  58 32 32 39 2c 31 0d 15  |s..J..*FX229,1..|
00002e50  54 0c ea 66 6c 61 67 2c  43 25 0d 15 5e 0e db 3a  |T..flag,C%..^..:|
00002e60  f2 62 75 74 74 28 30 29  0d 15 68 21 f1 22 49 4e  |.butt(0)..h!."IN|
00002e70  53 45 52 54 20 4f 52 20  44 45 4c 45 54 45 20 54  |SERT OR DELETE T|
00002e80  52 45 45 53 22 27 3a fb  38 0d 15 72 1c f1 22 4c  |REES"':.8..r.."L|
00002e90  45 46 54 20 42 55 54 54  4f 4e 20 54 4f 20 49 4e  |EFT BUTTON TO IN|
00002ea0  53 45 52 54 22 0d 15 7c  1e f1 22 4d 49 44 44 4c  |SERT"..|.."MIDDL|
00002eb0  45 20 42 55 54 54 4f 4e  20 54 4f 20 44 45 4c 45  |E BUTTON TO DELE|
00002ec0  54 45 22 0d 15 86 1b f1  22 52 49 47 48 54 20 42  |TE"....."RIGHT B|
00002ed0  55 54 54 4f 4e 20 54 4f  20 45 58 49 54 22 0d 15  |UTTON TO EXIT"..|
00002ee0  90 2a f1 22 4d 41 58 49  4d 55 4d 20 4f 46 20 39  |.*."MAXIMUM OF 9|
00002ef0  36 20 54 52 45 45 53 20  50 45 52 20 48 4f 4c 45  |6 TREES PER HOLE|
00002f00  22 bd 33 30 3a fb 31 33  0d 15 9a 05 f5 0d 15 a4  |".30:.13........|
00002f10  0e c8 97 58 25 2c 59 25  2c 4b 25 0d 15 ae 0d 58  |...X%,Y%,K%....X|
00002f20  25 3d 58 25 81 36 2a 36  0d 15 b8 0d 59 25 3d 59  |%=X%.6*6....Y%=Y|
00002f30  25 81 36 2a 36 0d 15 c2  0e 43 25 3d b0 58 25 2c  |%.6*6....C%=.X%,|
00002f40  59 25 29 0d 15 cc 23 f1  8a 34 30 2c 31 29 3b 4e  |Y%)...#..40,1);N|
00002f50  54 25 2b 31 3b 22 20 54  52 45 45 53 20 49 4e 53  |T%+1;" TREES INS|
00002f60  45 52 54 45 44 22 0d 15  d6 23 f1 8a 34 30 2c 32  |ERTED"...#..40,2|
00002f70  29 22 26 22 3b 7e 6d 65  6d 3b 22 20 42 59 54 45  |)"&";~mem;" BYTE|
00002f80  53 20 4c 45 46 54 20 20  22 0d 15 e0 29 e7 a4 64  |S LEFT  "...)..d|
00002f90  69 73 74 61 6e 63 65 28  2d 58 25 2f 31 2e 35 2c  |istance(-X%/1.5,|
00002fa0  2d 59 25 2f 31 2e 35 29  3c 34 30 80 4b 25 3d 34  |-Y%/1.5)<40.K%=4|
00002fb0  fd 30 0d 15 ea 17 e7 28  43 25 3d 36 84 43 25 3d  |.0.....(C%=6.C%=|
00002fc0  30 29 80 4b 25 3d 34 fd  30 0d 15 f4 0a e7 4b 25  |0).K%=4.0.....K%|
00002fd0  3d 34 8c 0d 15 fe 0c e7  4e 54 25 3c 39 35 8c 0d  |=4......NT%<95..|
00002fe0  16 08 0b e7 6d 65 6d 3e  34 8c 0d 16 12 0a 4e 54  |....mem>4.....NT|
00002ff0  25 2b 3d 31 0d 16 1c 07  e6 31 34 0d 16 26 0f c8  |%+=1.....14..&..|
00003000  8f c8 90 58 25 2c 59 25  2c 38 0d 16 30 27 54 52  |...X%,Y%,8..0'TR|
00003010  58 25 28 4e 54 25 29 3d  2d 59 25 2f 31 2e 35 3a  |X%(NT%)=-Y%/1.5:|
00003020  54 52 59 25 28 4e 54 25  29 3d 2d 58 25 2f 31 2e  |TRY%(NT%)=-X%/1.|
00003030  35 0d 16 3a 0a 6d 65 6d  2d 3d 34 0d 16 44 0c f2  |5..:.mem-=4..D..|
00003040  62 75 74 74 28 30 29 0d  16 4e 07 cc ef 37 0d 16  |butt(0)..N...7..|
00003050  58 05 cd 0d 16 62 05 cd  0d 16 6c 05 cd 0d 16 76  |X....b....l....v|
00003060  0a e7 4b 25 3d 32 8c 0d  16 80 0c e7 4e 54 25 3e  |..K%=2......NT%>|
00003070  b9 20 8c 0d 16 8a 0a 66  6c 61 67 3d a3 0d 16 94  |. .....flag=....|
00003080  0d e3 54 25 3d 30 b8 4e  54 25 0d 16 9e 43 e7 94  |..T%=0.NT%...C..|
00003090  28 2d 54 52 59 25 28 54  25 29 2a 31 2e 35 2d 58  |(-TRY%(T%)*1.5-X|
000030a0  25 29 3c 31 32 80 94 28  2d 54 52 58 25 28 54 25  |%)<12..(-TRX%(T%|
000030b0  29 2a 31 2e 35 2d 59 25  29 3c 31 32 66 6c 61 67  |)*1.5-Y%)<12flag|
000030c0  3d 54 25 2b 31 3a 54 25  3d 31 30 30 30 0d 16 a8  |=T%+1:T%=1000...|
000030d0  05 ed 0d 16 b2 0b e7 66  6c 61 67 20 8c 0d 16 bc  |.......flag ....|
000030e0  11 e7 66 6c 61 67 3c 3e  4e 54 25 2b 31 8c 0d 16  |..flag<>NT%+1...|
000030f0  c6 15 e3 54 25 3d 66 6c  61 67 2d 31 20 b8 4e 54  |...T%=flag-1 .NT|
00003100  25 2d 31 0d 16 d0 2b 54  52 58 25 28 54 25 29 3d  |%-1...+TRX%(T%)=|
00003110  54 52 58 25 28 54 25 2b  31 29 3a 54 52 59 25 28  |TRX%(T%+1):TRY%(|
00003120  54 25 29 3d 54 52 59 25  28 54 25 2b 31 29 0d 16  |T%)=TRY%(T%+1)..|
00003130  da 05 ed 0d 16 e4 05 cd  0d 16 ee 0a 4e 54 25 2d  |............NT%-|
00003140  3d 31 0d 16 f8 0a 6d 65  6d 2b 3d 34 0d 17 02 0e  |=1....mem+=4....|
00003150  f2 72 65 64 69 73 70 6c  61 79 0d 17 0c 0c f2 62  |.redisplay.....b|
00003160  75 74 74 28 30 29 0d 17  16 05 cd 0d 17 20 07 cc  |utt(0)....... ..|
00003170  ef 37 0d 17 2a 05 cd 0d  17 34 05 cd 0d 17 3e 09  |.7..*....4....>.|
00003180  fd 4b 25 3d 31 0d 17 48  0c f2 62 75 74 74 28 30  |.K%=1..H..butt(0|
00003190  29 0d 17 52 0c 2a 46 58  32 32 39 2c 30 0d 17 5c  |)..R.*FX229,0..\|
000031a0  05 e1 0d 17 66 04 0d 17  70 0d dd f2 64 72 61 77  |....f...p...draw|
000031b0  74 65 65 0d 17 7a 0d e7  74 65 65 20 ef 37 3a e1  |tee..z..tee .7:.|
000031c0  0d 17 84 39 e7 6d 65 6d  3c 31 38 f1 22 4e 4f 54  |...9.mem<18."NOT|
000031d0  20 45 4e 4f 55 47 48 20  4d 45 4d 4f 52 59 21 21  | ENOUGH MEMORY!!|
000031e0  20 50 52 45 53 53 20 53  50 41 43 45 3a 22 bd 37  | PRESS SPACE:".7|
000031f0  3a f5 fd a5 3d 33 32 3a  e1 0d 17 8e 0c f2 62 75  |:...=32:......bu|
00003200  74 74 28 30 29 0d 17 98  36 fb 38 3a f1 8a 31 2c  |tt(0)...6.8:..1,|
00003210  32 29 22 50 4f 53 49 54  49 4f 4e 20 54 45 45 20  |2)"POSITION TEE |
00003220  54 48 45 4e 20 41 4e 59  20 42 55 54 4f 4e 20 54  |THEN ANY BUTON T|
00003230  4f 20 45 58 49 54 22 3a  fb 31 31 0d 17 a2 09 74  |O EXIT":.11....t|
00003240  65 65 3d b9 0d 17 ac 17  ea 78 25 2c 79 25 2c 61  |ee=......x%,y%,a|
00003250  25 2c 62 2c 63 2c 64 25  2c 65 25 0d 17 b6 1b 61  |%,b,c,d%,e%....a|
00003260  25 3d 31 38 30 3a 79 25  3d 30 3a 78 25 3d 2d 6c  |%=180:y%=0:x%=-l|
00003270  65 6e 2a 31 2e 35 0d 17  c0 0c c8 97 b8 78 25 2c  |en*1.5.......x%,|
00003280  79 25 0d 17 ca 05 f5 0d  17 d4 0e c8 97 58 25 2c  |y%...........X%,|
00003290  59 25 2c 4b 25 0d 17 de  16 e7 59 25 3e 79 25 80  |Y%,K%.....Y%>y%.|
000032a0  61 25 3e 31 36 30 61 25  2d 3d 31 0d 17 e8 17 e7  |a%>160a%-=1.....|
000032b0  59 25 3c 79 25 80 61 25  3c 32 30 30 20 61 25 2b  |Y%<y%.a%<200 a%+|
000032c0  3d 31 0d 17 f2 15 78 25  3d 28 9b b2 61 25 2a 6c  |=1....x%=(..a%*l|
000032d0  65 6e 29 2a 31 2e 35 0d  17 fc 15 79 25 3d 28 b5  |en)*1.5....y%=(.|
000032e0  b2 61 25 2a 6c 65 6e 29  2a 31 2e 35 0d 18 06 0c  |.a%*len)*1.5....|
000032f0  c8 97 b8 78 25 2c 79 25  0d 18 10 07 fd 4b 25 0d  |...x%,y%.....K%.|
00003300  18 1a 19 58 25 3d 2d 78  25 2f 31 2e 35 3a 59 25  |...X%=-x%/1.5:Y%|
00003310  3d 2d 79 25 2f 31 2e 35  0d 18 24 1f 48 58 25 28  |=-y%/1.5..$.HX%(|
00003320  4e 4f 25 2c 30 29 3d 59  25 3a 48 59 25 28 4e 4f  |NO%,0)=Y%:HY%(NO|
00003330  25 2c 30 29 3d 58 25 0d  18 2e 2d 50 25 3d 6d 61  |%,0)=X%...-P%=ma|
00003340  70 70 6f 69 6e 74 25 2b  26 32 45 38 3a f2 77 72  |ppoint%+&2E8:.wr|
00003350  69 6d 61 70 28 59 25 29  3a f2 77 72 69 6d 61 70  |imap(Y%):.wrimap|
00003360  28 58 25 29 0d 18 38 19  6c 65 6e 3d a8 a4 64 69  |(X%)..8.len=..di|
00003370  73 74 61 6e 63 65 28 58  25 2c 59 25 29 0d 18 42  |stance(X%,Y%)..B|
00003380  11 62 3d b5 b2 61 25 3a  63 3d 9b b2 61 25 0d 18  |.b=..a%:c=..a%..|
00003390  4c 36 48 58 25 28 4e 4f  25 2c 30 29 3d 62 2a 2d  |L6HX%(NO%,0)=b*-|
000033a0  31 30 2b 2d 63 2a 32 30  2b 59 25 3a 48 59 25 28  |10+-c*20+Y%:HY%(|
000033b0  4e 4f 25 2c 30 29 3d 63  2a 2d 31 30 2b 62 2a 32  |NO%,0)=c*-10+b*2|
000033c0  30 2b 58 25 0d 18 56 34  48 58 25 28 4e 4f 25 2c  |0+X%..V4HX%(NO%,|
000033d0  31 29 3d 62 2a 31 30 2b  2d 63 2a 32 30 2b 59 25  |1)=b*10+-c*20+Y%|
000033e0  3a 48 59 25 28 4e 4f 25  2c 31 29 3d 63 2a 31 30  |:HY%(NO%,1)=c*10|
000033f0  2b 62 2a 32 30 2b 58 25  0d 18 60 36 48 58 25 28  |+b*20+X%..`6HX%(|
00003400  4e 4f 25 2c 32 29 3d 62  2a 31 30 2b 2d 63 2a 2d  |NO%,2)=b*10+-c*-|
00003410  32 30 2b 59 25 3a 48 59  25 28 4e 4f 25 2c 32 29  |20+Y%:HY%(NO%,2)|
00003420  3d 63 2a 31 30 2b 62 2a  2d 32 30 2b 58 25 0d 18  |=c*10+b*-20+X%..|
00003430  6a 38 48 58 25 28 4e 4f  25 2c 33 29 3d 62 2a 2d  |j8HX%(NO%,3)=b*-|
00003440  31 30 2b 2d 63 2a 2d 32  30 2b 59 25 3a 48 59 25  |10+-c*-20+Y%:HY%|
00003450  28 4e 4f 25 2c 33 29 3d  63 2a 2d 31 30 2b 62 2a  |(NO%,3)=c*-10+b*|
00003460  2d 32 30 2b 58 25 0d 18  74 15 74 65 65 58 25 3d  |-20+X%..t.teeX%=|
00003470  58 25 3a 74 65 65 59 25  3d 59 25 0d 18 7e 0b 6d  |X%:teeY%=Y%..~.m|
00003480  65 6d 2d 3d 31 38 0d 18  88 0f 50 54 53 25 28 4e  |em-=18....PTS%(N|
00003490  4f 25 29 3d 33 0d 18 92  0a 4e 4f 25 2b 3d 31 0d  |O%)=3....NO%+=1.|
000034a0  18 9c 0e f2 72 65 64 69  73 70 6c 61 79 0d 18 a6  |....redisplay...|
000034b0  05 e1 0d 18 b0 04 0d 18  ba 0b dd f2 61 6c 74 65  |............alte|
000034c0  72 0d 18 c4 2a ea 78 25  2c 79 25 2c 78 31 25 2c  |r...*.x%,y%,x1%,|
000034d0  79 31 25 2c 78 32 25 2c  79 32 25 2c 78 33 25 2c  |y1%,x2%,y2%,x3%,|
000034e0  79 33 25 2c 66 6c 61 67  2c 43 25 0d 18 ce 0a 2a  |y3%,flag,C%....*|
000034f0  46 58 32 32 39 0d 18 d8  22 ea 85 3a ee 85 ea 20  |FX229..."..:... |
00003500  f2 72 65 64 69 73 70 6c  61 79 3a ff 22 46 58 32  |.redisplay:."FX2|
00003510  32 39 2c 31 22 3a e1 0d  18 e2 87 db 3a fb 38 3a  |29,1":......:.8:|
00003520  f1 8a 30 2c 32 29 22 54  48 45 20 4f 56 45 52 41  |..0,2)"THE OVERA|
00003530  4c 4c 20 53 48 41 50 45  20 41 4e 44 20 50 4f 53  |LL SHAPE AND POS|
00003540  49 54 49 4f 4e 20 4f 46  20 41 4e 20 4f 42 4a 45  |ITION OF AN OBJE|
00003550  43 54 20 43 41 4e 20 42  45 20 41 44 4a 55 53 54  |CT CAN BE ADJUST|
00003560  45 44 22 27 22 42 55 54  20 4e 4f 54 20 54 48 45  |ED"'"BUT NOT THE|
00003570  20 4e 55 4d 42 45 52 20  4f 46 20 45 44 47 45 20  | NUMBER OF EDGE |
00003580  50 4f 49 4e 54 53 2e 22  27 22 45 53 43 41 50 45  |POINTS."'"ESCAPE|
00003590  20 54 4f 20 41 42 4f 52  54 22 3a fb 31 33 0d 18  | TO ABORT":.13..|
000035a0  ec 05 f5 0d 18 f6 17 f2  66 69 6e 64 6f 6e 65 3a  |........findone:|
000035b0  f2 72 65 64 69 73 70 6c  61 79 0d 19 00 42 f1 8a  |.redisplay...B..|
000035c0  30 2c 30 29 22 53 45 4c  45 43 54 20 41 4e 44 20  |0,0)"SELECT AND |
000035d0  4d 4f 56 45 20 50 4f 49  4e 54 53 20 54 4f 20 54  |MOVE POINTS TO T|
000035e0  48 45 49 52 20 52 45 51  55 49 52 45 44 20 50 4f  |HEIR REQUIRED PO|
000035f0  53 49 54 49 4f 4e 53 20  20 20 20 22 0d 19 0a 3d  |SITIONS    "...=|
00003600  fb 20 38 3a f1 8a 30 2c  34 29 22 52 49 47 48 54  |. 8:..0,4)"RIGHT|
00003610  20 42 55 54 54 4f 4e 20  54 4f 20 45 58 49 54 22  | BUTTON TO EXIT"|
00003620  27 22 45 53 43 41 50 45  20 54 4f 20 41 42 4f 52  |'"ESCAPE TO ABOR|
00003630  54 22 bd 33 30 3a fb 31  33 0d 19 14 13 e7 43 4f  |T".30:.13.....CO|
00003640  25 28 58 25 29 3d 35 ef  37 3a fd 30 0d 19 1e 06  |%(X%)=5.7:.0....|
00003650  fd b9 0d 19 28 0c f2 6f  75 74 6c 69 6e 65 0d 19  |....(..outline..|
00003660  32 0c f2 62 75 74 74 28  30 29 0d 19 3c 05 f5 0d  |2..butt(0)..<...|
00003670  19 46 05 f5 0d 19 50 0e  c8 97 78 25 2c 79 25 2c  |.F....P...x%,y%,|
00003680  4b 25 0d 19 5a 0a 66 6c  61 67 3d a3 0d 19 64 08  |K%..Z.flag=...d.|
00003690  e7 4b 25 8c 0d 19 6e 12  e3 54 25 3d 30 b8 50 54  |.K%...n..T%=0.PT|
000036a0  53 25 28 58 25 29 0d 19  78 42 e7 94 28 2d 48 59  |S%(X%)..xB..(-HY|
000036b0  25 28 58 25 2c 54 25 29  2a 31 2e 35 2d 78 25 29  |%(X%,T%)*1.5-x%)|
000036c0  3c 31 32 80 94 28 2d 48  58 25 28 58 25 2c 54 25  |<12..(-HX%(X%,T%|
000036d0  29 2a 31 2e 35 2d 79 25  29 3c 31 32 66 6c 61 67  |)*1.5-y%)<12flag|
000036e0  3d b9 3a 78 25 3d 54 25  0d 19 82 05 ed 0d 19 8c  |=.:x%=T%........|
000036f0  05 cd 0d 19 96 26 e7 4b  25 3d 31 fd b9 3a fd b9  |.....&.K%=1..:..|
00003700  3a f2 72 65 64 69 73 70  6c 61 79 3a ff 22 46 58  |:.redisplay:."FX|
00003710  32 32 39 2c 31 22 3a e1  0d 19 a0 09 fd 66 6c 61  |229,1":......fla|
00003720  67 0d 19 aa 22 78 31 25  3d 2d 48 59 25 28 58 25  |g..."x1%=-HY%(X%|
00003730  2c 78 25 83 50 54 53 25  28 58 25 29 2b 31 29 2a  |,x%.PTS%(X%)+1)*|
00003740  31 2e 35 0d 19 b4 22 79  31 25 3d 2d 48 58 25 28  |1.5..."y1%=-HX%(|
00003750  58 25 2c 78 25 83 50 54  53 25 28 58 25 29 2b 31  |X%,x%.PTS%(X%)+1|
00003760  29 2a 31 2e 35 0d 19 be  1c 54 25 3d 78 25 2d 31  |)*1.5....T%=x%-1|
00003770  3a e7 54 25 3c 31 54 25  3d 50 54 53 25 28 58 25  |:.T%<1T%=PTS%(X%|
00003780  29 0d 19 c8 17 78 32 25  3d 2d 48 59 25 28 58 25  |)....x2%=-HY%(X%|
00003790  2c 54 25 29 2a 31 2e 35  0d 19 d2 17 79 32 25 3d  |,T%)*1.5....y2%=|
000037a0  2d 48 58 25 28 58 25 2c  54 25 29 2a 31 2e 35 0d  |-HX%(X%,T%)*1.5.|
000037b0  19 dc 17 78 33 25 3d 2d  48 59 25 28 58 25 2c 78  |...x3%=-HY%(X%,x|
000037c0  25 29 2a 31 2e 35 0d 19  e6 17 79 33 25 3d 2d 48  |%)*1.5....y3%=-H|
000037d0  58 25 28 58 25 2c 78 25  29 2a 31 2e 35 0d 19 f0  |X%(X%,x%)*1.5...|
000037e0  08 e6 33 2c 38 0d 19 fa  0b e7 78 25 3c 3e 30 8c  |..3,8.....x%<>0.|
000037f0  0d 1a 04 05 f5 0d 1a 0e  09 c8 96 3a c8 96 0d 1a  |...........:....|
00003800  18 14 86 78 31 25 2c 79  31 25 2c 78 33 25 2c 79  |...x1%,y1%,x3%,y|
00003810  33 25 0d 1a 22 14 86 78  33 25 2c 79 33 25 2c 78  |3%.."..x3%,y3%,x|
00003820  32 25 2c 79 32 25 0d 1a  2c 0f c8 8f 78 33 25 2c  |2%,y2%..,...x3%,|
00003830  79 33 25 2c 38 0d 1a 36  05 f5 0d 1a 40 10 c8 97  |y3%,8..6....@...|
00003840  78 33 25 2c 79 33 25 2c  4b 25 0d 1a 4a 0f 78 33  |x3%,y3%,K%..J.x3|
00003850  25 3d 78 33 25 81 36 2a  36 0d 1a 54 0f 79 33 25  |%=x3%.6*6..T.y3%|
00003860  3d 79 33 25 81 36 2a 36  0d 1a 5e 31 f1 8a 35 38  |=y3%.6*6..^1..58|
00003870  2c 30 29 22 59 20 22 3b  2d a8 28 78 33 25 2f 31  |,0)"Y ";-.(x3%/1|
00003880  2e 35 29 2c 22 58 20 22  3b a8 28 79 33 25 2f 31  |.5),"X ";.(y3%/1|
00003890  2e 35 29 3b 22 20 20 20  22 0d 1a 68 0c 2a 46 58  |.5);"   "..h.*FX|
000038a0  31 31 32 2c 32 0d 1a 72  10 43 25 3d b0 78 33 25  |112,2..r.C%=.x3%|
000038b0  2c 79 33 25 29 0d 1a 7c  0c 2a 46 58 31 31 32 2c  |,y3%)..|.*FX112,|
000038c0  31 0d 1a 86 26 f4 49 46  43 25 3c 3e 37 41 4e 44  |1...&.IFC%<>7AND|
000038d0  42 45 41 54 3d 30 3a 53  4f 55 4e 44 31 2c 2d 31  |BEAT=0:SOUND1,-1|
000038e0  35 2c 31 32 30 2c 34 0d  1a 90 44 e7 4b 25 3d 30  |5,120,4...D.K%=0|
000038f0  80 ac 28 28 43 25 3d 37  80 69 73 6c 61 6e 64 3e  |..((C%=7.island>|
00003900  30 29 84 28 69 73 6c 61  6e 64 3c 30 80 78 33 25  |0).(island<0.x3%|
00003910  3e 36 30 30 80 78 33 25  3c 39 30 30 80 94 79 33  |>600.x3%<900..y3|
00003920  25 3c 32 32 30 29 29 4b  25 3d 34 0d 1a 9a 3d fd  |%<220))K%=4...=.|
00003930  4b 25 3d 30 84 28 43 25  3d 37 80 69 73 6c 61 6e  |K%=0.(C%=7.islan|
00003940  64 3e 30 29 84 28 69 73  6c 61 6e 64 3c 30 80 78  |d>0).(island<0.x|
00003950  33 25 3e 36 30 30 80 78  33 25 3c 39 30 30 80 94  |3%>600.x3%<900..|
00003960  79 33 25 3c 32 32 30 29  0d 1a a4 14 86 78 31 25  |y3%<220).....x1%|
00003970  2c 79 31 25 2c 78 33 25  2c 79 33 25 0d 1a ae 14  |,y1%,x3%,y3%....|
00003980  86 78 33 25 2c 79 33 25  2c 78 32 25 2c 79 32 25  |.x3%,y3%,x2%,y2%|
00003990  0d 1a b8 0f c8 8f 78 33  25 2c 79 33 25 2c 38 0d  |......x3%,y3%,8.|
000039a0  1a c2 09 fd 4b 25 3d 30  0d 1a cc 05 cc 0d 1a d6  |....K%=0........|
000039b0  05 f5 0d 1a e0 09 c8 96  3a c8 96 0d 1a ea 0f c8  |........:.......|
000039c0  8f 78 33 25 2c 79 33 25  2c 38 0d 1a f4 05 f5 0d  |.x3%,y3%,8......|
000039d0  1a fe 10 c8 97 78 33 25  2c 79 33 25 2c 4b 25 0d  |.....x3%,y3%,K%.|
000039e0  1b 08 0f 78 33 25 3d 78  33 25 81 36 2a 36 0d 1b  |...x3%=x3%.6*6..|
000039f0  12 0f 79 33 25 3d 79 33  25 81 36 2a 36 0d 1b 1c  |..y3%=y3%.6*6...|
00003a00  31 f1 8a 35 38 2c 30 29  22 59 20 22 3b 2d a8 28  |1..58,0)"Y ";-.(|
00003a10  78 33 25 2f 31 2e 35 29  2c 22 58 20 22 3b a8 28  |x3%/1.5),"X ";.(|
00003a20  79 33 25 2f 31 2e 35 29  3b 22 20 20 20 22 0d 1b  |y3%/1.5);"   "..|
00003a30  26 0c 2a 46 58 31 31 32  2c 32 0d 1b 30 10 43 25  |&.*FX112,2..0.C%|
00003a40  3d b0 78 33 25 2c 79 33  25 29 0d 1b 3a 0c 2a 46  |=.x3%,y3%)..:.*F|
00003a50  58 31 31 32 2c 31 0d 1b  44 26 f4 49 46 43 25 3c  |X112,1..D&.IFC%<|
00003a60  3e 37 41 4e 44 42 45 41  54 3d 30 3a 53 4f 55 4e  |>7ANDBEAT=0:SOUN|
00003a70  44 31 2c 2d 31 35 2c 31  32 30 2c 34 0d 1b 4e 44  |D1,-15,120,4..ND|
00003a80  e7 4b 25 3d 30 80 ac 28  28 43 25 3d 37 80 69 73  |.K%=0..((C%=7.is|
00003a90  6c 61 6e 64 3e 30 29 84  28 69 73 6c 61 6e 64 3c  |land>0).(island<|
00003aa0  30 80 78 33 25 3e 36 30  30 80 78 33 25 3c 39 30  |0.x3%>600.x3%<90|
00003ab0  30 80 94 79 33 25 3c 32  32 30 29 29 4b 25 3d 34  |0..y3%<220))K%=4|
00003ac0  0d 1b 58 3d fd 4b 25 3d  30 84 28 43 25 3d 37 80  |..X=.K%=0.(C%=7.|
00003ad0  69 73 6c 61 6e 64 3e 30  29 84 28 69 73 6c 61 6e  |island>0).(islan|
00003ae0  64 3c 30 80 78 33 25 3e  36 30 30 80 78 33 25 3c  |d<0.x3%>600.x3%<|
00003af0  39 30 30 80 94 79 33 25  3c 32 32 30 29 0d 1b 62  |900..y3%<220)..b|
00003b00  0f c8 8f 78 33 25 2c 79  33 25 2c 38 0d 1b 6c 09  |...x3%,y3%,8..l.|
00003b10  fd 4b 25 3d 30 0d 1b 76  05 cd 0d 1b 80 1e f1 8a  |.K%=0..v........|
00003b20  35 38 2c 30 29 22 20 20  20 20 20 20 20 20 20 20  |58,0)"          |
00003b30  20 20 20 20 20 20 20 22  0d 1b 8a 17 48 59 25 28  |       "....HY%(|
00003b40  58 25 2c 78 25 29 3d 2d  78 33 25 2f 31 2e 35 0d  |X%,x%)=-x3%/1.5.|
00003b50  1b 94 17 48 58 25 28 58  25 2c 78 25 29 3d 2d 79  |...HX%(X%,x%)=-y|
00003b60  33 25 2f 31 2e 35 0d 1b  9e 0e f2 72 65 64 69 73  |3%/1.5.....redis|
00003b70  70 6c 61 79 0d 1b a8 0c  f2 6f 75 74 6c 69 6e 65  |play.....outline|
00003b80  0d 1b b2 06 fd 30 0d 1b  c6 05 e1 0d 1b d0 04 0d  |.....0..........|
00003b90  1b da 0d dd f2 6f 75 74  6c 69 6e 65 0d 1b e4 08  |.....outline....|
00003ba0  e6 30 2c 38 0d 1b ee 22  ec 2d 48 59 25 28 58 25  |.0,8...".-HY%(X%|
00003bb0  2c 31 29 2a 31 2e 35 2c  2d 48 58 25 28 58 25 2c  |,1)*1.5,-HX%(X%,|
00003bc0  31 29 2a 31 2e 35 0d 1b  f8 12 e3 49 25 3d 31 b8  |1)*1.5.....I%=1.|
00003bd0  50 54 53 25 28 58 25 29  0d 1c 02 24 df 2d 48 59  |PTS%(X%)...$.-HY|
00003be0  25 28 58 25 2c 49 25 29  2a 31 2e 35 2c 2d 48 58  |%(X%,I%)*1.5,-HX|
00003bf0  25 28 58 25 2c 49 25 29  2a 31 2e 35 0d 1c 0c 05  |%(X%,I%)*1.5....|
00003c00  ed 0d 1c 16 22 df 2d 48  59 25 28 58 25 2c 31 29  |....".-HY%(X%,1)|
00003c10  2a 31 2e 35 2c 2d 48 58  25 28 58 25 2c 31 29 2a  |*1.5,-HX%(X%,1)*|
00003c20  31 2e 35 0d 1c 20 12 e3  49 25 3d 31 b8 50 54 53  |1.5.. ..I%=1.PTS|
00003c30  25 28 58 25 29 0d 1c 2a  27 c8 8f 2d 48 59 25 28  |%(X%)..*'..-HY%(|
00003c40  58 25 2c 49 25 29 2a 31  2e 35 2c 2d 48 58 25 28  |X%,I%)*1.5,-HX%(|
00003c50  58 25 2c 49 25 29 2a 31  2e 35 2c 38 0d 1c 34 05  |X%,I%)*1.5,8..4.|
00003c60  ed 0d 1c 3e 25 c8 8f 2d  48 59 25 28 58 25 2c 30  |...>%..-HY%(X%,0|
00003c70  29 2a 31 2e 35 2c 2d 48  58 25 28 58 25 2c 30 29  |)*1.5,-HX%(X%,0)|
00003c80  2a 31 2e 35 2c 38 0d 1c  48 05 e1 0d 1c 52 04 0d  |*1.5,8..H....R..|
00003c90  1c 5c 0c dd f2 64 65 6c  65 74 65 0d 1c 66 05 db  |.\...delete..f..|
00003ca0  0d 1c 70 0a 2a 46 58 32  32 39 0d 1c 7a 89 fb 38  |..p.*FX229..z..8|
00003cb0  3a f1 8a 30 2c 32 29 22  43 4c 49 43 4b 49 4e 47  |:..0,2)"CLICKING|
00003cc0  20 4f 4e 20 4f 4e 45 20  4f 46 20 54 48 45 20 52  | ON ONE OF THE R|
00003cd0  45 44 20 4f 42 4a 45 43  54 20 43 45 4e 54 52 45  |ED OBJECT CENTRE|
00003ce0  53 20 57 49 4c 4c 20 52  45 53 55 4c 54 20 49 4e  |S WILL RESULT IN|
00003cf0  20 54 48 41 54 20 4f 42  4a 45 43 54 53 22 27 22  | THAT OBJECTS"'"|
00003d00  44 45 4c 45 54 49 4f 4e  2e 20 20 50 4c 45 41 53  |DELETION.  PLEAS|
00003d10  45 20 54 41 4b 45 20 43  41 52 45 21 22 27 22 45  |E TAKE CARE!"'"E|
00003d20  53 43 41 50 45 20 54 4f  20 41 42 4f 52 54 22 3a  |SCAPE TO ABORT":|
00003d30  fb 31 33 0d 1c 84 1b ea  85 3a ee 85 ea 20 f2 72  |.13......:... .r|
00003d40  65 64 69 73 70 6c 61 79  3a e5 8d 54 6e 5d 0d 1c  |edisplay:..Tn]..|
00003d50  8e 0c f2 66 69 6e 64 6f  6e 65 0d 1c 98 0d dd f2  |...findone......|
00003d60  64 65 6c 65 74 65 32 0d  1c a2 15 e7 43 4f 25 28  |delete2.....CO%(|
00003d70  58 25 29 3d 35 67 72 65  65 6e 3d a3 0d 1c ac 17  |X%)=5green=.....|
00003d80  e7 43 4f 25 28 58 25 29  3d 26 31 30 37 20 74 65  |.CO%(X%)=&107 te|
00003d90  65 3d a3 0d 1c b6 18 6d  65 6d 3d 6d 65 6d 2b 36  |e=.....mem=mem+6|
00003da0  2b 50 54 53 25 28 58 25  29 2a 34 0d 1c c0 0f e7  |+PTS%(X%)*4.....|
00003db0  58 25 3c 3e 4e 4f 25 2d  31 8c 0d 1c ca 10 e3 54  |X%<>NO%-1......T|
00003dc0  25 3d 58 25 2b 31 b8 4e  4f 25 0d 1c d4 12 e3 49  |%=X%+1.NO%.....I|
00003dd0  25 3d 30 b8 50 54 53 25  28 54 25 29 0d 1c de 1b  |%=0.PTS%(T%)....|
00003de0  48 58 25 28 54 25 2d 31  2c 49 25 29 3d 48 58 25  |HX%(T%-1,I%)=HX%|
00003df0  28 54 25 2c 49 25 29 0d  1c e8 1b 48 59 25 28 54  |(T%,I%)....HY%(T|
00003e00  25 2d 31 2c 49 25 29 3d  48 59 25 28 54 25 2c 49  |%-1,I%)=HY%(T%,I|
00003e10  25 29 0d 1c f2 05 ed 0d  1c fc 15 43 4f 25 28 54  |%).........CO%(T|
00003e20  25 2d 31 29 3d 43 4f 25  28 54 25 29 0d 1d 06 19  |%-1)=CO%(T%)....|
00003e30  50 54 53 25 28 54 25 2d  31 29 3d 50 54 53 25 28  |PTS%(T%-1)=PTS%(|
00003e40  54 25 29 3a ed 0d 1d 10  05 cd 0d 1d 1a 0a 4e 4f  |T%):..........NO|
00003e50  25 2d 3d 31 0d 1d 24 0e  f2 72 65 64 69 73 70 6c  |%-=1..$..redispl|
00003e60  61 79 0d 1d 2e 0d f4 2a  46 58 32 32 39 2c 31 0d  |ay.....*FX229,1.|
00003e70  1d 38 05 e1 0d 1d 42 04  0d 1d 4c 0d dd f2 66 69  |.8....B...L...fi|
00003e80  6e 64 6f 6e 65 0d 1d 56  0c ea 85 3a ee 85 ea 20  |ndone..V...:... |
00003e90  e1 0d 1d 60 47 f1 8a 30  2c 30 29 22 54 48 45 52  |...`G..0,0)"THER|
00003ea0  45 20 41 52 45 20 22 3b  4e 4f 25 2d 31 3b 22 20  |E ARE ";NO%-1;" |
00003eb0  4f 42 4a 45 43 54 53 20  44 45 46 49 4e 45 44 2e  |OBJECTS DEFINED.|
00003ec0  20 20 53 45 4c 45 43 54  20 41 20 43 45 4e 54 52  |  SELECT A CENTR|
00003ed0  45 20 50 4f 49 4e 54 22  0d 1d 6a 06 e6 38 0d 1d  |E POINT"..j..8..|
00003ee0  74 0f e3 54 25 3d 31 b8  4e 4f 25 2d 31 0d 1d 7e  |t..T%=1.NO%-1..~|
00003ef0  25 c8 8f 2d 48 59 25 28  54 25 2c 30 29 2a 31 2e  |%..-HY%(T%,0)*1.|
00003f00  35 2c 2d 48 58 25 28 54  25 2c 30 29 2a 31 2e 35  |5,-HX%(T%,0)*1.5|
00003f10  2c 38 0d 1d 88 05 ed 0d  1d 92 05 f5 0d 1d 9c 0e  |,8..............|
00003f20  c8 97 58 25 2c 59 25 2c  4b 25 0d 1d a6 0a 66 6c  |..X%,Y%,K%....fl|
00003f30  61 67 3d a3 0d 1d b0 08  e7 4b 25 8c 0d 1d ba 0f  |ag=......K%.....|
00003f40  e3 54 25 3d 31 b8 4e 4f  25 2d 31 0d 1d c4 4d e7  |.T%=1.NO%-1...M.|
00003f50  28 94 28 2d 48 59 25 28  54 25 2c 30 29 2a 31 2e  |(.(-HY%(T%,0)*1.|
00003f60  35 2d 58 25 29 29 3c 31  32 80 28 94 28 2d 48 58  |5-X%))<12.(.(-HX|
00003f70  25 28 54 25 2c 30 29 2a  31 2e 35 2d 59 25 29 29  |%(T%,0)*1.5-Y%))|
00003f80  3c 31 32 66 6c 61 67 3d  b9 3a 58 25 3d 54 25 3a  |<12flag=.:X%=T%:|
00003f90  54 25 3d 4e 4f 25 2d 31  0d 1d ce 05 ed 0d 1d d8  |T%=NO%-1........|
00003fa0  05 cd 0d 1d e2 09 fd 66  6c 61 67 0d 1d ec 05 e1  |.......flag.....|
00003fb0  0d 1d f6 04 0d 1e 00 0f  dd f2 72 65 64 69 73 70  |..........redisp|
00003fc0  6c 61 79 0d 1e 0a 10 ef  32 36 3a 2a 46 58 31 31  |lay.....26:*FX11|
00003fd0  32 2c 32 0d 1e 14 08 da  3a e6 37 0d 1e 1e 14 c8  |2,2.....:.7.....|
00003fe0  91 69 73 6c 61 6e 64 2b  6c 65 6e 2c 36 34 30 0d  |.island+len,640.|
00003ff0  1e 28 20 ec 2d 48 59 25  28 30 2c 30 29 2a 31 2e  |.( .-HY%(0,0)*1.|
00004000  35 2c 2d 48 58 25 28 30  2c 30 29 2a 31 2e 35 0d  |5,-HX%(0,0)*1.5.|
00004010  1e 32 11 e3 49 25 3d 31  b8 50 54 53 25 28 30 29  |.2..I%=1.PTS%(0)|
00004020  0d 1e 3c 20 ec 2d 48 59  25 28 30 2c 30 29 2a 31  |..< .-HY%(0,0)*1|
00004030  2e 35 2c 2d 48 58 25 28  30 2c 30 29 2a 31 2e 35  |.5,-HX%(0,0)*1.5|
00004040  0d 1e 46 25 f0 38 35 2c  2d 48 59 25 28 30 2c 49  |..F%.85,-HY%(0,I|
00004050  25 29 2a 31 2e 35 2c 2d  48 58 25 28 30 2c 49 25  |%)*1.5,-HX%(0,I%|
00004060  29 2a 31 2e 35 0d 1e 50  05 ed 0d 1e 5a 23 f0 38  |)*1.5..P....Z#.8|
00004070  35 2c 2d 48 59 25 28 30  2c 31 29 2a 31 2e 35 2c  |5,-HY%(0,1)*1.5,|
00004080  2d 48 58 25 28 30 2c 31  29 2a 31 2e 35 0d 1e 64  |-HX%(0,1)*1.5..d|
00004090  0c 2a 46 58 31 31 32 2c  31 0d 1e 6e 21 ef 32 36  |.*FX112,1..n!.26|
000040a0  2c 32 34 2c 31 32 3b 32  36 38 3b 31 32 36 37 3b  |,24,12;268;1267;|
000040b0  31 30 31 31 3b 34 3a 87  3a da 0d 1e 78 14 c8 91  |1011;4:.:...x...|
000040c0  69 73 6c 61 6e 64 2b 6c  65 6e 2c 36 34 30 0d 1e  |island+len,640..|
000040d0  82 10 dd f2 72 65 64 69  73 70 6c 61 79 32 0d 1e  |....redisplay2..|
000040e0  8c 9f fb 31 33 34 3a fb  31 32 3a f1 8a 32 2c 31  |...134:.12:..2,1|
000040f0  29 3b 6c 65 6e 3b 22 20  59 41 52 44 53 20 3a 20  |);len;" YARDS : |
00004100  50 41 52 20 22 3b 70 61  72 3b 22 20 3a 20 48 4f  |PAR ";par;" : HO|
00004110  4c 45 20 4e 6f 2e 20 22  3b 6d 61 70 3f 28 6d 61  |LE No. ";map?(ma|
00004120  70 70 6f 69 6e 74 25 2b  26 32 46 38 29 3b 22 20  |ppoint%+&2F8);" |
00004130  3a 20 54 20 58 20 22 3b  3a 50 25 3d 6d 61 70 70  |: T X ";:P%=mapp|
00004140  6f 69 6e 74 25 2b 26 32  45 38 3a f1 3b a4 6d 61  |oint%+&2E8:.;.ma|
00004150  70 32 20 81 32 31 3b 22  20 3a 20 54 20 59 20 22  |p2 .21;" : T Y "|
00004160  3b a4 6d 61 70 32 20 81  32 31 3b 22 20 3a 20 4d  |;.map2 .21;" : M|
00004170  65 6d 6f 72 79 20 26 22  3b 7e 6d 65 6d 0d 1e 96  |emory &";~mem...|
00004180  1d ef 32 38 2c 31 2c 33  30 2c 37 38 2c 32 35 3a  |..28,1,30,78,25:|
00004190  fb 31 33 39 3a f4 3a 43  4c 53 0d 1e a0 0b e7 4e  |.139:.:CLS.....N|
000041a0  4f 25 3e 30 8c 0d 1e aa  0f e3 54 25 3d 30 b8 4e  |O%>0......T%=0.N|
000041b0  4f 25 2d 31 0d 1e b4 0c  e6 43 4f 25 28 54 25 29  |O%-1.....CO%(T%)|
000041c0  0d 1e be 22 ec 2d 48 59  25 28 54 25 2c 30 29 2a  |...".-HY%(T%,0)*|
000041d0  31 2e 35 2c 2d 48 58 25  28 54 25 2c 30 29 2a 31  |1.5,-HX%(T%,0)*1|
000041e0  2e 35 0d 1e c8 12 e3 49  25 3d 31 b8 50 54 53 25  |.5.....I%=1.PTS%|
000041f0  28 54 25 29 0d 1e d2 22  ec 2d 48 59 25 28 54 25  |(T%)...".-HY%(T%|
00004200  2c 30 29 2a 31 2e 35 2c  2d 48 58 25 28 54 25 2c  |,0)*1.5,-HX%(T%,|
00004210  30 29 2a 31 2e 35 0d 1e  dc 27 f0 38 35 2c 2d 48  |0)*1.5...'.85,-H|
00004220  59 25 28 54 25 2c 49 25  29 2a 31 2e 35 2c 2d 48  |Y%(T%,I%)*1.5,-H|
00004230  58 25 28 54 25 2c 49 25  29 2a 31 2e 35 0d 1e e6  |X%(T%,I%)*1.5...|
00004240  05 ed 0d 1e f0 25 f0 38  35 2c 2d 48 59 25 28 54  |.....%.85,-HY%(T|
00004250  25 2c 31 29 2a 31 2e 35  2c 2d 48 58 25 28 54 25  |%,1)*1.5,-HX%(T%|
00004260  2c 31 29 2a 31 2e 35 0d  1e fa 40 e7 43 4f 25 28  |,1)*1.5...@.CO%(|
00004270  54 25 29 3d 26 31 30 37  20 84 43 4f 25 28 54 25  |T%)=&107 .CO%(T%|
00004280  29 3d 35 20 e6 31 32 3a  c8 92 2d 48 59 25 28 54  |)=5 .12:..-HY%(T|
00004290  25 2c 30 29 2a 31 2e 35  2c 2d 48 58 25 28 54 25  |%,0)*1.5,-HX%(T%|
000042a0  2c 30 29 2a 31 2e 35 0d  1f 04 05 ed 0d 1f 0e 05  |,0)*1.5.........|
000042b0  cd 0d 1f 18 0c e7 4e 54  25 3e b9 20 8c 0d 1f 22  |......NT%>. ..."|
000042c0  07 e6 31 34 0d 1f 2c 0d  e3 54 25 3d 30 b8 4e 54  |..14..,..T%=0.NT|
000042d0  25 0d 1f 36 25 c8 8f c8  90 2d 54 52 59 25 28 54  |%..6%....-TRY%(T|
000042e0  25 29 2a 31 2e 35 2c 2d  54 52 58 25 28 54 25 29  |%)*1.5,-TRX%(T%)|
000042f0  2a 31 2e 35 2c 38 0d 1f  40 05 ed 0d 1f 4a 05 cd  |*1.5,8..@....J..|
00004300  0d 1f 54 09 f2 67 72 69  64 0d 1f 5e 05 e1 0d 1f  |..T..grid..^....|
00004310  68 04 0d 1f 72 0f dd f2  64 72 61 77 67 72 65 65  |h...r...drawgree|
00004320  6e 0d 1f 7c 0f e7 67 72  65 65 6e 20 ef 37 3a e1  |n..|..green .7:.|
00004330  0d 1f 86 39 e7 6d 65 6d  3c 35 34 f1 22 4e 4f 54  |...9.mem<54."NOT|
00004340  20 45 4e 4f 55 47 48 20  4d 45 4d 4f 52 59 21 21  | ENOUGH MEMORY!!|
00004350  20 50 52 45 53 53 20 53  50 41 43 45 3a 22 bd 37  | PRESS SPACE:".7|
00004360  3a f5 fd a5 3d 33 32 3a  e1 0d 1f 90 10 dd f2 64  |:...=32:.......d|
00004370  72 61 77 67 72 65 65 6e  32 0d 1f 9a 0b 67 72 65  |rawgreen2....gre|
00004380  65 6e 3d b9 0d 1f a4 0a  6d 65 6d 2d 3d 32 0d 1f  |en=.....mem-=2..|
00004390  ae 10 48 58 25 28 4e 4f  25 2c 30 29 3d 30 0d 1f  |..HX%(NO%,0)=0..|
000043a0  b8 10 48 59 25 28 4e 4f  25 2c 30 29 3d 30 0d 1f  |..HY%(NO%,0)=0..|
000043b0  c2 0a 6d 65 6d 2d 3d 34  0d 1f cc 0e 43 4f 25 28  |..mem-=4....CO%(|
000043c0  4e 4f 25 29 3d 35 0d 1f  d6 0f 50 54 53 25 28 4e  |NO%)=5....PTS%(N|
000043d0  4f 25 29 3d 30 0d 1f e0  08 ec 30 2c 30 0d 1f ea  |O%)=0.....0,0...|
000043e0  10 e3 54 25 3d 30 b8 33  33 30 88 33 30 0d 1f f4  |..T%=0.330.30...|
000043f0  10 50 54 53 25 28 4e 4f  25 29 2b 3d 31 0d 1f fe  |.PTS%(NO%)+=1...|
00004400  0a 6d 65 6d 2d 3d 34 0d  20 08 08 ec 30 2c 30 0d  |.mem-=4. ...0,0.|
00004410  20 12 1e 48 58 25 28 4e  4f 25 2c 50 54 53 25 28  | ..HX%(NO%,PTS%(|
00004420  4e 4f 25 29 29 3d b5 b2  54 25 2a 32 35 0d 20 1c  |NO%))=..T%*25. .|
00004430  1e 48 59 25 28 4e 4f 25  2c 50 54 53 25 28 4e 4f  |.HY%(NO%,PTS%(NO|
00004440  25 29 29 3d 9b b2 54 25  2a 32 35 0d 20 26 37 f0  |%))=..T%*25. &7.|
00004450  38 35 2c 2d 48 59 25 28  4e 4f 25 2c 50 54 53 25  |85,-HY%(NO%,PTS%|
00004460  28 4e 4f 25 29 29 2a 31  2e 35 2c 2d 48 58 25 28  |(NO%))*1.5,-HX%(|
00004470  4e 4f 25 2c 50 54 53 25  28 4e 4f 25 29 29 2a 31  |NO%,PTS%(NO%))*1|
00004480  2e 35 0d 20 30 05 ed 0d  20 3a 27 f0 38 35 2c 2d  |.5. 0... :'.85,-|
00004490  48 59 25 28 4e 4f 25 2c  31 29 2a 31 2e 35 2c 2d  |HY%(NO%,1)*1.5,-|
000044a0  48 58 25 28 4e 4f 25 2c  31 29 2a 31 2e 35 0d 20  |HX%(NO%,1)*1.5. |
000044b0  44 0a 4e 4f 25 2b 3d 31  0d 20 4e 0e f2 72 65 64  |D.NO%+=1. N..red|
000044c0  69 73 70 6c 61 79 0d 20  58 05 e1 0d 20 62 04 0d  |isplay. X... b..|
000044d0  20 6c 09 dd f2 6d 6f 75  0d 20 76 07 ea 43 25 0d  | l...mou. v..C%.|
000044e0  20 80 05 f5 0d 20 8a 0e  c8 97 58 25 2c 59 25 2c  | .... ....X%,Y%,|
000044f0  4b 25 0d 20 94 0d 58 25  3d 58 25 81 36 2a 36 0d  |K%. ..X%=X%.6*6.|
00004500  20 9e 0d 59 25 3d 59 25  81 36 2a 36 0d 20 a8 11  | ..Y%=Y%.6*6. ..|
00004510  e7 6f 62 25 3e 32 80 6f  62 25 3c 36 8c 0d 20 b2  |.ob%>2.ob%<6.. .|
00004520  1f e7 28 58 25 2f 31 2e  35 29 3c 2d 28 6c 65 6e  |..(X%/1.5)<-(len|
00004530  2d 28 94 28 59 25 81 36  29 29 29 8c 0d 20 bc 1b  |-(.(Y%.6))).. ..|
00004540  58 25 3d 2d 28 6c 65 6e  2d 28 94 28 59 25 81 36  |X%=-(len-(.(Y%.6|
00004550  29 29 29 2a 31 2e 35 0d  20 c6 0d 58 25 3d 58 25  |)))*1.5. ..X%=X%|
00004560  81 36 2a 36 0d 20 d0 0c  c8 97 b8 58 25 2c 59 25  |.6*6. .....X%,Y%|
00004570  0d 20 da 05 cd 0d 20 e4  05 cd 0d 20 ee 2f f1 8a  |. .... .... ./..|
00004580  35 38 2c 30 29 22 59 20  22 3b 2d a8 28 58 25 2f  |58,0)"Y ";-.(X%/|
00004590  31 2e 35 29 2c 22 58 20  22 3b a8 28 59 25 2f 31  |1.5),"X ";.(Y%/1|
000045a0  2e 35 29 3b 22 20 20 20  22 0d 20 f8 1e f1 8a 35  |.5);"   ". ....5|
000045b0  38 2c 32 29 3b 7e 6d 65  6d 3b 22 20 42 59 54 45  |8,2);~mem;" BYTE|
000045c0  53 20 4c 45 46 54 22 0d  21 02 20 f1 8a 35 38 2c  |S LEFT".!. ..58,|
000045d0  33 29 3b 4e 4f 25 3b 22  20 4f 42 4a 45 43 54 53  |3);NO%;" OBJECTS|
000045e0  20 44 52 41 57 4e 22 0d  21 0c 0c 2a 46 58 31 31  | DRAWN".!..*FX11|
000045f0  32 2c 32 0d 21 16 0e 43  25 3d b0 58 25 2c 59 25  |2,2.!..C%=.X%,Y%|
00004600  29 0d 21 20 0c 2a 46 58  31 31 32 2c 31 0d 21 2a  |).! .*FX112,1.!*|
00004610  1f e7 43 25 3c 3e 37 80  4b 25 80 c6 8f 3d 30 3a  |..C%<>7.K%...=0:|
00004620  d4 31 2c 2d 31 35 2c 31  32 30 2c 34 0d 21 34 3b  |.1,-15,120,4.!4;|
00004630  fd 28 43 25 3d 37 80 69  73 6c 61 6e 64 3e 30 29  |.(C%=7.island>0)|
00004640  84 28 6f 62 25 3d 30 80  69 73 6c 61 6e 64 3c 30  |.(ob%=0.island<0|
00004650  80 58 25 3e 36 30 30 80  58 25 3c 39 30 30 80 94  |.X%>600.X%<900..|
00004660  59 25 3c 32 32 30 29 0d  21 3e 05 e1 0d 21 48 04  |Y%<220).!>...!H.|
00004670  0d 21 52 0d dd f2 72 65  71 28 41 24 29 0d 21 5c  |.!R...req(A$).!\|
00004680  14 ef 32 38 2c 31 2c 33  30 2c 32 30 2c 33 30 3a  |..28,1,30,20,30:|
00004690  db 0d 21 66 0b fb 38 3a  f1 41 24 3b 0d 21 70 14  |..!f..8:.A$;.!p.|
000046a0  ef 32 38 2c 31 2c 33 30  2c 37 38 2c 32 35 2c 37  |.28,1,30,78,25,7|
000046b0  0d 21 7a 05 e1 0d 21 84  04 0d 21 8e 0e dd f2 73  |.!z...!...!....s|
000046c0  68 6f 77 63 6f 6c 73 0d  21 98 05 db 0d 21 a2 0b  |howcols.!....!..|
000046d0  e3 54 25 3d 30 b8 36 0d  21 ac 1f fb 4f 42 25 28  |.T%=0.6.!...OB%(|
000046e0  54 25 29 3a f1 8a 54 25  2a 31 31 2b 32 29 4f 42  |T%):..T%*11+2)OB|
000046f0  24 28 54 25 29 3b 0d 21  b6 05 ed 0d 21 c0 05 e1  |$(T%);.!....!...|
00004700  0d 21 ca 10 dd f2 73 68  6f 77 63 68 6f 73 65 6e  |.!....showchosen|
00004710  0d 21 d4 0f db 3a fb 4f  42 25 28 6f 62 25 29 0d  |.!...:.OB%(ob%).|
00004720  21 de 1c f1 8a 30 2c 30  29 22 44 52 41 57 49 4e  |!....0,0)"DRAWIN|
00004730  47 20 22 4f 42 24 28 6f  62 25 29 0d 21 e8 05 e1  |G "OB$(ob%).!...|
00004740  0d 21 f2 04 0d 21 fc 0e  dd f2 69 6e 73 74 72 75  |.!...!....instru|
00004750  63 74 0d 22 06 1a f2 63  6f 6c 6f 75 72 73 28 39  |ct."...colours(9|
00004760  29 3a f2 73 63 72 65 65  6e 62 6f 78 0d 22 10 43  |):.screenbox.".C|
00004770  e7 a4 71 75 65 73 74 28  22 44 4f 20 59 4f 55 20  |..quest("DO YOU |
00004780  52 45 51 55 49 52 45 20  49 4e 53 54 52 55 43 54  |REQUIRE INSTRUCT|
00004790  49 4f 4e 53 3f 22 2c 22  59 45 53 22 2c 22 4e 4f  |IONS?","YES","NO|
000047a0  22 2c 30 29 3a f2 62 75  74 74 28 30 29 3a e1 0d  |",0):.butt(0):..|
000047b0  22 1a 27 f2 63 6f 6c 6f  75 72 73 28 31 32 29 3a  |".'.colours(12):|
000047c0  f2 6d 65 73 62 6f 78 28  30 2c 30 2c 31 32 37 39  |.mesbox(0,0,1279|
000047d0  2c 31 30 32 33 29 0d 22  24 19 e6 31 32 3a c8 93  |,1023)."$..12:..|
000047e0  39 39 38 2c 36 34 30 2c  31 36 30 2c 32 35 36 0d  |998,640,160,256.|
000047f0  22 2e 2a 86 31 30 35 38  2c 38 39 36 2c 31 30 36  |".*.1058,896,106|
00004800  36 2c 39 34 30 3a df 31  30 39 30 2c 39 34 30 3a  |6,940:.1090,940:|
00004810  df 31 30 39 38 2c 38 39  36 0d 22 38 16 e6 31 33  |.1098,896."8..13|
00004820  39 3a e6 31 3a c8 90 31  30 37 38 2c 39 30 30 0d  |9:.1:..1078,900.|
00004830  22 42 12 fb 31 2c 32 34  30 2c 32 34 30 2c 31 39  |"B..1,240,240,19|
00004840  32 0d 22 4c 12 fb 32 2c  32 34 30 2c 32 30 38 2c  |2."L..2,240,208,|
00004850  32 30 38 0d 22 56 12 fb  33 2c 32 34 30 2c 32 34  |208."V..3,240,24|
00004860  30 2c 32 32 34 0d 22 60  1b e6 31 3a c8 93 c8 90  |0,224."`..1:....|
00004870  31 30 30 30 2c 36 34 34  2c 31 35 36 2c 32 34 38  |1000,644,156,248|
00004880  0d 22 6a 1b e6 33 3a c8  93 c8 90 31 30 30 30 2c  |."j..3:....1000,|
00004890  36 34 34 2c 31 35 36 2c  31 32 34 0d 22 74 0b e3  |644,156,124."t..|
000048a0  54 25 3d 30 b8 32 0d 22  7e 1e e6 31 32 3a c8 93  |T%=0.2."~..12:..|
000048b0  31 30 31 32 2b 54 25 2a  35 30 2c 38 30 30 2c 33  |1012+T%*50,800,3|
000048c0  32 2c 36 34 0d 22 88 1f  e6 32 3a c8 93 c8 90 31  |2,64."...2:....1|
000048d0  30 31 34 2b 54 25 2a 35  30 2c 38 30 34 2c 32 38  |014+T%*50,804,28|
000048e0  2c 35 36 0d 22 92 21 e6  31 32 3a ec 31 30 32 30  |,56.".!.12:.1020|
000048f0  2b 54 25 2a 35 30 2c 38  35 30 3a ef 35 3a f1 3b  |+T%*50,850:.5:.;|
00004900  54 25 2b 31 0d 22 9c 0a  ed 3a ef 34 3a 87 0d 22  |T%+1."...:.4:.."|
00004910  a6 0c fb 31 33 39 3a fb  31 32 0d 22 b0 11 ef 32  |...139:.12."...2|
00004920  38 2c 32 2c 33 30 2c 37  38 2c 33 0d 22 ba 95 f1  |8,2,30,78,3."...|
00004930  8a 30 2c 30 29 22 47 61  6d 65 20 63 6f 6e 74 72  |.0,0)"Game contr|
00004940  6f 6c 20 69 6e 20 74 68  65 20 41 72 63 68 69 6d  |ol in the Archim|
00004950  65 64 65 73 20 76 65 72  73 69 6f 6e 20 6f 66 20  |edes version of |
00004960  22 3b 3a fb 39 3a f1 22  48 4f 4c 45 44 20 4f 55  |";:.9:."HOLED OU|
00004970  54 22 3b 3a fb 31 32 3a  f1 22 20 69 73 20 76 69  |T";:.12:." is vi|
00004980  61 22 27 22 74 68 65 20  4d 4f 55 53 45 2c 20 74  |a"'"the MOUSE, t|
00004990  68 65 20 6b 65 79 73 20  61 72 65 20 6e 75 6d 62  |he keys are numb|
000049a0  65 72 65 64 20 61 73 20  69 6e 64 69 63 61 74 65  |ered as indicate|
000049b0  64 20 6f 6e 20 74 68 65  20 72 69 67 68 74 2e 22  |d on the right."|
000049c0  0d 22 c4 54 f1 27 22 54  68 65 20 64 69 66 66 65  |.".T.'"The diffe|
000049d0  72 65 6e 63 65 73 20 74  6f 20 74 68 65 20 69 6e  |rences to the in|
000049e0  73 74 72 75 63 74 69 6f  6e 73 20 61 73 20 73 68  |structions as sh|
000049f0  6f 77 6e 20 69 6e 20 74  68 65 20 6d 61 6e 75 61  |own in the manua|
00004a00  6c 22 27 22 61 72 65 20  61 73 20 66 6f 6c 6c 6f  |l"'"are as follo|
00004a10  77 73 3a 22 0d 22 ce 42  f1 27 22 53 54 52 4f 4b  |ws:".".B.'"STROK|
00004a20  45 50 4c 41 59 2f 22 8a  31 36 29 22 54 68 65 72  |EPLAY/".16)"Ther|
00004a30  65 20 63 61 6e 20 62 65  20 75 70 20 74 6f 20 36  |e can be up to 6|
00004a40  20 70 6c 61 79 65 72 73  20 69 6e 20 61 6e 79 20  | players in any |
00004a50  72 6f 75 6e 64 22 0d 22  d8 88 f1 27 22 47 41 4d  |round"."...'"GAM|
00004a60  45 20 43 4f 4e 54 52 4f  4c 53 2f 22 27 27 22 31  |E CONTROLS/"''"1|
00004a70  2e 20 53 45 4c 45 43 54  20 43 4c 55 42 2e 20 55  |. SELECT CLUB. U|
00004a80  73 65 20 74 68 65 20 4d  4f 55 53 45 20 74 6f 20  |se the MOUSE to |
00004a90  69 6e 64 69 63 61 74 65  20 74 68 65 20 63 6c 75  |indicate the clu|
00004aa0  62 20 72 65 71 75 69 72  65 64 20 74 68 65 6e 22  |b required then"|
00004ab0  8a 31 36 29 22 70 72 65  73 73 20 61 6e 79 20 62  |.16)"press any b|
00004ac0  75 74 74 6f 6e 20 74 6f  20 67 6f 20 74 6f 20 74  |utton to go to t|
00004ad0  68 65 20 6e 65 78 74 20  73 74 61 67 65 22 0d 22  |he next stage"."|
00004ae0  e2 47 f1 27 22 32 2e 20  44 49 52 45 43 54 49 4f  |.G.'"2. DIRECTIO|
00004af0  4e 2e 20 20 20 50 6f 73  69 74 69 6f 6e 20 74 68  |N.   Position th|
00004b00  65 20 63 75 72 73 6f 72  20 77 69 74 68 20 74 68  |e cursor with th|
00004b10  65 20 4d 4f 55 53 45 20  74 68 65 6e 20 65 69 74  |e MOUSE then eit|
00004b20  68 65 72 2e 22 0d 22 ec  2e f1 89 28 31 36 29 22  |her."."....(16)"|
00004b30  50 72 65 73 73 20 5b 32  5d 20 74 6f 20 67 6f 20  |Press [2] to go |
00004b40  74 6f 20 74 68 65 20 6e  65 78 74 20 73 74 61 67  |to the next stag|
00004b50  65 2e 22 0d 22 f6 33 f1  89 28 31 36 29 22 50 72  |e.".".3..(16)"Pr|
00004b60  65 73 73 20 5b 31 5d 20  6f 72 20 5b 33 5d 20 74  |ess [1] or [3] t|
00004b70  6f 20 73 65 6c 65 63 74  20 61 6e 6f 74 68 65 72  |o select another|
00004b80  20 63 6c 75 62 22 0d 23  00 51 f1 27 22 33 2e 20  | club".#.Q.'"3. |
00004b90  50 4f 57 45 52 2e 22 8a  31 36 29 22 41 73 20 73  |POWER.".16)"As s|
00004ba0  6f 6f 6e 20 61 73 20 74  68 65 20 64 69 72 65 63  |oon as the direc|
00004bb0  74 69 6f 6e 20 68 61 73  20 62 65 65 6e 20 73 65  |tion has been se|
00004bc0  6c 65 63 74 65 64 20 62  79 20 70 72 65 73 73 69  |lected by pressi|
00004bd0  6e 67 20 5b 32 5d 22 0d  23 0a 30 f1 8a 31 36 29  |ng [2]".#.0..16)|
00004be0  22 74 68 65 20 62 61 72  20 69 6e 64 69 63 61 74  |"the bar indicat|
00004bf0  6f 72 20 77 69 6c 6c 20  73 74 61 72 74 20 74 6f  |or will start to|
00004c00  20 6d 6f 76 65 2e 22 0d  23 14 2f f1 8a 31 36 29  | move.".#./..16)|
00004c10  22 50 72 65 73 73 69 6e  67 20 5b 32 5d 20 77 69  |"Pressing [2] wi|
00004c20  6c 6c 20 67 69 76 65 20  61 20 4e 6f 72 6d 61 6c  |ll give a Normal|
00004c30  20 73 68 6f 74 22 0d 23  1e 2f f1 8a 31 36 29 22  | shot".#./..16)"|
00004c40  50 72 65 73 73 69 6e 67  20 5b 31 5d 20 77 69 6c  |Pressing [1] wil|
00004c50  6c 20 67 69 76 65 20 61  20 48 6f 6f 6b 65 64 20  |l give a Hooked |
00004c60  73 68 6f 74 22 0d 23 28  2f f1 8a 31 36 29 22 50  |shot".#(/..16)"P|
00004c70  72 65 73 73 69 6e 67 20  5b 33 5d 20 77 69 6c 6c  |ressing [3] will|
00004c80  20 67 69 76 65 20 61 20  53 6c 69 63 65 64 20 73  | give a Sliced s|
00004c90  68 6f 74 22 0d 23 32 4f  f1 27 22 54 6f 20 72 65  |hot".#2O.'"To re|
00004ca0  61 64 20 63 6f 75 72 73  65 73 20 66 72 6f 6d 20  |ad courses from |
00004cb0  61 6c 74 65 72 6e 61 74  65 20 64 69 73 63 73 20  |alternate discs |
00004cc0  73 69 6d 70 6c 79 20 69  6e 73 65 72 74 20 74 68  |simply insert th|
00004cd0  65 20 64 69 73 63 20 77  68 65 6e 20 69 6e 20 74  |e disc when in t|
00004ce0  68 65 22 0d 23 3c 27 f1  22 43 4f 55 52 53 45 53  |he".#<'."COURSES|
00004cf0  20 77 69 6e 64 6f 77 20  61 6e 64 20 70 72 65 73  | window and pres|
00004d00  73 20 45 53 43 41 50 45  2e 22 0d 23 46 28 f1 27  |s ESCAPE.".#F(.'|
00004d10  8a 32 32 29 22 50 52 45  53 53 20 41 4e 59 20 42  |.22)"PRESS ANY B|
00004d20  55 54 54 4f 4e 20 54 4f  20 43 4f 4e 54 49 4e 55  |UTTON TO CONTINU|
00004d30  45 22 0d 23 50 0c f2 62  75 74 74 28 30 29 0d 23  |E".#P..butt(0).#|
00004d40  5a 21 f5 3a c8 97 58 25  2c 59 25 2c 4b 25 3a fd  |Z!.:..X%,Y%,K%:.|
00004d50  4b 25 3a d4 31 2c 2d 31  30 2c 32 30 30 2c 31 0d  |K%:.1,-10,200,1.|
00004d60  23 64 0c f2 62 75 74 74  28 30 29 0d 23 6e 11 ef  |#d..butt(0).#n..|
00004d70  32 38 2c 32 2c 33 30 2c  37 38 2c 31 0d 23 78 09  |28,2,30,78,1.#x.|
00004d80  db 3a fb 31 34 0d 23 82  04 0d 23 8c 22 f1 27 22  |.:.14.#...#.".'"|
00004d90  4f 70 65 72 61 74 69 6f  6e 20 6f 66 20 74 68 65  |Operation of the|
00004da0  20 45 44 49 54 4f 52 20  3a 2d 22 0d 23 96 07 fb  | EDITOR :-".#...|
00004db0  31 32 0d 23 a0 50 f1 27  22 54 68 65 20 6d 61 69  |12.#.P.'"The mai|
00004dc0  6e 20 45 44 49 54 4f 52  20 70 61 6e 65 6c 20 63  |n EDITOR panel c|
00004dd0  6f 6e 73 69 73 74 73 20  6f 66 20 61 20 70 6c 61  |onsists of a pla|
00004de0  6e 20 6f 66 20 74 68 65  20 68 6f 6c 65 20 62 65  |n of the hole be|
00004df0  69 6e 67 20 65 64 69 74  65 64 20 61 6e 64 20 61  |ing edited and a|
00004e00  6e 22 0d 23 aa 3e f1 22  4f 70 74 69 6f 6e 73 20  |n".#.>."Options |
00004e10  77 69 6e 64 6f 77 2e 20  20 54 68 65 20 6f 70 74  |window.  The opt|
00004e20  69 6f 6e 73 20 61 72 65  20 73 70 6c 69 74 20 69  |ions are split i|
00004e30  6e 74 6f 20 74 77 6f 20  67 72 6f 75 70 73 2e 22  |nto two groups."|
00004e40  0d 23 b4 51 f1 27 22 54  68 65 20 66 69 72 73 74  |.#.Q.'"The first|
00004e50  20 63 6f 6e 74 61 69 6e  73 20 37 20 64 69 66 66  | contains 7 diff|
00004e60  65 72 65 6e 74 20 63 6f  6c 6f 75 72 65 64 20 64  |erent coloured d|
00004e70  72 61 77 69 6e 67 20 6f  70 74 69 6f 6e 73 20 77  |rawing options w|
00004e80  68 69 63 68 20 61 72 65  20 75 73 65 64 20 74 6f  |hich are used to|
00004e90  22 0d 23 be 48 f1 22 64  72 61 77 20 74 68 65 20  |".#.H."draw the |
00004ea0  76 61 72 69 6f 75 73 20  6f 62 6a 65 63 74 73 20  |various objects |
00004eb0  6f 6e 20 74 68 65 20 68  6f 6c 65 20 7b 47 72 65  |on the hole {Gre|
00004ec0  65 6e 2c 20 46 61 69 72  77 61 79 2c 20 57 61 74  |en, Fairway, Wat|
00004ed0  65 72 20 65 63 74 7d 2e  22 0d 23 c8 4c f1 27 22  |er ect}.".#.L.'"|
00004ee0  54 68 65 20 73 65 63 6f  6e 64 20 67 72 6f 75 70  |The second group|
00004ef0  20 61 72 65 20 61 6c 6c  20 63 6f 6c 6f 75 72 65  | are all coloure|
00004f00  64 20 72 65 64 20 61 6e  64 20 63 6f 6e 74 72 6f  |d red and contro|
00004f10  6c 20 74 68 65 20 45 44  49 54 4f 52 20 61 63 74  |l the EDITOR act|
00004f20  69 6f 6e 73 22 0d 23 d2  52 f1 22 7b 4c 6f 61 64  |ions".#.R."{Load|
00004f30  20 61 6e 64 20 53 61 76  65 20 66 69 6c 65 73 2c  | and Save files,|
00004f40  20 4f 62 6a 65 63 74 20  64 65 6c 65 74 69 6f 6e  | Object deletion|
00004f50  20 65 63 74 7d 20 61 6c  6c 20 74 68 65 73 65 20  | ect} all these |
00004f60  61 63 74 69 6f 6e 73 20  68 61 76 65 20 74 68 65  |actions have the|
00004f70  69 72 20 6f 77 6e 22 0d  23 dc 52 f1 22 48 65 6c  |ir own".#.R."Hel|
00004f80  70 20 74 65 78 74 2e 20  20 54 68 65 20 62 65 73  |p text.  The bes|
00004f90  74 20 77 61 79 20 74 6f  20 64 69 73 63 6f 76 65  |t way to discove|
00004fa0  72 20 74 68 65 69 72 20  6f 70 65 72 61 74 69 6f  |r their operatio|
00004fb0  6e 20 69 73 20 74 6f 20  74 72 79 20 74 68 65 6d  |n is to try them|
00004fc0  20 6f 75 74 20 66 6f 72  22 0d 23 e6 10 f1 22 79  | out for".#..."y|
00004fd0  6f 75 72 73 65 6c 66 2e  22 0d 23 f0 4f f1 27 22  |ourself.".#.O.'"|
00004fe0  41 6c 6c 20 63 6f 75 72  73 65 20 66 69 6c 65 73  |All course files|
00004ff0  20 61 72 65 20 73 61 76  65 64 20 69 6e 20 74 68  | are saved in th|
00005000  65 20 24 20 64 69 72 65  63 74 6f 72 79 20 6f 6e  |e $ directory on|
00005010  20 64 72 69 76 65 20 3a  30 20 61 6e 64 20 69 74  | drive :0 and it|
00005020  20 69 73 20 6e 6f 74 22  0d 23 fa 52 f1 22 70 6f  | is not".#.R."po|
00005030  73 73 69 62 6c 65 20 74  6f 20 73 61 76 65 20 66  |ssible to save f|
00005040  69 6c 65 73 20 74 6f 20  74 68 65 20 45 44 49 54  |iles to the EDIT|
00005050  4f 52 20 64 69 73 63 2e  20 20 54 68 65 72 65 20  |OR disc.  There |
00005060  61 72 65 20 6e 6f 20 73  70 65 63 69 61 6c 20 61  |are no special a|
00005070  63 74 69 6f 6e 73 20 74  6f 22 0d 24 04 51 f1 22  |ctions to".$.Q."|
00005080  72 65 61 64 20 6f 72 20  77 72 69 74 65 20 74 6f  |read or write to|
00005090  20 61 6e 6f 74 68 65 72  20 64 69 73 63 20 73 69  | another disc si|
000050a0  6d 70 6c 79 20 69 6e 73  65 72 74 20 74 68 65 20  |mply insert the |
000050b0  64 69 73 63 20 62 65 66  6f 72 65 20 73 65 6c 65  |disc before sele|
000050c0  63 74 69 6e 67 20 4c 6f  61 64 22 0d 24 0e 0f f1  |cting Load".$...|
000050d0  22 6f 72 20 53 61 76 65  2e 22 0d 24 18 52 f1 27  |"or Save.".$.R.'|
000050e0  22 42 65 66 6f 72 65 20  79 6f 75 20 63 61 6e 20  |"Before you can |
000050f0  27 53 41 56 45 27 20 61  20 68 6f 6c 65 20 61 73  |'SAVE' a hole as|
00005100  20 70 61 72 74 20 6f 66  20 61 20 63 6f 75 72 73  | part of a cours|
00005110  65 20 6f 72 20 27 56 49  45 57 27 20 61 20 68 6f  |e or 'VIEW' a ho|
00005120  6c 65 20 79 6f 75 20 6d  75 73 74 22 0d 24 22 48  |le you must".$"H|
00005130  f1 22 75 73 65 20 74 68  65 20 27 57 52 49 54 45  |."use the 'WRITE|
00005140  20 48 4f 4c 45 27 20 6f  70 74 69 6f 6e 20 74 6f  | HOLE' option to|
00005150  20 73 74 6f 72 65 20 74  68 65 20 64 61 74 61 20  | store the data |
00005160  69 6e 74 6f 20 63 6f 75  72 73 65 20 6d 65 6d 6f  |into course memo|
00005170  72 79 2e 22 0d 24 2c 50  f1 27 22 57 68 65 6e 20  |ry.".$,P.'"When |
00005180  53 41 56 49 4e 47 20 61  20 63 6f 75 72 73 65 20  |SAVING a course |
00005190  74 6f 20 64 69 73 63 20  79 6f 75 20 63 61 6e 20  |to disc you can |
000051a0  75 73 65 20 73 70 61 63  65 73 20 69 6e 20 74 68  |use spaces in th|
000051b0  65 20 66 69 6c 65 20 6e  61 6d 65 20 73 6f 20 74  |e file name so t|
000051c0  68 61 74 22 0d 24 36 9b  f1 22 6e 61 6d 65 73 20  |hat".$6.."names |
000051d0  73 75 63 68 20 61 73 20  27 50 49 4e 45 20 49 53  |such as 'PINE IS|
000051e0  4c 45 53 27 20 61 72 65  20 71 75 69 74 65 20 61  |LES' are quite a|
000051f0  63 63 65 70 74 61 62 6c  65 2c 20 20 54 68 65 20  |cceptable,  The |
00005200  73 70 61 63 65 73 20 77  69 6c 6c 20 62 65 20 72  |spaces will be r|
00005210  65 70 6c 61 63 65 64 62  79 20 75 6e 64 65 72 6c  |eplacedby underl|
00005220  69 6e 65 20 63 68 61 72  61 63 74 65 72 73 20 77  |ine characters w|
00005230  68 65 6e 20 74 68 65 20  66 69 6c 65 20 69 73 20  |hen the file is |
00005240  73 61 76 65 64 20 61 6e  64 20 72 65 73 74 6f 72  |saved and restor|
00005250  65 64 20 6f 6e 20 6c 6f  61 64 69 6e 67 2e 22 0d  |ed on loading.".|
00005260  24 40 29 f1 27 27 8a 32  32 29 22 50 52 45 53 53  |$@).''.22)"PRESS|
00005270  20 41 4e 59 20 42 55 54  54 4f 4e 20 54 4f 20 43  | ANY BUTTON TO C|
00005280  4f 4e 54 49 4e 55 45 22  0d 24 4a 0c f2 62 75 74  |ONTINUE".$J..but|
00005290  74 28 30 29 0d 24 54 21  f5 3a c8 97 58 25 2c 59  |t(0).$T!.:..X%,Y|
000052a0  25 2c 4b 25 3a fd 4b 25  3a d4 31 2c 2d 31 30 2c  |%,K%:.K%:.1,-10,|
000052b0  32 30 30 2c 31 0d 24 5e  0e f2 62 75 74 74 28 30  |200,1.$^..butt(0|
000052c0  29 3a db 0d 24 68 21 f1  22 4f 70 65 72 61 74 69  |):..$h!."Operati|
000052d0  6f 6e 20 6f 66 20 74 68  65 20 45 44 49 54 4f 52  |on of the EDITOR|
000052e0  20 3a 2d 22 0d 24 72 52  f1 27 22 49 74 20 69 73  | :-".$rR.'"It is|
000052f0  20 70 6f 73 73 69 62 6c  65 20 74 6f 20 64 72 61  | possible to dra|
00005300  77 20 6f 6e 65 20 6f 62  6a 65 63 74 20 6f 76 65  |w one object ove|
00005310  72 20 74 68 65 20 74 6f  70 20 6f 66 20 61 6e 6f  |r the top of ano|
00005320  74 68 65 72 2c 20 73 6f  20 73 6f 6d 65 20 74 68  |ther, so some th|
00005330  6f 75 67 68 74 22 0d 24  7c 50 f1 22 77 69 6c 6c  |ought".$|P."will|
00005340  20 62 65 20 72 65 71 75  69 72 65 64 20 77 68 65  | be required whe|
00005350  6e 20 63 6f 6e 73 74 72  75 63 74 69 6e 67 20 61  |n constructing a|
00005360  20 68 6f 6c 65 20 69 66  20 74 68 65 20 66 69 6e  | hole if the fin|
00005370  61 6c 20 72 65 73 75 6c  74 20 69 73 20 74 6f 20  |al result is to |
00005380  62 65 20 61 73 22 0d 24  86 50 f1 22 79 6f 75 20  |be as".$.P."you |
00005390  76 69 73 75 61 6c 69 73  65 20 69 74 2e 20 20 50  |visualise it.  P|
000053a0  6c 61 63 69 6e 67 20 61  72 65 61 73 20 6f 66 20  |lacing areas of |
000053b0  77 61 74 65 72 20 6f 72  20 62 75 6e 6b 65 72 73  |water or bunkers|
000053c0  20 75 6e 64 65 72 6e 65  61 74 68 20 74 68 65 20  | underneath the |
000053d0  67 72 65 65 6e 22 0d 24  90 41 f1 22 63 61 6e 20  |green".$.A."can |
000053e0  68 61 76 65 20 75 6e 70  72 65 64 69 63 74 61 62  |have unpredictab|
000053f0  6c 65 20 72 65 73 75 6c  74 73 20 73 6f 20 74 72  |le results so tr|
00005400  79 20 74 6f 20 61 76 6f  69 64 20 64 6f 69 6e 67  |y to avoid doing|
00005410  20 74 68 69 73 2e 22 0d  24 9a 52 f1 27 22 49 66  | this.".$.R.'"If|
00005420  20 79 6f 75 20 73 65 6c  65 63 74 20 74 68 65 20  | you select the |
00005430  27 49 53 4c 41 4e 44 27  20 6f 70 74 69 6f 6e 20  |'ISLAND' option |
00005440  69 74 20 77 69 6c 6c 20  74 6f 67 67 6c 65 20 74  |it will toggle t|
00005450  68 65 20 68 6f 6c 65 20  70 6c 61 6e 20 74 6f 20  |he hole plan to |
00005460  74 68 65 20 6c 65 66 74  22 0d 24 a4 50 f1 22 6f  |the left".$.P."o|
00005470  66 20 74 68 65 20 73 63  72 65 65 6e 2e 20 20 49  |f the screen.  I|
00005480  6e 20 74 68 69 73 20 6d  6f 64 65 20 79 6f 75 20  |n this mode you |
00005490  77 69 6c 6c 20 6f 6e 6c  79 20 62 65 20 61 62 6c  |will only be abl|
000054a0  65 20 74 6f 20 64 72 61  77 20 61 6e 20 69 73 6c  |e to draw an isl|
000054b0  61 6e 64 20 77 69 74 68  22 0d 24 ae 51 f1 22 63  |and with".$.Q."c|
000054c0  6f 6c 6f 75 72 20 27 52  4f 55 47 48 27 20 61 6e  |olour 'ROUGH' an|
000054d0  64 20 70 6f 73 69 74 69  6f 6e 20 74 72 65 65 73  |d position trees|
000054e0  20 6f 6e 20 74 68 65 20  69 73 6c 61 6e 64 2e 20  | on the island. |
000054f0  20 53 65 6c 65 63 74 20  27 49 53 4c 41 4e 44 27  | Select 'ISLAND'|
00005500  20 61 67 61 69 6e 20 74  6f 22 0d 24 b8 29 f1 22  | again to".$.)."|
00005510  72 65 74 75 72 6e 20 74  6f 20 74 68 65 20 6e 6f  |return to the no|
00005520  72 6d 61 6c 20 65 64 69  74 69 6e 67 20 6d 6f 64  |rmal editing mod|
00005530  65 2e 22 0d 24 c2 4d f1  27 22 54 68 65 20 68 6f  |e.".$.M.'"The ho|
00005540  6c 65 20 70 6c 61 6e 20  69 73 20 64 69 76 69 64  |le plan is divid|
00005550  65 64 20 69 6e 74 6f 20  35 30 20 79 61 72 64 20  |ed into 50 yard |
00005560  73 71 75 61 72 65 73 20  74 68 65 73 65 20 73 68  |squares these sh|
00005570  6f 75 6c 64 20 62 65 20  75 73 65 64 20 69 6e 22  |ould be used in"|
00005580  0d 24 cc 51 f1 22 63 6f  6e 6a 75 6e 63 74 69 6f  |.$.Q."conjunctio|
00005590  6e 20 77 69 74 68 20 74  68 65 20 63 6c 75 62 20  |n with the club |
000055a0  64 69 73 74 61 6e 63 65  73 20 6f 6e 20 79 6f 75  |distances on you|
000055b0  72 20 71 75 69 63 6b 20  72 65 66 65 72 65 6e 63  |r quick referenc|
000055c0  65 20 63 61 72 64 20 74  6f 20 65 6e 73 75 72 65  |e card to ensure|
000055d0  22 0d 24 d6 4a f1 22 74  68 61 74 20 79 6f 75 20  |".$.J."that you |
000055e0  64 6f 6e 27 74 20 64 72  61 77 20 61 6e 20 6f 62  |don't draw an ob|
000055f0  6a 65 63 74 20 74 68 61  74 20 69 73 20 74 6f 6f  |ject that is too|
00005600  20 62 69 67 20 74 6f 20  68 69 74 20 74 68 65 20  | big to hit the |
00005610  62 61 6c 6c 20 6f 76 65  72 2e 22 0d 24 e0 4b f1  |ball over.".$.K.|
00005620  27 22 41 74 20 74 68 65  20 74 6f 70 20 6f 66 20  |'"At the top of |
00005630  74 68 65 20 48 6f 6c 65  20 50 6c 61 6e 2c 20 74  |the Hole Plan, t|
00005640  68 65 20 48 6f 6c 65 20  6c 65 6e 67 74 68 2c 20  |he Hole length, |
00005650  50 61 72 2c 20 54 65 65  20 58 20 61 6e 64 20 54  |Par, Tee X and T|
00005660  65 65 20 59 20 22 0d 24  ea 4a f1 22 63 6f 6f 72  |ee Y ".$.J."coor|
00005670  64 69 6e 61 74 65 73 20  61 6e 64 20 61 6d 6f 75  |dinates and amou|
00005680  6e 74 20 6f 66 20 48 6f  6c 65 20 6d 65 6d 6f 72  |nt of Hole memor|
00005690  79 20 72 65 6d 61 69 6e  69 6e 67 20 61 72 65 20  |y remaining are |
000056a0  64 69 73 70 6c 61 79 65  64 2e 20 20 54 68 65 22  |displayed.  The"|
000056b0  0d 24 f4 4b f1 22 58 20  61 6e 64 20 59 20 63 6f  |.$.K."X and Y co|
000056c0  6f 72 64 69 6e 61 74 65  73 20 61 72 65 20 72 65  |ordinates are re|
000056d0  76 65 72 73 65 64 20 66  72 6f 6d 20 74 68 65 20  |versed from the |
000056e0  6e 6f 72 6d 61 6c 20 63  6f 6e 76 65 6e 74 69 6f  |normal conventio|
000056f0  6e 2c 20 58 20 62 65 69  6e 67 22 0d 24 fe 43 f1  |n, X being".$.C.|
00005700  22 76 65 72 74 69 63 61  6c 20 61 6e 64 20 59 20  |"vertical and Y |
00005710  68 6f 72 69 7a 6f 6e 74  61 6c 2c 20 5a 65 72 6f  |horizontal, Zero|
00005720  20 62 65 69 6e 67 20 63  65 6e 74 72 65 64 20 75  | being centred u|
00005730  70 6f 6e 20 74 68 65 20  68 6f 6c 65 2e 22 0d 25  |pon the hole.".%|
00005740  08 4d f1 22 49 66 20 79  6f 75 20 63 61 6e 27 74  |.M."If you can't|
00005750  20 64 72 61 77 20 61 6e  20 6f 62 6a 65 63 74 20  | draw an object |
00005760  63 68 65 63 6b 20 74 68  61 74 20 74 68 65 72 65  |check that there|
00005770  20 69 73 20 65 6e 6f 75  67 68 20 6d 65 6d 6f 72  | is enough memor|
00005780  79 20 6c 65 66 74 20 66  6f 72 22 0d 25 12 15 f1  |y left for".%...|
00005790  22 74 68 65 20 6f 70 65  72 61 74 69 6f 6e 2e 22  |"the operation."|
000057a0  0d 25 1c 54 f1 27 22 46  69 6e 61 6c 6c 79 20 79  |.%.T.'"Finally y|
000057b0  6f 75 20 64 6f 6e 27 74  20 68 61 76 65 20 74 6f  |ou don't have to|
000057c0  20 64 65 73 69 67 6e 20  61 6c 6c 20 31 38 20 68  | design all 18 h|
000057d0  6f 6c 65 73 20 62 65 66  6f 72 65 20 73 61 76 69  |oles before savi|
000057e0  6e 67 20 61 20 63 6f 75  72 73 65 20 74 6f 20 64  |ng a course to d|
000057f0  69 73 63 22 0d 25 26 50  f1 22 73 6f 20 61 73 20  |isc".%&P."so as |
00005800  73 6f 6f 6e 20 61 73 20  79 6f 75 20 68 61 76 65  |soon as you have|
00005810  20 63 72 65 61 74 65 64  20 61 20 68 6f 6c 65 20  | created a hole |
00005820  79 6f 75 20 63 61 6e 20  73 61 76 65 20 74 68 65  |you can save the|
00005830  20 63 6f 75 72 73 65 2c  20 6c 65 61 76 65 20 74  | course, leave t|
00005840  68 65 20 22 0d 25 30 48  f1 22 65 64 69 74 6f 72  |he ".%0H."editor|
00005850  20 77 69 74 68 20 74 68  65 20 27 45 58 49 54 20  | with the 'EXIT |
00005860  45 44 49 54 4f 52 27 20  6f 70 74 69 6f 6e 20 61  |EDITOR' option a|
00005870  6e 64 20 74 65 73 74 20  70 6c 61 79 20 79 6f 75  |nd test play you|
00005880  20 6f 77 6e 20 68 6f 6c  65 73 21 22 0d 25 3a 29  | own holes!".%:)|
00005890  f1 27 27 8a 32 32 29 22  50 52 45 53 53 20 41 4e  |.''.22)"PRESS AN|
000058a0  59 20 42 55 54 54 4f 4e  20 54 4f 20 43 4f 4e 54  |Y BUTTON TO CONT|
000058b0  49 4e 55 45 22 0d 25 44  0c f2 62 75 74 74 28 30  |INUE".%D..butt(0|
000058c0  29 0d 25 4e 21 f5 3a c8  97 58 25 2c 59 25 2c 4b  |).%N!.:..X%,Y%,K|
000058d0  25 3a fd 4b 25 3a d4 31  2c 2d 31 30 2c 32 30 30  |%:.K%:.1,-10,200|
000058e0  2c 31 0d 25 58 0c f2 62  75 74 74 28 30 29 0d 25  |,1.%X..butt(0).%|
000058f0  62 05 e1 0d 25 6c 07 f4  20 15 0d 25 76 0c dd f2  |b...%l.. ..%v...|
00005900  63 68 6f 66 73 63 0d 25  80 0c 2a 46 58 31 31 32  |chofsc.%..*FX112|
00005910  2c 33 0d 25 8a 05 db 0d  25 94 3d e7 b4 78 31 25  |,3.%....%.=..x1%|
00005920  3d b9 20 c8 91 31 32 38  30 2c 37 36 38 2b 4f 25  |=. ..1280,768+O%|
00005930  2d 36 31 36 36 2a 67 72  65 65 6e 25 3a 8b c8 91  |-6166*green%:...|
00005940  30 2c 37 36 38 2b 4f 25  2d 36 31 36 36 2a 67 72  |0,768+O%-6166*gr|
00005950  65 65 6e 25 0d 25 9e 0c  50 25 3d 72 6f 75 67 68  |een%.%..P%=rough|
00005960  0d 25 a8 12 e6 a4 6d 61  70 31 3a f2 64 72 61 77  |.%....map1:.draw|
00005970  69 74 0d 25 b2 12 e6 a4  6d 61 70 31 3a f2 64 72  |it.%....map1:.dr|
00005980  61 77 69 74 0d 25 bc 17  50 25 3d 77 61 74 65 72  |awit.%..P%=water|
00005990  3a e6 36 3a f2 64 72 61  77 69 74 0d 25 c6 10 47  |:.6:.drawit.%..G|
000059a0  25 3d b0 78 73 25 2c 79  73 25 29 0d 25 d0 13 e7  |%=.xs%,ys%).%...|
000059b0  47 25 3d 36 84 47 25 3d  31 31 57 25 3d a3 0d 25  |G%=6.G%=11W%=..%|
000059c0  da 0c 2a 46 58 31 31 32  2c 31 0d 25 e4 05 e1 0d  |..*FX112,1.%....|
000059d0  25 ee 07 f4 20 15 0d 25  f8 0d dd f2 70 72 65 76  |%... ..%....prev|
000059e0  69 65 77 0d 26 02 05 f5  0d 26 0c 1e f2 63 6f 6c  |iew.&....&...col|
000059f0  6f 75 72 73 28 39 29 3a  f2 73 63 72 65 65 6e 62  |ours(9):.screenb|
00005a00  6f 78 3a c8 97 ee 0d 26  16 15 6c 68 6f 6c 25 3d  |ox:....&..lhol%=|
00005a10  a4 63 68 6f 73 65 61 68  6f 6c 65 0d 26 20 1a e7  |.choseahole.& ..|
00005a20  ac 6c 68 6f 6c 25 f2 64  72 61 77 6d 61 70 28 6c  |.lhol%.drawmap(l|
00005a30  68 6f 6c 25 29 0d 26 2a  0c fd 6c 68 6f 6c 25 3d  |hol%).&*..lhol%=|
00005a40  b9 0d 26 34 05 e1 0d 26  3e 07 f4 20 15 0d 26 48  |..&4...&>.. ..&H|
00005a50  16 dd f2 64 72 61 77 6d  61 70 28 68 6f 6c 65 6e  |...drawmap(holen|
00005a60  6f 25 29 0d 26 52 18 e7  49 6e 65 64 69 74 6f 72  |o%).&R..Ineditor|
00005a70  20 8c f4 2a 46 58 32 32  39 2c 31 0d 26 5c 0e f2  | ..*FX229,1.&\..|
00005a80  69 6e 69 74 63 6c 6f 75  64 0d 26 66 13 6c 69 25  |initcloud.&f.li%|
00005a90  3d 32 3a f2 69 6e 69 74  77 69 6e 64 0d 26 70 28  |=2:.initwind.&p(|
00005aa0  ea 72 25 2c 6c 25 2c 4f  4c 25 2c 41 25 2c 41 41  |.r%,l%,OL%,A%,AA|
00005ab0  25 2c 54 25 2c 49 25 2c  53 50 25 2c 58 25 2c 59  |%,T%,I%,SP%,X%,Y|
00005ac0  25 2c 41 24 0d 26 7a 11  58 25 3d 36 34 30 3a 59  |%,A$.&z.X%=640:Y|
00005ad0  25 3d 35 31 32 0d 26 84  05 f5 0d 26 8e 1f 50 25  |%=512.&....&..P%|
00005ae0  3d 6d 61 70 70 6f 69 6e  74 25 2b 68 6f 6c 65 6e  |=mappoint%+holen|
00005af0  6f 25 3a 53 50 25 3d 50  25 0d 26 98 26 4f 4c 25  |o%:SP%=P%.&.&OL%|
00005b00  3d 28 bb 28 c3 7e 28 28  6d 61 70 21 28 50 25 2b  |=(.(.~((map!(P%+|
00005b10  26 32 46 41 29 29 80 26  46 46 46 46 29 29 29 0d  |&2FA)).&FFFF))).|
00005b20  26 a2 0d 41 41 25 3d a4  6d 61 70 31 0d 26 ac 0d  |&..AA%=.map1.&..|
00005b30  e3 41 25 3d 31 b8 41 41  25 0d 26 b6 11 6c 25 3d  |.A%=1.AA%.&..l%=|
00005b40  a4 6d 61 70 32 2f 31 30  2e 35 0d 26 c0 11 72 25  |.map2/10.5.&..r%|
00005b50  3d a4 6d 61 70 32 2f 31  30 2e 35 0d 26 ca 17 78  |=.map2/10.5.&..x|
00005b60  25 28 41 25 29 3d 72 25  3a 79 25 28 41 25 29 3d  |%(A%)=r%:y%(A%)=|
00005b70  6c 25 0d 26 d4 05 ed 0d  26 de 0e 49 25 3d a4 6d  |l%.&....&..I%=.m|
00005b80  61 70 31 2d 31 0d 26 e8  22 54 25 3d a4 6d 61 70  |ap1-1.&."T%=.map|
00005b90  31 3a 54 25 3d a4 6d 61  70 31 3a 50 25 3d 50 25  |1:T%=.map1:P%=P%|
00005ba0  2b 54 25 2a 34 2b 34 0d  26 f2 17 6c 25 3d 30 3a  |+T%*4+4.&..l%=0:|
00005bb0  72 25 3d 30 3a 74 25 3d  30 3a 62 25 3d 30 0d 26  |r%=0:t%=0:b%=0.&|
00005bc0  fc 20 f2 63 6f 6c 6f 75  72 73 28 31 32 29 3a f2  |. .colours(12):.|
00005bd0  73 63 72 65 65 6e 62 6f  78 3a e6 31 33 37 0d 27  |screenbox:.137.'|
00005be0  06 26 f2 6d 65 73 62 6f  78 28 35 33 32 2d 4f 4c  |.&.mesbox(532-OL|
00005bf0  25 2c 32 39 34 2c 4f 4c  25 2a 32 2b 32 31 32 2c  |%,294,OL%*2+212,|
00005c00  36 39 32 29 0d 27 10 29  ef 32 36 2c 32 34 2c 35  |692).'.).26,24,5|
00005c10  34 38 2d 4f 4c 25 3b 33  31 30 3b 35 34 38 2b 4f  |48-OL%;310;548+O|
00005c20  4c 25 2b 31 38 30 3b 39  37 30 3b 3a da 0d 27 1a  |L%+180;970;:..'.|
00005c30  11 c8 91 35 39 32 2b 4f  4c 25 2c 36 34 30 0d 27  |...592+OL%,640.'|
00005c40  24 13 e3 54 25 3d 31 b8  49 25 3a e6 a4 6d 61 70  |$..T%=1.I%:..map|
00005c50  31 0d 27 2e 0d 6e 70 25  3d a4 6d 61 70 31 0d 27  |1.'..np%=.map1.'|
00005c60  38 25 f2 6d 61 70 32 28  43 58 25 2c 43 59 25 2c  |8%.map2(CX%,CY%,|
00005c70  34 29 3a f2 6d 61 70 32  28 53 58 25 2c 53 59 25  |4):.map2(SX%,SY%|
00005c80  2c 34 29 0d 27 42 2c e3  49 25 3d 31 b8 6e 70 25  |,4).'B,.I%=1.np%|
00005c90  2d 31 3a f2 6d 61 70 32  28 58 49 25 2c 59 49 25  |-1:.map2(XI%,YI%|
00005ca0  2c 38 35 29 3a ec 43 58  25 2c 43 59 25 3a ed 0d  |,85):.CX%,CY%:..|
00005cb0  27 4c 0f f0 38 35 2c 53  58 25 2c 53 59 25 0d 27  |'L..85,SX%,SY%.'|
00005cc0  56 09 ed 3a e6 31 34 0d  27 60 38 e3 54 25 3d 31  |V..:.14.'`8.T%=1|
00005cd0  b8 41 41 25 3a e7 b0 2d  78 25 28 54 25 29 2c 2d  |.AA%:..-x%(T%),-|
00005ce0  79 25 28 54 25 29 29 3c  3e 36 c8 8f c8 90 2d 78  |y%(T%))<>6....-x|
00005cf0  25 28 54 25 29 2c 2d 79  25 28 54 25 29 2c 38 0d  |%(T%),-y%(T%),8.|
00005d00  27 6a 0e ed 3a e6 30 3a  c8 92 30 2c 30 0d 27 74  |'j..:.0:..0,0.'t|
00005d10  07 ef 32 36 0d 27 7e 56  f2 73 6d 61 6c 6c 6d 65  |..26.'~V.smallme|
00005d20  73 28 31 34 34 2c 31 36  36 2c 31 32 2c 22 50 4f  |s(144,166,12,"PO|
00005d30  53 49 54 49 4f 4e 20 50  4f 49 4e 54 45 52 20 4f  |SITION POINTER O|
00005d40  4e 20 56 49 45 57 50 4f  49 4e 54 20 54 48 45 4e  |N VIEWPOINT THEN|
00005d50  20 50 52 45 53 53 20 54  48 45 20 4d 49 44 44 4c  | PRESS THE MIDDL|
00005d60  45 20 42 55 54 54 4f 4e  22 29 0d 27 88 2e e7 49  |E BUTTON").'...I|
00005d70  6e 65 64 69 74 6f 72 20  41 24 3d 22 45 44 49 54  |neditor A$="EDIT|
00005d80  4f 52 22 3a 8b 3a 41 24  3d 22 48 4f 4c 45 20 53  |OR":.:A$="HOLE S|
00005d90  45 4c 45 43 54 4f 52 22  0d 27 92 2a 41 24 3d 22  |ELECTOR".'.*A$="|
00005da0  52 49 47 48 54 20 42 55  54 54 4f 4e 20 54 4f 20  |RIGHT BUTTON TO |
00005db0  52 45 54 55 52 4e 20 54  4f 20 54 48 45 20 22 2b  |RETURN TO THE "+|
00005dc0  41 24 0d 27 9c 21 f2 73  6d 61 6c 6c 6d 65 73 28  |A$.'.!.smallmes(|
00005dd0  36 30 38 2d a9 41 24 2a  38 2c 36 36 2c 31 32 2c  |608-.A$*8,66,12,|
00005de0  41 24 29 0d 27 a6 10 c8  97 ee 3a c8 97 b8 58 25  |A$).'.....:...X%|
00005df0  2c 59 25 0d 27 b0 05 f5  0d 27 ba 21 c8 97 c8 93  |,Y%.'....'.!....|
00005e00  35 34 38 2d 4f 4c 25 2c  33 31 30 2c 4f 4c 25 2a  |548-OL%,310,OL%*|
00005e10  32 2b 31 38 30 2c 36 36  30 0d 27 c4 0e c8 97 58  |2+180,660.'....X|
00005e20  25 2c 59 25 2c 54 25 0d  27 ce 27 e7 58 25 3c 36  |%,Y%,T%.'.'.X%<6|
00005e30  38 38 8c 72 25 3d 28 36  38 38 2d 58 25 29 81 38  |88.r%=(688-X%).8|
00005e40  8b 72 25 3d 28 58 25 2d  36 38 38 29 81 38 0d 27  |.r%=(X%-688).8.'|
00005e50  d8 29 c8 97 c8 93 35 34  38 2d 4f 4c 25 2c 33 31  |.)....548-OL%,31|
00005e60  30 2b 72 25 2c 4f 4c 25  2a 32 2b 31 38 30 2c 36  |0+r%,OL%*2+180,6|
00005e70  36 30 2d 72 25 2a 32 0d  27 e2 17 79 25 3d 28 28  |60-r%*2.'..y%=((|
00005e80  35 39 32 2b 4f 4c 25 29  2d 58 25 29 81 32 0d 27  |592+OL%)-X%).2.'|
00005e90  ec 11 78 25 3d 28 36 34  30 2d 59 25 29 81 32 0d  |..x%=(640-Y%).2.|
00005ea0  27 f6 04 0d 28 00 45 e7  54 25 3d 34 50 25 3d 53  |'...(.E.T%=4P%=S|
00005eb0  50 25 2b 26 32 45 38 3a  58 25 3d a4 6d 61 70 32  |P%+&2E8:X%=.map2|
00005ec0  3a 59 25 3d a4 6d 61 70  32 3a f2 64 69 73 70 6c  |:Y%=.map2:.displ|
00005ed0  61 79 76 69 65 77 32 28  58 25 2c 59 25 2c 53 50  |ayview2(X%,Y%,SP|
00005ee0  25 29 3a fd b9 3a fd a3  0d 28 0a 26 e7 54 25 3d  |%):..:...(.&.T%=|
00005ef0  32 f2 64 69 73 70 6c 61  79 76 69 65 77 28 58 25  |2.displayview(X%|
00005f00  2c 59 25 2c 53 50 25 29  3a fd b9 3a fd a3 0d 28  |,Y%,SP%):..:...(|
00005f10  14 0a fd 54 25 3a fd b9  0d 28 1e 05 e1 0d 28 28  |...T%:...(....((|
00005f20  07 f4 20 15 0d 28 32 1c  dd f2 64 69 73 70 6c 61  |.. ..(2...displa|
00005f30  79 76 69 65 77 28 58 25  2c 59 25 2c 53 50 25 29  |yview(X%,Y%,SP%)|
00005f40  0d 28 3c 1d 59 59 25 3d  28 28 28 35 39 32 2b 4f  |.(<.YY%=(((592+O|
00005f50  4c 25 29 2d 58 25 29 81  32 29 2a 32 31 0d 28 46  |L%)-X%).2)*21.(F|
00005f60  16 58 25 3d 28 28 36 34  30 2d 59 25 29 81 32 29  |.X%=((640-Y%).2)|
00005f70  2a 32 31 0d 28 50 07 c8  97 87 0d 28 5a 1f ea 41  |*21.(P.....(Z..A|
00005f80  24 2c 6d 61 70 70 6f 69  6e 74 25 3a 6d 61 70 70  |$,mappoint%:mapp|
00005f90  6f 69 6e 74 25 3d 53 50  25 0d 28 64 1e dd f2 64  |oint%=SP%.(d...d|
00005fa0  69 73 70 6c 61 79 76 69  65 77 32 28 58 25 2c 59  |isplayview2(X%,Y|
00005fb0  59 25 2c 53 50 25 29 0d  28 6e 1f e7 94 58 25 3c  |Y%,SP%).(n...X%<|
00005fc0  34 32 80 94 59 59 25 3c  34 32 58 25 3d 34 32 3a  |42..YY%<42X%=42:|
00005fd0  59 59 25 3d 34 32 0d 28  78 37 4f 4c 25 3d 28 a4  |YY%=42.(x7OL%=(.|
00005fe0  64 69 73 74 61 6e 63 65  28 58 25 2c 59 59 25 29  |distance(X%,YY%)|
00005ff0  29 3a 67 72 65 65 6e 25  3d 28 4f 4c 25 3c 35 32  |):green%=(OL%<52|
00006000  35 29 3a 4f 4c 25 3d 4f  4c 25 2f 32 31 0d 28 82  |5):OL%=OL%/21.(.|
00006010  2e 41 24 3d 43 6f 75 72  73 65 24 2b 22 20 48 4f  |.A$=Course$+" HO|
00006020  4c 45 20 22 2b c3 28 68  6f 6c 65 6e 6f 25 81 26  |LE "+.(holeno%.&|
00006030  33 30 30 2b 31 29 2b 22  2c 20 22 0d 28 8c 37 e7  |300+1)+", ".(.7.|
00006040  67 72 65 65 6e 25 20 41  24 3d 41 24 2b c3 28 4f  |green% A$=A$+.(O|
00006050  4c 25 2a 33 29 2b 22 20  46 45 45 54 22 3a 8b 41  |L%*3)+" FEET":.A|
00006060  24 3d 41 24 2b c3 4f 4c  25 2b 22 20 59 41 52 44  |$=A$+.OL%+" YARD|
00006070  53 22 0d 28 96 16 41 24  3d 41 24 2b 22 20 46 52  |S".(..A$=A$+" FR|
00006080  4f 4d 20 48 4f 4c 45 22  0d 28 a0 0a f2 6c 69 67  |OM HOLE".(...lig|
00006090  68 74 0d 28 aa 10 f2 73  69 6e 65 28 58 25 2c 59  |ht.(...sine(X%,Y|
000060a0  25 29 0d 28 b4 0f f2 64  72 61 77 73 63 72 65 65  |%).(...drawscree|
000060b0  6e 0d 28 be 2f ef 32 36  3a 58 25 3d 36 34 30 2d  |n.(./.26:X%=640-|
000060c0  a9 41 24 2a 38 2d 32 34  3a f2 73 6d 61 6c 6c 6d  |.A$*8-24:.smallm|
000060d0  65 73 28 58 25 2c 38 36  30 2c 31 33 2c 41 24 29  |es(X%,860,13,A$)|
000060e0  0d 28 c8 0c f2 62 75 74  74 28 30 29 0d 28 d2 15  |.(...butt(0).(..|
000060f0  f5 c8 97 58 25 2c 59 25  2c 53 50 25 3a fd 53 50  |...X%,Y%,SP%:.SP|
00006100  25 0d 28 dc 0c f2 62 75  74 74 28 30 29 0d 28 e6  |%.(...butt(0).(.|
00006110  05 e1 0d 28 f0 07 f4 20  15 0d 28 fa 18 dd f2 6d  |...(... ..(....m|
00006120  61 70 32 28 f8 20 78 25  2c f8 20 79 25 2c 70 25  |ap2(. x%,. y%,p%|
00006130  29 0d 29 04 21 79 25 3d  2d a4 6d 61 70 32 2f 31  |).).!y%=-.map2/1|
00006140  30 2e 35 3a 78 25 3d 2d  a4 6d 61 70 32 2f 31 30  |0.5:x%=-.map2/10|
00006150  2e 35 0d 29 0e 0d f0 70  25 2c 78 25 2c 79 25 0d  |.5.)...p%,x%,y%.|
00006160  29 18 05 e1 0d 29 22 07  f4 20 15 0d 29 2c 10 dd  |)....)".. ..),..|
00006170  a4 63 68 6f 73 65 61 68  6f 6c 65 0d 29 36 0c f2  |.choseahole.)6..|
00006180  62 75 74 74 28 30 29 0d  29 40 18 ea 58 25 2c 59  |butt(0).)@..X%,Y|
00006190  25 2c 4b 25 2c 46 25 2c  4e 25 2c 6f 75 74 25 0d  |%,K%,F%,N%,out%.|
000061a0  29 4a 2c f2 63 65 6e 74  62 6f 78 28 b9 2c 22 50  |)J,.centbox(.,"P|
000061b0  4c 45 41 53 45 20 53 45  4c 45 43 54 20 41 20 48  |LEASE SELECT A H|
000061c0  4f 4c 45 22 2c 31 32 2c  31 30 29 0d 29 54 26 f2  |OLE",12,10).)T&.|
000061d0  6d 65 73 62 6f 78 28 34  36 34 2c 34 34 34 2c 31  |mesbox(464,444,1|
000061e0  34 38 2c 31 30 30 29 3a  f2 64 6f 6e 6f 32 28 31  |48,100):.dono2(1|
000061f0  29 0d 29 5e 1a f2 6d 65  73 62 6f 78 28 37 30 34  |).)^..mesbox(704|
00006200  2c 35 33 36 2c 38 30 2c  38 30 29 0d 29 68 20 f2  |,536,80,80).)h .|
00006210  73 6d 61 6c 6c 6d 65 73  28 37 30 34 2c 34 36 32  |smallmes(704,462|
00006220  2c 31 32 2c 22 45 58 49  54 22 29 0d 29 72 1a f2  |,12,"EXIT").)r..|
00006230  6d 65 73 62 6f 78 28 37  30 34 2c 33 36 38 2c 38  |mesbox(704,368,8|
00006240  30 2c 38 30 29 0d 29 7c  25 e6 31 35 3a ec 37 34  |0,80).)|%.15:.74|
00006250  34 2c 36 30 30 3a ec 37  32 30 2c 35 35 34 3a f0  |4,600:.720,554:.|
00006260  38 35 2c 37 36 38 2c 35  35 34 0d 29 86 32 ec 37  |85,768,554.).2.7|
00006270  34 34 2c 33 38 38 3a ec  37 32 30 2c 34 33 32 3a  |44,388:.720,432:|
00006280  f0 38 35 2c 37 36 38 2c  34 33 32 3a 86 37 32 30  |.85,768,432:.720|
00006290  2c 34 33 36 2c 37 36 38  2c 34 33 36 0d 29 90 20  |,436,768,436.). |
000062a0  e6 38 3a 86 37 32 30 2c  34 33 32 2c 37 34 34 2c  |.8:.720,432,744,|
000062b0  33 38 38 3a df 37 36 38  2c 34 33 32 0d 29 9a 1d  |388:.768,432.)..|
000062c0  86 37 32 30 2c 35 35 38  2c 37 34 34 2c 36 30 30  |.720,558,744,600|
000062d0  3a df 37 36 38 2c 35 35  38 0d 29 a4 17 c8 97 c8  |:.768,558.).....|
000062e0  93 34 38 30 2c 33 38 38  2c 34 33 32 2c 32 32 30  |.480,388,432,220|
000062f0  0d 29 ae 15 4e 25 3d 31  3a f5 3a c8 97 58 25 2c  |.)..N%=1:.:..X%,|
00006300  59 25 2c 4b 25 0d 29 b8  08 e7 4b 25 8c 0d 29 c2  |Y%,K%.)...K%..).|
00006310  0c e7 58 25 3e 37 31 36  8c 0d 29 cc 0c e7 58 25  |..X%>716..)...X%|
00006320  3c 37 37 32 8c 0d 29 d6  36 e7 59 25 3e 35 34 34  |<772..).6.Y%>544|
00006330  4e 25 3d 4e 25 83 31 38  2b 31 3a f2 64 6f 6e 6f  |N%=N%.18+1:.dono|
00006340  32 28 4e 25 29 3a d4 31  2c 2d 31 30 2c 32 30 30  |2(N%):.1,-10,200|
00006350  2c 31 3a f2 62 75 74 74  28 30 29 0d 29 e0 41 e7  |,1:.butt(0).).A.|
00006360  59 25 3c 34 34 32 4e 25  2d 3d 31 3a 4e 25 3d 4e  |Y%<442N%-=1:N%=N|
00006370  25 2d 28 4e 25 3d 30 29  2a 31 38 3a f2 64 6f 6e  |%-(N%=0)*18:.don|
00006380  6f 32 28 4e 25 29 3a d4  31 2c 2d 31 30 2c 32 30  |o2(N%):.1,-10,20|
00006390  30 2c 31 3a f2 62 75 74  74 28 30 29 0d 29 ea 05  |0,1:.butt(0).)..|
000063a0  cd 0d 29 f4 2a e7 59 25  3e 34 37 32 80 59 25 3c  |..).*.Y%>472.Y%<|
000063b0  35 31 36 6f 75 74 25 3d  b9 3a 46 25 3d b9 3a d4  |516out%=.:F%=.:.|
000063c0  31 2c 2d 31 30 2c 32 30  30 2c 31 0d 29 fe 05 cd  |1,-10,200,1.)...|
000063d0  0d 2a 08 0c e7 58 25 3c  36 30 34 8c 0d 2a 12 16  |.*...X%<604..*..|
000063e0  e7 59 25 3e 34 35 36 80  59 25 3c 35 34 30 46 25  |.Y%>456.Y%<540F%|
000063f0  3d b9 0d 2a 1c 05 cd 0d  2a 26 05 cd 0d 2a 30 09  |=..*....*&...*0.|
00006400  fd 46 25 3d b9 0d 2a 3a  17 3d 28 28 4e 25 2d 31  |.F%=..*:.=((N%-1|
00006410  29 2a 26 33 30 30 29 84  6f 75 74 25 0d 2a 44 07  |)*&300).out%.*D.|
00006420  f4 20 15 0d 2a 4e 0f dd  f2 64 6f 6e 6f 32 28 41  |. ..*N...dono2(A|
00006430  25 29 0d 2a 58 13 ea 41  24 2c 54 25 3a 41 24 3d  |%).*X..A$,T%:A$=|
00006440  c3 28 41 25 29 0d 2a 62  1a e6 31 31 3a c8 93 c8  |.(A%).*b..11:...|
00006450  90 34 37 36 2c 34 36 34  2c 31 32 34 2c 36 34 0d  |.476,464,124,64.|
00006460  2a 6c 17 ec 34 37 36 2d  33 32 2a 28 41 25 3c 31  |*l..476-32*(A%<1|
00006470  30 29 2c 35 32 30 0d 2a  76 29 e6 31 32 3a e3 54  |0),520.*v).12:.T|
00006480  25 3d 31 b8 a9 41 24 3a  f2 64 6f 75 62 6c 65 28  |%=1..A$:.double(|
00006490  bb 28 c1 41 24 2c 54 25  2c 31 29 29 29 3a ed 0d  |.(.A$,T%,1))):..|
000064a0  2a 80 05 e1 0d 2a 8a 07  f4 20 15 0d 2a 94 10 dd  |*....*... ..*...|
000064b0  f2 67 65 74 6f 70 74 69  6f 6e 73 0d 2a 9e 1a e3  |.getoptions.*...|
000064c0  54 25 3d 31 b8 36 3a 6a  75 6d 70 25 28 54 25 29  |T%=1.6:jump%(T%)|
000064d0  3d 54 25 3a ed 0d 2a a8  15 2a 43 48 41 4e 4e 45  |=T%:..*..*CHANNE|
000064e0  4c 56 4f 49 43 45 20 31  20 31 0d 2a b2 07 f5 3a  |LVOICE 1 1.*...:|
000064f0  f5 0d 2a bc 1a f2 63 6f  6c 6f 75 72 73 28 39 29  |..*...colours(9)|
00006500  3a f2 73 63 72 65 65 6e  62 6f 78 0d 2a c6 0e c8  |:.screenbox.*...|
00006510  97 b8 36 34 30 2c 34 39  36 0d 2a d0 5c e7 a4 71  |..640,496.*.\..q|
00006520  75 65 73 74 28 22 45 44  49 54 20 48 4f 4c 45 53  |uest("EDIT HOLES|
00006530  20 4f 52 20 50 4c 41 59  20 52 4f 55 4e 44 3f 22  | OR PLAY ROUND?"|
00006540  2c 22 50 4c 41 59 22 2c  22 45 44 49 54 22 2c 30  |,"PLAY","EDIT",0|
00006550  29 f2 67 65 74 63 6f 75  72 73 65 28 22 45 44 49  |).getcourse("EDI|
00006560  54 22 29 3a f2 65 64 69  74 3a ff 22 46 58 32 32  |T"):.edit:."FX22|
00006570  39 22 3a fd a3 0d 2a da  13 f2 62 75 74 74 28 30  |9":...*...butt(0|
00006580  29 3a 2a 46 58 32 32 39  0d 2a e4 3a 6d 61 70 70  |):*FX229.*.:mapp|
00006590  6f 69 6e 74 25 3d 30 3a  f2 67 65 74 63 6f 75 72  |oint%=0:.getcour|
000065a0  73 65 28 22 50 4c 41 59  22 29 3a 6d 61 70 73 74  |se("PLAY"):mapst|
000065b0  61 72 74 25 3d 6d 61 70  2b 6d 61 70 70 6f 69 6e  |art%=map+mappoin|
000065c0  74 25 0d 2a ee 4d e7 a4  71 75 65 73 74 28 22 50  |t%.*.M..quest("P|
000065d0  52 45 56 49 45 57 20 48  4f 4c 45 53 20 4f 52 20  |REVIEW HOLES OR |
000065e0  50 4c 41 59 20 52 4f 55  4e 44 3f 22 2c 22 50 4c  |PLAY ROUND?","PL|
000065f0  41 59 22 2c 22 50 52 45  56 49 45 57 22 2c 30 29  |AY","PREVIEW",0)|
00006600  f2 70 72 65 76 69 65 77  3a fd a3 3a 8b fd b9 0d  |.preview:..:....|
00006610  2a f8 68 70 6c 61 79 25  3d a4 71 75 65 73 74 28  |*.hplay%=.quest(|
00006620  22 55 4e 44 45 52 20 57  48 49 43 48 20 52 55 4c  |"UNDER WHICH RUL|
00006630  45 53 20 41 52 45 20 59  4f 55 20 54 4f 20 50 4c  |ES ARE YOU TO PL|
00006640  41 59 3f 22 2c 22 4d 41  54 43 48 20 50 4c 41 59  |AY?","MATCH PLAY|
00006650  22 2c 22 53 54 52 4f 4b  45 20 50 4c 41 59 22 2c  |","STROKE PLAY",|
00006660  30 29 2b 31 3a f4 20 31  3d 4d 41 54 43 48 20 32  |0)+1:. 1=MATCH 2|
00006670  3d 53 54 52 4f 4b 45 0d  2b 02 1a 6e 6f 6f 66 70  |=STROKE.+..noofp|
00006680  6c 61 79 65 72 73 3d a4  6e 6f 70 6c 61 79 69 6e  |layers=.noplayin|
00006690  67 0d 2b 0c 15 e3 54 25  3d 31 b8 6e 6f 6f 66 70  |g.+...T%=1.noofp|
000066a0  6c 61 79 65 72 73 0d 2b  16 10 f2 67 65 74 6e 61  |layers.+...getna|
000066b0  6d 65 28 54 25 29 0d 2b  20 51 68 61 6e 64 25 28  |me(T%).+ Qhand%(|
000066c0  54 25 29 3d 31 2d a4 71  75 65 73 74 28 22 49 53  |T%)=1-.quest("IS|
000066d0  20 22 2b 6e 61 6d 65 24  28 54 25 29 2b 22 20 4c  | "+name$(T%)+" L|
000066e0  45 46 54 20 4f 52 20 52  49 47 48 54 20 48 41 4e  |EFT OR RIGHT HAN|
000066f0  44 45 44 3f 22 2c 22 4c  45 46 54 22 2c 22 52 49  |DED?","LEFT","RI|
00006700  47 48 54 22 2c 30 29 0d  2b 2a 11 f2 67 65 74 73  |GHT",0).+*..gets|
00006710  6b 69 6c 6c 28 54 25 29  0d 2b 34 05 ed 0d 2b 3e  |kill(T%).+4...+>|
00006720  1c e7 a4 63 6f 6e 66 69  72 6d 28 6e 6f 6f 66 70  |...confirm(noofp|
00006730  6c 61 79 65 72 73 29 fd  30 0d 2b 48 06 fd b9 0d  |layers).0.+H....|
00006740  2b 52 37 f4 20 43 48 41  4e 47 45 20 54 48 45 20  |+R7. CHANGE THE |
00006750  46 4f 4c 4c 4f 57 49 4e  47 20 4e 55 4d 42 45 52  |FOLLOWING NUMBER|
00006760  20 54 4f 20 28 48 4f 4c  45 20 4e 4f 2e 20 2d 31  | TO (HOLE NO. -1|
00006770  29 2a 26 33 30 30 0d 2b  5c 14 f4 6d 61 70 70 6f  |)*&300.+\..mappo|
00006780  69 6e 74 25 3d 26 32 34  30 30 0d 2b 66 05 e1 0d  |int%=&2400.+f...|
00006790  2b 70 04 0d 2b 7a 13 dd  f2 67 65 74 63 6f 75 72  |+p..+z...getcour|
000067a0  73 65 28 45 24 29 0d 2b  84 1c ea 4e 25 2c 49 25  |se(E$).+...N%,I%|
000067b0  2c 54 25 2c 43 25 2c 43  24 2c 45 25 2c 58 2c 59  |,T%,C%,C$,E%,X,Y|
000067c0  2c 5a 0d 2b 8e 0b 2a 46  58 32 31 2c 39 0d 2b 98  |,Z.+..*FX21,9.+.|
000067d0  13 f2 62 75 74 74 28 30  29 3a 2a 46 58 32 32 39  |..butt(0):*FX229|
000067e0  0d 2b a2 7e ea 85 3a ee  85 ea 3a e7 9f 3c 3e 31  |.+.~..:...:..<>1|
000067f0  37 f2 63 65 6e 74 62 6f  78 28 b9 2c 22 20 22 2b  |7.centbox(.," "+|
00006800  f6 24 2b 22 20 22 2c 38  2c 31 29 3a c8 91 30 2c  |.$+" ",8,1):..0,|
00006810  2d 32 35 36 3a f2 63 65  6e 74 62 6f 78 28 a3 2c  |-256:.centbox(.,|
00006820  22 50 4c 45 41 53 45 20  50 52 45 53 53 20 53 50  |"PLEASE PRESS SP|
00006830  41 43 45 22 2c 38 2c 31  29 3a c8 91 30 2c 30 3a  |ACE",8,1):..0,0:|
00006840  f5 fd a6 2d 39 39 3a 8b  e7 49 6e 65 64 69 74 6f  |...-99:..Inedito|
00006850  72 3a ff 22 46 58 32 32  39 2c 31 22 3a e1 0d 2b  |r:."FX229,1":..+|
00006860  ac 09 2a 46 58 31 35 0d  2b b6 15 43 25 3d 31 3a  |..*FX15.+..C%=1:|
00006870  45 25 3d 2d 33 36 38 3a  49 25 3d 30 0d 2b c0 05  |E%=-368:I%=0.+..|
00006880  f5 0d 2b ca 0c f2 72 65  61 64 64 69 72 0d 2b d4  |..+...readdir.+.|
00006890  0a e7 49 25 3d 30 8c 0d  2b de 09 2a 46 58 31 35  |..I%=0..+..*FX15|
000068a0  0d 2b e8 3b f2 63 65 6e  74 62 6f 78 28 b9 2c 22  |.+.;.centbox(.,"|
000068b0  4e 4f 20 43 4f 55 52 53  45 53 20 4f 4e 20 54 48  |NO COURSES ON TH|
000068c0  49 53 20 44 49 53 43 21  22 2c 35 2c 31 29 3a ef  |IS DISC!",5,1):.|
000068d0  37 3a 4e 25 3d a6 28 33  30 30 29 0d 2b f2 3e c8  |7:N%=.(300).+.>.|
000068e0  91 30 2c 2d 32 35 36 3a  f2 63 65 6e 74 62 6f 78  |.0,-256:.centbox|
000068f0  28 a3 2c 22 50 4c 45 41  53 45 20 50 52 45 53 53  |(.,"PLEASE PRESS|
00006900  20 53 50 41 43 45 22 2c  38 2c 31 29 3a c8 91 30  | SPACE",8,1):..0|
00006910  2c 30 3a f5 fd a6 2d 39  39 0d 2b fc 05 cd 0d 2c  |,0:...-99.+....,|
00006920  06 0a fd 49 25 3c 3e 30  0d 2c 10 17 4e 25 3d 28  |...I%<>0.,..N%=(|
00006930  28 49 25 2b 31 29 81 32  2a 33 36 29 81 33 32 0d  |(I%+1).2*36).32.|
00006940  2c 1a 31 f2 63 65 6e 74  62 6f 78 28 b9 2c 22 43  |,.1.centbox(.,"C|
00006950  4f 55 52 53 45 53 20 41  56 41 49 4c 41 42 4c 45  |OURSES AVAILABLE|
00006960  20 54 4f 20 22 2b 45 24  2c 35 2c 4e 25 2b 32 29  | TO "+E$,5,N%+2)|
00006970  0d 2c 24 12 54 25 3d 35  31 32 2d 49 25 81 32 2a  |.,$.T%=512-I%.2*|
00006980  31 38 0d 2c 2e 1b c8 97  c8 93 32 37 32 2c 54 25  |18.,......272,T%|
00006990  2d 32 34 2c 37 33 36 2c  49 25 2a 31 38 0d 2c 38  |-24,736,I%*18.,8|
000069a0  0c e3 4e 25 3d 31 b8 49  25 0d 2c 42 1b f2 73 68  |..N%=1.I%.,B..sh|
000069b0  6f 77 63 61 74 28 4e 25  2c 38 2b 28 4e 25 3d 31  |owcat(N%,8+(N%=1|
000069c0  29 2a 32 29 0d 2c 4c 05  ed 0d 2c 56 08 4f 58 3d  |)*2).,L...,V.OX=|
000069d0  31 0d 2c 60 05 f5 0d 2c  6a 0b c8 97 58 2c 59 2c  |1.,`...,j...X,Y,|
000069e0  5a 0d 2c 74 27 58 3d 2d  28 58 3e 36 34 30 29 2b  |Z.,t'X=-(X>640)+|
000069f0  28 28 54 25 2d 32 30 2b  49 25 2a 31 38 29 2d 59  |((T%-20+I%*18)-Y|
00006a00  29 81 33 36 2a 32 2b 31  0d 2c 7e 0d e7 58 3e 49  |).36*2+1.,~..X>I|
00006a10  25 58 3d 49 25 0d 2c 88  2c e7 58 3c 3e 4f 58 20  |%X=I%.,.,.X<>OX |
00006a20  f2 73 68 6f 77 63 61 74  28 4f 58 2c 38 29 3a f2  |.showcat(OX,8):.|
00006a30  73 68 6f 77 63 61 74 28  58 2c 36 29 3a 4f 58 3d  |showcat(X,6):OX=|
00006a40  58 0d 2c 92 06 fd 5a 0d  2c 9c 18 43 6f 75 72 73  |X.,...Z.,..Cours|
00006a50  65 24 3d a4 6e 6f 5f 73  28 46 24 28 58 29 29 0d  |e$=.no_s(F$(X)).|
00006a60  2c a6 1c ff 22 4c 2e 20  24 2e 22 2b 46 24 28 58  |,..."L. $."+F$(X|
00006a70  29 2b 22 20 22 2b c3 7e  6d 61 70 0d 2c b0 0d f4  |)+" "+.~map.,...|
00006a80  2a 46 58 32 32 39 2c 31  0d 2c ba 05 e1 0d 2c c4  |*FX229,1.,....,.|
00006a90  04 0d 2c ce 14 dd f2 73  68 6f 77 63 61 74 28 4e  |..,....showcat(N|
00006aa0  25 2c 43 25 29 0d 2c d8  06 ef 35 0d 2c e2 07 ea  |%,C%).,...5.,...|
00006ab0  45 25 0d 2c ec 19 e7 4e  25 80 31 20 45 25 3d 2d  |E%.,...N%.1 E%=-|
00006ac0  33 36 38 3a 8b 20 45 25  3d 34 38 0d 2c f6 09 e6  |368:. E%=48.,...|
00006ad0  33 2b 43 25 0d 2d 00 2f  c8 93 c8 90 36 34 30 2b  |3+C%.-./....640+|
00006ae0  45 25 2c 54 25 2b 49 25  2a 31 38 2d 31 36 2d 28  |E%,T%+I%*18-16-(|
00006af0  28 4e 25 2b 31 29 81 32  29 2a 33 36 2c 33 32 30  |(N%+1).2)*36,320|
00006b00  2c 33 32 0d 2d 0a 07 e6  43 25 0d 2d 14 25 ec 36  |,32.-...C%.-.%.6|
00006b10  34 30 2b 45 25 2c 54 25  2b 49 25 2a 31 38 2b 31  |40+E%,T%+I%*18+1|
00006b20  32 2d 28 28 4e 25 2b 31  29 81 32 29 2a 33 36 0d  |2-((N%+1).2)*36.|
00006b30  2d 1e 12 f1 a4 6e 6f 5f  73 28 46 24 28 4e 25 29  |-....no_s(F$(N%)|
00006b40  29 0d 2d 28 05 e1 0d 2d  32 04 0d 2d 3c 0e dd a4  |).-(...-2..-<...|
00006b50  6e 6f 5f 73 28 43 24 29  0d 2d 46 07 ea 54 25 0d  |no_s(C$).-F..T%.|
00006b60  2d 50 0d e3 54 25 3d 31  b8 a9 43 24 0d 2d 5a 1f  |-P..T%=1..C$.-Z.|
00006b70  e7 c1 43 24 2c 54 25 2c  31 29 3d 22 5f 22 c1 43  |..C$,T%,1)="_".C|
00006b80  24 2c 54 25 2c 31 29 3d  22 20 22 0d 2d 64 05 ed  |$,T%,1)=" ".-d..|
00006b90  0d 2d 6e 07 3d 43 24 0d  2d 78 04 0d 2d 82 0d dd  |.-n.=C$.-x..-...|
00006ba0  f2 72 65 61 64 64 69 72  0d 2d 8c 28 ea 52 34 2c  |.readdir.-.(.R4,|
00006bb0  54 25 2c 43 25 2c 6e 61  6d 65 2c 50 6f 69 6e 74  |T%,C%,name,Point|
00006bc0  2c 62 75 66 66 65 72 2c  66 69 6c 65 74 79 70 65  |,buffer,filetype|
00006bd0  0d 2d 96 0a 2a 4d 4f 55  4e 54 0d 2d a0 1f de 20  |.-..*MOUNT.-... |
00006be0  50 6f 69 6e 74 20 31 31  2c 62 75 66 66 65 72 20  |Point 11,buffer |
00006bf0  33 34 2c 6e 61 6d 65 20  32 0d 2d aa 1b 24 6e 61  |34,name 2.-..$na|
00006c00  6d 65 3d 22 2a 22 3a 66  69 6c 65 74 79 70 65 3d  |me="*":filetype=|
00006c10  26 43 31 46 0d 2d b4 16  24 50 6f 69 6e 74 3d 22  |&C1F.-..$Point="|
00006c20  24 22 2b bd 30 3a 52 34  3d 30 0d 2d be 05 f5 0d  |$"+.0:R4=0.-....|
00006c30  2d c8 36 c8 99 22 4f 53  5f 47 42 50 42 22 2c 31  |-.6.."OS_GBPB",1|
00006c40  30 2c 50 6f 69 6e 74 2c  62 75 66 66 65 72 2c 37  |0,Point,buffer,7|
00006c50  37 2c 52 34 2c 33 34 2c  6e 61 6d 65 20 b8 20 2c  |7,R4,34,name . ,|
00006c60  2c 2c 2c 52 34 0d 2d d2  30 e7 62 75 66 66 65 72  |,,,R4.-.0.buffer|
00006c70  21 26 31 30 3d 31 80 28  28 21 62 75 66 66 65 72  |!&10=1.((!buffer|
00006c80  3e 3e 38 29 80 26 46 46  46 29 3d 66 69 6c 65 74  |>>8).&FFF)=filet|
00006c90  79 70 65 20 8c 0d 2d dc  10 49 25 2b 3d 31 3a 54  |ype ..-..I%+=1:T|
00006ca0  25 3d 26 31 34 0d 2d e6  05 f5 0d 2d f0 10 43 25  |%=&14.-....-..C%|
00006cb0  3d 62 75 66 66 65 72 3f  54 25 0d 2d fa 0f 54 25  |=buffer?T%.-..T%|
00006cc0  2d 3d 28 43 25 3c 3e 30  29 0d 2e 04 10 fd 54 25  |-=(C%<>0).....T%|
00006cd0  3d 26 31 45 84 43 25 3d  30 0d 2e 0e 10 62 75 66  |=&1E.C%=0....buf|
00006ce0  66 65 72 3f 54 25 3d 31  33 0d 2e 18 18 46 24 28  |fer?T%=13....F$(|
00006cf0  49 25 29 3d 24 28 62 75  66 66 65 72 2b 26 31 34  |I%)=$(buffer+&14|
00006d00  29 0d 2e 22 05 cd 0d 2e  2c 0a fd 52 34 3d 2d 31  |).."....,..R4=-1|
00006d10  0d 2e 36 05 e1 0d 2e 40  04 0d 2e 4a 07 f4 20 15  |..6....@...J.. .|
00006d20  0d 2e 54 11 dd a4 63 6f  6e 66 69 72 6d 28 54 25  |..T...confirm(T%|
00006d30  29 0d 2e 5e 1c ea 4e 25  2c 49 25 2c 41 24 3a 49  |)..^..N%,I%,A$:I|
00006d40  25 3d 28 54 25 2b 28 54  25 80 31 29 29 0d 2e 68  |%=(T%+(T%.1))..h|
00006d50  0c f2 62 75 74 74 28 30  29 0d 2e 72 1b f2 63 6f  |..butt(0)..r..co|
00006d60  6c 6f 75 72 73 28 31 32  29 3a f2 73 63 72 65 65  |lours(12):.scree|
00006d70  6e 62 6f 78 0d 2e 7c 5a  f2 63 65 6e 74 62 6f 78  |nbox..|Z.centbox|
00006d80  28 a3 2c 22 20 20 20 20  20 20 20 20 20 20 20 20  |(.,"            |
00006d90  41 52 45 20 54 48 45 20  46 4f 4c 4c 4f 57 49 4e  |ARE THE FOLLOWIN|
00006da0  47 20 47 41 4d 45 20 4f  50 54 49 4f 4e 53 20 43  |G GAME OPTIONS C|
00006db0  4f 52 52 45 43 54 3f 20  20 20 20 20 20 20 20 20  |ORRECT?         |
00006dc0  20 20 20 22 2c 31 35 2c  31 30 2b 49 25 29 0d 2e  |   ",15,10+I%)..|
00006dd0  86 21 ef 32 38 2c 31 30  2c 32 30 2b 49 25 81 32  |.!.28,10,20+I%.2|
00006de0  2c 36 39 2c 31 33 2d 49  25 81 32 2c 34 3a 87 0d  |,69,13-I%.2,4:..|
00006df0  2e 90 1c fb 31 32 3a fb  31 33 39 3a f1 3b 54 25  |....12:.139:.;T%|
00006e00  3b 22 20 50 4c 41 59 45  52 22 3b 0d 2e 9a 0f e7  |;" PLAYER";.....|
00006e10  54 25 3c 3e 31 f1 22 53  22 3b 0d 2e a4 2a f1 22  |T%<>1."S";...*."|
00006e20  2c 20 20 50 4c 41 59 49  4e 47 20 41 54 20 22 3b  |,  PLAYING AT ";|
00006e30  43 6f 75 72 73 65 24 3b  22 2c 20 20 55 4e 44 45  |Course$;",  UNDE|
00006e40  52 20 22 3b 0d 2e ae 0c  c8 8e 70 6c 61 79 25 ca  |R ";......play%.|
00006e50  0d 2e b8 10 c9 31 3a f1  22 4d 41 54 43 48 22 3b  |.....1:."MATCH";|
00006e60  0d 2e c2 11 c9 32 3a f1  22 53 54 52 4f 4b 45 22  |.....2:."STROKE"|
00006e70  3b 0d 2e cc 05 cb 0d 2e  d6 12 f1 22 20 50 4c 41  |;.........." PLA|
00006e80  59 20 52 55 4c 45 53 22  0d 2e e0 12 f1 8a 30 2c  |Y RULES"......0,|
00006e90  31 29 c4 36 30 2c 22 2d  22 29 0d 2e ea 31 fb 36  |1).60,"-")...1.6|
00006ea0  3a f1 8a 30 2c 32 29 22  4e 41 4d 45 22 8a 32 32  |:..0,2)"NAME".22|
00006eb0  29 22 44 45 58 54 45 52  49 54 59 22 8a 34 36 29  |)"DEXTERITY".46)|
00006ec0  22 53 4b 49 4c 4c 22 3a  fb 31 32 0d 2e f4 12 f1  |"SKILL":.12.....|
00006ed0  8a 30 2c 33 29 c4 36 30  2c 22 2d 22 29 0d 2e fe  |.0,3).60,"-")...|
00006ee0  0b f1 8a 30 2c 34 29 3b  0d 2f 08 0d f2 62 6f 61  |...0,4);./...boa|
00006ef0  72 64 63 6f 6c 0d 2f 12  0c e3 4e 25 3d 31 b8 54  |rdcol./...N%=1.T|
00006f00  25 0d 2f 1c 09 fb 4e 25  2b 34 0d 2f 26 13 f1 6e  |%./...N%+4./&..n|
00006f10  61 6d 65 24 28 4e 25 29  8a 32 32 29 3b 0d 2f 30  |ame$(N%).22);./0|
00006f20  10 c8 8e 68 61 6e 64 25  28 4e 25 29 ca 0d 2f 3a  |...hand%(N%)../:|
00006f30  10 c9 30 3a f1 22 52 49  47 48 54 22 3b 0d 2f 44  |..0:."RIGHT";./D|
00006f40  0f c9 31 3a f1 22 4c 45  46 54 22 3b 0d 2f 4e 05  |..1:."LEFT";./N.|
00006f50  cb 0d 2f 58 13 f1 22 20  48 41 4e 44 45 44 22 8a  |../X.." HANDED".|
00006f60  34 36 29 3b 0d 2f 62 20  41 24 3d a4 73 6b 69 6c  |46);./b A$=.skil|
00006f70  6c 6e 61 6d 65 28 63 75  72 72 65 6e 74 73 25 28  |lname(currents%(|
00006f80  4e 25 29 29 0d 2f 6c 07  f1 41 24 0d 2f 76 05 ed  |N%))./l..A$./v..|
00006f90  0d 2f 80 11 fb 31 32 3a  f1 c4 36 30 2c 22 2d 22  |./...12:..60,"-"|
00006fa0  29 0d 2f 8a 24 f2 73 6d  61 6c 6c 6d 65 73 28 35  |)./.$.smallmes(5|
00006fb0  32 30 2c 33 36 38 2d 49  25 2a 31 36 2c 38 2c 22  |20,368-I%*16,8,"|
00006fc0  59 45 53 22 29 0d 2f 94  23 f2 73 6d 61 6c 6c 6d  |YES")./.#.smallm|
00006fd0  65 73 28 36 38 30 2c 33  36 38 2d 49 25 2a 31 36  |es(680,368-I%*16|
00006fe0  2c 38 2c 22 4e 4f 22 29  0d 2f 9e 21 c8 97 c8 93  |,8,"NO")./.!....|
00006ff0  35 33 36 2c 33 37 36 2d  49 25 2a 31 36 2c 32 30  |536,376-I%*16,20|
00007000  38 2c 34 34 3a c8 97 20  ee 0d 2f a8 05 f5 0d 2f  |8,44:.. ../..../|
00007010  b2 0e c8 97 58 25 2c 59  25 2c 4b 25 0d 2f bc 17  |....X%,Y%,K%./..|
00007020  fd 28 58 25 3c 35 39 30  84 58 25 3e 36 39 32 29  |.(X%<590.X%>692)|
00007030  80 4b 25 0d 2f c6 10 d4  31 2c 2d 31 30 2c 32 30  |.K%./...1,-10,20|
00007040  30 2c 31 0d 2f d0 0b 3d  58 25 3e 36 39 32 0d 2f  |0,1./..=X%>692./|
00007050  da 05 e1 0d 2f e4 07 f4  20 15 0d 2f ee 0e dd f2  |..../... ../....|
00007060  62 6f 61 72 64 63 6f 6c  0d 2f f8 0e fb 35 2c 32  |boardcol./...5,2|
00007070  30 38 2c 30 2c 30 0d 30  02 11 fb 36 2c 31 34 34  |08,0,0.0...6,144|
00007080  2c 31 32 38 2c 38 30 0d  30 0c 12 fb 37 2c 31 31  |,128,80.0...7,11|
00007090  32 2c 31 31 32 2c 31 31  32 0d 30 16 10 fb 38 2c  |2,112,112.0...8,|
000070a0  32 34 30 2c 31 31 32 2c  30 0d 30 20 0f fb 39 2c  |240,112,0.0 ..9,|
000070b0  39 36 2c 39 36 2c 34 38  0d 30 2a 12 fb 31 30 2c  |96,96,48.0*..10,|
000070c0  32 30 38 2c 38 30 2c 31  34 34 0d 30 34 05 e1 0d  |208,80,144.04...|
000070d0  30 3e 07 f4 20 15 0d 30  48 12 dd f2 67 65 74 73  |0>.. ..0H...gets|
000070e0  6b 69 6c 6c 28 54 25 29  0d 30 52 0c f2 62 75 74  |kill(T%).0R..but|
000070f0  74 28 30 29 0d 30 5c 13  ea 58 25 2c 59 25 2c 4b  |t(0).0\..X%,Y%,K|
00007100  25 2c 46 25 2c 4e 25 0d  30 66 3b f2 63 65 6e 74  |%,F%,N%.0f;.cent|
00007110  62 6f 78 28 b9 2c 22 57  48 41 54 20 49 53 20 22  |box(.,"WHAT IS "|
00007120  2b 6e 61 6d 65 24 28 54  25 29 2b 22 53 20 53 4b  |+name$(T%)+"S SK|
00007130  49 4c 4c 20 4c 45 56 45  4c 3f 22 2c 31 35 2c 31  |ILL LEVEL?",15,1|
00007140  32 29 0d 30 70 33 f2 6d  65 73 62 6f 78 28 33 35  |2).0p3.mesbox(35|
00007150  36 2c 34 36 34 2c 34 31  36 2c 36 34 29 3a f2 64  |6,464,416,64):.d|
00007160  6f 73 6b 69 6c 6c 28 63  75 72 72 65 6e 74 73 25  |oskill(currents%|
00007170  28 54 25 29 29 0d 30 7a  1a f2 6d 65 73 62 6f 78  |(T%)).0z..mesbox|
00007180  28 38 32 30 2c 35 34 30  2c 38 30 2c 38 30 29 0d  |(820,540,80,80).|
00007190  30 84 1a f2 6d 65 73 62  6f 78 28 38 32 30 2c 33  |0...mesbox(820,3|
000071a0  37 32 2c 38 30 2c 38 30  29 0d 30 8e 25 e6 31 35  |72,80,80).0.%.15|
000071b0  3a ec 38 36 30 2c 36 30  34 3a ec 38 33 36 2c 35  |:.860,604:.836,5|
000071c0  35 38 3a f0 38 35 2c 38  38 34 2c 35 35 38 0d 30  |58:.85,884,558.0|
000071d0  98 32 ec 38 36 30 2c 33  38 38 3a ec 38 33 36 2c  |.2.860,388:.836,|
000071e0  34 33 32 3a f0 38 35 2c  38 38 34 2c 34 33 32 3a  |432:.85,884,432:|
000071f0  86 38 33 36 2c 34 33 36  2c 38 38 34 2c 34 33 36  |.836,436,884,436|
00007200  0d 30 a2 20 e6 38 3a 86  38 33 36 2c 34 33 32 2c  |.0. .8:.836,432,|
00007210  38 36 30 2c 33 38 38 3a  df 38 38 34 2c 34 33 32  |860,388:.884,432|
00007220  0d 30 ac 1d 86 38 33 36  2c 35 36 32 2c 38 36 30  |.0...836,562,860|
00007230  2c 36 30 34 3a df 38 38  34 2c 35 36 32 0d 30 b6  |,604:.884,562.0.|
00007240  17 c8 97 c8 93 33 37 32  2c 33 38 38 2c 35 31 34  |.....372,388,514|
00007250  2c 32 32 30 0d 30 c0 15  4e 25 3d 31 3a f5 3a c8  |,220.0..N%=1:.:.|
00007260  97 58 25 2c 59 25 2c 4b  25 0d 30 ca 08 e7 4b 25  |.X%,Y%,K%.0...K%|
00007270  8c 0d 30 d4 0c e7 58 25  3e 38 33 36 8c 0d 30 de  |..0...X%>836..0.|
00007280  38 e7 59 25 3e 35 34 34  80 4e 25 3c 34 4e 25 2b  |8.Y%>544.N%<4N%+|
00007290  3d 31 3a f2 64 6f 73 6b  69 6c 6c 28 4e 25 29 3a  |=1:.doskill(N%):|
000072a0  d4 31 2c 2d 31 30 2c 32  30 30 2c 31 3a f2 62 75  |.1,-10,200,1:.bu|
000072b0  74 74 28 30 29 0d 30 e8  38 e7 59 25 3c 34 34 32  |tt(0).0.8.Y%<442|
000072c0  80 4e 25 3e 31 4e 25 2d  3d 31 3a f2 64 6f 73 6b  |.N%>1N%-=1:.dosk|
000072d0  69 6c 6c 28 4e 25 29 3a  d4 31 2c 2d 31 30 2c 32  |ill(N%):.1,-10,2|
000072e0  30 30 2c 31 3a f2 62 75  74 74 28 30 29 0d 30 f2  |00,1:.butt(0).0.|
000072f0  05 cd 0d 30 fc 0c e7 58  25 3c 37 38 30 8c 0d 31  |...0...X%<780..1|
00007300  06 16 e7 59 25 3e 34 37  35 80 59 25 3c 35 31 34  |...Y%>475.Y%<514|
00007310  46 25 3d b9 0d 31 10 05  cd 0d 31 1a 05 cd 0d 31  |F%=..1....1....1|
00007320  24 09 fd 46 25 3d b9 0d  31 2e 10 d4 31 2c 2d 31  |$..F%=..1...1,-1|
00007330  30 2c 32 30 30 2c 31 0d  31 38 14 63 75 72 72 65  |0,200,1.18.curre|
00007340  6e 74 73 25 28 54 25 29  3d 4e 25 0d 31 42 05 e1  |nts%(T%)=N%.1B..|
00007350  0d 31 4c 07 f4 20 15 0d  31 56 11 dd f2 64 6f 73  |.1L.. ..1V...dos|
00007360  6b 69 6c 6c 28 54 25 29  0d 31 60 07 ea 41 24 0d  |kill(T%).1`..A$.|
00007370  31 6a 15 41 24 3d a4 73  6b 69 6c 6c 6e 61 6d 65  |1j.A$=.skillname|
00007380  28 54 25 29 0d 31 74 1c  e6 31 31 3a c8 93 c8 90  |(T%).1t..11:....|
00007390  33 37 32 2c 34 38 30 2c  31 32 2a 33 32 2c 33 32  |372,480,12*32,32|
000073a0  0d 31 7e 14 e6 31 32 3a  ec 33 37 32 2c 35 30 38  |.1~..12:.372,508|
000073b0  3a f1 41 24 0d 31 88 05  e1 0d 31 92 07 f4 20 15  |:.A$.1....1... .|
000073c0  0d 31 9c 13 dd a4 73 6b  69 6c 6c 6e 61 6d 65 28  |.1....skillname(|
000073d0  54 25 29 0d 31 a6 07 ea  41 24 0d 31 b0 09 c8 8e  |T%).1...A$.1....|
000073e0  54 25 ca 0d 31 ba 14 c9  31 3a 41 24 3d 22 42 45  |T%..1...1:A$="BE|
000073f0  47 49 4e 4e 45 52 22 0d  31 c4 16 c9 32 3a 41 24  |GINNER".1...2:A$|
00007400  3d 22 45 4e 54 48 55 53  49 41 53 54 22 0d 31 ce  |="ENTHUSIAST".1.|
00007410  13 c9 33 3a 41 24 3d 22  41 4d 41 54 45 55 52 22  |..3:A$="AMATEUR"|
00007420  0d 31 d8 18 c9 34 3a 41  24 3d 22 50 52 4f 46 45  |.1...4:A$="PROFE|
00007430  53 53 49 4f 4e 41 4c 22  0d 31 e2 05 cb 0d 31 ec  |SSIONAL".1....1.|
00007440  07 3d 41 24 0d 31 f6 07  f4 20 15 0d 32 00 11 dd  |.=A$.1... ..2...|
00007450  f2 67 65 74 6e 61 6d 65  28 54 25 29 0d 32 0a 0c  |.getname(T%).2..|
00007460  f2 62 75 74 74 28 30 29  0d 32 14 2a ea 58 25 2c  |.butt(0).2.*.X%,|
00007470  59 25 2c 4b 25 2c 51 2c  4f 58 25 2c 4f 59 25 2c  |Y%,K%,Q,OX%,OY%,|
00007480  41 24 2c 42 24 3a 41 24  3d 6e 61 6d 65 24 28 54  |A$,B$:A$=name$(T|
00007490  25 29 0d 32 1e 13 e7 6e  6f 6f 66 70 6c 61 79 65  |%).2...noofplaye|
000074a0  72 73 3e 31 8c 0d 32 28  09 c8 8e 54 25 ca 0d 32  |rs>1..2(...T%..2|
000074b0  32 12 c9 31 3a 42 24 3d  22 46 49 52 53 54 20 22  |2..1:B$="FIRST "|
000074c0  0d 32 3c 13 c9 32 3a 42  24 3d 22 53 45 43 4f 4e  |.2<..2:B$="SECON|
000074d0  44 20 22 0d 32 46 12 c9  33 3a 42 24 3d 22 54 48  |D ".2F..3:B$="TH|
000074e0  49 52 44 20 22 0d 32 50  13 c9 34 3a 42 24 3d 22  |IRD ".2P..4:B$="|
000074f0  46 4f 55 52 54 48 20 22  0d 32 5a 12 c9 35 3a 42  |FOURTH ".2Z..5:B|
00007500  24 3d 22 46 49 46 54 48  20 22 0d 32 64 12 c9 36  |$="FIFTH ".2d..6|
00007510  3a 42 24 3d 22 53 49 58  54 48 20 22 0d 32 6e 05  |:B$="SIXTH ".2n.|
00007520  cb 0d 32 78 05 cd 0d 32  82 1d e7 a9 41 24 3c 31  |..2x...2....A$<1|
00007530  30 41 24 3d 41 24 2b c4  31 30 2d a9 41 24 2c 22  |0A$=A$+.10-.A$,"|
00007540  20 22 29 0d 32 8c 36 f2  63 65 6e 74 62 6f 78 28  | ").2.6.centbox(|
00007550  b9 2c 22 57 48 41 54 20  49 53 20 54 48 45 20 22  |.,"WHAT IS THE "|
00007560  2b 42 24 2b 22 50 4c 41  59 45 52 53 20 4e 41 4d  |+B$+"PLAYERS NAM|
00007570  45 3f 22 2c 31 35 2c 38  29 0d 32 96 16 c8 97 c8  |E?",15,8).2.....|
00007580  93 33 30 36 2c 34 38 30  2c 36 33 34 2c 34 38 0d  |.306,480,634,48.|
00007590  32 a0 1e f2 73 6d 61 6c  6c 6d 65 73 28 37 38 34  |2...smallmes(784|
000075a0  2c 34 37 32 2c 31 31 2c  22 4f 4b 22 29 0d 32 aa  |,472,11,"OK").2.|
000075b0  1c f2 73 6d 61 6c 6c 6d  65 73 28 32 38 38 2c 34  |..smallmes(288,4|
000075c0  37 32 2c 31 31 2c 41 24  29 0d 32 b4 17 c8 97 4f  |72,11,A$).2....O|
000075d0  58 25 2c 4f 59 25 2c 4b  25 3a d1 3d 31 30 30 30  |X%,OY%,K%:.=1000|
000075e0  0d 32 be 05 f5 0d 32 c8  0c f2 62 75 74 74 28 30  |.2....2...butt(0|
000075f0  29 0d 32 d2 10 41 24 3d  6e 61 6d 65 24 28 54 25  |).2..A$=name$(T%|
00007600  29 0d 32 dc 11 ec 33 33  36 2c 35 31 36 3a f1 41  |).2...336,516:.A|
00007610  24 3b 0d 32 e6 0e e6 31  33 39 3a 2a 46 58 32 31  |$;.2...139:*FX21|
00007620  0d 32 f0 05 f5 0d 32 fa  32 51 3d a6 28 30 29 3a  |.2....2.2Q=.(0):|
00007630  e7 51 3c 3e b9 20 84 28  58 25 3c 37 30 32 80 4b  |.Q<>. .(X%<702.K|
00007640  25 29 20 91 3d 30 3a c8  97 4f 58 25 2c 4f 59 25  |%) .=0:..OX%,OY%|
00007650  2c 4b 25 3a c8 97 87 0d  33 04 13 e7 51 3c 3e 31  |,K%:....3...Q<>1|
00007660  32 37 51 3d 51 20 80 32  32 33 0d 33 0e 17 e7 28  |27Q=Q .223.3...(|
00007670  51 3e 36 34 80 51 3c 39  31 29 84 51 3d 31 32 37  |Q>64.Q<91).Q=127|
00007680  8c 0d 33 18 2b e7 a9 41  24 3c 3e 31 30 80 51 3c  |..3.+..A$<>10.Q<|
00007690  3e 31 32 37 41 24 3d 41  24 2b bd 51 3a ef 51 3a  |>127A$=A$+.Q:.Q:|
000076a0  d4 31 2c 2d 31 30 2c 32  30 30 2c 31 0d 33 22 2e  |.1,-10,200,1.3".|
000076b0  e7 a9 41 24 3c 3e 30 80  51 3d 31 32 37 41 24 3d  |..A$<>0.Q=127A$=|
000076c0  c0 41 24 2c a9 41 24 2d  31 29 3a ef 51 3a d4 31  |.A$,.A$-1):.Q:.1|
000076d0  2c 2d 31 30 2c 32 30 30  2c 31 0d 33 2c 05 cd 0d  |,-10,200,1.3,...|
000076e0  33 36 0e c8 97 58 25 2c  59 25 2c 4b 25 0d 33 40  |36...X%,Y%,K%.3@|
000076f0  25 e7 91 3e 35 30 30 84  94 28 58 25 2d 4f 58 25  |%..>500..(X%-OX%|
00007700  29 3e 38 84 94 28 59 25  2d 4f 59 25 29 3e 38 c8  |)>8..(Y%-OY%)>8.|
00007710  97 ee 0d 33 4a 15 fd 28  58 25 3e 37 39 32 80 4b  |...3J..(X%>792.K|
00007720  25 29 84 51 3d 31 33 0d  33 54 35 e7 41 24 3d 22  |%).Q=13.3T5.A$="|
00007730  22 d4 31 2c 2d 31 35 2c  31 32 35 2c 32 30 3a 6e  |".1,-15,125,20:n|
00007740  61 6d 65 24 28 54 25 29  3d 64 65 66 6e 61 6d 65  |ame$(T%)=defname|
00007750  24 28 54 25 29 3a d1 3d  30 3a fd a3 0d 33 5e 13  |$(T%):.=0:...3^.|
00007760  d4 31 2c 2d 31 30 2c 32  30 30 2c 31 3a fd b9 0d  |.1,-10,200,1:...|
00007770  33 68 15 e6 31 34 30 3a  6e 61 6d 65 24 28 54 25  |3h..140:name$(T%|
00007780  29 3d 41 24 0d 33 72 13  64 65 66 6e 61 6d 65 24  |)=A$.3r.defname$|
00007790  28 54 25 29 3d 41 24 0d  33 7c 05 e1 0d 33 86 07  |(T%)=A$.3|...3..|
000077a0  f4 20 15 0d 33 90 0f dd  a4 6e 6f 70 6c 61 79 69  |. ..3....noplayi|
000077b0  6e 67 0d 33 9a 0c f2 62  75 74 74 28 30 29 0d 33  |ng.3...butt(0).3|
000077c0  a4 0f e7 70 6c 61 79 25  3d 31 8c 3d 32 0d 33 ae  |...play%=1.=2.3.|
000077d0  13 ea 58 25 2c 59 25 2c  4b 25 2c 46 25 2c 4e 25  |..X%,Y%,K%,F%,N%|
000077e0  0d 33 b8 29 f2 63 65 6e  74 62 6f 78 28 b9 2c 22  |.3.).centbox(.,"|
000077f0  48 4f 57 20 4d 41 4e 59  20 50 4c 41 59 45 52 53  |HOW MANY PLAYERS|
00007800  3f 22 2c 31 32 2c 31 30  29 0d 33 c2 24 f2 6d 65  |?",12,10).3.$.me|
00007810  73 62 6f 78 28 34 36 34  2c 34 34 34 2c 38 34 2c  |sbox(464,444,84,|
00007820  31 30 30 29 3a f2 64 6f  6e 6f 28 31 29 0d 33 cc  |100):.dono(1).3.|
00007830  1a f2 6d 65 73 62 6f 78  28 37 30 34 2c 35 33 36  |..mesbox(704,536|
00007840  2c 38 30 2c 38 30 29 0d  33 d6 1a f2 6d 65 73 62  |,80,80).3...mesb|
00007850  6f 78 28 37 30 34 2c 33  37 32 2c 38 30 2c 38 30  |ox(704,372,80,80|
00007860  29 0d 33 e0 25 e6 31 35  3a ec 37 34 34 2c 36 30  |).3.%.15:.744,60|
00007870  30 3a ec 37 32 30 2c 35  35 34 3a f0 38 35 2c 37  |0:.720,554:.85,7|
00007880  36 38 2c 35 35 34 0d 33  ea 32 ec 37 34 34 2c 33  |68,554.3.2.744,3|
00007890  38 38 3a ec 37 32 30 2c  34 33 32 3a f0 38 35 2c  |88:.720,432:.85,|
000078a0  37 36 38 2c 34 33 32 3a  86 37 32 30 2c 34 33 36  |768,432:.720,436|
000078b0  2c 37 36 38 2c 34 33 36  0d 33 f4 20 e6 38 3a 86  |,768,436.3. .8:.|
000078c0  37 32 30 2c 34 33 32 2c  37 34 34 2c 33 38 38 3a  |720,432,744,388:|
000078d0  df 37 36 38 2c 34 33 32  0d 33 fe 1d 86 37 32 30  |.768,432.3...720|
000078e0  2c 35 35 38 2c 37 34 34  2c 36 30 30 3a df 37 36  |,558,744,600:.76|
000078f0  38 2c 35 35 38 0d 34 08  17 c8 97 c8 93 34 38 30  |8,558.4......480|
00007900  2c 33 38 34 2c 32 39 32  2c 32 32 30 0d 34 12 15  |,384,292,220.4..|
00007910  4e 25 3d 31 3a f5 3a c8  97 58 25 2c 59 25 2c 4b  |N%=1:.:..X%,Y%,K|
00007920  25 0d 34 1c 08 e7 4b 25  8c 0d 34 26 0c e7 58 25  |%.4...K%..4&..X%|
00007930  3e 37 31 36 8c 0d 34 30  35 e7 59 25 3e 35 34 34  |>716..405.Y%>544|
00007940  80 4e 25 3c 36 4e 25 2b  3d 31 3a f2 64 6f 6e 6f  |.N%<6N%+=1:.dono|
00007950  28 4e 25 29 3a d4 31 2c  2d 31 30 2c 32 30 30 2c  |(N%):.1,-10,200,|
00007960  31 3a f2 62 75 74 74 28  30 29 0d 34 3a 35 e7 59  |1:.butt(0).4:5.Y|
00007970  25 3c 34 34 32 80 4e 25  3e 31 4e 25 2d 3d 31 3a  |%<442.N%>1N%-=1:|
00007980  f2 64 6f 6e 6f 28 4e 25  29 3a d4 31 2c 2d 31 30  |.dono(N%):.1,-10|
00007990  2c 32 30 30 2c 31 3a f2  62 75 74 74 28 30 29 0d  |,200,1:.butt(0).|
000079a0  34 44 05 cd 0d 34 4e 0c  e7 58 25 3c 35 34 30 8c  |4D...4N..X%<540.|
000079b0  0d 34 58 16 e7 59 25 3e  34 35 36 80 59 25 3c 35  |.4X..Y%>456.Y%<5|
000079c0  34 30 46 25 3d b9 0d 34  62 05 cd 0d 34 6c 05 cd  |40F%=..4b...4l..|
000079d0  0d 34 76 09 fd 46 25 3d  b9 0d 34 80 10 d4 31 2c  |.4v..F%=..4...1,|
000079e0  2d 31 30 2c 32 30 30 2c  31 0d 34 8a 07 3d 4e 25  |-10,200,1.4..=N%|
000079f0  0d 34 94 07 f4 20 15 0d  34 9e 0e dd f2 64 6f 6e  |.4... ..4....don|
00007a00  6f 28 41 25 29 0d 34 a8  19 e6 31 31 3a c8 93 c8  |o(A%).4...11:...|
00007a10  90 34 37 36 2c 34 36 38  2c 36 30 2c 36 34 0d 34  |.476,468,60,64.4|
00007a20  b2 0c ec 34 37 36 2c 35  32 30 0d 34 bc 13 e6 31  |...476,520.4...1|
00007a30  32 3a f2 64 6f 75 62 6c  65 28 41 25 29 0d 34 c6  |2:.double(A%).4.|
00007a40  05 e1 0d 34 d0 07 f4 20  15 0d 34 da 18 dd a4 71  |...4... ..4....q|
00007a50  75 65 73 74 28 41 24 2c  42 24 2c 43 24 2c 48 25  |uest(A$,B$,C$,H%|
00007a60  29 0d 34 e4 0d ea 4c 25  2c 44 25 2c 52 25 0d 34  |).4...L%,D%,R%.4|
00007a70  ee 17 52 25 3d 37 30 34  2b a4 6c 65 6e 67 74 68  |..R%=704+.length|
00007a80  28 a9 43 24 29 0d 34 f8  17 4c 25 3d 36 30 30 2d  |(.C$).4..L%=600-|
00007a90  a4 6c 65 6e 67 74 68 28  a9 42 24 29 0d 35 02 1a  |.length(.B$).5..|
00007aa0  f2 63 65 6e 74 62 6f 78  28 b9 2c 41 24 2c 31 32  |.centbox(.,A$,12|
00007ab0  2c 36 2b 48 25 29 0d 35  0c 10 44 25 3d 34 36 34  |,6+H%).5..D%=464|
00007ac0  2d 48 25 2a 33 32 0d 35  16 1a f2 73 6d 61 6c 6c  |-H%*32.5...small|
00007ad0  6d 65 73 28 4c 25 2c 44  25 2c 31 31 2c 42 24 29  |mes(L%,D%,11,B$)|
00007ae0  0d 35 20 1b f2 73 6d 61  6c 6c 6d 65 73 28 37 30  |.5 ..smallmes(70|
00007af0  34 2c 44 25 2c 31 31 2c  43 24 29 0d 35 2a 1e c8  |4,D%,11,C$).5*..|
00007b00  97 c8 93 4c 25 2b 31 36  2c 44 25 2b 38 2c 52 25  |...L%+16,D%+8,R%|
00007b10  2d 4c 25 2d 36 34 2c 34  38 0d 35 34 08 c8 97 20  |-L%-64,48.54... |
00007b20  ee 0d 35 3e 0c f2 62 75  74 74 28 30 29 0d 35 48  |..5>..butt(0).5H|
00007b30  10 f5 3a c8 97 4c 25 2c  52 25 2c 44 25 0d 35 52  |..:..L%,R%,D%.5R|
00007b40  17 fd 44 25 80 28 4c 25  3c 35 36 38 84 4c 25 3e  |..D%.(L%<568.L%>|
00007b50  37 31 32 29 0d 35 5c 10  d4 31 2c 2d 31 30 2c 32  |712).5\..1,-10,2|
00007b60  30 30 2c 31 0d 35 66 10  44 25 3d 2d 28 4c 25 3e  |00,1.5f.D%=-(L%>|
00007b70  37 31 32 29 0d 35 70 07  3d 44 25 0d 35 7a 07 f4  |712).5p.=D%.5z..|
00007b80  20 15 0d 35 84 10 dd a4  6c 65 6e 67 74 68 28 4c  | ..5....length(L|
00007b90  25 29 0d 35 8e 18 4c 25  2b 3d 33 3a e7 28 4c 25  |%).5..L%+=3:.(L%|
00007ba0  80 31 29 2d 30 4c 25 2b  3d 31 0d 35 98 0a 3d 4c  |.1)-0L%+=1.5..=L|
00007bb0  25 2a 33 32 0d 35 a2 07  f4 20 15 0d 35 ac 10 dd  |%*32.5... ..5...|
00007bc0  f2 64 6f 75 62 6c 65 28  43 25 29 0d 35 b6 0f 43  |.double(C%).5..C|
00007bd0  25 3d 31 32 38 2b 34 2a  43 25 0d 35 c0 20 ef 43  |%=128+4*C%.5. .C|
00007be0  25 2c 43 25 2b 31 2c 38  2c 38 2c 31 30 2c 43 25  |%,C%+1,8,8,10,C%|
00007bf0  2b 32 2c 43 25 2b 33 2c  31 31 0d 35 ca 05 e1 0d  |+2,C%+3,11.5....|
00007c00  35 d4 07 f4 20 15 0d 35  de 0f dd f2 73 63 72 65  |5... ..5....scre|
00007c10  65 6e 62 6f 78 0d 35 e8  0e ea 4d 25 3a 4d 25 3d  |enbox.5...M%:M%=|
00007c20  eb 81 36 0d 35 f2 1a f2  6d 65 73 62 6f 78 28 30  |..6.5...mesbox(0|
00007c30  2c 30 2c 31 32 37 39 2c  31 30 32 33 29 0d 35 fc  |,0,1279,1023).5.|
00007c40  1f ef 32 34 2c 31 36 3b  31 36 3b 31 32 36 33 3b  |..24,16;16;1263;|
00007c50  31 30 30 37 3b 3a e6 31  34 30 3a da 0d 36 06 0e  |1007;:.140:..6..|
00007c60  dd f2 74 65 78 74 77 69  6e 64 0d 36 10 1b ef 32  |..textwind.6...2|
00007c70  38 2c 31 2c 33 30 2c 33  38 2a 4d 25 2c 31 3a fb  |8,1,30,38*M%,1:.|
00007c80  31 34 30 3a db 0d 36 1a  05 e1 0d 36 24 07 f4 20  |140:..6....6$.. |
00007c90  15 0d 36 2e 1b dd f2 63  65 6e 74 62 6f 78 28 63  |..6....centbox(c|
00007ca0  6c 73 2c 41 24 2c 43 25  2c 48 25 29 0d 36 38 0a  |ls,A$,C%,H%).68.|
00007cb0  e7 63 6c 73 20 db 0d 36  42 0d ea 54 25 2c 49 25  |.cls ..6B..T%,I%|
00007cc0  2c 4d 25 0d 36 4c 12 e7  eb 3d 39 4d 25 3d 31 36  |,M%.6L...=9M%=16|
00007cd0  8b 4d 25 3d 38 0d 36 56  11 54 25 3d 36 34 30 2d  |.M%=8.6V.T%=640-|
00007ce0  a9 41 24 2a 4d 25 0d 36  60 10 49 25 3d 35 31 32  |.A$*M%.6`.I%=512|
00007cf0  2b 48 25 2a 31 36 0d 36  6a 3d f2 6d 65 73 62 6f  |+H%*16.6j=.mesbo|
00007d00  78 28 54 25 2d 4d 25 2c  34 39 36 2d 48 25 2a 31  |x(T%-M%,496-H%*1|
00007d10  36 2d 32 30 2a 28 48 25  3d 31 29 2c a9 41 24 2a  |6-20*(H%=1),.A$*|
00007d20  4d 25 2a 32 2b 4d 25 2a  32 2c 48 25 2a 33 32 2b  |M%*2+M%*2,H%*32+|
00007d30  33 32 29 0d 36 74 1f e6  43 25 3a ec 54 25 2c 49  |32).6t..C%:.T%,I|
00007d40  25 2d 31 36 2a 28 48 25  3d 31 29 3a ef 35 3a f1  |%-16*(H%=1):.5:.|
00007d50  41 24 0d 36 7e 05 e1 0d  36 88 07 f4 20 15 0d 36  |A$.6~...6... ..6|
00007d60  92 1b dd f2 73 6d 61 6c  6c 6d 65 73 28 78 25 2c  |....smallmes(x%,|
00007d70  79 25 2c 43 25 2c 41 24  29 0d 36 9c 0a ea 6f 25  |y%,C%,A$).6...o%|
00007d80  2c 4d 25 0d 36 a6 14 e7  eb 3d 31 32 4d 25 3d 31  |,M%.6....=12M%=1|
00007d90  36 8b 4d 25 3d 33 32 0d  36 b0 15 6f 25 3d 28 31  |6.M%=32.6..o%=(1|
00007da0  2d 28 a9 41 24 80 31 29  29 2a 4d 25 0d 36 ba 24  |-(.A$.1))*M%.6.$|
00007db0  f2 6d 65 73 62 6f 78 28  78 25 2c 79 25 2c a9 41  |.mesbox(x%,y%,.A|
00007dc0  24 2a 4d 25 2b 4d 25 2a  32 2b 6f 25 2c 36 34 29  |$*M%+M%*2+o%,64)|
00007dd0  0d 36 c4 21 e6 31 32 3a  ef 35 3a ec 78 25 2b 4d  |.6.!.12:.5:.x%+M|
00007de0  25 2b 6f 25 81 32 2c 79  25 2b 34 34 3a f1 41 24  |%+o%.2,y%+44:.A$|
00007df0  3b 0d 36 ce 05 e1 0d 36  d8 07 f4 20 15 0d 36 e2  |;.6....6... ..6.|
00007e00  19 dd f2 6d 65 73 62 6f  78 28 78 25 2c 79 25 2c  |...mesbox(x%,y%,|
00007e10  58 25 2c 59 25 29 0d 36  ec 16 e6 38 3a c8 93 c8  |X%,Y%).6...8:...|
00007e20  90 78 25 2c 79 25 2c 58  25 2c 59 25 0d 36 f6 1c  |.x%,y%,X%,Y%.6..|
00007e30  e6 33 3a c8 93 78 25 2b  34 2c 79 25 2b 34 2c 58  |.3:..x%+4,y%+4,X|
00007e40  25 2d 38 2c 59 25 2d 38  0d 37 00 1e e6 34 3a c8  |%-8,Y%-8.7...4:.|
00007e50  93 78 25 2b 38 2c 79 25  2b 38 2c 58 25 2d 31 36  |.x%+8,y%+8,X%-16|
00007e60  2c 59 25 2d 31 36 0d 37  0a 23 e6 31 31 3a c8 93  |,Y%-16.7.#.11:..|
00007e70  c8 90 78 25 2b 31 32 2c  79 25 2b 31 32 2c 58 25  |..x%+12,y%+12,X%|
00007e80  2d 32 34 2c 59 25 2d 32  34 0d 37 14 05 e1 0d 37  |-24,Y%-24.7....7|
00007e90  1e 04 0d 37 28 1e dd f2  6d 65 73 77 69 6e 64 32  |...7(...meswind2|
00007ea0  28 41 24 2c 42 24 2c 43  24 2c 46 25 2c 43 25 29  |(A$,B$,C$,F%,C%)|
00007eb0  0d 37 32 15 2a 43 48 41  4e 4e 45 4c 56 4f 49 43  |.72.*CHANNELVOIC|
00007ec0  45 20 31 20 31 0d 37 3c  07 ef 32 36 0d 37 46 17  |E 1 1.7<..26.7F.|
00007ed0  ea 58 25 2c 78 25 2c 78  32 25 2c 63 25 2c 49 25  |.X%,x%,x2%,c%,I%|
00007ee0  2c 59 25 0d 37 50 21 59  25 3d 38 30 2d 28 42 24  |,Y%.7P!Y%=80-(B$|
00007ef0  3c 3e 22 22 29 2a 34 38  2d 28 43 24 3c 3e 22 22  |<>"")*48-(C$<>""|
00007f00  29 2a 34 38 0d 37 5a 1e  58 25 3d 28 a9 41 24 2a  |)*48.7Z.X%=(.A$*|
00007f10  31 36 2b 33 32 29 3a 78  25 3d 36 34 30 2d 58 25  |16+32):x%=640-X%|
00007f20  81 32 0d 37 64 19 f2 6d  65 73 62 6f 78 28 78 25  |.2.7d..mesbox(x%|
00007f30  2c 38 30 30 2c 58 25 2c  59 25 29 0d 37 6e 09 e6  |,800,X%,Y%).7n..|
00007f40  33 2c 43 25 0d 37 78 0f  ef 35 3a 58 25 3d 78 25  |3,C%.7x..5:X%=x%|
00007f50  2b 31 36 0d 37 82 12 78  25 3d 36 34 30 2d 28 a9  |+16.7..x%=640-(.|
00007f60  42 24 2a 38 29 0d 37 8c  13 78 32 25 3d 36 34 30  |B$*8).7..x2%=640|
00007f70  2d 28 a9 43 24 2a 38 29  0d 37 96 10 e3 49 25 3d  |-(.C$*8).7...I%=|
00007f80  31 b8 46 25 2a 32 2b 31  0d 37 a0 12 ec 58 25 2c  |1.F%*2+1.7...X%,|
00007f90  37 37 32 2b 59 25 3a f1  41 24 0d 37 aa 19 e7 42  |772+Y%:.A$.7...B|
00007fa0  24 3c 3e 22 22 ec 78 25  2c 37 32 34 2b 59 25 3a  |$<>"".x%,724+Y%:|
00007fb0  f1 42 24 0d 37 b4 1a e7  43 24 3c 3e 22 22 ec 78  |.B$.7...C$<>"".x|
00007fc0  32 25 2c 36 37 36 2b 59  25 3a f1 43 24 0d 37 be  |2%,676+Y%:.C$.7.|
00007fd0  0c f2 64 65 6c 28 35 30  29 0d 37 c8 10 d4 31 2c  |..del(50).7...1,|
00007fe0  2d 31 30 2c 31 38 30 2c  31 0d 37 d2 05 ed 0d 37  |-10,180,1.7....7|
00007ff0  dc 05 e1 0d 37 e6 07 f4  20 15 0d 37 f0 1d dd f2  |....7... ..7....|
00008000  6d 65 73 77 69 6e 64 28  41 24 2c 42 24 2c 43 24  |meswind(A$,B$,C$|
00008010  2c 46 25 2c 43 25 29 0d  37 fa 1d f2 6d 65 73 77  |,F%,C%).7...mesw|
00008020  69 6e 64 32 28 41 24 2c  42 24 2c 43 24 2c 46 25  |ind2(A$,B$,C$,F%|
00008030  2c 43 25 29 0d 38 04 08  ef 34 3a 87 0d 38 0e 08  |,C%).8...4:..8..|
00008040  e6 38 2c 30 0d 38 18 18  2a 53 43 48 4f 4f 53 45  |.8,0.8..*SCHOOSE|
00008050  20 74 6f 70 6f 66 73 63  72 65 65 6e 0d 38 22 0e  | topofscreen.8".|
00008060  f0 26 45 44 2c 30 2c 37  30 34 0d 38 2c 0d f2 77  |.&ED,0,704.8,..w|
00008070  69 6e 64 6f 77 73 32 0d  38 36 05 e1 0d 38 40 07  |indows2.86...8@.|
00008080  f4 20 15 0d 38 4a 0b dd  f2 62 6f 61 72 64 0d 38  |. ..8J...board.8|
00008090  54 27 74 6f 74 73 63 6f  72 65 25 28 29 3d 74 6f  |T'totscore%()=to|
000080a0  74 73 63 6f 72 65 25 28  29 2b 63 75 72 72 65 6e  |tscore%()+curren|
000080b0  74 53 25 28 29 0d 38 5e  41 e3 54 25 3d 31 b8 6e  |tS%().8^A.T%=1.n|
000080c0  6f 6f 66 70 6c 61 79 65  72 73 3a 68 6f 6c 65 73  |oofplayers:holes|
000080d0  63 6f 72 65 73 25 28 68  73 70 25 28 54 25 29 2c  |cores%(hsp%(T%),|
000080e0  48 6f 6c 65 25 29 3d 63  75 72 72 65 6e 74 53 25  |Hole%)=currentS%|
000080f0  28 54 25 29 3a ed 0d 38  68 0d f2 62 6f 61 72 64  |(T%):..8h..board|
00008100  63 6f 6c 0d 38 72 15 fb  33 2c 30 2c 31 34 34 2c  |col.8r..3,0,144,|
00008110  30 3a e6 31 33 31 3a da  0d 38 7c 0c f2 77 69 6e  |0:.131:..8|..win|
00008120  73 6f 72 74 0d 38 86 21  ea 50 25 2c 59 25 2c 54  |sort.8.!.P%,Y%,T|
00008130  25 2c 49 25 2c 53 25 2c  6d 70 25 2c 41 24 2c 73  |%,I%,S%,mp%,A$,s|
00008140  63 25 2c 4f 25 0d 38 90  16 4f 25 3d 28 70 6c 61  |c%,O%.8..O%=(pla|
00008150  79 25 3d 32 29 2a 34 3a  ef 32 36 0d 38 9a 19 e6  |y%=2)*4:.26.8...|
00008160  30 3a c8 93 c8 90 36 30  2c 37 36 2c 31 31 35 36  |0:....60,76,1156|
00008170  2c 39 32 30 0d 38 a4 1c  e6 36 34 2c 30 3a c8 93  |,920.8...64,0:..|
00008180  c8 90 36 34 2c 38 30 2c  31 31 34 38 2c 31 32 38  |..64,80,1148,128|
00008190  0d 38 ae 1e e6 34 38 2c  30 3a c8 93 c8 90 36 34  |.8...48,0:....64|
000081a0  2c 39 39 32 2c 31 31 34  38 2c 2d 31 32 38 0d 38  |,992,1148,-128.8|
000081b0  b8 26 e6 31 32 3a ec 37  36 38 2c 35 34 34 3a ec  |.&.12:.768,544:.|
000081c0  31 32 31 32 2c 39 39 32  3a f0 38 35 2c 31 32 31  |1212,992:.85,121|
000081d0  32 2c 38 30 0d 38 c2 22  e6 31 33 3a ec 35 31 32  |2,80.8.".13:.512|
000081e0  2c 35 34 34 3a ec 36 34  2c 38 30 3a f0 38 35 2c  |,544:.64,80:.85,|
000081f0  36 34 2c 39 39 32 0d 38  cc 1b e6 31 31 3a c8 93  |64,992.8...11:..|
00008200  c8 90 39 38 2c 31 31 32  2c 31 30 38 30 2c 38 34  |..98,112,1080,84|
00008210  38 0d 38 d6 18 e6 30 3a  c8 93 39 38 2c 31 31 32  |8.8...0:..98,112|
00008220  2c 31 30 38 30 2c 38 34  38 0d 38 e0 25 ef 32 34  |,1080,848.8.%.24|
00008230  2c 31 30 30 3b 31 31 36  3b 31 31 37 36 3b 39 35  |,100;116;1176;95|
00008240  36 3b 3a c8 91 39 38 2c  31 31 36 3a ef 35 0d 38  |6;:..98,116:.5.8|
00008250  ea 1d e6 31 34 3a e3 50  25 3d 31 b8 36 3a 59 25  |...14:.P%=1.6:Y%|
00008260  3d 37 38 38 2d 50 25 2a  31 33 32 0d 38 f4 1c e6  |=788-P%*132.8...|
00008270  37 3a 86 30 2c 59 25 2b  31 32 34 2c 31 30 38 30  |7:.0,Y%+124,1080|
00008280  2c 59 25 2b 31 32 34 0d  38 fe 15 e6 31 34 3a 86  |,Y%+124.8...14:.|
00008290  30 2c 59 25 2c 31 30 38  30 2c 59 25 0d 39 08 26  |0,Y%,1080,Y%.9.&|
000082a0  e3 54 25 3d 34 30 b8 38  30 88 34 30 3a 86 30 2c  |.T%=40.80.40:.0,|
000082b0  59 25 2b 54 25 2c 31 30  38 30 2c 59 25 2b 54 25  |Y%+T%,1080,Y%+T%|
000082c0  3a ed 0d 39 12 27 e3 54  25 3d 31 b8 38 3a 58 25  |:..9.'.T%=1.8:X%|
000082d0  3d 54 25 2a 31 32 30 3a  86 58 25 2c 59 25 2c 58  |=T%*120:.X%,Y%,X|
000082e0  25 2c 59 25 2b 38 30 3a  ed 0d 39 1c 05 ed 0d 39  |%,Y%+80:..9....9|
000082f0  26 15 e3 50 25 3d 31 b8  6e 6f 6f 66 70 6c 61 79  |&..P%=1.noofplay|
00008300  65 72 73 0d 39 30 2c 6d  70 25 3d 6d 61 70 73 74  |ers.90,mp%=mapst|
00008310  61 72 74 25 2b 26 32 46  39 3a 59 25 3d 37 32 38  |art%+&2F9:Y%=728|
00008320  2d 28 50 25 2d 31 29 2a  31 33 32 3a e6 31 32 0d  |-(P%-1)*132:.12.|
00008330  39 3a 3a e3 49 25 3d 30  b8 2d 34 30 88 2d 34 30  |9::.I%=0.-40.-40|
00008340  3a e3 54 25 3d 30 b8 38  3a ec 54 25 2a 31 32 30  |:.T%=0.8:.T%*120|
00008350  2b 34 2c 59 25 2b 49 25  3a f1 3b 3f 6d 70 25 3a  |+4,Y%+I%:.;?mp%:|
00008360  6d 70 25 2b 3d 26 33 30  30 0d 39 44 09 ed 3a ed  |mp%+=&300.9D..:.|
00008370  3a ed 0d 39 4e 15 e3 50  25 3d 31 b8 6e 6f 6f 66  |:..9N..P%=1.noof|
00008380  70 6c 61 79 65 72 73 0d  39 58 35 6d 70 25 3d 6d  |players.9X5mp%=m|
00008390  61 70 73 74 61 72 74 25  2b 26 32 46 39 3a 59 25  |apstart%+&2F9:Y%|
000083a0  3d 37 32 38 2d 28 50 25  2d 31 29 2a 31 33 32 3a  |=728-(P%-1)*132:|
000083b0  58 25 3d 33 32 3a 70 61  72 25 3d 30 0d 39 62 22  |X%=32:par%=0.9b"|
000083c0  e3 54 25 3d 31 b8 48 6f  6c 65 25 3a e7 54 25 3d  |.T%=1.Hole%:.T%=|
000083d0  31 30 59 25 2d 3d 34 30  3a 58 25 3d 33 32 0d 39  |10Y%-=40:X%=32.9|
000083e0  6c 37 73 63 25 3d 68 6f  6c 65 73 63 6f 72 65 73  |l7sc%=holescores|
000083f0  25 28 68 73 70 25 28 50  25 29 2c 54 25 29 2d 3f  |%(hsp%(P%),T%)-?|
00008400  6d 70 25 3a 70 61 72 25  2b 3d 3f 6d 70 25 3a ec  |mp%:par%+=?mp%:.|
00008410  58 25 2c 59 25 0d 39 76  0b c8 8e b4 73 63 25 ca  |X%,Y%.9v....sc%.|
00008420  0d 39 80 14 c9 20 30 3a  41 24 3d 22 50 41 52 22  |.9... 0:A$="PAR"|
00008430  3a e6 31 35 0d 39 8a 16  c9 20 31 3a 41 24 3d 22  |:.15.9... 1:A$="|
00008440  2b 22 2b c3 73 63 25 3a  e6 35 0d 39 94 12 c9 2d  |+"+.sc%:.5.9...-|
00008450  31 3a 41 24 3d c3 73 63  25 3a e6 30 0d 39 9e 05  |1:A$=.sc%:.0.9..|
00008460  cb 0d 39 a8 13 f1 c4 35  2d a9 41 24 2c 22 20 22  |..9....5-.A$," "|
00008470  29 3b 41 24 0d 39 b2 15  58 25 2b 3d 31 32 30 3a  |);A$.9..X%+=120:|
00008480  6d 70 25 2b 3d 26 33 30  30 0d 39 bc 05 ed 0d 39  |mp%+=&300.9....9|
00008490  c6 35 e6 6a 75 6d 70 25  28 50 25 29 2b 34 3a ec  |.5.jump%(P%)+4:.|
000084a0  34 2c 37 36 38 2d 28 50  25 2d 31 29 2a 31 33 32  |4,768-(P%-1)*132|
000084b0  3a f1 6e 61 6d 65 24 28  50 25 29 8a 32 30 2b 4f  |:.name$(P%).20+O|
000084c0  25 29 3b 0d 39 d0 14 c8  8e 63 75 72 72 65 6e 74  |%);.9....current|
000084d0  73 25 28 50 25 29 ca 0d  39 da 15 c9 31 3a f1 22  |s%(P%)..9...1:."|
000084e0  7b 42 45 47 49 4e 4e 45  52 7d 22 3b 0d 39 e4 17  |{BEGINNER}";.9..|
000084f0  c9 32 3a f1 22 7b 45 4e  54 48 55 53 49 41 53 54  |.2:."{ENTHUSIAST|
00008500  7d 22 3b 0d 39 ee 14 c9  33 3a f1 22 7b 41 4d 41  |}";.9...3:."{AMA|
00008510  54 45 55 52 7d 22 3b 0d  39 f8 19 c9 34 3a f1 22  |TEUR}";.9...4:."|
00008520  7b 50 52 4f 46 45 53 53  49 4f 4e 41 4c 7d 22 3b  |{PROFESSIONAL}";|
00008530  0d 3a 02 05 cb 0d 3a 0c  41 f1 8a 34 30 2b 4f 25  |.:....:.A..40+O%|
00008540  29 3b 74 6f 74 73 63 6f  72 65 25 28 50 25 29 3b  |);totscore%(P%);|
00008550  22 20 53 54 52 4f 4b 45  22 bd 28 2d 28 74 6f 74  |" STROKE".(-(tot|
00008560  73 63 6f 72 65 25 28 50  25 29 3e 31 29 2a 38 33  |score%(P%)>1)*83|
00008570  29 8a 35 33 29 3b 0d 3a  16 36 41 24 3d 22 20 3a  |).53);.:.6A$=" :|
00008580  20 22 2b c3 48 6f 6c 65  25 2b 22 20 48 4f 4c 45  | "+.Hole%+" HOLE|
00008590  22 2b c4 2d 28 48 6f 6c  65 25 3e 31 29 2c 22 53  |"+.-(Hole%>1),"S|
000085a0  22 29 2b 22 20 50 4c 41  59 45 44 22 0d 3a 20 0c  |")+" PLAYED".: .|
000085b0  c8 8e 70 6c 61 79 25 ca  0d 3a 2a 0d c9 31 3a f2  |..play%..:*..1:.|
000085c0  6d 61 74 63 68 0d 3a 34  0e c9 32 3a f2 73 74 72  |match.:4..2:.str|
000085d0  6f 6b 65 0d 3a 3e 05 cb  0d 3a 48 05 ed 0d 3a 52  |oke.:>...:H...:R|
000085e0  20 e6 31 35 3a 54 25 3d  35 34 32 2d a9 41 24 2a  | .15:T%=542-.A$*|
000085f0  38 3a ec 54 25 2c 38 32  34 3a f1 41 24 0d 3a 5c  |8:.T%,824:.A$.:\|
00008600  1f e6 31 32 3a c8 93 54  25 2d 38 2c 37 38 38 2c  |..12:..T%-8,788,|
00008610  a9 41 24 2a 31 36 2b 31  34 2c 34 38 0d 3a 66 29  |.A$*16+14,48.:f)|
00008620  ef 32 36 3a f2 73 6d 61  6c 6c 6d 65 73 28 33 36  |.26:.smallmes(36|
00008630  30 2c 33 32 2c 31 31 2c  22 20 43 4f 4e 54 49 4e  |0,32,11," CONTIN|
00008640  55 45 20 22 29 0d 3a 70  25 f2 73 6d 61 6c 6c 6d  |UE ").:p%.smallm|
00008650  65 73 28 37 32 30 2c 33  32 2c 31 31 2c 22 51 55  |es(720,32,11,"QU|
00008660  49 54 20 52 4f 55 4e 44  22 29 0d 3a 7a 05 f5 0d  |IT ROUND").:z...|
00008670  3a 84 15 c8 97 c8 93 33  37 32 2c 34 34 2c 35 32  |:......372,44,52|
00008680  38 2c 34 30 0d 3a 8e 11  c8 97 ee 3a c8 97 b8 34  |8,40.:.....:...4|
00008690  36 34 2c 36 34 0d 3a 98  18 f2 62 75 74 74 28 30  |64,64.:...butt(0|
000086a0  29 3a d1 3d 30 3a f5 fd  91 3e 31 30 30 0d 3a a2  |):.=0:...>100.:.|
000086b0  10 f5 3a c8 97 58 25 2c  59 25 2c 54 25 0d 3a ac  |..:..X%,Y%,T%.:.|
000086c0  17 fd 54 25 80 28 58 25  3c 35 35 36 84 58 25 3e  |..T%.(X%<556.X%>|
000086d0  37 31 38 29 0d 3a b6 44  e7 58 25 3e 37 31 38 f2  |718).:.D.X%>718.|
000086e0  63 6f 6e 66 69 72 6d 3a  e7 58 25 3e 39 32 36 ec  |confirm:.X%>926.|
000086f0  30 2c 30 3a ff 28 22 53  43 48 4f 4f 53 45 20 74  |0,0:.("SCHOOSE t|
00008700  6f 70 6f 66 73 63 72 65  65 6e 22 29 3a f0 26 45  |opofscreen"):.&E|
00008710  44 2c 30 2c 30 3a fd 30  0d 3a c0 06 fd b9 0d 3a  |D,0,0:.0.:.....:|
00008720  ca 0b fb 30 3a ef 34 3a  87 0d 3a d4 07 c8 97 87  |...0:.4:..:.....|
00008730  0d 3a de 08 e6 31 33 39  0d 3a e8 05 e1 0d 3a f2  |.:...139.:....:.|
00008740  07 f4 20 15 0d 3a fc 0d  dd f2 63 6f 6e 66 69 72  |.. ..:....confir|
00008750  6d 0d 3b 06 0c f2 62 75  74 74 28 30 29 0d 3b 10  |m.;...butt(0).;.|
00008760  0c f2 67 74 6f 73 28 30  29 0d 3b 1a 1b f2 6d 65  |..gtos(0).;...me|
00008770  73 62 6f 78 28 36 34 30  2c 33 32 2c 35 31 32 2c  |sbox(640,32,512,|
00008780  31 36 30 29 0d 3b 24 31  e6 38 3a ec 36 35 36 2c  |160).;$1.8:.656,|
00008790  31 37 36 3a f1 22 41 52  45 20 59 4f 55 20 53 55  |176:."ARE YOU SU|
000087a0  52 45 20 59 4f 55 20 57  41 4e 54 20 54 4f 20 51  |RE YOU WANT TO Q|
000087b0  55 49 54 3f 22 0d 3b 2e  1d f2 73 6d 61 6c 6c 6d  |UIT?".;...smallm|
000087c0  65 73 28 37 39 34 2c 36  30 2c 38 2c 22 59 45 53  |es(794,60,8,"YES|
000087d0  22 29 0d 3b 38 1c f2 73  6d 61 6c 6c 6d 65 73 28  |").;8..smallmes(|
000087e0  39 31 36 2c 36 30 2c 38  2c 22 4e 4f 22 29 0d 3b  |916,60,8,"NO").;|
000087f0  42 1f c8 97 c8 93 38 30  36 2c 37 32 2c 31 37 38  |B.....806,72,178|
00008800  2c 34 30 3a c8 97 b8 38  39 30 2c 38 32 0d 3b 4c  |,40:...890,82.;L|
00008810  10 f5 3a c8 97 58 25 2c  59 25 2c 54 25 0d 3b 56  |..:..X%,Y%,T%.;V|
00008820  17 fd 54 25 80 28 58 25  3c 38 36 36 84 58 25 3e  |..T%.(X%<866.X%>|
00008830  39 32 36 29 0d 3b 60 05  e1 0d 3b 6a 07 f4 20 15  |926).;`...;j.. .|
00008840  0d 3b 74 0b dd f2 6d 61  74 63 68 0d 3b 7e 12 ea  |.;t...match.;~..|
00008850  54 25 2c 42 24 2c 53 31  25 2c 53 32 25 0d 3b 88  |T%,B$,S1%,S2%.;.|
00008860  0f e3 54 25 3d 31 b8 48  6f 6c 65 25 0d 3b 92 3b  |..T%=1.Hole%.;.;|
00008870  e7 20 68 6f 6c 65 73 63  6f 72 65 73 25 28 68 73  |. holescores%(hs|
00008880  70 25 28 31 29 2c 54 25  29 3c 68 6f 6c 65 73 63  |p%(1),T%)<holesc|
00008890  6f 72 65 73 25 28 68 73  70 25 28 32 29 2c 54 25  |ores%(hsp%(2),T%|
000088a0  29 53 31 25 2b 3d 31 0d  3b 9c 3b e7 20 68 6f 6c  |)S1%+=1.;.;. hol|
000088b0  65 73 63 6f 72 65 73 25  28 68 73 70 25 28 32 29  |escores%(hsp%(2)|
000088c0  2c 54 25 29 3c 68 6f 6c  65 73 63 6f 72 65 73 25  |,T%)<holescores%|
000088d0  28 68 73 70 25 28 31 29  2c 54 25 29 53 32 25 2b  |(hsp%(1),T%)S2%+|
000088e0  3d 31 0d 3b a6 13 ed 3a  54 25 3d 94 28 53 32 25  |=1.;...:T%=.(S2%|
000088f0  2d 53 31 25 29 0d 3b b0  25 42 24 3d c3 28 54 25  |-S1%).;.%B$=.(T%|
00008900  29 3a e7 54 25 42 24 3d  42 24 2b 22 20 55 50 22  |):.T%B$=B$+" UP"|
00008910  8b 42 24 3d 22 45 56 45  4e 22 0d 3b ba 16 42 24  |.B$="EVEN".;..B$|
00008920  3d c4 31 34 2d a9 42 24  2c 22 20 22 29 2b 42 24  |=.14-.B$," ")+B$|
00008930  0d 3b c4 09 c8 8e 50 25  ca 0d 3b ce 13 c9 31 3a  |.;....P%..;...1:|
00008940  e7 53 31 25 3e 3d 53 32  25 f1 42 24 0d 3b d8 13  |.S1%>=S2%.B$.;..|
00008950  c9 32 3a e7 53 32 25 3e  3d 53 31 25 f1 42 24 0d  |.2:.S2%>=S1%.B$.|
00008960  3b e2 05 cb 0d 3b ec 21  41 24 3d 43 6f 75 72 73  |;....;.!A$=Cours|
00008970  65 24 2b 22 20 3a 20 4d  41 54 43 48 20 50 4c 41  |e$+" : MATCH PLA|
00008980  59 22 2b 41 24 0d 3b f6  05 e1 0d 3c 00 07 f4 20  |Y"+A$.;....<... |
00008990  15 0d 3c 0a 0c dd f2 73  74 72 6f 6b 65 0d 3c 14  |..<....stroke.<.|
000089a0  0a ea 54 25 2c 42 24 0d  3c 1e 23 54 25 3d 74 6f  |..T%,B$.<.#T%=to|
000089b0  74 73 63 6f 72 65 25 28  50 25 29 2d 70 61 72 25  |tscore%(P%)-par%|
000089c0  3a 42 24 3d c3 28 94 54  25 29 0d 3c 28 0a c8 8e  |:B$=.(.T%).<(...|
000089d0  b4 54 25 ca 0d 3c 32 14  c9 30 3a 42 24 3d 22 45  |.T%..<2..0:B$="E|
000089e0  56 45 4e 20 50 41 52 22  0d 3c 3c 18 c9 31 3a 42  |VEN PAR".<<..1:B|
000089f0  24 3d 42 24 2b 22 20 4f  56 45 52 20 50 41 52 22  |$=B$+" OVER PAR"|
00008a00  0d 3c 46 1a c9 2d 31 3a  42 24 3d 42 24 2b 22 20  |.<F..-1:B$=B$+" |
00008a10  55 4e 44 45 52 20 50 41  52 22 0d 3c 50 05 cb 0d  |UNDER PAR".<P...|
00008a20  3c 5a 14 f1 c4 31 34 2d  a9 42 24 2c 22 20 22 29  |<Z...14-.B$," ")|
00008a30  3b 42 24 0d 3c 64 22 41  24 3d 43 6f 75 72 73 65  |;B$.<d"A$=Course|
00008a40  24 2b 22 20 3a 20 53 54  52 4f 4b 45 20 50 4c 41  |$+" : STROKE PLA|
00008a50  59 22 2b 41 24 0d 3c 6e  05 e1 0d 3c 78 07 f4 20  |Y"+A$.<n...<x.. |
00008a60  15 0d 3c 82 0e dd f2 73  68 6f 77 77 69 6e 64 0d  |..<....showwind.|
00008a70  3c 8c 23 ea 77 24 2c 54  25 2c 43 25 2c 73 25 2c  |<.#.w$,T%,C%,s%,|
00008a80  69 25 2c 78 31 25 2c 79  31 25 2c 42 58 25 2c 42  |i%,x1%,y1%,BX%,B|
00008a90  59 25 0d 3c 96 35 e7 67  72 65 65 6e 25 20 43 25  |Y%.<.5.green% C%|
00008aa0  3d 39 3a 77 24 3d 22 53  4c 4f 50 45 22 3a 73 25  |=9:w$="SLOPE":s%|
00008ab0  3d 2d 32 8b 43 25 3d 36  3a 77 24 3d 22 57 49 4e  |=-2.C%=6:w$="WIN|
00008ac0  44 22 3a 73 25 3d 34 0d  3c a0 25 fb 31 33 3a f1  |D":s%=4.<.%.13:.|
00008ad0  8a 32 36 2c 30 29 22 44  49 52 45 43 54 49 4f 4e  |.26,0)"DIRECTION|
00008ae0  20 4f 46 22 8a 32 39 2c  31 29 77 24 0d 3c aa 13  | OF".29,1)w$.<..|
00008af0  e3 54 25 3d 43 25 b8 43  25 2b 73 25 88 73 25 0d  |.T%=C%.C%+s%.s%.|
00008b00  3c b4 07 e6 54 25 0d 3c  be 13 c8 8f 35 32 36 2c  |<...T%.<....526,|
00008b10  38 32 30 2c 38 38 2b 69  25 0d 3c c8 13 c8 8f 35  |820,88+i%.<....5|
00008b20  32 36 2c 38 32 30 2c 31  32 2b 69 25 0d 3c d2 0b  |26,820,12+i%.<..|
00008b30  69 25 2b 3d 34 3a ed 0d  3c dc 06 e6 38 0d 3c e6  |i%+=4:..<...8.<.|
00008b40  0c ec 35 32 36 2c 38 32  30 0d 3c f0 17 42 58 25  |..526,820.<..BX%|
00008b50  3d 77 78 2a 32 35 3a 42  59 25 3d 77 79 2a 32 35  |=wx*25:BY%=wy*25|
00008b60  0d 3c fa 27 78 31 25 3d  76 61 2a 42 59 25 2b 76  |.<.'x1%=va*BY%+v|
00008b70  62 2a 42 58 25 3a 79 31  25 3d 76 69 2a 42 59 25  |b*BX%:y1%=vi*BY%|
00008b80  2b 76 61 2a 42 58 25 0d  3d 04 14 df 35 32 36 2b  |+va*BX%.=...526+|
00008b90  78 31 25 2c 38 32 30 2b  79 31 25 0d 3d 0e 05 e1  |x1%,820+y1%.=...|
00008ba0  0d 3d 18 07 f4 20 15 0d  3d 22 0d dd f2 73 65 74  |.=... ..="...set|
00008bb0  77 69 6e 64 0d 3d 2c 17  57 58 3d 30 3a 57 59 3d  |wind.=,.WX=0:WY=|
00008bc0  30 3a 46 25 3d 67 72 65  65 6e 25 0d 3d 36 18 77  |0:F%=green%.=6.w|
00008bd0  63 3d 35 2b 34 2a 67 72  65 65 6e 25 3a 77 63 32  |c=5+4*green%:wc2|
00008be0  3d 77 63 0d 3d 40 31 e7  46 25 3a 50 25 3d 6d 61  |=wc.=@1.F%:P%=ma|
00008bf0  70 70 6f 69 6e 74 25 2b  26 32 46 34 3a 77 78 3d  |ppoint%+&2F4:wx=|
00008c00  a4 6d 61 70 32 2f 33 3a  77 79 3d a4 6d 61 70 32  |.map2/3:wy=.map2|
00008c10  2f 33 3a e1 0d 3d 4a 18  77 78 3d 30 3a 77 79 3d  |/3:..=J.wx=0:wy=|
00008c20  30 3a e7 73 6b 69 6c 6c  25 3c 33 e1 0d 3d 54 0f  |0:.skill%<3..=T.|
00008c30  77 78 3d 57 78 3a 77 79  3d 57 79 0d 3d 5e 05 e1  |wx=Wx:wy=Wy.=^..|
00008c40  0d 3d 68 07 f4 20 15 0d  3d 72 0e dd f2 69 6e 69  |.=h.. ..=r...ini|
00008c50  74 77 69 6e 64 0d 3d 7c  07 ea 61 25 0d 3d 86 10  |twind.=|..a%.=..|
00008c60  73 74 72 65 6e 25 3d b3  28 33 36 29 0d 3d 90 0d  |stren%=.(36).=..|
00008c70  61 25 3d b3 28 33 36 30  29 0d 3d 9a 18 57 78 3d  |a%=.(360).=..Wx=|
00008c80  28 28 9b b2 61 25 29 2a  73 74 72 65 6e 25 29 2f  |((..a%)*stren%)/|
00008c90  39 0d 3d a4 18 57 79 3d  28 28 b5 b2 61 25 29 2a  |9.=..Wy=((..a%)*|
00008ca0  73 74 72 65 6e 25 29 2f  39 0d 3d ae 1d 46 78 3d  |stren%)/9.=..Fx=|
00008cb0  28 b5 b2 61 25 29 2a 28  31 35 2b 28 73 74 72 65  |(..a%)*(15+(stre|
00008cc0  6e 25 81 32 29 29 0d 3d  b8 1d 46 79 3d 28 9b b2  |n%.2)).=..Fy=(..|
00008cd0  61 25 29 2a 28 31 35 2b  28 73 74 72 65 6e 25 81  |a%)*(15+(stren%.|
00008ce0  32 29 29 0d 3d c2 05 e1  0d 3d cc 07 f4 20 15 0d  |2)).=....=... ..|
00008cf0  3d d6 0a dd f2 73 70 6f  74 0d 3d e0 1b 62 73 25  |=....spot.=..bs%|
00008d00  3d 31 3a 42 58 3d 30 3a  42 59 25 3d 2d 52 25 3a  |=1:BX=0:BY%=-R%:|
00008d10  68 25 3d 30 0d 3d ea 25  78 31 25 3d 76 61 2a 42  |h%=0.=.%x1%=va*B|
00008d20  59 25 2b 76 62 2a 42 58  3a 79 31 25 3d 76 69 2a  |Y%+vb*BX:y1%=vi*|
00008d30  42 59 25 2b 76 61 2a 42  58 0d 3d f4 1a f2 76 74  |BY%+va*BX.=...vt|
00008d40  28 79 31 25 2c 78 31 25  2c 48 25 29 3a 79 73 25  |(y1%,x1%,H%):ys%|
00008d50  2d 3d 34 0d 3d fe 0c 2a  46 58 31 31 32 2c 32 0d  |-=4.=..*FX112,2.|
00008d60  3e 08 14 6c 69 65 25 3d  b0 78 73 25 2b 32 2c 79  |>..lie%=.xs%+2,y|
00008d70  73 25 29 0d 3e 12 0e f2  77 65 6c 6c 69 65 28 30  |s%).>...wellie(0|
00008d80  29 0d 3e 1c 0d e7 ac 67  72 65 65 6e 25 8c 0d 3e  |).>....green%..>|
00008d90  26 2c 54 25 3d b0 28 6d  78 25 28 30 2c 48 61 6e  |&,T%=.(mx%(0,Han|
00008da0  64 25 29 2b 34 2b 54 25  2b 38 30 2a 48 61 6e 64  |d%)+4+T%+80*Hand|
00008db0  25 29 2c 6d 79 25 28 30  29 29 0d 3e 30 10 e7 54  |%),my%(0)).>0..T|
00008dc0  25 3d 36 84 54 25 3d 31  31 8c 0d 3e 3a 0f f2 77  |%=6.T%=11..>:..w|
00008dd0  65 6c 6c 69 65 28 33 30  29 0d 3e 44 05 cd 0d 3e  |ellie(30).>D...>|
00008de0  4e 05 cd 0d 3e 58 0c 2a  46 58 31 31 32 2c 31 0d  |N...>X.*FX112,1.|
00008df0  3e 62 15 ec 78 73 25 2c  79 73 25 3a ec 42 59 31  |>b..xs%,ys%:.BY1|
00008e00  30 2c 31 36 0d 3e 6c 13  6f 78 25 3d 78 73 25 3a  |0,16.>l.ox%=xs%:|
00008e10  6f 79 25 3d 79 73 25 0d  3e 76 15 6f 73 78 25 3d  |oy%=ys%.>v.osx%=|
00008e20  78 73 25 3a 6f 73 79 25  3d 79 73 25 0d 3e 80 13  |xs%:osy%=ys%.>..|
00008e30  73 78 25 3d 78 73 25 3a  73 79 25 3d 79 73 25 0d  |sx%=xs%:sy%=ys%.|
00008e40  3e 8a 0c 2a 53 47 45 54  20 67 72 0d 3e 94 0c 2a  |>..*SGET gr.>..*|
00008e50  53 47 45 54 20 73 68 0d  3e 9e 05 e1 0d 3e a8 07  |SGET sh.>....>..|
00008e60  f4 20 15 0d 3e b2 10 dd  f2 77 65 6c 6c 69 65 28  |. ..>....wellie(|
00008e70  57 25 29 0d 3e bc 07 ea  54 25 0d 3e c6 1c e3 54  |W%).>...T%.>...T|
00008e80  25 3d 31 b8 38 3a 6d 25  28 54 25 2c 30 29 3d 54  |%=1.8:m%(T%,0)=T|
00008e90  25 2b 57 25 3a ed 0d 3e  d0 11 77 65 6c 6c 69 65  |%+W%:..>..wellie|
00008ea0  25 3d 57 25 3d 33 30 0d  3e da 05 e1 0d 3e e4 07  |%=W%=30.>....>..|
00008eb0  f4 20 15 0d 3e ee 0c dd  f2 73 70 6c 61 73 68 0d  |. ..>....splash.|
00008ec0  3e f8 18 2a 43 48 41 4e  4e 45 4c 56 4f 49 43 45  |>..*CHANNELVOICE|
00008ed0  20 31 20 50 4c 4f 50 0d  3f 02 16 ea 41 24 2c 72  | 1 PLOP.?...A$,r|
00008ee0  25 2c 61 25 2c 54 25 2c  78 25 2c 79 25 0d 3f 0c  |%,a%,T%,x%,y%.?.|
00008ef0  16 62 61 64 25 3d a3 3a  d4 31 2c 2d 31 35 2c 35  |.bad%=.:.1,-15,5|
00008f00  2c 32 30 0d 3f 16 0e e3  72 25 3d 35 b8 35 35 88  |,20.?...r%=5.55.|
00008f10  35 0d 3f 20 0a e7 72 25  3e 39 8c 0d 3f 2a 0c e6  |5.? ..r%>9..?*..|
00008f20  36 3a c8 96 3a c8 96 0d  3f 34 0c e3 61 25 3d 30  |6:..:...?4..a%=0|
00008f30  b8 34 35 0d 3f 3e 32 78  25 3d 78 73 25 2b 43 28  |.45.?>2x%=xs%+C(|
00008f40  61 25 29 2a 28 72 25 2d  31 30 29 3a 79 25 3d 79  |a%)*(r%-10):y%=y|
00008f50  73 25 2b 53 28 61 25 29  2a 28 28 72 25 2d 31 30  |s%+S(a%)*((r%-10|
00008f60  29 3e 3e 32 29 0d 3f 48  16 e7 b0 78 25 2c 79 25  |)>>2).?H...x%,y%|
00008f70  29 3d 31 31 c8 92 78 25  2c 79 25 0d 3f 52 05 ed  |)=11..x%,y%.?R..|
00008f80  0d 3f 5c 05 cd 0d 3f 66  0f e6 31 31 3a e7 72 25  |.?\...?f..11:.r%|
00008f90  3c 35 30 8c 0d 3f 70 09  c8 96 3a c8 96 0d 3f 7a  |<50..?p...:...?z|
00008fa0  31 e3 61 25 3d 30 b8 34  35 3a 78 25 3d 78 73 25  |1.a%=0.45:x%=xs%|
00008fb0  2b 43 28 61 25 29 2a 72  25 3a 79 25 3d 79 73 25  |+C(a%)*r%:y%=ys%|
00008fc0  2b 53 28 61 25 29 2a 28  72 25 3e 3e 32 29 0d 3f  |+S(a%)*(r%>>2).?|
00008fd0  84 15 e7 b0 78 25 2c 79  25 29 3d 36 c8 92 78 25  |....x%,y%)=6..x%|
00008fe0  2c 79 25 0d 3f 8e 05 ed  0d 3f 98 05 cd 0d 3f a2  |,y%.?....?....?.|
00008ff0  05 ed 0d 3f ac 0e 73 74  72 6f 6b 65 25 2b 3d 31  |...?..stroke%+=1|
00009000  0d 3f b6 21 e7 47 25 3d  31 31 41 24 3d 22 54 48  |.?.!.G%=11A$="TH|
00009010  45 20 53 45 41 22 8b 41  24 3d 22 57 41 54 45 52  |E SEA".A$="WATER|
00009020  22 0d 3f c0 4d f2 6d 65  73 77 69 6e 64 28 22 42  |".?.M.meswind("B|
00009030  41 4c 4c 20 4c 4f 53 54  20 49 4e 20 22 2b 41 24  |ALL LOST IN "+A$|
00009040  2c 22 46 4f 52 46 45 49  54 20 4f 4e 45 20 53 54  |,"FORFEIT ONE ST|
00009050  52 4f 4b 45 22 2c 22 50  4c 45 41 53 45 20 50 4c  |ROKE","PLEASE PL|
00009060  41 59 20 41 47 41 49 4e  22 2c 35 2c 36 29 0d 3f  |AY AGAIN",5,6).?|
00009070  ca 10 f2 67 65 74 70 6c  61 79 76 61 6c 73 0d 3f  |...getplayvals.?|
00009080  d4 09 f2 73 70 6f 74 0d  3f de 12 2a 53 43 48 4f  |...spot.?..*SCHO|
00009090  4f 53 45 20 70 6c 61 69  6e 0d 3f e8 4d c8 96 3a  |OSE plain.?.M..:|
000090a0  f0 26 45 44 2c 6d 78 25  28 67 25 2c 48 61 6e 64  |.&ED,mx%(g%,Hand|
000090b0  25 29 2c 6d 79 25 28 67  25 29 3a ef 32 33 2c 32  |%),my%(g%):.23,2|
000090c0  37 3b 6d 25 28 31 2c 67  25 29 7c 3a f0 26 45 44  |7;m%(1,g%)|:.&ED|
000090d0  2c 6d 78 25 28 67 25 2c  48 61 6e 64 25 29 2c 6d  |,mx%(g%,Hand%),m|
000090e0  79 25 28 67 25 29 0d 3f  f2 05 e1 0d 3f fc 07 f4  |y%(g%).?....?...|
000090f0  20 15 0d 40 06 0d dd f2  70 75 74 62 61 63 6b 0d  | ..@....putback.|
00009100  40 10 0d e7 ac 67 72 65  65 6e 25 8c 0d 40 1a 1f  |@....green%..@..|
00009110  e7 94 78 31 25 3c 38 30  78 31 25 3d 28 38 30 2b  |..x1%<80x1%=(80+|
00009120  b3 28 33 30 29 29 2a b4  78 31 25 0d 40 24 1f e7  |.(30))*.x1%.@$..|
00009130  94 79 31 25 3c 38 30 79  31 25 3d 28 38 30 2b b3  |.y1%<80y1%=(80+.|
00009140  28 33 30 29 29 2a b4 79  31 25 0d 40 2e 05 cd 0d  |(30))*.y1%.@....|
00009150  40 38 25 63 75 72 72 65  6e 74 52 25 28 31 29 3d  |@8%currentR%(1)=|
00009160  a4 64 69 73 74 61 6e 63  65 28 94 78 31 25 2c 94  |.distance(.x1%,.|
00009170  79 31 25 29 0d 40 42 14  63 75 72 72 65 6e 74 78  |y1%).@B.currentx|
00009180  25 28 31 29 3d 78 31 25  0d 40 4c 14 63 75 72 72  |%(1)=x1%.@L.curr|
00009190  65 6e 74 79 25 28 31 29  3d 79 31 25 0d 40 56 18  |enty%(1)=y1%.@V.|
000091a0  63 75 72 72 65 6e 74 53  25 28 31 29 3d 73 74 72  |currentS%(1)=str|
000091b0  6f 6b 65 25 0d 40 60 05  e1 0d 40 6a 07 f4 20 15  |oke%.@`...@j.. .|
000091c0  0d 40 74 0d dd f2 73 77  61 70 61 6c 6c 0d 40 7e  |.@t...swapall.@~|
000091d0  24 c8 94 20 63 75 72 72  65 6e 74 52 25 28 49 25  |$.. currentR%(I%|
000091e0  29 2c 63 75 72 72 65 6e  74 52 25 28 49 25 2d 31  |),currentR%(I%-1|
000091f0  29 0d 40 88 24 c8 94 20  63 75 72 72 65 6e 74 78  |).@.$.. currentx|
00009200  25 28 49 25 29 2c 63 75  72 72 65 6e 74 78 25 28  |%(I%),currentx%(|
00009210  49 25 2d 31 29 0d 40 92  24 c8 94 20 63 75 72 72  |I%-1).@.$.. curr|
00009220  65 6e 74 79 25 28 49 25  29 2c 63 75 72 72 65 6e  |enty%(I%),curren|
00009230  74 79 25 28 49 25 2d 31  29 0d 40 9c 24 c8 94 20  |ty%(I%-1).@.$.. |
00009240  63 75 72 72 65 6e 74 73  25 28 49 25 29 2c 63 75  |currents%(I%),cu|
00009250  72 72 65 6e 74 73 25 28  49 25 2d 31 29 0d 40 a6  |rrents%(I%-1).@.|
00009260  24 c8 94 20 63 75 72 72  65 6e 74 53 25 28 49 25  |$.. currentS%(I%|
00009270  29 2c 63 75 72 72 65 6e  74 53 25 28 49 25 2d 31  |),currentS%(I%-1|
00009280  29 0d 40 b0 24 c8 94 20  74 6f 74 73 63 6f 72 65  |).@.$.. totscore|
00009290  25 28 49 25 29 2c 74 6f  74 73 63 6f 72 65 25 28  |%(I%),totscore%(|
000092a0  49 25 2d 31 29 0d 40 ba  20 c8 94 20 6f 6c 64 70  |I%-1).@. .. oldp|
000092b0  6f 73 25 28 49 25 29 2c  6f 6c 64 70 6f 73 25 28  |os%(I%),oldpos%(|
000092c0  49 25 2d 31 29 0d 40 c4  1c c8 94 20 6e 61 6d 65  |I%-1).@.... name|
000092d0  24 28 49 25 29 2c 6e 61  6d 65 24 28 49 25 2d 31  |$(I%),name$(I%-1|
000092e0  29 0d 40 ce 1a c8 94 20  68 73 70 25 28 49 25 29  |).@.... hsp%(I%)|
000092f0  2c 68 73 70 25 28 49 25  2d 31 29 0d 40 d8 1c c8  |,hsp%(I%-1).@...|
00009300  94 20 68 61 6e 64 25 28  49 25 29 2c 68 61 6e 64  |. hand%(I%),hand|
00009310  25 28 49 25 2d 31 29 0d  40 e2 1c c8 94 20 6a 75  |%(I%-1).@.... ju|
00009320  6d 70 25 28 49 25 29 2c  6a 75 6d 70 25 28 49 25  |mp%(I%),jump%(I%|
00009330  2d 31 29 0d 40 ec 05 e1  0d 40 f6 07 f4 20 15 0d  |-1).@....@... ..|
00009340  41 00 0d dd f2 77 69 6e  73 6f 72 74 0d 41 0a 0a  |A....winsort.A..|
00009350  ea 54 25 2c 49 25 0d 41  14 14 e7 6e 6f 6f 66 70  |.T%,I%.A...noofp|
00009360  6c 61 79 65 72 73 3c 3e  31 8c 0d 41 1e 27 e3 54  |layers<>1..A.'.T|
00009370  25 3d 31 b8 6e 6f 6f 66  70 6c 61 79 65 72 73 3a  |%=1.noofplayers:|
00009380  e3 49 25 3d 32 b8 6e 6f  6f 66 70 6c 61 79 65 72  |.I%=2.noofplayer|
00009390  73 0d 41 28 1f e7 6f 6c  64 70 6f 73 25 28 49 25  |s.A(..oldpos%(I%|
000093a0  29 3c 6f 6c 64 70 6f 73  25 28 49 25 2d 31 29 8c  |)<oldpos%(I%-1).|
000093b0  0d 41 32 0c f2 73 77 61  70 61 6c 6c 0d 41 3c 05  |.A2..swapall.A<.|
000093c0  cd 0d 41 46 07 ed 3a ed  0d 41 50 27 e3 54 25 3d  |..AF..:..AP'.T%=|
000093d0  31 b8 6e 6f 6f 66 70 6c  61 79 65 72 73 3a e3 49  |1.noofplayers:.I|
000093e0  25 3d 32 b8 6e 6f 6f 66  70 6c 61 79 65 72 73 0d  |%=2.noofplayers.|
000093f0  41 5a 23 e7 63 75 72 72  65 6e 74 53 25 28 49 25  |AZ#.currentS%(I%|
00009400  29 3c 63 75 72 72 65 6e  74 53 25 28 49 25 2d 31  |)<currentS%(I%-1|
00009410  29 8c 0d 41 64 0c f2 73  77 61 70 61 6c 6c 0d 41  |)..Ad..swapall.A|
00009420  6e 05 cd 0d 41 78 07 ed  3a ed 0d 41 82 05 cd 0d  |n...Ax..:..A....|
00009430  41 8c 05 e1 0d 41 96 07  f4 20 15 0d 41 a0 0f dd  |A....A... ..A...|
00009440  f2 73 65 74 70 6c 61 79  65 72 0d 41 aa 07 ea 54  |.setplayer.A...T|
00009450  25 0d 41 b4 15 e3 54 25  3d 31 b8 6e 6f 6f 66 70  |%.A...T%=1.noofp|
00009460  6c 61 79 65 72 73 0d 41  be 12 6f 6c 64 70 6f 73  |layers.A..oldpos|
00009470  25 28 54 25 29 3d 54 25  0d 41 c8 05 ed 0d 41 d2  |%(T%)=T%.A....A.|
00009480  05 e1 0d 41 dc 07 f4 20  15 0d 41 e6 11 dd f2 77  |...A... ..A....w|
00009490  68 69 63 68 70 6c 61 79  65 72 0d 41 f0 0a ea 54  |hichplayer.A...T|
000094a0  25 2c 49 25 0d 41 fa 14  e7 6e 6f 6f 66 70 6c 61  |%,I%.A...noofpla|
000094b0  79 65 72 73 3c 3e 31 8c  0d 42 04 15 e3 54 25 3d  |yers<>1..B...T%=|
000094c0  31 b8 6e 6f 6f 66 70 6c  61 79 65 72 73 0d 42 0e  |1.noofplayers.B.|
000094d0  15 e3 49 25 3d 32 b8 6e  6f 6f 66 70 6c 61 79 65  |..I%=2.noofplaye|
000094e0  72 73 0d 42 18 23 e7 63  75 72 72 65 6e 74 52 25  |rs.B.#.currentR%|
000094f0  28 49 25 29 3e 63 75 72  72 65 6e 74 52 25 28 49  |(I%)>currentR%(I|
00009500  25 2d 31 29 8c 0d 42 22  0c f2 73 77 61 70 61 6c  |%-1)..B"..swapal|
00009510  6c 0d 42 2c 05 cd 0d 42  36 07 ed 3a ed 0d 42 40  |l.B,...B6..:..B@|
00009520  05 cd 0d 42 4a 18 73 74  72 6f 6b 65 25 3d 63 75  |...BJ.stroke%=cu|
00009530  72 72 65 6e 74 53 25 28  31 29 0d 42 54 17 73 6b  |rrentS%(1).BT.sk|
00009540  69 6c 6c 25 3d 63 75 72  72 65 6e 74 73 25 28 31  |ill%=currents%(1|
00009550  29 0d 42 5e 23 e7 63 75  72 72 65 6e 74 78 25 28  |).B^#.currentx%(|
00009560  31 29 3d 30 80 63 75 72  72 65 6e 74 79 25 28 31  |1)=0.currenty%(1|
00009570  29 3d 30 8c 0d 42 68 1c  72 6f 75 6e 64 25 3d b9  |)=0..Bh.round%=.|
00009580  3a 6d 61 70 70 6f 69 6e  74 25 2b 3d 26 33 30 30  |:mappoint%+=&300|
00009590  0d 42 72 05 cd 0d 42 7c  15 e7 68 61 6e 64 25 28  |.Br...B|..hand%(|
000095a0  31 29 3c 3e 48 61 6e 64  25 8c 0d 42 86 12 48 61  |1)<>Hand%..B..Ha|
000095b0  6e 64 25 3d 68 61 6e 64  25 28 31 29 0d 42 90 21  |nd%=hand%(1).B.!|
000095c0  e3 54 25 3d 31 b8 31 31  3a ff 28 22 53 46 6c 69  |.T%=1.11:.("SFli|
000095d0  70 59 20 22 2b c3 28 54  25 29 29 3a ed 0d 42 9a  |pY "+.(T%)):..B.|
000095e0  22 e3 54 25 3d 33 31 b8  33 38 3a ff 28 22 53 46  |".T%=31.38:.("SF|
000095f0  6c 69 70 59 20 22 2b c3  28 54 25 29 29 3a ed 0d  |lipY "+.(T%)):..|
00009600  42 a4 0e 2a 53 46 6c 69  70 59 20 32 30 0d 42 ae  |B..*SFlipY 20.B.|
00009610  05 cd 0d 42 b8 05 e1 0d  42 c2 07 f4 20 15 0d 42  |...B....B... ..B|
00009620  cc 11 dd f2 67 65 74 70  6c 61 79 76 61 6c 73 0d  |....getplayvals.|
00009630  42 d6 24 58 25 3d 63 75  72 72 65 6e 74 78 25 28  |B.$X%=currentx%(|
00009640  31 29 3a 59 59 25 3d 63  75 72 72 65 6e 74 79 25  |1):YY%=currenty%|
00009650  28 31 29 0d 42 e0 05 e1  0d 42 ea 07 f4 20 15 0d  |(1).B....B... ..|
00009660  42 f4 0b dd f2 6c 69 67  68 74 0d 42 fe 0a 59 25  |B....light.B..Y%|
00009670  3d 59 59 25 0d 43 08 16  e7 59 25 3e 30 80 58 25  |=YY%.C...Y%>0.X%|
00009680  3e 30 21 70 78 25 3d 6c  69 25 0d 43 12 1d e7 59  |>0!px%=li%.C...Y|
00009690  25 3e 30 80 58 25 3c 3d  30 21 70 78 25 3d 28 6c  |%>0.X%<=0!px%=(l|
000096a0  69 25 2b 31 29 80 33 0d  43 1c 1e e7 59 25 3c 3d  |i%+1).3.C...Y%<=|
000096b0  30 80 58 25 3c 3d 30 21  70 78 25 3d 28 6c 69 25  |0.X%<=0!px%=(li%|
000096c0  2b 32 29 80 33 0d 43 26  1d e7 59 25 3c 3d 30 80  |+2).3.C&..Y%<=0.|
000096d0  58 25 3e 30 21 70 78 25  3d 28 6c 69 25 2b 33 29  |X%>0!px%=(li%+3)|
000096e0  80 33 0d 43 30 05 e1 0d  43 3a 07 f4 20 15 0d 43  |.3.C0...C:.. ..C|
000096f0  44 10 dd f2 64 72 61 77  73 63 72 65 65 6e 0d 43  |D...drawscreen.C|
00009700  4e 1a 50 25 3d 6d 61 70  70 6f 69 6e 74 25 3a 41  |N.P%=mappoint%:A|
00009710  41 25 3d a4 6d 61 70 31  0d 43 58 1b f2 63 61 6c  |A%=.map1.CX..cal|
00009720  74 72 65 28 78 25 28 29  2c 79 25 28 29 2c 7a 25  |tre(x%(),y%(),z%|
00009730  28 29 29 0d 43 62 35 d6  73 6f 72 74 2c 62 73 25  |()).Cb5.sort,bs%|
00009740  2c 52 25 2c 42 59 25 2c  4b 25 2c 78 31 25 2c 79  |,R%,BY%,K%,x1%,y|
00009750  31 25 2c 68 25 2c 41 41  25 2c 78 25 28 29 2c 7a  |1%,h%,AA%,x%(),z|
00009760  25 28 29 2c 79 25 28 29  0d 43 6c 13 f2 77 69 6e  |%(),y%().Cl..win|
00009770  64 6f 77 73 3a f2 73 63  65 65 6e 0d 43 76 05 e1  |dows:.sceen.Cv..|
00009780  0d 43 80 07 f4 20 15 0d  43 8a 11 dd f2 73 69 6e  |.C... ..C....sin|
00009790  65 28 58 25 2c 59 25 29  0d 43 94 19 52 25 3d a4  |e(X%,Y%).C..R%=.|
000097a0  64 69 73 74 61 6e 63 65  28 94 58 25 2c 94 59 25  |distance(.X%,.Y%|
000097b0  29 0d 43 9e 25 67 72 65  65 6e 25 3d 28 52 25 3c  |).C.%green%=(R%<|
000097c0  35 32 35 29 3a 4d 61 3d  2e 37 2d 28 67 72 65 65  |525):Ma=.7-(gree|
000097d0  6e 25 2a 2e 33 29 0d 43  a8 31 4f 4c 25 3d 28 bb  |n%*.3).C.1OL%=(.|
000097e0  28 c3 7e 28 28 6d 61 70  21 28 6d 61 70 70 6f 69  |(.~((map!(mappoi|
000097f0  6e 74 25 2b 26 32 46 41  29 29 80 26 46 46 46 46  |nt%+&2FA)).&FFFF|
00009800  29 29 29 3e 34 34 30 0d  43 b2 2a 72 3d 31 32 30  |)))>440.C.*r=120|
00009810  39 36 2d 32 30 30 30 2a  67 72 65 65 6e 25 2d 31  |96-2000*green%-1|
00009820  35 30 30 2a 28 4f 4c 25  80 ac 67 72 65 65 6e 25  |500*(OL%..green%|
00009830  29 0d 43 bc 0a 64 3d 72  2d 52 25 0d 43 c6 28 67  |).C..d=r-R%.C.(g|
00009840  25 3d 2d 67 72 65 65 6e  25 3a 4f 25 3d 2d 36 32  |%=-green%:O%=-62|
00009850  39 32 2a 67 72 65 65 6e  25 3a 48 25 3d 32 35 30  |92*green%:H%=250|
00009860  2b 4f 25 0d 43 d0 1d 76  61 3d 2d 58 25 2f 52 25  |+O%.C..va=-X%/R%|
00009870  3a 76 62 3d 59 25 2f 52  25 3a 76 69 3d 2d 76 62  |:vb=Y%/R%:vi=-vb|
00009880  0d 43 da 05 e1 0d 43 e4  07 f4 20 15 0d 43 ee 15  |.C....C... ..C..|
00009890  dd a4 64 69 73 74 61 6e  63 65 28 78 25 2c 79 25  |..distance(x%,y%|
000098a0  29 0d 43 f8 11 3d b6 28  78 25 5e 32 2b 79 25 5e  |).C..=.(x%^2+y%^|
000098b0  32 29 0d 44 02 07 f4 20  15 0d 44 0c 0e dd f2 67  |2).D... ..D....g|
000098c0  65 74 73 74 61 72 74 0d  44 16 1e 50 25 3d 26 32  |etstart.D..P%=&2|
000098d0  45 38 2b 6d 61 70 70 6f  69 6e 74 25 3a 58 25 3d  |E8+mappoint%:X%=|
000098e0  a4 6d 61 70 32 0d 44 20  0d 59 59 25 3d a4 6d 61  |.map2.D .YY%=.ma|
000098f0  70 32 0d 44 2a 1e 48 6f  6c 65 25 3d 6d 61 70 3f  |p2.D*.Hole%=map?|
00009900  28 6d 61 70 70 6f 69 6e  74 25 2b 26 32 46 38 29  |(mappoint%+&2F8)|
00009910  0d 44 34 14 73 74 78 25  3d 58 25 3a 73 74 79 25  |.D4.stx%=X%:sty%|
00009920  3d 59 59 25 0d 44 3e 13  f4 59 59 25 3d 31 35 2a  |=YY%.D>..YY%=15*|
00009930  32 31 3a 58 25 3d 30 0d  44 48 15 e3 54 25 3d 31  |21:X%=0.DH..T%=1|
00009940  b8 6e 6f 6f 66 70 6c 61  79 65 72 73 0d 44 52 14  |.noofplayers.DR.|
00009950  63 75 72 72 65 6e 74 78  25 28 54 25 29 3d 58 25  |currentx%(T%)=X%|
00009960  0d 44 5c 15 63 75 72 72  65 6e 74 79 25 28 54 25  |.D\.currenty%(T%|
00009970  29 3d 59 59 25 0d 44 66  23 63 75 72 72 65 6e 74  |)=YY%.Df#current|
00009980  52 25 28 54 25 29 3d a4  64 69 73 74 61 6e 63 65  |R%(T%)=.distance|
00009990  28 58 25 2c 59 59 25 29  0d 44 70 13 63 75 72 72  |(X%,YY%).Dp.curr|
000099a0  65 6e 74 53 25 28 54 25  29 3d 30 0d 44 7a 05 ed  |entS%(T%)=0.Dz..|
000099b0  0d 44 84 05 e1 0d 44 8e  07 f4 20 15 0d 44 98 0c  |.D....D... ..D..|
000099c0  dd f2 63 68 68 6f 6c 65  0d 44 a2 09 42 25 2d 3d  |..chhole.D..B%-=|
000099d0  31 0d 44 ac 17 e7 28 42  25 3e 30 80 79 61 3e 34  |1.D...(B%>0.ya>4|
000099e0  29 84 68 25 3e 33 30 e1  0d 44 b6 22 e7 68 25 3e  |).h%>30..D.".h%>|
000099f0  31 84 94 28 4f 42 59 25  2d 42 59 25 29 3e 35 f2  |1..(OBY%-BY%)>5.|
00009a00  72 69 63 3a 42 25 3d 34  3a e1 0d 44 c0 0d dd f2  |ric:B%=4:..D....|
00009a10  63 68 68 6f 6c 65 32 0d  44 ca 14 44 25 3d b9 3a  |chhole2.D..D%=.:|
00009a20  2a 53 43 48 4f 4f 53 45  20 73 68 0d 44 d4 12 f0  |*SCHOOSE sh.D...|
00009a30  26 45 44 2c 6f 73 78 25  2c 6f 73 79 25 0d 44 de  |&ED,osx%,osy%.D.|
00009a40  0f 2a 53 43 48 4f 4f 53  45 20 67 72 0d 44 e8 10  |.*SCHOOSE gr.D..|
00009a50  f0 26 45 44 2c 6f 78 25  2c 6f 79 25 0d 44 f2 19  |.&ED,ox%,oy%.D..|
00009a60  2a 43 48 41 4e 4e 45 4c  56 4f 49 43 45 20 31 20  |*CHANNELVOICE 1 |
00009a70  48 4f 4c 45 44 0d 44 fc  10 d4 31 2c 2d 31 35 2c  |HOLED.D...1,-15,|
00009a80  32 30 2c 32 30 0d 45 06  0d f2 64 65 6c 28 31 35  |20,20.E...del(15|
00009a90  30 29 0d 45 10 0d f2 68  6f 6c 65 64 6f 75 74 0d  |0).E...holedout.|
00009aa0  45 1a 27 79 61 3d 30 3a  75 3d 30 3a 75 64 3d 30  |E.'ya=0:u=0:ud=0|
00009ab0  3a 70 25 3d 30 3a 68 25  3d 30 3a 78 31 25 3d 30  |:p%=0:h%=0:x1%=0|
00009ac0  3a 79 31 25 3d 30 0d 45  24 05 e1 0d 45 2e 07 f4  |:y1%=0.E$...E...|
00009ad0  20 15 0d 45 38 0e dd f2  68 6f 6c 65 64 6f 75 74  | ..E8...holedout|
00009ae0  0d 45 42 13 ea 41 24 2c  42 24 2c 43 24 2c 46 25  |.EB..A$,B$,C$,F%|
00009af0  2c 53 25 0d 45 4c 23 53  25 3d 73 74 72 6f 6b 65  |,S%.EL#S%=stroke|
00009b00  25 2d 6d 61 70 3f 28 6d  61 70 70 6f 69 6e 74 25  |%-map?(mappoint%|
00009b10  2b 26 32 46 39 29 0d 45  56 09 c8 8e 53 25 ca 0d  |+&2F9).EV...S%..|
00009b20  45 60 1e c9 31 3a 41 24  3d 22 49 54 27 53 20 41  |E`..1:A$="IT'S A|
00009b30  20 42 4f 47 49 45 22 3a  42 24 3d 22 22 0d 45 6a  | BOGIE":B$="".Ej|
00009b40  2c c9 30 3a 41 24 3d 22  48 4f 4c 45 44 20 4f 55  |,.0:A$="HOLED OU|
00009b50  54 20 54 4f 20 50 41 52  22 3a 42 24 3d 22 57 45  |T TO PAR":B$="WE|
00009b60  4c 4c 20 44 4f 4e 45 21  22 0d 45 74 32 c9 2d 31  |LL DONE!".Et2.-1|
00009b70  3a 41 24 3d 22 4e 49 43  45 20 4f 4e 45 20 22 2b  |:A$="NICE ONE "+|
00009b80  6e 61 6d 65 24 28 31 29  3a 42 24 3d 22 49 54 27  |name$(1):B$="IT'|
00009b90  53 20 41 20 42 49 52 44  49 45 22 0d 45 7e 35 c9  |S A BIRDIE".E~5.|
00009ba0  2d 32 3a 41 24 3d 22 53  55 50 45 52 42 20 50 4c  |-2:A$="SUPERB PL|
00009bb0  41 59 20 22 2b 6e 61 6d  65 24 28 31 29 3a 42 24  |AY "+name$(1):B$|
00009bc0  3d 22 49 54 27 53 20 41  4e 20 45 41 47 4c 45 22  |="IT'S AN EAGLE"|
00009bd0  0d 45 88 45 c9 2d 33 3a  41 24 3d 22 43 4f 4e 47  |.E.E.-3:A$="CONG|
00009be0  52 41 54 55 4c 41 54 49  4f 4e 53 20 22 2b 6e 61  |RATULATIONS "+na|
00009bf0  6d 65 24 28 31 29 3a 42  24 3d 22 59 4f 55 27 56  |me$(1):B$="YOU'V|
00009c00  45 20 46 4c 4f 57 4e 20  41 4e 20 41 4c 42 41 54  |E FLOWN AN ALBAT|
00009c10  52 4f 53 53 22 0d 45 92  2b 7f 20 41 24 3d 22 48  |ROSS".E.+. A$="H|
00009c20  4f 4c 45 44 20 4f 55 54  20 22 2b c3 53 25 2b 22  |OLED OUT "+.S%+"|
00009c30  20 4f 56 45 52 20 50 41  52 22 3a 42 24 3d 22 22  | OVER PAR":B$=""|
00009c40  0d 45 9c 05 cb 0d 45 a6  63 43 24 3d 22 22 3a 46  |.E....E.cC$="":F|
00009c50  25 3d 33 3a 53 25 3d 35  3a e7 73 74 72 6f 6b 65  |%=3:S%=5:.stroke|
00009c60  25 3d 31 41 24 3d 22 57  4f 57 21 20 49 54 27 53  |%=1A$="WOW! IT'S|
00009c70  20 41 20 48 4f 4c 45 20  49 4e 20 4f 4e 45 22 3a  | A HOLE IN ONE":|
00009c80  42 24 3d 22 4b 4e 4f 43  4b 45 44 20 49 4e 20 42  |B$="KNOCKED IN B|
00009c90  59 22 3a 43 24 3d 6e 61  6d 65 24 28 31 29 3a 46  |Y":C$=name$(1):F|
00009ca0  25 3d 36 3a 53 25 3d 33  0d 45 b0 26 e7 20 a9 41  |%=6:S%=3.E.&. .A|
00009cb0  24 3c a9 42 24 f5 3a 41  24 3d 22 20 22 2b 41 24  |$<.B$.:A$=" "+A$|
00009cc0  2b 22 20 22 3a fd a9 41  24 3e 3d a9 42 24 0d 45  |+" ":..A$>=.B$.E|
00009cd0  ba 1c f2 6d 65 73 77 69  6e 64 28 41 24 2c 42 24  |...meswind(A$,B$|
00009ce0  2c 43 24 2c 46 25 2c 53  25 29 0d 45 c4 0c f2 64  |,C$,F%,S%).E...d|
00009cf0  65 6c 28 35 30 29 0d 45  ce 05 e1 0d 45 d8 07 f4  |el(50).E....E...|
00009d00  20 15 0d 45 e2 09 dd f2  72 69 63 0d 45 ec 0f d4  | ..E....ric.E...|
00009d10  34 2c 2d 31 35 2c 32 30  2c 31 0d 45 f6 0a dd f2  |4,-15,20,1.E....|
00009d20  32 72 69 63 0d 46 00 1d  75 3d 75 2a 34 3a e7 75  |2ric.F..u=u*4:.u|
00009d30  3d 30 75 3d 28 33 2b b3  28 35 29 29 2a b4 78 31  |=0u=(3+.(5))*.x1|
00009d40  25 0d 46 0a 15 79 61 3d  79 61 20 81 32 3a 70 25  |%.F..ya=ya .2:p%|
00009d50  3d 79 61 20 81 33 0d 46  14 1b e7 ac 67 72 65 65  |=ya .3.F....gree|
00009d60  6e 25 80 79 61 3d 30 20  68 25 3d 30 3a 70 25 3d  |n%.ya=0 h%=0:p%=|
00009d70  30 0d 46 1e 05 e1 0d 46  28 07 f4 20 15 0d 46 32  |0.F....F(.. ..F2|
00009d80  0c dd f2 66 6c 69 67 68  74 0d 46 3c 0c 4f 42 59  |...flight.F<.OBY|
00009d90  25 3d 42 59 25 0d 46 46  5b f5 f2 66 6c 79 3a ef  |%=BY%.FF[..fly:.|
00009da0  32 33 2c 32 37 3b 6d 25  28 38 2c 67 25 29 7c 3a  |23,27;m%(8,g%)|:|
00009db0  f0 26 45 44 2c 6d 78 25  28 67 25 2c 48 61 6e 64  |.&ED,mx%(g%,Hand|
00009dc0  25 29 2c 6d 79 25 28 67  25 29 3a e7 62 61 25 3a  |%),my%(g%):.ba%:|
00009dd0  ef 32 33 2c 32 37 3b 32  30 7c 3a f0 26 45 44 2c  |.23,27;20|:.&ED,|
00009de0  62 61 67 25 28 48 61 6e  64 25 29 2c 2d 37 35 34  |bag%(Hand%),-754|
00009df0  0d 46 50 41 e7 67 72 65  65 6e 25 80 68 25 3d 30  |.FPA.green%.h%=0|
00009e00  c8 99 36 2c 31 31 32 2c  32 3a 47 25 3d b0 73 78  |..6,112,2:G%=.sx|
00009e10  25 2b 34 2c 73 79 25 2b  34 29 3a c8 99 36 2c 31  |%+4,sy%+4):..6,1|
00009e20  31 32 2c 31 3a e7 47 25  3d 30 f2 63 68 68 6f 6c  |12,1:.G%=0.chhol|
00009e30  65 0d 46 5a 30 4f 42 59  25 3d 42 59 25 3a e7 ac  |e.FZ0OBY%=BY%:..|
00009e40  67 72 65 65 6e 25 80 94  28 78 31 25 2b 34 29 3c  |green%..(x1%+4)<|
00009e50  35 80 94 28 79 31 25 29  3c 35 f2 63 68 68 6f 6c  |5..(y1%)<5.chhol|
00009e60  65 0d 46 64 17 e7 94 73  6c 3e 79 61 20 73 6c 3d  |e.Fd...sl>ya sl=|
00009e70  79 61 2f 32 2a b4 73 6c  0d 46 6e 10 77 63 2d 3d  |ya/2*.sl.Fn.wc-=|
00009e80  31 3a e7 77 63 3d 30 8c  0d 46 78 17 77 63 3d 77  |1:.wc=0..Fx.wc=w|
00009e90  63 32 3a e7 77 63 32 3e  31 77 63 32 2d 3d 31 0d  |c2:.wc2>1wc2-=1.|
00009ea0  46 82 11 57 58 2b 3d 77  78 3a 57 59 2b 3d 77 79  |F..WX+=wx:WY+=wy|
00009eb0  0d 46 8c 05 cd 0d 46 96  15 fd 79 61 3c 3d 30 80  |.F....F...ya<=0.|
00009ec0  68 25 3d 30 80 94 70 25  3c 32 0d 46 a0 12 59 59  |h%=0..p%<2.F..YY|
00009ed0  25 3d 79 31 25 3a 58 25  3d 78 31 25 0d 46 aa 10  |%=y1%:X%=x1%.F..|
00009ee0  e7 44 25 84 ac 67 72 65  65 6e 25 e1 0d 46 b4 0c  |.D%..green%..F..|
00009ef0  2a 46 58 31 31 32 2c 32  0d 46 be 10 47 25 3d b0  |*FX112,2.F..G%=.|
00009f00  73 78 25 2c 73 79 25 29  0d 46 c8 13 47 31 25 3d  |sx%,sy%).F..G1%=|
00009f10  b0 73 78 25 2c 73 79 25  2b 38 29 0d 46 d2 0c 2a  |.sx%,sy%+8).F..*|
00009f20  46 58 31 31 32 2c 31 0d  46 dc 17 e7 28 47 25 80  |FX112,1.F...(G%.|
00009f30  47 31 25 29 3d 30 f2 63  68 68 6f 6c 65 32 0d 46  |G1%)=0.chhole2.F|
00009f40  e6 05 e1 0d 46 f0 07 f4  20 15 0d 46 fa 09 dd f2  |....F... ..F....|
00009f50  66 6c 79 0d 47 04 11 e7  68 25 3c 34 80 79 61 3c  |fly.G...h%<4.ya<|
00009f60  31 36 c8 96 0d 47 0e 2d  c8 96 3a 42 58 2b 3d 75  |16...G.-..:BX+=u|
00009f70  2a 79 64 2b 53 6c 3a 53  6c 2b 3d 73 6c 3a 75 2d  |*yd+Sl:Sl+=sl:u-|
00009f80  3d 75 64 3a e7 94 75 3e  79 61 20 75 3d 75 3e 3e  |=ud:..u>ya u=u>>|
00009f90  31 0d 47 18 21 42 59 25  2b 3d 79 61 2a 79 64 3a  |1.G.!BY%+=ya*yd:|
00009fa0  e7 79 61 3e 30 20 79 61  2d 3d 2e 35 3a 8b 79 61  |.ya>0 ya-=.5:.ya|
00009fb0  3d 30 0d 47 22 46 78 31  25 3d 76 61 2a 42 59 25  |=0.G"Fx1%=va*BY%|
00009fc0  2b 76 62 2a 42 58 2b 57  58 3a 79 31 25 3d 76 69  |+vb*BX+WX:y1%=vi|
00009fd0  2a 42 59 25 2b 76 61 2a  42 58 2b 57 59 3a 68 25  |*BY%+va*BX+WY:h%|
00009fe0  2b 3d 70 25 2a 4d 61 3a  70 25 2d 3d 31 3a e7 70  |+=p%*Ma:p%-=1:.p|
00009ff0  25 3c 31 30 46 25 3d b9  0d 47 2c 12 e7 68 25 3c  |%<10F%=..G,..h%<|
0000a000  3d 30 20 f2 62 6f 75 6e  63 65 0d 47 36 36 f2 76  |=0 .bounce.G66.v|
0000a010  74 28 79 31 25 2c 78 31  25 2c 48 25 29 3a 73 78  |t(y1%,x1%,H%):sx|
0000a020  25 3d 78 73 25 3a 73 79  25 3d 79 73 25 3a f2 76  |%=xs%:sy%=ys%:.v|
0000a030  74 28 79 31 25 2c 78 31  25 2c 48 25 2d 68 25 29  |t(y1%,x1%,H%-h%)|
0000a040  0d 47 40 2e e7 4b 25 3d  b9 20 75 64 3d 30 3a 79  |.G@..K%=. ud=0:y|
0000a050  61 3d 30 3a 70 25 3d 30  3a 75 3d 30 3a 4b 25 3d  |a=0:p%=0:u=0:K%=|
0000a060  31 3a d4 33 2c 2d 31 30  2c 32 30 2c 34 30 0d 47  |1:.3,-10,20,40.G|
0000a070  4a 37 e7 57 25 d6 20 70  6c 6f 74 62 61 6c 6c 2c  |J7.W%. plotball,|
0000a080  62 73 25 2c 6f 79 25 2c  6f 78 25 2c 6f 73 79 25  |bs%,oy%,ox%,osy%|
0000a090  2c 6f 73 78 25 2c 79 73  25 2c 78 73 25 2c 73 79  |,osx%,ys%,xs%,sy|
0000a0a0  25 2c 73 78 25 0d 47 54  05 e1 0d 47 5e 07 f4 20  |%,sx%.GT...G^.. |
0000a0b0  15 0d 47 68 0c dd f2 77  61 6c 74 65 72 0d 47 72  |..Gh...walter.Gr|
0000a0c0  1a 2a 43 48 41 4e 4e 45  4c 56 4f 49 43 45 20 31  |.*CHANNELVOICE 1|
0000a0d0  20 53 48 4f 4f 53 48 0d  47 7c 0a ea 54 25 2c 49  | SHOOSH.G|..T%,I|
0000a0e0  25 0d 47 86 2c 79 64 3d  31 2b 28 2e 37 35 2a 67  |%.G.,yd=1+(.75*g|
0000a0f0  72 65 65 6e 25 29 3a e3  54 25 3d 31 b8 35 3a 2a  |reen%):.T%=1.5:*|
0000a100  53 43 48 4f 4f 53 45 20  42 4c 41 43 4b 0d 47 90  |SCHOOSE BLACK.G.|
0000a110  5e c8 96 3a f0 26 45 44  2c 6d 78 25 28 67 25 2c  |^..:.&ED,mx%(g%,|
0000a120  48 61 6e 64 25 29 2c 6d  79 25 28 67 25 29 3a ef  |Hand%),my%(g%):.|
0000a130  32 33 2c 32 37 3b 6d 25  28 54 25 2c 67 25 29 7c  |23,27;m%(T%,g%)||
0000a140  3a f0 26 45 44 2c 6d 78  25 28 67 25 2c 48 61 6e  |:.&ED,mx%(g%,Han|
0000a150  64 25 29 2c 6d 79 25 28  67 25 29 3a e3 49 25 3d  |d%),my%(g%):.I%=|
0000a160  30 b8 54 25 3a c8 96 3a  ed 3a ed 0d 47 9a 1c e3  |0.T%:..:.:..G...|
0000a170  54 25 3d 35 b8 31 88 b9  3a 2a 53 43 48 4f 4f 53  |T%=5.1..:*SCHOOS|
0000a180  45 20 42 4c 41 43 4b 0d  47 a4 1d e7 54 25 3d 33  |E BLACK.G...T%=3|
0000a190  80 ac 67 72 65 65 6e 25  d4 31 2c 53 4f 25 2c 34  |..green%.1,SO%,4|
0000a1a0  30 2c 34 30 0d 47 ae 5b  e3 49 25 3d 31 b8 54 25  |0,40.G.[.I%=1.T%|
0000a1b0  3a c8 96 3a ed 3a f0 26  45 44 2c 6d 78 25 28 67  |:..:.:.&ED,mx%(g|
0000a1c0  25 2c 48 61 6e 64 25 29  2c 6d 79 25 28 67 25 29  |%,Hand%),my%(g%)|
0000a1d0  3a ef 32 33 2c 32 37 3b  6d 25 28 54 25 2c 67 25  |:.23,27;m%(T%,g%|
0000a1e0  29 7c 3a f0 26 45 44 2c  6d 78 25 28 67 25 2c 48  |)|:.&ED,mx%(g%,H|
0000a1f0  61 6e 64 25 29 2c 6d 79  25 28 67 25 29 3a ed 0d  |and%),my%(g%):..|
0000a200  47 b8 0f d4 32 2c 53 4f  25 2c 31 2c 31 30 0d 47  |G...2,SO%,1,10.G|
0000a210  c2 19 e3 54 25 3d 36 b8  38 3a e7 54 25 3e 36 f2  |...T%=6.8:.T%>6.|
0000a220  66 6c 79 3a 8b c8 96 0d  47 cc 12 2a 53 43 48 4f  |fly:....G..*SCHO|
0000a230  4f 53 45 20 70 6c 61 69  6e 0d 47 d6 2d e7 ac 67  |OSE plain.G.-..g|
0000a240  72 65 65 6e 25 3a c8 96  3a f0 26 45 44 2c 6d 78  |reen%:..:.&ED,mx|
0000a250  25 28 67 25 2c 48 61 6e  64 25 29 2c 6d 79 25 28  |%(g%,Hand%),my%(|
0000a260  67 25 29 8b c8 96 0d 47  e0 30 ef 32 33 2c 32 37  |g%)....G.0.23,27|
0000a270  3b 6d 25 28 54 25 2c 67  25 29 7c 3a f0 26 45 44  |;m%(T%,g%)|:.&ED|
0000a280  2c 6d 78 25 28 67 25 2c  48 61 6e 64 25 29 2c 6d  |,mx%(g%,Hand%),m|
0000a290  79 25 28 67 25 29 0d 47  ea 54 e7 6c 69 65 25 3d  |y%(g%).G.T.lie%=|
0000a2a0  31 3a e6 31 3a e3 49 25  3d 30 b8 32 30 3a c8 92  |1:.1:.I%=0.20:..|
0000a2b0  73 61 25 28 30 2c 54 25  2d 36 2c 49 25 29 2b 28  |sa%(0,T%-6,I%)+(|
0000a2c0  54 25 2b 31 30 29 2a 48  61 6e 64 25 2c 73 61 25  |T%+10)*Hand%,sa%|
0000a2d0  28 31 2c 54 25 2d 36 2c  49 25 29 2b 6d 79 25 28  |(1,T%-6,I%)+my%(|
0000a2e0  67 25 29 3a ed 3a e6 38  2c 30 0d 47 f4 05 ed 0d  |g%):.:.8,0.G....|
0000a2f0  47 fe 0d f2 66 6c 79 3a  f2 66 6c 79 0d 48 08 12  |G...fly:.fly.H..|
0000a300  2a 53 43 48 4f 4f 53 45  20 70 6c 61 69 6e 0d 48  |*SCHOOSE plain.H|
0000a310  12 4d c8 96 3a f0 26 45  44 2c 6d 78 25 28 67 25  |.M..:.&ED,mx%(g%|
0000a320  2c 48 61 6e 64 25 29 2c  6d 79 25 28 67 25 29 3a  |,Hand%),my%(g%):|
0000a330  ef 32 33 2c 32 37 3b 6d  25 28 38 2c 67 25 29 7c  |.23,27;m%(8,g%)||
0000a340  3a f0 26 45 44 2c 6d 78  25 28 67 25 2c 48 61 6e  |:.&ED,mx%(g%,Han|
0000a350  64 25 29 2c 6d 79 25 28  67 25 29 0d 48 1c 05 e1  |d%),my%(g%).H...|
0000a360  0d 48 26 07 f4 20 15 0d  48 30 0d dd f2 64 65 6c  |.H&.. ..H0...del|
0000a370  28 54 25 29 0d 48 3a 0e  d1 3d 30 3a f5 fd 91 3e  |(T%).H:..=0:...>|
0000a380  54 25 0d 48 44 05 e1 0d  48 4e 07 f4 20 15 0d 48  |T%.HD...HN.. ..H|
0000a390  58 0c dd f2 62 75 6e 6b  65 72 0d 48 62 16 e6 33  |X...bunker.Hb..3|
0000a3a0  32 2c 30 3a 48 25 2b 3d  32 3a 50 25 3d 6f 50 25  |2,0:H%+=2:P%=oP%|
0000a3b0  0d 48 6c 0d f2 64 72 61  77 62 75 6e 6b 0d 48 76  |.Hl..drawbunk.Hv|
0000a3c0  13 e6 32 3a 48 25 2b 3d  32 3a 50 25 3d 6f 50 25  |..2:H%+=2:P%=oP%|
0000a3d0  0d 48 80 0d f2 64 72 61  77 62 75 6e 6b 0d 48 8a  |.H...drawbunk.H.|
0000a3e0  09 48 25 2d 3d 34 0d 48  94 05 e1 0d 48 9e 07 f4  |.H%-=4.H....H...|
0000a3f0  20 15 0d 48 a8 0e dd f2  64 72 61 77 62 75 6e 6b  | ..H....drawbunk|
0000a400  0d 48 b2 3c 6e 70 25 3d  a4 6d 61 70 31 3a f2 6d  |.H.<np%=.map1:.m|
0000a410  61 70 28 43 58 25 2c 43  59 25 2c 48 25 2c 34 2c  |ap(CX%,CY%,H%,4,|
0000a420  72 29 3a f2 6d 61 70 33  28 53 58 25 2c 53 59 25  |r):.map3(SX%,SY%|
0000a430  2c 48 25 2c 34 2c 72 2c  43 58 25 29 0d 48 bc 35  |,H%,4,r,CX%).H.5|
0000a440  e3 49 25 3d 31 b8 6e 70  25 2d 31 3a f2 6d 61 70  |.I%=1.np%-1:.map|
0000a450  33 28 58 49 25 2c 59 49  25 2c 48 25 2c 38 35 2c  |3(XI%,YI%,H%,85,|
0000a460  72 2c 43 58 25 29 3a ec  43 58 25 2c 43 59 25 3a  |r,CX%):.CX%,CY%:|
0000a470  ed 0d 48 c6 0f f0 38 35  2c 53 58 25 2c 53 59 25  |..H...85,SX%,SY%|
0000a480  0d 48 d0 05 e1 0d 48 da  07 f4 20 15 0d 48 e4 21  |.H....H... ..H.!|
0000a490  dd f2 6d 61 70 33 28 f8  20 78 25 2c f8 20 79 25  |..map3(. x%,. y%|
0000a4a0  2c 7a 25 2c 70 25 2c 72  2c 43 58 25 29 0d 48 ee  |,z%,p%,r,CX%).H.|
0000a4b0  08 ea 70 4f 25 0d 48 f8  56 79 25 3d a4 6d 61 70  |..pO%.H.Vy%=.map|
0000a4c0  32 3a 78 25 3d a4 6d 61  70 32 3a 78 65 3d 76 61  |2:x%=.map2:xe=va|
0000a4d0  2a 78 25 2b 76 62 2a 79  25 3a 7a 65 3d 28 76 69  |*x%+vb*y%:ze=(vi|
0000a4e0  2a 78 25 2b 76 61 2a 79  25 2b 72 29 2a 4d 61 3a  |*x%+va*y%+r)*Ma:|
0000a4f0  78 25 3d 64 2a 78 65 20  81 7a 65 3a 79 25 3d 2d  |x%=d*xe .ze:y%=-|
0000a500  28 64 2a 7a 25 81 7a 65  29 2a 32 0d 49 02 29 e7  |(d*z%.ze)*2.I.).|
0000a510  ac 67 72 65 65 6e 25 e7  79 25 3e 2d 33 32 84 79  |.green%.y%>-32.y|
0000a520  25 3c 26 46 46 46 46 38  30 30 30 20 79 25 3d 2d  |%<&FFFF8000 y%=-|
0000a530  36 30 30 30 0d 49 0c 15  78 25 3d 78 25 2d b4 28  |6000.I..x%=x%-.(|
0000a540  78 25 2d 43 58 25 29 2a  34 0d 49 16 0f 70 4f 25  |x%-CX%)*4.I..pO%|
0000a550  3d b0 78 25 2c 79 25 29  0d 49 20 0b c8 95 70 4f  |=.x%,y%).I ...pO|
0000a560  25 3e 33 0d 49 2a 15 79  25 2b 3d 34 3a 70 4f 25  |%>3.I*.y%+=4:pO%|
0000a570  3d b0 78 25 2c 79 25 29  0d 49 34 05 ce 0d 49 3e  |=.x%,y%).I4...I>|
0000a580  0d f0 70 25 2c 78 25 2c  79 25 0d 49 48 05 e1 0d  |..p%,x%,y%.IH...|
0000a590  49 52 07 f4 20 15 0d 49  5c 0b dd f2 73 63 65 65  |IR.. ..I\...scee|
0000a5a0  6e 0d 49 66 0d 4e 6f 25  3d a4 6d 61 70 31 0d 49  |n.If.No%=.map1.I|
0000a5b0  70 0c 72 6f 75 67 68 3d  50 25 0d 49 7a 0c e7 67  |p.rough=P%.Iz..g|
0000a5c0  72 65 65 6e 25 8c 0d 49  84 0d 43 6f 25 3d a4 6d  |reen%..I..Co%=.m|
0000a5d0  61 70 31 0d 49 8e 0f f5  3a 6e 70 25 3d a4 6d 61  |ap1.I...:np%=.ma|
0000a5e0  70 31 0d 49 98 22 50 25  3d 50 25 2b 6e 70 25 2a  |p1.I."P%=P%+np%*|
0000a5f0  34 2b 34 3a 43 6f 25 3d  a4 6d 61 70 31 3a 4e 6f  |4+4:Co%=.map1:No|
0000a600  25 2d 3d 31 0d 49 a2 16  fd 43 6f 25 3d 35 84 43  |%-=1.I...Co%=5.C|
0000a610  6f 25 3d 31 3a 50 25 2d  3d 31 0d 49 ac 05 cd 0d  |o%=1:P%-=1.I....|
0000a620  49 b6 2d 73 50 25 3d 50  25 3a e3 54 25 3d 31 b8  |I.-sP%=P%:.T%=1.|
0000a630  4e 6f 25 3a 43 6f 25 3d  a4 6d 61 70 31 3a e7 43  |No%:Co%=.map1:.C|
0000a640  6f 25 3d 36 77 61 74 65  72 3d 50 25 0d 49 c0 12  |o%=6water=P%.I..|
0000a650  e7 67 72 65 65 6e 25 80  43 6f 25 3d 34 8c 0d 49  |.green%.Co%=4..I|
0000a660  ca 1b 6e 70 25 3d a4 6d  61 70 31 3a 50 25 3d 50  |..np%=.map1:P%=P|
0000a670  25 2b 6e 70 25 2a 34 2b  34 0d 49 d4 2a cc 3a 6f  |%+np%*4+4.I.*.:o|
0000a680  50 25 3d 50 25 3a 43 6f  25 3d 43 6f 25 2d 28 28  |P%=P%:Co%=Co%-((|
0000a690  43 6f 25 3d 31 29 80 67  72 65 65 6e 25 29 3a e6  |Co%=1).green%):.|
0000a6a0  43 6f 25 0d 49 de 19 f2  64 72 61 77 69 74 3a e7  |Co%.I...drawit:.|
0000a6b0  43 6f 25 3d 31 f2 62 75  6e 6b 65 72 0d 49 e8 10  |Co%=1.bunker.I..|
0000a6c0  cd 3a ed 3a e7 67 72 65  65 6e 25 8c 0d 49 f2 08  |.:.:.green%..I..|
0000a6d0  e6 38 2c 30 0d 49 fc 11  2a 53 43 48 4f 4f 53 45  |.8,0.I..*SCHOOSE|
0000a6e0  20 48 4f 4c 45 0d 4a 06  1a f0 26 45 44 2c 2d 36  | HOLE.J...&ED,-6|
0000a6f0  2c 2d 28 64 2a 48 25 81  72 29 2a 32 2d 31 32 0d  |,-(d*H%.r)*2-12.|
0000a700  4a 10 05 cd 0d 4a 1a 13  f2 74 72 65 65 73 3a 2a  |J....J...trees:*|
0000a710  46 58 31 31 32 2c 32 0d  4a 24 15 e7 67 72 65 65  |FX112,2.J$..gree|
0000a720  6e 25 fb 31 33 35 3a 8b  fb 31 33 39 0d 4a 2e 25  |n%.135:..139.J.%|
0000a730  db 3a 50 25 3d 73 50 25  3a e3 54 25 3d 31 b8 4e  |.:P%=sP%:.T%=1.N|
0000a740  6f 25 3a 43 6f 25 3d a4  6d 61 70 31 3a e6 43 6f  |o%:Co%=.map1:.Co|
0000a750  25 0d 4a 38 12 e7 67 72  65 65 6e 25 80 43 6f 25  |%.J8..green%.Co%|
0000a760  3d 34 8c 0d 4a 42 1b 6e  70 25 3d a4 6d 61 70 31  |=4..JB.np%=.map1|
0000a770  3a 50 25 3d 50 25 2b 6e  70 25 2a 34 2b 34 0d 4a  |:P%=P%+np%*4+4.J|
0000a780  4c 13 cc 6f 50 25 3d 50  25 3a f2 64 72 61 77 69  |L..oP%=P%:.drawi|
0000a790  74 0d 4a 56 05 cd 0d 4a  60 05 ed 0d 4a 6a 0c e7  |t.JV...J`...Jj..|
0000a7a0  67 72 65 65 6e 25 8c 0d  4a 74 08 e6 38 2c 30 0d  |green%..Jt..8,0.|
0000a7b0  4a 7e 16 2a 53 43 48 4f  4f 53 45 20 42 4c 41 43  |J~.*SCHOOSE BLAC|
0000a7c0  4b 48 4f 4c 45 0d 4a 88  1a f0 26 45 44 2c 2d 36  |KHOLE.J...&ED,-6|
0000a7d0  2c 2d 28 64 2a 48 25 81  72 29 2a 32 2d 31 32 0d  |,-(d*H%.r)*2-12.|
0000a7e0  4a 92 05 cd 0d 4a 9c 0c  2a 46 58 31 31 32 2c 31  |J....J..*FX112,1|
0000a7f0  0d 4a a6 0f c8 8e 6a 75  6d 70 25 28 31 29 ca 0d  |.J....jump%(1)..|
0000a800  4a b0 11 c9 31 3a fb 38  2c 32 30 38 2c 30 2c 30  |J...1:.8,208,0,0|
0000a810  0d 4a ba 14 c9 32 3a fb  38 2c 31 34 34 2c 31 32  |.J...2:.8,144,12|
0000a820  38 2c 38 30 0d 4a c4 15  c9 33 3a fb 38 2c 31 31  |8,80.J...3:.8,11|
0000a830  32 2c 31 31 32 2c 31 31  32 0d 4a ce 13 c9 34 3a  |2,112,112.J...4:|
0000a840  fb 38 2c 32 34 30 2c 31  31 32 2c 30 0d 4a d8 12  |.8,240,112,0.J..|
0000a850  c9 35 3a fb 38 2c 39 36  2c 39 36 2c 34 38 0d 4a  |.5:.8,96,96,48.J|
0000a860  e2 14 c9 36 3a fb 38 2c  32 30 38 2c 38 30 2c 31  |...6:.8,208,80,1|
0000a870  34 34 0d 4a ec 05 cb 0d  4a f6 05 e1 0d 4b 00 07  |44.J....J....K..|
0000a880  f4 20 15 0d 4b 0a 0e dd  f2 67 74 6f 73 28 59 25  |. ..K....gtos(Y%|
0000a890  29 0d 4b 14 2c ef 32 36  3a ec 30 2c 59 25 3a ec  |).K.,.26:.0,Y%:.|
0000a8a0  31 32 37 39 2c 59 25 2b  33 31 39 3a 2a 53 47 45  |1279,Y%+319:*SGE|
0000a8b0  54 20 74 6f 70 6f 66 73  63 72 65 65 6e 0d 4b 1e  |T topofscreen.K.|
0000a8c0  05 e1 0d 4b 28 07 f4 20  15 0d 4b 32 0d dd f2 67  |...K(.. ..K2...g|
0000a8d0  65 74 69 6e 66 6f 0d 4b  3c 15 2a 43 48 41 4e 4e  |etinfo.K<.*CHANN|
0000a8e0  45 4c 56 4f 49 43 45 20  31 20 31 0d 4b 46 15 ea  |ELVOICE 1 1.KF..|
0000a8f0  79 61 32 2c 42 58 25 2c  42 59 25 2c 79 73 74 25  |ya2,BX%,BY%,yst%|
0000a900  0d 4b 50 0e f2 67 74 6f  73 28 37 30 34 29 0d 4b  |.KP..gtos(704).K|
0000a910  5a 0a c8 91 38 30 2c 30  0d 4b 64 18 ef 32 34 2c  |Z...80,0.Kd..24,|
0000a920  30 3b 37 30 34 3b 31 31  33 31 3b 31 30 32 33 3b  |0;704;1131;1023;|
0000a930  0d 4b 6e 0f e6 31 33 39  3a fb 31 33 39 3a da 0d  |.Kn..139:.139:..|
0000a940  4b 78 16 e6 38 3a c8 93  30 2c 37 30 34 2c 34 31  |Kx..8:..0,704,41|
0000a950  32 2c 33 31 39 0d 4b 82  15 c8 93 34 31 32 2c 37  |2,319.K....412,7|
0000a960  30 34 2c 32 32 38 2c 33  31 39 0d 4b 8c 15 c8 93  |04,228,319.K....|
0000a970  36 34 30 2c 37 30 34 2c  34 39 31 2c 33 31 39 0d  |640,704,491,319.|
0000a980  4b 96 16 e6 33 3a c8 93  34 2c 37 30 38 2c 34 30  |K...3:..4,708,40|
0000a990  34 2c 33 31 31 0d 4b a0  15 c8 93 34 31 36 2c 37  |4,311.K....416,7|
0000a9a0  30 38 2c 32 32 30 2c 33  31 31 0d 4b aa 15 c8 93  |08,220,311.K....|
0000a9b0  36 34 34 2c 37 30 38 2c  34 38 33 2c 33 31 31 0d  |644,708,483,311.|
0000a9c0  4b b4 16 e6 34 3a c8 93  38 2c 37 31 32 2c 33 39  |K...4:..8,712,39|
0000a9d0  36 2c 33 30 33 0d 4b be  15 c8 93 34 32 30 2c 37  |6,303.K....420,7|
0000a9e0  31 32 2c 32 31 32 2c 33  30 33 0d 4b c8 15 c8 93  |12,212,303.K....|
0000a9f0  36 34 38 2c 37 31 32 2c  34 37 35 2c 33 30 33 0d  |648,712,475,303.|
0000aa00  4b d2 16 87 3a ef 32 38  2c 36 2c 38 2c 37 34 2c  |K...:.28,6,8,74,|
0000aa10  31 3a fb 31 32 0d 4b dc  36 f1 8a 34 31 2c 30 29  |1:.12.K.6..41,0)|
0000aa20  22 50 4c 41 59 45 52 20  20 20 20 20 20 20 20 20  |"PLAYER         |
0000aa30  3a 20 22 3b 3a fb 38 3a  f1 6e 61 6d 65 24 28 70  |: ";:.8:.name$(p|
0000aa40  6c 61 79 65 72 25 29 3a  fb 31 32 0d 4b e6 25 f1  |layer%):.12.K.%.|
0000aa50  8a 34 31 2c 31 29 22 50  4c 41 59 49 4e 47 20 41  |.41,1)"PLAYING A|
0000aa60  54 20 20 20 20 20 3a 20  22 43 6f 75 72 73 65 24  |T     : "Course$|
0000aa70  0d 4b f0 24 f1 8a 34 31  2c 32 29 22 48 4f 4c 45  |.K.$..41,2)"HOLE|
0000aa80  20 4e 55 4d 42 45 52 20  20 20 20 3a 20 22 3b 48  | NUMBER    : ";H|
0000aa90  6f 6c 65 25 0d 4b fa 34  f1 8a 34 31 2c 33 29 22  |ole%.K.4..41,3)"|
0000aaa0  50 41 52 20 20 20 20 20  20 20 20 20 20 20 20 3a  |PAR            :|
0000aab0  20 22 3b 7e 6d 61 70 3f  28 6d 61 70 70 6f 69 6e  | ";~map?(mappoin|
0000aac0  74 25 2b 26 32 46 39 29  0d 4c 04 45 f1 8a 34 31  |t%+&2F9).L.E..41|
0000aad0  2c 34 29 22 4f 56 45 52  41 4c 4c 20 4c 45 4e 47  |,4)"OVERALL LENG|
0000aae0  54 48 20 3a 20 22 3b 7e  28 6d 61 70 21 28 6d 61  |TH : ";~(map!(ma|
0000aaf0  70 70 6f 69 6e 74 25 2b  26 32 46 41 29 29 80 26  |ppoint%+&2FA)).&|
0000ab00  46 46 46 46 3b 22 20 59  41 52 44 53 22 0d 4c 0e  |FFFF;" YARDS".L.|
0000ab10  56 f1 8a 34 31 2c 35 29  22 52 41 4e 47 45 20 54  |V..41,5)"RANGE T|
0000ab20  4f 20 48 4f 4c 45 20 20  3a 20 22 3b 3a fb 38 3a  |O HOLE  : ";:.8:|
0000ab30  f1 3b 28 52 25 81 32 31  29 2a 28 31 2d 67 72 65  |.;(R%.21)*(1-gre|
0000ab40  65 6e 25 2a 32 29 3b 3a  e7 67 72 65 65 6e 25 3a  |en%*2);:.green%:|
0000ab50  f1 22 20 46 45 45 54 22  3a 8b f1 22 20 59 41 52  |." FEET":.." YAR|
0000ab60  44 53 22 0d 4c 18 2a fb  31 32 3a f1 8a 34 31 2c  |DS".L.*.12:..41,|
0000ab70  36 29 22 53 54 52 4f 4b  45 53 20 50 4c 41 59 45  |6)"STROKES PLAYE|
0000ab80  44 20 3a 20 22 3b 73 74  72 6f 6b 65 25 0d 4c 22  |D : ";stroke%.L"|
0000ab90  0c f2 73 68 6f 77 6c 69  65 0d 4c 2c 0c f2 73 65  |..showlie.L,..se|
0000aba0  74 77 69 6e 64 0d 4c 36  0d f2 73 68 6f 77 77 69  |twind.L6..showwi|
0000abb0  6e 64 0d 4c 40 05 f5 0d  4c 4a 0a c8 91 38 30 2c  |nd.L@...LJ...80,|
0000abc0  30 0d 4c 54 0c f2 67 65  74 63 6c 75 62 0d 4c 5e  |0.LT..getclub.L^|
0000abd0  22 fb 31 32 3a f1 8a 32  29 22 44 49 52 45 43 54  |".12:..2)"DIRECT|
0000abe0  49 4f 4e 20 54 48 45 4e  20 50 4f 57 45 52 22 0d  |ION THEN POWER".|
0000abf0  4c 68 1d fb 38 3a f1 8a  34 29 41 24 28 76 70 25  |Lh..8:..4)A$(vp%|
0000ac00  29 22 20 53 45 4c 45 43  54 45 44 22 0d 4c 72 38  |)" SELECTED".Lr8|
0000ac10  e6 38 3a c8 93 34 36 2c  37 37 36 2c 33 32 30 2c  |.8:..46,776,320,|
0000ac20  31 32 38 3a c8 93 34 34  2c 37 37 36 2c 33 32 34  |128:..44,776,324|
0000ac30  2c 31 32 38 3a 86 34 38  2c 38 36 36 2c 33 36 34  |,128:.48,866,364|
0000ac40  2c 38 36 36 0d 4c 7c 3f  e6 36 3a c8 93 c8 90 34  |,866.L|?.6:....4|
0000ac50  38 2c 38 37 30 2c 33 31  36 2c 33 32 3a e6 31 32  |8,870,316,32:.12|
0000ac60  3a ec 37 38 2c 38 39 38  3a ef 35 3a f1 22 43 4c  |:.78,898:.5:."CL|
0000ac70  55 42 20 50 4f 57 45 52  20 4d 45 54 45 52 22 bd  |UB POWER METER".|
0000ac80  34 3a 87 0d 4c 86 4b 86  35 36 2c 37 38 34 2c 35  |4:..L.K.56,784,5|
0000ac90  36 2c 38 32 34 3a e3 54  25 3d 34 39 b8 31 30 30  |6,824:.T%=49.100|
0000aca0  3a e7 a8 28 28 54 25 2f  31 30 30 2a 54 25 29 83  |:..((T%/100*T%).|
0000acb0  32 35 29 3d 30 3a 86 54  25 2a 33 2b 35 36 2c 37  |25)=0:.T%*3+56,7|
0000acc0  38 34 2c 54 25 2a 33 2b  35 36 2c 38 32 34 0d 4c  |84,T%*3+56,824.L|
0000acd0  90 05 ed 0d 4c 9a 13 c8  93 35 36 2c 37 39 32 2c  |....L....56,792,|
0000ace0  33 30 30 2c 32 34 0d 4c  a4 19 e6 31 31 3a c8 93  |300,24.L...11:..|
0000acf0  c8 90 35 36 2c 37 39 36  2c 33 30 30 2c 31 36 0d  |..56,796,300,16.|
0000ad00  4c ae 20 6d 79 25 3d 32  35 36 2d 67 72 65 65 6e  |L. my%=256-green|
0000ad10  25 2a 31 36 34 3a c8 99  36 2c 31 30 36 2c 32 0d  |%*164:..6,106,2.|
0000ad20  4c b8 09 c8 91 30 2c 30  0d 4c c2 3e c8 97 c8 93  |L....0,0.L.>....|
0000ad30  34 33 32 2b 28 67 72 65  65 6e 25 3d 30 29 2a 31  |432+(green%=0)*1|
0000ad40  36 30 2c 6d 79 25 2c 34  31 34 2d 28 67 72 65 65  |60,my%,414-(gree|
0000ad50  6e 25 3d 30 29 2a 33 32  30 2c 30 3a c8 97 b8 36  |n%=0)*320,0:...6|
0000ad60  34 30 2c 6d 79 25 0d 4c  cc 13 78 73 25 3d 30 3a  |40,my%.L..xs%=0:|
0000ad70  4f 58 25 3d 30 3a 75 3d  30 0d 4c d6 10 f5 3a c8  |OX%=0:u=0.L...:.|
0000ad80  97 58 25 2c 59 25 2c 43  25 0d 4c e0 13 e7 43 25  |.X%,Y%,C%.L...C%|
0000ad90  3d 31 84 43 25 3d 34 fd  b9 3a fd a3 0d 4c ea 23  |=1.C%=4..:...L.#|
0000ada0  61 25 3d 28 58 25 2d 78  73 25 2d 36 34 30 29 2f  |a%=(X%-xs%-640)/|
0000adb0  38 3a e7 94 61 25 3c 31  30 61 25 3d b4 61 25 0d  |8:..a%<10a%=.a%.|
0000adc0  4c f4 09 75 2b 3d 61 25  0d 4c fe 0d e7 58 25 3c  |L..u+=a%.L...X%<|
0000add0  3e 78 73 25 8c 0d 4d 08  41 42 58 25 3d 30 3a 42  |>xs%..M.ABX%=0:B|
0000ade0  59 25 3d 2d 52 25 3a f2  76 74 28 76 69 2a 42 59  |Y%=-R%:.vt(vi*BY|
0000adf0  25 2b 76 61 2a 42 58 25  2c 76 61 2a 42 59 25 2b  |%+va*BX%,va*BY%+|
0000ae00  76 62 2a 42 58 25 2c 48  25 29 3a 79 73 74 25 3d  |vb*BX%,H%):yst%=|
0000ae10  79 73 25 2b 32 35 0d 4d  12 43 f5 3a 42 58 25 2b  |ys%+25.M.C.:BX%+|
0000ae20  3d 75 3a 42 59 25 2b 3d  38 30 3a f2 76 74 28 76  |=u:BY%+=80:.vt(v|
0000ae30  69 2a 42 59 25 2b 76 61  2a 42 58 25 2c 76 61 2a  |i*BY%+va*BX%,va*|
0000ae40  42 59 25 2b 76 62 2a 42  58 25 2c 48 25 29 3a fd  |BY%+vb*BX%,H%):.|
0000ae50  79 73 25 3e 3d 79 73 74  25 0d 4d 1c 05 cd 0d 4d  |ys%>=yst%.M....M|
0000ae60  26 12 c8 97 b8 78 73 25  2d 36 34 30 2c 6d 79 25  |&....xs%-640,my%|
0000ae70  0d 4d 30 09 fd 43 25 3d  32 0d 4d 3a 07 c8 97 87  |.M0..C%=2.M:....|
0000ae80  0d 4d 44 0d 70 25 3d a4  70 6f 77 65 72 0d 4d 4e  |.MD.p%=.power.MN|
0000ae90  12 53 4f 25 3d 2d 31 35  2a 70 25 2f 31 30 30 0d  |.SO%=-15*p%/100.|
0000aea0  4d 58 1d e7 ac 67 72 65  65 6e 25 80 76 70 25 3d  |MX...green%.vp%=|
0000aeb0  31 33 75 3d 75 2b b3 28  35 29 2d 33 0d 4d 62 32  |13u=u+.(5)-3.Mb2|
0000aec0  75 3d 75 2f 28 38 2d 67  25 2a 32 29 3a 79 61 3d  |u=u/(8-g%*2):ya=|
0000aed0  a8 28 28 43 56 25 28 76  70 25 29 2f 31 30 30 29  |.((CV%(vp%)/100)|
0000aee0  2a 70 25 29 3a e7 79 61  3c 31 79 61 3d 31 0d 4d  |*p%):.ya<1ya=1.M|
0000aef0  6c 0f 75 64 3d 75 2f 28  79 61 2a 33 29 0d 4d 76  |l.ud=u/(ya*3).Mv|
0000af00  12 70 25 3d 70 25 2a 2e  33 32 3a 68 25 3d 30 0d  |.p%=p%*.32:h%=0.|
0000af10  4d 80 1b e7 76 70 25 3d  31 33 70 25 3d 35 2a 2d  |M...vp%=13p%=5*-|
0000af20  28 67 72 65 65 6e 25 3d  a3 29 0d 4d 8a 18 f2 64  |(green%=.).M...d|
0000af30  65 6c 28 31 30 30 29 3a  73 74 72 6f 6b 65 25 2b  |el(100):stroke%+|
0000af40  3d 31 0d 4d 94 20 ef 34  2c 32 36 3a 87 3a 2a 53  |=1.M. .4,26:.:*S|
0000af50  43 48 4f 4f 53 45 20 74  6f 70 6f 66 73 63 72 65  |CHOOSE topofscre|
0000af60  65 6e 0d 4d 9e 13 e6 38  2c 30 3a f0 26 45 44 2c  |en.M...8,0:.&ED,|
0000af70  30 2c 37 30 34 0d 4d a8  0d f2 77 69 6e 64 6f 77  |0,704.M...window|
0000af80  73 32 0d 4d b2 05 e1 0d  4d bc 07 f4 20 15 0d 4d  |s2.M....M... ..M|
0000af90  c6 0d dd f2 73 68 6f 77  6c 69 65 0d 4d d0 07 ea  |....showlie.M...|
0000afa0  61 24 0d 4d da 13 61 24  3d 22 4f 4e 20 54 48 45  |a$.M..a$="ON THE|
0000afb0  20 22 3a fb 38 0d 4d e4  0c f1 8a 34 31 2c 37 29  | ":.8.M....41,7)|
0000afc0  3b 0d 4d ee 21 62 75 6e  6b 25 3d a3 3a 62 61 64  |;.M.!bunk%=.:bad|
0000afd0  25 3d a3 3a 77 69 6e 64  25 3d 73 6b 69 6c 6c 25  |%=.:wind%=skill%|
0000afe0  3e 32 0d 4d f8 0c e7 67  72 65 65 6e 25 8c 0d 4e  |>2.M...green%..N|
0000aff0  02 34 e7 6c 69 65 25 3d  35 20 f1 61 24 22 47 52  |.4.lie%=5 .a$"GR|
0000b000  45 45 4e 22 3b 3a 8b f1  22 4f 4e 20 45 44 47 45  |EEN";:.."ON EDGE|
0000b010  20 4f 46 20 47 52 45 45  4e 22 3b 3a 6c 69 65 25  | OF GREEN";:lie%|
0000b020  3d 35 0d 4e 0c 05 cd 0d  4e 16 0b c8 8e 6c 69 65  |=5.N....N....lie|
0000b030  25 ca 0d 4e 20 1c c9 31  3a f1 22 49 4e 20 41 20  |%..N ..1:."IN A |
0000b040  42 55 4e 4b 45 52 20 22  3b 3a f2 67 6f 62 0d 4e  |BUNKER ";:.gob.N|
0000b050  2a 17 c9 34 3a f1 22 4f  4e 20 41 20 50 41 54 48  |*..4:."ON A PATH|
0000b060  57 41 59 22 3b 0d 4e 34  0e c9 36 3a f2 77 65 74  |WAY";.N4..6:.wet|
0000b070  6d 65 73 0d 4e 3e 2a c9  37 3a e7 79 31 25 3c 3e  |mes.N>*.7:.y1%<>|
0000b080  73 74 79 25 3a f1 61 24  22 46 41 49 52 57 41 59  |sty%:.a$"FAIRWAY|
0000b090  22 3b 3a 8b f1 61 24 22  54 45 45 22 3b 0d 4e 48  |";:..a$"TEE";.NH|
0000b0a0  1d c9 39 3a f1 22 49 4e  20 54 48 45 20 52 4f 55  |..9:."IN THE ROU|
0000b0b0  47 48 20 22 3b 3a f2 67  6f 62 0d 4e 52 05 cb 0d  |GH ";:.gob.NR...|
0000b0c0  4e 5c 05 e1 0d 4e 66 07  f4 20 15 0d 4e 70 0c dd  |N\...Nf.. ..Np..|
0000b0d0  f2 77 65 74 6d 65 73 0d  4e 7a 12 e6 36 3a 62 75  |.wetmes.Nz..6:bu|
0000b0e0  6e 6b 25 3d b9 3a ea 54  25 0d 4e 84 0b 54 25 3d  |nk%=.:.T%.N..T%=|
0000b0f0  b3 28 33 29 0d 4e 8e 09  c8 8e 54 25 ca 0d 4e 98  |.(3).N....T%..N.|
0000b100  1d c9 31 2c 33 3a f1 22  49 4e 20 53 48 41 4c 4c  |..1,3:."IN SHALL|
0000b110  4f 57 20 57 41 54 45 52  22 3b 0d 4e a2 3e c9 32  |OW WATER";.N.>.2|
0000b120  3a e7 77 65 6c 6c 69 65  25 f1 22 49 54 27 53 20  |:.wellie%."IT'S |
0000b130  41 20 57 45 4c 4c 49 45  20 4a 4f 42 22 3b 3a 8b  |A WELLIE JOB";:.|
0000b140  f1 22 42 41 4c 41 4e 43  45 44 20 4f 4e 20 4c 49  |."BALANCED ON LI|
0000b150  4c 59 20 50 41 44 22 3b  0d 4e ac 05 cb 0d 4e b6  |LY PAD";.N....N.|
0000b160  05 e1 0d 4e c0 07 f4 20  15 0d 4e ca 09 dd f2 67  |...N... ..N....g|
0000b170  6f 62 0d 4e d4 3a ea 67  24 2c 62 24 3a 67 24 3d  |ob.N.:.g$,b$:g$=|
0000b180  22 47 4f 4f 44 20 4c 49  45 22 3a e7 6c 69 65 25  |"GOOD LIE":.lie%|
0000b190  3d 39 62 24 3d 22 42 41  44 20 4c 49 45 22 3a 8b  |=9b$="BAD LIE":.|
0000b1a0  62 24 3d 22 50 4c 55 47  47 45 44 22 0d 4e de 0d  |b$="PLUGGED".N..|
0000b1b0  c8 8e 73 6b 69 6c 6c 25  ca 0d 4e e8 14 c9 31 3a  |..skill%..N...1:|
0000b1c0  f1 22 4e 4f 20 45 46 46  45 43 54 22 3b 0d 4e f2  |."NO EFFECT";.N.|
0000b1d0  15 c9 32 2c 33 3a f1 67  24 3b 3a 62 75 6e 6b 25  |..2,3:.g$;:bunk%|
0000b1e0  3d b9 0d 4e fc 27 c9 34  3a 62 75 6e 6b 25 3d b9  |=..N.'.4:bunk%=.|
0000b1f0  3a e7 b3 28 32 29 3d 32  f1 62 24 3b 3a 62 61 64  |:..(2)=2.b$;:bad|
0000b200  25 3d 31 3a 8b f1 67 24  3b 0d 4f 06 05 cb 0d 4f  |%=1:..g$;.O....O|
0000b210  10 05 e1 0d 4f 1a 07 f4  20 15 0d 4f 24 0b dd a4  |....O... ..O$...|
0000b220  70 6f 77 65 72 0d 4f 2e  13 ea 58 25 2c 43 25 2c  |power.O...X%,C%,|
0000b230  63 25 2c 70 25 2c 61 25  0d 4f 38 0a c8 91 38 30  |c%,p%,a%.O8...80|
0000b240  2c 30 0d 4f 42 1d fb 31  32 3a f2 62 75 74 74 28  |,0.OB..12:.butt(|
0000b250  30 29 3a f2 64 65 6c 28  31 29 3a 61 25 3d 31 0d  |0):.del(1):a%=1.|
0000b260  4f 4c 12 c8 95 43 25 3d  30 80 63 25 3c 3e 31 35  |OL...C%=0.c%<>15|
0000b270  36 0d 4f 56 16 70 25 2b  3d 61 25 3a e7 70 25 3d  |6.OV.p%+=a%:.p%=|
0000b280  31 30 30 61 25 3d b9 0d  4f 60 14 63 25 2b 3d 31  |100a%=..O`.c%+=1|
0000b290  3a e6 38 3a e7 63 25 80  31 c8 96 0d 4f 6a 36 c8  |:.8:.c%.1...Oj6.|
0000b2a0  93 c8 90 35 36 2c 37 39  36 2c 70 25 2a 33 2c 31  |...56,796,p%*3,1|
0000b2b0  36 3a e6 31 31 3a c8 93  c8 90 35 36 2b 70 25 2a  |6:.11:....56+p%*|
0000b2c0  33 2c 37 39 36 2c 33 30  30 2d 70 25 2a 33 2c 31  |3,796,300-p%*3,1|
0000b2d0  36 0d 4f 74 30 f1 8a 32  2c 34 29 3b a8 28 70 25  |6.Ot0..2,4);.(p%|
0000b2e0  2f 31 30 30 2a 70 25 29  2d 28 63 25 3c 31 30 29  |/100*p%)-(c%<10)|
0000b2f0  3b 22 25 20 20 22 3a c8  97 58 25 2c 58 25 2c 43  |;"%  ":..X%,X%,C|
0000b300  25 0d 4f 7e 05 ce 0d 4f  88 0d 53 6c 3d 30 3a 73  |%.O~...O..Sl=0:s|
0000b310  6c 3d 30 0d 4f 92 0d e7  76 70 25 3c 3e 31 33 8c  |l=0.O...vp%<>13.|
0000b320  0d 4f 9c 09 c8 8e 43 25  ca 0d 4f a6 0d c9 31 3a  |.O....C%..O...1:|
0000b330  73 6c 3d 2e 30 35 0d 4f  b0 0e c9 34 3a 73 6c 3d  |sl=.05.O...4:sl=|
0000b340  2d 2e 30 35 0d 4f ba 05  cb 0d 4f c4 05 cd 0d 4f  |-.05.O....O....O|
0000b350  ce 0f e7 73 6b 69 6c 6c  25 3c 3e 31 8c 0d 4f d8  |...skill%<>1..O.|
0000b360  0b c8 8e 6c 69 65 25 ca  0d 4f e2 23 c9 31 2c 39  |...lie%..O.#.1,9|
0000b370  3a 70 25 3d 28 70 25 2f  31 30 30 29 2a 72 65 64  |:p%=(p%/100)*red|
0000b380  25 28 76 70 25 2c 62 61  64 25 29 0d 4f ec 2f c9  |%(vp%,bad%).O./.|
0000b390  36 3a 61 25 3d 76 70 25  2d 32 2a 28 70 25 3c 31  |6:a%=vp%-2*(p%<1|
0000b3a0  31 29 3a 70 25 3d 70 25  2f 31 30 30 2a 72 65 64  |1):p%=p%/100*red|
0000b3b0  25 28 61 25 2c 62 61 64  25 29 0d 4f f6 05 cb 0d  |%(a%,bad%).O....|
0000b3c0  50 00 05 cd 0d 50 0a 10  d4 31 2c 2d 31 30 2c 32  |P....P...1,-10,2|
0000b3d0  30 30 2c 31 0d 50 14 0d  e7 70 25 3c 31 70 25 3d  |00,1.P...p%<1p%=|
0000b3e0  31 0d 50 1e 07 3d 70 25  0d 50 28 07 f4 20 15 0d  |1.P..=p%.P(.. ..|
0000b3f0  50 32 0d dd f2 67 65 74  63 6c 75 62 0d 50 3c 11  |P2...getclub.P<.|
0000b400  f2 62 75 74 74 28 30 29  3a f2 63 6c 73 0d 50 46  |.butt(0):.cls.PF|
0000b410  13 e7 67 72 65 65 6e 25  76 70 25 3d 31 33 3a e1  |..green%vp%=13:.|
0000b420  0d 50 50 1b ea 58 25 2c  59 25 2c 43 25 2c 78 25  |.PP..X%,Y%,C%,x%|
0000b430  2c 79 25 2c 6f 78 25 2c  6f 79 25 0d 50 5a 3b 6f  |,y%,ox%,oy%.PZ;o|
0000b440  78 25 3d 2d 31 30 30 3a  87 3a ef 32 38 2c 36 2c  |x%=-100:.:.28,6,|
0000b450  38 2c 37 34 2c 31 3a f2  6d 72 65 63 74 28 31 29  |8,74,1:.mrect(1)|
0000b460  3a c8 97 20 ee 3a fb 31  32 3a f4 3a 53 59 53 36  |:.. .:.12:.:SYS6|
0000b470  2c 31 30 36 2c 33 0d 50  64 28 e3 54 25 3d 30 b8  |,106,3.Pd(.T%=0.|
0000b480  31 33 3a f1 8a 54 58 25  28 54 25 29 2c 54 59 25  |13:..TX%(T%),TY%|
0000b490  28 54 25 29 29 41 24 28  54 25 29 3b 3a ed 0d 50  |(T%))A$(T%);:..P|
0000b4a0  6e 37 fb 32 3a f1 8a 36  2c 30 29 22 53 45 4c 45  |n7.2:..6,0)"SELE|
0000b4b0  43 54 20 41 20 43 4c 55  42 22 3a c8 9f 26 32 30  |CT A CLUB":..&20|
0000b4c0  30 30 3a c8 9e 31 30 30  3a ef 35 3a e6 33 2c 32  |00:..100:.5:.3,2|
0000b4d0  3a f2 62 6f 78 0d 50 78  2e f5 3a e7 c6 8f 3d 30  |:.box.Px..:...=0|
0000b4e0  3a e6 33 2c 32 3a f1 8a  37 2c 31 29 22 53 45 4c  |:.3,2:..7,1)"SEL|
0000b4f0  45 43 54 20 41 20 43 4c  55 42 22 3a f5 fd c6 8f  |ECT A CLUB":....|
0000b500  3c 3e 30 0d 50 82 24 c8  97 58 25 2c 59 25 2c 43  |<>0.P.$..X%,Y%,C|
0000b510  25 3a 78 25 3d 58 25 81  31 32 38 3a 79 25 3d 59  |%:x%=X%.128:y%=Y|
0000b520  25 80 26 46 46 45 30 0d  50 8c 18 e7 78 25 3c 3e  |%.&FFE0.P...x%<>|
0000b530  6f 78 25 84 79 25 3c 3e  6f 79 25 f2 62 6f 78 0d  |ox%.y%<>oy%.box.|
0000b540  50 96 35 f2 6d 72 65 63  74 28 58 25 29 3a 76 70  |P.5.mrect(X%):vp|
0000b550  25 3d 33 5e 78 25 2b 28  78 25 3d 30 29 2b 32 38  |%=3^x%+(x%=0)+28|
0000b560  2d 79 25 81 33 32 2b 28  78 25 3d 32 80 79 25 3c  |-y%.32+(x%=2.y%<|
0000b570  38 33 32 29 0d 50 a0 0a  fd 43 25 3c 3e 30 0d 50  |832).P...C%<>0.P|
0000b580  aa 0f f2 62 75 74 74 28  30 29 3a ef 34 0d 50 b4  |...butt(0):.4.P.|
0000b590  09 dd f2 63 6c 73 0d 50  be 14 87 3a ef 32 38 2c  |...cls.P...:.28,|
0000b5a0  36 2c 38 2c 32 39 2c 31  3a db 0d 50 c8 05 e1 0d  |6,8,29,1:..P....|
0000b5b0  50 d2 07 f4 20 15 0d 50  dc 09 dd f2 62 6f 78 0d  |P... ..P....box.|
0000b5c0  50 e6 08 e6 33 2c 36 0d  50 f0 1c c8 93 c8 90 33  |P...3,6.P......3|
0000b5d0  32 2b 31 32 38 2a 6f 78  25 2c 6f 79 25 2c 39 36  |2+128*ox%,oy%,96|
0000b5e0  2c 33 32 0d 50 fa 1a c8  93 c8 90 33 32 2b 31 32  |,32.P......32+12|
0000b5f0  38 2a 78 25 2c 79 25 2c  39 36 2c 33 32 0d 51 04  |8*x%,y%,96,32.Q.|
0000b600  10 d4 31 2c 2d 31 30 2c  32 30 30 2c 31 0d 51 0e  |..1,-10,200,1.Q.|
0000b610  11 6f 78 25 3d 78 25 3a  6f 79 25 3d 79 25 0d 51  |.ox%=x%:oy%=y%.Q|
0000b620  18 05 e1 0d 51 22 07 f4  20 15 0d 51 2c 0f dd f2  |....Q".. ..Q,...|
0000b630  6d 72 65 63 74 28 52 25  29 0d 51 36 10 e7 52 25  |mrect(R%).Q6..R%|
0000b640  3e 32 38 38 f2 69 6f 70  32 0d 51 40 09 c8 8e 52  |>288.iop2.Q@...R|
0000b650  25 ca 0d 51 4a 22 c9 20  31 3a c8 97 c8 93 33 38  |%..QJ". 1:....38|
0000b660  2c 38 34 34 2c 39 30 2c  37 32 3a c8 97 b8 38 33  |,844,90,72:...83|
0000b670  2c 39 31 32 0d 51 54 24  c9 20 31 36 32 3a c8 97  |,912.QT$. 162:..|
0000b680  c8 93 33 38 2c 38 34 34  2c 39 30 2c 37 32 3a c8  |..38,844,90,72:.|
0000b690  97 b8 38 33 2c 38 34 36  0d 51 5e 27 c9 20 31 32  |..83,846.Q^'. 12|
0000b6a0  38 3a c8 97 c8 93 31 36  32 2c 37 35 32 2c 39 30  |8:....162,752,90|
0000b6b0  2c 31 36 34 3a c8 97 b8  32 30 38 2c 39 31 32 0d  |,164:...208,912.|
0000b6c0  51 68 0e c9 20 32 35 32  3a f2 69 6f 70 0d 51 72  |Qh.. 252:.iop.Qr|
0000b6d0  27 c9 20 32 38 38 3a c8  97 c8 93 31 36 32 2c 37  |'. 288:....162,7|
0000b6e0  35 32 2c 39 30 2c 31 36  34 3a c8 97 b8 32 30 38  |52,90,164:...208|
0000b6f0  2c 37 35 36 0d 51 7c 05  cb 0d 51 86 05 e1 0d 51  |,756.Q|...Q....Q|
0000b700  90 07 f4 20 15 0d 51 9a  09 dd f2 69 6f 70 0d 51  |... ..Q....iop.Q|
0000b710  a4 0c e7 59 25 3e 38 33  35 8c 0d 51 ae 20 c8 97  |...Y%>835..Q. ..|
0000b720  c8 93 32 38 38 2c 38 33  36 2c 39 30 2c 38 30 3a  |..288,836,90,80:|
0000b730  c8 97 b8 33 34 39 2c 39  31 32 0d 51 b8 22 cc 20  |...349,912.Q.". |
0000b740  c8 97 c8 93 32 38 38 2c  37 35 32 2c 39 30 2c 35  |....288,752,90,5|
0000b750  30 3a c8 97 b8 33 34 39  2c 37 37 38 0d 51 c2 05  |0:...349,778.Q..|
0000b760  cd 0d 51 cc 05 e1 0d 51  d6 07 f4 20 15 0d 51 e0  |..Q....Q... ..Q.|
0000b770  0a dd f2 69 6f 70 32 0d  51 ea 27 e7 59 25 3d 38  |...iop2.Q.'.Y%=8|
0000b780  33 36 c8 97 c8 93 32 38  38 2c 37 35 32 2c 39 30  |36....288,752,90|
0000b790  2c 35 30 3a c8 97 b8 33  34 39 2c 37 38 36 0d 51  |,50:...349,786.Q|
0000b7a0  f4 27 e7 59 25 3d 38 30  32 c8 97 c8 93 32 38 38  |.'.Y%=802....288|
0000b7b0  2c 38 33 36 2c 39 30 2c  38 30 3a c8 97 b8 33 34  |,836,90,80:...34|
0000b7c0  39 2c 38 35 36 0d 51 fe  05 e1 0d 52 08 07 f4 20  |9,856.Q....R... |
0000b7d0  15 0d 52 12 0e dd f2 62  75 74 74 28 6f 6e 29 0d  |..R....butt(on).|
0000b7e0  52 1c 0a ea 44 25 2c 43  25 0d 52 26 05 f5 0d 52  |R...D%,C%.R&...R|
0000b7f0  30 0e c8 97 44 25 2c 44  25 2c 43 25 0d 52 3a 0a  |0...D%,D%,C%.R:.|
0000b800  fd 43 25 3d 6f 6e 0d 52  44 05 e1 0d 52 4e 07 f4  |.C%=on.RD...RN..|
0000b810  20 15 0d 52 58 0d dd f2  77 69 6e 64 6f 77 73 0d  | ..RX...windows.|
0000b820  52 62 18 ef 32 36 3a e6  31 32 38 3a da 3a f2 6d  |Rb..26:.128:.:.m|
0000b830  61 69 6e 63 6f 6c 73 0d  52 6c 0d e7 ac 67 72 65  |aincols.Rl...gre|
0000b840  65 6e 25 8c 0d 52 76 18  e6 36 3a c8 93 c8 90 20  |en%..Rv..6:.... |
0000b850  30 2c 30 2c 31 32 38 30  2c 37 33 36 0d 52 80 16  |0,0,1280,736.R..|
0000b860  e6 34 3a 86 30 2c 37 33  32 2c 31 32 38 30 2c 37  |.4:.0,732,1280,7|
0000b870  33 32 0d 52 8a 1f e6 31  33 38 3a ef 32 34 2c 30  |32.R...138:.24,0|
0000b880  3b 37 33 36 3b 31 32 37  39 3b 31 30 32 33 3b 3a  |;736;1279;1023;:|
0000b890  da 0d 52 94 0b f2 63 6c  6f 75 64 73 0d 52 9e 0b  |..R...clouds.R..|
0000b8a0  cc e6 31 33 35 3a da 0d  52 a8 05 cd 0d 52 b2 0e  |..135:..R....R..|
0000b8b0  dd f2 77 69 6e 64 6f 77  73 32 0d 52 bc 20 ef 32  |..windows2.R. .2|
0000b8c0  36 3a c8 91 36 34 30 2c  37 36 38 2b 4f 25 2d 36  |6:..640,768+O%-6|
0000b8d0  31 36 36 2a 67 72 65 65  6e 25 0d 52 c6 05 e1 0d  |166*green%.R....|
0000b8e0  52 d0 07 f4 20 15 0d 52  da 0c dd f2 63 6c 6f 75  |R... ..R....clou|
0000b8f0  64 73 0d 52 e4 0d ea 43  25 2c 54 25 2c 4f 25 0d  |ds.R...C%,T%,O%.|
0000b900  52 ee 24 e7 76 62 3e 30  20 4f 25 3d 9d 98 76 61  |R.$.vb>0 O%=..va|
0000b910  20 8b 4f 25 3d 31 38 30  2b 28 31 38 30 2d 9d 98  | .O%=180+(180-..|
0000b920  76 61 29 0d 52 f8 12 4f  25 3d 94 4f 25 2a 33 2e  |va).R..O%=.O%*3.|
0000b930  35 3a e6 31 31 0d 53 02  15 e3 43 25 3d 31 b8 31  |5:.11.S...C%=1.1|
0000b940  32 3a e3 54 25 3d 31 b8  31 32 0d 53 0c 35 c8 9d  |2:.T%=1.12.S.5..|
0000b950  c8 90 28 43 4c 25 28 30  2c 43 25 2c 54 25 29 2b  |..(CL%(0,C%,T%)+|
0000b960  4f 25 29 83 32 35 32 30  2b 49 25 2c 43 4c 25 28  |O%).2520+I%,CL%(|
0000b970  31 2c 43 25 2c 54 25 29  2c 32 35 36 2c 36 34 0d  |1,C%,T%),256,64.|
0000b980  53 16 07 ed 3a ed 0d 53  20 05 e1 0d 53 2a 07 f4  |S...:..S ...S*..|
0000b990  20 15 0d 53 34 0f dd f2  69 6e 69 74 63 6c 6f 75  | ..S4...initclou|
0000b9a0  64 0d 53 3e 10 ea 43 25  2c 54 25 2c 58 25 2c 59  |d.S>..C%,T%,X%,Y|
0000b9b0  25 0d 53 48 2b e3 43 25  3d 30 b8 31 32 3a 58 25  |%.SH+.C%=0.12:X%|
0000b9c0  3d 31 39 34 2a 43 25 2b  b3 28 31 39 34 29 3a 59  |=194*C%+.(194):Y|
0000b9d0  25 3d b3 28 32 38 38 29  2b 37 33 36 0d 53 52 3c  |%=.(288)+736.SR<|
0000b9e0  e3 54 25 3d 30 b8 31 32  3a 43 4c 25 28 30 2c 43  |.T%=0.12:CL%(0,C|
0000b9f0  25 2c 54 25 29 3d 58 25  2b b3 28 35 29 2a 34 30  |%,T%)=X%+.(5)*40|
0000ba00  3a 43 4c 25 28 31 2c 43  25 2c 54 25 29 3d 59 25  |:CL%(1,C%,T%)=Y%|
0000ba10  2b b3 28 35 29 2a 31 32  0d 53 5c 07 ed 3a ed 0d  |+.(5)*12.S\..:..|
0000ba20  53 66 05 e1 0d 53 70 07  f4 20 15 0d 53 7a 0c dd  |Sf...Sp.. ..Sz..|
0000ba30  f2 62 6f 75 6e 63 65 0d  53 84 13 68 25 3d 30 3a  |.bounce.S..h%=0:|
0000ba40  70 25 3d 2d 70 25 2f 32  2e 32 0d 53 8e 20 e7 76  |p%=-p%/2.2.S. .v|
0000ba50  70 25 3d 31 33 80 ac 67  72 65 65 6e 25 80 b3 28  |p%=13..green%..(|
0000ba60  31 30 29 3d 35 f2 32 72  69 63 0d 53 98 0c 2a 46  |10)=5.2ric.S..*F|
0000ba70  58 31 31 32 2c 32 0d 53  a2 10 47 25 3d b0 73 78  |X112,2.S..G%=.sx|
0000ba80  25 2c 73 79 25 29 0d 53  ac 0c 2a 46 58 31 31 32  |%,sy%).S..*FX112|
0000ba90  2c 31 0d 53 b6 09 c8 8e  47 25 ca 0d 53 c0 29 c9  |,1.S....G%..S.).|
0000baa0  31 3a 70 25 3d 70 25 3e  3e 31 3a e7 70 25 3e 34  |1:p%=p%>>1:.p%>4|
0000bab0  3a 79 61 3d 79 61 2a 2e  33 3a 8b 79 61 3d 79 61  |:ya=ya*.3:.ya=ya|
0000bac0  2a 2e 37 35 0d 53 ca 2f  c9 34 3a e7 70 25 3e 33  |*.75.S./.4:.p%>3|
0000bad0  80 79 61 3c 3e 30 70 25  3d 70 25 2a 31 2e 35 3a  |.ya<>0p%=p%*1.5:|
0000bae0  79 61 3d 79 61 2a 31 2e  33 3a 75 64 3d 75 64 2f  |ya=ya*1.3:ud=ud/|
0000baf0  31 2e 33 0d 53 d4 60 c9  36 2c 31 31 3a 57 25 3d  |1.3.S.`.6,11:W%=|
0000bb00  a3 3a 78 73 25 3d 31 30  30 30 3a 73 78 25 3d 31  |.:xs%=1000:sx%=1|
0000bb10  30 30 30 3a 79 61 3d 30  3a 70 25 3d 30 3a 68 25  |000:ya=0:p%=0:h%|
0000bb20  3d 30 3a d6 20 70 6c 6f  74 62 61 6c 6c 2c 62 73  |=0:. plotball,bs|
0000bb30  25 2c 6f 79 25 2c 6f 78  25 2c 6f 73 79 25 2c 6f  |%,oy%,ox%,osy%,o|
0000bb40  73 78 25 2c 79 73 25 2c  78 73 25 2c 73 79 25 2c  |sx%,ys%,xs%,sy%,|
0000bb50  73 78 25 0d 53 de 2a c9  39 2c 2d 31 3a 79 61 3d  |sx%.S.*.9,-1:ya=|
0000bb60  79 61 2f 31 2e 35 3a 70  25 3d 70 25 3e 3e 31 3a  |ya/1.5:p%=p%>>1:|
0000bb70  75 3d 75 2f 32 3a 75 64  3d 75 64 2f 32 0d 53 e8  |u=u/2:ud=ud/2.S.|
0000bb80  05 cb 0d 53 f2 05 e1 0d  53 fc 07 f4 20 15 0d 54  |...S....S... ..T|
0000bb90  06 0c dd f2 64 72 61 77  69 74 0d 54 10 37 6e 70  |....drawit.T.7np|
0000bba0  25 3d a4 6d 61 70 31 3a  f2 6d 61 70 28 43 58 25  |%=.map1:.map(CX%|
0000bbb0  2c 43 59 25 2c 48 25 2c  34 2c 72 29 3a f2 6d 61  |,CY%,H%,4,r):.ma|
0000bbc0  70 28 53 58 25 2c 53 59  25 2c 48 25 2c 34 2c 72  |p(SX%,SY%,H%,4,r|
0000bbd0  29 0d 54 1a 30 e3 49 25  3d 31 b8 6e 70 25 2d 31  |).T.0.I%=1.np%-1|
0000bbe0  3a f2 6d 61 70 28 58 49  25 2c 59 49 25 2c 48 25  |:.map(XI%,YI%,H%|
0000bbf0  2c 38 35 2c 72 29 3a ec  43 58 25 2c 43 59 25 3a  |,85,r):.CX%,CY%:|
0000bc00  ed 0d 54 24 0f f0 38 35  2c 53 58 25 2c 53 59 25  |..T$..85,SX%,SY%|
0000bc10  0d 54 2e 05 e1 0d 54 38  07 f4 20 15 0d 54 42 12  |.T....T8.. ..TB.|
0000bc20  dd f2 76 74 28 78 25 2c  79 25 2c 7a 25 29 0d 54  |..vt(x%,y%,z%).T|
0000bc30  4c 4c 78 65 25 3d 76 61  2a 78 25 2b 76 62 2a 79  |LLxe%=va*x%+vb*y|
0000bc40  25 3a 7a 65 25 3d 28 76  69 2a 78 25 2b 76 61 2a  |%:ze%=(vi*x%+va*|
0000bc50  79 25 2b 72 29 2a 4d 61  3a 78 73 25 3d 64 2a 78  |y%+r)*Ma:xs%=d*x|
0000bc60  65 25 20 81 7a 65 25 3a  79 73 25 3d 2d 28 64 2a  |e% .ze%:ys%=-(d*|
0000bc70  7a 25 20 81 7a 65 25 29  2a 32 0d 54 56 05 e1 0d  |z% .ze%)*2.TV...|
0000bc80  54 60 07 f4 20 15 0d 54  6a 22 dd f2 63 61 6c 74  |T`.. ..Tj"..calt|
0000bc90  72 65 28 f8 20 78 25 28  29 2c f8 20 79 25 28 29  |re(. x%(),. y%()|
0000bca0  2c f8 20 7a 25 28 29 29  0d 54 74 11 ea 69 25 2c  |,. z%()).Tt..i%,|
0000bcb0  6c 25 2c 6c 6f 25 2c 6e  25 0d 54 7e 0d e3 41 25  |l%,lo%,n%.T~..A%|
0000bcc0  3d 31 b8 41 41 25 0d 54  88 1b 6c 25 3d a4 6d 61  |=1.AA%.T..l%=.ma|
0000bcd0  70 32 3a 74 72 65 78 21  28 41 25 2a 34 29 3d 6c  |p2:trex!(A%*4)=l|
0000bce0  25 0d 54 92 1b 69 25 3d  a4 6d 61 70 32 3a 74 72  |%.T..i%=.map2:tr|
0000bcf0  65 79 21 28 41 25 2a 34  29 3d 69 25 0d 54 9c 12  |ey!(A%*4)=i%.T..|
0000bd00  78 65 3d 76 61 2a 69 25  2b 76 62 2a 6c 25 0d 54  |xe=va*i%+vb*l%.T|
0000bd10  a6 19 7a 65 3d 28 76 69  2a 69 25 2b 76 61 2a 6c  |..ze=(vi*i%+va*l|
0000bd20  25 2b 72 29 2a 4d 61 0d  54 b0 28 78 25 28 41 25  |%+r)*Ma.T.(x%(A%|
0000bd30  29 3d 64 2a 78 65 20 81  7a 65 3a 79 25 28 41 25  |)=d*xe .ze:y%(A%|
0000bd40  29 3d 2d 28 64 2a 48 25  20 81 7a 65 29 2a 32 0d  |)=-(d*H% .ze)*2.|
0000bd50  54 ba 1d 7a 25 28 41 25  29 3d 2d 28 64 2a 28 48  |T..z%(A%)=-(d*(H|
0000bd60  25 2b 32 30 30 29 81 7a  65 29 2a 32 0d 54 c4 05  |%+200).ze)*2.T..|
0000bd70  ed 0d 54 ce 05 e1 0d 54  d8 07 f4 20 15 0d 54 e2  |..T....T... ..T.|
0000bd80  1c dd f2 6d 61 70 28 f8  20 78 25 2c f8 20 79 25  |...map(. x%,. y%|
0000bd90  2c 7a 25 2c 70 25 2c 72  29 0d 54 ec 56 79 25 3d  |,z%,p%,r).T.Vy%=|
0000bda0  a4 6d 61 70 32 3a 78 25  3d a4 6d 61 70 32 3a 78  |.map2:x%=.map2:x|
0000bdb0  65 3d 76 61 2a 78 25 2b  76 62 2a 79 25 3a 7a 65  |e=va*x%+vb*y%:ze|
0000bdc0  3d 28 76 69 2a 78 25 2b  76 61 2a 79 25 2b 72 29  |=(vi*x%+va*y%+r)|
0000bdd0  2a 4d 61 3a 78 25 3d 64  2a 78 65 20 81 7a 65 3a  |*Ma:x%=d*xe .ze:|
0000bde0  79 25 3d 2d 28 64 2a 7a  25 81 7a 65 29 2a 32 0d  |y%=-(d*z%.ze)*2.|
0000bdf0  54 f6 29 e7 ac 67 72 65  65 6e 25 e7 79 25 3e 2d  |T.)..green%.y%>-|
0000be00  33 32 84 79 25 3c 26 46  46 46 46 38 30 30 30 20  |32.y%<&FFFF8000 |
0000be10  79 25 3d 2d 36 30 30 30  0d 55 00 0d f0 70 25 2c  |y%=-6000.U...p%,|
0000be20  78 25 2c 79 25 0d 55 0a  05 e1 0d 55 14 07 f4 20  |x%,y%.U....U... |
0000be30  15 0d 55 1e 1c dd a4 6d  61 70 31 3a 50 25 2b 3d  |..U....map1:P%+=|
0000be40  31 3a 3d 6d 61 70 3f 28  50 25 2d 31 29 0d 55 28  |1:=map?(P%-1).U(|
0000be50  07 f4 20 15 0d 55 32 24  dd a4 6d 61 70 32 3a 50  |.. ..U2$..map2:P|
0000be60  25 2b 3d 32 3a 51 25 3d  6d 61 70 21 28 50 25 2d  |%+=2:Q%=map!(P%-|
0000be70  32 29 80 26 46 46 46 46  0d 55 3c 1c e7 51 25 3e  |2).&FFFF.U<..Q%>|
0000be80  26 37 46 46 46 51 25 3d  51 25 84 26 46 46 46 46  |&7FFFQ%=Q%.&FFFF|
0000be90  30 30 30 30 0d 55 46 07  3d 51 25 0d 55 50 07 f4  |0000.UF.=Q%.UP..|
0000bea0  20 15 0d 55 5a 0b dd f2  74 72 65 65 73 0d 55 64  | ..UZ...trees.Ud|
0000beb0  1e 50 46 25 3d b9 3a 50  42 25 3d 2d 28 64 2a 48  |.PF%=.:PB%=-(d*H|
0000bec0  25 81 28 72 2a 4d 61 29  29 2a 32 0d 55 6e 1d 50  |%.(r*Ma))*2.Un.P|
0000bed0  54 25 3d 2d 28 64 2a 28  48 25 2d 33 30 29 81 28  |T%=-(d*(H%-30).(|
0000bee0  72 2a 4d 61 29 29 2a 32  0d 55 78 1d 46 42 25 3d  |r*Ma))*2.Ux.FB%=|
0000bef0  2d 28 64 2a 28 48 25 2d  32 34 29 81 28 72 2a 4d  |-(d*(H%-24).(r*M|
0000bf00  61 29 29 2a 32 0d 55 82  56 78 65 3d 76 61 2a 46  |a))*2.U.Vxe=va*F|
0000bf10  78 2b 76 62 2a 46 79 3a  7a 65 3d 28 76 69 2a 46  |x+vb*Fy:ze=(vi*F|
0000bf20  78 2b 76 61 2a 46 79 2b  72 29 2a 4d 61 3a 46 58  |x+va*Fy+r)*Ma:FX|
0000bf30  25 3d 64 2a 78 65 20 81  7a 65 3a 46 59 25 3d 2d  |%=d*xe .ze:FY%=-|
0000bf40  28 64 2a 28 48 25 2d 31  36 2d 28 73 74 72 65 6e  |(d*(H%-16-(stren|
0000bf50  25 81 34 29 29 81 7a 65  29 2a 32 0d 55 8c 0c e7  |%.4)).ze)*2.U...|
0000bf60  67 72 65 65 6e 25 e1 0d  55 96 0f e3 54 25 3d 41  |green%..U...T%=A|
0000bf70  41 25 b8 31 88 b9 0d 55  a0 18 58 31 25 3d 78 25  |A%.1...U..X1%=x%|
0000bf80  28 54 25 29 3a 59 25 3d  79 25 28 54 25 29 0d 55  |(T%):Y%=y%(T%).U|
0000bf90  aa 3d e7 50 46 25 80 59  25 3c 50 42 25 20 e6 31  |.=.PF%.Y%<PB% .1|
0000bfa0  31 3a ec 30 2c 50 42 25  3a df 30 2c 50 54 25 3a  |1:.0,PB%:.0,PT%:|
0000bfb0  e6 33 3a ec 30 2c 46 42  25 3a f0 38 35 2c 46 58  |.3:.0,FB%:.85,FX|
0000bfc0  25 2c 46 59 25 3a 50 46  25 3d a3 0d 55 b4 2a e7  |%,FY%:PF%=..U.*.|
0000bfd0  28 94 58 31 25 3e 34 30  30 84 59 25 3e 2d 37 30  |(.X1%>400.Y%>-70|
0000bfe0  38 29 80 94 58 31 25 3c  38 30 30 80 59 25 3e 2d  |8)..X1%<800.Y%>-|
0000bff0  31 30 30 30 8c 0d 55 be  41 78 25 3d 28 94 59 25  |1000..U.Ax%=(.Y%|
0000c000  2d 94 7a 25 28 54 25 29  29 3e 3e 31 3a 79 25 3d  |-.z%(T%))>>1:y%=|
0000c010  2d 78 25 3e 3e 32 3a 79  61 25 3d 79 25 2a 31 2e  |-x%>>2:ya%=y%*1.|
0000c020  35 3a 78 61 25 3d 78 25  3e 3e 34 3a 79 64 25 3d  |5:xa%=x%>>4:yd%=|
0000c030  79 61 25 3e 3e 32 0d 55  c8 2b e6 74 72 25 21 28  |ya%>>2.U.+.tr%!(|
0000c040  28 28 70 78 25 2b 31 29  80 33 29 2a 34 29 3a c8  |((px%+1).3)*4):.|
0000c050  93 c8 90 58 31 25 2c 59  25 2c 2d 78 61 25 2c 79  |...X1%,Y%,-xa%,y|
0000c060  25 0d 55 d2 2a e6 74 72  25 21 28 28 28 70 78 25  |%.U.*.tr%!(((px%|
0000c070  2b 32 29 80 33 29 2a 34  29 3a c8 93 c8 90 58 31  |+2).3)*4):....X1|
0000c080  25 2c 59 25 2c 78 61 25  2c 79 25 0d 55 dc 31 59  |%,Y%,xa%,y%.U.1Y|
0000c090  25 2b 3d 79 25 3a 78 61  25 3d 78 61 25 2a 32 3a  |%+=y%:xa%=xa%*2:|
0000c0a0  7a 25 28 54 25 29 3d a3  3a 78 25 3d 78 25 2a 2e  |z%(T%)=.:x%=x%*.|
0000c0b0  38 3a 78 61 25 3d 78 61  25 2a 2e 38 0d 55 e6 26  |8:xa%=xa%*.8.U.&|
0000c0c0  d6 70 6c 6f 74 74 72 65  65 2c 78 61 25 2c 79 25  |.plottree,xa%,y%|
0000c0d0  2c 78 25 2c 58 31 25 2c  59 25 2c 79 61 25 2c 79  |,x%,X1%,Y%,ya%,y|
0000c0e0  64 25 0d 55 f0 0e cc 20  7a 25 28 54 25 29 3d b9  |d%.U... z%(T%)=.|
0000c0f0  0d 55 fa 05 cd 0d 56 04  05 ed 0d 56 0e 05 e1 0d  |.U....V....V....|
0000c100  56 18 07 f4 20 15 0d 56  22 0e dd f2 69 6e 69 74  |V... ..V"...init|
0000c110  69 61 74 65 0d 56 2c 25  48 61 6e 64 25 3d 30 3a  |iate.V,%Hand%=0:|
0000c120  67 72 65 65 6e 25 3d 30  3a 74 65 65 3d a3 3a 49  |green%=0:tee=.:I|
0000c130  6e 65 64 69 74 6f 72 3d  a3 0d 56 36 08 e6 30 2c  |neditor=..V6..0,|
0000c140  31 0d 56 40 10 f2 63 6f  6c 6f 75 72 73 28 31 32  |1.V@..colours(12|
0000c150  29 0d 56 4a 16 de 72 65  64 25 28 31 33 2c 31 29  |).VJ..red%(13,1)|
0000c160  2c 46 24 28 37 37 29 0d  56 54 12 de 20 43 4c 25  |,F$(77).VT.. CL%|
0000c170  28 31 2c 31 32 2c 31 32  29 0d 56 5e 0f de 20 63  |(1,12,12).V^.. c|
0000c180  6f 64 65 20 26 39 30 30  0d 56 68 0f de 20 6d 61  |ode &900.Vh.. ma|
0000c190  70 20 26 36 44 30 30 0d  56 72 0d de 20 70 61 72  |p &6D00.Vr.. par|
0000c1a0  62 20 32 30 0d 56 7c 1a  de 20 78 25 28 39 36 29  |b 20.V|.. x%(96)|
0000c1b0  2c 79 25 28 39 36 29 2c  7a 25 28 39 36 29 0d 56  |,y%(96),z%(96).V|
0000c1c0  86 23 de 54 58 25 28 31  33 29 2c 54 59 25 28 31  |.#.TX%(13),TY%(1|
0000c1d0  33 29 2c 41 24 28 31 33  29 2c 43 56 25 28 31 33  |3),A$(13),CV%(13|
0000c1e0  29 0d 56 90 43 de 6d 78  25 28 31 2c 31 29 2c 6d  |).V.C.mx%(1,1),m|
0000c1f0  79 25 28 31 29 2c 6d 25  28 38 2c 31 29 2c 62 61  |y%(1),m%(8,1),ba|
0000c200  67 25 28 31 29 2c 6e 61  6d 65 24 28 36 29 2c 64  |g%(1),name$(6),d|
0000c210  65 66 6e 61 6d 65 24 28  36 29 3a 70 6c 61 79 65  |efname$(6):playe|
0000c220  72 25 3d 31 0d 56 9a 89  de 68 6f 6c 65 73 63 6f  |r%=1.V...holesco|
0000c230  72 65 73 25 28 36 2c 31  38 29 2c 63 75 72 72 65  |res%(6,18),curre|
0000c240  6e 74 78 25 28 36 29 2c  63 75 72 72 65 6e 74 79  |ntx%(6),currenty|
0000c250  25 28 36 29 2c 63 75 72  72 65 6e 74 52 25 28 36  |%(6),currentR%(6|
0000c260  29 2c 63 75 72 72 65 6e  74 53 25 28 36 29 2c 63  |),currentS%(6),c|
0000c270  75 72 72 65 6e 74 73 25  28 36 29 2c 74 6f 74 73  |urrents%(6),tots|
0000c280  63 6f 72 65 25 28 36 29  2c 6f 6c 64 70 6f 73 25  |core%(6),oldpos%|
0000c290  28 36 29 2c 68 73 70 25  28 36 29 2c 68 61 6e 64  |(6),hsp%(6),hand|
0000c2a0  25 28 36 29 2c 6a 75 6d  70 25 28 36 29 0d 56 a4  |%(6),jump%(6).V.|
0000c2b0  10 de 43 28 34 35 29 2c  53 28 34 35 29 0d 56 ae  |..C(45),S(45).V.|
0000c2c0  10 de 73 61 25 28 31 2c  32 2c 32 30 29 0d 56 b8  |..sa%(1,2,20).V.|
0000c2d0  11 63 75 72 72 65 6e 74  73 25 28 29 3d 31 0d 56  |.currents%()=1.V|
0000c2e0  c2 0b e3 49 25 3d 32 b8  34 0d 56 cc 0c e3 4e 25  |...I%=2.4.V...N%|
0000c2f0  3d 30 b8 32 30 0d 56 d6  1f 73 61 25 28 30 2c 49  |=0.20.V..sa%(0,I|
0000c300  25 2d 32 2c 4e 25 29 3d  b3 28 49 25 2a 38 29 2d  |%-2,N%)=.(I%*8)-|
0000c310  49 25 2a 34 0d 56 e0 23  73 61 25 28 31 2c 49 25  |I%*4.V.#sa%(1,I%|
0000c320  2d 32 2c 4e 25 29 3d 49  25 2a 31 32 2b 31 36 2b  |-2,N%)=I%*12+16+|
0000c330  b3 28 49 25 29 2a 34 0d  56 ea 05 ed 0d 56 f4 05  |.(I%)*4.V....V..|
0000c340  ed 0d 56 fe 0c e3 54 25  3d 30 b8 34 35 0d 57 08  |..V...T%=0.45.W.|
0000c350  21 43 28 54 25 29 3d 9b  b2 28 54 25 2a 38 29 3a  |!C(T%)=..(T%*8):|
0000c360  53 28 54 25 29 3d b5 b2  28 54 25 2a 38 29 0d 57  |S(T%)=..(T%*8).W|
0000c370  12 05 ed 0d 57 1c 28 6d  78 25 28 30 2c 31 29 3d  |....W.(mx%(0,1)=|
0000c380  2d 32 3a 6d 78 25 28 30  2c 30 29 3d 2d 39 36 3a  |-2:mx%(0,0)=-96:|
0000c390  6d 79 25 28 30 29 3d 2d  37 32 38 0d 57 26 2a 6d  |my%(0)=-728.W&*m|
0000c3a0  78 25 28 31 2c 31 29 3d  2d 34 3a 6d 78 25 28 31  |x%(1,1)=-4:mx%(1|
0000c3b0  2c 30 29 3d 2d 36 34 3a  6d 79 25 28 31 29 3d 2d  |,0)=-64:my%(1)=-|
0000c3c0  31 33 31 32 31 0d 57 30  1c 62 61 67 25 28 30 29  |13121.W0.bag%(0)|
0000c3d0  3d 2d 31 39 36 3a 62 61  67 25 28 31 29 3d 31 32  |=-196:bag%(1)=12|
0000c3e0  30 0d 57 3a 17 73 78 25  3d b9 3a 73 79 25 3d b9  |0.W:.sx%=.:sy%=.|
0000c3f0  3a 72 3d 31 31 30 39 36  0d 57 44 0a f7 20 8d 50  |:r=11096.WD.. .P|
0000c400  56 58 0d 57 4e 0c e3 54  25 3d 30 b8 31 33 0d 57  |VX.WN..T%=0.13.W|
0000c410  58 23 f3 54 58 25 28 54  25 29 2c 54 59 25 28 54  |X#.TX%(T%),TY%(T|
0000c420  25 29 2c 41 24 28 54 25  29 2c 43 56 25 28 54 25  |%),A$(T%),CV%(T%|
0000c430  29 0d 57 62 05 ed 0d 57  6c 0e f2 77 65 6c 6c 69  |).Wb...Wl..welli|
0000c440  65 28 30 29 0d 57 76 17  e3 54 25 3d 31 b8 38 3a  |e(0).Wv..T%=1.8:|
0000c450  f3 6d 25 28 54 25 2c 31  29 3a ed 0d 57 80 24 e3  |.m%(T%,1):..W.$.|
0000c460  49 25 3d 30 b8 31 3a e3  54 25 3d 30 b8 31 33 3a  |I%=0.1:.T%=0.13:|
0000c470  f3 72 65 64 25 28 54 25  2c 49 25 29 3a ed 2c 0d  |.red%(T%,I%):.,.|
0000c480  57 8a 27 43 58 25 3d 30  3a 43 59 25 3d 30 3a 53  |W.'CX%=0:CY%=0:S|
0000c490  58 25 3d 30 3a 53 59 25  3d 30 3a 58 49 25 3d 30  |X%=0:SY%=0:XI%=0|
0000c4a0  3a 59 49 25 3d 30 0d 57  94 25 68 25 3d 30 3a 78  |:YI%=0.W.%h%=0:x|
0000c4b0  31 25 3d 30 3a 79 31 25  3d 30 3a 4b 25 3d 30 3a  |1%=0:y1%=0:K%=0:|
0000c4c0  42 59 25 3d 30 3a 62 73  25 3d 30 0d 57 9e 16 64  |BY%=0:bs%=0.W..d|
0000c4d0  65 66 6e 61 6d 65 24 28  31 29 3d 22 4a 4f 48 4e  |efname$(1)="JOHN|
0000c4e0  22 0d 57 a8 18 64 65 66  6e 61 6d 65 24 28 32 29  |".W..defname$(2)|
0000c4f0  3d 22 47 45 4f 52 47 45  22 0d 57 b2 16 64 65 66  |="GEORGE".W..def|
0000c500  6e 61 6d 65 24 28 33 29  3d 22 50 41 55 4c 22 0d  |name$(3)="PAUL".|
0000c510  57 bc 17 64 65 66 6e 61  6d 65 24 28 34 29 3d 22  |W..defname$(4)="|
0000c520  52 49 4e 47 4f 22 0d 57  c6 16 64 65 66 6e 61 6d  |RINGO".W..defnam|
0000c530  65 24 28 35 29 3d 22 4d  49 43 4b 22 0d 57 d0 17  |e$(5)="MICK".W..|
0000c540  64 65 66 6e 61 6d 65 24  28 36 29 3d 22 4a 45 52  |defname$(6)="JER|
0000c550  52 59 22 0d 57 da 09 f2  63 6f 64 65 0d 57 e4 0c  |RY".W...code.W..|
0000c560  2a 50 4f 49 4e 54 45 52  0d 57 ee 08 c8 97 20 87  |*POINTER.W.... .|
0000c570  0d 57 f8 10 c8 97 fb 31  2c 30 2c 32 34 30 2c 30  |.W.....1,0,240,0|
0000c580  0d 58 02 10 c8 97 fb 32  2c 30 2c 31 32 38 2c 30  |.X.....2,0,128,0|
0000c590  0d 58 0c 05 e1 0d 58 16  12 dc 31 2c 32 2c 31 20  |.X....X...1,2,1 |
0000c5a0  57 4f 4f 44 2c 37 34 0d  58 20 12 dc 31 2c 33 2c  |WOOD,74.X ..1,3,|
0000c5b0  33 20 57 4f 4f 44 2c 37  30 0d 58 2a 12 dc 31 2c  |3 WOOD,70.X*..1,|
0000c5c0  34 2c 35 20 57 4f 4f 44  2c 36 38 0d 58 34 12 dc  |4,5 WOOD,68.X4..|
0000c5d0  39 2c 32 2c 31 20 49 52  4f 4e 2c 36 37 0d 58 3e  |9,2,1 IRON,67.X>|
0000c5e0  12 dc 39 2c 33 2c 32 20  49 52 4f 4e 2c 36 35 0d  |..9,3,2 IRON,65.|
0000c5f0  58 48 12 dc 39 2c 34 2c  33 20 49 52 4f 4e 2c 36  |XH..9,4,3 IRON,6|
0000c600  33 0d 58 52 12 dc 39 2c  35 2c 34 20 49 52 4f 4e  |3.XR..9,5,4 IRON|
0000c610  2c 36 31 0d 58 5c 12 dc  39 2c 36 2c 35 20 49 52  |,61.X\..9,6,5 IR|
0000c620  4f 4e 2c 35 39 0d 58 66  12 dc 39 2c 37 2c 36 20  |ON,59.Xf..9,7,6 |
0000c630  49 52 4f 4e 2c 35 37 0d  58 70 13 dc 31 37 2c 32  |IRON,57.Xp..17,2|
0000c640  2c 37 20 49 52 4f 4e 2c  35 35 0d 58 7a 13 dc 31  |,7 IRON,55.Xz..1|
0000c650  37 2c 33 2c 38 20 49 52  4f 4e 2c 35 33 0d 58 84  |7,3,8 IRON,53.X.|
0000c660  13 dc 31 37 2c 34 2c 39  20 49 52 4f 4e 2c 34 38  |..17,4,9 IRON,48|
0000c670  0d 58 8e 12 dc 31 37 2c  36 2c 57 45 44 47 45 2c  |.X...17,6,WEDGE,|
0000c680  34 31 0d 58 98 13 dc 31  37 2c 37 2c 50 55 54 54  |41.X...17,7,PUTT|
0000c690  45 52 2c 36 30 0d 58 a2  18 dc 39 2c 31 30 2c 31  |ER,60.X...9,10,1|
0000c6a0  30 2c 31 31 2c 31 31 2c  39 2c 39 2c 39 0d 58 ac  |0,11,11,9,9,9.X.|
0000c6b0  2f dc 33 30 2c 34 30 2c  34 38 2c 35 35 2c 36 31  |/.30,40,48,55,61|
0000c6c0  2c 36 36 2c 37 31 2c 37  36 2c 38 31 2c 38 35 2c  |,66,71,76,81,85,|
0000c6d0  38 39 2c 39 33 2c 39 36  2c 31 30 30 0d 58 b6 27  |89,93,96,100.X.'|
0000c6e0  dc 31 2c 31 2c 31 2c 31  2c 31 2c 31 2c 31 35 2c  |.1,1,1,1,1,1,15,|
0000c6f0  34 30 2c 35 35 2c 36 36  2c 37 36 2c 38 35 2c 39  |40,55,66,76,85,9|
0000c700  33 2c 31 0d 58 c0 07 f4  20 15 0d 58 ca 11 dd f2  |3,1.X... ..X....|
0000c710  63 6f 6c 6f 75 72 73 28  4d 25 29 0d 58 d4 0c c8  |colours(M%).X...|
0000c720  96 3a eb 4d 25 3a 87 0d  58 de 0d f2 6d 61 69 6e  |.:.M%:..X...main|
0000c730  63 6f 6c 73 0d 58 e8 0f  ef 32 33 2c 31 37 2c 34  |cols.X...23,17,4|
0000c740  2c 31 7c 0d 58 f2 29 ef  32 33 2c 32 2c 26 45 46  |,1|.X.).23,2,&EF|
0000c750  2c 26 46 45 2c 26 45 46  2c 26 46 45 2c 26 45 46  |,&FE,&EF,&FE,&EF|
0000c760  2c 26 46 45 2c 26 45 46  2c 26 46 45 0d 58 fc 29  |,&FE,&EF,&FE.X.)|
0000c770  ef 32 33 2c 33 2c 26 31  32 2c 26 32 31 2c 26 31  |.23,3,&12,&21,&1|
0000c780  32 2c 26 32 31 2c 26 31  32 2c 26 32 31 2c 26 31  |2,&21,&12,&21,&1|
0000c790  32 2c 26 32 31 0d 59 06  29 ef 32 33 2c 34 2c 26  |2,&21.Y.).23,4,&|
0000c7a0  43 30 2c 26 30 43 2c 26  43 30 2c 26 30 43 2c 26  |C0,&0C,&C0,&0C,&|
0000c7b0  43 30 2c 26 30 43 2c 26  43 30 2c 26 30 43 0d 59  |C0,&0C,&C0,&0C.Y|
0000c7c0  10 29 ef 32 33 2c 35 2c  26 44 34 2c 26 34 44 2c  |.).23,5,&D4,&4D,|
0000c7d0  26 44 34 2c 26 34 44 2c  26 44 34 2c 26 34 44 2c  |&D4,&4D,&D4,&4D,|
0000c7e0  26 44 34 2c 26 34 44 0d  59 1a 05 e1 0d 59 24 0e  |&D4,&4D.Y....Y$.|
0000c7f0  dd f2 6d 61 69 6e 63 6f  6c 73 0d 59 2e 07 f4 20  |..maincols.Y... |
0000c800  15 0d 59 38 14 fb 30 2c  30 2c 30 2c 30 3a f4 20  |..Y8..0,0,0,0:. |
0000c810  42 4c 41 43 4b 0d 59 42  1c fb 31 2c 31 37 36 2c  |BLACK.YB..1,176,|
0000c820  31 32 38 2c 30 3a f4 20  44 41 52 4b 20 53 41 4e  |128,0:. DARK SAN|
0000c830  44 0d 59 4c 1e fb 32 2c  31 37 36 2c 31 36 30 2c  |D.YL..2,176,160,|
0000c840  34 38 3a f4 20 4c 49 47  48 54 20 53 41 4e 44 0d  |48:. LIGHT SAND.|
0000c850  59 56 1a fb 33 2c 32 30  38 2c 31 36 30 2c 31 34  |YV..3,208,160,14|
0000c860  34 3a f4 20 46 4c 45 53  48 0d 59 60 19 fb 34 2c  |4:. FLESH.Y`..4,|
0000c870  31 34 34 2c 31 34 34 2c  31 34 34 3a f4 20 50 41  |144,144,144:. PA|
0000c880  54 48 0d 59 6a 17 fb 35  2c 31 36 2c 32 30 38 2c  |TH.Yj..5,16,208,|
0000c890  30 3a f4 20 47 52 45 45  4e 0d 59 74 19 fb 36 2c  |0:. GREEN.Yt..6,|
0000c8a0  33 32 2c 31 34 34 2c 32  30 38 3a f4 20 57 41 54  |32,144,208:. WAT|
0000c8b0  45 52 0d 59 7e 18 fb 37  2c 30 2c 31 36 30 2c 30  |ER.Y~..7,0,160,0|
0000c8c0  3a f4 20 46 41 49 52 57  41 59 0d 59 88 14 fb 38  |:. FAIRWAY.Y...8|
0000c8d0  2c 32 30 38 2c 30 2c 30  3a f4 20 52 45 44 0d 59  |,208,0,0:. RED.Y|
0000c8e0  92 16 fb 39 2c 30 2c 31  31 32 2c 30 3a f4 20 52  |...9,0,112,0:. R|
0000c8f0  4f 55 47 48 0d 59 9c 18  fb 31 30 2c 39 36 2c 31  |OUGH.Y...10,96,1|
0000c900  39 32 2c 32 32 34 3a f4  20 53 4b 59 0d 59 a6 1b  |92,224:. SKY.Y..|
0000c910  fb 31 31 2c 32 34 30 2c  32 34 30 2c 32 34 30 3a  |.11,240,240,240:|
0000c920  f4 20 57 48 49 54 45 0d  59 b0 1d fb 31 32 2c 38  |. WHITE.Y...12,8|
0000c930  30 2c 34 38 2c 31 36 3a  f4 20 44 41 52 4b 20 42  |0,48,16:. DARK B|
0000c940  52 4f 57 4e 0d 59 ba 1e  fb 31 33 2c 39 36 2c 36  |ROWN.Y...13,96,6|
0000c950  34 2c 34 38 3a f4 20 4c  49 47 48 54 20 42 52 4f  |4,48:. LIGHT BRO|
0000c960  57 4e 0d 59 c4 24 fb 31  34 2c 31 36 2c 36 34 2c  |WN.Y.$.14,16,64,|
0000c970  34 38 3a f4 20 44 41 52  4b 20 47 52 45 45 4e 20  |48:. DARK GREEN |
0000c980  28 54 52 45 45 29 0d 59  ce 26 fb 31 35 2c 30 2c  |(TREE).Y.&.15,0,|
0000c990  39 36 2c 36 34 3a f4 20  4c 49 47 48 54 45 52 20  |96,64:. LIGHTER |
0000c9a0  47 52 45 45 4e 20 28 54  52 45 45 29 0d 59 d8 05  |GREEN (TREE).Y..|
0000c9b0  e1 0d 59 e2 07 f4 20 15  0d 59 ec 0d dd f2 70 6f  |..Y... ..Y....po|
0000c9c0  69 6e 74 65 72 0d 59 f6  15 de 70 61 72 20 32 30  |inter.Y...par 20|
0000c9d0  2c 62 6c 6f 63 6b 20 31  31 32 0d 5a 00 09 f7 8d  |,block 112.Z....|
0000c9e0  40 6e 5a 0d 5a 0a 1b e3  54 25 3d 30 b8 31 30 38  |@nZ.Z...T%=0.108|
0000c9f0  88 34 3a f3 62 6c 6f 63  6b 21 54 25 3a ed 0d 5a  |.4:.block!T%:..Z|
0000ca00  14 0a 3f 70 61 72 3d 30  0d 5a 1e 0b 70 61 72 3f  |..?par=0.Z..par?|
0000ca10  31 3d 32 0d 5a 28 0b 70  61 72 3f 32 3d 38 0d 5a  |1=2.Z(.par?2=8.Z|
0000ca20  32 0c 70 61 72 3f 33 3d  31 34 0d 5a 3c 0c 70 61  |2.par?3=14.Z<.pa|
0000ca30  72 3f 34 3d 31 36 0d 5a  46 0b 70 61 72 3f 35 3d  |r?4=16.ZF.par?5=|
0000ca40  37 0d 5a 50 0f 70 61 72  21 36 3d 62 6c 6f 63 6b  |7.ZP.par!6=block|
0000ca50  0d 5a 5a 07 eb 31 32 0d  5a 64 2a 41 25 3d 32 31  |.ZZ..12.Zd*A%=21|
0000ca60  3a 42 25 3d 70 61 72 3a  43 25 3d 70 61 72 20 81  |:B%=par:C%=par .|
0000ca70  32 35 36 3a c8 99 20 37  2c 41 25 2c 42 25 2c 43  |256:.. 7,A%,B%,C|
0000ca80  25 0d 5a 6e b4 dc 26 41  41 41 41 2c 26 41 41 41  |%.Zn..&AAAA,&AAA|
0000ca90  41 30 30 30 30 2c 26 39  35 35 36 2c 26 39 35 35  |A0000,&9556,&955|
0000caa0  36 30 30 30 30 2c 26 41  41 39 36 2c 26 39 36 41  |60000,&AA96,&96A|
0000cab0  41 30 30 30 30 2c 26 41  36 2c 26 39 41 30 30 30  |A0000,&A6,&9A000|
0000cac0  30 30 30 2c 26 32 41 2c  26 41 38 30 30 30 30 30  |000,&2A,&A800000|
0000cad0  30 2c 26 30 2c 26 30 2c  26 30 2c 26 30 2c 26 30  |0,&0,&0,&0,&0,&0|
0000cae0  2c 26 30 2c 26 30 2c 26  30 2c 26 32 41 2c 26 41  |,&0,&0,&0,&2A,&A|
0000caf0  38 30 30 30 30 30 30 2c  26 41 36 2c 26 39 41 30  |8000000,&A6,&9A0|
0000cb00  30 30 30 30 30 2c 26 41  41 39 36 2c 26 39 36 41  |00000,&AA96,&96A|
0000cb10  41 30 30 30 30 2c 26 39  35 35 36 2c 26 39 35 35  |A0000,&9556,&955|
0000cb20  36 30 30 30 30 2c 26 41  41 41 41 2c 26 41 41 41  |60000,&AAAA,&AAA|
0000cb30  41 30 30 30 30 0d 5a 78  05 e1 0d 5a 82 07 f4 20  |A0000.Zx...Z... |
0000cb40  15 0d 5a 8c 0a dd f2 63  6f 64 65 0d 5a 96 2a ff  |..Z....code.Z.*.|
0000cb50  28 22 4c 4f 41 44 20 3c  4f 62 65 79 24 44 69 72  |("LOAD <Obey$Dir|
0000cb60  3e 2e 68 6f 6c 65 64 6f  75 74 34 20 22 2b c3 7e  |>.holedout4 "+.~|
0000cb70  63 6f 64 65 29 0d 5a a0  16 70 6c 6f 74 62 61 6c  |code).Z..plotbal|
0000cb80  6c 3d 63 6f 64 65 2b 26  31 38 38 0d 5a aa 11 70  |l=code+&188.Z..p|
0000cb90  6c 6f 74 74 72 65 65 3d  63 6f 64 65 0d 5a b4 12  |lottree=code.Z..|
0000cba0  73 6f 72 74 3d 63 6f 64  65 2b 26 37 45 30 0d 5a  |sort=code+&7E0.Z|
0000cbb0  be 11 70 78 25 3d 63 6f  64 65 2b 26 31 35 38 0d  |..px%=code+&158.|
0000cbc0  5a c8 11 74 72 25 3d 63  6f 64 65 2b 26 31 34 38  |Z..tr%=code+&148|
0000cbd0  0d 5a d2 12 74 72 65 78  3d 63 6f 64 65 2b 26 34  |.Z..trex=code+&4|
0000cbe0  42 38 0d 5a dc 12 74 72  65 79 3d 63 6f 64 65 2b  |B8.Z..trey=code+|
0000cbf0  26 36 33 43 0d 5a e6 05  e1 0d ff                 |&63C.Z.....|
0000cbfb