� >!DESIGNER.HOLEDOUT3D
9� PROGRAMMED BY G.J.KEY BETWEEN 16-10-89 AND 24-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�
��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%
6�K%�dob%<>� �
@ob%=dob%
J�showchosen:�OB%(ob%):�7
T�12
^�
h�
r �dob%<>�:�sc2(�,dob%):dob%=�
|�
�
�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
�
�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
��island<0��DNL
�@�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
0<�Y%<-574�Y%>-606�bX%>2�bX%<172:bob%=13:�K%exit=�:��:��:�
:W�IFY%>-577ANDY%<-544ANDbX%>610ANDbX%<704:bob%=7:IFK%PROCdrawisland:UNTILTRUE:UNTIL0
D<�Y%>-577�Y%<-544�bX%>880�bX%<1040:bob%=8:�K%�newit:��:�0
N&�bob%<>obob%�shsc(obob%,�):obob%=0
X!�bob%�shsc(bob%,�):obob%=bob%
b�
l&�PRINTTAB(0,4)Y%,X%-48+island+len;
v�ob%<>�
�CO%(NO%)=OB%(ob%)
��ob%=6�drawtee:�0
��ob%=2�drawgreen:�0
���
��
�
���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

*�

4

>��newit

H�A$

R
*FX229

\�:��:�dJM

f�

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

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

�	*FX15

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

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

�tee=�:green=�

��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
8
*FX229
B�:��:�t~O
L�
VA$=�(0)
`�A$<>""
j�A$<>"Y"�A$<>"y"�t~O
tP%=0
~\�verify:�P%>&2E8 �7:�"ERROR MEMORY ABOUT TO BE OVERWRITTEN!!"'"PRESS SPACE":���=32:�t~O
�gp%=0:tp%=0
��T%=1�NO%-1
��CO%(T%)=&107 tp%=�
��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:�t~O
�n�tp%=� �:�8:�0,1)"THERE IS NO TEE THEREFORE I CAN'T WRITE THIS HOLE!"'"PLEASE PRESS SPACE"�7:���-99:�t~O
�� 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)
2
�T%=0�NT%
<�wrimap(TRX%(T%))
F�wrimap(TRY%(T%))
P�
Z�wrimap1(NO%)
d�T%=0�NO%-1
nC%=CO%(T%):�C%=2C%=1
x�wrimap1(C%)
��wrimap1(PTS%(T%))
��I%=0�PTS%(T%)
��wrimap(HX%(T%,I%))
��wrimap(HY%(T%,I%))
��
��
�*FX229,1
��
�
���verify
�	P%+=1
�
�T%=0�NT%
�	P%+=2
	P%+=2
�
	P%+=1
"�T%=0�NO%-1
,	P%+=2
6�I%=0�PTS%(T%)
@	P%+=2
J	P%+=2
T�
^�
h�
r
|��wrimap1(A%)
�map?P%=A%:P%+=1
��
�
���wrimap(A%)
�A%=A%*21
�map?P%=A%:P%+=1
�map?P%=A%>>8:P%+=1
��
�
���getholeno
��n%
�
*FX229
��:�� �DXQ
�
�
�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
03�0,0)"WHAT IS THE NEW HOLE No. {1 TO 18} ? "n%
:�n%>0�n%<19
Dholep=n%
Nmappoint%=(holep-1)*&300
X*FX229,1
b�
l
v��readhole
�
*FX229
��:�� �TnS
�green=�:tee=�
��
��
�	*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%
4mem=&2E8
>tee=�:green=�
HNT%=�map1-1
R
�T%=0�NT%
\TRX%(T%)=�map2 �21
fTRY%(T%)=�map2 �21
p
mem-=4
z�
�
�NO%=�map1:mem-=1
��T%=0�NO%-1
�CO%(T%)=�map1:mem-=1
��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
8�
B
L��loadcourse
V�colours(9):�screenbox
`ȗ�530,512:ȗ�
jIneditor=�
t�getcourse("EDIT")
~Ineditor=�
��colours(12)
�
�setmainv
�&mappoint%=0:map?(mappoint%+&2F8)=1
�len=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;:�DJU
�
(
*MOUNT
2ș"OS_File",5,Pointer � R0
<�R0<>0 �
Fe�meswind2("I CAN'T SAVE TO THE DESIGNER DISC","PLEASE INSERT ANOTHER DISC","AND PRESS SPACE",1,3)
P
���-99
Z�
d	�R0=0
nf���redisplay:�meswind2("    "+�$+"    ","PLEASE","PRESS SPACE",2,3):���-99:�redisplay:�=17:�DJU
xȑ0,128
��
�B�centbox(�,�13," ")+"CURRENT DISC CATALOGUE"+�13," "),8,20):�8
��24,16;272;1263;1007;
��GCOL128+11:CLG:GCOL128+6
��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$
6)�("SAVE $."+file$+" "+�~map+" +3600")
@ �("SETTYPE $."+file$+" C1F")
J*FX229,1
T�redisplay
^�
h
r��inserttrees
|*FX229,1
��flag,C%
��:�butt(0)
�!�"INSERT OR DELETE TREES"':�8
��"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�
0�NT%<95�
:�mem>4�
D
NT%+=1
N�14
XȏȐX%,Y%,8
b'TRX%(NT%)=-Y%/1.5:TRY%(NT%)=-X%/1.5
l
mem-=4
v�butt(0)
���7
��
��
��
�
�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
4�redisplay
>�butt(0)
H�
R��7
\�
f�
p	�K%=1
z�butt(0)
�*FX229,1
��
�
�
��drawtee
�
�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
8ȗ�x%,y%
B�K%
LX%=-x%/1.5:Y%=-y%/1.5
VHX%(NO%,0)=Y%:HY%(NO%,0)=X%
`-P%=mappoint%+&2E8:�wrimap(Y%):�wrimap(X%)
jlen=��distance(X%,Y%)
tb=��a%:c=��a%
~6HX%(NO%,0)=b*-10+-c*20+Y%:HY%(NO%,0)=c*-10+b*20+X%
�4HX%(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%
�8HX%(NO%,3)=b*-10+-c*-20+Y%:HY%(NO%,3)=c*-10+b*-20+X%
�teeX%=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
2B�0,0)"SELECT AND MOVE POINTS TO THEIR REQUIRED POSITIONS    "
<=� 8:�0,4)"RIGHT BUTTON TO EXIT"'"ESCAPE TO ABORT"�30:�13
F�CO%(X%)=5�7:�0
P��
Zqb%=CO%(X%)
d�outline
n�butt(0)
x�
��
�ȗx%,y%,K%
�
flag=�
��K%�
��T%=0�PTS%(X%)
�B�(-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
6�x%<>0�
@�
J	Ȗ:Ȗ
T�x1%,y1%,x3%,y3%
^�x3%,y3%,x2%,y2%
hȏx3%,y3%,8
r�
|ȗx3%,y3%,K%
��qb%=2�qb%=4�qb%=6�
�$�(x3%/1.5)<-(len-(�(y3%�6))-40)�
� x3%=-(len-(�(y3%�6))-40)*1.5
�ȗ�x3%,y3%
��
��
�x3%=x3%�6*6
�y3%=y3%�6*6
�1�58,0)"Y ";-�(x3%/1.5),"X ";�(y3%/1.5);"   "
�*FX112,2
�C%=�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%
0ȏx3%,y3%,8
:	�K%=0
D�
N�
X	Ȗ:Ȗ
bȏx3%,y3%,8
l�
vȗx3%,y3%,K%
��qb%=2�qb%=4�qb%=6�
�$�(x3%/1.5)<-(len-(�(y3%�6))-40)�
� x3%=-(len-(�(y3%�6))-40)*1.5
�ȗ�x3%,y3%
��
��
�x3%=x3%�6*6
�y3%=y3%�6*6
�1�58,0)"Y ";-�(x3%/1.5),"X ";�(y3%/1.5);"   "
�*FX112,2
�C%=�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)
ȏx3%,y3%,8
 	�K%=0
*�
4�58,0)"                 "
>HY%(X%,x%)=-x3%/1.5
HHX%(X%,x%)=-y3%/1.5
R�redisplay
\�outline
f�0
p�
z
�
��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
��
�%ȏ-HY%(X%,0)*1.5,-HX%(X%,0)*1.5,8
��
�
��delete
�

*FX229
$��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:�dX]
8�findone
B
��delete2
L�CO%(X%)=5green=�
V�CO%(X%)=&107 tee=�
`mem=mem+6+PTS%(X%)*4
j�X%<>NO%-1�
t�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
��
�
�
��findone
�:�� �

G�0,0)"THERE ARE ";NO%-1;" OBJECTS DEFINED.  SELECT A CENTRE POINT"
�8
�T%=1�NO%-1
(%ȏ-HY%(T%,0)*1.5,-HX%(T%,0)*1.5,8
2�
<�
FȗX%,Y%,K%
P
flag=�
Q�island>0�X%>600�
Z�K%�
d�T%=1�NO%-1
nM�(�(-HY%(T%,0)*1.5-X%))<12�(�(-HX%(T%,0)*1.5-Y%))<12flag=�:X%=T%:T%=NO%-1
x�
��
��
�	�flag
��
�
���redisplay
��26:*FX112,2
��:�7
�ȑisland+len,640
� �-HY%(0,0)*1.5,-HX%(0,0)*1.5
��I%=1�PTS%(0)
� �-HY%(0,0)*1.5,-HX%(0,0)*1.5
�%�85,-HY%(0,I%)*1.5,-HX%(0,I%)*1.5
��
#�85,-HY%(0,1)*1.5,-HX%(0,1)*1.5
*FX112,1
!�26,24,12;268;1267;1011;4:�:�
"ȑisland+len,640
,��redisplay2
6��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
J�NO%>0�
T�T%=0�NO%-1
^�CO%(T%)
h"�-HY%(T%,0)*1.5,-HX%(T%,0)*1.5
r�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%
�%ȏȐ-TRY%(T%)*1.5,-TRX%(T%)*1.5,8
��
��
�	�grid
 �
 
 ��drawgreen
 &�green �7:�
 09�mem<54�"NOT ENOUGH MEMORY!! PRESS SPACE:"�7:���=32:�
 :��drawgreen2
 Dgreen=�
 N
mem-=2
 XHX%(NO%,0)=0
 bHY%(NO%,0)=0
 l
mem-=4
 vCO%(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
 ��
 �'�85,-HY%(NO%,1)*1.5,-HX%(NO%,1)*1.5
 �
NO%+=1
 ��redisplay
!�
!
!	��mou
! �C%
!*�
!4ȗX%,Y%,K%
!>�ob%>2�ob%<6�
!H"�(X%/1.5)<-(len-(�(Y%�6))-40)�
!RX%=-(len-(�(Y%�6))-40)*1.5
!fȗ�X%,Y%
!p�
!z�
!�
X%=X%�6*6
!�
Y%=Y%�6*6
!�/�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
!�;�(C%=7�island>0)�(ob%=0�island<0�X%>600�X%<900��Y%<220)
!��
!�
!�
��req(A$)
"�28,1,30,20,30:�
"�8:�A$;
"�28,1,30,78,25,7
"$�
".
"8��showcols
"B�
"L�T%=0�6
"V�OB%(T%):�T%*11+2)OB$(T%);
"`�
"j�
"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
"��139:�1:Ȑ1078,900
"��1,240,240,192
"��2,240,208,208
#�3,240,240,224
#
�1:ȓȐ1000,644,156,248
#�3:ȓȐ1000,644,156,124
#�T%=0�2
#(�12:ȓ1012+T%*50,800,32,64
#2�2:ȓȐ1014+T%*50,804,28,56
#<!�12:�1020+T%*50,850:�5:�;T%+1
#F
�:�4:�
#P�139:�12
#Z�28,2,30,78,3
#d��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."
#nT�'"The differences to the instructions as shown in the manual"'"are as follows:"
#xB�'"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"
#�O�'"To read courses from alternate discs simply insert the disc when in the"
#�'�"COURSES window and press ESCAPE."
#�(�'�22)"PRESS ANY BUTTON TO CONTINUE"
#��butt(0)
$!�:ȗX%,Y%,K%:�K%:�1,-10,200,1
$�butt(0)
$�28,2,30,78,1
$"	�:�14
$,
$6"�'"Operation of the EDITOR :-"
$@�12
$JP�'"The main EDITOR panel consists of a plan of the hole being edited and an"
$T>�"Options window.  The options are split into two groups."
$^Q�'"The first contains 7 different coloured drawing options which are used to"
$hH�"draw the various objects on the hole {Green, Fairway, Water ect}."
$rL�'"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"
$��"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"
$��butt(0)
$�!�:ȗX%,Y%,K%:�K%:�1,-10,200,1
%�butt(0):�
%!�"Operation of the EDITOR :-"
%R�'"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"
%0P�"you visualise it.  Placing areas of water or bunkers underneath the green"
%:A�"can have unpredictable results so try to avoid doing this."
%DR�'"If you select the 'ISLAND' option it will toggle the hole plan to the left"
%NP�"of the screen.  In this mode you will only be able to draw an island with"
%XQ�"colour 'ROUGH' and position trees on the island.  Select 'ISLAND' again to"
%b)�"return to the normal editing mode."
%lM�'"The hole plan is divided into 50 yard squares these should be used in"
%vQ�"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 "
%�H�"editor with the 'EXIT EDITOR' option and test play you own holes!"
%�)�''�22)"PRESS ANY BUTTON TO CONTINUE"
%��butt(0)
%�!�:ȗX%,Y%,K%:�K%:�1,-10,200,1
&�butt(0)
&�
&� 
& ��chofsc
&**FX112,3
&4�
&>=�x1%=� ȑ1280,768+O%-6166*green%:�ȑ0,768+O%-6166*green%
&HP%=rough
&R�map1:�drawit
&\�map1:�drawit
&fP%=water:�6:�drawit
&pG%=�xs%,ys%)
&z�G%=6�G%=11W%=�
&�*FX112,1
&��
&�� 
&�
��preview
&��
&��colours(9):�screenbox:ȗ�
&�lhol%=�choseahole
&��lhol%�drawmap(lhol%)
&��lhol%=�
&��
&�� 
&���drawmap(holeno%)
&��Ineditor �*FX229,1
'�initcloud
'li%=2:�initwind
'(�r%,l%,OL%,A%,AA%,T%,I%,SP%,X%,Y%,A$
'$X%=640:Y%=512
'.�
'8P%=mappoint%+holeno%:SP%=P%
'B&OL%=(�(�~((map!(P%+&2FA))�&FFFF)))
'L
AA%=�map1
'V
�A%=1�AA%
'`l%=�map2/10.5
'jr%=�map2/10.5
'tx%(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
'�%�map2(CX%,CY%,4):�map2(SX%,SY%,4)
'�,�I%=1�np%-1:�map2(XI%,YI%,85):�CX%,CY%:�
'��85,SX%,SY%
(	�:�14
(
8�T%=1�AA%:�-x%(T%),-y%(T%))<>6ȏȐ-x%(T%),-y%(T%),8
(�:�0:Ȓ0,0
(�26
((V�smallmes(144,166,12,"POSITION POINTER ON VIEWPOINT THEN PRESS THE MIDDLE BUTTON")
(2.�Ineditor A$="EDITOR":�:A$="HOLE SELECTOR"
(<*A$="RIGHT BUTTON TO RETURN TO THE "+A$
(F!�smallmes(608-�A$*8,66,12,A$)
(Pȗ�:ȗ�X%,Y%
(Z�
(d!ȗȓ548-OL%,310,OL%*2+180,660
(nȗX%,Y%,T%
(x'�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%:��
(��
(�� 
(���displayview(X%,Y%,SP%)
(�YY%=(((592+OL%)-X%)�2)*21
(�X%=((640-Y%)�2)*21
(�ȗ�
)�A$,mappoint%:mappoint%=SP%
)��displayview2(X%,YY%,SP%)
)�X%<42��YY%<42X%=42:YY%=42
)"7OL%=(�distance(X%,YY%)):green%=(OL%<525):OL%=OL%/21
),.A$=Course$+" HOLE "+�(holeno%�&300+1)+", "
)67�green% A$=A$+�(OL%*3)+" FEET":�A$=A$+�OL%+" YARDS"
)@A$=A$+" FROM HOLE"
)J
�light
)T�sine(X%,Y%)
)^�drawscreen
)h/�26:X%=640-�A$*8-24:�smallmes(X%,860,13,A$)
)r�butt(0)
)|�ȗX%,Y%,SP%:�SP%
)��butt(0)
)��
)�� 
)���map2(� x%,� y%,p%)
)�!y%=-�map2/10.5:x%=-�map2/10.5
)�
�p%,x%,y%
)��
)�� 
)�ݤchoseahole
)��butt(0)
)��X%,Y%,K%,F%,N%,out%
)�,�centbox(�,"PLEASE SELECT A HOLE",12,10)
)�&�mesbox(464,444,148,100):�dono2(1)
*�mesbox(704,536,80,80)
* �smallmes(704,462,12,"EXIT")
*�mesbox(704,368,80,80)
*&%�15:�744,600:�720,554:�85,768,554
*02�744,388:�720,432:�85,768,432:�720,436,768,436
*: �8:�720,432,744,388:�768,432
*D�720,558,744,600:�768,558
*Nȗȓ480,388,432,220
*XN%=1:�:ȗX%,Y%,K%
*b�K%�
*l�X%>716�
*v�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%=�
*��
*��
*�	�F%=�
*�=((N%-1)*&300)�out%
*�� 
*���dono2(A%)
+�A$,T%:A$=�(A%)
+�11:ȓȐ476,464,124,64
+�476-32*(A%<10),520
+ )�12:�T%=1��A$:�double(�(�A$,T%,1))):�
+*�
+4� 
+>��getoptions
+H�T%=1�6:jump%(T%)=T%:�
+R*CHANNELVOICE 1 1
+\�:�
+f�colours(9):�screenbox
+pȗ�640,496
+z\�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%)
+��
+��confirm(noofplayers)�0
+���
+�7� CHANGE THE FOLLOWING NUMBER TO (HOLE NO. -1)*&300
,�mappoint%=&2400
,�
,
,$��getcourse(E$)
,.�N%,I%,T%,C%,C$,E%,X,Y,Z
,8*FX21,9
,B�butt(0):*FX229
,L~�:��:�<>17�centbox(�," "+�$+" ",8,1):ȑ0,-256:�centbox(�,"PLEASE PRESS SPACE",8,1):ȑ0,0:���-99:��Ineditor:�"FX229,1":�
,V	*FX15
,`C%=1:E%=-368:I%=0
,j�
,t�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
,��N%=1�I%
,��showcat(N%,8+(N%=1)*2)
,��
-OX=1
-
�
-ȗX,Y,Z
-'X=-(X>640)+((T%-20+I%*18)-Y)�36*2+1
-(
�X>I%X=I%
-2,�X<>OX �showcat(OX,8):�showcat(X,6):OX=X
-<�Z
-FCourse$=�no_s(F$(X))
-P�"L. $."+F$(X)+" "+�~map
-Z*FX229,1
-d�
-n
-x��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%))
-��
-�
-�ݤno_s(C$)
-��T%
-�
�T%=1��C$
.�C$,T%,1)="_"�C$,T%,1)=" "
.�
.=C$
."
.,
��readdir
.6(�R4,T%,C%,name,Point,buffer,filetype
.@
*MOUNT
.J� Point 11,buffer 34,name 2
.T$name="*":filetype=&C1F
.^$Point="$"+�0:R4=0
.h�
.r6ș"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
.��
.�� 
.�ݤconfirm(T%)
.��N%,I%,A$:I%=(T%+(T%�1))
/�butt(0)
/�colours(12):�screenbox
/Z�centbox(�,"            ARE THE FOLLOWING GAME OPTIONS CORRECT?            ",15,10+I%)
/&!�28,10,20+I%�2,69,13-I%�2,4:�
/0�12:�139:�;T%;" PLAYER";
/:�T%<>1�"S";
/D*�",  PLAYING AT ";Course$;",  UNDER ";
/NȎplay%�
/X�1:�"MATCH";
/b�2:�"STROKE";
/l�
/v�" 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);
/�Ȏhand%(N%)�
/��0:�"RIGHT";
/��1:�"LEFT";
/��
/��" HANDED"�46);
0 A$=�skillname(currents%(N%))
0�A$
0�
0 �12:��60,"-")
0*$�smallmes(520,368-I%*16,8,"YES")
04#�smallmes(680,368-I%*16,8,"NO")
0>!ȗȓ536,376-I%*16,208,44:ȗ �
0H�
0RȗX%,Y%,K%
0\�(X%<590�X%>692)�K%
0f�1,-10,200,1
0p=X%>692
0z�
0�� 
0���boardcol
0��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
0��
0�� 
0���getskill(T%)
0��butt(0)
0��X%,Y%,K%,F%,N%
1;�centbox(�,"WHAT IS "+name$(T%)+"S SKILL LEVEL?",15,12)
13�mesbox(356,464,416,64):�doskill(currents%(T%))
1�mesbox(820,540,80,80)
1$�mesbox(820,372,80,80)
1.%�15:�860,604:�836,558:�85,884,558
182�860,388:�836,432:�85,884,432:�836,436,884,436
1B �8:�836,432,860,388:�884,432
1L�836,562,860,604:�884,562
1Vȗȓ372,388,514,220
1`!N%=currents%(T%):�:ȗX%,Y%,K%
1j�K%�
1t�X%>836�
1~8�Y%>544�N%<4N%+=1:�doskill(N%):�1,-10,200,1:�butt(0)
1�8�Y%<442�N%>1N%-=1:�doskill(N%):�1,-10,200,1:�butt(0)
1��
1��X%<780�
1��Y%>475�Y%<514F%=�
1��
1��
1�	�F%=�
1��1,-10,200,1
1�currents%(T%)=N%
1��
1�� 
1���doskill(T%)
2�A$
2
A$=�skillname(T%)
2�11:ȓȐ372,480,12*32,32
2�12:�372,508:�A$
2(�
22� 
2<ݤskillname(T%)
2F�A$
2P	ȎT%�
2Z�1:A$="BEGINNER"
2d�2:A$="ENTHUSIAST"
2n�3:A$="AMATEUR"
2x�4:A$="PROFESSIONAL"
2��
2�=A$
2�� 
2���getname(T%)
2��butt(0)
2�*�X%,Y%,K%,Q,OX%,OY%,A$,B$:A$=name$(T%)
2��noofplayers>1�
2�	ȎT%�
2��1:B$="FIRST "
2��2:B$="SECOND "
2��3:B$="THIRD "
2��4:B$="FOURTH "
2��5:B$="FIFTH "
3�6:B$="SIXTH "
3�
3�
3"�A$<10A$=A$+�10-�A$," ")
3,6�centbox(�,"WHAT IS THE "+B$+"PLAYERS NAME?",15,8)
36ȗȓ306,480,634,48
3@�smallmes(784,472,11,"OK")
3J�smallmes(288,472,11,A$)
3TȗOX%,OY%,K%:�=1000
3^�
3h�butt(0)
3rA$=name$(T%)
3|�336,516:�A$;
3��139:*FX21
3��
3�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��
3�ȗX%,Y%,K%
3�%�>500��(X%-OX%)>8��(Y%-OY%)>8ȗ�
3��(X%>792�K%)�Q=13
3�5�A$=""�1,-15,125,20:name$(T%)=defname$(T%):�=0:��
3��1,-10,200,1:��
4�140:name$(T%)=A$
4defname$(T%)=A$
4�
4&� 
40ݤnoplaying
4:�butt(0)
4D�play%=1�=2
4N�X%,Y%,K%,F%,N%
4X)�centbox(�,"HOW MANY PLAYERS?",12,10)
4b$�mesbox(464,444,84,100):�dono(1)
4l�mesbox(704,536,80,80)
4v�mesbox(704,372,80,80)
4�%�15:�744,600:�720,554:�85,768,554
4�2�744,388:�720,432:�85,768,432:�720,436,768,436
4� �8:�720,432,744,388:�768,432
4��720,558,744,600:�768,558
4�ȗȓ480,384,292,220
4�N%=1:�:ȗX%,Y%,K%
4��K%�
4��X%>716�
4�5�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)
4��
4��X%<540�
4��Y%>456�Y%<540F%=�
5�
5�
5	�F%=�
5 �1,-10,200,1
5*=N%
54� 
5>��dono(A%)
5H�11:ȓȐ476,468,60,64
5R�476,520
5\�12:�double(A%)
5f�
5p� 
5zݤquest(A$,B$,C$,H%)
5�
�L%,D%,R%
5�R%=704+�length(�C$)
5�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
5�ȗ �
5��butt(0)
5��:ȗL%,R%,D%
5��D%�(L%<568�L%>712)
5��1,-10,200,1
6D%=-(L%>712)
6=D%
6� 
6$ݤlength(L%)
6.L%+=3:�(L%�1)-0L%+=1
68
=L%*32
6B� 
6L��double(C%)
6VC%=128+4*C%
6` �C%,C%+1,8,8,10,C%+2,C%+3,11
6j�
6t� 
6~��screenbox
6��M%:M%=�6
6��mesbox(0,0,1279,1023)
6��24,16;16;1263;1007;:�140:�
6���textwind
6��28,1,30,38*M%,1:�140:�
6��
6�� 
6���centbox(cls,A$,C%,H%)
6�
�cls �
6�
�T%,I%,M%
6���=9M%=16�M%=8
6�T%=640-�A$*M%
7I%=512+H%*16
7
=�mesbox(T%-M%,496-H%*16-20*(H%=1),�A$*M%*2+M%*2,H%*32+32)
7�C%:�T%,I%-16*(H%=1):�5:�A$
7�
7(� 
72��smallmes(x%,y%,C%,A$)
7<
�o%,M%
7F��=12M%=16�M%=32
7Po%=(1-(�A$�1))*M%
7Z$�mesbox(x%,y%,�A$*M%+M%*2+o%,64)
7d!�12:�5:�x%+M%+o%�2,y%+44:�A$;
7n�
7x� 
7���mesbox(x%,y%,X%,Y%)
7��8:ȓȐx%,y%,X%,Y%
7��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�
7���meswind2(A$,B$,C$,F%,C%)
7�*CHANNELVOICE 1 1
7��26
7��X%,x%,x2%,c%,I%,Y%
7�!Y%=80-(B$<>"")*48-(C$<>"")*48
8X%=(�A$*16+32):x%=640-X%�2
8�mesbox(x%,800,X%,Y%)
8	�3,C%
8"�5:X%=x%+16
8,x%=640-(�B$*8)
86x2%=640-(�C$*8)
8@�I%=1�F%*2+1
8J�X%,772+Y%:�A$
8T�B$<>""�x%,724+Y%:�B$
8^�C$<>""�x2%,676+Y%:�C$
8h�del(50)
8r�1,-10,180,1
8|�
8��
8�� 
8���meswind(A$,B$,C$,F%,C%)
8��meswind2(A$,B$,C$,F%,C%)
8��4:�
8��8,0
8�*SCHOOSE topofscreen
8��&ED,0,704
8�
�windows2
8��
8���board
8�'totscore%()=totscore%()+currentS%()
8�A�T%=1�noofplayers:holescores%(hsp%(T%),Hole%)=currentS%(T%):�
9
�boardcol
9�3,0,144,0:�131:�
9�winsort
9&!�P%,Y%,T%,I%,S%,mp%,A$,sc%,O%
90O%=(play%=2)*4:�26
9:�0:ȓȐ60,76,1156,920
9D�64,0:ȓȐ64,80,1148,128
9N�48,0:ȓȐ64,992,1148,-128
9X&�12:�768,544:�1212,992:�85,1212,80
9b"�13:�512,544:�64,80:�85,64,992
9l�11:ȓȐ98,112,1080,848
9v�0:ȓ98,112,1080,848
9�%�24,100;116;1176;956;:ȑ98,116:�5
9��14:�P%=1�6:Y%=788-P%*132
9��7:�0,Y%+124,1080,Y%+124
9��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
9�,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
9�	�:�:�
9��P%=1�noofplayers
9�5mp%=mapstart%+&2F9:Y%=728-(P%-1)*132:X%=32:par%=0
:"�T%=1�Hole%:�T%=10Y%-=40:X%=32
:7sc%=holescores%(hsp%(P%),T%)-?mp%:par%+=?mp%:�X%,Y%
:Ȏ�sc%�
: � 0:A$="PAR":�15
:*� 1:A$="+"+�sc%:�5
:4�-1:A$=�sc%:�0
:>�
:H��5-�A$," ");A$
:RX%+=120:mp%+=&300
:\�
:f5�jump%(P%)+4:�4,768-(P%-1)*132:�name$(P%)�20+O%);
:pȎcurrents%(P%)�
:z�1:�"{BEGINNER}";
:��2:�"{ENTHUSIAST}";
:��3:�"{AMATEUR}";
:��4:�"{PROFESSIONAL}";
:��
:�A�40+O%);totscore%(P%);" STROKE"�(-(totscore%(P%)>1)*83)�53);
:�6A$=" : "+�Hole%+" HOLE"+�-(Hole%>1),"S")+" PLAYED"
:�Ȏplay%�
:�
�1:�match
:��2:�stroke
:��
:��
:� �15:T%=542-�A$*8:�T%,824:�A$
:��12:ȓT%-8,788,�A$*16+14,48
;)�26:�smallmes(360,32,11," CONTINUE ")
;%�smallmes(720,32,11,"QUIT ROUND")
;�
;$ȗȓ372,44,528,40
;.ȗ�:ȗ�464,64
;8�butt(0):�=0:���>100
;B�:ȗX%,Y%,T%
;L�T%�(X%<556�X%>718)
;VD�X%>718�confirm:�X%>926�0,0:�("SCHOOSE topofscreen"):�&ED,0,0:�0
;`��
;j�0:�4:�
;tȗ�
;~�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")
;��smallmes(916,60,8,"NO")
;�ȗȓ806,72,178,40:ȗ�890,82
;��:ȗX%,Y%,T%
;��T%�(X%<866�X%>926)
<�
<
� 
<��match
<�T%,B$,S1%,S2%
<(�T%=1�Hole%
<2;� holescores%(hsp%(1),T%)<holescores%(hsp%(2),T%)S1%+=1
<<;� holescores%(hsp%(2),T%)<holescores%(hsp%(1),T%)S2%+=1
<F�:T%=�(S2%-S1%)
<P%B$=�(T%):�T%B$=B$+" UP"�B$="EVEN"
<ZB$=�14-�B$," ")+B$
<d	ȎP%�
<n�1:�S1%>=S2%�B$
<x�2:�S2%>=S1%�B$
<��
<�!A$=Course$+" : MATCH PLAY"+A$
<��
<�� 
<���stroke
<�
�T%,B$
<�#T%=totscore%(P%)-par%:B$=�(�T%)
<�
Ȏ�T%�
<��0:B$="EVEN PAR"
<��1:B$=B$+" OVER PAR"
<��-1:B$=B$+" UNDER PAR"
<��
<���14-�B$," ");B$
="A$=Course$+" : STROKE PLAY"+A$
=�
=� 
="��showwind
=,#�w$,T%,C%,s%,i%,x1%,y1%,BX%,BY%
=65�green% C%=9:w$="SLOPE":s%=-2�C%=6:w$="WIND":s%=4
=@%�13:�26,0)"DIRECTION OF"�29,1)w$
=J�T%=C%�C%+s%�s%
=T�T%
=^ȏ526,820,88+i%
=hȏ526,820,12+i%
=ri%+=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%
=�wc=5+4*green%:wc2=wc
=�1�F%:P%=mappoint%+&2F4:wx=�map2/3:wy=�map2/3:�
=�wx=0:wy=0:�skill%<3�
=�wx=Wx:wy=Wy
=��
>� 
>��initwind
>�a%
>&stren%=�(36)
>0
a%=�(360)
>:Wx=((��a%)*stren%)/9
>DWy=((��a%)*stren%)/9
>NFx=(��a%)*(15+(stren%�2))
>XFy=(��a%)*(15+(stren%�2))
>b�
>l� 
>v
��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))
>��T%=6�T%=11�
>��wellie(30)
>��
>��
>�*FX112,1
?�xs%,ys%:�BY10,16
?ox%=xs%:oy%=ys%
?osx%=xs%:osy%=ys%
? sx%=xs%:sy%=ys%
?**SGET gr
?4*SGET sh
?>�
?H� 
?R��wellie(W%)
?\�T%
?f�T%=1�8:m%(T%,0)=T%+W%:�
?pwellie%=W%=30
?z�
?�� 
?���splash
?�*CHANNELVOICE 1 PLOP
?��A$,r%,a%,T%,x%,y%
?�bad%=�:�1,-15,5,20
?��sx%<640�
?��r%=5�55�5
?�
�r%>9�
?��6:Ȗ:Ȗ
?��a%=0�45
?�2x%=xs%+C(a%)*(r%-10):y%=ys%+S(a%)*((r%-10)>>2)
?��x%,y%)=11Ȓx%,y%
?��
@�
@�11:�r%<50�
@	Ȗ:Ȗ
@$1�a%=0�45:x%=xs%+C(a%)*r%:y%=ys%+S(a%)*(r%>>2)
@.�x%,y%)=6Ȓx%,y%
@8�
@B�
@L�
@V�
@`stroke%+=1
@j!�G%=11A$="THE SEA"�A$="WATER"
@tM�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%
@��
@�%currentR%(1)=�distance(�x1%,�y1%)
@�currentx%(1)=x1%
Acurrenty%(1)=y1%
A
currentS%(1)=stroke%
A�
A� 
A(
��swapall
A2$Ȕ currentR%(I%),currentR%(I%-1)
A<$Ȕ currentx%(I%),currentx%(I%-1)
AF$Ȕ currenty%(I%),currenty%(I%-1)
AP$Ȕ currents%(I%),currents%(I%-1)
AZ$Ȕ currentS%(I%),currentS%(I%-1)
Ad$Ȕ totscore%(I%),totscore%(I%-1)
An Ȕ oldpos%(I%),oldpos%(I%-1)
AxȔ name$(I%),name$(I%-1)
A�Ȕ hsp%(I%),hsp%(I%-1)
A�Ȕ hand%(I%),hand%(I%-1)
A�Ȕ jump%(I%),jump%(I%-1)
A��
A�� 
A�
��winsort
A�
�T%,I%
A��noofplayers<>1�
A�'�T%=1�noofplayers:�I%=2�noofplayers
A��oldpos%(I%)<oldpos%(I%-1)�
A��swapall
A��
A��:�
B'�T%=1�noofplayers:�I%=2�noofplayers
B#�currentS%(I%)<currentS%(I%-1)�
B�swapall
B"�
B,�:�
B6�
B@�
BJ� 
BT��setplayer
B^�T%
Bh�T%=1�noofplayers
Broldpos%(T%)=T%
B|�
B��
B�� 
B���whichplayer
B�
�T%,I%
B��noofplayers<>1�
B��T%=1�noofplayers
B��I%=2�noofplayers
B�#�currentR%(I%)>currentR%(I%-1)�
B��swapall
B��
B��:�
B��
B�stroke%=currentS%(1)
Cskill%=currents%(1)
C#�currentx%(1)=0�currenty%(1)=0�
Cround%=�:mappoint%+=&300
C&�
C0�hand%(1)<>Hand%�
C:Hand%=hand%(1)
CD!�T%=1�11:�("SFlipY "+�(T%)):�
CN"�T%=31�38:�("SFlipY "+�(T%)):�
CX*SFlipY 20
Cb�
Cl�
Cv� 
C���getplayvals
C�$X%=currentx%(1):YY%=currenty%(1)
C��
C�� 
C���light
C�
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
C��
C�� 
C���drawscreen
DP%=mappoint%:AA%=�map1
D�caltre(x%(),y%(),z%())
D5�sort,bs%,R%,BY%,K%,x1%,y1%,h%,AA%,x%(),z%(),y%()
D �windows:�sceen
D*�
D4� 
D>��sine(X%,Y%)
DHR%=�distance(�X%,�Y%)
DR%green%=(R%<525):Ma=.7-(green%*.3)
D\1OL%=(�(�~((map!(mappoint%+&2FA))�&FFFF)))>440
Df*r=12096-2000*green%-1500*(OL%��green%)
Dp
d=r-R%
Dz(g%=-green%:O%=-6292*green%:H%=250+O%
D�va=-X%/R%:vb=Y%/R%:vi=-vb
D��
D�� 
D�ݤdistance(x%,y%)
D�=�(x%^2+y%^2)
D�� 
D���getstart
D�P%=&2E8+mappoint%:X%=�map2
D�
YY%=�map2
D�Hole%=map?(mappoint%+&2F8)
D�stx%=X%:sty%=YY%
D��YY%=15*21:X%=0
D��T%=1�noofplayers
Ecurrentx%(T%)=X%
Ecurrenty%(T%)=YY%
E#currentR%(T%)=�distance(X%,YY%)
E$currentS%(T%)=0
E.�
E8�
EB� 
EL��chhole
EV	B%-=1
E`!�(B%>0�(ya>4��green%))�h%>30�
Ej4�h%>1��(OBY%-BY%)>5�(�green%��(5)<>2)�ric:B%=4:�
Et
��chhole2
E~D%=�:*SCHOOSE sh
E��&ED,osx%,osy%
E�*SCHOOSE gr
E��&ED,ox%,oy%
E�*CHANNELVOICE 1 HOLED
E��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�� 
E���holedout
E��A$,B$,C$,F%,S%
F#S%=stroke%-map?(mappoint%+&2F9)
F
	ȎS%�
F�1:A$="IT'S A BOGIE":B$=""
F,�0:A$="HOLED OUT TO PAR":B$="WELL DONE!"
F(2�-1:A$="NICE ONE "+name$(1):B$="IT'S A BIRDIE"
F25�-2:A$="SUPERB PLAY "+name$(1):B$="IT'S AN EAGLE"
F<E�-3:A$="CONGRATULATIONS "+name$(1):B$="YOU'VE FLOWN AN ALBATROSS"
FF+ A$="HOLED OUT "+�S%+" OVER PAR":B$=""
FP�
FZcC$="":F%=3:S%=5:�stroke%=1A$="WOW! IT'S A HOLE IN ONE":B$="KNOCKED IN BY":C$=name$(1):F%=6:S%=3
Fd&� �A$<�B$�:A$=" "+A$+" ":��A$>=�B$
Fn�meswind(A$,B$,C$,F%,S%)
Fx�del(50)
F��
F�� 
F�	��ric
F��4,-15,20,1
F�
��2ric
F�u=u*4:�u=0u=(3+�(5))*�x1%
F�ya=ya �2:p%=ya �3
F��green%�ya=0 h%=0:p%=0
F��
F�� 
F���flight
F�OBY%=BY%
F�[��fly:�23,27;m%(8,g%)|:�&ED,mx%(g%,Hand%),my%(g%):�ba%:�23,27;20|:�&ED,bag%(Hand%),-754
GA�green%�h%=0ș6,112,2:G%=�sx%+4,sy%+4):ș6,112,1:�G%=0�chhole
G0OBY%=BY%:�green%��(x1%+4)<5��(y1%)<5�chhole
G�sl>ya sl=ya/2*�sl
G"wc-=1:�wc=0�
G,wc=wc2:�wc2>1wc2-=1
G6WX+=wx:WY+=wy
G@�
GJ�ya<=0�h%=0��p%<2
GTYY%=y1%:X%=x1%
G^�D%��green%�
Gh*FX112,2
GrG%=�sx%,sy%)
G|G1%=�sx%,sy%+8)
G�*FX112,1
G��(G%�G1%)=0�chhole2
G��
G�� 
G�	��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
G�6�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
G�7�W%� plotball,bs%,oy%,ox%,osy%,osx%,ys%,xs%,sy%,sx%
H�
H� 
H��walter
H&*CHANNELVOICE 1 SHOOSH
H0
�T%,I%
H:,yd=1+(.75*green%):�T%=1�5:*SCHOOSE BLACK
HD^Ȗ:�&ED,mx%(g%,Hand%),my%(g%):�23,27;m%(T%,g%)|:�&ED,mx%(g%,Hand%),my%(g%):�I%=0�T%:Ȗ:�:�
HN�T%=5�1��:*SCHOOSE BLACK
HX�T%=3��green%�1,SO%,40,40
Hb[�I%=1�T%:Ȗ:�:�&ED,mx%(g%,Hand%),my%(g%):�23,27;m%(T%,g%)|:�&ED,mx%(g%,Hand%),my%(g%):�
Hl�2,SO%,1,10
Hv�T%=6�8:�T%>6�fly:�Ȗ
H�*SCHOOSE plain
H�-�green%:Ȗ:�&ED,mx%(g%,Hand%),my%(g%)�Ȗ
H�0�23,27;m%(T%,g%)|:�&ED,mx%(g%,Hand%),my%(g%)
H�T�lie%=1:�1:�I%=0�20:Ȓsa%(0,T%-6,I%)+(T%+10)*Hand%,sa%(1,T%-6,I%)+my%(g%):�:�8,0
H��
H�
�fly:�fly
H�*SCHOOSE plain
H�MȖ:�&ED,mx%(g%,Hand%),my%(g%):�23,27;m%(8,g%)|:�&ED,mx%(g%,Hand%),my%(g%)
H��
H�� 
H�
��del(T%)
H��=0:���>T%
H��
I� 
I��bunker
I�32,0:H%+=2:P%=oP%
I 
�drawbunk
I*�2:H%+=2:P%=oP%
I4
�drawbunk
I>	H%-=4
IH�
IR� 
I\��drawbunk
If<np%=�map1:�map(CX%,CY%,H%,4,r):�map3(SX%,SY%,H%,4,r,CX%)
Ip5�I%=1�np%-1:�map3(XI%,YI%,H%,85,r,CX%):�CX%,CY%:�
Iz�85,SX%,SY%
I��
I�� 
I�!��map3(� x%,� y%,z%,p%,r,CX%)
I��pO%
I�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
I�pO%=�x%,y%)
I�ȕpO%>3
I�y%+=4:pO%=�x%,y%)
I��
I�
�p%,x%,y%
I��
J� 
J��sceen
J
No%=�map1
J$rough=P%
J.�green%�
J8
Co%=�map1
JB�:np%=�map1
JL"P%=P%+np%*4+4:Co%=�map1:No%-=1
JV�Co%=5�Co%=1:P%-=1
J`�
Jj-sP%=P%:�T%=1�No%:Co%=�map1:�Co%=6water=P%
Jt�green%�Co%=4�
J~np%=�map1:P%=P%+np%*4+4
J�*�:oP%=P%:Co%=Co%-((Co%=1)�green%):�Co%
J��drawit:�Co%=1�bunker
J��:�:�green%�
J��8,0
J�*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%
J��green%�Co%=4�
J�np%=�map1:P%=P%+np%*4+4
K�oP%=P%:�drawit
K
�
K�
K�green%�
K(�8,0
K2*SCHOOSE BLACKHOLE
K<�&ED,-6,-(d*H%�r)*2-12
KF�
KP*FX112,1
KZȎjump%(1)�
Kd�1:�8,208,0,0
Kn�2:�8,144,128,80
Kx�3:�8,112,112,112
K��4:�8,240,112,0
K��5:�8,96,96,48
K��6:�8,208,80,144
K��
K��
K�� 
K���gtos(Y%)
K�,�26:�0,Y%:�1279,Y%+319:*SGET topofscreen
K��
K�� 
K�
��getinfo
K�*CHANNELVOICE 1 1
K��ya2,BX%,BY%,yst%
L�gtos(704)
L
ȑ80,0
L�24,0;704;1131;1023;
L"�139:�139:�
L,�8:ȓ0,704,412,319
L6ȓ412,704,228,319
L@ȓ640,704,491,319
LJ�3:ȓ4,708,404,311
LTȓ416,708,220,311
L^ȓ644,708,483,311
Lh�4:ȓ8,712,396,303
Lrȓ420,712,212,303
L|ȓ648,712,475,303
L��:�28,6,8,74,1:�12
L�6�41,0)"PLAYER         : ";:�8:�name$(player%):�12
L�%�41,1)"PLAYING AT     : "Course$
L�$�41,2)"HOLE NUMBER    : ";Hole%
L�4�41,3)"PAR            : ";~map?(mappoint%+&2F9)
L�E�41,4)"OVERALL LENGTH : ";~(map!(mappoint%+&2FA))�&FFFF;" YARDS"
L�V�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
L�
�showwind
L��
L�
ȑ80,0
M�getclub
M"�12:�2)"DIRECTION THEN POWER"
M�8:�4)A$(vp%)" SELECTED"
M&8�8:ȓ46,776,320,128:ȓ44,776,324,128:�48,866,364,866
M0?�6:ȓȐ48,870,316,32:�12:�78,898:�5:�"CLUB POWER METER"�4:�
M:K�56,784,56,824:�T%=49�100:�((T%/100*T%)�25)=0:�T%*3+56,784,T%*3+56,824
MD�
MNȓ56,792,300,24
MX�11:ȓȐ56,796,300,16
Mb my%=256-green%*164:ș6,106,2
Ml	ȑ0,0
Mv>ȗȓ432+(green%=0)*160,my%,414-(green%=0)*320,0:ȗ�640,my%
M�xs%=0:OX%=0:u=0
M��:ȗX%,Y%,C%
M��C%=1�C%=4��:��
M�#a%=(X%-xs%-640)/8:�a%<10a%=�a%
M�	u+=a%
M�
�X%<>xs%�
M�ABX%=0:BY%=-R%:�vt(vi*BY%+va*BX%,va*BY%+vb*BX%,H%):yst%=ys%+25
M�C�:BX%+=u:BY%+=80:�vt(vi*BY%+va*BX%,va*BY%+vb*BX%,H%):�ys%>=yst%
M��
M�ȗ�xs%-640,my%
M�	�C%=2
M�ȗ�
M�
p%=�power
NSO%=-15*p%/100
N�green%�vp%=13u=u+�(5)-3
N2u=u/(8-g%*2):ya=�((CV%(vp%)/100)*p%):�ya<1ya=1
N ud=u/(ya*3)
N*p%=p%*.32:h%=0
N4�vp%=13p%=5*-(green%=�)
N>�del(100):stroke%+=1
NH �4,26:�:*SCHOOSE topofscreen
NR�8,0:�&ED,0,704
N\
�windows2
Nf�
Np� 
Nz
��showlie
N��a$
N�a$="ON THE ":�8
N��41,7);
N�!bunk%=�:bad%=�:wind%=skill%>2
N��green%�
N�4�lie%=5 �a$"GREEN";:��"ON EDGE OF GREEN";:lie%=5
N��
N�Ȏlie%�
N��1:�"IN A BUNKER ";:�gob
N��4:�"ON A PATHWAY";
N��6:�wetmes
N�*�7:�y1%<>sty%:�a$"FAIRWAY";:��a$"TEE";
N��9:�"IN THE ROUGH ";:�gob
O�
O�
O� 
O$��wetmes
O.�6:bunk%=�:�T%
O8T%=�(3)
OB	ȎT%�
OL�1,3:�"IN SHALLOW WATER";
OV>�2:�wellie%�"IT'S A WELLIE JOB";:��"BALANCED ON LILY PAD";
O`�
Oj�
Ot� 
O~	��gob
O�:�g$,b$:g$="GOOD LIE":�lie%=9b$="BAD LIE":�b$="PLUGGED"
O�
Ȏskill%�
O��1:�"NO EFFECT";
O��2,3:�g$;:bunk%=�
O�'�4:bunk%=�:�(2)=2�b$;:bad%=1:��g$;
O��
O��
O�� 
O�ݤpower
O��X%,C%,c%,p%,a%
O�
ȑ80,0
O��12:�butt(0):�del(1):a%=1
PȕC%=0�c%<>156
P
p%+=a%:�p%=100a%=�
Pc%+=1:�8:�c%�1Ȗ
P6ȓȐ56,796,p%*3,16:�11:ȓȐ56+p%*3,796,300-p%*3,16
P(0�2,4);�(p%/100*p%)-(c%<10);"%  ":ȗX%,X%,C%
P2�
P<
Sl=0:sl=0
PF
�vp%<>13�
PP	ȎC%�
PZ
�1:sl=.05
Pd�4:sl=-.05
Pn�
Px�
P��skill%<>1�
P�Ȏlie%�
P�#�1,9:p%=(p%/100)*red%(vp%,bad%)
P�/�6:a%=vp%-2*(p%<11):p%=p%/100*red%(a%,bad%)
P��
P��
P��1,-10,200,1
P�
�p%<1p%=1
P�=p%
P�� 
P�
��getclub
P��butt(0):�cls
P��green%vp%=13:�
Q�X%,Y%,C%,x%,y%,ox%,oy%
Q;ox%=-100:�:�28,6,8,74,1:�mrect(1):ȗ �:�12:�:SYS6,106,3
Q(�T%=0�13:�TX%(T%),TY%(T%))A$(T%);:�
Q"7�2:�6,0)"SELECT A CLUB":ȟ&2000:Ȟ100:�5:�3,2:�box
Q,.�:�Ə=0:�3,2:�7,1)"SELECT A CLUB":��Ə<>0
Q6$ȗX%,Y%,C%:x%=X%�128:y%=Y%�&FFE0
Q@�x%<>ox%�y%<>oy%�box
QJ5�mrect(X%):vp%=3^x%+(x%=0)+28-y%�32+(x%=2�y%<832)
QT
�C%<>0
Q^�butt(0):�4
Qh	��cls
Qr�:�28,6,8,29,1:�
Q|�
Q�� 
Q�	��box
Q��3,6
Q�ȓȐ32+128*ox%,oy%,96,32
Q�ȓȐ32+128*x%,y%,96,32
Q��1,-10,200,1
Q�ox%=x%:oy%=y%
Q��
Q�� 
Q���mrect(R%)
Q��R%>288�iop2
Q�	ȎR%�
Q�"� 1:ȗȓ38,844,90,72:ȗ�83,912
R$� 162:ȗȓ38,844,90,72:ȗ�83,846
R'� 128:ȗȓ162,752,90,164:ȗ�208,912
R� 252:�iop
R&'� 288:ȗȓ162,752,90,164:ȗ�208,756
R0�
R:�
RD� 
RN	��iop
RX�Y%>835�
Rb ȗȓ288,836,90,80:ȗ�349,912
Rl"� ȗȓ288,752,90,50:ȗ�349,778
Rv�
R��
R�� 
R�
��iop2
R�'�Y%=836ȗȓ288,752,90,50:ȗ�349,786
R�'�Y%=802ȗȓ288,836,90,80:ȗ�349,856
R��
R�� 
R���butt(on)
R�
�D%,C%
R��
R�ȗD%,D%,C%
R�
�C%=on
R��
S� 
S
��windows
S�26:�128:�:�maincols
S 
�green%�
S*�6:ȓȐ 0,0,1280,736
S4�4:�0,732,1280,732
S>�138:�24,0;736;1279;1023;:�
SH�clouds
SR��135:�
S\�
Sf��windows2
Sp �26:ȑ640,768+O%-6166*green%
Sz�
S�� 
S���clouds
S�
�C%,T%,O%
S�$�vb>0 O%=��va �O%=180+(180-��va)
S�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�� 
S���initcloud
S��C%,T%,X%,Y%
S�+�C%=0�12:X%=194*C%+�(194):Y%=�(288)+736
T<�T%=0�12:CL%(0,C%,T%)=X%+�(5)*40:CL%(1,C%,T%)=Y%+�(5)*12
T�:�
T�
T$� 
T.��bounce
T8h%=0:p%=-p%/2.2
TB �vp%=13��green%��(10)=5�2ric
TL*FX112,2
TVG%=�sx%,sy%)
T`*FX112,1
Tj	ȎG%�
Tt)�1:p%=p%>>1:�p%>4:ya=ya*.3:�ya=ya*.75
T~/�4:�p%>3�ya<>0p%=p%*1.5:ya=ya*1.3:ud=ud/1.3
T�`�6,11:W%=�:xs%=1000:sx%=1000:ya=0:p%=0:h%=0:� plotball,bs%,oy%,ox%,osy%,osx%,ys%,xs%,sy%,sx%
T�J�9,-1:ya=ya/1.5:p%=p%>>1:u=u/2:ud=ud/2:�green%�G%=-1ya=0:p%=0:u=0:ud=0
T��
T��
T�� 
T���drawit
T�7np%=�map1:�map(CX%,CY%,H%,4,r):�map(SX%,SY%,H%,4,r)
T�0�I%=1�np%-1:�map(XI%,YI%,H%,85,r):�CX%,CY%:�
T��85,SX%,SY%
T��
T�� 
T���vt(x%,y%,z%)
ULxe%=va*x%+vb*y%:ze%=(vi*x%+va*y%+r)*Ma:xs%=d*xe% �ze%:ys%=-(d*z% �ze%)*2
U
�
U� 
U"��caltre(� x%(),� y%(),� z%())
U(�i%,l%,lo%,n%
U2
�A%=1�AA%
U<l%=�map2:trex!(A%*4)=l%
UFi%=�map2:trey!(A%*4)=i%
UPxe=va*i%+vb*l%
UZze=(vi*i%+va*l%+r)*Ma
Ud(x%(A%)=d*xe �ze:y%(A%)=-(d*H% �ze)*2
Unz%(A%)=-(d*(H%+200)�ze)*2
Ux�
U��
U�� 
U���map(� x%,� y%,z%,p%,r)
U�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
U�)�green%�y%>-32�y%<&FFFF8000 y%=-6000
U�
�p%,x%,y%
U��
U�� 
U�ݤmap1:P%+=1:=map?(P%-1)
U�� 
U�$ݤmap2:P%+=2:Q%=map!(P%-2)�&FFFF
U��Q%>&7FFFQ%=Q%�&FFFF0000
U�=Q%
V� 
V��trees
VPF%=�:PB%=-(d*H%�(r*Ma))*2
V"PT%=-(d*(H%-30)�(r*Ma))*2
V,FB%=-(d*(H%-24)�(r*Ma))*2
V6Vxe=va*Fx+vb*Fy:ze=(vi*Fx+va*Fy+r)*Ma:FX%=d*xe �ze:FY%=-(d*(H%-16-(stren%�4))�ze)*2
V@�green%�
VJ�T%=AA%�1��
VTX1%=x%(T%):Y%=y%(T%)
V^=�PF%�Y%<PB% �11:�0,PB%:�0,PT%:�3:�0,FB%:�85,FX%,FY%:PF%=�
Vh*�(�X1%>400�Y%>-708)��X1%<800�Y%>-1000�
VrAx%=(�Y%-�z%(T%))>>1:y%=-x%>>2:ya%=y%*1.5:xa%=x%>>4:yd%=ya%>>2
V|+�tr%!(((px%+1)�3)*4):ȓȐX1%,Y%,-xa%,y%
V�*�tr%!(((px%+2)�3)*4):ȓȐX1%,Y%,xa%,y%
V�1Y%+=y%:xa%=xa%*2:z%(T%)=�:x%=x%*.8:xa%=xa%*.8
V�&�plottree,xa%,y%,x%,X1%,Y%,ya%,yd%
V�� z%(T%)=�
V��
V��
V�6�PF% �11:�0,PB%:�0,PT%:�3:�0,FB%:�85,FX%,FY%:PF%=�
V��
V�� 
V���initiate
V�%Hand%=0:green%=0:tee=�:Ineditor=�
V��0,1
V��colours(12)
W�red%(13,1),F$(77)
W� CL%(1,12,12)
W� code &900
W&� map &6D00
W0
� parb 20
W:� x%(96),y%(96),z%(96)
WD#�TX%(13),TY%(13),A$(13),CV%(13)
WNC�mx%(1,1),my%(1),m%(8,1),bag%(1),name$(6),defname$(6):player%=1
WX��holescores%(6,18),currentx%(6),currenty%(6),currentR%(6),currentS%(6),currents%(6),totscore%(6),oldpos%(6),hsp%(6),hand%(6),jump%(6)
Wb�C(45),S(45)
Wl�sa%(1,2,20)
Wvcurrents%()=1
W��I%=2�4
W��N%=0�20
W�sa%(0,I%-2,N%)=�(I%*8)-I%*4
W�#sa%(1,I%-2,N%)=I%*12+16+�(I%)*4
W��
W��
W��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
W�bag%(0)=-196:bag%(1)=120
W�sx%=�:sy%=�:r=11096
X
� �`TX
X�T%=0�13
X#�TX%(T%),TY%(T%),A$(T%),CV%(T%)
X �
X*�wellie(0)
X4�T%=1�8:�m%(T%,1):�
X>$�I%=0�1:�T%=0�13:�red%(T%,I%):�,
XH'CX%=0:CY%=0:SX%=0:SY%=0:XI%=0:YI%=0
XR%h%=0:x1%=0:y1%=0:K%=0:BY%=0:bs%=0
X\defname$(1)="JOHN"
Xfdefname$(2)="GEORGE"
Xpdefname$(3)="PAUL"
Xzdefname$(4)="RINGO"
X�defname$(5)="MICK"
X�defname$(6)="JERRY"
X�	�code
X�*POINTER
X�ȗ �
X�ȗ�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
X��9,2,1 IRON,67
X��9,3,2 IRON,65
Y�9,4,3 IRON,63
Y�9,5,4 IRON,61
Y�9,6,5 IRON,59
Y$�9,7,6 IRON,57
Y.�17,2,7 IRON,55
Y8�17,3,8 IRON,53
YB�17,4,9 IRON,48
YL�17,6,WEDGE,41
YV�17,7,PUTTER,60
Y`�9,10,10,11,11,9,9,9
Yj/�30,40,48,55,61,66,71,76,81,85,89,93,96,100
Yt'�1,1,1,1,1,1,15,40,55,66,76,85,93,1
Y~� 
Y���colours(M%)
Y�Ȗ:�M%:�
Y�
�maincols
Y��23,17,4,1|
Y�)�23,2,&EF,&FE,&EF,&FE,&EF,&FE,&EF,&FE
Y�)�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�� 
Y��0,0,0,0:� BLACK
Z�1,176,128,0:� DARK SAND
Z
�2,176,160,48:� LIGHT SAND
Z�3,208,160,144:� FLESH
Z�4,144,144,144:� PATH
Z(�5,16,208,0:� GREEN
Z2�6,32,144,208:� WATER
Z<�7,0,160,0:� FAIRWAY
ZF�8,208,0,0:� RED
ZP�9,0,112,0:� ROUGH
ZZ�10,96,192,224:� SKY
Zd�11,240,240,240:� WHITE
Zn�12,80,48,16:� DARK BROWN
Zx�13,96,64,48:� LIGHT BROWN
Z�$�14,16,64,48:� DARK GREEN (TREE)
Z�&�15,0,96,64:� LIGHTER GREEN (TREE)
Z��
Z�� 
Z�
��pointer
Z��par 20,block 112
Z�	��Pl[
Z��T%=0�108�4:�block!T%:�
Z�
?par=0
Z�par?1=2
Z�par?2=8
Z�par?3=14
Z�par?4=16
[par?5=7
[par!6=block
[�12
["*A%=21:B%=par:C%=par �256:ș 7,A%,B%,C%
[,��&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
[6�
[@� 
[J
��code
[T*�("LOAD <Obey$Dir>.holedout4 "+�~code)
[^plotball=code+&188
[hplottree=code
[rsort=code+&7E0
[|px%=code+&158
[�tr%=code+&148
[�trex=code+&4B8
[�trey=code+&63C
[��
�

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 34 2d 31  |6-10-89 AND 24-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 0c 2a 46 58 32  32 39 2c 31 0d 00 46 0c  |..<.*FX229,1..F.|
000000a0  2a 46 58 32 30 30 2c 32  0d 00 50 4c de 20 4f 42  |*FX200,2..PL. OB|
000000b0  25 28 36 29 2c 4f 42 24  28 36 29 2c 54 52 58 25  |%(6),OB$(6),TRX%|
000000c0  28 39 36 29 2c 54 52 59  25 28 39 36 29 2c 48 58  |(96),TRY%(96),HX|
000000d0  25 28 33 30 2c 33 30 29  2c 48 59 25 28 33 30 2c  |%(30,30),HY%(30,|
000000e0  33 30 29 2c 43 4f 25 28  33 30 29 2c 50 54 53 25  |30),CO%(30),PTS%|
000000f0  28 33 30 29 0d 00 5a 16  f2 70 6f 69 6e 74 65 72  |(30)..Z..pointer|
00000100  3a f2 69 6e 69 74 69 61  74 65 0d 00 64 0d f2 69  |:.initiate..d..i|
00000110  6e 73 74 72 75 63 74 0d  00 6e 0a 2a 46 58 32 32  |nstruct..n.*FX22|
00000120  39 0d 00 78 06 ee 85 0d  00 82 10 f2 63 6f 6c 6f  |9..x........colo|
00000130  75 72 73 28 31 32 29 0d  00 8c 13 2a 53 43 48 4f  |urs(12)....*SCHO|
00000140  4f 53 45 20 53 43 52 45  45 4e 0d 00 96 18 2a 43  |OSE SCREEN....*C|
00000150  48 41 4e 4e 45 4c 56 4f  49 43 45 20 31 20 42 45  |HANNELVOICE 1 BE|
00000160  4c 4c 0d 00 a0 0c f0 26  45 44 2c 30 2c 30 0d 00  |LL.....&ED,0,0..|
00000170  aa 07 d1 3d 30 0d 00 b4  09 2a 46 58 31 35 0d 00  |...=0....*FX15..|
00000180  be 10 f5 3a c8 97 58 25  2c 59 25 2c 54 25 0d 00  |...:..X%,Y%,T%..|
00000190  c8 1b e7 91 3e 33 30 30  30 d4 31 2c 2d 31 35 2c  |....>3000.1,-15,|
000001a0  33 30 30 2c 31 3a d1 3d  30 0d 00 d2 10 fd 54 25  |300,1:.=0.....T%|
000001b0  84 a6 28 31 30 29 3c 3e  b9 0d 00 dc 15 2a 43 48  |..(10)<>.....*CH|
000001c0  41 4e 4e 45 4c 56 4f 49  43 45 20 31 20 31 0d 00  |ANNELVOICE 1 1..|
000001d0  e6 05 f5 0d 00 f0 0e 49  6e 65 64 69 74 6f 72 3d  |.......Ineditor=|
000001e0  a3 0d 00 fa 0f f2 67 65  74 6f 70 74 69 6f 6e 73  |......getoptions|
000001f0  0d 01 04 07 ee 85 87 0d  01 0e 0c 2a 46 58 32 32  |...........*FX22|
00000200  39 2c 31 0d 01 18 10 f2  63 6f 6c 6f 75 72 73 28  |9,1.....colours(|
00000210  31 32 29 0d 01 22 19 48  6f 6c 65 25 3d 31 3a 74  |12)..".Hole%=1:t|
00000220  6f 74 73 63 6f 72 65 25  28 29 3d 30 0d 01 2c 23  |otscore%()=0..,#|
00000230  e3 54 25 3d 31 b8 6e 6f  6f 66 70 6c 61 79 65 72  |.T%=1.noofplayer|
00000240  73 3a 68 73 70 25 28 54  25 29 3d 54 25 3a ed 0d  |s:hsp%(T%)=T%:..|
00000250  01 36 08 58 25 3d 30 0d  01 40 05 f5 0d 01 4a 19  |.6.X%=0..@....J.|
00000260  e7 58 25 3e 37 31 38 84  48 6f 6c 65 25 3d 31 38  |.X%>718.Hole%=18|
00000270  fd b9 3a fd a3 0d 01 54  0c 72 6f 75 6e 64 25 3d  |..:....T.round%=|
00000280  a3 0d 01 5e 0e f2 69 6e  69 74 63 6c 6f 75 64 0d  |...^..initcloud.|
00000290  01 68 0e 6c 69 25 3d b3  28 34 29 2d 31 0d 01 72  |.h.li%=.(4)-1..r|
000002a0  0d f2 67 65 74 73 74 61  72 74 0d 01 7c 0d f2 69  |..getstart..|..i|
000002b0  6e 69 74 77 69 6e 64 0d  01 86 0e f2 73 65 74 70  |nitwind.....setp|
000002c0  6c 61 79 65 72 0d 01 90  05 f5 0d 01 9a 10 f2 77  |layer..........w|
000002d0  68 69 63 68 70 6c 61 79  65 72 0d 01 a4 17 e7 72  |hichplayer.....r|
000002e0  6f 75 6e 64 25 fd b9 3a  f2 62 6f 61 72 64 3a fd  |ound%..:.board:.|
000002f0  a3 0d 01 ae 10 f2 67 65  74 70 6c 61 79 76 61 6c  |......getplayval|
00000300  73 0d 01 b8 0a f2 6c 69  67 68 74 0d 01 c2 10 f2  |s.....light.....|
00000310  73 69 6e 65 28 58 25 2c  59 25 29 0d 01 cc 0f f2  |sine(X%,Y%).....|
00000320  64 72 61 77 73 63 72 65  65 6e 0d 01 d6 09 f2 73  |drawscreen.....s|
00000330  70 6f 74 0d 01 e0 25 ec  6d 78 25 28 67 25 2c 48  |pot...%.mx%(g%,H|
00000340  61 6e 64 25 29 2c 6d 79  25 28 67 25 29 3a ec 42  |and%),my%(g%):.B|
00000350  59 31 32 30 2c 31 37 36  0d 01 ea 0f 2a 53 47 45  |Y120,176....*SGE|
00000360  54 20 50 4c 41 49 4e 0d  01 f4 12 2a 53 43 48 4f  |T PLAIN....*SCHO|
00000370  4f 53 45 20 42 41 4c 4c  31 0d 01 fe 10 f0 26 45  |OSE BALL1.....&E|
00000380  44 2c 78 73 25 2c 79 73  25 0d 02 08 25 ec 6d 78  |D,xs%,ys%...%.mx|
00000390  25 28 67 25 2c 48 61 6e  64 25 29 2c 6d 79 25 28  |%(g%,Hand%),my%(|
000003a0  67 25 29 3a ec 42 59 31  32 30 2c 31 37 36 0d 02  |g%):.BY120,176..|
000003b0  12 0f 2a 53 47 45 54 20  42 4c 41 43 4b 0d 02 1c  |..*SGET BLACK...|
000003c0  0f 2a 53 43 48 4f 4f 53  45 20 32 30 0d 02 26 15  |.*SCHOOSE 20..&.|
000003d0  62 61 25 3d 73 74 79 25  3d 79 31 25 3a e6 38 2c  |ba%=sty%=y1%:.8,|
000003e0  30 0d 02 30 1d e7 62 61  25 f0 26 45 44 2c 62 61  |0..0..ba%.&ED,ba|
000003f0  67 25 28 48 61 6e 64 25  29 2c 2d 37 35 34 0d 02  |g%(Hand%),-754..|
00000400  3a 05 f5 0d 02 44 2f ef  32 33 2c 32 37 3b 6d 25  |:....D/.23,27;m%|
00000410  28 31 2c 67 25 29 7c 3a  f0 26 45 44 2c 6d 78 25  |(1,g%)|:.&ED,mx%|
00000420  28 67 25 2c 48 61 6e 64  25 29 2c 6d 79 25 28 67  |(g%,Hand%),my%(g|
00000430  25 29 0d 02 4e 0c f2 67  65 74 69 6e 66 6f 0d 02  |%)..N..getinfo..|
00000440  58 0d 44 25 3d a3 3a 42  25 3d a3 0d 02 62 0d 57  |X.D%=.:B%=...b.W|
00000450  25 3d b9 3a 4b 25 3d a3  0d 02 6c 0b f2 77 61 6c  |%=.:K%=...l..wal|
00000460  74 65 72 0d 02 76 0b f2  66 6c 69 67 68 74 0d 02  |ter..v..flight..|
00000470  80 14 e7 94 73 78 25 3e  36 34 30 f2 63 68 6f 66  |....sx%>640.chof|
00000480  73 63 0d 02 8a 16 e7 ac  57 25 f2 73 70 6c 61 73  |sc......W%.splas|
00000490  68 3a fd a3 3a 8b fd b9  0d 02 94 0c f2 70 75 74  |h:..:........put|
000004a0  62 61 63 6b 0d 02 9e 06  fd a3 0d 02 a8 07 f4 20  |back........... |
000004b0  15 0d 02 b2 04 0d 02 bc  0a dd f2 65 64 69 74 0d  |...........edit.|
000004c0  02 c6 0f 65 78 69 74 3d  a3 3a c8 9e 32 30 0d 02  |...exit=.:..20..|
000004d0  d0 0e 69 73 6c 61 6e 64  3d 34 31 32 0d 02 da 15  |..island=412....|
000004e0  f4 43 6f 75 72 73 65 24  3d 22 45 44 49 54 4f 52  |.Course$="EDITOR|
000004f0  22 0d 02 e4 b0 ea 66 6c  61 67 2c 6d 65 6d 2c 6c  |".....flag,mem,l|
00000500  65 6e 2c 70 61 72 2c 4e  4f 25 2c 4e 54 25 2c 6f  |en,par,NO%,NT%,o|
00000510  62 25 2c 63 6c 6f 73 65  64 3a f4 2c 50 54 53 25  |b%,closed:.,PTS%|
00000520  28 29 2c 48 58 25 28 29  2c 48 59 25 28 29 2c 43  |(),HX%(),HY%(),C|
00000530  4f 25 28 29 2c 54 52 58  25 28 29 2c 54 52 59 25  |O%(),TRX%(),TRY%|
00000540  28 29 2c 4f 42 25 28 29  2c 4f 42 24 28 29 3a 44  |(),OB%(),OB$():D|
00000550  49 4d 20 4f 42 25 28 36  29 2c 4f 42 24 28 36 29  |IM OB%(6),OB$(6)|
00000560  2c 54 52 58 25 28 39 36  29 2c 54 52 59 25 28 39  |,TRX%(96),TRY%(9|
00000570  36 29 2c 48 58 25 28 32  30 2c 32 30 29 2c 48 59  |6),HX%(20,20),HY|
00000580  25 28 32 30 2c 32 30 29  2c 43 4f 25 28 32 30 29  |%(20,20),CO%(20)|
00000590  2c 50 54 53 25 28 32 30  29 2c 73 78 25 2c 73 79  |,PTS%(20),sx%,sy|
000005a0  25 0d 02 ee 1d 4f 42 25  28 30 29 3d 39 3a 4f 42  |%....OB%(0)=9:OB|
000005b0  24 28 30 29 3d 22 52 4f  55 47 48 20 20 22 0d 02  |$(0)="ROUGH  "..|
000005c0  f8 1d 4f 42 25 28 31 29  3d 37 3a 4f 42 24 28 31  |..OB%(1)=7:OB$(1|
000005d0  29 3d 22 46 41 49 52 57  41 59 22 0d 03 02 1d 4f  |)="FAIRWAY"....O|
000005e0  42 25 28 32 29 3d 35 3a  4f 42 24 28 32 29 3d 22  |B%(2)=5:OB$(2)="|
000005f0  47 52 45 45 4e 20 20 22  0d 03 0c 1d 4f 42 25 28  |GREEN  "....OB%(|
00000600  33 29 3d 32 3a 4f 42 24  28 33 29 3d 22 42 55 4e  |3)=2:OB$(3)="BUN|
00000610  4b 45 52 20 22 0d 03 16  1d 4f 42 25 28 34 29 3d  |KER "....OB%(4)=|
00000620  34 3a 4f 42 24 28 34 29  3d 22 50 41 54 48 20 20  |4:OB$(4)="PATH  |
00000630  20 22 0d 03 20 1d 4f 42  25 28 35 29 3d 36 3a 4f  | ".. .OB%(5)=6:O|
00000640  42 24 28 35 29 3d 22 57  41 54 45 52 20 20 22 0d  |B$(5)="WATER  ".|
00000650  03 2a 20 4f 42 25 28 36  29 3d 26 31 30 37 3a 4f  |.* OB%(6)=&107:O|
00000660  42 24 28 36 29 3d 22 54  45 45 20 20 20 20 22 0d  |B$(6)="TEE    ".|
00000670  03 34 05 f5 0d 03 3e 0c  63 6c 6f 73 65 64 3d b9  |.4....>.closed=.|
00000680  0d 03 48 0d f2 73 65 74  6d 61 69 6e 76 0d 03 52  |..H..setmainv..R|
00000690  26 6d 61 70 70 6f 69 6e  74 25 3d 30 3a 6d 61 70  |&mappoint%=0:map|
000006a0  3f 28 6d 61 70 70 6f 69  6e 74 25 2b 26 32 46 38  |?(mappoint%+&2F8|
000006b0  29 3d 31 0d 03 5c 1a 6c  65 6e 3d 35 30 30 3a 70  |)=1..\.len=500:p|
000006c0  61 72 3d 34 3a f2 73 74  61 72 74 75 70 0d 03 66  |ar=4:.startup..f|
000006d0  09 f2 67 72 69 64 0d 03  70 05 f5 0d 03 7a 0d f2  |..grid..p....z..|
000006e0  63 68 6f 6f 73 65 6f 62  0d 03 84 10 e7 6d 65 6d  |chooseob.....mem|
000006f0  3c 31 30 ef 37 3a fd 30  0d 03 8e 11 e7 65 78 69  |<10.7:.0.....exi|
00000700  74 20 fd b9 3a fd b9 3a  e1 0d 03 98 0a 6d 65 6d  |t ..:..:.....mem|
00000710  2d 3d 32 0d 03 a2 0c f2  62 75 74 74 28 30 29 0d  |-=2.....butt(0).|
00000720  03 ac 0c f2 67 65 74 63  65 6e 74 0d 03 b6 18 f2  |....getcent.....|
00000730  72 65 71 28 22 44 52 41  57 20 4f 55 54 4c 49 4e  |req("DRAW OUTLIN|
00000740  45 22 29 0d 03 c0 39 fb  38 3a f1 8a 30 2c 32 29  |E")...9.8:..0,2)|
00000750  22 4c 45 46 54 20 42 55  54 54 4f 4e 20 54 4f 20  |"LEFT BUTTON TO |
00000760  46 49 58 20 54 48 45 20  4c 4f 43 41 54 49 4f 4e  |FIX THE LOCATION|
00000770  20 4f 46 20 41 20 50 4f  49 4e 54 22 0d 03 ca 44  | OF A POINT"...D|
00000780  f1 22 52 49 47 48 54 20  42 55 54 54 4f 4e 20 54  |."RIGHT BUTTON T|
00000790  4f 20 4a 4f 49 4e 20 45  4e 44 53 20 54 4f 20 43  |O JOIN ENDS TO C|
000007a0  4f 4d 50 4c 45 54 45 20  54 48 45 20 4f 42 4a 45  |OMPLETE THE OBJE|
000007b0  43 54 20 41 4e 44 20 45  58 49 54 22 3a fb 31 33  |CT AND EXIT":.13|
000007c0  0d 03 d4 2b 73 78 25 3d  2d 48 59 25 28 4e 4f 25  |...+sx%=-HY%(NO%|
000007d0  2c 30 29 2a 31 2e 35 3a  73 79 25 3d 2d 48 58 25  |,0)*1.5:sy%=-HX%|
000007e0  28 4e 4f 25 2c 30 29 2a  31 2e 35 0d 03 de 28 f4  |(NO%,0)*1.5...(.|
000007f0  4d 4f 56 45 2d 48 59 25  28 4e 4f 25 2c 30 29 2a  |MOVE-HY%(NO%,0)*|
00000800  31 2e 35 2c 2d 48 58 25  28 4e 4f 25 2c 30 29 2a  |1.5,-HX%(NO%,0)*|
00000810  31 2e 35 0d 03 e8 05 f5  0d 03 f2 44 fb 31 33 34  |1.5........D.134|
00000820  3a fb 31 32 3a ef 32 38  2c 30 2c 33 31 2c 37 39  |:.12:.28,0,31,79|
00000830  2c 30 3a f1 8a 36 32 2c  31 29 3b 7e 6d 65 6d 3b  |,0:..62,1);~mem;|
00000840  22 20 20 22 3a fb 31 33  3a fb 31 33 39 3a ef 32  |"  ":.13:.139:.2|
00000850  38 2c 31 2c 33 30 2c 37  38 2c 32 35 0d 03 fc 08  |8,1,30,78,25....|
00000860  f2 6d 6f 75 0d 04 06 09  e6 33 2c 31 33 0d 04 10  |.mou.....3,13...|
00000870  12 86 73 78 25 2c 73 79  25 2c 58 25 2c 59 25 0d  |..sx%,sy%,X%,Y%.|
00000880  04 1a 09 c8 96 3a c8 96  0d 04 24 12 86 73 78 25  |.....:....$..sx%|
00000890  2c 73 79 25 2c 58 25 2c  59 25 0d 04 2e 0d e7 59  |,sy%,X%,Y%.....Y|
000008a0  25 3e 2d 33 36 38 8c 0d  04 38 0a e7 4b 25 3d 34  |%>-368...8..K%=4|
000008b0  8c 0d 04 42 0d e7 20 6d  65 6d 3e 3d 34 8c 0d 04  |...B.. mem>=4...|
000008c0  4c 0f e6 30 2c 4f 42 25  28 6f 62 25 29 0d 04 56  |L..0,OB%(ob%)..V|
000008d0  10 50 54 53 25 28 4e 4f  25 29 2b 3d 31 0d 04 60  |.PTS%(NO%)+=1..`|
000008e0  24 ec 2d 48 59 25 28 4e  4f 25 2c 30 29 2a 31 2e  |$.-HY%(NO%,0)*1.|
000008f0  35 2c 2d 48 58 25 28 4e  4f 25 2c 30 29 2a 31 2e  |5,-HX%(NO%,0)*1.|
00000900  35 0d 04 6a 0c ec 73 78  25 2c 73 79 25 0d 04 74  |5..j..sx%,sy%..t|
00000910  0d f0 38 35 2c 58 25 2c  59 25 0d 04 7e 11 73 78  |..85,X%,Y%..~.sx|
00000920  25 3d 58 25 3a 73 79 25  3d 59 25 0d 04 88 09 f2  |%=X%:sy%=Y%.....|
00000930  67 72 69 64 0d 04 92 32  f4 4d 4f 56 45 2d 48 59  |grid...2.MOVE-HY|
00000940  25 28 4e 4f 25 2c 30 29  2a 31 2e 35 2c 2d 48 58  |%(NO%,0)*1.5,-HX|
00000950  25 28 4e 4f 25 2c 30 29  2a 31 2e 35 3a 4d 4f 56  |%(NO%,0)*1.5:MOV|
00000960  45 58 25 2c 59 25 0d 04  9c 1e 48 58 25 28 4e 4f  |EX%,Y%....HX%(NO|
00000970  25 2c 50 54 53 25 28 4e  4f 25 29 29 3d 2d 59 25  |%,PTS%(NO%))=-Y%|
00000980  2f 31 2e 35 0d 04 a6 1e  48 59 25 28 4e 4f 25 2c  |/1.5....HY%(NO%,|
00000990  50 54 53 25 28 4e 4f 25  29 29 3d 2d 58 25 2f 31  |PTS%(NO%))=-X%/1|
000009a0  2e 35 0d 04 b0 2d f1 8a  35 38 2c 31 29 3b 22 4f  |.5...-..58,1);"O|
000009b0  42 4a 45 43 54 20 48 41  53 20 22 3b 50 54 53 25  |BJECT HAS ";PTS%|
000009c0  28 4e 4f 25 29 3b 22 20  50 4f 49 4e 54 53 22 0d  |(NO%);" POINTS".|
000009d0  04 ba 0a 6d 65 6d 2d 3d  34 0d 04 c4 0c f2 62 75  |...mem-=4.....bu|
000009e0  74 74 28 30 29 0d 04 ce  05 cd 0d 04 d8 05 cd 0d  |tt(0)...........|
000009f0  04 e2 05 cd 0d 04 ec 0f  63 6c 6f 73 65 64 3d 4b  |........closed=K|
00000a00  25 3d 31 0d 04 f6 19 e7  50 54 53 25 28 4e 4f 25  |%=1.....PTS%(NO%|
00000a10  29 3d 32 30 63 6c 6f 73  65 64 3d b9 0d 05 00 0b  |)=20closed=.....|
00000a20  fd 63 6c 6f 73 65 64 0d  05 0a 11 e7 50 54 53 25  |.closed.....PTS%|
00000a30  28 4e 4f 25 29 3e 31 8c  0d 05 14 27 f0 38 35 2c  |(NO%)>1....'.85,|
00000a40  2d 48 59 25 28 4e 4f 25  2c 31 29 2a 31 2e 35 2c  |-HY%(NO%,1)*1.5,|
00000a50  2d 48 58 25 28 4e 4f 25  2c 31 29 2a 31 2e 35 0d  |-HX%(NO%,1)*1.5.|
00000a60  05 1e 0a 4e 4f 25 2b 3d  31 0d 05 28 05 cc 0d 05  |...NO%+=1..(....|
00000a70  32 1d 6d 65 6d 3d 6d 65  6d 2b 32 2b 34 2a 28 50  |2.mem=mem+2+4*(P|
00000a80  54 53 25 28 4e 4f 25 29  2b 31 29 0d 05 3c 06 ef  |TS%(NO%)+1)..<..|
00000a90  37 0d 05 46 05 cd 0d 05  50 0e f2 72 65 64 69 73  |7..F....P..redis|
00000aa0  70 6c 61 79 0d 05 5a 06  fd 30 0d 05 64 05 e1 0d  |play..Z..0..d...|
00000ab0  05 6e 04 0d 05 78 0e dd  f2 73 65 74 6d 61 69 6e  |.n...x...setmain|
00000ac0  76 0d 05 82 14 f2 63 6f  6c 6f 75 72 73 28 31 32  |v.....colours(12|
00000ad0  29 3a c8 97 ee 0d 05 8c  22 f4 43 4f 4c 4f 55 52  |):......".COLOUR|
00000ae0  33 2c 32 30 38 2c 31 36  30 2c 31 34 34 3a 52 45  |3,208,160,144:RE|
00000af0  4d 20 46 4c 45 53 48 0d  05 96 21 f4 43 4f 4c 4f  |M FLESH...!.COLO|
00000b00  55 52 33 2c 33 32 2c 31  34 34 2c 32 30 38 3a 52  |UR3,32,144,208:R|
00000b10  45 4d 20 57 41 54 45 52  0d 05 a0 04 0d 05 aa 0f  |EM WATER........|
00000b20  fb 30 2c 38 30 2c 38 30  2c 38 30 0d 05 b4 1b f2  |.0,80,80,80.....|
00000b30  6d 65 73 62 6f 78 28 30  2c 32 35 36 2c 31 32 37  |mesbox(0,256,127|
00000b40  39 2c 37 36 38 29 0d 05  be 19 f2 6d 65 73 62 6f  |9,768).....mesbo|
00000b50  78 28 30 2c 30 2c 31 32  37 39 2c 32 35 36 29 0d  |x(0,0,1279,256).|
00000b60  05 c8 20 ef 32 34 2c 31  36 3b 32 37 32 3b 31 32  |.. .24,16;272;12|
00000b70  36 33 3b 31 30 30 37 3b  3a e6 31 33 34 3a da 0d  |63;1007;:.134:..|
00000b80  05 d2 19 ef 32 38 2c 31  2c 33 30 2c 37 38 2c 32  |....28,1,30,78,2|
00000b90  35 3a fb 31 33 39 3a db  0d 05 dc 05 e1 0d 05 e6  |5:.139:.........|
00000ba0  04 0d 05 f0 0d dd f2 73  74 61 72 74 75 70 0d 05  |.......startup..|
00000bb0  fa 16 68 6f 6c 65 70 3d  31 3a f2 72 65 61 64 68  |..holep=1:.readh|
00000bc0  6f 6c 65 32 0d 06 04 05  e1 0d 06 0e 04 0d 06 18  |ole2............|
00000bd0  11 dd f2 69 6e 70 75 74  6c 65 6e 67 74 68 0d 06  |...inputlength..|
00000be0  22 0c 2a 46 58 32 32 39  2c 31 0d 06 2c 05 f5 0d  |".*FX229,1..,...|
00000bf0  06 36 05 db 0d 06 40 6c  fb 38 3a f1 8a 30 2c 32  |.6....@l.8:..0,2|
00000c00  29 22 41 43 43 45 50 54  41 42 4c 45 20 52 41 4e  |)"ACCEPTABLE RAN|
00000c10  47 45 20 49 53 20 42 45  54 57 45 45 4e 20 35 30  |GE IS BETWEEN 50|
00000c20  20 41 4e 44 20 35 30 34  20 59 41 52 44 53 22 27  | AND 504 YARDS"'|
00000c30  22 59 4f 55 20 43 41 4e  20 4e 4f 20 4c 4f 4e 47  |"YOU CAN NO LONG|
00000c40  45 52 20 41 42 4f 52 54  20 54 48 45 20 27 4e 45  |ER ABORT THE 'NE|
00000c50  57 27 20 4f 50 54 49 4f  4e 22 bd 37 3a fb 31 33  |W' OPTION".7:.13|
00000c60  0d 06 4a 30 e8 8a 30 2c  30 29 22 50 4c 45 41 53  |..J0..0,0)"PLEAS|
00000c70  45 20 45 4e 54 45 52 20  48 4f 4c 45 20 4c 45 4e  |E ENTER HOLE LEN|
00000c80  47 54 48 20 7b 59 41 52  44 53 7d 20 22 6c 65 6e  |GTH {YARDS} "len|
00000c90  0d 06 54 13 fd 6c 65 6e  3e 34 39 80 6c 65 6e 3c  |..T..len>49.len<|
00000ca0  35 30 35 0d 06 5e 0b f2  67 65 74 70 61 72 0d 06  |505..^..getpar..|
00000cb0  68 14 f4 50 52 4f 43 77  72 69 6d 61 70 28 6c 65  |h..PROCwrimap(le|
00000cc0  6e 29 0d 06 72 0c 6d 65  6d 3d 26 32 45 36 0d 06  |n)..r.mem=&2E6..|
00000cd0  7c 0e 48 58 25 28 30 2c  30 29 3d 30 0d 06 86 13  ||.HX%(0,0)=0....|
00000ce0  48 59 25 28 30 2c 30 29  3d 6c 65 6e 20 81 32 0d  |HY%(0,0)=len .2.|
00000cf0  06 90 10 48 58 25 28 30  2c 31 29 3d 31 36 30 0d  |...HX%(0,1)=160.|
00000d00  06 9a 13 48 59 25 28 30  2c 31 29 3d 6c 65 6e 2b  |...HY%(0,1)=len+|
00000d10  34 30 0d 06 a4 11 48 58  25 28 30 2c 32 29 3d 2d  |40....HX%(0,2)=-|
00000d20  31 36 30 0d 06 ae 13 48  59 25 28 30 2c 32 29 3d  |160....HY%(0,2)=|
00000d30  6c 65 6e 2b 34 30 0d 06  b8 11 48 58 25 28 30 2c  |len+40....HX%(0,|
00000d40  33 29 3d 2d 31 38 30 0d  06 c2 11 48 59 25 28 30  |3)=-180....HY%(0|
00000d50  2c 33 29 3d 2d 31 38 30  0d 06 cc 10 48 58 25 28  |,3)=-180....HX%(|
00000d60  30 2c 34 29 3d 31 38 30  0d 06 d6 11 48 59 25 28  |0,4)=180....HY%(|
00000d70  30 2c 34 29 3d 2d 31 38  30 0d 06 e0 0c 43 4f 25  |0,4)=-180....CO%|
00000d80  28 30 29 3d 39 0d 06 ea  0d 50 54 53 25 28 30 29  |(0)=9....PTS%(0)|
00000d90  3d 34 0d 06 f4 11 6d 65  6d 3d 6d 65 6d 2d 35 2a  |=4....mem=mem-5*|
00000da0  34 2d 32 0d 06 fe 0e dd  f2 73 74 61 72 74 75 70  |4-2......startup|
00000db0  32 0d 07 08 1e ef 32 36  2c 32 34 2c 31 32 3b 32  |2.....26,24,12;2|
00000dc0  36 38 3b 31 32 36 37 3b  31 30 31 31 3b 3a da 0d  |68;1267;1011;:..|
00000dd0  07 12 14 c8 91 69 73 6c  61 6e 64 2b 6c 65 6e 2c  |.....island+len,|
00000de0  36 34 30 0d 07 1c 9f fb  31 33 34 3a fb 31 32 3a  |640.....134:.12:|
00000df0  f1 8a 32 2c 31 29 3b 6c  65 6e 3b 22 20 59 41 52  |..2,1);len;" YAR|
00000e00  44 53 20 3a 20 50 41 52  20 22 3b 70 61 72 3b 22  |DS : PAR ";par;"|
00000e10  20 3a 20 48 4f 4c 45 20  4e 6f 2e 20 22 3b 6d 61  | : HOLE No. ";ma|
00000e20  70 3f 28 6d 61 70 70 6f  69 6e 74 25 2b 26 32 46  |p?(mappoint%+&2F|
00000e30  38 29 3b 22 20 3a 20 54  20 58 20 22 3b 3a 50 25  |8);" : T X ";:P%|
00000e40  3d 6d 61 70 70 6f 69 6e  74 25 2b 26 32 45 38 3a  |=mappoint%+&2E8:|
00000e50  f1 3b a4 6d 61 70 32 20  81 32 31 3b 22 20 3a 20  |.;.map2 .21;" : |
00000e60  54 20 59 20 22 3b a4 6d  61 70 32 20 81 32 31 3b  |T Y ";.map2 .21;|
00000e70  22 20 3a 20 4d 65 6d 6f  72 79 20 26 22 3b 7e 6d  |" : Memory &";~m|
00000e80  65 6d 0d 07 26 19 ef 32  38 2c 31 2c 33 30 2c 37  |em..&..28,1,30,7|
00000e90  38 2c 32 35 3a fb 31 33  39 3a db 0d 07 30 06 e6  |8,25:.139:...0..|
00000ea0  39 0d 07 3a 1f ec 2d 48  59 25 28 30 2c 30 29 2a  |9..:..-HY%(0,0)*|
00000eb0  31 2e 35 2c 48 58 25 28  30 2c 30 29 2a 31 2e 35  |1.5,HX%(0,0)*1.5|
00000ec0  0d 07 44 0b e3 54 25 3d  31 b8 34 0d 07 4e 1f ec  |..D..T%=1.4..N..|
00000ed0  2d 48 59 25 28 30 2c 30  29 2a 31 2e 35 2c 48 58  |-HY%(0,0)*1.5,HX|
00000ee0  25 28 30 2c 30 29 2a 31  2e 35 0d 07 58 24 f0 38  |%(0,0)*1.5..X$.8|
00000ef0  35 2c 2d 48 59 25 28 30  2c 54 25 29 2a 31 2e 35  |5,-HY%(0,T%)*1.5|
00000f00  2c 48 58 25 28 30 2c 54  25 29 2a 31 2e 35 0d 07  |,HX%(0,T%)*1.5..|
00000f10  62 05 ed 0d 07 6c 22 f0  38 35 2c 2d 48 59 25 28  |b....l".85,-HY%(|
00000f20  30 2c 31 29 2a 31 2e 35  2c 48 58 25 28 30 2c 31  |0,1)*1.5,HX%(0,1|
00000f30  29 2a 31 2e 35 0d 07 76  0c 2a 46 58 32 32 39 2c  |)*1.5..v.*FX229,|
00000f40  30 0d 07 80 05 e1 0d 07  8a 04 0d 07 94 0c dd f2  |0...............|
00000f50  67 65 74 70 61 72 0d 07  9e 0c ea 6e 70 61 72 2c  |getpar.....npar,|
00000f60  41 25 0d 07 a8 0a 2a 46  58 32 32 39 0d 07 b2 10  |A%....*FX229....|
00000f70  ea 85 3a ee 85 ea 3a e5  8d 54 56 48 0d 07 bc 17  |..:...:..TVH....|
00000f80  c8 99 36 2c 32 32 39 2c  30 2c 32 35 35 20 b8 20  |..6,229,0,255 . |
00000f90  2c 41 25 0d 07 c6 09 2a  46 58 31 35 0d 07 d0 07  |,A%....*FX15....|
00000fa0  f5 3a db 0d 07 da 63 fb  38 3a f1 8a 30 2c 32 29  |.:....c.8:..0,2)|
00000fb0  22 54 48 45 20 43 55 52  52 45 4e 54 20 50 41 52  |"THE CURRENT PAR|
00000fc0  20 49 53 20 22 3b 70 61  72 3b 22 2e 22 27 22 54  | IS ";par;"."'"T|
00000fd0  48 45 20 41 43 43 45 50  54 41 42 4c 45 20 52 41  |HE ACCEPTABLE RA|
00000fe0  4e 47 45 20 49 53 20 32  20 54 4f 20 35 22 3a e7  |NGE IS 2 TO 5":.|
00000ff0  41 25 3d 30 f1 22 45 53  43 41 50 45 20 54 4f 20  |A%=0."ESCAPE TO |
00001000  41 42 4f 52 54 22 0d 07  e4 2b fb 31 33 3a e8 8a  |ABORT"...+.13:..|
00001010  30 2c 30 29 22 57 48 41  54 20 49 53 20 54 48 45  |0,0)"WHAT IS THE|
00001020  20 48 4f 4c 45 20 50 41  52 20 3f 20 22 6e 70 61  | HOLE PAR ? "npa|
00001030  72 0d 07 ee 15 e7 6e 70  61 72 3c 32 84 6e 70 61  |r.....npar<2.npa|
00001040  72 3e 35 20 ef 37 0d 07  f8 12 fd 6e 70 61 72 3e  |r>5 .7.....npar>|
00001050  31 80 6e 70 61 72 3c 36  0d 08 02 0c 70 61 72 3d  |1.npar<6....par=|
00001060  6e 70 61 72 0d 08 0c 20  50 25 3d 6d 61 70 70 6f  |npar... P%=mappo|
00001070  69 6e 74 25 2b 26 32 45  38 3a f2 77 72 69 6d 61  |int%+&2E8:.wrima|
00001080  70 28 30 29 0d 08 16 0c  2a 46 58 32 32 39 2c 31  |p(0)....*FX229,1|
00001090  0d 08 20 05 e1 0d 08 2a  04 0d 08 34 0d dd f2 67  |.. ....*...4...g|
000010a0  65 74 63 65 6e 74 0d 08  3e 22 fb 38 3a f2 72 65  |etcent..>".8:.re|
000010b0  71 28 22 50 4f 53 49 54  49 4f 4e 20 43 45 4e 54  |q("POSITION CENT|
000010c0  52 45 22 29 3a fb 31 33  0d 08 48 0f 50 54 53 25  |RE"):.13..H.PTS%|
000010d0  28 4e 4f 25 29 3d 30 0d  08 52 05 f5 0d 08 5c 08  |(NO%)=0..R....\.|
000010e0  f2 6d 6f 75 0d 08 66 0d  e7 59 25 3e 2d 33 36 38  |.mou..f..Y%>-368|
000010f0  8c 0d 08 70 08 e7 4b 25  8c 0d 08 7a 0c 63 6c 6f  |...p..K%...z.clo|
00001100  73 65 64 3d a3 0d 08 84  16 48 58 25 28 4e 4f 25  |sed=.....HX%(NO%|
00001110  2c 30 29 3d 2d 59 25 2f  31 2e 35 0d 08 8e 16 48  |,0)=-Y%/1.5....H|
00001120  59 25 28 4e 4f 25 2c 30  29 3d 2d 58 25 2f 31 2e  |Y%(NO%,0)=-X%/1.|
00001130  35 0d 08 98 05 cd 0d 08  a2 05 cd 0d 08 ac 0d fd  |5...............|
00001140  63 6c 6f 73 65 64 3d a3  0d 08 b6 0a 6d 65 6d 2d  |closed=.....mem-|
00001150  3d 34 0d 08 c0 0c f2 62  75 74 74 28 30 29 0d 08  |=4.....butt(0)..|
00001160  ca 05 e1 0d 08 d4 04 0d  08 de 0a dd f2 67 72 69  |.............gri|
00001170  64 0d 08 e8 08 e6 30 2c  30 0d 08 f2 0a ea 58 25  |d.....0,0.....X%|
00001180  2c 59 25 0d 08 fc 0c 58  25 3d 2d 31 35 30 30 0d  |,Y%....X%=-1500.|
00001190  09 06 29 ef 32 33 2c 36  2c 26 35 35 2c 26 35 35  |..).23,6,&55,&55|
000011a0  2c 26 35 35 2c 26 35 35  2c 26 35 35 2c 26 35 35  |,&55,&55,&55,&55|
000011b0  2c 26 35 35 2c 26 35 35  0d 09 10 05 f5 0d 09 1a  |,&55,&55........|
000011c0  1f ec 58 25 2a 31 2e 35  2c 2d 33 38 34 3a f0 32  |..X%*1.5,-384:.2|
000011d0  39 2c 58 25 2a 31 2e 35  2c 36 34 30 0d 09 24 0a  |9,X%*1.5,640..$.|
000011e0  58 25 2b 3d 35 30 0d 09  2e 0b fd 58 25 3e 36 30  |X%+=50.....X%>60|
000011f0  30 0d 09 38 29 ef 32 33  2c 36 2c 26 31 31 2c 26  |0..8).23,6,&11,&|
00001200  31 31 2c 26 31 31 2c 26  31 31 2c 26 31 31 2c 26  |11,&11,&11,&11,&|
00001210  31 31 2c 26 31 31 2c 26  31 31 0d 09 42 13 e3 59  |11,&11,&11..B..Y|
00001220  25 3d 2d 32 30 30 b8 32  30 30 88 35 30 0d 09 4c  |%=-200.200.50..L|
00001230  21 ec 2d 31 30 30 30 2c  59 25 2a 31 2e 35 3a f0  |!.-1000,Y%*1.5:.|
00001240  32 39 2c 31 30 30 30 2c  59 25 2a 31 2e 35 0d 09  |29,1000,Y%*1.5..|
00001250  56 05 ed 0d 09 60 21 86  30 2c 2d 33 38 34 2c 30  |V....`!.0,-384,0|
00001260  2c 36 34 30 3a 86 2d 31  35 30 30 2c 30 2c 31 30  |,640:.-1500,0,10|
00001270  30 30 2c 30 0d 09 6a 13  e6 35 3a c8 8f 30 2c 30  |00,0..j..5:..0,0|
00001280  2c 32 35 2a 31 2e 35 0d  09 74 0d e6 43 4f 25 28  |,25*1.5..t..CO%(|
00001290  4e 4f 25 29 0d 09 7e 05  e1 0d 09 88 04 0d 09 92  |NO%)..~.........|
000012a0  11 dd f2 73 68 73 63 28  54 25 2c 43 25 29 0d 09  |...shsc(T%,C%)..|
000012b0  9c 1e e7 43 25 fb 31 32  38 2b 38 3a fb 31 31 3a  |...C%.128+8:.11:|
000012c0  8b 20 fb 31 32 38 2b 31  31 3a fb 38 0d 09 a6 09  |. .128+11:.8....|
000012d0  c8 8e 54 25 ca 0d 09 b0  1e c9 31 3a f1 8a 33 30  |..T%......1:..30|
000012e0  2c 32 29 20 22 44 45 4c  45 54 45 20 4f 42 4a 45  |,2) "DELETE OBJE|
000012f0  43 54 22 0d 09 ba 1c c9  32 3a f1 8a 33 30 2c 33  |CT".....2:..30,3|
00001300  29 22 41 4c 54 45 52 20  4f 42 4a 45 43 54 22 0d  |)"ALTER OBJECT".|
00001310  09 c4 1b c9 33 3a f1 8a  34 37 2c 32 29 22 53 41  |....3:..47,2)"SA|
00001320  56 45 20 43 4f 55 52 53  45 22 0d 09 ce 1b c9 34  |VE COURSE".....4|
00001330  3a f1 8a 36 34 2c 32 29  22 4c 4f 41 44 20 43 4f  |:..64,2)"LOAD CO|
00001340  55 52 53 45 22 0d 09 d8  19 c9 35 3a f1 8a 34 37  |URSE".....5:..47|
00001350  2c 33 29 22 52 45 41 44  20 48 4f 4c 45 22 0d 09  |,3)"READ HOLE"..|
00001360  e2 1a c9 36 3a f1 8a 36  34 2c 33 29 22 57 52 49  |...6:..64,3)"WRI|
00001370  54 45 20 48 4f 4c 45 22  0d 09 ec 16 c9 37 3a f1  |TE HOLE".....7:.|
00001380  8a 34 37 2c 34 29 22 49  53 4c 41 4e 44 22 0d 09  |.47,4)"ISLAND"..|
00001390  f6 1a c9 38 3a f1 8a 36  34 2c 34 29 22 27 4e 45  |...8:..64,4)"'NE|
000013a0  57 27 20 48 4f 4c 45 22  0d 0a 00 1f c9 39 3a f1  |W' HOLE".....9:.|
000013b0  8a 34 37 2c 35 29 22 49  4e 53 45 52 54 20 54 52  |.47,5)"INSERT TR|
000013c0  45 45 53 22 bd 33 30 0d  0a 0a 1d c9 31 30 3a f1  |EES".30.....10:.|
000013d0  8a 36 34 2c 35 29 22 56  49 45 57 20 48 4f 4c 45  |.64,5)"VIEW HOLE|
000013e0  22 bd 33 30 0d 0a 14 1a  c9 31 31 3a f1 8a 33 30  |".30.....11:..30|
000013f0  2c 34 29 22 41 4c 54 45  52 20 50 41 52 22 0d 0a  |,4)"ALTER PAR"..|
00001400  1e 1d c9 31 32 3a f1 8a  33 30 2c 35 29 22 41 4c  |...12:..30,5)"AL|
00001410  54 45 52 20 4e 6f 2e 22  bd 33 30 0d 0a 28 1e c9  |TER No.".30..(..|
00001420  31 33 3a f1 8a 39 2c 35  29 22 45 58 49 54 20 45  |13:..9,5)"EXIT E|
00001430  44 49 54 4f 52 22 bd 33  30 0d 0a 32 05 cb 0d 0a  |DITOR".30..2....|
00001440  3c 0f fb 31 32 38 2b 31  31 3a fb 31 33 0d 0a 46  |<..128+11:.13..F|
00001450  05 e1 0d 0a 50 04 0d 0a  5a 0e dd f2 63 68 6f 6f  |....P...Z...choo|
00001460  73 65 6f 62 0d 0a 64 0a  64 6f 62 25 3d b9 0d 0a  |seob..d.dob%=...|
00001470  6e 05 f5 0d 0a 78 0d f2  73 68 6f 77 63 6f 6c 73  |n....x..showcols|
00001480  0d 0a 82 29 fb 31 35 3a  f1 8a 32 2c 32 29 22 48  |...).15:..2,2)"H|
00001490  4f 4c 45 44 20 4f 55 54  20 43 4f 55 52 53 45 20  |OLED OUT COURSE |
000014a0  44 45 53 49 47 4e 45 52  22 0d 0a 8c 1b f1 8a 36  |DESIGNER"......6|
000014b0  2c 33 29 22 45 44 49 54  49 4e 47 20 22 43 6f 75  |,3)"EDITING "Cou|
000014c0  72 73 65 24 0d 0a 96 04  0d 0a a0 1a e3 54 25 3d  |rse$.........T%=|
000014d0  31 b8 31 33 3a f2 73 68  73 63 28 54 25 2c a3 29  |1.13:.shsc(T%,.)|
000014e0  3a ed 0d 0a aa 09 6f 62  25 3d b9 0d 0a b4 0b 6f  |:.....ob%=.....o|
000014f0  64 6f 62 25 3d 31 0d 0a  be 0b 6f 62 6f 62 25 3d  |dob%=1....obob%=|
00001500  30 0d 0a c8 05 f5 0d 0a  d2 09 2a 46 58 31 35 0d  |0.........*FX15.|
00001510  0a dc 0e c8 97 58 25 2c  59 25 2c 4b 25 0d 0a e6  |.....X%,Y%,K%...|
00001520  1b e7 59 25 2b 36 34 30  3e 31 39 33 80 59 25 2b  |..Y%+640>193.Y%+|
00001530  36 34 30 3c 32 32 34 8c  0d 0a f0 1f 64 6f 62 25  |640<224.....dob%|
00001540  3d 28 58 25 2d 34 38 2b  69 73 6c 61 6e 64 2b 6c  |=(X%-48+island+l|
00001550  65 6e 29 81 31 37 36 0d  0a fa 1a e7 69 73 6c 61  |en).176.....isla|
00001560  6e 64 3c 30 80 64 6f 62  25 3e 30 64 6f 62 25 3d  |nd<0.dob%>0dob%=|
00001570  b9 0d 0b 04 18 e7 67 72  65 65 6e 20 80 64 6f 62  |......green .dob|
00001580  25 3d 32 64 6f 62 25 3d  b9 0d 0b 0e 16 e7 74 65  |%=2dob%=......te|
00001590  65 20 80 64 6f 62 25 3d  36 64 6f 62 25 3d b9 0d  |e .dob%=6dob%=..|
000015a0  0b 18 25 e7 28 58 25 2d  34 38 2b 69 73 6c 61 6e  |..%.(X%-48+islan|
000015b0  64 2b 6c 65 6e 29 83 31  37 36 3e 31 31 32 64 6f  |d+len).176>112do|
000015c0  62 25 3d b9 0d 0b 22 19  e7 64 6f 62 25 3c 3e b9  |b%=..."..dob%<>.|
000015d0  20 f2 73 63 32 28 a3 2c  64 6f 62 25 29 0d 0b 2c  | .sc2(.,dob%)..,|
000015e0  28 e7 64 6f 62 25 3c 3e  6f 64 6f 62 25 f2 73 63  |(.dob%<>odob%.sc|
000015f0  32 28 b9 2c 6f 64 6f 62  25 29 3a 6f 64 6f 62 25  |2(.,odob%):odob%|
00001600  3d 64 6f 62 25 0d 0b 36  11 e7 4b 25 80 64 6f 62  |=dob%..6..K%.dob|
00001610  25 3c 3e b9 20 8c 0d 0b  40 0c 6f 62 25 3d 64 6f  |%<>. ...@.ob%=do|
00001620  62 25 0d 0b 4a 1c f2 73  68 6f 77 63 68 6f 73 65  |b%..J..showchose|
00001630  6e 3a e6 4f 42 25 28 6f  62 25 29 3a ef 37 0d 0b  |n:.OB%(ob%):.7..|
00001640  54 07 fb 31 32 0d 0b 5e  05 cd 0d 0b 68 05 cc 0d  |T..12..^....h...|
00001650  0b 72 20 e7 64 6f 62 25  3c 3e b9 3a f2 73 63 32  |.r .dob%<>.:.sc2|
00001660  28 b9 2c 64 6f 62 25 29  3a 64 6f 62 25 3d b9 0d  |(.,dob%):dob%=..|
00001670  0b 7c 05 cd 0d 0b 86 0a  e7 6f 62 25 3d b9 0d 0b  |.|.......ob%=...|
00001680  90 1b 62 58 25 3d 28 58  25 2d 31 36 30 2b 69 73  |..bX%=(X%-160+is|
00001690  6c 61 6e 64 2b 6c 65 6e  29 0d 0b 9a 0a 62 6f 62  |land+len)....bob|
000016a0  25 3d a3 0d 0b a4 41 e7  59 25 3c 2d 35 37 34 80  |%=....A.Y%<-574.|
000016b0  59 25 3e 2d 36 30 36 80  62 58 25 3e 36 31 30 80  |Y%>-606.bX%>610.|
000016c0  62 58 25 3c 38 30 30 3a  62 6f 62 25 3d 39 3a e7  |bX%<800:bob%=9:.|
000016d0  4b 25 f2 69 6e 73 65 72  74 74 72 65 65 73 3a fd  |K%.inserttrees:.|
000016e0  b9 3a fd 30 0d 0b ae 40  e7 59 25 3e 2d 35 37 37  |.:.0...@.Y%>-577|
000016f0  80 59 25 3c 2d 35 34 34  80 62 58 25 3e 36 31 30  |.Y%<-544.bX%>610|
00001700  80 62 58 25 3c 37 30 34  3a 62 6f 62 25 3d 37 3a  |.bX%<704:bob%=7:|
00001710  e7 4b 25 f2 64 72 61 77  69 73 6c 61 6e 64 3a fd  |.K%.drawisland:.|
00001720  b9 3a fd 30 0d 0b b8 04  0d 0b c2 48 e7 59 25 3e  |.:.0.......H.Y%>|
00001730  2d 35 37 37 80 59 25 3c  2d 35 34 34 80 62 58 25  |-577.Y%<-544.bX%|
00001740  3e 33 33 34 80 62 58 25  3c 34 38 30 3a 62 6f 62  |>334.bX%<480:bob|
00001750  25 3d 31 31 3a e7 4b 25  f2 67 65 74 70 61 72 3a  |%=11:.K%.getpar:|
00001760  f2 72 65 64 69 73 70 6c  61 79 3a fd b9 3a fd 30  |.redisplay:..:.0|
00001770  0d 0b cc 4b e7 59 25 3e  2d 36 30 36 80 59 25 3c  |...K.Y%>-606.Y%<|
00001780  2d 35 37 34 80 62 58 25  3e 33 33 34 80 62 58 25  |-574.bX%>334.bX%|
00001790  3c 34 38 30 3a 62 6f 62  25 3d 31 32 3a e7 4b 25  |<480:bob%=12:.K%|
000017a0  f2 67 65 74 68 6f 6c 65  6e 6f 3a f2 72 65 64 69  |.getholeno:.redi|
000017b0  73 70 6c 61 79 3a fd b9  3a fd 30 0d 0b d6 42 e7  |splay:..:.0...B.|
000017c0  59 25 3e 2d 35 31 33 80  59 25 3c 2d 34 38 31 80  |Y%>-513.Y%<-481.|
000017d0  62 58 25 3e 33 33 34 80  62 58 25 3c 35 34 31 80  |bX%>334.bX%<541.|
000017e0  4e 4f 25 3e 31 3a 62 6f  62 25 3d 31 3a e7 4b 25  |NO%>1:bob%=1:.K%|
000017f0  f2 64 65 6c 65 74 65 3a  fd b9 3a fd 30 0d 0b e0  |.delete:..:.0...|
00001800  41 e7 59 25 3e 2d 35 34  35 80 59 25 3c 2d 35 31  |A.Y%>-545.Y%<-51|
00001810  32 80 62 58 25 3e 33 33  34 80 62 58 25 3c 35 32  |2.bX%>334.bX%<52|
00001820  36 80 4e 4f 25 3e 31 3a  62 6f 62 25 3d 32 3a e7  |6.NO%>1:bob%=2:.|
00001830  4b 25 f2 61 6c 74 65 72  3a fd b9 3a fd 30 0d 0b  |K%.alter:..:.0..|
00001840  ea 12 e7 69 73 6c 61 6e  64 3c 30 8c 8d 44 4e 4c  |...island<0..DNL|
00001850  0d 0b f4 40 e7 59 25 3e  2d 35 31 33 80 59 25 3c  |...@.Y%>-513.Y%<|
00001860  2d 34 38 31 80 62 58 25  3e 36 31 30 80 62 58 25  |-481.bX%>610.bX%|
00001870  3c 37 38 32 3a 62 6f 62  25 3d 33 3a e7 4b 25 f2  |<782:bob%=3:.K%.|
00001880  73 61 76 65 63 6f 75 72  73 65 3a fd b9 3a fd 30  |savecourse:..:.0|
00001890  0d 0b fe 41 e7 59 25 3e  2d 35 31 33 80 59 25 3c  |...A.Y%>-513.Y%<|
000018a0  2d 34 38 31 80 62 58 25  3e 38 38 30 80 62 58 25  |-481.bX%>880.bX%|
000018b0  3c 31 30 35 36 3a 62 6f  62 25 3d 34 3a e7 4b 25  |<1056:bob%=4:.K%|
000018c0  f2 6c 6f 61 64 63 6f 75  72 73 65 3a fd b9 3a fd  |.loadcourse:..:.|
000018d0  30 0d 0c 08 3e e7 59 25  3e 2d 35 34 35 80 59 25  |0...>.Y%>-545.Y%|
000018e0  3c 2d 35 31 32 80 62 58  25 3e 36 31 30 80 62 58  |<-512.bX%>610.bX|
000018f0  25 3c 37 35 32 3a 62 6f  62 25 3d 35 3a e7 4b 25  |%<752:bob%=5:.K%|
00001900  f2 72 65 61 64 68 6f 6c  65 3a fd b9 3a fd 30 0d  |.readhole:..:.0.|
00001910  0c 12 40 e7 59 25 3e 2d  35 34 35 80 59 25 3c 2d  |..@.Y%>-545.Y%<-|
00001920  35 31 32 80 62 58 25 3e  38 38 30 80 62 58 25 3c  |512.bX%>880.bX%<|
00001930  31 30 34 30 3a 62 6f 62  25 3d 36 3a e7 4b 25 f2  |1040:bob%=6:.K%.|
00001940  77 72 69 74 65 68 6f 6c  65 3a fd b9 3a fd 30 0d  |writehole:..:.0.|
00001950  0c 1c 85 e7 59 25 3c 2d  35 37 34 80 59 25 3e 2d  |....Y%<-574.Y%>-|
00001960  36 30 36 80 62 58 25 3e  38 38 38 80 62 58 25 3c  |606.bX%>888.bX%<|
00001970  31 30 32 34 3a 62 6f 62  25 3d 31 30 3a e7 4b 25  |1024:bob%=10:.K%|
00001980  49 6e 65 64 69 74 6f 72  3d b9 3a f2 64 72 61 77  |Ineditor=.:.draw|
00001990  6d 61 70 28 30 29 3a 49  6e 65 64 69 74 6f 72 3d  |map(0):Ineditor=|
000019a0  a3 3a ef 34 3a f2 73 65  74 6d 61 69 6e 76 3a f2  |.:.4:.setmainv:.|
000019b0  73 74 61 72 74 75 70 32  3a f2 72 65 64 69 73 70  |startup2:.redisp|
000019c0  6c 61 79 3a ff 22 46 58  32 32 39 2c 31 22 3a fd  |lay:."FX229,1":.|
000019d0  b9 3a fd 30 0d 0c 26 58  f4 49 46 59 25 3c 2d 35  |.:.0..&X.IFY%<-5|
000019e0  37 34 41 4e 44 59 25 3e  2d 36 30 36 41 4e 44 62  |74ANDY%>-606ANDb|
000019f0  58 25 3e 36 31 30 41 4e  44 62 58 25 3c 38 30 30  |X%>610ANDbX%<800|
00001a00  3a 62 6f 62 25 3d 39 3a  49 46 4b 25 50 52 4f 43  |:bob%=9:IFK%PROC|
00001a10  69 6e 73 65 72 74 74 72  65 65 73 3a 55 4e 54 49  |inserttrees:UNTI|
00001a20  4c 54 52 55 45 3a 55 4e  54 49 4c 30 0d 0c 30 3c  |LTRUE:UNTIL0..0<|
00001a30  e7 59 25 3c 2d 35 37 34  80 59 25 3e 2d 36 30 36  |.Y%<-574.Y%>-606|
00001a40  80 62 58 25 3e 32 80 62  58 25 3c 31 37 32 3a 62  |.bX%>2.bX%<172:b|
00001a50  6f 62 25 3d 31 33 3a e7  4b 25 65 78 69 74 3d b9  |ob%=13:.K%exit=.|
00001a60  3a fd b9 3a fd b9 3a e1  0d 0c 3a 57 f4 49 46 59  |:..:..:...:W.IFY|
00001a70  25 3e 2d 35 37 37 41 4e  44 59 25 3c 2d 35 34 34  |%>-577ANDY%<-544|
00001a80  41 4e 44 62 58 25 3e 36  31 30 41 4e 44 62 58 25  |ANDbX%>610ANDbX%|
00001a90  3c 37 30 34 3a 62 6f 62  25 3d 37 3a 49 46 4b 25  |<704:bob%=7:IFK%|
00001aa0  50 52 4f 43 64 72 61 77  69 73 6c 61 6e 64 3a 55  |PROCdrawisland:U|
00001ab0  4e 54 49 4c 54 52 55 45  3a 55 4e 54 49 4c 30 0d  |NTILTRUE:UNTIL0.|
00001ac0  0c 44 3c e7 59 25 3e 2d  35 37 37 80 59 25 3c 2d  |.D<.Y%>-577.Y%<-|
00001ad0  35 34 34 80 62 58 25 3e  38 38 30 80 62 58 25 3c  |544.bX%>880.bX%<|
00001ae0  31 30 34 30 3a 62 6f 62  25 3d 38 3a e7 4b 25 f2  |1040:bob%=8:.K%.|
00001af0  6e 65 77 69 74 3a fd b9  3a fd 30 0d 0c 4e 26 e7  |newit:..:.0..N&.|
00001b00  62 6f 62 25 3c 3e 6f 62  6f 62 25 f2 73 68 73 63  |bob%<>obob%.shsc|
00001b10  28 6f 62 6f 62 25 2c a3  29 3a 6f 62 6f 62 25 3d  |(obob%,.):obob%=|
00001b20  30 0d 0c 58 21 e7 62 6f  62 25 f2 73 68 73 63 28  |0..X!.bob%.shsc(|
00001b30  62 6f 62 25 2c b9 29 3a  6f 62 6f 62 25 3d 62 6f  |bob%,.):obob%=bo|
00001b40  62 25 0d 0c 62 05 cd 0d  0c 6c 26 f4 50 52 49 4e  |b%..b....l&.PRIN|
00001b50  54 54 41 42 28 30 2c 34  29 59 25 2c 58 25 2d 34  |TTAB(0,4)Y%,X%-4|
00001b60  38 2b 69 73 6c 61 6e 64  2b 6c 65 6e 3b 0d 0c 76  |8+island+len;..v|
00001b70  0b fd 6f 62 25 3c 3e b9  0d 0c 80 15 43 4f 25 28  |..ob%<>.....CO%(|
00001b80  4e 4f 25 29 3d 4f 42 25  28 6f 62 25 29 0d 0c 8a  |NO%)=OB%(ob%)...|
00001b90  15 e7 6f 62 25 3d 36 f2  64 72 61 77 74 65 65 3a  |..ob%=6.drawtee:|
00001ba0  fd 30 0d 0c 94 17 e7 6f  62 25 3d 32 f2 64 72 61  |.0.....ob%=2.dra|
00001bb0  77 67 72 65 65 6e 3a fd  30 0d 0c 9e 06 fd b9 0d  |wgreen:.0.......|
00001bc0  0c a8 05 e1 0d 0c b2 04  0d 0c bc 12 dd f2 73 63  |..............sc|
00001bd0  32 28 43 25 2c 64 6f 62  25 29 0d 0c c6 0d e7 64  |2(C%,dob%).....d|
00001be0  6f 62 25 3d b9 20 e1 0d  0c d0 28 e7 43 25 3d 30  |ob%=. ....(.C%=0|
00001bf0  80 28 28 64 6f 62 25 3d  32 80 67 72 65 65 6e 29  |.((dob%=2.green)|
00001c00  84 28 64 6f 62 25 3d 36  80 74 65 65 29 29 e1 0d  |.(dob%=6.tee))..|
00001c10  0c da 2f e7 43 25 20 fb  31 32 38 2b 31 31 3a fb  |../.C% .128+11:.|
00001c20  4f 42 25 28 64 6f 62 25  29 20 8b 20 fb 31 32 38  |OB%(dob%) . .128|
00001c30  2b 4f 42 25 28 64 6f 62  25 29 3a fb 31 31 0d 0c  |+OB%(dob%):.11..|
00001c40  e4 1c f1 8a 64 6f 62 25  2a 31 31 2b 32 2c 30 29  |....dob%*11+2,0)|
00001c50  4f 42 24 28 64 6f 62 25  29 3b 0d 0c ee 0f fb 31  |OB$(dob%);.....1|
00001c60  32 38 2b 31 31 3a fb 31  33 0d 0c f8 05 e1 0d 0d  |28+11:.13.......|
00001c70  02 04 0d 0d 0c 10 dd f2  64 72 61 77 69 73 6c 61  |........drawisla|
00001c80  6e 64 0d 0d 16 17 69 73  6c 61 6e 64 3d 69 73 6c  |nd....island=isl|
00001c90  61 6e 64 20 82 2d 33 34  38 0d 0d 20 0e f2 72 65  |and .-348.. ..re|
00001ca0  64 69 73 70 6c 61 79 0d  0d 2a 05 e1 0d 0d 34 04  |display..*....4.|
00001cb0  0d 0d 3e 0b dd f2 6e 65  77 69 74 0d 0d 48 07 ea  |..>...newit..H..|
00001cc0  41 24 0d 0d 52 0a 2a 46  58 32 32 39 0d 0d 5c 10  |A$..R.*FX229..\.|
00001cd0  ea 85 3a ee 85 ea 3a e5  8d 64 4a 4d 0d 0d 66 05  |..:...:..dJM..f.|
00001ce0  db 0d 0d 70 26 f1 22 4e  45 57 20 2d 2d 2d 2d 20  |...p&."NEW ---- |
00001cf0  41 52 45 20 59 4f 55 20  53 55 52 45 20 5b 59 2f  |ARE YOU SURE [Y/|
00001d00  4e 5d 20 3f 22 bd 37 0d  0d 7a 6a fb 38 3a f1 27  |N] ?".7..zj.8:.'|
00001d10  22 27 4e 45 57 27 20 57  49 4c 4c 20 50 52 4f 44  |"'NEW' WILL PROD|
00001d20  55 43 45 20 41 20 42 4c  41 4e 4b 20 48 4f 4c 45  |UCE A BLANK HOLE|
00001d30  20 54 45 4d 50 4c 41 54  45 20 44 45 53 54 52 4f  | TEMPLATE DESTRO|
00001d40  59 49 4e 47 20 54 48 45  20 43 55 52 52 45 4e 54  |YING THE CURRENT|
00001d50  20 48 4f 4c 45 20 44 41  54 41 22 27 22 45 53 43  | HOLE DATA"'"ESC|
00001d60  41 50 45 20 54 4f 20 41  42 4f 52 54 22 3a fb 31  |APE TO ABORT":.1|
00001d70  33 0d 0d 84 09 2a 46 58  31 35 0d 0d 8e 53 f5 3a  |3....*FX15...S.:|
00001d80  41 24 3d bf 28 30 29 3a  fd 41 24 3c 3e 22 22 3a  |A$=.(0):.A$<>"":|
00001d90  f4 20 42 55 47 20 49 4e  20 42 41 53 49 43 20 50  |. BUG IN BASIC P|
00001da0  52 45 56 45 4e 54 53 20  55 53 45 20 4f 46 20 47  |REVENTS USE OF G|
00001db0  45 54 20 57 49 54 48 20  41 20 4c 4f 43 41 4c 20  |ET WITH A LOCAL |
00001dc0  45 52 52 4f 52 20 48 41  4e 44 4c 45 52 0d 0d 98  |ERROR HANDLER...|
00001dd0  15 e7 41 24 3c 3e 22 59  22 80 41 24 3c 3e 22 79  |..A$<>"Y".A$<>"y|
00001de0  22 e1 0d 0d a2 11 74 65  65 3d a3 3a 67 72 65 65  |".....tee=.:gree|
00001df0  6e 3d a3 0d 0d ac 10 f2  69 6e 70 75 74 6c 65 6e  |n=......inputlen|
00001e00  67 74 68 0d 0d b6 0f 4e  4f 25 3d 31 3a 4e 54 25  |gth....NO%=1:NT%|
00001e10  3d b9 0d 0d c0 09 f2 67  72 69 64 0d 0d ca 0c 2a  |=......grid....*|
00001e20  46 58 32 32 39 2c 31 0d  0d d4 05 e1 0d 0d de 04  |FX229,1.........|
00001e30  0d 0d e8 0f dd f2 77 72  69 74 65 68 6f 6c 65 0d  |......writehole.|
00001e40  0d f2 0c ea 67 70 25 2c  74 70 25 0d 0d fc 05 db  |....gp%,tp%.....|
00001e50  0d 0e 06 25 f1 22 57 52  49 54 49 4e 47 20 48 4f  |...%."WRITING HO|
00001e60  4c 45 20 22 3b 6d 61 70  70 6f 69 6e 74 25 81 26  |LE ";mappoint%.&|
00001e70  33 30 30 2b 31 0d 0e 10  1d f1 22 41 52 45 20 59  |300+1....."ARE Y|
00001e80  4f 55 20 53 55 52 45 20  5b 59 2f 4e 5d 20 3f 22  |OU SURE [Y/N] ?"|
00001e90  bd 37 0d 0e 1a 3e fb 38  3a f1 27 22 49 54 20 49  |.7...>.8:.'"IT I|
00001ea0  53 20 4e 45 43 43 45 53  53 41 52 59 20 54 4f 20  |S NECCESSARY TO |
00001eb0  57 52 49 54 45 20 54 48  45 20 48 4f 4c 45 20 44  |WRITE THE HOLE D|
00001ec0  41 54 41 20 49 4e 54 4f  20 4d 45 4d 4f 52 59 22  |ATA INTO MEMORY"|
00001ed0  0d 0e 24 45 f1 22 42 45  46 4f 52 45 20 49 54 20  |..$E."BEFORE IT |
00001ee0  43 41 4e 20 42 45 20 53  41 56 45 44 20 54 4f 20  |CAN BE SAVED TO |
00001ef0  44 49 53 43 20 4f 52 20  42 45 46 4f 52 45 20 55  |DISC OR BEFORE U|
00001f00  53 49 4e 47 20 27 56 49  45 57 20 48 4f 4c 45 27  |SING 'VIEW HOLE'|
00001f10  22 3a fb 31 33 0d 0e 2e  09 2a 46 58 31 35 0d 0e  |":.13....*FX15..|
00001f20  38 0a 2a 46 58 32 32 39  0d 0e 42 10 ea 85 3a ee  |8.*FX229..B...:.|
00001f30  85 ea 3a e5 8d 74 7e 4f  0d 0e 4c 05 f5 0d 0e 56  |..:..t~O..L....V|
00001f40  0b 41 24 3d bf 28 30 29  0d 0e 60 0b fd 41 24 3c  |.A$=.(0)..`..A$<|
00001f50  3e 22 22 0d 0e 6a 19 e7  41 24 3c 3e 22 59 22 80  |>""..j..A$<>"Y".|
00001f60  41 24 3c 3e 22 79 22 e5  8d 74 7e 4f 0d 0e 74 08  |A$<>"y"..t~O..t.|
00001f70  50 25 3d 30 0d 0e 7e 5c  f2 76 65 72 69 66 79 3a  |P%=0..~\.verify:|
00001f80  e7 50 25 3e 26 32 45 38  20 ef 37 3a f1 22 45 52  |.P%>&2E8 .7:."ER|
00001f90  52 4f 52 20 4d 45 4d 4f  52 59 20 41 42 4f 55 54  |ROR MEMORY ABOUT|
00001fa0  20 54 4f 20 42 45 20 4f  56 45 52 57 52 49 54 54  | TO BE OVERWRITT|
00001fb0  45 4e 21 21 22 27 22 50  52 45 53 53 20 53 50 41  |EN!!"'"PRESS SPA|
00001fc0  43 45 22 3a f5 fd a5 3d  33 32 3a e5 8d 74 7e 4f  |CE":...=32:..t~O|
00001fd0  0d 0e 88 0f 67 70 25 3d  30 3a 74 70 25 3d 30 0d  |....gp%=0:tp%=0.|
00001fe0  0e 92 0f e3 54 25 3d 31  b8 4e 4f 25 2d 31 0d 0e  |....T%=1.NO%-1..|
00001ff0  9c 17 e7 43 4f 25 28 54  25 29 3d 26 31 30 37 20  |...CO%(T%)=&107 |
00002000  74 70 25 3d b9 0d 0e a6  15 e7 43 4f 25 28 54 25  |tp%=......CO%(T%|
00002010  29 3d 35 20 67 70 25 3d  54 25 0d 0e b0 05 ed 0d  |)=5 gp%=T%......|
00002020  0e ba 70 e7 67 70 25 3d  a3 20 db 3a fb 38 3a f1  |..p.gp%=. .:.8:.|
00002030  8a 30 2c 31 29 22 54 48  45 52 45 20 49 53 20 4e  |.0,1)"THERE IS N|
00002040  4f 20 47 52 45 45 4e 20  54 48 45 52 45 46 4f 52  |O GREEN THEREFOR|
00002050  45 20 49 20 43 41 4e 27  54 20 57 52 49 54 45 20  |E I CAN'T WRITE |
00002060  54 48 49 53 20 48 4f 4c  45 21 22 27 22 50 4c 45  |THIS HOLE!"'"PLE|
00002070  41 53 45 20 50 52 45 53  53 20 53 50 41 43 45 22  |ASE PRESS SPACE"|
00002080  bd 37 3a f5 fd a6 2d 39  39 3a e5 8d 74 7e 4f 0d  |.7:...-99:..t~O.|
00002090  0e c4 6e e7 74 70 25 3d  a3 20 db 3a fb 38 3a f1  |..n.tp%=. .:.8:.|
000020a0  8a 30 2c 31 29 22 54 48  45 52 45 20 49 53 20 4e  |.0,1)"THERE IS N|
000020b0  4f 20 54 45 45 20 54 48  45 52 45 46 4f 52 45 20  |O TEE THEREFORE |
000020c0  49 20 43 41 4e 27 54 20  57 52 49 54 45 20 54 48  |I CAN'T WRITE TH|
000020d0  49 53 20 48 4f 4c 45 21  22 27 22 50 4c 45 41 53  |IS HOLE!"'"PLEAS|
000020e0  45 20 50 52 45 53 53 20  53 50 41 43 45 22 bd 37  |E PRESS SPACE".7|
000020f0  3a f5 fd a6 2d 39 39 3a  e5 8d 74 7e 4f 0d 0e ce  |:...-99:..t~O...|
00002100  11 e7 20 67 70 25 3c 3e  4e 4f 25 2d 31 8c 0d 0e  |.. gp%<>NO%-1...|
00002110  d8 13 58 25 3d 67 70 25  3a f2 64 65 6c 65 74 65  |..X%=gp%:.delete|
00002120  32 0d 0e e2 0f f2 64 72  61 77 67 72 65 65 6e 32  |2.....drawgreen2|
00002130  0d 0e ec 05 cd 0d 0e f6  33 50 25 3d 6d 61 70 70  |........3P%=mapp|
00002140  6f 69 6e 74 25 2b 26 32  45 38 3a f2 77 72 69 6d  |oint%+&2E8:.wrim|
00002150  61 70 28 74 65 65 59 25  29 3a f2 77 72 69 6d 61  |ap(teeY%):.wrima|
00002160  70 28 74 65 65 58 25 29  0d 0f 00 10 50 25 3d 6d  |p(teeX%)....P%=m|
00002170  61 70 70 6f 69 6e 74 25  0d 0f 0a 54 41 25 3d a0  |appoint%...TA%=.|
00002180  28 22 26 22 2b c3 28 a4  64 69 73 74 61 6e 63 65  |("&"+.(.distance|
00002190  28 74 65 65 58 25 2c 74  65 65 59 25 29 29 29 3a  |(teeX%,teeY%))):|
000021a0  6d 61 70 3f 28 50 25 2b  26 32 46 41 29 3d 41 25  |map?(P%+&2FA)=A%|
000021b0  3a 6d 61 70 3f 28 6d 61  70 70 6f 69 6e 74 25 2b  |:map?(mappoint%+|
000021c0  26 32 46 42 29 3d 41 25  81 32 35 36 0d 0f 14 15  |&2FB)=A%.256....|
000021d0  6d 61 70 3f 28 50 25 2b  26 32 46 39 29 3d 70 61  |map?(P%+&2F9)=pa|
000021e0  72 0d 0f 1e 26 6d 61 70  3f 28 50 25 2b 26 32 46  |r...&map?(P%+&2F|
000021f0  38 29 3d 68 6f 6c 65 70  20 83 31 39 2d 28 68 6f  |8)=holep .19-(ho|
00002200  6c 65 70 3e 31 38 29 0d  0f 28 13 f2 77 72 69 6d  |lep>18)..(..wrim|
00002210  61 70 31 28 4e 54 25 2b  31 29 0d 0f 32 0d e3 54  |ap1(NT%+1)..2..T|
00002220  25 3d 30 b8 4e 54 25 0d  0f 3c 15 f2 77 72 69 6d  |%=0.NT%..<..wrim|
00002230  61 70 28 54 52 58 25 28  54 25 29 29 0d 0f 46 15  |ap(TRX%(T%))..F.|
00002240  f2 77 72 69 6d 61 70 28  54 52 59 25 28 54 25 29  |.wrimap(TRY%(T%)|
00002250  29 0d 0f 50 05 ed 0d 0f  5a 11 f2 77 72 69 6d 61  |)..P....Z..wrima|
00002260  70 31 28 4e 4f 25 29 0d  0f 64 0f e3 54 25 3d 30  |p1(NO%)..d..T%=0|
00002270  b8 4e 4f 25 2d 31 0d 0f  6e 18 43 25 3d 43 4f 25  |.NO%-1..n.C%=CO%|
00002280  28 54 25 29 3a e7 43 25  3d 32 43 25 3d 31 0d 0f  |(T%):.C%=2C%=1..|
00002290  78 10 f2 77 72 69 6d 61  70 31 28 43 25 29 0d 0f  |x..wrimap1(C%)..|
000022a0  82 16 f2 77 72 69 6d 61  70 31 28 50 54 53 25 28  |...wrimap1(PTS%(|
000022b0  54 25 29 29 0d 0f 8c 12  e3 49 25 3d 30 b8 50 54  |T%)).....I%=0.PT|
000022c0  53 25 28 54 25 29 0d 0f  96 17 f2 77 72 69 6d 61  |S%(T%).....wrima|
000022d0  70 28 48 58 25 28 54 25  2c 49 25 29 29 0d 0f a0  |p(HX%(T%,I%))...|
000022e0  17 f2 77 72 69 6d 61 70  28 48 59 25 28 54 25 2c  |..wrimap(HY%(T%,|
000022f0  49 25 29 29 0d 0f aa 05  ed 0d 0f b4 05 ed 0d 0f  |I%))............|
00002300  be 0c 2a 46 58 32 32 39  2c 31 0d 0f c8 05 e1 0d  |..*FX229,1......|
00002310  0f d2 04 0d 0f dc 0c dd  f2 76 65 72 69 66 79 0d  |.........verify.|
00002320  0f e6 09 50 25 2b 3d 31  0d 0f f0 0d e3 54 25 3d  |...P%+=1.....T%=|
00002330  30 b8 4e 54 25 0d 0f fa  09 50 25 2b 3d 32 0d 10  |0.NT%....P%+=2..|
00002340  04 09 50 25 2b 3d 32 0d  10 0e 05 ed 0d 10 18 09  |..P%+=2.........|
00002350  50 25 2b 3d 31 0d 10 22  0f e3 54 25 3d 30 b8 4e  |P%+=1.."..T%=0.N|
00002360  4f 25 2d 31 0d 10 2c 09  50 25 2b 3d 32 0d 10 36  |O%-1..,.P%+=2..6|
00002370  12 e3 49 25 3d 30 b8 50  54 53 25 28 54 25 29 0d  |..I%=0.PTS%(T%).|
00002380  10 40 09 50 25 2b 3d 32  0d 10 4a 09 50 25 2b 3d  |.@.P%+=2..J.P%+=|
00002390  32 0d 10 54 05 ed 0d 10  5e 05 ed 0d 10 68 05 e1  |2..T....^....h..|
000023a0  0d 10 72 04 0d 10 7c 11  dd f2 77 72 69 6d 61 70  |..r...|...wrimap|
000023b0  31 28 41 25 29 0d 10 86  13 6d 61 70 3f 50 25 3d  |1(A%)....map?P%=|
000023c0  41 25 3a 50 25 2b 3d 31  0d 10 90 05 e1 0d 10 9a  |A%:P%+=1........|
000023d0  04 0d 10 a4 10 dd f2 77  72 69 6d 61 70 28 41 25  |.......wrimap(A%|
000023e0  29 0d 10 ae 0c 41 25 3d  41 25 2a 32 31 0d 10 b8  |)....A%=A%*21...|
000023f0  13 6d 61 70 3f 50 25 3d  41 25 3a 50 25 2b 3d 31  |.map?P%=A%:P%+=1|
00002400  0d 10 c2 16 6d 61 70 3f  50 25 3d 41 25 3e 3e 38  |....map?P%=A%>>8|
00002410  3a 50 25 2b 3d 31 0d 10  cc 05 e1 0d 10 d6 04 0d  |:P%+=1..........|
00002420  10 e0 0f dd f2 67 65 74  68 6f 6c 65 6e 6f 0d 10  |.....getholeno..|
00002430  ea 07 ea 6e 25 0d 10 f4  0a 2a 46 58 32 32 39 0d  |...n%....*FX229.|
00002440  10 fe 10 ea 85 3a ee 85  ea 20 e5 8d 44 58 51 0d  |.....:... ..DXQ.|
00002450  11 08 05 f5 0d 11 12 05  db 0d 11 1c 7f fb 38 3a  |..............8:|
00002460  f1 8a 30 2c 32 29 22 43  55 52 52 45 4e 54 20 48  |..0,2)"CURRENT H|
00002470  4f 4c 45 20 4e 6f 2e 20  49 53 20 22 3b 68 6f 6c  |OLE No. IS ";hol|
00002480  65 70 27 22 43 48 41 4e  47 49 4e 47 20 54 48 45  |ep'"CHANGING THE|
00002490  20 48 4f 4c 45 20 4e 6f  2e 20 49 53 20 41 20 57  | HOLE No. IS A W|
000024a0  41 59 20 4f 46 20 43 4f  50 59 49 4e 47 20 4f 4e  |AY OF COPYING ON|
000024b0  45 20 48 4f 4c 45 20 54  4f 20 41 4e 4f 54 48 45  |E HOLE TO ANOTHE|
000024c0  52 22 27 22 45 53 43 41  50 45 20 54 4f 20 41 42  |R"'"ESCAPE TO AB|
000024d0  4f 52 54 22 3a fb 31 33  0d 11 26 09 2a 46 58 31  |ORT":.13..&.*FX1|
000024e0  35 0d 11 30 33 e8 8a 30  2c 30 29 22 57 48 41 54  |5..03..0,0)"WHAT|
000024f0  20 49 53 20 54 48 45 20  4e 45 57 20 48 4f 4c 45  | IS THE NEW HOLE|
00002500  20 4e 6f 2e 20 7b 31 20  54 4f 20 31 38 7d 20 3f  | No. {1 TO 18} ?|
00002510  20 22 6e 25 0d 11 3a 0f  fd 6e 25 3e 30 80 6e 25  | "n%..:..n%>0.n%|
00002520  3c 31 39 0d 11 44 0c 68  6f 6c 65 70 3d 6e 25 0d  |<19..D.holep=n%.|
00002530  11 4e 1c 6d 61 70 70 6f  69 6e 74 25 3d 28 68 6f  |.N.mappoint%=(ho|
00002540  6c 65 70 2d 31 29 2a 26  33 30 30 0d 11 58 0c 2a  |lep-1)*&300..X.*|
00002550  46 58 32 32 39 2c 31 0d  11 62 05 e1 0d 11 6c 04  |FX229,1..b....l.|
00002560  0d 11 76 0e dd f2 72 65  61 64 68 6f 6c 65 0d 11  |..v...readhole..|
00002570  80 0a 2a 46 58 32 32 39  0d 11 8a 10 ea 85 3a ee  |..*FX229......:.|
00002580  85 ea 20 e5 8d 54 6e 53  0d 11 94 11 67 72 65 65  |.. ..TnS....gree|
00002590  6e 3d a3 3a 74 65 65 3d  b9 0d 11 9e 05 f5 0d 11  |n=.:tee=........|
000025a0  a8 05 db 0d 11 b2 09 2a  46 58 31 35 0d 11 bc 87  |.......*FX15....|
000025b0  fb 38 3a f1 8a 30 2c 32  29 22 54 48 45 20 45 58  |.8:..0,2)"THE EX|
000025c0  49 53 54 49 4e 47 20 48  4f 4c 45 20 44 41 54 41  |ISTING HOLE DATA|
000025d0  20 57 49 4c 4c 20 42 45  20 4c 4f 53 54 20 49 46  | WILL BE LOST IF|
000025e0  20 49 54 20 48 41 53 20  4e 4f 54 20 42 45 45 4e  | IT HAS NOT BEEN|
000025f0  20 57 52 49 54 54 45 4e  20 49 4e 54 4f 22 27 22  | WRITTEN INTO"'"|
00002600  4d 45 4d 4f 52 59 20 42  59 20 46 49 52 53 54 20  |MEMORY BY FIRST |
00002610  53 45 4c 45 43 54 49 4e  47 20 54 48 45 20 27 57  |SELECTING THE 'W|
00002620  52 49 54 45 20 48 4f 4c  45 27 20 4f 50 54 49 4f  |RITE HOLE' OPTIO|
00002630  4e 21 22 0d 11 c6 1a f1  22 45 53 43 41 50 45 20  |N!"....."ESCAPE |
00002640  54 4f 20 41 42 4f 52 54  22 3a fb 31 33 0d 11 d0  |TO ABORT":.13...|
00002650  3a e8 8a 30 2c 30 29 22  57 48 49 43 48 20 48 4f  |:..0,0)"WHICH HO|
00002660  4c 45 20 44 4f 20 59 4f  55 20 57 49 53 48 20 54  |LE DO YOU WISH T|
00002670  4f 20 45 44 49 54 20 7b  31 20 54 4f 20 31 38 7d  |O EDIT {1 TO 18}|
00002680  20 22 68 6f 6c 65 70 0d  11 da 15 fd 68 6f 6c 65  | "holep.....hole|
00002690  70 3e 30 80 68 6f 6c 65  70 3c 31 39 0d 11 e4 0f  |p>0.holep<19....|
000026a0  dd f2 72 65 61 64 68 6f  6c 65 32 0d 11 ee 15 50  |..readhole2....P|
000026b0  25 3d 28 68 6f 6c 65 70  2d 31 29 2a 26 33 30 30  |%=(holep-1)*&300|
000026c0  0d 11 f8 26 6c 65 6e 3d  28 bb 28 c3 7e 28 28 6d  |...&len=(.(.~((m|
000026d0  61 70 21 28 50 25 2b 26  32 46 41 29 29 80 26 46  |ap!(P%+&2FA)).&F|
000026e0  46 46 46 29 29 29 0d 12  02 15 70 61 72 3d 6d 61  |FFF)))....par=ma|
000026f0  70 3f 28 50 25 2b 26 32  46 39 29 0d 12 0c 10 6d  |p?(P%+&2F9)....m|
00002700  61 70 70 6f 69 6e 74 25  3d 50 25 0d 12 16 35 50  |appoint%=P%...5P|
00002710  25 3d 6d 61 70 70 6f 69  6e 74 25 2b 26 32 45 38  |%=mappoint%+&2E8|
00002720  3a 74 65 65 59 25 3d a4  6d 61 70 32 20 81 32 31  |:teeY%=.map2 .21|
00002730  3a 74 65 65 58 25 3d a4  6d 61 70 32 20 81 32 31  |:teeX%=.map2 .21|
00002740  0d 12 20 3d e7 a8 a4 64  69 73 74 61 6e 63 65 28  |.. =...distance(|
00002750  74 65 65 58 25 2c 74 65  65 59 25 29 3c 3e 6c 65  |teeX%,teeY%)<>le|
00002760  6e 20 6c 65 6e 3d a8 a4  64 69 73 74 61 6e 63 65  |n len=..distance|
00002770  28 74 65 65 58 25 2c 74  65 65 59 25 29 0d 12 2a  |(teeX%,teeY%)..*|
00002780  10 50 25 3d 6d 61 70 70  6f 69 6e 74 25 0d 12 34  |.P%=mappoint%..4|
00002790  0c 6d 65 6d 3d 26 32 45  38 0d 12 3e 11 74 65 65  |.mem=&2E8..>.tee|
000027a0  3d a3 3a 67 72 65 65 6e  3d a3 0d 12 48 0f 4e 54  |=.:green=...H.NT|
000027b0  25 3d a4 6d 61 70 31 2d  31 0d 12 52 0d e3 54 25  |%=.map1-1..R..T%|
000027c0  3d 30 b8 4e 54 25 0d 12  5c 16 54 52 58 25 28 54  |=0.NT%..\.TRX%(T|
000027d0  25 29 3d a4 6d 61 70 32  20 81 32 31 0d 12 66 16  |%)=.map2 .21..f.|
000027e0  54 52 59 25 28 54 25 29  3d a4 6d 61 70 32 20 81  |TRY%(T%)=.map2 .|
000027f0  32 31 0d 12 70 0a 6d 65  6d 2d 3d 34 0d 12 7a 05  |21..p.mem-=4..z.|
00002800  ed 0d 12 84 04 0d 12 8e  14 4e 4f 25 3d a4 6d 61  |.........NO%=.ma|
00002810  70 31 3a 6d 65 6d 2d 3d  31 0d 12 98 0f e3 54 25  |p1:mem-=1.....T%|
00002820  3d 30 b8 4e 4f 25 2d 31  0d 12 a2 18 43 4f 25 28  |=0.NO%-1....CO%(|
00002830  54 25 29 3d a4 6d 61 70  31 3a 6d 65 6d 2d 3d 31  |T%)=.map1:mem-=1|
00002840  0d 12 ac 15 e7 43 4f 25  28 54 25 29 3d 35 67 72  |.....CO%(T%)=5gr|
00002850  65 65 6e 3d b9 0d 12 b6  17 e7 43 4f 25 28 54 25  |een=......CO%(T%|
00002860  29 3d 31 43 4f 25 28 54  25 29 3d 32 0d 12 c0 04  |)=1CO%(T%)=2....|
00002870  0d 12 ca 19 50 54 53 25  28 54 25 29 3d a4 6d 61  |....PTS%(T%)=.ma|
00002880  70 31 3a 6d 65 6d 2d 3d  31 0d 12 d4 12 e3 49 25  |p1:mem-=1.....I%|
00002890  3d 30 b8 50 54 53 25 28  54 25 29 0d 12 de 18 48  |=0.PTS%(T%)....H|
000028a0  58 25 28 54 25 2c 49 25  29 3d a4 6d 61 70 32 20  |X%(T%,I%)=.map2 |
000028b0  81 32 31 0d 12 e8 18 48  59 25 28 54 25 2c 49 25  |.21....HY%(T%,I%|
000028c0  29 3d a4 6d 61 70 32 20  81 32 31 0d 12 f2 0a 6d  |)=.map2 .21....m|
000028d0  65 6d 2d 3d 34 0d 12 fc  05 ed 0d 13 06 43 e7 20  |em-=4........C. |
000028e0  43 4f 25 28 54 25 29 3d  37 80 50 54 53 25 28 54  |CO%(T%)=7.PTS%(T|
000028f0  25 29 3d 33 80 94 28 48  59 25 28 54 25 2c 31 29  |%)=3..(HY%(T%,1)|
00002900  2d 74 65 65 58 25 29 3c  34 35 20 74 65 65 3d b9  |-teeX%)<45 tee=.|
00002910  3a 43 4f 25 28 54 25 29  3d 26 31 30 37 0d 13 10  |:CO%(T%)=&107...|
00002920  05 ed 0d 13 1a 0d f2 73  74 61 72 74 75 70 32 0d  |.......startup2.|
00002930  13 24 0e f2 72 65 64 69  73 70 6c 61 79 0d 13 2e  |.$..redisplay...|
00002940  0c 2a 46 58 32 32 39 2c  31 0d 13 38 05 e1 0d 13  |.*FX229,1..8....|
00002950  42 04 0d 13 4c 10 dd f2  6c 6f 61 64 63 6f 75 72  |B...L...loadcour|
00002960  73 65 0d 13 56 1a f2 63  6f 6c 6f 75 72 73 28 39  |se..V..colours(9|
00002970  29 3a f2 73 63 72 65 65  6e 62 6f 78 0d 13 60 12  |):.screenbox..`.|
00002980  c8 97 b8 35 33 30 2c 35  31 32 3a c8 97 ee 0d 13  |...530,512:.....|
00002990  6a 0e 49 6e 65 64 69 74  6f 72 3d b9 0d 13 74 16  |j.Ineditor=...t.|
000029a0  f2 67 65 74 63 6f 75 72  73 65 28 22 45 44 49 54  |.getcourse("EDIT|
000029b0  22 29 0d 13 7e 0e 49 6e  65 64 69 74 6f 72 3d a3  |")..~.Ineditor=.|
000029c0  0d 13 88 10 f2 63 6f 6c  6f 75 72 73 28 31 32 29  |.....colours(12)|
000029d0  0d 13 92 0d f2 73 65 74  6d 61 69 6e 76 0d 13 9c  |.....setmainv...|
000029e0  26 6d 61 70 70 6f 69 6e  74 25 3d 30 3a 6d 61 70  |&mappoint%=0:map|
000029f0  3f 28 6d 61 70 70 6f 69  6e 74 25 2b 26 32 46 38  |?(mappoint%+&2F8|
00002a00  29 3d 31 0d 13 a6 1a 6c  65 6e 3d 35 30 30 3a 70  |)=1....len=500:p|
00002a10  61 72 3d 34 3a f2 73 74  61 72 74 75 70 0d 13 b0  |ar=4:.startup...|
00002a20  14 f2 67 72 69 64 3a f4  3a 74 65 65 3d 54 52 55  |..grid:.:tee=TRU|
00002a30  45 0d 13 ba 07 c8 97 ee  0d 13 c4 05 e1 0d 13 ce  |E...............|
00002a40  04 0d 13 d8 10 dd f2 73  61 76 65 63 6f 75 72 73  |.......savecours|
00002a50  65 0d 13 e2 0f ea 50 6f  69 6e 74 65 72 2c 52 30  |e.....Pointer,R0|
00002a60  0d 13 ec 10 de 20 50 6f  69 6e 74 65 72 20 32 38  |..... Pointer 28|
00002a70  0d 13 f6 28 24 50 6f 69  6e 74 65 72 3d 22 3c 4f  |...($Pointer="<O|
00002a80  62 65 79 24 44 69 72 3e  2e 4d 4f 44 55 4c 45 53  |bey$Dir>.MODULES|
00002a90  2e 53 48 4f 4f 53 48 22  0d 14 00 0a 2a 46 58 32  |.SHOOSH"....*FX2|
00002aa0  32 39 0d 14 0a 06 ea 85  0d 14 14 75 ee 85 ea e7  |29.........u....|
00002ab0  9f 3c 3e 31 37 3a f2 72  65 64 69 73 70 6c 61 79  |.<>17:.redisplay|
00002ac0  3a ef 32 36 3a f2 6d 65  73 77 69 6e 64 32 28 22  |:.26:.meswind2("|
00002ad0  20 20 20 22 2b f6 24 2b  22 20 20 20 22 2c 22 50  |   "+.$+"   ","P|
00002ae0  4c 45 41 53 45 22 2c 22  50 52 45 53 53 20 53 50  |LEASE","PRESS SP|
00002af0  41 43 45 22 2c 31 2c 33  29 3a f5 fd a6 2d 39 39  |ACE",1,3):...-99|
00002b00  3a 8b ef 32 34 2c 31 36  3b 32 37 32 3b 31 32 36  |:..24,16;272;126|
00002b10  33 3b 31 30 30 37 3b 3a  e5 8d 44 4a 55 0d 14 1e  |3;1007;:..DJU...|
00002b20  05 f5 0d 14 28 0a 2a 4d  4f 55 4e 54 0d 14 32 1e  |....(.*MOUNT..2.|
00002b30  c8 99 22 4f 53 5f 46 69  6c 65 22 2c 35 2c 50 6f  |.."OS_File",5,Po|
00002b40  69 6e 74 65 72 20 b8 20  52 30 0d 14 3c 0c e7 52  |inter . R0..<..R|
00002b50  30 3c 3e 30 20 8c 0d 14  46 65 f2 6d 65 73 77 69  |0<>0 ...Fe.meswi|
00002b60  6e 64 32 28 22 49 20 43  41 4e 27 54 20 53 41 56  |nd2("I CAN'T SAV|
00002b70  45 20 54 4f 20 54 48 45  20 44 45 53 49 47 4e 45  |E TO THE DESIGNE|
00002b80  52 20 44 49 53 43 22 2c  22 50 4c 45 41 53 45 20  |R DISC","PLEASE |
00002b90  49 4e 53 45 52 54 20 41  4e 4f 54 48 45 52 20 44  |INSERT ANOTHER D|
00002ba0  49 53 43 22 2c 22 41 4e  44 20 50 52 45 53 53 20  |ISC","AND PRESS |
00002bb0  53 50 41 43 45 22 2c 31  2c 33 29 0d 14 50 0a f5  |SPACE",1,3)..P..|
00002bc0  fd a6 2d 39 39 0d 14 5a  05 cd 0d 14 64 09 fd 52  |..-99..Z....d..R|
00002bd0  30 3d 30 0d 14 6e 66 ee  85 ea f2 72 65 64 69 73  |0=0..nf....redis|
00002be0  70 6c 61 79 3a f2 6d 65  73 77 69 6e 64 32 28 22  |play:.meswind2("|
00002bf0  20 20 20 20 22 2b f6 24  2b 22 20 20 20 20 22 2c  |    "+.$+"    ",|
00002c00  22 50 4c 45 41 53 45 22  2c 22 50 52 45 53 53 20  |"PLEASE","PRESS |
00002c10  53 50 41 43 45 22 2c 32  2c 33 29 3a f5 fd a6 2d  |SPACE",2,3):...-|
00002c20  39 39 3a f2 72 65 64 69  73 70 6c 61 79 3a e7 9f  |99:.redisplay:..|
00002c30  3d 31 37 3a e5 8d 44 4a  55 0d 14 78 0b c8 91 30  |=17:..DJU..x...0|
00002c40  2c 31 32 38 0d 14 82 05  f5 0d 14 8c 42 f2 63 65  |,128........B.ce|
00002c50  6e 74 62 6f 78 28 a3 2c  c4 31 33 2c 22 20 22 29  |ntbox(.,.13," ")|
00002c60  2b 22 43 55 52 52 45 4e  54 20 44 49 53 43 20 43  |+"CURRENT DISC C|
00002c70  41 54 41 4c 4f 47 55 45  22 2b c4 31 33 2c 22 20  |ATALOGUE"+.13," |
00002c80  22 29 2c 38 2c 32 30 29  3a fb 38 0d 14 96 19 ef  |"),8,20):.8.....|
00002c90  32 34 2c 31 36 3b 32 37  32 3b 31 32 36 33 3b 31  |24,16;272;1263;1|
00002ca0  30 30 37 3b 0d 14 a0 1d  f4 47 43 4f 4c 31 32 38  |007;.....GCOL128|
00002cb0  2b 31 31 3a 43 4c 47 3a  47 43 4f 4c 31 32 38 2b  |+11:CLG:GCOL128+|
00002cc0  36 0d 14 aa 14 ef 32 38  2c 31 37 2c 32 31 2c 36  |6.....28,17,21,6|
00002cd0  32 2c 33 2c 34 0d 14 b4  0c 66 69 6c 65 24 3d 22  |2,3,4....file$="|
00002ce0  22 0d 14 be 0c db 3a ef  31 34 3a 2a 2e 0d 14 c8  |".....:.14:*....|
00002cf0  0d ef 31 35 3a 2a 46 58  31 35 0d 14 d2 22 f1 27  |..15:*FX15...".'|
00002d00  22 50 4c 45 41 53 45 20  45 4e 54 45 52 20 43 4f  |"PLEASE ENTER CO|
00002d10  55 52 53 45 20 4e 41 4d  45 2e 22 3b 0d 14 dc 2b  |URSE NAME.";...+|
00002d20  c8 99 22 4f 53 5f 52 65  61 64 4c 69 6e 65 22 2c  |.."OS_ReadLine",|
00002d30  50 6f 69 6e 74 65 72 2c  31 30 2c 33 32 2c 31 32  |Pointer,10,32,12|
00002d40  36 20 b8 20 2c 52 30 0d  14 e6 0c e7 52 30 3d 30  |6 . ,R0.....R0=0|
00002d50  20 fd 30 0d 14 f0 15 50  6f 69 6e 74 65 72 3f 28  | .0....Pointer?(|
00002d60  52 30 2b 31 29 3d 31 33  0d 14 fa 12 66 69 6c 65  |R0+1)=13....file|
00002d70  24 3d 24 50 6f 69 6e 74  65 72 0d 15 04 0c e3 54  |$=$Pointer.....T|
00002d80  25 3d 31 b8 52 30 0d 15  0e 26 e7 c1 66 69 6c 65  |%=1.R0...&..file|
00002d90  24 2c 54 25 2c 31 29 3d  22 20 22 20 c1 66 69 6c  |$,T%,1)=" " .fil|
00002da0  65 24 2c 54 25 2c 31 29  3d 22 5f 22 0d 15 18 05  |e$,T%,1)="_"....|
00002db0  ed 0d 15 22 0d fd 66 69  6c 65 24 3e 22 22 0d 15  |..."..file$>""..|
00002dc0  2c 10 e3 54 25 3d 31 b8  a9 66 69 6c 65 24 0d 15  |,..T%=1..file$..|
00002dd0  36 29 ff 28 22 53 41 56  45 20 24 2e 22 2b 66 69  |6).("SAVE $."+fi|
00002de0  6c 65 24 2b 22 20 22 2b  c3 7e 6d 61 70 2b 22 20  |le$+" "+.~map+" |
00002df0  2b 33 36 30 30 22 29 0d  15 40 20 ff 28 22 53 45  |+3600")..@ .("SE|
00002e00  54 54 59 50 45 20 24 2e  22 2b 66 69 6c 65 24 2b  |TTYPE $."+file$+|
00002e10  22 20 43 31 46 22 29 0d  15 4a 0c 2a 46 58 32 32  |" C1F")..J.*FX22|
00002e20  39 2c 31 0d 15 54 0e f2  72 65 64 69 73 70 6c 61  |9,1..T..redispla|
00002e30  79 0d 15 5e 05 e1 0d 15  68 04 0d 15 72 11 dd f2  |y..^....h...r...|
00002e40  69 6e 73 65 72 74 74 72  65 65 73 0d 15 7c 0c 2a  |inserttrees..|.*|
00002e50  46 58 32 32 39 2c 31 0d  15 86 0c ea 66 6c 61 67  |FX229,1.....flag|
00002e60  2c 43 25 0d 15 90 0e db  3a f2 62 75 74 74 28 30  |,C%.....:.butt(0|
00002e70  29 0d 15 9a 21 f1 22 49  4e 53 45 52 54 20 4f 52  |)...!."INSERT OR|
00002e80  20 44 45 4c 45 54 45 20  54 52 45 45 53 22 27 3a  | DELETE TREES"':|
00002e90  fb 38 0d 15 a4 1c f1 22  4c 45 46 54 20 42 55 54  |.8....."LEFT BUT|
00002ea0  54 4f 4e 20 54 4f 20 49  4e 53 45 52 54 22 0d 15  |TON TO INSERT"..|
00002eb0  ae 1e f1 22 4d 49 44 44  4c 45 20 42 55 54 54 4f  |..."MIDDLE BUTTO|
00002ec0  4e 20 54 4f 20 44 45 4c  45 54 45 22 0d 15 b8 1b  |N TO DELETE"....|
00002ed0  f1 22 52 49 47 48 54 20  42 55 54 54 4f 4e 20 54  |."RIGHT BUTTON T|
00002ee0  4f 20 45 58 49 54 22 0d  15 c2 2a f1 22 4d 41 58  |O EXIT"...*."MAX|
00002ef0  49 4d 55 4d 20 4f 46 20  39 36 20 54 52 45 45 53  |IMUM OF 96 TREES|
00002f00  20 50 45 52 20 48 4f 4c  45 22 bd 33 30 3a fb 31  | PER HOLE".30:.1|
00002f10  33 0d 15 cc 05 f5 0d 15  d6 0e c8 97 58 25 2c 59  |3...........X%,Y|
00002f20  25 2c 4b 25 0d 15 e0 0d  58 25 3d 58 25 81 36 2a  |%,K%....X%=X%.6*|
00002f30  36 0d 15 ea 0d 59 25 3d  59 25 81 36 2a 36 0d 15  |6....Y%=Y%.6*6..|
00002f40  f4 0e 43 25 3d b0 58 25  2c 59 25 29 0d 15 fe 23  |..C%=.X%,Y%)...#|
00002f50  f1 8a 34 30 2c 31 29 3b  4e 54 25 2b 31 3b 22 20  |..40,1);NT%+1;" |
00002f60  54 52 45 45 53 20 49 4e  53 45 52 54 45 44 22 0d  |TREES INSERTED".|
00002f70  16 08 23 f1 8a 34 30 2c  32 29 22 26 22 3b 7e 6d  |..#..40,2)"&";~m|
00002f80  65 6d 3b 22 20 42 59 54  45 53 20 4c 45 46 54 20  |em;" BYTES LEFT |
00002f90  20 22 0d 16 12 29 e7 a4  64 69 73 74 61 6e 63 65  | "...)..distance|
00002fa0  28 2d 58 25 2f 31 2e 35  2c 2d 59 25 2f 31 2e 35  |(-X%/1.5,-Y%/1.5|
00002fb0  29 3c 34 30 80 4b 25 3d  34 fd 30 0d 16 1c 17 e7  |)<40.K%=4.0.....|
00002fc0  28 43 25 3d 36 84 43 25  3d 30 29 80 4b 25 3d 34  |(C%=6.C%=0).K%=4|
00002fd0  fd 30 0d 16 26 0a e7 4b  25 3d 34 8c 0d 16 30 0c  |.0..&..K%=4...0.|
00002fe0  e7 4e 54 25 3c 39 35 8c  0d 16 3a 0b e7 6d 65 6d  |.NT%<95...:..mem|
00002ff0  3e 34 8c 0d 16 44 0a 4e  54 25 2b 3d 31 0d 16 4e  |>4...D.NT%+=1..N|
00003000  07 e6 31 34 0d 16 58 0f  c8 8f c8 90 58 25 2c 59  |..14..X.....X%,Y|
00003010  25 2c 38 0d 16 62 27 54  52 58 25 28 4e 54 25 29  |%,8..b'TRX%(NT%)|
00003020  3d 2d 59 25 2f 31 2e 35  3a 54 52 59 25 28 4e 54  |=-Y%/1.5:TRY%(NT|
00003030  25 29 3d 2d 58 25 2f 31  2e 35 0d 16 6c 0a 6d 65  |%)=-X%/1.5..l.me|
00003040  6d 2d 3d 34 0d 16 76 0c  f2 62 75 74 74 28 30 29  |m-=4..v..butt(0)|
00003050  0d 16 80 07 cc ef 37 0d  16 8a 05 cd 0d 16 94 05  |......7.........|
00003060  cd 0d 16 9e 05 cd 0d 16  a8 0a e7 4b 25 3d 32 8c  |...........K%=2.|
00003070  0d 16 b2 0c e7 4e 54 25  3e b9 20 8c 0d 16 bc 0a  |.....NT%>. .....|
00003080  66 6c 61 67 3d a3 0d 16  c6 0d e3 54 25 3d 30 b8  |flag=......T%=0.|
00003090  4e 54 25 0d 16 d0 43 e7  94 28 2d 54 52 59 25 28  |NT%...C..(-TRY%(|
000030a0  54 25 29 2a 31 2e 35 2d  58 25 29 3c 31 32 80 94  |T%)*1.5-X%)<12..|
000030b0  28 2d 54 52 58 25 28 54  25 29 2a 31 2e 35 2d 59  |(-TRX%(T%)*1.5-Y|
000030c0  25 29 3c 31 32 66 6c 61  67 3d 54 25 2b 31 3a 54  |%)<12flag=T%+1:T|
000030d0  25 3d 31 30 30 30 0d 16  da 05 ed 0d 16 e4 0b e7  |%=1000..........|
000030e0  66 6c 61 67 20 8c 0d 16  ee 11 e7 66 6c 61 67 3c  |flag ......flag<|
000030f0  3e 4e 54 25 2b 31 8c 0d  16 f8 15 e3 54 25 3d 66  |>NT%+1......T%=f|
00003100  6c 61 67 2d 31 20 b8 4e  54 25 2d 31 0d 17 02 2b  |lag-1 .NT%-1...+|
00003110  54 52 58 25 28 54 25 29  3d 54 52 58 25 28 54 25  |TRX%(T%)=TRX%(T%|
00003120  2b 31 29 3a 54 52 59 25  28 54 25 29 3d 54 52 59  |+1):TRY%(T%)=TRY|
00003130  25 28 54 25 2b 31 29 0d  17 0c 05 ed 0d 17 16 05  |%(T%+1).........|
00003140  cd 0d 17 20 0a 4e 54 25  2d 3d 31 0d 17 2a 0a 6d  |... .NT%-=1..*.m|
00003150  65 6d 2b 3d 34 0d 17 34  0e f2 72 65 64 69 73 70  |em+=4..4..redisp|
00003160  6c 61 79 0d 17 3e 0c f2  62 75 74 74 28 30 29 0d  |lay..>..butt(0).|
00003170  17 48 05 cd 0d 17 52 07  cc ef 37 0d 17 5c 05 cd  |.H....R...7..\..|
00003180  0d 17 66 05 cd 0d 17 70  09 fd 4b 25 3d 31 0d 17  |..f....p..K%=1..|
00003190  7a 0c f2 62 75 74 74 28  30 29 0d 17 84 0c 2a 46  |z..butt(0)....*F|
000031a0  58 32 32 39 2c 31 0d 17  8e 05 e1 0d 17 98 04 0d  |X229,1..........|
000031b0  17 a2 0d dd f2 64 72 61  77 74 65 65 0d 17 ac 0d  |.....drawtee....|
000031c0  e7 74 65 65 20 ef 37 3a  e1 0d 17 b6 39 e7 6d 65  |.tee .7:....9.me|
000031d0  6d 3c 31 38 f1 22 4e 4f  54 20 45 4e 4f 55 47 48  |m<18."NOT ENOUGH|
000031e0  20 4d 45 4d 4f 52 59 21  21 20 50 52 45 53 53 20  | MEMORY!! PRESS |
000031f0  53 50 41 43 45 3a 22 bd  37 3a f5 fd a5 3d 33 32  |SPACE:".7:...=32|
00003200  3a e1 0d 17 c0 0c f2 62  75 74 74 28 30 29 0d 17  |:......butt(0)..|
00003210  ca 36 fb 38 3a f1 8a 31  2c 32 29 22 50 4f 53 49  |.6.8:..1,2)"POSI|
00003220  54 49 4f 4e 20 54 45 45  20 54 48 45 4e 20 41 4e  |TION TEE THEN AN|
00003230  59 20 42 55 54 4f 4e 20  54 4f 20 45 58 49 54 22  |Y BUTON TO EXIT"|
00003240  3a fb 31 31 0d 17 d4 09  74 65 65 3d b9 0d 17 de  |:.11....tee=....|
00003250  17 ea 78 25 2c 79 25 2c  61 25 2c 62 2c 63 2c 64  |..x%,y%,a%,b,c,d|
00003260  25 2c 65 25 0d 17 e8 1b  61 25 3d 31 38 30 3a 79  |%,e%....a%=180:y|
00003270  25 3d 30 3a 78 25 3d 2d  6c 65 6e 2a 31 2e 35 0d  |%=0:x%=-len*1.5.|
00003280  17 f2 0c c8 97 b8 78 25  2c 79 25 0d 17 fc 05 f5  |......x%,y%.....|
00003290  0d 18 06 0e c8 97 58 25  2c 59 25 2c 4b 25 0d 18  |......X%,Y%,K%..|
000032a0  10 16 e7 59 25 3e 79 25  80 61 25 3e 31 36 30 61  |...Y%>y%.a%>160a|
000032b0  25 2d 3d 31 0d 18 1a 17  e7 59 25 3c 79 25 80 61  |%-=1.....Y%<y%.a|
000032c0  25 3c 32 30 30 20 61 25  2b 3d 31 0d 18 24 15 78  |%<200 a%+=1..$.x|
000032d0  25 3d 28 9b b2 61 25 2a  6c 65 6e 29 2a 31 2e 35  |%=(..a%*len)*1.5|
000032e0  0d 18 2e 15 79 25 3d 28  b5 b2 61 25 2a 6c 65 6e  |....y%=(..a%*len|
000032f0  29 2a 31 2e 35 0d 18 38  0c c8 97 b8 78 25 2c 79  |)*1.5..8....x%,y|
00003300  25 0d 18 42 07 fd 4b 25  0d 18 4c 19 58 25 3d 2d  |%..B..K%..L.X%=-|
00003310  78 25 2f 31 2e 35 3a 59  25 3d 2d 79 25 2f 31 2e  |x%/1.5:Y%=-y%/1.|
00003320  35 0d 18 56 1f 48 58 25  28 4e 4f 25 2c 30 29 3d  |5..V.HX%(NO%,0)=|
00003330  59 25 3a 48 59 25 28 4e  4f 25 2c 30 29 3d 58 25  |Y%:HY%(NO%,0)=X%|
00003340  0d 18 60 2d 50 25 3d 6d  61 70 70 6f 69 6e 74 25  |..`-P%=mappoint%|
00003350  2b 26 32 45 38 3a f2 77  72 69 6d 61 70 28 59 25  |+&2E8:.wrimap(Y%|
00003360  29 3a f2 77 72 69 6d 61  70 28 58 25 29 0d 18 6a  |):.wrimap(X%)..j|
00003370  19 6c 65 6e 3d a8 a4 64  69 73 74 61 6e 63 65 28  |.len=..distance(|
00003380  58 25 2c 59 25 29 0d 18  74 11 62 3d b5 b2 61 25  |X%,Y%)..t.b=..a%|
00003390  3a 63 3d 9b b2 61 25 0d  18 7e 36 48 58 25 28 4e  |:c=..a%..~6HX%(N|
000033a0  4f 25 2c 30 29 3d 62 2a  2d 31 30 2b 2d 63 2a 32  |O%,0)=b*-10+-c*2|
000033b0  30 2b 59 25 3a 48 59 25  28 4e 4f 25 2c 30 29 3d  |0+Y%:HY%(NO%,0)=|
000033c0  63 2a 2d 31 30 2b 62 2a  32 30 2b 58 25 0d 18 88  |c*-10+b*20+X%...|
000033d0  34 48 58 25 28 4e 4f 25  2c 31 29 3d 62 2a 31 30  |4HX%(NO%,1)=b*10|
000033e0  2b 2d 63 2a 32 30 2b 59  25 3a 48 59 25 28 4e 4f  |+-c*20+Y%:HY%(NO|
000033f0  25 2c 31 29 3d 63 2a 31  30 2b 62 2a 32 30 2b 58  |%,1)=c*10+b*20+X|
00003400  25 0d 18 92 36 48 58 25  28 4e 4f 25 2c 32 29 3d  |%...6HX%(NO%,2)=|
00003410  62 2a 31 30 2b 2d 63 2a  2d 32 30 2b 59 25 3a 48  |b*10+-c*-20+Y%:H|
00003420  59 25 28 4e 4f 25 2c 32  29 3d 63 2a 31 30 2b 62  |Y%(NO%,2)=c*10+b|
00003430  2a 2d 32 30 2b 58 25 0d  18 9c 38 48 58 25 28 4e  |*-20+X%...8HX%(N|
00003440  4f 25 2c 33 29 3d 62 2a  2d 31 30 2b 2d 63 2a 2d  |O%,3)=b*-10+-c*-|
00003450  32 30 2b 59 25 3a 48 59  25 28 4e 4f 25 2c 33 29  |20+Y%:HY%(NO%,3)|
00003460  3d 63 2a 2d 31 30 2b 62  2a 2d 32 30 2b 58 25 0d  |=c*-10+b*-20+X%.|
00003470  18 a6 15 74 65 65 58 25  3d 58 25 3a 74 65 65 59  |...teeX%=X%:teeY|
00003480  25 3d 59 25 0d 18 b0 0b  6d 65 6d 2d 3d 31 38 0d  |%=Y%....mem-=18.|
00003490  18 ba 0f 50 54 53 25 28  4e 4f 25 29 3d 33 0d 18  |...PTS%(NO%)=3..|
000034a0  c4 0a 4e 4f 25 2b 3d 31  0d 18 ce 0e f2 72 65 64  |..NO%+=1.....red|
000034b0  69 73 70 6c 61 79 0d 18  d8 05 e1 0d 18 e2 04 0d  |isplay..........|
000034c0  18 ec 0b dd f2 61 6c 74  65 72 0d 18 f6 2a ea 78  |.....alter...*.x|
000034d0  25 2c 79 25 2c 78 31 25  2c 79 31 25 2c 78 32 25  |%,y%,x1%,y1%,x2%|
000034e0  2c 79 32 25 2c 78 33 25  2c 79 33 25 2c 66 6c 61  |,y2%,x3%,y3%,fla|
000034f0  67 2c 43 25 0d 19 00 0a  2a 46 58 32 32 39 0d 19  |g,C%....*FX229..|
00003500  0a 22 ea 85 3a ee 85 ea  20 f2 72 65 64 69 73 70  |."..:... .redisp|
00003510  6c 61 79 3a ff 22 46 58  32 32 39 2c 31 22 3a e1  |lay:."FX229,1":.|
00003520  0d 19 14 05 f5 0d 19 1e  87 db 3a fb 38 3a f1 8a  |..........:.8:..|
00003530  30 2c 32 29 22 54 48 45  20 4f 56 45 52 41 4c 4c  |0,2)"THE OVERALL|
00003540  20 53 48 41 50 45 20 41  4e 44 20 50 4f 53 49 54  | SHAPE AND POSIT|
00003550  49 4f 4e 20 4f 46 20 41  4e 20 4f 42 4a 45 43 54  |ION OF AN OBJECT|
00003560  20 43 41 4e 20 42 45 20  41 44 4a 55 53 54 45 44  | CAN BE ADJUSTED|
00003570  22 27 22 42 55 54 20 4e  4f 54 20 54 48 45 20 4e  |"'"BUT NOT THE N|
00003580  55 4d 42 45 52 20 4f 46  20 45 44 47 45 20 50 4f  |UMBER OF EDGE PO|
00003590  49 4e 54 53 2e 22 27 22  45 53 43 41 50 45 20 54  |INTS."'"ESCAPE T|
000035a0  4f 20 41 42 4f 52 54 22  3a fb 31 33 0d 19 28 17  |O ABORT":.13..(.|
000035b0  f2 66 69 6e 64 6f 6e 65  3a f2 72 65 64 69 73 70  |.findone:.redisp|
000035c0  6c 61 79 0d 19 32 42 f1  8a 30 2c 30 29 22 53 45  |lay..2B..0,0)"SE|
000035d0  4c 45 43 54 20 41 4e 44  20 4d 4f 56 45 20 50 4f  |LECT AND MOVE PO|
000035e0  49 4e 54 53 20 54 4f 20  54 48 45 49 52 20 52 45  |INTS TO THEIR RE|
000035f0  51 55 49 52 45 44 20 50  4f 53 49 54 49 4f 4e 53  |QUIRED POSITIONS|
00003600  20 20 20 20 22 0d 19 3c  3d fb 20 38 3a f1 8a 30  |    "..<=. 8:..0|
00003610  2c 34 29 22 52 49 47 48  54 20 42 55 54 54 4f 4e  |,4)"RIGHT BUTTON|
00003620  20 54 4f 20 45 58 49 54  22 27 22 45 53 43 41 50  | TO EXIT"'"ESCAP|
00003630  45 20 54 4f 20 41 42 4f  52 54 22 bd 33 30 3a fb  |E TO ABORT".30:.|
00003640  31 33 0d 19 46 13 e7 43  4f 25 28 58 25 29 3d 35  |13..F..CO%(X%)=5|
00003650  ef 37 3a fd 30 0d 19 50  06 fd b9 0d 19 5a 0f 71  |.7:.0..P.....Z.q|
00003660  62 25 3d 43 4f 25 28 58  25 29 0d 19 64 0c f2 6f  |b%=CO%(X%)..d..o|
00003670  75 74 6c 69 6e 65 0d 19  6e 0c f2 62 75 74 74 28  |utline..n..butt(|
00003680  30 29 0d 19 78 05 f5 0d  19 82 05 f5 0d 19 8c 0e  |0)..x...........|
00003690  c8 97 78 25 2c 79 25 2c  4b 25 0d 19 96 0a 66 6c  |..x%,y%,K%....fl|
000036a0  61 67 3d a3 0d 19 a0 08  e7 4b 25 8c 0d 19 aa 12  |ag=......K%.....|
000036b0  e3 54 25 3d 30 b8 50 54  53 25 28 58 25 29 0d 19  |.T%=0.PTS%(X%)..|
000036c0  b4 42 e7 94 28 2d 48 59  25 28 58 25 2c 54 25 29  |.B..(-HY%(X%,T%)|
000036d0  2a 31 2e 35 2d 78 25 29  3c 31 32 80 94 28 2d 48  |*1.5-x%)<12..(-H|
000036e0  58 25 28 58 25 2c 54 25  29 2a 31 2e 35 2d 79 25  |X%(X%,T%)*1.5-y%|
000036f0  29 3c 31 32 66 6c 61 67  3d b9 3a 78 25 3d 54 25  |)<12flag=.:x%=T%|
00003700  0d 19 be 05 ed 0d 19 c8  05 cd 0d 19 d2 26 e7 4b  |.............&.K|
00003710  25 3d 31 fd b9 3a fd b9  3a f2 72 65 64 69 73 70  |%=1..:..:.redisp|
00003720  6c 61 79 3a ff 22 46 58  32 32 39 2c 31 22 3a e1  |lay:."FX229,1":.|
00003730  0d 19 dc 09 fd 66 6c 61  67 0d 19 e6 22 78 31 25  |.....flag..."x1%|
00003740  3d 2d 48 59 25 28 58 25  2c 78 25 83 50 54 53 25  |=-HY%(X%,x%.PTS%|
00003750  28 58 25 29 2b 31 29 2a  31 2e 35 0d 19 f0 22 79  |(X%)+1)*1.5..."y|
00003760  31 25 3d 2d 48 58 25 28  58 25 2c 78 25 83 50 54  |1%=-HX%(X%,x%.PT|
00003770  53 25 28 58 25 29 2b 31  29 2a 31 2e 35 0d 19 fa  |S%(X%)+1)*1.5...|
00003780  1c 54 25 3d 78 25 2d 31  3a e7 54 25 3c 31 54 25  |.T%=x%-1:.T%<1T%|
00003790  3d 50 54 53 25 28 58 25  29 0d 1a 04 17 78 32 25  |=PTS%(X%)....x2%|
000037a0  3d 2d 48 59 25 28 58 25  2c 54 25 29 2a 31 2e 35  |=-HY%(X%,T%)*1.5|
000037b0  0d 1a 0e 17 79 32 25 3d  2d 48 58 25 28 58 25 2c  |....y2%=-HX%(X%,|
000037c0  54 25 29 2a 31 2e 35 0d  1a 18 17 78 33 25 3d 2d  |T%)*1.5....x3%=-|
000037d0  48 59 25 28 58 25 2c 78  25 29 2a 31 2e 35 0d 1a  |HY%(X%,x%)*1.5..|
000037e0  22 17 79 33 25 3d 2d 48  58 25 28 58 25 2c 78 25  |".y3%=-HX%(X%,x%|
000037f0  29 2a 31 2e 35 0d 1a 2c  08 e6 33 2c 38 0d 1a 36  |)*1.5..,..3,8..6|
00003800  0b e7 78 25 3c 3e 30 8c  0d 1a 40 05 f5 0d 1a 4a  |..x%<>0...@....J|
00003810  09 c8 96 3a c8 96 0d 1a  54 14 86 78 31 25 2c 79  |...:....T..x1%,y|
00003820  31 25 2c 78 33 25 2c 79  33 25 0d 1a 5e 14 86 78  |1%,x3%,y3%..^..x|
00003830  33 25 2c 79 33 25 2c 78  32 25 2c 79 32 25 0d 1a  |3%,y3%,x2%,y2%..|
00003840  68 0f c8 8f 78 33 25 2c  79 33 25 2c 38 0d 1a 72  |h...x3%,y3%,8..r|
00003850  05 f5 0d 1a 7c 10 c8 97  78 33 25 2c 79 33 25 2c  |....|...x3%,y3%,|
00003860  4b 25 0d 1a 86 17 e7 71  62 25 3d 32 84 71 62 25  |K%.....qb%=2.qb%|
00003870  3d 34 84 71 62 25 3d 36  8c 0d 1a 90 24 e7 28 78  |=4.qb%=6....$.(x|
00003880  33 25 2f 31 2e 35 29 3c  2d 28 6c 65 6e 2d 28 94  |3%/1.5)<-(len-(.|
00003890  28 79 33 25 81 36 29 29  2d 34 30 29 8c 0d 1a 9a  |(y3%.6))-40)....|
000038a0  20 78 33 25 3d 2d 28 6c  65 6e 2d 28 94 28 79 33  | x3%=-(len-(.(y3|
000038b0  25 81 36 29 29 2d 34 30  29 2a 31 2e 35 0d 1a a4  |%.6))-40)*1.5...|
000038c0  0e c8 97 b8 78 33 25 2c  79 33 25 0d 1a ae 05 cd  |....x3%,y3%.....|
000038d0  0d 1a b8 05 cd 0d 1a c2  0f 78 33 25 3d 78 33 25  |.........x3%=x3%|
000038e0  81 36 2a 36 0d 1a cc 0f  79 33 25 3d 79 33 25 81  |.6*6....y3%=y3%.|
000038f0  36 2a 36 0d 1a d6 31 f1  8a 35 38 2c 30 29 22 59  |6*6...1..58,0)"Y|
00003900  20 22 3b 2d a8 28 78 33  25 2f 31 2e 35 29 2c 22  | ";-.(x3%/1.5),"|
00003910  58 20 22 3b a8 28 79 33  25 2f 31 2e 35 29 3b 22  |X ";.(y3%/1.5);"|
00003920  20 20 20 22 0d 1a e0 0c  2a 46 58 31 31 32 2c 32  |   "....*FX112,2|
00003930  0d 1a ea 10 43 25 3d b0  78 33 25 2c 79 33 25 29  |....C%=.x3%,y3%)|
00003940  0d 1a f4 0c 2a 46 58 31  31 32 2c 31 0d 1a fe 26  |....*FX112,1...&|
00003950  f4 49 46 43 25 3c 3e 37  41 4e 44 42 45 41 54 3d  |.IFC%<>7ANDBEAT=|
00003960  30 3a 53 4f 55 4e 44 31  2c 2d 31 35 2c 31 32 30  |0:SOUND1,-15,120|
00003970  2c 34 0d 1b 08 44 e7 4b  25 3d 30 80 ac 28 28 43  |,4...D.K%=0..((C|
00003980  25 3d 37 80 69 73 6c 61  6e 64 3e 30 29 84 28 69  |%=7.island>0).(i|
00003990  73 6c 61 6e 64 3c 30 80  78 33 25 3e 36 30 30 80  |sland<0.x3%>600.|
000039a0  78 33 25 3c 39 30 30 80  94 79 33 25 3c 32 32 30  |x3%<900..y3%<220|
000039b0  29 29 4b 25 3d 34 0d 1b  12 3d fd 4b 25 3d 30 84  |))K%=4...=.K%=0.|
000039c0  28 43 25 3d 37 80 69 73  6c 61 6e 64 3e 30 29 84  |(C%=7.island>0).|
000039d0  28 69 73 6c 61 6e 64 3c  30 80 78 33 25 3e 36 30  |(island<0.x3%>60|
000039e0  30 80 78 33 25 3c 39 30  30 80 94 79 33 25 3c 32  |0.x3%<900..y3%<2|
000039f0  32 30 29 0d 1b 1c 14 86  78 31 25 2c 79 31 25 2c  |20).....x1%,y1%,|
00003a00  78 33 25 2c 79 33 25 0d  1b 26 14 86 78 33 25 2c  |x3%,y3%..&..x3%,|
00003a10  79 33 25 2c 78 32 25 2c  79 32 25 0d 1b 30 0f c8  |y3%,x2%,y2%..0..|
00003a20  8f 78 33 25 2c 79 33 25  2c 38 0d 1b 3a 09 fd 4b  |.x3%,y3%,8..:..K|
00003a30  25 3d 30 0d 1b 44 05 cc  0d 1b 4e 05 f5 0d 1b 58  |%=0..D....N....X|
00003a40  09 c8 96 3a c8 96 0d 1b  62 0f c8 8f 78 33 25 2c  |...:....b...x3%,|
00003a50  79 33 25 2c 38 0d 1b 6c  05 f5 0d 1b 76 10 c8 97  |y3%,8..l....v...|
00003a60  78 33 25 2c 79 33 25 2c  4b 25 0d 1b 80 17 e7 71  |x3%,y3%,K%.....q|
00003a70  62 25 3d 32 84 71 62 25  3d 34 84 71 62 25 3d 36  |b%=2.qb%=4.qb%=6|
00003a80  8c 0d 1b 8a 24 e7 28 78  33 25 2f 31 2e 35 29 3c  |....$.(x3%/1.5)<|
00003a90  2d 28 6c 65 6e 2d 28 94  28 79 33 25 81 36 29 29  |-(len-(.(y3%.6))|
00003aa0  2d 34 30 29 8c 0d 1b 94  20 78 33 25 3d 2d 28 6c  |-40).... x3%=-(l|
00003ab0  65 6e 2d 28 94 28 79 33  25 81 36 29 29 2d 34 30  |en-(.(y3%.6))-40|
00003ac0  29 2a 31 2e 35 0d 1b 9e  0e c8 97 b8 78 33 25 2c  |)*1.5.......x3%,|
00003ad0  79 33 25 0d 1b a8 05 cd  0d 1b b2 05 cd 0d 1b bc  |y3%.............|
00003ae0  0f 78 33 25 3d 78 33 25  81 36 2a 36 0d 1b c6 0f  |.x3%=x3%.6*6....|
00003af0  79 33 25 3d 79 33 25 81  36 2a 36 0d 1b d0 31 f1  |y3%=y3%.6*6...1.|
00003b00  8a 35 38 2c 30 29 22 59  20 22 3b 2d a8 28 78 33  |.58,0)"Y ";-.(x3|
00003b10  25 2f 31 2e 35 29 2c 22  58 20 22 3b a8 28 79 33  |%/1.5),"X ";.(y3|
00003b20  25 2f 31 2e 35 29 3b 22  20 20 20 22 0d 1b da 0c  |%/1.5);"   "....|
00003b30  2a 46 58 31 31 32 2c 32  0d 1b e4 10 43 25 3d b0  |*FX112,2....C%=.|
00003b40  78 33 25 2c 79 33 25 29  0d 1b ee 0c 2a 46 58 31  |x3%,y3%)....*FX1|
00003b50  31 32 2c 31 0d 1b f8 26  f4 49 46 43 25 3c 3e 37  |12,1...&.IFC%<>7|
00003b60  41 4e 44 42 45 41 54 3d  30 3a 53 4f 55 4e 44 31  |ANDBEAT=0:SOUND1|
00003b70  2c 2d 31 35 2c 31 32 30  2c 34 0d 1c 02 44 e7 4b  |,-15,120,4...D.K|
00003b80  25 3d 30 80 ac 28 28 43  25 3d 37 80 69 73 6c 61  |%=0..((C%=7.isla|
00003b90  6e 64 3e 30 29 84 28 69  73 6c 61 6e 64 3c 30 80  |nd>0).(island<0.|
00003ba0  78 33 25 3e 36 30 30 80  78 33 25 3c 39 30 30 80  |x3%>600.x3%<900.|
00003bb0  94 79 33 25 3c 32 32 30  29 29 4b 25 3d 34 0d 1c  |.y3%<220))K%=4..|
00003bc0  0c 3d fd 4b 25 3d 30 84  28 43 25 3d 37 80 69 73  |.=.K%=0.(C%=7.is|
00003bd0  6c 61 6e 64 3e 30 29 84  28 69 73 6c 61 6e 64 3c  |land>0).(island<|
00003be0  30 80 78 33 25 3e 36 30  30 80 78 33 25 3c 39 30  |0.x3%>600.x3%<90|
00003bf0  30 80 94 79 33 25 3c 32  32 30 29 0d 1c 16 0f c8  |0..y3%<220).....|
00003c00  8f 78 33 25 2c 79 33 25  2c 38 0d 1c 20 09 fd 4b  |.x3%,y3%,8.. ..K|
00003c10  25 3d 30 0d 1c 2a 05 cd  0d 1c 34 1e f1 8a 35 38  |%=0..*....4...58|
00003c20  2c 30 29 22 20 20 20 20  20 20 20 20 20 20 20 20  |,0)"            |
00003c30  20 20 20 20 20 22 0d 1c  3e 17 48 59 25 28 58 25  |     "..>.HY%(X%|
00003c40  2c 78 25 29 3d 2d 78 33  25 2f 31 2e 35 0d 1c 48  |,x%)=-x3%/1.5..H|
00003c50  17 48 58 25 28 58 25 2c  78 25 29 3d 2d 79 33 25  |.HX%(X%,x%)=-y3%|
00003c60  2f 31 2e 35 0d 1c 52 0e  f2 72 65 64 69 73 70 6c  |/1.5..R..redispl|
00003c70  61 79 0d 1c 5c 0c f2 6f  75 74 6c 69 6e 65 0d 1c  |ay..\..outline..|
00003c80  66 06 fd 30 0d 1c 70 05  e1 0d 1c 7a 04 0d 1c 84  |f..0..p....z....|
00003c90  0d dd f2 6f 75 74 6c 69  6e 65 0d 1c 8e 08 e6 30  |...outline.....0|
00003ca0  2c 38 0d 1c 98 22 ec 2d  48 59 25 28 58 25 2c 31  |,8...".-HY%(X%,1|
00003cb0  29 2a 31 2e 35 2c 2d 48  58 25 28 58 25 2c 31 29  |)*1.5,-HX%(X%,1)|
00003cc0  2a 31 2e 35 0d 1c a2 12  e3 49 25 3d 31 b8 50 54  |*1.5.....I%=1.PT|
00003cd0  53 25 28 58 25 29 0d 1c  ac 24 df 2d 48 59 25 28  |S%(X%)...$.-HY%(|
00003ce0  58 25 2c 49 25 29 2a 31  2e 35 2c 2d 48 58 25 28  |X%,I%)*1.5,-HX%(|
00003cf0  58 25 2c 49 25 29 2a 31  2e 35 0d 1c b6 05 ed 0d  |X%,I%)*1.5......|
00003d00  1c c0 22 df 2d 48 59 25  28 58 25 2c 31 29 2a 31  |..".-HY%(X%,1)*1|
00003d10  2e 35 2c 2d 48 58 25 28  58 25 2c 31 29 2a 31 2e  |.5,-HX%(X%,1)*1.|
00003d20  35 0d 1c ca 12 e3 49 25  3d 31 b8 50 54 53 25 28  |5.....I%=1.PTS%(|
00003d30  58 25 29 0d 1c d4 27 c8  8f 2d 48 59 25 28 58 25  |X%)...'..-HY%(X%|
00003d40  2c 49 25 29 2a 31 2e 35  2c 2d 48 58 25 28 58 25  |,I%)*1.5,-HX%(X%|
00003d50  2c 49 25 29 2a 31 2e 35  2c 38 0d 1c de 05 ed 0d  |,I%)*1.5,8......|
00003d60  1c e8 25 c8 8f 2d 48 59  25 28 58 25 2c 30 29 2a  |..%..-HY%(X%,0)*|
00003d70  31 2e 35 2c 2d 48 58 25  28 58 25 2c 30 29 2a 31  |1.5,-HX%(X%,0)*1|
00003d80  2e 35 2c 38 0d 1c f2 05  e1 0d 1c fc 04 0d 1d 06  |.5,8............|
00003d90  0c dd f2 64 65 6c 65 74  65 0d 1d 10 05 db 0d 1d  |...delete.......|
00003da0  1a 0a 2a 46 58 32 32 39  0d 1d 24 89 fb 38 3a f1  |..*FX229..$..8:.|
00003db0  8a 30 2c 32 29 22 43 4c  49 43 4b 49 4e 47 20 4f  |.0,2)"CLICKING O|
00003dc0  4e 20 4f 4e 45 20 4f 46  20 54 48 45 20 52 45 44  |N ONE OF THE RED|
00003dd0  20 4f 42 4a 45 43 54 20  43 45 4e 54 52 45 53 20  | OBJECT CENTRES |
00003de0  57 49 4c 4c 20 52 45 53  55 4c 54 20 49 4e 20 54  |WILL RESULT IN T|
00003df0  48 41 54 20 4f 42 4a 45  43 54 53 22 27 22 44 45  |HAT OBJECTS"'"DE|
00003e00  4c 45 54 49 4f 4e 2e 20  20 50 4c 45 41 53 45 20  |LETION.  PLEASE |
00003e10  54 41 4b 45 20 43 41 52  45 21 22 27 22 45 53 43  |TAKE CARE!"'"ESC|
00003e20  41 50 45 20 54 4f 20 41  42 4f 52 54 22 3a fb 31  |APE TO ABORT":.1|
00003e30  33 0d 1d 2e 1b ea 85 3a  ee 85 ea 20 f2 72 65 64  |3......:... .red|
00003e40  69 73 70 6c 61 79 3a e5  8d 64 58 5d 0d 1d 38 0c  |isplay:..dX]..8.|
00003e50  f2 66 69 6e 64 6f 6e 65  0d 1d 42 0d dd f2 64 65  |.findone..B...de|
00003e60  6c 65 74 65 32 0d 1d 4c  15 e7 43 4f 25 28 58 25  |lete2..L..CO%(X%|
00003e70  29 3d 35 67 72 65 65 6e  3d a3 0d 1d 56 17 e7 43  |)=5green=...V..C|
00003e80  4f 25 28 58 25 29 3d 26  31 30 37 20 74 65 65 3d  |O%(X%)=&107 tee=|
00003e90  a3 0d 1d 60 18 6d 65 6d  3d 6d 65 6d 2b 36 2b 50  |...`.mem=mem+6+P|
00003ea0  54 53 25 28 58 25 29 2a  34 0d 1d 6a 0f e7 58 25  |TS%(X%)*4..j..X%|
00003eb0  3c 3e 4e 4f 25 2d 31 8c  0d 1d 74 10 e3 54 25 3d  |<>NO%-1...t..T%=|
00003ec0  58 25 2b 31 b8 4e 4f 25  0d 1d 7e 12 e3 49 25 3d  |X%+1.NO%..~..I%=|
00003ed0  30 b8 50 54 53 25 28 54  25 29 0d 1d 88 1b 48 58  |0.PTS%(T%)....HX|
00003ee0  25 28 54 25 2d 31 2c 49  25 29 3d 48 58 25 28 54  |%(T%-1,I%)=HX%(T|
00003ef0  25 2c 49 25 29 0d 1d 92  1b 48 59 25 28 54 25 2d  |%,I%)....HY%(T%-|
00003f00  31 2c 49 25 29 3d 48 59  25 28 54 25 2c 49 25 29  |1,I%)=HY%(T%,I%)|
00003f10  0d 1d 9c 05 ed 0d 1d a6  15 43 4f 25 28 54 25 2d  |.........CO%(T%-|
00003f20  31 29 3d 43 4f 25 28 54  25 29 0d 1d b0 19 50 54  |1)=CO%(T%)....PT|
00003f30  53 25 28 54 25 2d 31 29  3d 50 54 53 25 28 54 25  |S%(T%-1)=PTS%(T%|
00003f40  29 3a ed 0d 1d ba 05 cd  0d 1d c4 0a 4e 4f 25 2d  |):..........NO%-|
00003f50  3d 31 0d 1d ce 0e f2 72  65 64 69 73 70 6c 61 79  |=1.....redisplay|
00003f60  0d 1d d8 0c 2a 46 58 32  32 39 2c 31 0d 1d e2 05  |....*FX229,1....|
00003f70  e1 0d 1d ec 04 0d 1d f6  0d dd f2 66 69 6e 64 6f  |...........findo|
00003f80  6e 65 0d 1e 00 0c ea 85  3a ee 85 ea 20 e1 0d 1e  |ne......:... ...|
00003f90  0a 47 f1 8a 30 2c 30 29  22 54 48 45 52 45 20 41  |.G..0,0)"THERE A|
00003fa0  52 45 20 22 3b 4e 4f 25  2d 31 3b 22 20 4f 42 4a  |RE ";NO%-1;" OBJ|
00003fb0  45 43 54 53 20 44 45 46  49 4e 45 44 2e 20 20 53  |ECTS DEFINED.  S|
00003fc0  45 4c 45 43 54 20 41 20  43 45 4e 54 52 45 20 50  |ELECT A CENTRE P|
00003fd0  4f 49 4e 54 22 0d 1e 14  06 e6 38 0d 1e 1e 0f e3  |OINT".....8.....|
00003fe0  54 25 3d 31 b8 4e 4f 25  2d 31 0d 1e 28 25 c8 8f  |T%=1.NO%-1..(%..|
00003ff0  2d 48 59 25 28 54 25 2c  30 29 2a 31 2e 35 2c 2d  |-HY%(T%,0)*1.5,-|
00004000  48 58 25 28 54 25 2c 30  29 2a 31 2e 35 2c 38 0d  |HX%(T%,0)*1.5,8.|
00004010  1e 32 05 ed 0d 1e 3c 05  f5 0d 1e 46 0e c8 97 58  |.2....<....F...X|
00004020  25 2c 59 25 2c 4b 25 0d  1e 50 0a 66 6c 61 67 3d  |%,Y%,K%..P.flag=|
00004030  a3 0d 1e 51 15 e7 69 73  6c 61 6e 64 3e 30 84 58  |...Q..island>0.X|
00004040  25 3e 36 30 30 8c 0d 1e  5a 08 e7 4b 25 8c 0d 1e  |%>600...Z..K%...|
00004050  64 0f e3 54 25 3d 31 b8  4e 4f 25 2d 31 0d 1e 6e  |d..T%=1.NO%-1..n|
00004060  4d e7 28 94 28 2d 48 59  25 28 54 25 2c 30 29 2a  |M.(.(-HY%(T%,0)*|
00004070  31 2e 35 2d 58 25 29 29  3c 31 32 80 28 94 28 2d  |1.5-X%))<12.(.(-|
00004080  48 58 25 28 54 25 2c 30  29 2a 31 2e 35 2d 59 25  |HX%(T%,0)*1.5-Y%|
00004090  29 29 3c 31 32 66 6c 61  67 3d b9 3a 58 25 3d 54  |))<12flag=.:X%=T|
000040a0  25 3a 54 25 3d 4e 4f 25  2d 31 0d 1e 78 05 ed 0d  |%:T%=NO%-1..x...|
000040b0  1e 82 05 cd 0d 1e 83 05  cd 0d 1e 8c 09 fd 66 6c  |..............fl|
000040c0  61 67 0d 1e 96 05 e1 0d  1e a0 04 0d 1e aa 0f dd  |ag..............|
000040d0  f2 72 65 64 69 73 70 6c  61 79 0d 1e b4 10 ef 32  |.redisplay.....2|
000040e0  36 3a 2a 46 58 31 31 32  2c 32 0d 1e be 08 da 3a  |6:*FX112,2.....:|
000040f0  e6 37 0d 1e c8 14 c8 91  69 73 6c 61 6e 64 2b 6c  |.7......island+l|
00004100  65 6e 2c 36 34 30 0d 1e  d2 20 ec 2d 48 59 25 28  |en,640... .-HY%(|
00004110  30 2c 30 29 2a 31 2e 35  2c 2d 48 58 25 28 30 2c  |0,0)*1.5,-HX%(0,|
00004120  30 29 2a 31 2e 35 0d 1e  dc 11 e3 49 25 3d 31 b8  |0)*1.5.....I%=1.|
00004130  50 54 53 25 28 30 29 0d  1e e6 20 ec 2d 48 59 25  |PTS%(0)... .-HY%|
00004140  28 30 2c 30 29 2a 31 2e  35 2c 2d 48 58 25 28 30  |(0,0)*1.5,-HX%(0|
00004150  2c 30 29 2a 31 2e 35 0d  1e f0 25 f0 38 35 2c 2d  |,0)*1.5...%.85,-|
00004160  48 59 25 28 30 2c 49 25  29 2a 31 2e 35 2c 2d 48  |HY%(0,I%)*1.5,-H|
00004170  58 25 28 30 2c 49 25 29  2a 31 2e 35 0d 1e fa 05  |X%(0,I%)*1.5....|
00004180  ed 0d 1f 04 23 f0 38 35  2c 2d 48 59 25 28 30 2c  |....#.85,-HY%(0,|
00004190  31 29 2a 31 2e 35 2c 2d  48 58 25 28 30 2c 31 29  |1)*1.5,-HX%(0,1)|
000041a0  2a 31 2e 35 0d 1f 0e 0c  2a 46 58 31 31 32 2c 31  |*1.5....*FX112,1|
000041b0  0d 1f 18 21 ef 32 36 2c  32 34 2c 31 32 3b 32 36  |...!.26,24,12;26|
000041c0  38 3b 31 32 36 37 3b 31  30 31 31 3b 34 3a 87 3a  |8;1267;1011;4:.:|
000041d0  da 0d 1f 22 14 c8 91 69  73 6c 61 6e 64 2b 6c 65  |..."...island+le|
000041e0  6e 2c 36 34 30 0d 1f 2c  10 dd f2 72 65 64 69 73  |n,640..,...redis|
000041f0  70 6c 61 79 32 0d 1f 36  9f fb 31 33 34 3a fb 31  |play2..6..134:.1|
00004200  32 3a f1 8a 32 2c 31 29  3b 6c 65 6e 3b 22 20 59  |2:..2,1);len;" Y|
00004210  41 52 44 53 20 3a 20 50  41 52 20 22 3b 70 61 72  |ARDS : PAR ";par|
00004220  3b 22 20 3a 20 48 4f 4c  45 20 4e 6f 2e 20 22 3b  |;" : HOLE No. ";|
00004230  6d 61 70 3f 28 6d 61 70  70 6f 69 6e 74 25 2b 26  |map?(mappoint%+&|
00004240  32 46 38 29 3b 22 20 3a  20 54 20 58 20 22 3b 3a  |2F8);" : T X ";:|
00004250  50 25 3d 6d 61 70 70 6f  69 6e 74 25 2b 26 32 45  |P%=mappoint%+&2E|
00004260  38 3a f1 3b a4 6d 61 70  32 20 81 32 31 3b 22 20  |8:.;.map2 .21;" |
00004270  3a 20 54 20 59 20 22 3b  a4 6d 61 70 32 20 81 32  |: T Y ";.map2 .2|
00004280  31 3b 22 20 3a 20 4d 65  6d 6f 72 79 20 26 22 3b  |1;" : Memory &";|
00004290  7e 6d 65 6d 0d 1f 40 1d  ef 32 38 2c 31 2c 33 30  |~mem..@..28,1,30|
000042a0  2c 37 38 2c 32 35 3a fb  31 33 39 3a f4 3a 43 4c  |,78,25:.139:.:CL|
000042b0  53 0d 1f 4a 0b e7 4e 4f  25 3e 30 8c 0d 1f 54 0f  |S..J..NO%>0...T.|
000042c0  e3 54 25 3d 30 b8 4e 4f  25 2d 31 0d 1f 5e 0c e6  |.T%=0.NO%-1..^..|
000042d0  43 4f 25 28 54 25 29 0d  1f 68 22 ec 2d 48 59 25  |CO%(T%)..h".-HY%|
000042e0  28 54 25 2c 30 29 2a 31  2e 35 2c 2d 48 58 25 28  |(T%,0)*1.5,-HX%(|
000042f0  54 25 2c 30 29 2a 31 2e  35 0d 1f 72 12 e3 49 25  |T%,0)*1.5..r..I%|
00004300  3d 31 b8 50 54 53 25 28  54 25 29 0d 1f 7c 22 ec  |=1.PTS%(T%)..|".|
00004310  2d 48 59 25 28 54 25 2c  30 29 2a 31 2e 35 2c 2d  |-HY%(T%,0)*1.5,-|
00004320  48 58 25 28 54 25 2c 30  29 2a 31 2e 35 0d 1f 86  |HX%(T%,0)*1.5...|
00004330  27 f0 38 35 2c 2d 48 59  25 28 54 25 2c 49 25 29  |'.85,-HY%(T%,I%)|
00004340  2a 31 2e 35 2c 2d 48 58  25 28 54 25 2c 49 25 29  |*1.5,-HX%(T%,I%)|
00004350  2a 31 2e 35 0d 1f 90 05  ed 0d 1f 9a 25 f0 38 35  |*1.5........%.85|
00004360  2c 2d 48 59 25 28 54 25  2c 31 29 2a 31 2e 35 2c  |,-HY%(T%,1)*1.5,|
00004370  2d 48 58 25 28 54 25 2c  31 29 2a 31 2e 35 0d 1f  |-HX%(T%,1)*1.5..|
00004380  a4 40 e7 43 4f 25 28 54  25 29 3d 26 31 30 37 20  |.@.CO%(T%)=&107 |
00004390  84 43 4f 25 28 54 25 29  3d 35 20 e6 31 32 3a c8  |.CO%(T%)=5 .12:.|
000043a0  92 2d 48 59 25 28 54 25  2c 30 29 2a 31 2e 35 2c  |.-HY%(T%,0)*1.5,|
000043b0  2d 48 58 25 28 54 25 2c  30 29 2a 31 2e 35 0d 1f  |-HX%(T%,0)*1.5..|
000043c0  ae 05 ed 0d 1f b8 05 cd  0d 1f c2 0c e7 4e 54 25  |.............NT%|
000043d0  3e b9 20 8c 0d 1f cc 07  e6 31 34 0d 1f d6 0d e3  |>. ......14.....|
000043e0  54 25 3d 30 b8 4e 54 25  0d 1f e0 25 c8 8f c8 90  |T%=0.NT%...%....|
000043f0  2d 54 52 59 25 28 54 25  29 2a 31 2e 35 2c 2d 54  |-TRY%(T%)*1.5,-T|
00004400  52 58 25 28 54 25 29 2a  31 2e 35 2c 38 0d 1f ea  |RX%(T%)*1.5,8...|
00004410  05 ed 0d 1f f4 05 cd 0d  1f fe 09 f2 67 72 69 64  |............grid|
00004420  0d 20 08 05 e1 0d 20 12  04 0d 20 1c 0f dd f2 64  |. .... ... ....d|
00004430  72 61 77 67 72 65 65 6e  0d 20 26 0f e7 67 72 65  |rawgreen. &..gre|
00004440  65 6e 20 ef 37 3a e1 0d  20 30 39 e7 6d 65 6d 3c  |en .7:.. 09.mem<|
00004450  35 34 f1 22 4e 4f 54 20  45 4e 4f 55 47 48 20 4d  |54."NOT ENOUGH M|
00004460  45 4d 4f 52 59 21 21 20  50 52 45 53 53 20 53 50  |EMORY!! PRESS SP|
00004470  41 43 45 3a 22 bd 37 3a  f5 fd a5 3d 33 32 3a e1  |ACE:".7:...=32:.|
00004480  0d 20 3a 10 dd f2 64 72  61 77 67 72 65 65 6e 32  |. :...drawgreen2|
00004490  0d 20 44 0b 67 72 65 65  6e 3d b9 0d 20 4e 0a 6d  |. D.green=.. N.m|
000044a0  65 6d 2d 3d 32 0d 20 58  10 48 58 25 28 4e 4f 25  |em-=2. X.HX%(NO%|
000044b0  2c 30 29 3d 30 0d 20 62  10 48 59 25 28 4e 4f 25  |,0)=0. b.HY%(NO%|
000044c0  2c 30 29 3d 30 0d 20 6c  0a 6d 65 6d 2d 3d 34 0d  |,0)=0. l.mem-=4.|
000044d0  20 76 0e 43 4f 25 28 4e  4f 25 29 3d 35 0d 20 80  | v.CO%(NO%)=5. .|
000044e0  0f 50 54 53 25 28 4e 4f  25 29 3d 30 0d 20 8a 08  |.PTS%(NO%)=0. ..|
000044f0  ec 30 2c 30 0d 20 94 10  e3 54 25 3d 30 b8 33 33  |.0,0. ...T%=0.33|
00004500  30 88 33 30 0d 20 9e 10  50 54 53 25 28 4e 4f 25  |0.30. ..PTS%(NO%|
00004510  29 2b 3d 31 0d 20 a8 0a  6d 65 6d 2d 3d 34 0d 20  |)+=1. ..mem-=4. |
00004520  b2 08 ec 30 2c 30 0d 20  bc 1e 48 58 25 28 4e 4f  |...0,0. ..HX%(NO|
00004530  25 2c 50 54 53 25 28 4e  4f 25 29 29 3d b5 b2 54  |%,PTS%(NO%))=..T|
00004540  25 2a 32 35 0d 20 c6 1e  48 59 25 28 4e 4f 25 2c  |%*25. ..HY%(NO%,|
00004550  50 54 53 25 28 4e 4f 25  29 29 3d 9b b2 54 25 2a  |PTS%(NO%))=..T%*|
00004560  32 35 0d 20 d0 37 f0 38  35 2c 2d 48 59 25 28 4e  |25. .7.85,-HY%(N|
00004570  4f 25 2c 50 54 53 25 28  4e 4f 25 29 29 2a 31 2e  |O%,PTS%(NO%))*1.|
00004580  35 2c 2d 48 58 25 28 4e  4f 25 2c 50 54 53 25 28  |5,-HX%(NO%,PTS%(|
00004590  4e 4f 25 29 29 2a 31 2e  35 0d 20 da 05 ed 0d 20  |NO%))*1.5. .... |
000045a0  e4 27 f0 38 35 2c 2d 48  59 25 28 4e 4f 25 2c 31  |.'.85,-HY%(NO%,1|
000045b0  29 2a 31 2e 35 2c 2d 48  58 25 28 4e 4f 25 2c 31  |)*1.5,-HX%(NO%,1|
000045c0  29 2a 31 2e 35 0d 20 ee  0a 4e 4f 25 2b 3d 31 0d  |)*1.5. ..NO%+=1.|
000045d0  20 f8 0e f2 72 65 64 69  73 70 6c 61 79 0d 21 02  | ...redisplay.!.|
000045e0  05 e1 0d 21 0c 04 0d 21  16 09 dd f2 6d 6f 75 0d  |...!...!....mou.|
000045f0  21 20 07 ea 43 25 0d 21  2a 05 f5 0d 21 34 0e c8  |! ..C%.!*...!4..|
00004600  97 58 25 2c 59 25 2c 4b  25 0d 21 3e 11 e7 6f 62  |.X%,Y%,K%.!>..ob|
00004610  25 3e 32 80 6f 62 25 3c  36 8c 0d 21 48 22 e7 28  |%>2.ob%<6..!H".(|
00004620  58 25 2f 31 2e 35 29 3c  2d 28 6c 65 6e 2d 28 94  |X%/1.5)<-(len-(.|
00004630  28 59 25 81 36 29 29 2d  34 30 29 8c 0d 21 52 1e  |(Y%.6))-40)..!R.|
00004640  58 25 3d 2d 28 6c 65 6e  2d 28 94 28 59 25 81 36  |X%=-(len-(.(Y%.6|
00004650  29 29 2d 34 30 29 2a 31  2e 35 0d 21 66 0c c8 97  |))-40)*1.5.!f...|
00004660  b8 58 25 2c 59 25 0d 21  70 05 cd 0d 21 7a 05 cd  |.X%,Y%.!p...!z..|
00004670  0d 21 84 0d 58 25 3d 58  25 81 36 2a 36 0d 21 8e  |.!..X%=X%.6*6.!.|
00004680  0d 59 25 3d 59 25 81 36  2a 36 0d 21 98 2f f1 8a  |.Y%=Y%.6*6.!./..|
00004690  35 38 2c 30 29 22 59 20  22 3b 2d a8 28 58 25 2f  |58,0)"Y ";-.(X%/|
000046a0  31 2e 35 29 2c 22 58 20  22 3b a8 28 59 25 2f 31  |1.5),"X ";.(Y%/1|
000046b0  2e 35 29 3b 22 20 20 20  22 0d 21 a2 1e f1 8a 35  |.5);"   ".!....5|
000046c0  38 2c 32 29 3b 7e 6d 65  6d 3b 22 20 42 59 54 45  |8,2);~mem;" BYTE|
000046d0  53 20 4c 45 46 54 22 0d  21 ac 20 f1 8a 35 38 2c  |S LEFT".!. ..58,|
000046e0  33 29 3b 4e 4f 25 3b 22  20 4f 42 4a 45 43 54 53  |3);NO%;" OBJECTS|
000046f0  20 44 52 41 57 4e 22 0d  21 b6 0c 2a 46 58 31 31  | DRAWN".!..*FX11|
00004700  32 2c 32 0d 21 c0 0e 43  25 3d b0 58 25 2c 59 25  |2,2.!..C%=.X%,Y%|
00004710  29 0d 21 ca 0c 2a 46 58  31 31 32 2c 31 0d 21 d4  |).!..*FX112,1.!.|
00004720  1f e7 43 25 3c 3e 37 80  4b 25 80 c6 8f 3d 30 3a  |..C%<>7.K%...=0:|
00004730  d4 31 2c 2d 31 35 2c 31  32 30 2c 34 0d 21 de 3b  |.1,-15,120,4.!.;|
00004740  fd 28 43 25 3d 37 80 69  73 6c 61 6e 64 3e 30 29  |.(C%=7.island>0)|
00004750  84 28 6f 62 25 3d 30 80  69 73 6c 61 6e 64 3c 30  |.(ob%=0.island<0|
00004760  80 58 25 3e 36 30 30 80  58 25 3c 39 30 30 80 94  |.X%>600.X%<900..|
00004770  59 25 3c 32 32 30 29 0d  21 e8 05 e1 0d 21 f2 04  |Y%<220).!....!..|
00004780  0d 21 fc 0d dd f2 72 65  71 28 41 24 29 0d 22 06  |.!....req(A$).".|
00004790  14 ef 32 38 2c 31 2c 33  30 2c 32 30 2c 33 30 3a  |..28,1,30,20,30:|
000047a0  db 0d 22 10 0b fb 38 3a  f1 41 24 3b 0d 22 1a 14  |.."...8:.A$;."..|
000047b0  ef 32 38 2c 31 2c 33 30  2c 37 38 2c 32 35 2c 37  |.28,1,30,78,25,7|
000047c0  0d 22 24 05 e1 0d 22 2e  04 0d 22 38 0e dd f2 73  |."$..."..."8...s|
000047d0  68 6f 77 63 6f 6c 73 0d  22 42 05 db 0d 22 4c 0b  |howcols."B..."L.|
000047e0  e3 54 25 3d 30 b8 36 0d  22 56 1f fb 4f 42 25 28  |.T%=0.6."V..OB%(|
000047f0  54 25 29 3a f1 8a 54 25  2a 31 31 2b 32 29 4f 42  |T%):..T%*11+2)OB|
00004800  24 28 54 25 29 3b 0d 22  60 05 ed 0d 22 6a 05 e1  |$(T%);."`..."j..|
00004810  0d 22 74 10 dd f2 73 68  6f 77 63 68 6f 73 65 6e  |."t...showchosen|
00004820  0d 22 7e 0f db 3a fb 4f  42 25 28 6f 62 25 29 0d  |."~..:.OB%(ob%).|
00004830  22 88 1c f1 8a 30 2c 30  29 22 44 52 41 57 49 4e  |"....0,0)"DRAWIN|
00004840  47 20 22 4f 42 24 28 6f  62 25 29 0d 22 92 05 e1  |G "OB$(ob%)."...|
00004850  0d 22 9c 04 0d 22 a6 0e  dd f2 69 6e 73 74 72 75  |."..."....instru|
00004860  63 74 0d 22 b0 1a f2 63  6f 6c 6f 75 72 73 28 39  |ct."...colours(9|
00004870  29 3a f2 73 63 72 65 65  6e 62 6f 78 0d 22 ba 43  |):.screenbox.".C|
00004880  e7 a4 71 75 65 73 74 28  22 44 4f 20 59 4f 55 20  |..quest("DO YOU |
00004890  52 45 51 55 49 52 45 20  49 4e 53 54 52 55 43 54  |REQUIRE INSTRUCT|
000048a0  49 4f 4e 53 3f 22 2c 22  59 45 53 22 2c 22 4e 4f  |IONS?","YES","NO|
000048b0  22 2c 30 29 3a f2 62 75  74 74 28 30 29 3a e1 0d  |",0):.butt(0):..|
000048c0  22 c4 27 f2 63 6f 6c 6f  75 72 73 28 31 32 29 3a  |".'.colours(12):|
000048d0  f2 6d 65 73 62 6f 78 28  30 2c 30 2c 31 32 37 39  |.mesbox(0,0,1279|
000048e0  2c 31 30 32 33 29 0d 22  ce 19 e6 31 32 3a c8 93  |,1023)."...12:..|
000048f0  39 39 38 2c 36 34 30 2c  31 36 30 2c 32 35 36 0d  |998,640,160,256.|
00004900  22 d8 2a 86 31 30 35 38  2c 38 39 36 2c 31 30 36  |".*.1058,896,106|
00004910  36 2c 39 34 30 3a df 31  30 39 30 2c 39 34 30 3a  |6,940:.1090,940:|
00004920  df 31 30 39 38 2c 38 39  36 0d 22 e2 16 e6 31 33  |.1098,896."...13|
00004930  39 3a e6 31 3a c8 90 31  30 37 38 2c 39 30 30 0d  |9:.1:..1078,900.|
00004940  22 ec 12 fb 31 2c 32 34  30 2c 32 34 30 2c 31 39  |"...1,240,240,19|
00004950  32 0d 22 f6 12 fb 32 2c  32 34 30 2c 32 30 38 2c  |2."...2,240,208,|
00004960  32 30 38 0d 23 00 12 fb  33 2c 32 34 30 2c 32 34  |208.#...3,240,24|
00004970  30 2c 32 32 34 0d 23 0a  1b e6 31 3a c8 93 c8 90  |0,224.#...1:....|
00004980  31 30 30 30 2c 36 34 34  2c 31 35 36 2c 32 34 38  |1000,644,156,248|
00004990  0d 23 14 1b e6 33 3a c8  93 c8 90 31 30 30 30 2c  |.#...3:....1000,|
000049a0  36 34 34 2c 31 35 36 2c  31 32 34 0d 23 1e 0b e3  |644,156,124.#...|
000049b0  54 25 3d 30 b8 32 0d 23  28 1e e6 31 32 3a c8 93  |T%=0.2.#(..12:..|
000049c0  31 30 31 32 2b 54 25 2a  35 30 2c 38 30 30 2c 33  |1012+T%*50,800,3|
000049d0  32 2c 36 34 0d 23 32 1f  e6 32 3a c8 93 c8 90 31  |2,64.#2..2:....1|
000049e0  30 31 34 2b 54 25 2a 35  30 2c 38 30 34 2c 32 38  |014+T%*50,804,28|
000049f0  2c 35 36 0d 23 3c 21 e6  31 32 3a ec 31 30 32 30  |,56.#<!.12:.1020|
00004a00  2b 54 25 2a 35 30 2c 38  35 30 3a ef 35 3a f1 3b  |+T%*50,850:.5:.;|
00004a10  54 25 2b 31 0d 23 46 0a  ed 3a ef 34 3a 87 0d 23  |T%+1.#F..:.4:..#|
00004a20  50 0c fb 31 33 39 3a fb  31 32 0d 23 5a 11 ef 32  |P..139:.12.#Z..2|
00004a30  38 2c 32 2c 33 30 2c 37  38 2c 33 0d 23 64 95 f1  |8,2,30,78,3.#d..|
00004a40  8a 30 2c 30 29 22 47 61  6d 65 20 63 6f 6e 74 72  |.0,0)"Game contr|
00004a50  6f 6c 20 69 6e 20 74 68  65 20 41 72 63 68 69 6d  |ol in the Archim|
00004a60  65 64 65 73 20 76 65 72  73 69 6f 6e 20 6f 66 20  |edes version of |
00004a70  22 3b 3a fb 39 3a f1 22  48 4f 4c 45 44 20 4f 55  |";:.9:."HOLED OU|
00004a80  54 22 3b 3a fb 31 32 3a  f1 22 20 69 73 20 76 69  |T";:.12:." is vi|
00004a90  61 22 27 22 74 68 65 20  4d 4f 55 53 45 2c 20 74  |a"'"the MOUSE, t|
00004aa0  68 65 20 6b 65 79 73 20  61 72 65 20 6e 75 6d 62  |he keys are numb|
00004ab0  65 72 65 64 20 61 73 20  69 6e 64 69 63 61 74 65  |ered as indicate|
00004ac0  64 20 6f 6e 20 74 68 65  20 72 69 67 68 74 2e 22  |d on the right."|
00004ad0  0d 23 6e 54 f1 27 22 54  68 65 20 64 69 66 66 65  |.#nT.'"The diffe|
00004ae0  72 65 6e 63 65 73 20 74  6f 20 74 68 65 20 69 6e  |rences to the in|
00004af0  73 74 72 75 63 74 69 6f  6e 73 20 61 73 20 73 68  |structions as sh|
00004b00  6f 77 6e 20 69 6e 20 74  68 65 20 6d 61 6e 75 61  |own in the manua|
00004b10  6c 22 27 22 61 72 65 20  61 73 20 66 6f 6c 6c 6f  |l"'"are as follo|
00004b20  77 73 3a 22 0d 23 78 42  f1 27 22 53 54 52 4f 4b  |ws:".#xB.'"STROK|
00004b30  45 50 4c 41 59 2f 22 8a  31 36 29 22 54 68 65 72  |EPLAY/".16)"Ther|
00004b40  65 20 63 61 6e 20 62 65  20 75 70 20 74 6f 20 36  |e can be up to 6|
00004b50  20 70 6c 61 79 65 72 73  20 69 6e 20 61 6e 79 20  | players in any |
00004b60  72 6f 75 6e 64 22 0d 23  82 88 f1 27 22 47 41 4d  |round".#...'"GAM|
00004b70  45 20 43 4f 4e 54 52 4f  4c 53 2f 22 27 27 22 31  |E CONTROLS/"''"1|
00004b80  2e 20 53 45 4c 45 43 54  20 43 4c 55 42 2e 20 55  |. SELECT CLUB. U|
00004b90  73 65 20 74 68 65 20 4d  4f 55 53 45 20 74 6f 20  |se the MOUSE to |
00004ba0  69 6e 64 69 63 61 74 65  20 74 68 65 20 63 6c 75  |indicate the clu|
00004bb0  62 20 72 65 71 75 69 72  65 64 20 74 68 65 6e 22  |b required then"|
00004bc0  8a 31 36 29 22 70 72 65  73 73 20 61 6e 79 20 62  |.16)"press any b|
00004bd0  75 74 74 6f 6e 20 74 6f  20 67 6f 20 74 6f 20 74  |utton to go to t|
00004be0  68 65 20 6e 65 78 74 20  73 74 61 67 65 22 0d 23  |he next stage".#|
00004bf0  8c 47 f1 27 22 32 2e 20  44 49 52 45 43 54 49 4f  |.G.'"2. DIRECTIO|
00004c00  4e 2e 20 20 20 50 6f 73  69 74 69 6f 6e 20 74 68  |N.   Position th|
00004c10  65 20 63 75 72 73 6f 72  20 77 69 74 68 20 74 68  |e cursor with th|
00004c20  65 20 4d 4f 55 53 45 20  74 68 65 6e 20 65 69 74  |e MOUSE then eit|
00004c30  68 65 72 2e 22 0d 23 96  2e f1 89 28 31 36 29 22  |her.".#....(16)"|
00004c40  50 72 65 73 73 20 5b 32  5d 20 74 6f 20 67 6f 20  |Press [2] to go |
00004c50  74 6f 20 74 68 65 20 6e  65 78 74 20 73 74 61 67  |to the next stag|
00004c60  65 2e 22 0d 23 a0 33 f1  89 28 31 36 29 22 50 72  |e.".#.3..(16)"Pr|
00004c70  65 73 73 20 5b 31 5d 20  6f 72 20 5b 33 5d 20 74  |ess [1] or [3] t|
00004c80  6f 20 73 65 6c 65 63 74  20 61 6e 6f 74 68 65 72  |o select another|
00004c90  20 63 6c 75 62 22 0d 23  aa 51 f1 27 22 33 2e 20  | club".#.Q.'"3. |
00004ca0  50 4f 57 45 52 2e 22 8a  31 36 29 22 41 73 20 73  |POWER.".16)"As s|
00004cb0  6f 6f 6e 20 61 73 20 74  68 65 20 64 69 72 65 63  |oon as the direc|
00004cc0  74 69 6f 6e 20 68 61 73  20 62 65 65 6e 20 73 65  |tion has been se|
00004cd0  6c 65 63 74 65 64 20 62  79 20 70 72 65 73 73 69  |lected by pressi|
00004ce0  6e 67 20 5b 32 5d 22 0d  23 b4 30 f1 8a 31 36 29  |ng [2]".#.0..16)|
00004cf0  22 74 68 65 20 62 61 72  20 69 6e 64 69 63 61 74  |"the bar indicat|
00004d00  6f 72 20 77 69 6c 6c 20  73 74 61 72 74 20 74 6f  |or will start to|
00004d10  20 6d 6f 76 65 2e 22 0d  23 be 2f f1 8a 31 36 29  | move.".#./..16)|
00004d20  22 50 72 65 73 73 69 6e  67 20 5b 32 5d 20 77 69  |"Pressing [2] wi|
00004d30  6c 6c 20 67 69 76 65 20  61 20 4e 6f 72 6d 61 6c  |ll give a Normal|
00004d40  20 73 68 6f 74 22 0d 23  c8 2f f1 8a 31 36 29 22  | shot".#./..16)"|
00004d50  50 72 65 73 73 69 6e 67  20 5b 31 5d 20 77 69 6c  |Pressing [1] wil|
00004d60  6c 20 67 69 76 65 20 61  20 48 6f 6f 6b 65 64 20  |l give a Hooked |
00004d70  73 68 6f 74 22 0d 23 d2  2f f1 8a 31 36 29 22 50  |shot".#./..16)"P|
00004d80  72 65 73 73 69 6e 67 20  5b 33 5d 20 77 69 6c 6c  |ressing [3] will|
00004d90  20 67 69 76 65 20 61 20  53 6c 69 63 65 64 20 73  | give a Sliced s|
00004da0  68 6f 74 22 0d 23 dc 4f  f1 27 22 54 6f 20 72 65  |hot".#.O.'"To re|
00004db0  61 64 20 63 6f 75 72 73  65 73 20 66 72 6f 6d 20  |ad courses from |
00004dc0  61 6c 74 65 72 6e 61 74  65 20 64 69 73 63 73 20  |alternate discs |
00004dd0  73 69 6d 70 6c 79 20 69  6e 73 65 72 74 20 74 68  |simply insert th|
00004de0  65 20 64 69 73 63 20 77  68 65 6e 20 69 6e 20 74  |e disc when in t|
00004df0  68 65 22 0d 23 e6 27 f1  22 43 4f 55 52 53 45 53  |he".#.'."COURSES|
00004e00  20 77 69 6e 64 6f 77 20  61 6e 64 20 70 72 65 73  | window and pres|
00004e10  73 20 45 53 43 41 50 45  2e 22 0d 23 f0 28 f1 27  |s ESCAPE.".#.(.'|
00004e20  8a 32 32 29 22 50 52 45  53 53 20 41 4e 59 20 42  |.22)"PRESS ANY B|
00004e30  55 54 54 4f 4e 20 54 4f  20 43 4f 4e 54 49 4e 55  |UTTON TO CONTINU|
00004e40  45 22 0d 23 fa 0c f2 62  75 74 74 28 30 29 0d 24  |E".#...butt(0).$|
00004e50  04 21 f5 3a c8 97 58 25  2c 59 25 2c 4b 25 3a fd  |.!.:..X%,Y%,K%:.|
00004e60  4b 25 3a d4 31 2c 2d 31  30 2c 32 30 30 2c 31 0d  |K%:.1,-10,200,1.|
00004e70  24 0e 0c f2 62 75 74 74  28 30 29 0d 24 18 11 ef  |$...butt(0).$...|
00004e80  32 38 2c 32 2c 33 30 2c  37 38 2c 31 0d 24 22 09  |28,2,30,78,1.$".|
00004e90  db 3a fb 31 34 0d 24 2c  04 0d 24 36 22 f1 27 22  |.:.14.$,..$6".'"|
00004ea0  4f 70 65 72 61 74 69 6f  6e 20 6f 66 20 74 68 65  |Operation of the|
00004eb0  20 45 44 49 54 4f 52 20  3a 2d 22 0d 24 40 07 fb  | EDITOR :-".$@..|
00004ec0  31 32 0d 24 4a 50 f1 27  22 54 68 65 20 6d 61 69  |12.$JP.'"The mai|
00004ed0  6e 20 45 44 49 54 4f 52  20 70 61 6e 65 6c 20 63  |n EDITOR panel c|
00004ee0  6f 6e 73 69 73 74 73 20  6f 66 20 61 20 70 6c 61  |onsists of a pla|
00004ef0  6e 20 6f 66 20 74 68 65  20 68 6f 6c 65 20 62 65  |n of the hole be|
00004f00  69 6e 67 20 65 64 69 74  65 64 20 61 6e 64 20 61  |ing edited and a|
00004f10  6e 22 0d 24 54 3e f1 22  4f 70 74 69 6f 6e 73 20  |n".$T>."Options |
00004f20  77 69 6e 64 6f 77 2e 20  20 54 68 65 20 6f 70 74  |window.  The opt|
00004f30  69 6f 6e 73 20 61 72 65  20 73 70 6c 69 74 20 69  |ions are split i|
00004f40  6e 74 6f 20 74 77 6f 20  67 72 6f 75 70 73 2e 22  |nto two groups."|
00004f50  0d 24 5e 51 f1 27 22 54  68 65 20 66 69 72 73 74  |.$^Q.'"The first|
00004f60  20 63 6f 6e 74 61 69 6e  73 20 37 20 64 69 66 66  | contains 7 diff|
00004f70  65 72 65 6e 74 20 63 6f  6c 6f 75 72 65 64 20 64  |erent coloured d|
00004f80  72 61 77 69 6e 67 20 6f  70 74 69 6f 6e 73 20 77  |rawing options w|
00004f90  68 69 63 68 20 61 72 65  20 75 73 65 64 20 74 6f  |hich are used to|
00004fa0  22 0d 24 68 48 f1 22 64  72 61 77 20 74 68 65 20  |".$hH."draw the |
00004fb0  76 61 72 69 6f 75 73 20  6f 62 6a 65 63 74 73 20  |various objects |
00004fc0  6f 6e 20 74 68 65 20 68  6f 6c 65 20 7b 47 72 65  |on the hole {Gre|
00004fd0  65 6e 2c 20 46 61 69 72  77 61 79 2c 20 57 61 74  |en, Fairway, Wat|
00004fe0  65 72 20 65 63 74 7d 2e  22 0d 24 72 4c f1 27 22  |er ect}.".$rL.'"|
00004ff0  54 68 65 20 73 65 63 6f  6e 64 20 67 72 6f 75 70  |The second group|
00005000  20 61 72 65 20 61 6c 6c  20 63 6f 6c 6f 75 72 65  | are all coloure|
00005010  64 20 72 65 64 20 61 6e  64 20 63 6f 6e 74 72 6f  |d red and contro|
00005020  6c 20 74 68 65 20 45 44  49 54 4f 52 20 61 63 74  |l the EDITOR act|
00005030  69 6f 6e 73 22 0d 24 7c  52 f1 22 7b 4c 6f 61 64  |ions".$|R."{Load|
00005040  20 61 6e 64 20 53 61 76  65 20 66 69 6c 65 73 2c  | and Save files,|
00005050  20 4f 62 6a 65 63 74 20  64 65 6c 65 74 69 6f 6e  | Object deletion|
00005060  20 65 63 74 7d 20 61 6c  6c 20 74 68 65 73 65 20  | ect} all these |
00005070  61 63 74 69 6f 6e 73 20  68 61 76 65 20 74 68 65  |actions have the|
00005080  69 72 20 6f 77 6e 22 0d  24 86 52 f1 22 48 65 6c  |ir own".$.R."Hel|
00005090  70 20 74 65 78 74 2e 20  20 54 68 65 20 62 65 73  |p text.  The bes|
000050a0  74 20 77 61 79 20 74 6f  20 64 69 73 63 6f 76 65  |t way to discove|
000050b0  72 20 74 68 65 69 72 20  6f 70 65 72 61 74 69 6f  |r their operatio|
000050c0  6e 20 69 73 20 74 6f 20  74 72 79 20 74 68 65 6d  |n is to try them|
000050d0  20 6f 75 74 20 66 6f 72  22 0d 24 90 10 f1 22 79  | out for".$..."y|
000050e0  6f 75 72 73 65 6c 66 2e  22 0d 24 9a 4f f1 27 22  |ourself.".$.O.'"|
000050f0  41 6c 6c 20 63 6f 75 72  73 65 20 66 69 6c 65 73  |All course files|
00005100  20 61 72 65 20 73 61 76  65 64 20 69 6e 20 74 68  | are saved in th|
00005110  65 20 24 20 64 69 72 65  63 74 6f 72 79 20 6f 6e  |e $ directory on|
00005120  20 64 72 69 76 65 20 3a  30 20 61 6e 64 20 69 74  | drive :0 and it|
00005130  20 69 73 20 6e 6f 74 22  0d 24 a4 52 f1 22 70 6f  | is not".$.R."po|
00005140  73 73 69 62 6c 65 20 74  6f 20 73 61 76 65 20 66  |ssible to save f|
00005150  69 6c 65 73 20 74 6f 20  74 68 65 20 45 44 49 54  |iles to the EDIT|
00005160  4f 52 20 64 69 73 63 2e  20 20 54 68 65 72 65 20  |OR disc.  There |
00005170  61 72 65 20 6e 6f 20 73  70 65 63 69 61 6c 20 61  |are no special a|
00005180  63 74 69 6f 6e 73 20 74  6f 22 0d 24 ae 51 f1 22  |ctions to".$.Q."|
00005190  72 65 61 64 20 6f 72 20  77 72 69 74 65 20 74 6f  |read or write to|
000051a0  20 61 6e 6f 74 68 65 72  20 64 69 73 63 20 73 69  | another disc si|
000051b0  6d 70 6c 79 20 69 6e 73  65 72 74 20 74 68 65 20  |mply insert the |
000051c0  64 69 73 63 20 62 65 66  6f 72 65 20 73 65 6c 65  |disc before sele|
000051d0  63 74 69 6e 67 20 4c 6f  61 64 22 0d 24 b8 0f f1  |cting Load".$...|
000051e0  22 6f 72 20 53 61 76 65  2e 22 0d 24 c2 52 f1 27  |"or Save.".$.R.'|
000051f0  22 42 65 66 6f 72 65 20  79 6f 75 20 63 61 6e 20  |"Before you can |
00005200  27 53 41 56 45 27 20 61  20 68 6f 6c 65 20 61 73  |'SAVE' a hole as|
00005210  20 70 61 72 74 20 6f 66  20 61 20 63 6f 75 72 73  | part of a cours|
00005220  65 20 6f 72 20 27 56 49  45 57 27 20 61 20 68 6f  |e or 'VIEW' a ho|
00005230  6c 65 20 79 6f 75 20 6d  75 73 74 22 0d 24 cc 48  |le you must".$.H|
00005240  f1 22 75 73 65 20 74 68  65 20 27 57 52 49 54 45  |."use the 'WRITE|
00005250  20 48 4f 4c 45 27 20 6f  70 74 69 6f 6e 20 74 6f  | HOLE' option to|
00005260  20 73 74 6f 72 65 20 74  68 65 20 64 61 74 61 20  | store the data |
00005270  69 6e 74 6f 20 63 6f 75  72 73 65 20 6d 65 6d 6f  |into course memo|
00005280  72 79 2e 22 0d 24 d6 50  f1 27 22 57 68 65 6e 20  |ry.".$.P.'"When |
00005290  53 41 56 49 4e 47 20 61  20 63 6f 75 72 73 65 20  |SAVING a course |
000052a0  74 6f 20 64 69 73 63 20  79 6f 75 20 63 61 6e 20  |to disc you can |
000052b0  75 73 65 20 73 70 61 63  65 73 20 69 6e 20 74 68  |use spaces in th|
000052c0  65 20 66 69 6c 65 20 6e  61 6d 65 20 73 6f 20 74  |e file name so t|
000052d0  68 61 74 22 0d 24 e0 9b  f1 22 6e 61 6d 65 73 20  |hat".$..."names |
000052e0  73 75 63 68 20 61 73 20  27 50 49 4e 45 20 49 53  |such as 'PINE IS|
000052f0  4c 45 53 27 20 61 72 65  20 71 75 69 74 65 20 61  |LES' are quite a|
00005300  63 63 65 70 74 61 62 6c  65 2c 20 20 54 68 65 20  |cceptable,  The |
00005310  73 70 61 63 65 73 20 77  69 6c 6c 20 62 65 20 72  |spaces will be r|
00005320  65 70 6c 61 63 65 64 62  79 20 75 6e 64 65 72 6c  |eplacedby underl|
00005330  69 6e 65 20 63 68 61 72  61 63 74 65 72 73 20 77  |ine characters w|
00005340  68 65 6e 20 74 68 65 20  66 69 6c 65 20 69 73 20  |hen the file is |
00005350  73 61 76 65 64 20 61 6e  64 20 72 65 73 74 6f 72  |saved and restor|
00005360  65 64 20 6f 6e 20 6c 6f  61 64 69 6e 67 2e 22 0d  |ed on loading.".|
00005370  24 ea 29 f1 27 27 8a 32  32 29 22 50 52 45 53 53  |$.).''.22)"PRESS|
00005380  20 41 4e 59 20 42 55 54  54 4f 4e 20 54 4f 20 43  | ANY BUTTON TO C|
00005390  4f 4e 54 49 4e 55 45 22  0d 24 f4 0c f2 62 75 74  |ONTINUE".$...but|
000053a0  74 28 30 29 0d 24 fe 21  f5 3a c8 97 58 25 2c 59  |t(0).$.!.:..X%,Y|
000053b0  25 2c 4b 25 3a fd 4b 25  3a d4 31 2c 2d 31 30 2c  |%,K%:.K%:.1,-10,|
000053c0  32 30 30 2c 31 0d 25 08  0e f2 62 75 74 74 28 30  |200,1.%...butt(0|
000053d0  29 3a db 0d 25 12 21 f1  22 4f 70 65 72 61 74 69  |):..%.!."Operati|
000053e0  6f 6e 20 6f 66 20 74 68  65 20 45 44 49 54 4f 52  |on of the EDITOR|
000053f0  20 3a 2d 22 0d 25 1c 52  f1 27 22 49 74 20 69 73  | :-".%.R.'"It is|
00005400  20 70 6f 73 73 69 62 6c  65 20 74 6f 20 64 72 61  | possible to dra|
00005410  77 20 6f 6e 65 20 6f 62  6a 65 63 74 20 6f 76 65  |w one object ove|
00005420  72 20 74 68 65 20 74 6f  70 20 6f 66 20 61 6e 6f  |r the top of ano|
00005430  74 68 65 72 2c 20 73 6f  20 73 6f 6d 65 20 74 68  |ther, so some th|
00005440  6f 75 67 68 74 22 0d 25  26 50 f1 22 77 69 6c 6c  |ought".%&P."will|
00005450  20 62 65 20 72 65 71 75  69 72 65 64 20 77 68 65  | be required whe|
00005460  6e 20 63 6f 6e 73 74 72  75 63 74 69 6e 67 20 61  |n constructing a|
00005470  20 68 6f 6c 65 20 69 66  20 74 68 65 20 66 69 6e  | hole if the fin|
00005480  61 6c 20 72 65 73 75 6c  74 20 69 73 20 74 6f 20  |al result is to |
00005490  62 65 20 61 73 22 0d 25  30 50 f1 22 79 6f 75 20  |be as".%0P."you |
000054a0  76 69 73 75 61 6c 69 73  65 20 69 74 2e 20 20 50  |visualise it.  P|
000054b0  6c 61 63 69 6e 67 20 61  72 65 61 73 20 6f 66 20  |lacing areas of |
000054c0  77 61 74 65 72 20 6f 72  20 62 75 6e 6b 65 72 73  |water or bunkers|
000054d0  20 75 6e 64 65 72 6e 65  61 74 68 20 74 68 65 20  | underneath the |
000054e0  67 72 65 65 6e 22 0d 25  3a 41 f1 22 63 61 6e 20  |green".%:A."can |
000054f0  68 61 76 65 20 75 6e 70  72 65 64 69 63 74 61 62  |have unpredictab|
00005500  6c 65 20 72 65 73 75 6c  74 73 20 73 6f 20 74 72  |le results so tr|
00005510  79 20 74 6f 20 61 76 6f  69 64 20 64 6f 69 6e 67  |y to avoid doing|
00005520  20 74 68 69 73 2e 22 0d  25 44 52 f1 27 22 49 66  | this.".%DR.'"If|
00005530  20 79 6f 75 20 73 65 6c  65 63 74 20 74 68 65 20  | you select the |
00005540  27 49 53 4c 41 4e 44 27  20 6f 70 74 69 6f 6e 20  |'ISLAND' option |
00005550  69 74 20 77 69 6c 6c 20  74 6f 67 67 6c 65 20 74  |it will toggle t|
00005560  68 65 20 68 6f 6c 65 20  70 6c 61 6e 20 74 6f 20  |he hole plan to |
00005570  74 68 65 20 6c 65 66 74  22 0d 25 4e 50 f1 22 6f  |the left".%NP."o|
00005580  66 20 74 68 65 20 73 63  72 65 65 6e 2e 20 20 49  |f the screen.  I|
00005590  6e 20 74 68 69 73 20 6d  6f 64 65 20 79 6f 75 20  |n this mode you |
000055a0  77 69 6c 6c 20 6f 6e 6c  79 20 62 65 20 61 62 6c  |will only be abl|
000055b0  65 20 74 6f 20 64 72 61  77 20 61 6e 20 69 73 6c  |e to draw an isl|
000055c0  61 6e 64 20 77 69 74 68  22 0d 25 58 51 f1 22 63  |and with".%XQ."c|
000055d0  6f 6c 6f 75 72 20 27 52  4f 55 47 48 27 20 61 6e  |olour 'ROUGH' an|
000055e0  64 20 70 6f 73 69 74 69  6f 6e 20 74 72 65 65 73  |d position trees|
000055f0  20 6f 6e 20 74 68 65 20  69 73 6c 61 6e 64 2e 20  | on the island. |
00005600  20 53 65 6c 65 63 74 20  27 49 53 4c 41 4e 44 27  | Select 'ISLAND'|
00005610  20 61 67 61 69 6e 20 74  6f 22 0d 25 62 29 f1 22  | again to".%b)."|
00005620  72 65 74 75 72 6e 20 74  6f 20 74 68 65 20 6e 6f  |return to the no|
00005630  72 6d 61 6c 20 65 64 69  74 69 6e 67 20 6d 6f 64  |rmal editing mod|
00005640  65 2e 22 0d 25 6c 4d f1  27 22 54 68 65 20 68 6f  |e.".%lM.'"The ho|
00005650  6c 65 20 70 6c 61 6e 20  69 73 20 64 69 76 69 64  |le plan is divid|
00005660  65 64 20 69 6e 74 6f 20  35 30 20 79 61 72 64 20  |ed into 50 yard |
00005670  73 71 75 61 72 65 73 20  74 68 65 73 65 20 73 68  |squares these sh|
00005680  6f 75 6c 64 20 62 65 20  75 73 65 64 20 69 6e 22  |ould be used in"|
00005690  0d 25 76 51 f1 22 63 6f  6e 6a 75 6e 63 74 69 6f  |.%vQ."conjunctio|
000056a0  6e 20 77 69 74 68 20 74  68 65 20 63 6c 75 62 20  |n with the club |
000056b0  64 69 73 74 61 6e 63 65  73 20 6f 6e 20 79 6f 75  |distances on you|
000056c0  72 20 71 75 69 63 6b 20  72 65 66 65 72 65 6e 63  |r quick referenc|
000056d0  65 20 63 61 72 64 20 74  6f 20 65 6e 73 75 72 65  |e card to ensure|
000056e0  22 0d 25 80 4a f1 22 74  68 61 74 20 79 6f 75 20  |".%.J."that you |
000056f0  64 6f 6e 27 74 20 64 72  61 77 20 61 6e 20 6f 62  |don't draw an ob|
00005700  6a 65 63 74 20 74 68 61  74 20 69 73 20 74 6f 6f  |ject that is too|
00005710  20 62 69 67 20 74 6f 20  68 69 74 20 74 68 65 20  | big to hit the |
00005720  62 61 6c 6c 20 6f 76 65  72 2e 22 0d 25 8a 4b f1  |ball over.".%.K.|
00005730  27 22 41 74 20 74 68 65  20 74 6f 70 20 6f 66 20  |'"At the top of |
00005740  74 68 65 20 48 6f 6c 65  20 50 6c 61 6e 2c 20 74  |the Hole Plan, t|
00005750  68 65 20 48 6f 6c 65 20  6c 65 6e 67 74 68 2c 20  |he Hole length, |
00005760  50 61 72 2c 20 54 65 65  20 58 20 61 6e 64 20 54  |Par, Tee X and T|
00005770  65 65 20 59 20 22 0d 25  94 4a f1 22 63 6f 6f 72  |ee Y ".%.J."coor|
00005780  64 69 6e 61 74 65 73 20  61 6e 64 20 61 6d 6f 75  |dinates and amou|
00005790  6e 74 20 6f 66 20 48 6f  6c 65 20 6d 65 6d 6f 72  |nt of Hole memor|
000057a0  79 20 72 65 6d 61 69 6e  69 6e 67 20 61 72 65 20  |y remaining are |
000057b0  64 69 73 70 6c 61 79 65  64 2e 20 20 54 68 65 22  |displayed.  The"|
000057c0  0d 25 9e 4b f1 22 58 20  61 6e 64 20 59 20 63 6f  |.%.K."X and Y co|
000057d0  6f 72 64 69 6e 61 74 65  73 20 61 72 65 20 72 65  |ordinates are re|
000057e0  76 65 72 73 65 64 20 66  72 6f 6d 20 74 68 65 20  |versed from the |
000057f0  6e 6f 72 6d 61 6c 20 63  6f 6e 76 65 6e 74 69 6f  |normal conventio|
00005800  6e 2c 20 58 20 62 65 69  6e 67 22 0d 25 a8 43 f1  |n, X being".%.C.|
00005810  22 76 65 72 74 69 63 61  6c 20 61 6e 64 20 59 20  |"vertical and Y |
00005820  68 6f 72 69 7a 6f 6e 74  61 6c 2c 20 5a 65 72 6f  |horizontal, Zero|
00005830  20 62 65 69 6e 67 20 63  65 6e 74 72 65 64 20 75  | being centred u|
00005840  70 6f 6e 20 74 68 65 20  68 6f 6c 65 2e 22 0d 25  |pon the hole.".%|
00005850  b2 4d f1 22 49 66 20 79  6f 75 20 63 61 6e 27 74  |.M."If you can't|
00005860  20 64 72 61 77 20 61 6e  20 6f 62 6a 65 63 74 20  | draw an object |
00005870  63 68 65 63 6b 20 74 68  61 74 20 74 68 65 72 65  |check that there|
00005880  20 69 73 20 65 6e 6f 75  67 68 20 6d 65 6d 6f 72  | is enough memor|
00005890  79 20 6c 65 66 74 20 66  6f 72 22 0d 25 bc 15 f1  |y left for".%...|
000058a0  22 74 68 65 20 6f 70 65  72 61 74 69 6f 6e 2e 22  |"the operation."|
000058b0  0d 25 c6 54 f1 27 22 46  69 6e 61 6c 6c 79 20 79  |.%.T.'"Finally y|
000058c0  6f 75 20 64 6f 6e 27 74  20 68 61 76 65 20 74 6f  |ou don't have to|
000058d0  20 64 65 73 69 67 6e 20  61 6c 6c 20 31 38 20 68  | design all 18 h|
000058e0  6f 6c 65 73 20 62 65 66  6f 72 65 20 73 61 76 69  |oles before savi|
000058f0  6e 67 20 61 20 63 6f 75  72 73 65 20 74 6f 20 64  |ng a course to d|
00005900  69 73 63 22 0d 25 d0 50  f1 22 73 6f 20 61 73 20  |isc".%.P."so as |
00005910  73 6f 6f 6e 20 61 73 20  79 6f 75 20 68 61 76 65  |soon as you have|
00005920  20 63 72 65 61 74 65 64  20 61 20 68 6f 6c 65 20  | created a hole |
00005930  79 6f 75 20 63 61 6e 20  73 61 76 65 20 74 68 65  |you can save the|
00005940  20 63 6f 75 72 73 65 2c  20 6c 65 61 76 65 20 74  | course, leave t|
00005950  68 65 20 22 0d 25 da 48  f1 22 65 64 69 74 6f 72  |he ".%.H."editor|
00005960  20 77 69 74 68 20 74 68  65 20 27 45 58 49 54 20  | with the 'EXIT |
00005970  45 44 49 54 4f 52 27 20  6f 70 74 69 6f 6e 20 61  |EDITOR' option a|
00005980  6e 64 20 74 65 73 74 20  70 6c 61 79 20 79 6f 75  |nd test play you|
00005990  20 6f 77 6e 20 68 6f 6c  65 73 21 22 0d 25 e4 29  | own holes!".%.)|
000059a0  f1 27 27 8a 32 32 29 22  50 52 45 53 53 20 41 4e  |.''.22)"PRESS AN|
000059b0  59 20 42 55 54 54 4f 4e  20 54 4f 20 43 4f 4e 54  |Y BUTTON TO CONT|
000059c0  49 4e 55 45 22 0d 25 ee  0c f2 62 75 74 74 28 30  |INUE".%...butt(0|
000059d0  29 0d 25 f8 21 f5 3a c8  97 58 25 2c 59 25 2c 4b  |).%.!.:..X%,Y%,K|
000059e0  25 3a fd 4b 25 3a d4 31  2c 2d 31 30 2c 32 30 30  |%:.K%:.1,-10,200|
000059f0  2c 31 0d 26 02 0c f2 62  75 74 74 28 30 29 0d 26  |,1.&...butt(0).&|
00005a00  0c 05 e1 0d 26 16 07 f4  20 15 0d 26 20 0c dd f2  |....&... ..& ...|
00005a10  63 68 6f 66 73 63 0d 26  2a 0c 2a 46 58 31 31 32  |chofsc.&*.*FX112|
00005a20  2c 33 0d 26 34 05 db 0d  26 3e 3d e7 b4 78 31 25  |,3.&4...&>=..x1%|
00005a30  3d b9 20 c8 91 31 32 38  30 2c 37 36 38 2b 4f 25  |=. ..1280,768+O%|
00005a40  2d 36 31 36 36 2a 67 72  65 65 6e 25 3a 8b c8 91  |-6166*green%:...|
00005a50  30 2c 37 36 38 2b 4f 25  2d 36 31 36 36 2a 67 72  |0,768+O%-6166*gr|
00005a60  65 65 6e 25 0d 26 48 0c  50 25 3d 72 6f 75 67 68  |een%.&H.P%=rough|
00005a70  0d 26 52 12 e6 a4 6d 61  70 31 3a f2 64 72 61 77  |.&R...map1:.draw|
00005a80  69 74 0d 26 5c 12 e6 a4  6d 61 70 31 3a f2 64 72  |it.&\...map1:.dr|
00005a90  61 77 69 74 0d 26 66 17  50 25 3d 77 61 74 65 72  |awit.&f.P%=water|
00005aa0  3a e6 36 3a f2 64 72 61  77 69 74 0d 26 70 10 47  |:.6:.drawit.&p.G|
00005ab0  25 3d b0 78 73 25 2c 79  73 25 29 0d 26 7a 13 e7  |%=.xs%,ys%).&z..|
00005ac0  47 25 3d 36 84 47 25 3d  31 31 57 25 3d a3 0d 26  |G%=6.G%=11W%=..&|
00005ad0  84 0c 2a 46 58 31 31 32  2c 31 0d 26 8e 05 e1 0d  |..*FX112,1.&....|
00005ae0  26 98 07 f4 20 15 0d 26  a2 0d dd f2 70 72 65 76  |&... ..&....prev|
00005af0  69 65 77 0d 26 ac 05 f5  0d 26 b6 1e f2 63 6f 6c  |iew.&....&...col|
00005b00  6f 75 72 73 28 39 29 3a  f2 73 63 72 65 65 6e 62  |ours(9):.screenb|
00005b10  6f 78 3a c8 97 ee 0d 26  c0 15 6c 68 6f 6c 25 3d  |ox:....&..lhol%=|
00005b20  a4 63 68 6f 73 65 61 68  6f 6c 65 0d 26 ca 1a e7  |.choseahole.&...|
00005b30  ac 6c 68 6f 6c 25 f2 64  72 61 77 6d 61 70 28 6c  |.lhol%.drawmap(l|
00005b40  68 6f 6c 25 29 0d 26 d4  0c fd 6c 68 6f 6c 25 3d  |hol%).&...lhol%=|
00005b50  b9 0d 26 de 05 e1 0d 26  e8 07 f4 20 15 0d 26 f2  |..&....&... ..&.|
00005b60  16 dd f2 64 72 61 77 6d  61 70 28 68 6f 6c 65 6e  |...drawmap(holen|
00005b70  6f 25 29 0d 26 fc 17 e7  49 6e 65 64 69 74 6f 72  |o%).&...Ineditor|
00005b80  20 8c 2a 46 58 32 32 39  2c 31 0d 27 06 0e f2 69  | .*FX229,1.'...i|
00005b90  6e 69 74 63 6c 6f 75 64  0d 27 10 13 6c 69 25 3d  |nitcloud.'..li%=|
00005ba0  32 3a f2 69 6e 69 74 77  69 6e 64 0d 27 1a 28 ea  |2:.initwind.'.(.|
00005bb0  72 25 2c 6c 25 2c 4f 4c  25 2c 41 25 2c 41 41 25  |r%,l%,OL%,A%,AA%|
00005bc0  2c 54 25 2c 49 25 2c 53  50 25 2c 58 25 2c 59 25  |,T%,I%,SP%,X%,Y%|
00005bd0  2c 41 24 0d 27 24 11 58  25 3d 36 34 30 3a 59 25  |,A$.'$.X%=640:Y%|
00005be0  3d 35 31 32 0d 27 2e 05  f5 0d 27 38 1f 50 25 3d  |=512.'....'8.P%=|
00005bf0  6d 61 70 70 6f 69 6e 74  25 2b 68 6f 6c 65 6e 6f  |mappoint%+holeno|
00005c00  25 3a 53 50 25 3d 50 25  0d 27 42 26 4f 4c 25 3d  |%:SP%=P%.'B&OL%=|
00005c10  28 bb 28 c3 7e 28 28 6d  61 70 21 28 50 25 2b 26  |(.(.~((map!(P%+&|
00005c20  32 46 41 29 29 80 26 46  46 46 46 29 29 29 0d 27  |2FA)).&FFFF))).'|
00005c30  4c 0d 41 41 25 3d a4 6d  61 70 31 0d 27 56 0d e3  |L.AA%=.map1.'V..|
00005c40  41 25 3d 31 b8 41 41 25  0d 27 60 11 6c 25 3d a4  |A%=1.AA%.'`.l%=.|
00005c50  6d 61 70 32 2f 31 30 2e  35 0d 27 6a 11 72 25 3d  |map2/10.5.'j.r%=|
00005c60  a4 6d 61 70 32 2f 31 30  2e 35 0d 27 74 17 78 25  |.map2/10.5.'t.x%|
00005c70  28 41 25 29 3d 72 25 3a  79 25 28 41 25 29 3d 6c  |(A%)=r%:y%(A%)=l|
00005c80  25 0d 27 7e 05 ed 0d 27  88 0e 49 25 3d a4 6d 61  |%.'~...'..I%=.ma|
00005c90  70 31 2d 31 0d 27 92 22  54 25 3d a4 6d 61 70 31  |p1-1.'."T%=.map1|
00005ca0  3a 54 25 3d a4 6d 61 70  31 3a 50 25 3d 50 25 2b  |:T%=.map1:P%=P%+|
00005cb0  54 25 2a 34 2b 34 0d 27  9c 17 6c 25 3d 30 3a 72  |T%*4+4.'..l%=0:r|
00005cc0  25 3d 30 3a 74 25 3d 30  3a 62 25 3d 30 0d 27 a6  |%=0:t%=0:b%=0.'.|
00005cd0  20 f2 63 6f 6c 6f 75 72  73 28 31 32 29 3a f2 73  | .colours(12):.s|
00005ce0  63 72 65 65 6e 62 6f 78  3a e6 31 33 37 0d 27 b0  |creenbox:.137.'.|
00005cf0  26 f2 6d 65 73 62 6f 78  28 35 33 32 2d 4f 4c 25  |&.mesbox(532-OL%|
00005d00  2c 32 39 34 2c 4f 4c 25  2a 32 2b 32 31 32 2c 36  |,294,OL%*2+212,6|
00005d10  39 32 29 0d 27 ba 29 ef  32 36 2c 32 34 2c 35 34  |92).'.).26,24,54|
00005d20  38 2d 4f 4c 25 3b 33 31  30 3b 35 34 38 2b 4f 4c  |8-OL%;310;548+OL|
00005d30  25 2b 31 38 30 3b 39 37  30 3b 3a da 0d 27 c4 11  |%+180;970;:..'..|
00005d40  c8 91 35 39 32 2b 4f 4c  25 2c 36 34 30 0d 27 ce  |..592+OL%,640.'.|
00005d50  13 e3 54 25 3d 31 b8 49  25 3a e6 a4 6d 61 70 31  |..T%=1.I%:..map1|
00005d60  0d 27 d8 0d 6e 70 25 3d  a4 6d 61 70 31 0d 27 e2  |.'..np%=.map1.'.|
00005d70  25 f2 6d 61 70 32 28 43  58 25 2c 43 59 25 2c 34  |%.map2(CX%,CY%,4|
00005d80  29 3a f2 6d 61 70 32 28  53 58 25 2c 53 59 25 2c  |):.map2(SX%,SY%,|
00005d90  34 29 0d 27 ec 2c e3 49  25 3d 31 b8 6e 70 25 2d  |4).'.,.I%=1.np%-|
00005da0  31 3a f2 6d 61 70 32 28  58 49 25 2c 59 49 25 2c  |1:.map2(XI%,YI%,|
00005db0  38 35 29 3a ec 43 58 25  2c 43 59 25 3a ed 0d 27  |85):.CX%,CY%:..'|
00005dc0  f6 0f f0 38 35 2c 53 58  25 2c 53 59 25 0d 28 00  |...85,SX%,SY%.(.|
00005dd0  09 ed 3a e6 31 34 0d 28  0a 38 e3 54 25 3d 31 b8  |..:.14.(.8.T%=1.|
00005de0  41 41 25 3a e7 b0 2d 78  25 28 54 25 29 2c 2d 79  |AA%:..-x%(T%),-y|
00005df0  25 28 54 25 29 29 3c 3e  36 c8 8f c8 90 2d 78 25  |%(T%))<>6....-x%|
00005e00  28 54 25 29 2c 2d 79 25  28 54 25 29 2c 38 0d 28  |(T%),-y%(T%),8.(|
00005e10  14 0e ed 3a e6 30 3a c8  92 30 2c 30 0d 28 1e 07  |...:.0:..0,0.(..|
00005e20  ef 32 36 0d 28 28 56 f2  73 6d 61 6c 6c 6d 65 73  |.26.((V.smallmes|
00005e30  28 31 34 34 2c 31 36 36  2c 31 32 2c 22 50 4f 53  |(144,166,12,"POS|
00005e40  49 54 49 4f 4e 20 50 4f  49 4e 54 45 52 20 4f 4e  |ITION POINTER ON|
00005e50  20 56 49 45 57 50 4f 49  4e 54 20 54 48 45 4e 20  | VIEWPOINT THEN |
00005e60  50 52 45 53 53 20 54 48  45 20 4d 49 44 44 4c 45  |PRESS THE MIDDLE|
00005e70  20 42 55 54 54 4f 4e 22  29 0d 28 32 2e e7 49 6e  | BUTTON").(2..In|
00005e80  65 64 69 74 6f 72 20 41  24 3d 22 45 44 49 54 4f  |editor A$="EDITO|
00005e90  52 22 3a 8b 3a 41 24 3d  22 48 4f 4c 45 20 53 45  |R":.:A$="HOLE SE|
00005ea0  4c 45 43 54 4f 52 22 0d  28 3c 2a 41 24 3d 22 52  |LECTOR".(<*A$="R|
00005eb0  49 47 48 54 20 42 55 54  54 4f 4e 20 54 4f 20 52  |IGHT BUTTON TO R|
00005ec0  45 54 55 52 4e 20 54 4f  20 54 48 45 20 22 2b 41  |ETURN TO THE "+A|
00005ed0  24 0d 28 46 21 f2 73 6d  61 6c 6c 6d 65 73 28 36  |$.(F!.smallmes(6|
00005ee0  30 38 2d a9 41 24 2a 38  2c 36 36 2c 31 32 2c 41  |08-.A$*8,66,12,A|
00005ef0  24 29 0d 28 50 10 c8 97  ee 3a c8 97 b8 58 25 2c  |$).(P....:...X%,|
00005f00  59 25 0d 28 5a 05 f5 0d  28 64 21 c8 97 c8 93 35  |Y%.(Z...(d!....5|
00005f10  34 38 2d 4f 4c 25 2c 33  31 30 2c 4f 4c 25 2a 32  |48-OL%,310,OL%*2|
00005f20  2b 31 38 30 2c 36 36 30  0d 28 6e 0e c8 97 58 25  |+180,660.(n...X%|
00005f30  2c 59 25 2c 54 25 0d 28  78 27 e7 58 25 3c 36 38  |,Y%,T%.(x'.X%<68|
00005f40  38 8c 72 25 3d 28 36 38  38 2d 58 25 29 81 38 8b  |8.r%=(688-X%).8.|
00005f50  72 25 3d 28 58 25 2d 36  38 38 29 81 38 0d 28 82  |r%=(X%-688).8.(.|
00005f60  29 c8 97 c8 93 35 34 38  2d 4f 4c 25 2c 33 31 30  |)....548-OL%,310|
00005f70  2b 72 25 2c 4f 4c 25 2a  32 2b 31 38 30 2c 36 36  |+r%,OL%*2+180,66|
00005f80  30 2d 72 25 2a 32 0d 28  8c 17 79 25 3d 28 28 35  |0-r%*2.(..y%=((5|
00005f90  39 32 2b 4f 4c 25 29 2d  58 25 29 81 32 0d 28 96  |92+OL%)-X%).2.(.|
00005fa0  11 78 25 3d 28 36 34 30  2d 59 25 29 81 32 0d 28  |.x%=(640-Y%).2.(|
00005fb0  a0 04 0d 28 aa 45 e7 54  25 3d 34 50 25 3d 53 50  |...(.E.T%=4P%=SP|
00005fc0  25 2b 26 32 45 38 3a 58  25 3d a4 6d 61 70 32 3a  |%+&2E8:X%=.map2:|
00005fd0  59 25 3d a4 6d 61 70 32  3a f2 64 69 73 70 6c 61  |Y%=.map2:.displa|
00005fe0  79 76 69 65 77 32 28 58  25 2c 59 25 2c 53 50 25  |yview2(X%,Y%,SP%|
00005ff0  29 3a fd b9 3a fd a3 0d  28 b4 26 e7 54 25 3d 32  |):..:...(.&.T%=2|
00006000  f2 64 69 73 70 6c 61 79  76 69 65 77 28 58 25 2c  |.displayview(X%,|
00006010  59 25 2c 53 50 25 29 3a  fd b9 3a fd a3 0d 28 be  |Y%,SP%):..:...(.|
00006020  0a fd 54 25 3a fd b9 0d  28 c8 05 e1 0d 28 d2 07  |..T%:...(....(..|
00006030  f4 20 15 0d 28 dc 1c dd  f2 64 69 73 70 6c 61 79  |. ..(....display|
00006040  76 69 65 77 28 58 25 2c  59 25 2c 53 50 25 29 0d  |view(X%,Y%,SP%).|
00006050  28 e6 1d 59 59 25 3d 28  28 28 35 39 32 2b 4f 4c  |(..YY%=(((592+OL|
00006060  25 29 2d 58 25 29 81 32  29 2a 32 31 0d 28 f0 16  |%)-X%).2)*21.(..|
00006070  58 25 3d 28 28 36 34 30  2d 59 25 29 81 32 29 2a  |X%=((640-Y%).2)*|
00006080  32 31 0d 28 fa 07 c8 97  87 0d 29 04 1f ea 41 24  |21.(......)...A$|
00006090  2c 6d 61 70 70 6f 69 6e  74 25 3a 6d 61 70 70 6f  |,mappoint%:mappo|
000060a0  69 6e 74 25 3d 53 50 25  0d 29 0e 1e dd f2 64 69  |int%=SP%.)....di|
000060b0  73 70 6c 61 79 76 69 65  77 32 28 58 25 2c 59 59  |splayview2(X%,YY|
000060c0  25 2c 53 50 25 29 0d 29  18 1f e7 94 58 25 3c 34  |%,SP%).)....X%<4|
000060d0  32 80 94 59 59 25 3c 34  32 58 25 3d 34 32 3a 59  |2..YY%<42X%=42:Y|
000060e0  59 25 3d 34 32 0d 29 22  37 4f 4c 25 3d 28 a4 64  |Y%=42.)"7OL%=(.d|
000060f0  69 73 74 61 6e 63 65 28  58 25 2c 59 59 25 29 29  |istance(X%,YY%))|
00006100  3a 67 72 65 65 6e 25 3d  28 4f 4c 25 3c 35 32 35  |:green%=(OL%<525|
00006110  29 3a 4f 4c 25 3d 4f 4c  25 2f 32 31 0d 29 2c 2e  |):OL%=OL%/21.),.|
00006120  41 24 3d 43 6f 75 72 73  65 24 2b 22 20 48 4f 4c  |A$=Course$+" HOL|
00006130  45 20 22 2b c3 28 68 6f  6c 65 6e 6f 25 81 26 33  |E "+.(holeno%.&3|
00006140  30 30 2b 31 29 2b 22 2c  20 22 0d 29 36 37 e7 67  |00+1)+", ".)67.g|
00006150  72 65 65 6e 25 20 41 24  3d 41 24 2b c3 28 4f 4c  |reen% A$=A$+.(OL|
00006160  25 2a 33 29 2b 22 20 46  45 45 54 22 3a 8b 41 24  |%*3)+" FEET":.A$|
00006170  3d 41 24 2b c3 4f 4c 25  2b 22 20 59 41 52 44 53  |=A$+.OL%+" YARDS|
00006180  22 0d 29 40 16 41 24 3d  41 24 2b 22 20 46 52 4f  |".)@.A$=A$+" FRO|
00006190  4d 20 48 4f 4c 45 22 0d  29 4a 0a f2 6c 69 67 68  |M HOLE".)J..ligh|
000061a0  74 0d 29 54 10 f2 73 69  6e 65 28 58 25 2c 59 25  |t.)T..sine(X%,Y%|
000061b0  29 0d 29 5e 0f f2 64 72  61 77 73 63 72 65 65 6e  |).)^..drawscreen|
000061c0  0d 29 68 2f ef 32 36 3a  58 25 3d 36 34 30 2d a9  |.)h/.26:X%=640-.|
000061d0  41 24 2a 38 2d 32 34 3a  f2 73 6d 61 6c 6c 6d 65  |A$*8-24:.smallme|
000061e0  73 28 58 25 2c 38 36 30  2c 31 33 2c 41 24 29 0d  |s(X%,860,13,A$).|
000061f0  29 72 0c f2 62 75 74 74  28 30 29 0d 29 7c 15 f5  |)r..butt(0).)|..|
00006200  c8 97 58 25 2c 59 25 2c  53 50 25 3a fd 53 50 25  |..X%,Y%,SP%:.SP%|
00006210  0d 29 86 0c f2 62 75 74  74 28 30 29 0d 29 90 05  |.)...butt(0).)..|
00006220  e1 0d 29 9a 07 f4 20 15  0d 29 a4 18 dd f2 6d 61  |..)... ..)....ma|
00006230  70 32 28 f8 20 78 25 2c  f8 20 79 25 2c 70 25 29  |p2(. x%,. y%,p%)|
00006240  0d 29 ae 21 79 25 3d 2d  a4 6d 61 70 32 2f 31 30  |.).!y%=-.map2/10|
00006250  2e 35 3a 78 25 3d 2d a4  6d 61 70 32 2f 31 30 2e  |.5:x%=-.map2/10.|
00006260  35 0d 29 b8 0d f0 70 25  2c 78 25 2c 79 25 0d 29  |5.)...p%,x%,y%.)|
00006270  c2 05 e1 0d 29 cc 07 f4  20 15 0d 29 d6 10 dd a4  |....)... ..)....|
00006280  63 68 6f 73 65 61 68 6f  6c 65 0d 29 e0 0c f2 62  |choseahole.)...b|
00006290  75 74 74 28 30 29 0d 29  ea 18 ea 58 25 2c 59 25  |utt(0).)...X%,Y%|
000062a0  2c 4b 25 2c 46 25 2c 4e  25 2c 6f 75 74 25 0d 29  |,K%,F%,N%,out%.)|
000062b0  f4 2c f2 63 65 6e 74 62  6f 78 28 b9 2c 22 50 4c  |.,.centbox(.,"PL|
000062c0  45 41 53 45 20 53 45 4c  45 43 54 20 41 20 48 4f  |EASE SELECT A HO|
000062d0  4c 45 22 2c 31 32 2c 31  30 29 0d 29 fe 26 f2 6d  |LE",12,10).).&.m|
000062e0  65 73 62 6f 78 28 34 36  34 2c 34 34 34 2c 31 34  |esbox(464,444,14|
000062f0  38 2c 31 30 30 29 3a f2  64 6f 6e 6f 32 28 31 29  |8,100):.dono2(1)|
00006300  0d 2a 08 1a f2 6d 65 73  62 6f 78 28 37 30 34 2c  |.*...mesbox(704,|
00006310  35 33 36 2c 38 30 2c 38  30 29 0d 2a 12 20 f2 73  |536,80,80).*. .s|
00006320  6d 61 6c 6c 6d 65 73 28  37 30 34 2c 34 36 32 2c  |mallmes(704,462,|
00006330  31 32 2c 22 45 58 49 54  22 29 0d 2a 1c 1a f2 6d  |12,"EXIT").*...m|
00006340  65 73 62 6f 78 28 37 30  34 2c 33 36 38 2c 38 30  |esbox(704,368,80|
00006350  2c 38 30 29 0d 2a 26 25  e6 31 35 3a ec 37 34 34  |,80).*&%.15:.744|
00006360  2c 36 30 30 3a ec 37 32  30 2c 35 35 34 3a f0 38  |,600:.720,554:.8|
00006370  35 2c 37 36 38 2c 35 35  34 0d 2a 30 32 ec 37 34  |5,768,554.*02.74|
00006380  34 2c 33 38 38 3a ec 37  32 30 2c 34 33 32 3a f0  |4,388:.720,432:.|
00006390  38 35 2c 37 36 38 2c 34  33 32 3a 86 37 32 30 2c  |85,768,432:.720,|
000063a0  34 33 36 2c 37 36 38 2c  34 33 36 0d 2a 3a 20 e6  |436,768,436.*: .|
000063b0  38 3a 86 37 32 30 2c 34  33 32 2c 37 34 34 2c 33  |8:.720,432,744,3|
000063c0  38 38 3a df 37 36 38 2c  34 33 32 0d 2a 44 1d 86  |88:.768,432.*D..|
000063d0  37 32 30 2c 35 35 38 2c  37 34 34 2c 36 30 30 3a  |720,558,744,600:|
000063e0  df 37 36 38 2c 35 35 38  0d 2a 4e 17 c8 97 c8 93  |.768,558.*N.....|
000063f0  34 38 30 2c 33 38 38 2c  34 33 32 2c 32 32 30 0d  |480,388,432,220.|
00006400  2a 58 15 4e 25 3d 31 3a  f5 3a c8 97 58 25 2c 59  |*X.N%=1:.:..X%,Y|
00006410  25 2c 4b 25 0d 2a 62 08  e7 4b 25 8c 0d 2a 6c 0c  |%,K%.*b..K%..*l.|
00006420  e7 58 25 3e 37 31 36 8c  0d 2a 76 0c e7 58 25 3c  |.X%>716..*v..X%<|
00006430  37 37 32 8c 0d 2a 80 36  e7 59 25 3e 35 34 34 4e  |772..*.6.Y%>544N|
00006440  25 3d 4e 25 83 31 38 2b  31 3a f2 64 6f 6e 6f 32  |%=N%.18+1:.dono2|
00006450  28 4e 25 29 3a d4 31 2c  2d 31 30 2c 32 30 30 2c  |(N%):.1,-10,200,|
00006460  31 3a f2 62 75 74 74 28  30 29 0d 2a 8a 41 e7 59  |1:.butt(0).*.A.Y|
00006470  25 3c 34 34 32 4e 25 2d  3d 31 3a 4e 25 3d 4e 25  |%<442N%-=1:N%=N%|
00006480  2d 28 4e 25 3d 30 29 2a  31 38 3a f2 64 6f 6e 6f  |-(N%=0)*18:.dono|
00006490  32 28 4e 25 29 3a d4 31  2c 2d 31 30 2c 32 30 30  |2(N%):.1,-10,200|
000064a0  2c 31 3a f2 62 75 74 74  28 30 29 0d 2a 94 05 cd  |,1:.butt(0).*...|
000064b0  0d 2a 9e 2a e7 59 25 3e  34 37 32 80 59 25 3c 35  |.*.*.Y%>472.Y%<5|
000064c0  31 36 6f 75 74 25 3d b9  3a 46 25 3d b9 3a d4 31  |16out%=.:F%=.:.1|
000064d0  2c 2d 31 30 2c 32 30 30  2c 31 0d 2a a8 05 cd 0d  |,-10,200,1.*....|
000064e0  2a b2 0c e7 58 25 3c 36  30 34 8c 0d 2a bc 16 e7  |*...X%<604..*...|
000064f0  59 25 3e 34 35 36 80 59  25 3c 35 34 30 46 25 3d  |Y%>456.Y%<540F%=|
00006500  b9 0d 2a c6 05 cd 0d 2a  d0 05 cd 0d 2a da 09 fd  |..*....*....*...|
00006510  46 25 3d b9 0d 2a e4 17  3d 28 28 4e 25 2d 31 29  |F%=..*..=((N%-1)|
00006520  2a 26 33 30 30 29 84 6f  75 74 25 0d 2a ee 07 f4  |*&300).out%.*...|
00006530  20 15 0d 2a f8 0f dd f2  64 6f 6e 6f 32 28 41 25  | ..*....dono2(A%|
00006540  29 0d 2b 02 13 ea 41 24  2c 54 25 3a 41 24 3d c3  |).+...A$,T%:A$=.|
00006550  28 41 25 29 0d 2b 0c 1a  e6 31 31 3a c8 93 c8 90  |(A%).+...11:....|
00006560  34 37 36 2c 34 36 34 2c  31 32 34 2c 36 34 0d 2b  |476,464,124,64.+|
00006570  16 17 ec 34 37 36 2d 33  32 2a 28 41 25 3c 31 30  |...476-32*(A%<10|
00006580  29 2c 35 32 30 0d 2b 20  29 e6 31 32 3a e3 54 25  |),520.+ ).12:.T%|
00006590  3d 31 b8 a9 41 24 3a f2  64 6f 75 62 6c 65 28 bb  |=1..A$:.double(.|
000065a0  28 c1 41 24 2c 54 25 2c  31 29 29 29 3a ed 0d 2b  |(.A$,T%,1))):..+|
000065b0  2a 05 e1 0d 2b 34 07 f4  20 15 0d 2b 3e 10 dd f2  |*...+4.. ..+>...|
000065c0  67 65 74 6f 70 74 69 6f  6e 73 0d 2b 48 1a e3 54  |getoptions.+H..T|
000065d0  25 3d 31 b8 36 3a 6a 75  6d 70 25 28 54 25 29 3d  |%=1.6:jump%(T%)=|
000065e0  54 25 3a ed 0d 2b 52 15  2a 43 48 41 4e 4e 45 4c  |T%:..+R.*CHANNEL|
000065f0  56 4f 49 43 45 20 31 20  31 0d 2b 5c 07 f5 3a f5  |VOICE 1 1.+\..:.|
00006600  0d 2b 66 1a f2 63 6f 6c  6f 75 72 73 28 39 29 3a  |.+f..colours(9):|
00006610  f2 73 63 72 65 65 6e 62  6f 78 0d 2b 70 0e c8 97  |.screenbox.+p...|
00006620  b8 36 34 30 2c 34 39 36  0d 2b 7a 5c e7 a4 71 75  |.640,496.+z\..qu|
00006630  65 73 74 28 22 45 44 49  54 20 48 4f 4c 45 53 20  |est("EDIT HOLES |
00006640  4f 52 20 50 4c 41 59 20  52 4f 55 4e 44 3f 22 2c  |OR PLAY ROUND?",|
00006650  22 50 4c 41 59 22 2c 22  45 44 49 54 22 2c 30 29  |"PLAY","EDIT",0)|
00006660  f2 67 65 74 63 6f 75 72  73 65 28 22 45 44 49 54  |.getcourse("EDIT|
00006670  22 29 3a f2 65 64 69 74  3a ff 22 46 58 32 32 39  |"):.edit:."FX229|
00006680  22 3a fd a3 0d 2b 84 13  f2 62 75 74 74 28 30 29  |":...+...butt(0)|
00006690  3a 2a 46 58 32 32 39 0d  2b 8e 3a 6d 61 70 70 6f  |:*FX229.+.:mappo|
000066a0  69 6e 74 25 3d 30 3a f2  67 65 74 63 6f 75 72 73  |int%=0:.getcours|
000066b0  65 28 22 50 4c 41 59 22  29 3a 6d 61 70 73 74 61  |e("PLAY"):mapsta|
000066c0  72 74 25 3d 6d 61 70 2b  6d 61 70 70 6f 69 6e 74  |rt%=map+mappoint|
000066d0  25 0d 2b 98 4d e7 a4 71  75 65 73 74 28 22 50 52  |%.+.M..quest("PR|
000066e0  45 56 49 45 57 20 48 4f  4c 45 53 20 4f 52 20 50  |EVIEW HOLES OR P|
000066f0  4c 41 59 20 52 4f 55 4e  44 3f 22 2c 22 50 4c 41  |LAY ROUND?","PLA|
00006700  59 22 2c 22 50 52 45 56  49 45 57 22 2c 30 29 f2  |Y","PREVIEW",0).|
00006710  70 72 65 76 69 65 77 3a  fd a3 3a 8b fd b9 0d 2b  |preview:..:....+|
00006720  a2 68 70 6c 61 79 25 3d  a4 71 75 65 73 74 28 22  |.hplay%=.quest("|
00006730  55 4e 44 45 52 20 57 48  49 43 48 20 52 55 4c 45  |UNDER WHICH RULE|
00006740  53 20 41 52 45 20 59 4f  55 20 54 4f 20 50 4c 41  |S ARE YOU TO PLA|
00006750  59 3f 22 2c 22 4d 41 54  43 48 20 50 4c 41 59 22  |Y?","MATCH PLAY"|
00006760  2c 22 53 54 52 4f 4b 45  20 50 4c 41 59 22 2c 30  |,"STROKE PLAY",0|
00006770  29 2b 31 3a f4 20 31 3d  4d 41 54 43 48 20 32 3d  |)+1:. 1=MATCH 2=|
00006780  53 54 52 4f 4b 45 0d 2b  ac 1a 6e 6f 6f 66 70 6c  |STROKE.+..noofpl|
00006790  61 79 65 72 73 3d a4 6e  6f 70 6c 61 79 69 6e 67  |ayers=.noplaying|
000067a0  0d 2b b6 15 e3 54 25 3d  31 b8 6e 6f 6f 66 70 6c  |.+...T%=1.noofpl|
000067b0  61 79 65 72 73 0d 2b c0  10 f2 67 65 74 6e 61 6d  |ayers.+...getnam|
000067c0  65 28 54 25 29 0d 2b ca  51 68 61 6e 64 25 28 54  |e(T%).+.Qhand%(T|
000067d0  25 29 3d 31 2d a4 71 75  65 73 74 28 22 49 53 20  |%)=1-.quest("IS |
000067e0  22 2b 6e 61 6d 65 24 28  54 25 29 2b 22 20 4c 45  |"+name$(T%)+" LE|
000067f0  46 54 20 4f 52 20 52 49  47 48 54 20 48 41 4e 44  |FT OR RIGHT HAND|
00006800  45 44 3f 22 2c 22 4c 45  46 54 22 2c 22 52 49 47  |ED?","LEFT","RIG|
00006810  48 54 22 2c 30 29 0d 2b  d4 11 f2 67 65 74 73 6b  |HT",0).+...getsk|
00006820  69 6c 6c 28 54 25 29 0d  2b de 05 ed 0d 2b e8 1c  |ill(T%).+....+..|
00006830  e7 a4 63 6f 6e 66 69 72  6d 28 6e 6f 6f 66 70 6c  |..confirm(noofpl|
00006840  61 79 65 72 73 29 fd 30  0d 2b f2 06 fd b9 0d 2b  |ayers).0.+.....+|
00006850  fc 37 f4 20 43 48 41 4e  47 45 20 54 48 45 20 46  |.7. CHANGE THE F|
00006860  4f 4c 4c 4f 57 49 4e 47  20 4e 55 4d 42 45 52 20  |OLLOWING NUMBER |
00006870  54 4f 20 28 48 4f 4c 45  20 4e 4f 2e 20 2d 31 29  |TO (HOLE NO. -1)|
00006880  2a 26 33 30 30 0d 2c 06  14 f4 6d 61 70 70 6f 69  |*&300.,...mappoi|
00006890  6e 74 25 3d 26 32 34 30  30 0d 2c 10 05 e1 0d 2c  |nt%=&2400.,....,|
000068a0  1a 04 0d 2c 24 13 dd f2  67 65 74 63 6f 75 72 73  |...,$...getcours|
000068b0  65 28 45 24 29 0d 2c 2e  1c ea 4e 25 2c 49 25 2c  |e(E$).,...N%,I%,|
000068c0  54 25 2c 43 25 2c 43 24  2c 45 25 2c 58 2c 59 2c  |T%,C%,C$,E%,X,Y,|
000068d0  5a 0d 2c 38 0b 2a 46 58  32 31 2c 39 0d 2c 42 13  |Z.,8.*FX21,9.,B.|
000068e0  f2 62 75 74 74 28 30 29  3a 2a 46 58 32 32 39 0d  |.butt(0):*FX229.|
000068f0  2c 4c 7e ea 85 3a ee 85  ea 3a e7 9f 3c 3e 31 37  |,L~..:...:..<>17|
00006900  f2 63 65 6e 74 62 6f 78  28 b9 2c 22 20 22 2b f6  |.centbox(.," "+.|
00006910  24 2b 22 20 22 2c 38 2c  31 29 3a c8 91 30 2c 2d  |$+" ",8,1):..0,-|
00006920  32 35 36 3a f2 63 65 6e  74 62 6f 78 28 a3 2c 22  |256:.centbox(.,"|
00006930  50 4c 45 41 53 45 20 50  52 45 53 53 20 53 50 41  |PLEASE PRESS SPA|
00006940  43 45 22 2c 38 2c 31 29  3a c8 91 30 2c 30 3a f5  |CE",8,1):..0,0:.|
00006950  fd a6 2d 39 39 3a 8b e7  49 6e 65 64 69 74 6f 72  |..-99:..Ineditor|
00006960  3a ff 22 46 58 32 32 39  2c 31 22 3a e1 0d 2c 56  |:."FX229,1":..,V|
00006970  09 2a 46 58 31 35 0d 2c  60 15 43 25 3d 31 3a 45  |.*FX15.,`.C%=1:E|
00006980  25 3d 2d 33 36 38 3a 49  25 3d 30 0d 2c 6a 05 f5  |%=-368:I%=0.,j..|
00006990  0d 2c 74 0c f2 72 65 61  64 64 69 72 0d 2c 7e 0a  |.,t..readdir.,~.|
000069a0  e7 49 25 3d 30 8c 0d 2c  88 09 2a 46 58 31 35 0d  |.I%=0..,..*FX15.|
000069b0  2c 92 3b f2 63 65 6e 74  62 6f 78 28 b9 2c 22 4e  |,.;.centbox(.,"N|
000069c0  4f 20 43 4f 55 52 53 45  53 20 4f 4e 20 54 48 49  |O COURSES ON THI|
000069d0  53 20 44 49 53 43 21 22  2c 35 2c 31 29 3a ef 37  |S DISC!",5,1):.7|
000069e0  3a 4e 25 3d a6 28 33 30  30 29 0d 2c 9c 3e c8 91  |:N%=.(300).,.>..|
000069f0  30 2c 2d 32 35 36 3a f2  63 65 6e 74 62 6f 78 28  |0,-256:.centbox(|
00006a00  a3 2c 22 50 4c 45 41 53  45 20 50 52 45 53 53 20  |.,"PLEASE PRESS |
00006a10  53 50 41 43 45 22 2c 38  2c 31 29 3a c8 91 30 2c  |SPACE",8,1):..0,|
00006a20  30 3a f5 fd a6 2d 39 39  0d 2c a6 05 cd 0d 2c b0  |0:...-99.,....,.|
00006a30  0a fd 49 25 3c 3e 30 0d  2c ba 17 4e 25 3d 28 28  |..I%<>0.,..N%=((|
00006a40  49 25 2b 31 29 81 32 2a  33 36 29 81 33 32 0d 2c  |I%+1).2*36).32.,|
00006a50  c4 31 f2 63 65 6e 74 62  6f 78 28 b9 2c 22 43 4f  |.1.centbox(.,"CO|
00006a60  55 52 53 45 53 20 41 56  41 49 4c 41 42 4c 45 20  |URSES AVAILABLE |
00006a70  54 4f 20 22 2b 45 24 2c  35 2c 4e 25 2b 32 29 0d  |TO "+E$,5,N%+2).|
00006a80  2c ce 12 54 25 3d 35 31  32 2d 49 25 81 32 2a 31  |,..T%=512-I%.2*1|
00006a90  38 0d 2c d8 1b c8 97 c8  93 32 37 32 2c 54 25 2d  |8.,......272,T%-|
00006aa0  32 34 2c 37 33 36 2c 49  25 2a 31 38 0d 2c e2 0c  |24,736,I%*18.,..|
00006ab0  e3 4e 25 3d 31 b8 49 25  0d 2c ec 1b f2 73 68 6f  |.N%=1.I%.,...sho|
00006ac0  77 63 61 74 28 4e 25 2c  38 2b 28 4e 25 3d 31 29  |wcat(N%,8+(N%=1)|
00006ad0  2a 32 29 0d 2c f6 05 ed  0d 2d 00 08 4f 58 3d 31  |*2).,....-..OX=1|
00006ae0  0d 2d 0a 05 f5 0d 2d 14  0b c8 97 58 2c 59 2c 5a  |.-....-....X,Y,Z|
00006af0  0d 2d 1e 27 58 3d 2d 28  58 3e 36 34 30 29 2b 28  |.-.'X=-(X>640)+(|
00006b00  28 54 25 2d 32 30 2b 49  25 2a 31 38 29 2d 59 29  |(T%-20+I%*18)-Y)|
00006b10  81 33 36 2a 32 2b 31 0d  2d 28 0d e7 58 3e 49 25  |.36*2+1.-(..X>I%|
00006b20  58 3d 49 25 0d 2d 32 2c  e7 58 3c 3e 4f 58 20 f2  |X=I%.-2,.X<>OX .|
00006b30  73 68 6f 77 63 61 74 28  4f 58 2c 38 29 3a f2 73  |showcat(OX,8):.s|
00006b40  68 6f 77 63 61 74 28 58  2c 36 29 3a 4f 58 3d 58  |howcat(X,6):OX=X|
00006b50  0d 2d 3c 06 fd 5a 0d 2d  46 18 43 6f 75 72 73 65  |.-<..Z.-F.Course|
00006b60  24 3d a4 6e 6f 5f 73 28  46 24 28 58 29 29 0d 2d  |$=.no_s(F$(X)).-|
00006b70  50 1c ff 22 4c 2e 20 24  2e 22 2b 46 24 28 58 29  |P.."L. $."+F$(X)|
00006b80  2b 22 20 22 2b c3 7e 6d  61 70 0d 2d 5a 0c 2a 46  |+" "+.~map.-Z.*F|
00006b90  58 32 32 39 2c 31 0d 2d  64 05 e1 0d 2d 6e 04 0d  |X229,1.-d...-n..|
00006ba0  2d 78 14 dd f2 73 68 6f  77 63 61 74 28 4e 25 2c  |-x...showcat(N%,|
00006bb0  43 25 29 0d 2d 82 06 ef  35 0d 2d 8c 07 ea 45 25  |C%).-...5.-...E%|
00006bc0  0d 2d 96 19 e7 4e 25 80  31 20 45 25 3d 2d 33 36  |.-...N%.1 E%=-36|
00006bd0  38 3a 8b 20 45 25 3d 34  38 0d 2d a0 09 e6 33 2b  |8:. E%=48.-...3+|
00006be0  43 25 0d 2d aa 2f c8 93  c8 90 36 34 30 2b 45 25  |C%.-./....640+E%|
00006bf0  2c 54 25 2b 49 25 2a 31  38 2d 31 36 2d 28 28 4e  |,T%+I%*18-16-((N|
00006c00  25 2b 31 29 81 32 29 2a  33 36 2c 33 32 30 2c 33  |%+1).2)*36,320,3|
00006c10  32 0d 2d b4 07 e6 43 25  0d 2d be 25 ec 36 34 30  |2.-...C%.-.%.640|
00006c20  2b 45 25 2c 54 25 2b 49  25 2a 31 38 2b 31 32 2d  |+E%,T%+I%*18+12-|
00006c30  28 28 4e 25 2b 31 29 81  32 29 2a 33 36 0d 2d c8  |((N%+1).2)*36.-.|
00006c40  12 f1 a4 6e 6f 5f 73 28  46 24 28 4e 25 29 29 0d  |...no_s(F$(N%)).|
00006c50  2d d2 05 e1 0d 2d dc 04  0d 2d e6 0e dd a4 6e 6f  |-....-...-....no|
00006c60  5f 73 28 43 24 29 0d 2d  f0 07 ea 54 25 0d 2d fa  |_s(C$).-...T%.-.|
00006c70  0d e3 54 25 3d 31 b8 a9  43 24 0d 2e 04 1f e7 c1  |..T%=1..C$......|
00006c80  43 24 2c 54 25 2c 31 29  3d 22 5f 22 c1 43 24 2c  |C$,T%,1)="_".C$,|
00006c90  54 25 2c 31 29 3d 22 20  22 0d 2e 0e 05 ed 0d 2e  |T%,1)=" ".......|
00006ca0  18 07 3d 43 24 0d 2e 22  04 0d 2e 2c 0d dd f2 72  |..=C$.."...,...r|
00006cb0  65 61 64 64 69 72 0d 2e  36 28 ea 52 34 2c 54 25  |eaddir..6(.R4,T%|
00006cc0  2c 43 25 2c 6e 61 6d 65  2c 50 6f 69 6e 74 2c 62  |,C%,name,Point,b|
00006cd0  75 66 66 65 72 2c 66 69  6c 65 74 79 70 65 0d 2e  |uffer,filetype..|
00006ce0  40 0a 2a 4d 4f 55 4e 54  0d 2e 4a 1f de 20 50 6f  |@.*MOUNT..J.. Po|
00006cf0  69 6e 74 20 31 31 2c 62  75 66 66 65 72 20 33 34  |int 11,buffer 34|
00006d00  2c 6e 61 6d 65 20 32 0d  2e 54 1b 24 6e 61 6d 65  |,name 2..T.$name|
00006d10  3d 22 2a 22 3a 66 69 6c  65 74 79 70 65 3d 26 43  |="*":filetype=&C|
00006d20  31 46 0d 2e 5e 16 24 50  6f 69 6e 74 3d 22 24 22  |1F..^.$Point="$"|
00006d30  2b bd 30 3a 52 34 3d 30  0d 2e 68 05 f5 0d 2e 72  |+.0:R4=0..h....r|
00006d40  36 c8 99 22 4f 53 5f 47  42 50 42 22 2c 31 30 2c  |6.."OS_GBPB",10,|
00006d50  50 6f 69 6e 74 2c 62 75  66 66 65 72 2c 37 37 2c  |Point,buffer,77,|
00006d60  52 34 2c 33 34 2c 6e 61  6d 65 20 b8 20 2c 2c 2c  |R4,34,name . ,,,|
00006d70  2c 52 34 0d 2e 7c 30 e7  62 75 66 66 65 72 21 26  |,R4..|0.buffer!&|
00006d80  31 30 3d 31 80 28 28 21  62 75 66 66 65 72 3e 3e  |10=1.((!buffer>>|
00006d90  38 29 80 26 46 46 46 29  3d 66 69 6c 65 74 79 70  |8).&FFF)=filetyp|
00006da0  65 20 8c 0d 2e 86 10 49  25 2b 3d 31 3a 54 25 3d  |e .....I%+=1:T%=|
00006db0  26 31 34 0d 2e 90 05 f5  0d 2e 9a 10 43 25 3d 62  |&14.........C%=b|
00006dc0  75 66 66 65 72 3f 54 25  0d 2e a4 0f 54 25 2d 3d  |uffer?T%....T%-=|
00006dd0  28 43 25 3c 3e 30 29 0d  2e ae 10 fd 54 25 3d 26  |(C%<>0).....T%=&|
00006de0  31 45 84 43 25 3d 30 0d  2e b8 10 62 75 66 66 65  |1E.C%=0....buffe|
00006df0  72 3f 54 25 3d 31 33 0d  2e c2 18 46 24 28 49 25  |r?T%=13....F$(I%|
00006e00  29 3d 24 28 62 75 66 66  65 72 2b 26 31 34 29 0d  |)=$(buffer+&14).|
00006e10  2e cc 05 cd 0d 2e d6 0a  fd 52 34 3d 2d 31 0d 2e  |.........R4=-1..|
00006e20  e0 05 e1 0d 2e ea 07 f4  20 15 0d 2e f4 11 dd a4  |........ .......|
00006e30  63 6f 6e 66 69 72 6d 28  54 25 29 0d 2e fe 1c ea  |confirm(T%).....|
00006e40  4e 25 2c 49 25 2c 41 24  3a 49 25 3d 28 54 25 2b  |N%,I%,A$:I%=(T%+|
00006e50  28 54 25 80 31 29 29 0d  2f 08 0c f2 62 75 74 74  |(T%.1))./...butt|
00006e60  28 30 29 0d 2f 12 1b f2  63 6f 6c 6f 75 72 73 28  |(0)./...colours(|
00006e70  31 32 29 3a f2 73 63 72  65 65 6e 62 6f 78 0d 2f  |12):.screenbox./|
00006e80  1c 5a f2 63 65 6e 74 62  6f 78 28 a3 2c 22 20 20  |.Z.centbox(.,"  |
00006e90  20 20 20 20 20 20 20 20  20 20 41 52 45 20 54 48  |          ARE TH|
00006ea0  45 20 46 4f 4c 4c 4f 57  49 4e 47 20 47 41 4d 45  |E FOLLOWING GAME|
00006eb0  20 4f 50 54 49 4f 4e 53  20 43 4f 52 52 45 43 54  | OPTIONS CORRECT|
00006ec0  3f 20 20 20 20 20 20 20  20 20 20 20 20 22 2c 31  |?            ",1|
00006ed0  35 2c 31 30 2b 49 25 29  0d 2f 26 21 ef 32 38 2c  |5,10+I%)./&!.28,|
00006ee0  31 30 2c 32 30 2b 49 25  81 32 2c 36 39 2c 31 33  |10,20+I%.2,69,13|
00006ef0  2d 49 25 81 32 2c 34 3a  87 0d 2f 30 1c fb 31 32  |-I%.2,4:../0..12|
00006f00  3a fb 31 33 39 3a f1 3b  54 25 3b 22 20 50 4c 41  |:.139:.;T%;" PLA|
00006f10  59 45 52 22 3b 0d 2f 3a  0f e7 54 25 3c 3e 31 f1  |YER";./:..T%<>1.|
00006f20  22 53 22 3b 0d 2f 44 2a  f1 22 2c 20 20 50 4c 41  |"S";./D*.",  PLA|
00006f30  59 49 4e 47 20 41 54 20  22 3b 43 6f 75 72 73 65  |YING AT ";Course|
00006f40  24 3b 22 2c 20 20 55 4e  44 45 52 20 22 3b 0d 2f  |$;",  UNDER ";./|
00006f50  4e 0c c8 8e 70 6c 61 79  25 ca 0d 2f 58 10 c9 31  |N...play%../X..1|
00006f60  3a f1 22 4d 41 54 43 48  22 3b 0d 2f 62 11 c9 32  |:."MATCH";./b..2|
00006f70  3a f1 22 53 54 52 4f 4b  45 22 3b 0d 2f 6c 05 cb  |:."STROKE";./l..|
00006f80  0d 2f 76 12 f1 22 20 50  4c 41 59 20 52 55 4c 45  |./v.." PLAY RULE|
00006f90  53 22 0d 2f 80 12 f1 8a  30 2c 31 29 c4 36 30 2c  |S"./....0,1).60,|
00006fa0  22 2d 22 29 0d 2f 8a 31  fb 36 3a f1 8a 30 2c 32  |"-")./.1.6:..0,2|
00006fb0  29 22 4e 41 4d 45 22 8a  32 32 29 22 44 45 58 54  |)"NAME".22)"DEXT|
00006fc0  45 52 49 54 59 22 8a 34  36 29 22 53 4b 49 4c 4c  |ERITY".46)"SKILL|
00006fd0  22 3a fb 31 32 0d 2f 94  12 f1 8a 30 2c 33 29 c4  |":.12./....0,3).|
00006fe0  36 30 2c 22 2d 22 29 0d  2f 9e 0b f1 8a 30 2c 34  |60,"-")./....0,4|
00006ff0  29 3b 0d 2f a8 0d f2 62  6f 61 72 64 63 6f 6c 0d  |);./...boardcol.|
00007000  2f b2 0c e3 4e 25 3d 31  b8 54 25 0d 2f bc 09 fb  |/...N%=1.T%./...|
00007010  4e 25 2b 34 0d 2f c6 13  f1 6e 61 6d 65 24 28 4e  |N%+4./...name$(N|
00007020  25 29 8a 32 32 29 3b 0d  2f d0 10 c8 8e 68 61 6e  |%).22);./....han|
00007030  64 25 28 4e 25 29 ca 0d  2f da 10 c9 30 3a f1 22  |d%(N%)../...0:."|
00007040  52 49 47 48 54 22 3b 0d  2f e4 0f c9 31 3a f1 22  |RIGHT";./...1:."|
00007050  4c 45 46 54 22 3b 0d 2f  ee 05 cb 0d 2f f8 13 f1  |LEFT";./..../...|
00007060  22 20 48 41 4e 44 45 44  22 8a 34 36 29 3b 0d 30  |" HANDED".46);.0|
00007070  02 20 41 24 3d a4 73 6b  69 6c 6c 6e 61 6d 65 28  |. A$=.skillname(|
00007080  63 75 72 72 65 6e 74 73  25 28 4e 25 29 29 0d 30  |currents%(N%)).0|
00007090  0c 07 f1 41 24 0d 30 16  05 ed 0d 30 20 11 fb 31  |...A$.0....0 ..1|
000070a0  32 3a f1 c4 36 30 2c 22  2d 22 29 0d 30 2a 24 f2  |2:..60,"-").0*$.|
000070b0  73 6d 61 6c 6c 6d 65 73  28 35 32 30 2c 33 36 38  |smallmes(520,368|
000070c0  2d 49 25 2a 31 36 2c 38  2c 22 59 45 53 22 29 0d  |-I%*16,8,"YES").|
000070d0  30 34 23 f2 73 6d 61 6c  6c 6d 65 73 28 36 38 30  |04#.smallmes(680|
000070e0  2c 33 36 38 2d 49 25 2a  31 36 2c 38 2c 22 4e 4f  |,368-I%*16,8,"NO|
000070f0  22 29 0d 30 3e 21 c8 97  c8 93 35 33 36 2c 33 37  |").0>!....536,37|
00007100  36 2d 49 25 2a 31 36 2c  32 30 38 2c 34 34 3a c8  |6-I%*16,208,44:.|
00007110  97 20 ee 0d 30 48 05 f5  0d 30 52 0e c8 97 58 25  |. ..0H...0R...X%|
00007120  2c 59 25 2c 4b 25 0d 30  5c 17 fd 28 58 25 3c 35  |,Y%,K%.0\..(X%<5|
00007130  39 30 84 58 25 3e 36 39  32 29 80 4b 25 0d 30 66  |90.X%>692).K%.0f|
00007140  10 d4 31 2c 2d 31 30 2c  32 30 30 2c 31 0d 30 70  |..1,-10,200,1.0p|
00007150  0b 3d 58 25 3e 36 39 32  0d 30 7a 05 e1 0d 30 84  |.=X%>692.0z...0.|
00007160  07 f4 20 15 0d 30 8e 0e  dd f2 62 6f 61 72 64 63  |.. ..0....boardc|
00007170  6f 6c 0d 30 98 0e fb 35  2c 32 30 38 2c 30 2c 30  |ol.0...5,208,0,0|
00007180  0d 30 a2 11 fb 36 2c 31  34 34 2c 31 32 38 2c 38  |.0...6,144,128,8|
00007190  30 0d 30 ac 12 fb 37 2c  31 31 32 2c 31 31 32 2c  |0.0...7,112,112,|
000071a0  31 31 32 0d 30 b6 10 fb  38 2c 32 34 30 2c 31 31  |112.0...8,240,11|
000071b0  32 2c 30 0d 30 c0 0f fb  39 2c 39 36 2c 39 36 2c  |2,0.0...9,96,96,|
000071c0  34 38 0d 30 ca 12 fb 31  30 2c 32 30 38 2c 38 30  |48.0...10,208,80|
000071d0  2c 31 34 34 0d 30 d4 05  e1 0d 30 de 07 f4 20 15  |,144.0....0... .|
000071e0  0d 30 e8 12 dd f2 67 65  74 73 6b 69 6c 6c 28 54  |.0....getskill(T|
000071f0  25 29 0d 30 f2 0c f2 62  75 74 74 28 30 29 0d 30  |%).0...butt(0).0|
00007200  fc 13 ea 58 25 2c 59 25  2c 4b 25 2c 46 25 2c 4e  |...X%,Y%,K%,F%,N|
00007210  25 0d 31 06 3b f2 63 65  6e 74 62 6f 78 28 b9 2c  |%.1.;.centbox(.,|
00007220  22 57 48 41 54 20 49 53  20 22 2b 6e 61 6d 65 24  |"WHAT IS "+name$|
00007230  28 54 25 29 2b 22 53 20  53 4b 49 4c 4c 20 4c 45  |(T%)+"S SKILL LE|
00007240  56 45 4c 3f 22 2c 31 35  2c 31 32 29 0d 31 10 33  |VEL?",15,12).1.3|
00007250  f2 6d 65 73 62 6f 78 28  33 35 36 2c 34 36 34 2c  |.mesbox(356,464,|
00007260  34 31 36 2c 36 34 29 3a  f2 64 6f 73 6b 69 6c 6c  |416,64):.doskill|
00007270  28 63 75 72 72 65 6e 74  73 25 28 54 25 29 29 0d  |(currents%(T%)).|
00007280  31 1a 1a f2 6d 65 73 62  6f 78 28 38 32 30 2c 35  |1...mesbox(820,5|
00007290  34 30 2c 38 30 2c 38 30  29 0d 31 24 1a f2 6d 65  |40,80,80).1$..me|
000072a0  73 62 6f 78 28 38 32 30  2c 33 37 32 2c 38 30 2c  |sbox(820,372,80,|
000072b0  38 30 29 0d 31 2e 25 e6  31 35 3a ec 38 36 30 2c  |80).1.%.15:.860,|
000072c0  36 30 34 3a ec 38 33 36  2c 35 35 38 3a f0 38 35  |604:.836,558:.85|
000072d0  2c 38 38 34 2c 35 35 38  0d 31 38 32 ec 38 36 30  |,884,558.182.860|
000072e0  2c 33 38 38 3a ec 38 33  36 2c 34 33 32 3a f0 38  |,388:.836,432:.8|
000072f0  35 2c 38 38 34 2c 34 33  32 3a 86 38 33 36 2c 34  |5,884,432:.836,4|
00007300  33 36 2c 38 38 34 2c 34  33 36 0d 31 42 20 e6 38  |36,884,436.1B .8|
00007310  3a 86 38 33 36 2c 34 33  32 2c 38 36 30 2c 33 38  |:.836,432,860,38|
00007320  38 3a df 38 38 34 2c 34  33 32 0d 31 4c 1d 86 38  |8:.884,432.1L..8|
00007330  33 36 2c 35 36 32 2c 38  36 30 2c 36 30 34 3a df  |36,562,860,604:.|
00007340  38 38 34 2c 35 36 32 0d  31 56 17 c8 97 c8 93 33  |884,562.1V.....3|
00007350  37 32 2c 33 38 38 2c 35  31 34 2c 32 32 30 0d 31  |72,388,514,220.1|
00007360  60 21 4e 25 3d 63 75 72  72 65 6e 74 73 25 28 54  |`!N%=currents%(T|
00007370  25 29 3a f5 3a c8 97 58  25 2c 59 25 2c 4b 25 0d  |%):.:..X%,Y%,K%.|
00007380  31 6a 08 e7 4b 25 8c 0d  31 74 0c e7 58 25 3e 38  |1j..K%..1t..X%>8|
00007390  33 36 8c 0d 31 7e 38 e7  59 25 3e 35 34 34 80 4e  |36..1~8.Y%>544.N|
000073a0  25 3c 34 4e 25 2b 3d 31  3a f2 64 6f 73 6b 69 6c  |%<4N%+=1:.doskil|
000073b0  6c 28 4e 25 29 3a d4 31  2c 2d 31 30 2c 32 30 30  |l(N%):.1,-10,200|
000073c0  2c 31 3a f2 62 75 74 74  28 30 29 0d 31 88 38 e7  |,1:.butt(0).1.8.|
000073d0  59 25 3c 34 34 32 80 4e  25 3e 31 4e 25 2d 3d 31  |Y%<442.N%>1N%-=1|
000073e0  3a f2 64 6f 73 6b 69 6c  6c 28 4e 25 29 3a d4 31  |:.doskill(N%):.1|
000073f0  2c 2d 31 30 2c 32 30 30  2c 31 3a f2 62 75 74 74  |,-10,200,1:.butt|
00007400  28 30 29 0d 31 92 05 cd  0d 31 9c 0c e7 58 25 3c  |(0).1....1...X%<|
00007410  37 38 30 8c 0d 31 a6 16  e7 59 25 3e 34 37 35 80  |780..1...Y%>475.|
00007420  59 25 3c 35 31 34 46 25  3d b9 0d 31 b0 05 cd 0d  |Y%<514F%=..1....|
00007430  31 ba 05 cd 0d 31 c4 09  fd 46 25 3d b9 0d 31 ce  |1....1...F%=..1.|
00007440  10 d4 31 2c 2d 31 30 2c  32 30 30 2c 31 0d 31 d8  |..1,-10,200,1.1.|
00007450  14 63 75 72 72 65 6e 74  73 25 28 54 25 29 3d 4e  |.currents%(T%)=N|
00007460  25 0d 31 e2 05 e1 0d 31  ec 07 f4 20 15 0d 31 f6  |%.1....1... ..1.|
00007470  11 dd f2 64 6f 73 6b 69  6c 6c 28 54 25 29 0d 32  |...doskill(T%).2|
00007480  00 07 ea 41 24 0d 32 0a  15 41 24 3d a4 73 6b 69  |...A$.2..A$=.ski|
00007490  6c 6c 6e 61 6d 65 28 54  25 29 0d 32 14 1c e6 31  |llname(T%).2...1|
000074a0  31 3a c8 93 c8 90 33 37  32 2c 34 38 30 2c 31 32  |1:....372,480,12|
000074b0  2a 33 32 2c 33 32 0d 32  1e 14 e6 31 32 3a ec 33  |*32,32.2...12:.3|
000074c0  37 32 2c 35 30 38 3a f1  41 24 0d 32 28 05 e1 0d  |72,508:.A$.2(...|
000074d0  32 32 07 f4 20 15 0d 32  3c 13 dd a4 73 6b 69 6c  |22.. ..2<...skil|
000074e0  6c 6e 61 6d 65 28 54 25  29 0d 32 46 07 ea 41 24  |lname(T%).2F..A$|
000074f0  0d 32 50 09 c8 8e 54 25  ca 0d 32 5a 14 c9 31 3a  |.2P...T%..2Z..1:|
00007500  41 24 3d 22 42 45 47 49  4e 4e 45 52 22 0d 32 64  |A$="BEGINNER".2d|
00007510  16 c9 32 3a 41 24 3d 22  45 4e 54 48 55 53 49 41  |..2:A$="ENTHUSIA|
00007520  53 54 22 0d 32 6e 13 c9  33 3a 41 24 3d 22 41 4d  |ST".2n..3:A$="AM|
00007530  41 54 45 55 52 22 0d 32  78 18 c9 34 3a 41 24 3d  |ATEUR".2x..4:A$=|
00007540  22 50 52 4f 46 45 53 53  49 4f 4e 41 4c 22 0d 32  |"PROFESSIONAL".2|
00007550  82 05 cb 0d 32 8c 07 3d  41 24 0d 32 96 07 f4 20  |....2..=A$.2... |
00007560  15 0d 32 a0 11 dd f2 67  65 74 6e 61 6d 65 28 54  |..2....getname(T|
00007570  25 29 0d 32 aa 0c f2 62  75 74 74 28 30 29 0d 32  |%).2...butt(0).2|
00007580  b4 2a ea 58 25 2c 59 25  2c 4b 25 2c 51 2c 4f 58  |.*.X%,Y%,K%,Q,OX|
00007590  25 2c 4f 59 25 2c 41 24  2c 42 24 3a 41 24 3d 6e  |%,OY%,A$,B$:A$=n|
000075a0  61 6d 65 24 28 54 25 29  0d 32 be 13 e7 6e 6f 6f  |ame$(T%).2...noo|
000075b0  66 70 6c 61 79 65 72 73  3e 31 8c 0d 32 c8 09 c8  |fplayers>1..2...|
000075c0  8e 54 25 ca 0d 32 d2 12  c9 31 3a 42 24 3d 22 46  |.T%..2...1:B$="F|
000075d0  49 52 53 54 20 22 0d 32  dc 13 c9 32 3a 42 24 3d  |IRST ".2...2:B$=|
000075e0  22 53 45 43 4f 4e 44 20  22 0d 32 e6 12 c9 33 3a  |"SECOND ".2...3:|
000075f0  42 24 3d 22 54 48 49 52  44 20 22 0d 32 f0 13 c9  |B$="THIRD ".2...|
00007600  34 3a 42 24 3d 22 46 4f  55 52 54 48 20 22 0d 32  |4:B$="FOURTH ".2|
00007610  fa 12 c9 35 3a 42 24 3d  22 46 49 46 54 48 20 22  |...5:B$="FIFTH "|
00007620  0d 33 04 12 c9 36 3a 42  24 3d 22 53 49 58 54 48  |.3...6:B$="SIXTH|
00007630  20 22 0d 33 0e 05 cb 0d  33 18 05 cd 0d 33 22 1d  | ".3....3....3".|
00007640  e7 a9 41 24 3c 31 30 41  24 3d 41 24 2b c4 31 30  |..A$<10A$=A$+.10|
00007650  2d a9 41 24 2c 22 20 22  29 0d 33 2c 36 f2 63 65  |-.A$," ").3,6.ce|
00007660  6e 74 62 6f 78 28 b9 2c  22 57 48 41 54 20 49 53  |ntbox(.,"WHAT IS|
00007670  20 54 48 45 20 22 2b 42  24 2b 22 50 4c 41 59 45  | THE "+B$+"PLAYE|
00007680  52 53 20 4e 41 4d 45 3f  22 2c 31 35 2c 38 29 0d  |RS NAME?",15,8).|
00007690  33 36 16 c8 97 c8 93 33  30 36 2c 34 38 30 2c 36  |36.....306,480,6|
000076a0  33 34 2c 34 38 0d 33 40  1e f2 73 6d 61 6c 6c 6d  |34,48.3@..smallm|
000076b0  65 73 28 37 38 34 2c 34  37 32 2c 31 31 2c 22 4f  |es(784,472,11,"O|
000076c0  4b 22 29 0d 33 4a 1c f2  73 6d 61 6c 6c 6d 65 73  |K").3J..smallmes|
000076d0  28 32 38 38 2c 34 37 32  2c 31 31 2c 41 24 29 0d  |(288,472,11,A$).|
000076e0  33 54 17 c8 97 4f 58 25  2c 4f 59 25 2c 4b 25 3a  |3T...OX%,OY%,K%:|
000076f0  d1 3d 31 30 30 30 0d 33  5e 05 f5 0d 33 68 0c f2  |.=1000.3^...3h..|
00007700  62 75 74 74 28 30 29 0d  33 72 10 41 24 3d 6e 61  |butt(0).3r.A$=na|
00007710  6d 65 24 28 54 25 29 0d  33 7c 11 ec 33 33 36 2c  |me$(T%).3|..336,|
00007720  35 31 36 3a f1 41 24 3b  0d 33 86 0e e6 31 33 39  |516:.A$;.3...139|
00007730  3a 2a 46 58 32 31 0d 33  90 05 f5 0d 33 9a 32 51  |:*FX21.3....3.2Q|
00007740  3d a6 28 30 29 3a e7 51  3c 3e b9 20 84 28 58 25  |=.(0):.Q<>. .(X%|
00007750  3c 37 30 32 80 4b 25 29  20 91 3d 30 3a c8 97 4f  |<702.K%) .=0:..O|
00007760  58 25 2c 4f 59 25 2c 4b  25 3a c8 97 87 0d 33 a4  |X%,OY%,K%:....3.|
00007770  13 e7 51 3c 3e 31 32 37  51 3d 51 20 80 32 32 33  |..Q<>127Q=Q .223|
00007780  0d 33 ae 17 e7 28 51 3e  36 34 80 51 3c 39 31 29  |.3...(Q>64.Q<91)|
00007790  84 51 3d 31 32 37 8c 0d  33 b8 2b e7 a9 41 24 3c  |.Q=127..3.+..A$<|
000077a0  3e 31 30 80 51 3c 3e 31  32 37 41 24 3d 41 24 2b  |>10.Q<>127A$=A$+|
000077b0  bd 51 3a ef 51 3a d4 31  2c 2d 31 30 2c 32 30 30  |.Q:.Q:.1,-10,200|
000077c0  2c 31 0d 33 c2 2e e7 a9  41 24 3c 3e 30 80 51 3d  |,1.3....A$<>0.Q=|
000077d0  31 32 37 41 24 3d c0 41  24 2c a9 41 24 2d 31 29  |127A$=.A$,.A$-1)|
000077e0  3a ef 51 3a d4 31 2c 2d  31 30 2c 32 30 30 2c 31  |:.Q:.1,-10,200,1|
000077f0  0d 33 cc 05 cd 0d 33 d6  0e c8 97 58 25 2c 59 25  |.3....3....X%,Y%|
00007800  2c 4b 25 0d 33 e0 25 e7  91 3e 35 30 30 84 94 28  |,K%.3.%..>500..(|
00007810  58 25 2d 4f 58 25 29 3e  38 84 94 28 59 25 2d 4f  |X%-OX%)>8..(Y%-O|
00007820  59 25 29 3e 38 c8 97 ee  0d 33 ea 15 fd 28 58 25  |Y%)>8....3...(X%|
00007830  3e 37 39 32 80 4b 25 29  84 51 3d 31 33 0d 33 f4  |>792.K%).Q=13.3.|
00007840  35 e7 41 24 3d 22 22 d4  31 2c 2d 31 35 2c 31 32  |5.A$="".1,-15,12|
00007850  35 2c 32 30 3a 6e 61 6d  65 24 28 54 25 29 3d 64  |5,20:name$(T%)=d|
00007860  65 66 6e 61 6d 65 24 28  54 25 29 3a d1 3d 30 3a  |efname$(T%):.=0:|
00007870  fd a3 0d 33 fe 13 d4 31  2c 2d 31 30 2c 32 30 30  |...3...1,-10,200|
00007880  2c 31 3a fd b9 0d 34 08  15 e6 31 34 30 3a 6e 61  |,1:...4...140:na|
00007890  6d 65 24 28 54 25 29 3d  41 24 0d 34 12 13 64 65  |me$(T%)=A$.4..de|
000078a0  66 6e 61 6d 65 24 28 54  25 29 3d 41 24 0d 34 1c  |fname$(T%)=A$.4.|
000078b0  05 e1 0d 34 26 07 f4 20  15 0d 34 30 0f dd a4 6e  |...4&.. ..40...n|
000078c0  6f 70 6c 61 79 69 6e 67  0d 34 3a 0c f2 62 75 74  |oplaying.4:..but|
000078d0  74 28 30 29 0d 34 44 0f  e7 70 6c 61 79 25 3d 31  |t(0).4D..play%=1|
000078e0  8c 3d 32 0d 34 4e 13 ea  58 25 2c 59 25 2c 4b 25  |.=2.4N..X%,Y%,K%|
000078f0  2c 46 25 2c 4e 25 0d 34  58 29 f2 63 65 6e 74 62  |,F%,N%.4X).centb|
00007900  6f 78 28 b9 2c 22 48 4f  57 20 4d 41 4e 59 20 50  |ox(.,"HOW MANY P|
00007910  4c 41 59 45 52 53 3f 22  2c 31 32 2c 31 30 29 0d  |LAYERS?",12,10).|
00007920  34 62 24 f2 6d 65 73 62  6f 78 28 34 36 34 2c 34  |4b$.mesbox(464,4|
00007930  34 34 2c 38 34 2c 31 30  30 29 3a f2 64 6f 6e 6f  |44,84,100):.dono|
00007940  28 31 29 0d 34 6c 1a f2  6d 65 73 62 6f 78 28 37  |(1).4l..mesbox(7|
00007950  30 34 2c 35 33 36 2c 38  30 2c 38 30 29 0d 34 76  |04,536,80,80).4v|
00007960  1a f2 6d 65 73 62 6f 78  28 37 30 34 2c 33 37 32  |..mesbox(704,372|
00007970  2c 38 30 2c 38 30 29 0d  34 80 25 e6 31 35 3a ec  |,80,80).4.%.15:.|
00007980  37 34 34 2c 36 30 30 3a  ec 37 32 30 2c 35 35 34  |744,600:.720,554|
00007990  3a f0 38 35 2c 37 36 38  2c 35 35 34 0d 34 8a 32  |:.85,768,554.4.2|
000079a0  ec 37 34 34 2c 33 38 38  3a ec 37 32 30 2c 34 33  |.744,388:.720,43|
000079b0  32 3a f0 38 35 2c 37 36  38 2c 34 33 32 3a 86 37  |2:.85,768,432:.7|
000079c0  32 30 2c 34 33 36 2c 37  36 38 2c 34 33 36 0d 34  |20,436,768,436.4|
000079d0  94 20 e6 38 3a 86 37 32  30 2c 34 33 32 2c 37 34  |. .8:.720,432,74|
000079e0  34 2c 33 38 38 3a df 37  36 38 2c 34 33 32 0d 34  |4,388:.768,432.4|
000079f0  9e 1d 86 37 32 30 2c 35  35 38 2c 37 34 34 2c 36  |...720,558,744,6|
00007a00  30 30 3a df 37 36 38 2c  35 35 38 0d 34 a8 17 c8  |00:.768,558.4...|
00007a10  97 c8 93 34 38 30 2c 33  38 34 2c 32 39 32 2c 32  |...480,384,292,2|
00007a20  32 30 0d 34 b2 15 4e 25  3d 31 3a f5 3a c8 97 58  |20.4..N%=1:.:..X|
00007a30  25 2c 59 25 2c 4b 25 0d  34 bc 08 e7 4b 25 8c 0d  |%,Y%,K%.4...K%..|
00007a40  34 c6 0c e7 58 25 3e 37  31 36 8c 0d 34 d0 35 e7  |4...X%>716..4.5.|
00007a50  59 25 3e 35 34 34 80 4e  25 3c 36 4e 25 2b 3d 31  |Y%>544.N%<6N%+=1|
00007a60  3a f2 64 6f 6e 6f 28 4e  25 29 3a d4 31 2c 2d 31  |:.dono(N%):.1,-1|
00007a70  30 2c 32 30 30 2c 31 3a  f2 62 75 74 74 28 30 29  |0,200,1:.butt(0)|
00007a80  0d 34 da 35 e7 59 25 3c  34 34 32 80 4e 25 3e 31  |.4.5.Y%<442.N%>1|
00007a90  4e 25 2d 3d 31 3a f2 64  6f 6e 6f 28 4e 25 29 3a  |N%-=1:.dono(N%):|
00007aa0  d4 31 2c 2d 31 30 2c 32  30 30 2c 31 3a f2 62 75  |.1,-10,200,1:.bu|
00007ab0  74 74 28 30 29 0d 34 e4  05 cd 0d 34 ee 0c e7 58  |tt(0).4....4...X|
00007ac0  25 3c 35 34 30 8c 0d 34  f8 16 e7 59 25 3e 34 35  |%<540..4...Y%>45|
00007ad0  36 80 59 25 3c 35 34 30  46 25 3d b9 0d 35 02 05  |6.Y%<540F%=..5..|
00007ae0  cd 0d 35 0c 05 cd 0d 35  16 09 fd 46 25 3d b9 0d  |..5....5...F%=..|
00007af0  35 20 10 d4 31 2c 2d 31  30 2c 32 30 30 2c 31 0d  |5 ..1,-10,200,1.|
00007b00  35 2a 07 3d 4e 25 0d 35  34 07 f4 20 15 0d 35 3e  |5*.=N%.54.. ..5>|
00007b10  0e dd f2 64 6f 6e 6f 28  41 25 29 0d 35 48 19 e6  |...dono(A%).5H..|
00007b20  31 31 3a c8 93 c8 90 34  37 36 2c 34 36 38 2c 36  |11:....476,468,6|
00007b30  30 2c 36 34 0d 35 52 0c  ec 34 37 36 2c 35 32 30  |0,64.5R..476,520|
00007b40  0d 35 5c 13 e6 31 32 3a  f2 64 6f 75 62 6c 65 28  |.5\..12:.double(|
00007b50  41 25 29 0d 35 66 05 e1  0d 35 70 07 f4 20 15 0d  |A%).5f...5p.. ..|
00007b60  35 7a 18 dd a4 71 75 65  73 74 28 41 24 2c 42 24  |5z...quest(A$,B$|
00007b70  2c 43 24 2c 48 25 29 0d  35 84 0d ea 4c 25 2c 44  |,C$,H%).5...L%,D|
00007b80  25 2c 52 25 0d 35 8e 17  52 25 3d 37 30 34 2b a4  |%,R%.5..R%=704+.|
00007b90  6c 65 6e 67 74 68 28 a9  43 24 29 0d 35 98 17 4c  |length(.C$).5..L|
00007ba0  25 3d 36 30 30 2d a4 6c  65 6e 67 74 68 28 a9 42  |%=600-.length(.B|
00007bb0  24 29 0d 35 a2 1a f2 63  65 6e 74 62 6f 78 28 b9  |$).5...centbox(.|
00007bc0  2c 41 24 2c 31 32 2c 36  2b 48 25 29 0d 35 ac 10  |,A$,12,6+H%).5..|
00007bd0  44 25 3d 34 36 34 2d 48  25 2a 33 32 0d 35 b6 1a  |D%=464-H%*32.5..|
00007be0  f2 73 6d 61 6c 6c 6d 65  73 28 4c 25 2c 44 25 2c  |.smallmes(L%,D%,|
00007bf0  31 31 2c 42 24 29 0d 35  c0 1b f2 73 6d 61 6c 6c  |11,B$).5...small|
00007c00  6d 65 73 28 37 30 34 2c  44 25 2c 31 31 2c 43 24  |mes(704,D%,11,C$|
00007c10  29 0d 35 ca 1e c8 97 c8  93 4c 25 2b 31 36 2c 44  |).5......L%+16,D|
00007c20  25 2b 38 2c 52 25 2d 4c  25 2d 36 34 2c 34 38 0d  |%+8,R%-L%-64,48.|
00007c30  35 d4 08 c8 97 20 ee 0d  35 de 0c f2 62 75 74 74  |5.... ..5...butt|
00007c40  28 30 29 0d 35 e8 10 f5  3a c8 97 4c 25 2c 52 25  |(0).5...:..L%,R%|
00007c50  2c 44 25 0d 35 f2 17 fd  44 25 80 28 4c 25 3c 35  |,D%.5...D%.(L%<5|
00007c60  36 38 84 4c 25 3e 37 31  32 29 0d 35 fc 10 d4 31  |68.L%>712).5...1|
00007c70  2c 2d 31 30 2c 32 30 30  2c 31 0d 36 06 10 44 25  |,-10,200,1.6..D%|
00007c80  3d 2d 28 4c 25 3e 37 31  32 29 0d 36 10 07 3d 44  |=-(L%>712).6..=D|
00007c90  25 0d 36 1a 07 f4 20 15  0d 36 24 10 dd a4 6c 65  |%.6... ..6$...le|
00007ca0  6e 67 74 68 28 4c 25 29  0d 36 2e 18 4c 25 2b 3d  |ngth(L%).6..L%+=|
00007cb0  33 3a e7 28 4c 25 80 31  29 2d 30 4c 25 2b 3d 31  |3:.(L%.1)-0L%+=1|
00007cc0  0d 36 38 0a 3d 4c 25 2a  33 32 0d 36 42 07 f4 20  |.68.=L%*32.6B.. |
00007cd0  15 0d 36 4c 10 dd f2 64  6f 75 62 6c 65 28 43 25  |..6L...double(C%|
00007ce0  29 0d 36 56 0f 43 25 3d  31 32 38 2b 34 2a 43 25  |).6V.C%=128+4*C%|
00007cf0  0d 36 60 20 ef 43 25 2c  43 25 2b 31 2c 38 2c 38  |.6` .C%,C%+1,8,8|
00007d00  2c 31 30 2c 43 25 2b 32  2c 43 25 2b 33 2c 31 31  |,10,C%+2,C%+3,11|
00007d10  0d 36 6a 05 e1 0d 36 74  07 f4 20 15 0d 36 7e 0f  |.6j...6t.. ..6~.|
00007d20  dd f2 73 63 72 65 65 6e  62 6f 78 0d 36 88 0e ea  |..screenbox.6...|
00007d30  4d 25 3a 4d 25 3d eb 81  36 0d 36 92 1a f2 6d 65  |M%:M%=..6.6...me|
00007d40  73 62 6f 78 28 30 2c 30  2c 31 32 37 39 2c 31 30  |sbox(0,0,1279,10|
00007d50  32 33 29 0d 36 9c 1f ef  32 34 2c 31 36 3b 31 36  |23).6...24,16;16|
00007d60  3b 31 32 36 33 3b 31 30  30 37 3b 3a e6 31 34 30  |;1263;1007;:.140|
00007d70  3a da 0d 36 a6 0e dd f2  74 65 78 74 77 69 6e 64  |:..6....textwind|
00007d80  0d 36 b0 1b ef 32 38 2c  31 2c 33 30 2c 33 38 2a  |.6...28,1,30,38*|
00007d90  4d 25 2c 31 3a fb 31 34  30 3a db 0d 36 ba 05 e1  |M%,1:.140:..6...|
00007da0  0d 36 c4 07 f4 20 15 0d  36 ce 1b dd f2 63 65 6e  |.6... ..6....cen|
00007db0  74 62 6f 78 28 63 6c 73  2c 41 24 2c 43 25 2c 48  |tbox(cls,A$,C%,H|
00007dc0  25 29 0d 36 d8 0a e7 63  6c 73 20 db 0d 36 e2 0d  |%).6...cls ..6..|
00007dd0  ea 54 25 2c 49 25 2c 4d  25 0d 36 ec 12 e7 eb 3d  |.T%,I%,M%.6....=|
00007de0  39 4d 25 3d 31 36 8b 4d  25 3d 38 0d 36 f6 11 54  |9M%=16.M%=8.6..T|
00007df0  25 3d 36 34 30 2d a9 41  24 2a 4d 25 0d 37 00 10  |%=640-.A$*M%.7..|
00007e00  49 25 3d 35 31 32 2b 48  25 2a 31 36 0d 37 0a 3d  |I%=512+H%*16.7.=|
00007e10  f2 6d 65 73 62 6f 78 28  54 25 2d 4d 25 2c 34 39  |.mesbox(T%-M%,49|
00007e20  36 2d 48 25 2a 31 36 2d  32 30 2a 28 48 25 3d 31  |6-H%*16-20*(H%=1|
00007e30  29 2c a9 41 24 2a 4d 25  2a 32 2b 4d 25 2a 32 2c  |),.A$*M%*2+M%*2,|
00007e40  48 25 2a 33 32 2b 33 32  29 0d 37 14 1f e6 43 25  |H%*32+32).7...C%|
00007e50  3a ec 54 25 2c 49 25 2d  31 36 2a 28 48 25 3d 31  |:.T%,I%-16*(H%=1|
00007e60  29 3a ef 35 3a f1 41 24  0d 37 1e 05 e1 0d 37 28  |):.5:.A$.7....7(|
00007e70  07 f4 20 15 0d 37 32 1b  dd f2 73 6d 61 6c 6c 6d  |.. ..72...smallm|
00007e80  65 73 28 78 25 2c 79 25  2c 43 25 2c 41 24 29 0d  |es(x%,y%,C%,A$).|
00007e90  37 3c 0a ea 6f 25 2c 4d  25 0d 37 46 14 e7 eb 3d  |7<..o%,M%.7F...=|
00007ea0  31 32 4d 25 3d 31 36 8b  4d 25 3d 33 32 0d 37 50  |12M%=16.M%=32.7P|
00007eb0  15 6f 25 3d 28 31 2d 28  a9 41 24 80 31 29 29 2a  |.o%=(1-(.A$.1))*|
00007ec0  4d 25 0d 37 5a 24 f2 6d  65 73 62 6f 78 28 78 25  |M%.7Z$.mesbox(x%|
00007ed0  2c 79 25 2c a9 41 24 2a  4d 25 2b 4d 25 2a 32 2b  |,y%,.A$*M%+M%*2+|
00007ee0  6f 25 2c 36 34 29 0d 37  64 21 e6 31 32 3a ef 35  |o%,64).7d!.12:.5|
00007ef0  3a ec 78 25 2b 4d 25 2b  6f 25 81 32 2c 79 25 2b  |:.x%+M%+o%.2,y%+|
00007f00  34 34 3a f1 41 24 3b 0d  37 6e 05 e1 0d 37 78 07  |44:.A$;.7n...7x.|
00007f10  f4 20 15 0d 37 82 19 dd  f2 6d 65 73 62 6f 78 28  |. ..7....mesbox(|
00007f20  78 25 2c 79 25 2c 58 25  2c 59 25 29 0d 37 8c 16  |x%,y%,X%,Y%).7..|
00007f30  e6 38 3a c8 93 c8 90 78  25 2c 79 25 2c 58 25 2c  |.8:....x%,y%,X%,|
00007f40  59 25 0d 37 96 1c e6 33  3a c8 93 78 25 2b 34 2c  |Y%.7...3:..x%+4,|
00007f50  79 25 2b 34 2c 58 25 2d  38 2c 59 25 2d 38 0d 37  |y%+4,X%-8,Y%-8.7|
00007f60  a0 1e e6 34 3a c8 93 78  25 2b 38 2c 79 25 2b 38  |...4:..x%+8,y%+8|
00007f70  2c 58 25 2d 31 36 2c 59  25 2d 31 36 0d 37 aa 23  |,X%-16,Y%-16.7.#|
00007f80  e6 31 31 3a c8 93 c8 90  78 25 2b 31 32 2c 79 25  |.11:....x%+12,y%|
00007f90  2b 31 32 2c 58 25 2d 32  34 2c 59 25 2d 32 34 0d  |+12,X%-24,Y%-24.|
00007fa0  37 b4 05 e1 0d 37 be 07  f4 20 15 0d 37 c8 04 0d  |7....7... ..7...|
00007fb0  37 d2 1e dd f2 6d 65 73  77 69 6e 64 32 28 41 24  |7....meswind2(A$|
00007fc0  2c 42 24 2c 43 24 2c 46  25 2c 43 25 29 0d 37 dc  |,B$,C$,F%,C%).7.|
00007fd0  15 2a 43 48 41 4e 4e 45  4c 56 4f 49 43 45 20 31  |.*CHANNELVOICE 1|
00007fe0  20 31 0d 37 e6 07 ef 32  36 0d 37 f0 17 ea 58 25  | 1.7...26.7...X%|
00007ff0  2c 78 25 2c 78 32 25 2c  63 25 2c 49 25 2c 59 25  |,x%,x2%,c%,I%,Y%|
00008000  0d 37 fa 21 59 25 3d 38  30 2d 28 42 24 3c 3e 22  |.7.!Y%=80-(B$<>"|
00008010  22 29 2a 34 38 2d 28 43  24 3c 3e 22 22 29 2a 34  |")*48-(C$<>"")*4|
00008020  38 0d 38 04 1e 58 25 3d  28 a9 41 24 2a 31 36 2b  |8.8..X%=(.A$*16+|
00008030  33 32 29 3a 78 25 3d 36  34 30 2d 58 25 81 32 0d  |32):x%=640-X%.2.|
00008040  38 0e 19 f2 6d 65 73 62  6f 78 28 78 25 2c 38 30  |8...mesbox(x%,80|
00008050  30 2c 58 25 2c 59 25 29  0d 38 18 09 e6 33 2c 43  |0,X%,Y%).8...3,C|
00008060  25 0d 38 22 0f ef 35 3a  58 25 3d 78 25 2b 31 36  |%.8"..5:X%=x%+16|
00008070  0d 38 2c 12 78 25 3d 36  34 30 2d 28 a9 42 24 2a  |.8,.x%=640-(.B$*|
00008080  38 29 0d 38 36 13 78 32  25 3d 36 34 30 2d 28 a9  |8).86.x2%=640-(.|
00008090  43 24 2a 38 29 0d 38 40  10 e3 49 25 3d 31 b8 46  |C$*8).8@..I%=1.F|
000080a0  25 2a 32 2b 31 0d 38 4a  12 ec 58 25 2c 37 37 32  |%*2+1.8J..X%,772|
000080b0  2b 59 25 3a f1 41 24 0d  38 54 19 e7 42 24 3c 3e  |+Y%:.A$.8T..B$<>|
000080c0  22 22 ec 78 25 2c 37 32  34 2b 59 25 3a f1 42 24  |"".x%,724+Y%:.B$|
000080d0  0d 38 5e 1a e7 43 24 3c  3e 22 22 ec 78 32 25 2c  |.8^..C$<>"".x2%,|
000080e0  36 37 36 2b 59 25 3a f1  43 24 0d 38 68 0c f2 64  |676+Y%:.C$.8h..d|
000080f0  65 6c 28 35 30 29 0d 38  72 10 d4 31 2c 2d 31 30  |el(50).8r..1,-10|
00008100  2c 31 38 30 2c 31 0d 38  7c 05 ed 0d 38 86 05 e1  |,180,1.8|...8...|
00008110  0d 38 90 07 f4 20 15 0d  38 9a 1d dd f2 6d 65 73  |.8... ..8....mes|
00008120  77 69 6e 64 28 41 24 2c  42 24 2c 43 24 2c 46 25  |wind(A$,B$,C$,F%|
00008130  2c 43 25 29 0d 38 a4 1d  f2 6d 65 73 77 69 6e 64  |,C%).8...meswind|
00008140  32 28 41 24 2c 42 24 2c  43 24 2c 46 25 2c 43 25  |2(A$,B$,C$,F%,C%|
00008150  29 0d 38 ae 08 ef 34 3a  87 0d 38 b8 08 e6 38 2c  |).8...4:..8...8,|
00008160  30 0d 38 c2 18 2a 53 43  48 4f 4f 53 45 20 74 6f  |0.8..*SCHOOSE to|
00008170  70 6f 66 73 63 72 65 65  6e 0d 38 cc 0e f0 26 45  |pofscreen.8...&E|
00008180  44 2c 30 2c 37 30 34 0d  38 d6 0d f2 77 69 6e 64  |D,0,704.8...wind|
00008190  6f 77 73 32 0d 38 e0 05  e1 0d 38 ea 0b dd f2 62  |ows2.8....8....b|
000081a0  6f 61 72 64 0d 38 f4 27  74 6f 74 73 63 6f 72 65  |oard.8.'totscore|
000081b0  25 28 29 3d 74 6f 74 73  63 6f 72 65 25 28 29 2b  |%()=totscore%()+|
000081c0  63 75 72 72 65 6e 74 53  25 28 29 0d 38 fe 41 e3  |currentS%().8.A.|
000081d0  54 25 3d 31 b8 6e 6f 6f  66 70 6c 61 79 65 72 73  |T%=1.noofplayers|
000081e0  3a 68 6f 6c 65 73 63 6f  72 65 73 25 28 68 73 70  |:holescores%(hsp|
000081f0  25 28 54 25 29 2c 48 6f  6c 65 25 29 3d 63 75 72  |%(T%),Hole%)=cur|
00008200  72 65 6e 74 53 25 28 54  25 29 3a ed 0d 39 08 0d  |rentS%(T%):..9..|
00008210  f2 62 6f 61 72 64 63 6f  6c 0d 39 12 15 fb 33 2c  |.boardcol.9...3,|
00008220  30 2c 31 34 34 2c 30 3a  e6 31 33 31 3a da 0d 39  |0,144,0:.131:..9|
00008230  1c 0c f2 77 69 6e 73 6f  72 74 0d 39 26 21 ea 50  |...winsort.9&!.P|
00008240  25 2c 59 25 2c 54 25 2c  49 25 2c 53 25 2c 6d 70  |%,Y%,T%,I%,S%,mp|
00008250  25 2c 41 24 2c 73 63 25  2c 4f 25 0d 39 30 16 4f  |%,A$,sc%,O%.90.O|
00008260  25 3d 28 70 6c 61 79 25  3d 32 29 2a 34 3a ef 32  |%=(play%=2)*4:.2|
00008270  36 0d 39 3a 19 e6 30 3a  c8 93 c8 90 36 30 2c 37  |6.9:..0:....60,7|
00008280  36 2c 31 31 35 36 2c 39  32 30 0d 39 44 1c e6 36  |6,1156,920.9D..6|
00008290  34 2c 30 3a c8 93 c8 90  36 34 2c 38 30 2c 31 31  |4,0:....64,80,11|
000082a0  34 38 2c 31 32 38 0d 39  4e 1e e6 34 38 2c 30 3a  |48,128.9N..48,0:|
000082b0  c8 93 c8 90 36 34 2c 39  39 32 2c 31 31 34 38 2c  |....64,992,1148,|
000082c0  2d 31 32 38 0d 39 58 26  e6 31 32 3a ec 37 36 38  |-128.9X&.12:.768|
000082d0  2c 35 34 34 3a ec 31 32  31 32 2c 39 39 32 3a f0  |,544:.1212,992:.|
000082e0  38 35 2c 31 32 31 32 2c  38 30 0d 39 62 22 e6 31  |85,1212,80.9b".1|
000082f0  33 3a ec 35 31 32 2c 35  34 34 3a ec 36 34 2c 38  |3:.512,544:.64,8|
00008300  30 3a f0 38 35 2c 36 34  2c 39 39 32 0d 39 6c 1b  |0:.85,64,992.9l.|
00008310  e6 31 31 3a c8 93 c8 90  39 38 2c 31 31 32 2c 31  |.11:....98,112,1|
00008320  30 38 30 2c 38 34 38 0d  39 76 18 e6 30 3a c8 93  |080,848.9v..0:..|
00008330  39 38 2c 31 31 32 2c 31  30 38 30 2c 38 34 38 0d  |98,112,1080,848.|
00008340  39 80 25 ef 32 34 2c 31  30 30 3b 31 31 36 3b 31  |9.%.24,100;116;1|
00008350  31 37 36 3b 39 35 36 3b  3a c8 91 39 38 2c 31 31  |176;956;:..98,11|
00008360  36 3a ef 35 0d 39 8a 1d  e6 31 34 3a e3 50 25 3d  |6:.5.9...14:.P%=|
00008370  31 b8 36 3a 59 25 3d 37  38 38 2d 50 25 2a 31 33  |1.6:Y%=788-P%*13|
00008380  32 0d 39 94 1c e6 37 3a  86 30 2c 59 25 2b 31 32  |2.9...7:.0,Y%+12|
00008390  34 2c 31 30 38 30 2c 59  25 2b 31 32 34 0d 39 9e  |4,1080,Y%+124.9.|
000083a0  15 e6 31 34 3a 86 30 2c  59 25 2c 31 30 38 30 2c  |..14:.0,Y%,1080,|
000083b0  59 25 0d 39 a8 26 e3 54  25 3d 34 30 b8 38 30 88  |Y%.9.&.T%=40.80.|
000083c0  34 30 3a 86 30 2c 59 25  2b 54 25 2c 31 30 38 30  |40:.0,Y%+T%,1080|
000083d0  2c 59 25 2b 54 25 3a ed  0d 39 b2 27 e3 54 25 3d  |,Y%+T%:..9.'.T%=|
000083e0  31 b8 38 3a 58 25 3d 54  25 2a 31 32 30 3a 86 58  |1.8:X%=T%*120:.X|
000083f0  25 2c 59 25 2c 58 25 2c  59 25 2b 38 30 3a ed 0d  |%,Y%,X%,Y%+80:..|
00008400  39 bc 05 ed 0d 39 c6 15  e3 50 25 3d 31 b8 6e 6f  |9....9...P%=1.no|
00008410  6f 66 70 6c 61 79 65 72  73 0d 39 d0 2c 6d 70 25  |ofplayers.9.,mp%|
00008420  3d 6d 61 70 73 74 61 72  74 25 2b 26 32 46 39 3a  |=mapstart%+&2F9:|
00008430  59 25 3d 37 32 38 2d 28  50 25 2d 31 29 2a 31 33  |Y%=728-(P%-1)*13|
00008440  32 3a e6 31 32 0d 39 da  3a e3 49 25 3d 30 b8 2d  |2:.12.9.:.I%=0.-|
00008450  34 30 88 2d 34 30 3a e3  54 25 3d 30 b8 38 3a ec  |40.-40:.T%=0.8:.|
00008460  54 25 2a 31 32 30 2b 34  2c 59 25 2b 49 25 3a f1  |T%*120+4,Y%+I%:.|
00008470  3b 3f 6d 70 25 3a 6d 70  25 2b 3d 26 33 30 30 0d  |;?mp%:mp%+=&300.|
00008480  39 e4 09 ed 3a ed 3a ed  0d 39 ee 15 e3 50 25 3d  |9...:.:..9...P%=|
00008490  31 b8 6e 6f 6f 66 70 6c  61 79 65 72 73 0d 39 f8  |1.noofplayers.9.|
000084a0  35 6d 70 25 3d 6d 61 70  73 74 61 72 74 25 2b 26  |5mp%=mapstart%+&|
000084b0  32 46 39 3a 59 25 3d 37  32 38 2d 28 50 25 2d 31  |2F9:Y%=728-(P%-1|
000084c0  29 2a 31 33 32 3a 58 25  3d 33 32 3a 70 61 72 25  |)*132:X%=32:par%|
000084d0  3d 30 0d 3a 02 22 e3 54  25 3d 31 b8 48 6f 6c 65  |=0.:.".T%=1.Hole|
000084e0  25 3a e7 54 25 3d 31 30  59 25 2d 3d 34 30 3a 58  |%:.T%=10Y%-=40:X|
000084f0  25 3d 33 32 0d 3a 0c 37  73 63 25 3d 68 6f 6c 65  |%=32.:.7sc%=hole|
00008500  73 63 6f 72 65 73 25 28  68 73 70 25 28 50 25 29  |scores%(hsp%(P%)|
00008510  2c 54 25 29 2d 3f 6d 70  25 3a 70 61 72 25 2b 3d  |,T%)-?mp%:par%+=|
00008520  3f 6d 70 25 3a ec 58 25  2c 59 25 0d 3a 16 0b c8  |?mp%:.X%,Y%.:...|
00008530  8e b4 73 63 25 ca 0d 3a  20 14 c9 20 30 3a 41 24  |..sc%..: .. 0:A$|
00008540  3d 22 50 41 52 22 3a e6  31 35 0d 3a 2a 16 c9 20  |="PAR":.15.:*.. |
00008550  31 3a 41 24 3d 22 2b 22  2b c3 73 63 25 3a e6 35  |1:A$="+"+.sc%:.5|
00008560  0d 3a 34 12 c9 2d 31 3a  41 24 3d c3 73 63 25 3a  |.:4..-1:A$=.sc%:|
00008570  e6 30 0d 3a 3e 05 cb 0d  3a 48 13 f1 c4 35 2d a9  |.0.:>...:H...5-.|
00008580  41 24 2c 22 20 22 29 3b  41 24 0d 3a 52 15 58 25  |A$," ");A$.:R.X%|
00008590  2b 3d 31 32 30 3a 6d 70  25 2b 3d 26 33 30 30 0d  |+=120:mp%+=&300.|
000085a0  3a 5c 05 ed 0d 3a 66 35  e6 6a 75 6d 70 25 28 50  |:\...:f5.jump%(P|
000085b0  25 29 2b 34 3a ec 34 2c  37 36 38 2d 28 50 25 2d  |%)+4:.4,768-(P%-|
000085c0  31 29 2a 31 33 32 3a f1  6e 61 6d 65 24 28 50 25  |1)*132:.name$(P%|
000085d0  29 8a 32 30 2b 4f 25 29  3b 0d 3a 70 14 c8 8e 63  |).20+O%);.:p...c|
000085e0  75 72 72 65 6e 74 73 25  28 50 25 29 ca 0d 3a 7a  |urrents%(P%)..:z|
000085f0  15 c9 31 3a f1 22 7b 42  45 47 49 4e 4e 45 52 7d  |..1:."{BEGINNER}|
00008600  22 3b 0d 3a 84 17 c9 32  3a f1 22 7b 45 4e 54 48  |";.:...2:."{ENTH|
00008610  55 53 49 41 53 54 7d 22  3b 0d 3a 8e 14 c9 33 3a  |USIAST}";.:...3:|
00008620  f1 22 7b 41 4d 41 54 45  55 52 7d 22 3b 0d 3a 98  |."{AMATEUR}";.:.|
00008630  19 c9 34 3a f1 22 7b 50  52 4f 46 45 53 53 49 4f  |..4:."{PROFESSIO|
00008640  4e 41 4c 7d 22 3b 0d 3a  a2 05 cb 0d 3a ac 41 f1  |NAL}";.:....:.A.|
00008650  8a 34 30 2b 4f 25 29 3b  74 6f 74 73 63 6f 72 65  |.40+O%);totscore|
00008660  25 28 50 25 29 3b 22 20  53 54 52 4f 4b 45 22 bd  |%(P%);" STROKE".|
00008670  28 2d 28 74 6f 74 73 63  6f 72 65 25 28 50 25 29  |(-(totscore%(P%)|
00008680  3e 31 29 2a 38 33 29 8a  35 33 29 3b 0d 3a b6 36  |>1)*83).53);.:.6|
00008690  41 24 3d 22 20 3a 20 22  2b c3 48 6f 6c 65 25 2b  |A$=" : "+.Hole%+|
000086a0  22 20 48 4f 4c 45 22 2b  c4 2d 28 48 6f 6c 65 25  |" HOLE"+.-(Hole%|
000086b0  3e 31 29 2c 22 53 22 29  2b 22 20 50 4c 41 59 45  |>1),"S")+" PLAYE|
000086c0  44 22 0d 3a c0 0c c8 8e  70 6c 61 79 25 ca 0d 3a  |D".:....play%..:|
000086d0  ca 0d c9 31 3a f2 6d 61  74 63 68 0d 3a d4 0e c9  |...1:.match.:...|
000086e0  32 3a f2 73 74 72 6f 6b  65 0d 3a de 05 cb 0d 3a  |2:.stroke.:....:|
000086f0  e8 05 ed 0d 3a f2 20 e6  31 35 3a 54 25 3d 35 34  |....:. .15:T%=54|
00008700  32 2d a9 41 24 2a 38 3a  ec 54 25 2c 38 32 34 3a  |2-.A$*8:.T%,824:|
00008710  f1 41 24 0d 3a fc 1f e6  31 32 3a c8 93 54 25 2d  |.A$.:...12:..T%-|
00008720  38 2c 37 38 38 2c a9 41  24 2a 31 36 2b 31 34 2c  |8,788,.A$*16+14,|
00008730  34 38 0d 3b 06 29 ef 32  36 3a f2 73 6d 61 6c 6c  |48.;.).26:.small|
00008740  6d 65 73 28 33 36 30 2c  33 32 2c 31 31 2c 22 20  |mes(360,32,11," |
00008750  43 4f 4e 54 49 4e 55 45  20 22 29 0d 3b 10 25 f2  |CONTINUE ").;.%.|
00008760  73 6d 61 6c 6c 6d 65 73  28 37 32 30 2c 33 32 2c  |smallmes(720,32,|
00008770  31 31 2c 22 51 55 49 54  20 52 4f 55 4e 44 22 29  |11,"QUIT ROUND")|
00008780  0d 3b 1a 05 f5 0d 3b 24  15 c8 97 c8 93 33 37 32  |.;....;$.....372|
00008790  2c 34 34 2c 35 32 38 2c  34 30 0d 3b 2e 11 c8 97  |,44,528,40.;....|
000087a0  ee 3a c8 97 b8 34 36 34  2c 36 34 0d 3b 38 18 f2  |.:...464,64.;8..|
000087b0  62 75 74 74 28 30 29 3a  d1 3d 30 3a f5 fd 91 3e  |butt(0):.=0:...>|
000087c0  31 30 30 0d 3b 42 10 f5  3a c8 97 58 25 2c 59 25  |100.;B..:..X%,Y%|
000087d0  2c 54 25 0d 3b 4c 17 fd  54 25 80 28 58 25 3c 35  |,T%.;L..T%.(X%<5|
000087e0  35 36 84 58 25 3e 37 31  38 29 0d 3b 56 44 e7 58  |56.X%>718).;VD.X|
000087f0  25 3e 37 31 38 f2 63 6f  6e 66 69 72 6d 3a e7 58  |%>718.confirm:.X|
00008800  25 3e 39 32 36 ec 30 2c  30 3a ff 28 22 53 43 48  |%>926.0,0:.("SCH|
00008810  4f 4f 53 45 20 74 6f 70  6f 66 73 63 72 65 65 6e  |OOSE topofscreen|
00008820  22 29 3a f0 26 45 44 2c  30 2c 30 3a fd 30 0d 3b  |"):.&ED,0,0:.0.;|
00008830  60 06 fd b9 0d 3b 6a 0b  fb 30 3a ef 34 3a 87 0d  |`....;j..0:.4:..|
00008840  3b 74 07 c8 97 87 0d 3b  7e 08 e6 31 33 39 0d 3b  |;t.....;~..139.;|
00008850  88 05 e1 0d 3b 92 07 f4  20 15 0d 3b 9c 0d dd f2  |....;... ..;....|
00008860  63 6f 6e 66 69 72 6d 0d  3b a6 0c f2 62 75 74 74  |confirm.;...butt|
00008870  28 30 29 0d 3b b0 0c f2  67 74 6f 73 28 30 29 0d  |(0).;...gtos(0).|
00008880  3b ba 1b f2 6d 65 73 62  6f 78 28 36 34 30 2c 33  |;...mesbox(640,3|
00008890  32 2c 35 31 32 2c 31 36  30 29 0d 3b c4 31 e6 38  |2,512,160).;.1.8|
000088a0  3a ec 36 35 36 2c 31 37  36 3a f1 22 41 52 45 20  |:.656,176:."ARE |
000088b0  59 4f 55 20 53 55 52 45  20 59 4f 55 20 57 41 4e  |YOU SURE YOU WAN|
000088c0  54 20 54 4f 20 51 55 49  54 3f 22 0d 3b ce 1d f2  |T TO QUIT?".;...|
000088d0  73 6d 61 6c 6c 6d 65 73  28 37 39 34 2c 36 30 2c  |smallmes(794,60,|
000088e0  38 2c 22 59 45 53 22 29  0d 3b d8 1c f2 73 6d 61  |8,"YES").;...sma|
000088f0  6c 6c 6d 65 73 28 39 31  36 2c 36 30 2c 38 2c 22  |llmes(916,60,8,"|
00008900  4e 4f 22 29 0d 3b e2 1f  c8 97 c8 93 38 30 36 2c  |NO").;......806,|
00008910  37 32 2c 31 37 38 2c 34  30 3a c8 97 b8 38 39 30  |72,178,40:...890|
00008920  2c 38 32 0d 3b ec 10 f5  3a c8 97 58 25 2c 59 25  |,82.;...:..X%,Y%|
00008930  2c 54 25 0d 3b f6 17 fd  54 25 80 28 58 25 3c 38  |,T%.;...T%.(X%<8|
00008940  36 36 84 58 25 3e 39 32  36 29 0d 3c 00 05 e1 0d  |66.X%>926).<....|
00008950  3c 0a 07 f4 20 15 0d 3c  14 0b dd f2 6d 61 74 63  |<... ..<....matc|
00008960  68 0d 3c 1e 12 ea 54 25  2c 42 24 2c 53 31 25 2c  |h.<...T%,B$,S1%,|
00008970  53 32 25 0d 3c 28 0f e3  54 25 3d 31 b8 48 6f 6c  |S2%.<(..T%=1.Hol|
00008980  65 25 0d 3c 32 3b e7 20  68 6f 6c 65 73 63 6f 72  |e%.<2;. holescor|
00008990  65 73 25 28 68 73 70 25  28 31 29 2c 54 25 29 3c  |es%(hsp%(1),T%)<|
000089a0  68 6f 6c 65 73 63 6f 72  65 73 25 28 68 73 70 25  |holescores%(hsp%|
000089b0  28 32 29 2c 54 25 29 53  31 25 2b 3d 31 0d 3c 3c  |(2),T%)S1%+=1.<<|
000089c0  3b e7 20 68 6f 6c 65 73  63 6f 72 65 73 25 28 68  |;. holescores%(h|
000089d0  73 70 25 28 32 29 2c 54  25 29 3c 68 6f 6c 65 73  |sp%(2),T%)<holes|
000089e0  63 6f 72 65 73 25 28 68  73 70 25 28 31 29 2c 54  |cores%(hsp%(1),T|
000089f0  25 29 53 32 25 2b 3d 31  0d 3c 46 13 ed 3a 54 25  |%)S2%+=1.<F..:T%|
00008a00  3d 94 28 53 32 25 2d 53  31 25 29 0d 3c 50 25 42  |=.(S2%-S1%).<P%B|
00008a10  24 3d c3 28 54 25 29 3a  e7 54 25 42 24 3d 42 24  |$=.(T%):.T%B$=B$|
00008a20  2b 22 20 55 50 22 8b 42  24 3d 22 45 56 45 4e 22  |+" UP".B$="EVEN"|
00008a30  0d 3c 5a 16 42 24 3d c4  31 34 2d a9 42 24 2c 22  |.<Z.B$=.14-.B$,"|
00008a40  20 22 29 2b 42 24 0d 3c  64 09 c8 8e 50 25 ca 0d  | ")+B$.<d...P%..|
00008a50  3c 6e 13 c9 31 3a e7 53  31 25 3e 3d 53 32 25 f1  |<n..1:.S1%>=S2%.|
00008a60  42 24 0d 3c 78 13 c9 32  3a e7 53 32 25 3e 3d 53  |B$.<x..2:.S2%>=S|
00008a70  31 25 f1 42 24 0d 3c 82  05 cb 0d 3c 8c 21 41 24  |1%.B$.<....<.!A$|
00008a80  3d 43 6f 75 72 73 65 24  2b 22 20 3a 20 4d 41 54  |=Course$+" : MAT|
00008a90  43 48 20 50 4c 41 59 22  2b 41 24 0d 3c 96 05 e1  |CH PLAY"+A$.<...|
00008aa0  0d 3c a0 07 f4 20 15 0d  3c aa 0c dd f2 73 74 72  |.<... ..<....str|
00008ab0  6f 6b 65 0d 3c b4 0a ea  54 25 2c 42 24 0d 3c be  |oke.<...T%,B$.<.|
00008ac0  23 54 25 3d 74 6f 74 73  63 6f 72 65 25 28 50 25  |#T%=totscore%(P%|
00008ad0  29 2d 70 61 72 25 3a 42  24 3d c3 28 94 54 25 29  |)-par%:B$=.(.T%)|
00008ae0  0d 3c c8 0a c8 8e b4 54  25 ca 0d 3c d2 14 c9 30  |.<.....T%..<...0|
00008af0  3a 42 24 3d 22 45 56 45  4e 20 50 41 52 22 0d 3c  |:B$="EVEN PAR".<|
00008b00  dc 18 c9 31 3a 42 24 3d  42 24 2b 22 20 4f 56 45  |...1:B$=B$+" OVE|
00008b10  52 20 50 41 52 22 0d 3c  e6 1a c9 2d 31 3a 42 24  |R PAR".<...-1:B$|
00008b20  3d 42 24 2b 22 20 55 4e  44 45 52 20 50 41 52 22  |=B$+" UNDER PAR"|
00008b30  0d 3c f0 05 cb 0d 3c fa  14 f1 c4 31 34 2d a9 42  |.<....<....14-.B|
00008b40  24 2c 22 20 22 29 3b 42  24 0d 3d 04 22 41 24 3d  |$," ");B$.=."A$=|
00008b50  43 6f 75 72 73 65 24 2b  22 20 3a 20 53 54 52 4f  |Course$+" : STRO|
00008b60  4b 45 20 50 4c 41 59 22  2b 41 24 0d 3d 0e 05 e1  |KE PLAY"+A$.=...|
00008b70  0d 3d 18 07 f4 20 15 0d  3d 22 0e dd f2 73 68 6f  |.=... ..="...sho|
00008b80  77 77 69 6e 64 0d 3d 2c  23 ea 77 24 2c 54 25 2c  |wwind.=,#.w$,T%,|
00008b90  43 25 2c 73 25 2c 69 25  2c 78 31 25 2c 79 31 25  |C%,s%,i%,x1%,y1%|
00008ba0  2c 42 58 25 2c 42 59 25  0d 3d 36 35 e7 67 72 65  |,BX%,BY%.=65.gre|
00008bb0  65 6e 25 20 43 25 3d 39  3a 77 24 3d 22 53 4c 4f  |en% C%=9:w$="SLO|
00008bc0  50 45 22 3a 73 25 3d 2d  32 8b 43 25 3d 36 3a 77  |PE":s%=-2.C%=6:w|
00008bd0  24 3d 22 57 49 4e 44 22  3a 73 25 3d 34 0d 3d 40  |$="WIND":s%=4.=@|
00008be0  25 fb 31 33 3a f1 8a 32  36 2c 30 29 22 44 49 52  |%.13:..26,0)"DIR|
00008bf0  45 43 54 49 4f 4e 20 4f  46 22 8a 32 39 2c 31 29  |ECTION OF".29,1)|
00008c00  77 24 0d 3d 4a 13 e3 54  25 3d 43 25 b8 43 25 2b  |w$.=J..T%=C%.C%+|
00008c10  73 25 88 73 25 0d 3d 54  07 e6 54 25 0d 3d 5e 13  |s%.s%.=T..T%.=^.|
00008c20  c8 8f 35 32 36 2c 38 32  30 2c 38 38 2b 69 25 0d  |..526,820,88+i%.|
00008c30  3d 68 13 c8 8f 35 32 36  2c 38 32 30 2c 31 32 2b  |=h...526,820,12+|
00008c40  69 25 0d 3d 72 0b 69 25  2b 3d 34 3a ed 0d 3d 7c  |i%.=r.i%+=4:..=||
00008c50  06 e6 38 0d 3d 86 0c ec  35 32 36 2c 38 32 30 0d  |..8.=...526,820.|
00008c60  3d 90 17 42 58 25 3d 77  78 2a 32 35 3a 42 59 25  |=..BX%=wx*25:BY%|
00008c70  3d 77 79 2a 32 35 0d 3d  9a 27 78 31 25 3d 76 61  |=wy*25.=.'x1%=va|
00008c80  2a 42 59 25 2b 76 62 2a  42 58 25 3a 79 31 25 3d  |*BY%+vb*BX%:y1%=|
00008c90  76 69 2a 42 59 25 2b 76  61 2a 42 58 25 0d 3d a4  |vi*BY%+va*BX%.=.|
00008ca0  14 df 35 32 36 2b 78 31  25 2c 38 32 30 2b 79 31  |..526+x1%,820+y1|
00008cb0  25 0d 3d ae 05 e1 0d 3d  b8 07 f4 20 15 0d 3d c2  |%.=....=... ..=.|
00008cc0  0d dd f2 73 65 74 77 69  6e 64 0d 3d cc 17 57 58  |...setwind.=..WX|
00008cd0  3d 30 3a 57 59 3d 30 3a  46 25 3d 67 72 65 65 6e  |=0:WY=0:F%=green|
00008ce0  25 0d 3d d6 18 77 63 3d  35 2b 34 2a 67 72 65 65  |%.=..wc=5+4*gree|
00008cf0  6e 25 3a 77 63 32 3d 77  63 0d 3d e0 31 e7 46 25  |n%:wc2=wc.=.1.F%|
00008d00  3a 50 25 3d 6d 61 70 70  6f 69 6e 74 25 2b 26 32  |:P%=mappoint%+&2|
00008d10  46 34 3a 77 78 3d a4 6d  61 70 32 2f 33 3a 77 79  |F4:wx=.map2/3:wy|
00008d20  3d a4 6d 61 70 32 2f 33  3a e1 0d 3d ea 18 77 78  |=.map2/3:..=..wx|
00008d30  3d 30 3a 77 79 3d 30 3a  e7 73 6b 69 6c 6c 25 3c  |=0:wy=0:.skill%<|
00008d40  33 e1 0d 3d f4 0f 77 78  3d 57 78 3a 77 79 3d 57  |3..=..wx=Wx:wy=W|
00008d50  79 0d 3d fe 05 e1 0d 3e  08 07 f4 20 15 0d 3e 12  |y.=....>... ..>.|
00008d60  0e dd f2 69 6e 69 74 77  69 6e 64 0d 3e 1c 07 ea  |...initwind.>...|
00008d70  61 25 0d 3e 26 10 73 74  72 65 6e 25 3d b3 28 33  |a%.>&.stren%=.(3|
00008d80  36 29 0d 3e 30 0d 61 25  3d b3 28 33 36 30 29 0d  |6).>0.a%=.(360).|
00008d90  3e 3a 18 57 78 3d 28 28  9b b2 61 25 29 2a 73 74  |>:.Wx=((..a%)*st|
00008da0  72 65 6e 25 29 2f 39 0d  3e 44 18 57 79 3d 28 28  |ren%)/9.>D.Wy=((|
00008db0  b5 b2 61 25 29 2a 73 74  72 65 6e 25 29 2f 39 0d  |..a%)*stren%)/9.|
00008dc0  3e 4e 1d 46 78 3d 28 b5  b2 61 25 29 2a 28 31 35  |>N.Fx=(..a%)*(15|
00008dd0  2b 28 73 74 72 65 6e 25  81 32 29 29 0d 3e 58 1d  |+(stren%.2)).>X.|
00008de0  46 79 3d 28 9b b2 61 25  29 2a 28 31 35 2b 28 73  |Fy=(..a%)*(15+(s|
00008df0  74 72 65 6e 25 81 32 29  29 0d 3e 62 05 e1 0d 3e  |tren%.2)).>b...>|
00008e00  6c 07 f4 20 15 0d 3e 76  0a dd f2 73 70 6f 74 0d  |l.. ..>v...spot.|
00008e10  3e 80 1b 62 73 25 3d 31  3a 42 58 3d 30 3a 42 59  |>..bs%=1:BX=0:BY|
00008e20  25 3d 2d 52 25 3a 68 25  3d 30 0d 3e 8a 25 78 31  |%=-R%:h%=0.>.%x1|
00008e30  25 3d 76 61 2a 42 59 25  2b 76 62 2a 42 58 3a 79  |%=va*BY%+vb*BX:y|
00008e40  31 25 3d 76 69 2a 42 59  25 2b 76 61 2a 42 58 0d  |1%=vi*BY%+va*BX.|
00008e50  3e 94 1a f2 76 74 28 79  31 25 2c 78 31 25 2c 48  |>...vt(y1%,x1%,H|
00008e60  25 29 3a 79 73 25 2d 3d  34 0d 3e 9e 0c 2a 46 58  |%):ys%-=4.>..*FX|
00008e70  31 31 32 2c 32 0d 3e a8  14 6c 69 65 25 3d b0 78  |112,2.>..lie%=.x|
00008e80  73 25 2b 32 2c 79 73 25  29 0d 3e b2 0e f2 77 65  |s%+2,ys%).>...we|
00008e90  6c 6c 69 65 28 30 29 0d  3e bc 0d e7 ac 67 72 65  |llie(0).>....gre|
00008ea0  65 6e 25 8c 0d 3e c6 2c  54 25 3d b0 28 6d 78 25  |en%..>.,T%=.(mx%|
00008eb0  28 30 2c 48 61 6e 64 25  29 2b 34 2b 54 25 2b 38  |(0,Hand%)+4+T%+8|
00008ec0  30 2a 48 61 6e 64 25 29  2c 6d 79 25 28 30 29 29  |0*Hand%),my%(0))|
00008ed0  0d 3e d0 10 e7 54 25 3d  36 84 54 25 3d 31 31 8c  |.>...T%=6.T%=11.|
00008ee0  0d 3e da 0f f2 77 65 6c  6c 69 65 28 33 30 29 0d  |.>...wellie(30).|
00008ef0  3e e4 05 cd 0d 3e ee 05  cd 0d 3e f8 0c 2a 46 58  |>....>....>..*FX|
00008f00  31 31 32 2c 31 0d 3f 02  15 ec 78 73 25 2c 79 73  |112,1.?...xs%,ys|
00008f10  25 3a ec 42 59 31 30 2c  31 36 0d 3f 0c 13 6f 78  |%:.BY10,16.?..ox|
00008f20  25 3d 78 73 25 3a 6f 79  25 3d 79 73 25 0d 3f 16  |%=xs%:oy%=ys%.?.|
00008f30  15 6f 73 78 25 3d 78 73  25 3a 6f 73 79 25 3d 79  |.osx%=xs%:osy%=y|
00008f40  73 25 0d 3f 20 13 73 78  25 3d 78 73 25 3a 73 79  |s%.? .sx%=xs%:sy|
00008f50  25 3d 79 73 25 0d 3f 2a  0c 2a 53 47 45 54 20 67  |%=ys%.?*.*SGET g|
00008f60  72 0d 3f 34 0c 2a 53 47  45 54 20 73 68 0d 3f 3e  |r.?4.*SGET sh.?>|
00008f70  05 e1 0d 3f 48 07 f4 20  15 0d 3f 52 10 dd f2 77  |...?H.. ..?R...w|
00008f80  65 6c 6c 69 65 28 57 25  29 0d 3f 5c 07 ea 54 25  |ellie(W%).?\..T%|
00008f90  0d 3f 66 1c e3 54 25 3d  31 b8 38 3a 6d 25 28 54  |.?f..T%=1.8:m%(T|
00008fa0  25 2c 30 29 3d 54 25 2b  57 25 3a ed 0d 3f 70 11  |%,0)=T%+W%:..?p.|
00008fb0  77 65 6c 6c 69 65 25 3d  57 25 3d 33 30 0d 3f 7a  |wellie%=W%=30.?z|
00008fc0  05 e1 0d 3f 84 07 f4 20  15 0d 3f 8e 0c dd f2 73  |...?... ..?....s|
00008fd0  70 6c 61 73 68 0d 3f 98  18 2a 43 48 41 4e 4e 45  |plash.?..*CHANNE|
00008fe0  4c 56 4f 49 43 45 20 31  20 50 4c 4f 50 0d 3f a2  |LVOICE 1 PLOP.?.|
00008ff0  16 ea 41 24 2c 72 25 2c  61 25 2c 54 25 2c 78 25  |..A$,r%,a%,T%,x%|
00009000  2c 79 25 0d 3f ac 16 62  61 64 25 3d a3 3a d4 31  |,y%.?..bad%=.:.1|
00009010  2c 2d 31 35 2c 35 2c 32  30 0d 3f b6 0e e7 94 73  |,-15,5,20.?....s|
00009020  78 25 3c 36 34 30 8c 0d  3f c0 0e e3 72 25 3d 35  |x%<640..?...r%=5|
00009030  b8 35 35 88 35 0d 3f ca  0a e7 72 25 3e 39 8c 0d  |.55.5.?...r%>9..|
00009040  3f d4 0c e6 36 3a c8 96  3a c8 96 0d 3f de 0c e3  |?...6:..:...?...|
00009050  61 25 3d 30 b8 34 35 0d  3f e8 32 78 25 3d 78 73  |a%=0.45.?.2x%=xs|
00009060  25 2b 43 28 61 25 29 2a  28 72 25 2d 31 30 29 3a  |%+C(a%)*(r%-10):|
00009070  79 25 3d 79 73 25 2b 53  28 61 25 29 2a 28 28 72  |y%=ys%+S(a%)*((r|
00009080  25 2d 31 30 29 3e 3e 32  29 0d 3f f2 16 e7 b0 78  |%-10)>>2).?....x|
00009090  25 2c 79 25 29 3d 31 31  c8 92 78 25 2c 79 25 0d  |%,y%)=11..x%,y%.|
000090a0  3f fc 05 ed 0d 40 06 05  cd 0d 40 10 0f e6 31 31  |?....@....@...11|
000090b0  3a e7 72 25 3c 35 30 8c  0d 40 1a 09 c8 96 3a c8  |:.r%<50..@....:.|
000090c0  96 0d 40 24 31 e3 61 25  3d 30 b8 34 35 3a 78 25  |..@$1.a%=0.45:x%|
000090d0  3d 78 73 25 2b 43 28 61  25 29 2a 72 25 3a 79 25  |=xs%+C(a%)*r%:y%|
000090e0  3d 79 73 25 2b 53 28 61  25 29 2a 28 72 25 3e 3e  |=ys%+S(a%)*(r%>>|
000090f0  32 29 0d 40 2e 15 e7 b0  78 25 2c 79 25 29 3d 36  |2).@....x%,y%)=6|
00009100  c8 92 78 25 2c 79 25 0d  40 38 05 ed 0d 40 42 05  |..x%,y%.@8...@B.|
00009110  cd 0d 40 4c 05 ed 0d 40  56 05 cd 0d 40 60 0e 73  |..@L...@V...@`.s|
00009120  74 72 6f 6b 65 25 2b 3d  31 0d 40 6a 21 e7 47 25  |troke%+=1.@j!.G%|
00009130  3d 31 31 41 24 3d 22 54  48 45 20 53 45 41 22 8b  |=11A$="THE SEA".|
00009140  41 24 3d 22 57 41 54 45  52 22 0d 40 74 4d f2 6d  |A$="WATER".@tM.m|
00009150  65 73 77 69 6e 64 28 22  42 41 4c 4c 20 4c 4f 53  |eswind("BALL LOS|
00009160  54 20 49 4e 20 22 2b 41  24 2c 22 46 4f 52 46 45  |T IN "+A$,"FORFE|
00009170  49 54 20 4f 4e 45 20 53  54 52 4f 4b 45 22 2c 22  |IT ONE STROKE","|
00009180  50 4c 45 41 53 45 20 50  4c 41 59 20 41 47 41 49  |PLEASE PLAY AGAI|
00009190  4e 22 2c 35 2c 36 29 0d  40 7e 10 f2 67 65 74 70  |N",5,6).@~..getp|
000091a0  6c 61 79 76 61 6c 73 0d  40 88 09 f2 73 70 6f 74  |layvals.@...spot|
000091b0  0d 40 92 12 2a 53 43 48  4f 4f 53 45 20 70 6c 61  |.@..*SCHOOSE pla|
000091c0  69 6e 0d 40 9c 4d c8 96  3a f0 26 45 44 2c 6d 78  |in.@.M..:.&ED,mx|
000091d0  25 28 67 25 2c 48 61 6e  64 25 29 2c 6d 79 25 28  |%(g%,Hand%),my%(|
000091e0  67 25 29 3a ef 32 33 2c  32 37 3b 6d 25 28 31 2c  |g%):.23,27;m%(1,|
000091f0  67 25 29 7c 3a f0 26 45  44 2c 6d 78 25 28 67 25  |g%)|:.&ED,mx%(g%|
00009200  2c 48 61 6e 64 25 29 2c  6d 79 25 28 67 25 29 0d  |,Hand%),my%(g%).|
00009210  40 a6 05 e1 0d 40 b0 07  f4 20 15 0d 40 ba 0d dd  |@....@... ..@...|
00009220  f2 70 75 74 62 61 63 6b  0d 40 c4 0d e7 ac 67 72  |.putback.@....gr|
00009230  65 65 6e 25 8c 0d 40 ce  1f e7 94 78 31 25 3c 38  |een%..@....x1%<8|
00009240  30 78 31 25 3d 28 38 30  2b b3 28 33 30 29 29 2a  |0x1%=(80+.(30))*|
00009250  b4 78 31 25 0d 40 d8 1f  e7 94 79 31 25 3c 38 30  |.x1%.@....y1%<80|
00009260  79 31 25 3d 28 38 30 2b  b3 28 33 30 29 29 2a b4  |y1%=(80+.(30))*.|
00009270  79 31 25 0d 40 e2 05 cd  0d 40 ec 25 63 75 72 72  |y1%.@....@.%curr|
00009280  65 6e 74 52 25 28 31 29  3d a4 64 69 73 74 61 6e  |entR%(1)=.distan|
00009290  63 65 28 94 78 31 25 2c  94 79 31 25 29 0d 40 f6  |ce(.x1%,.y1%).@.|
000092a0  14 63 75 72 72 65 6e 74  78 25 28 31 29 3d 78 31  |.currentx%(1)=x1|
000092b0  25 0d 41 00 14 63 75 72  72 65 6e 74 79 25 28 31  |%.A..currenty%(1|
000092c0  29 3d 79 31 25 0d 41 0a  18 63 75 72 72 65 6e 74  |)=y1%.A..current|
000092d0  53 25 28 31 29 3d 73 74  72 6f 6b 65 25 0d 41 14  |S%(1)=stroke%.A.|
000092e0  05 e1 0d 41 1e 07 f4 20  15 0d 41 28 0d dd f2 73  |...A... ..A(...s|
000092f0  77 61 70 61 6c 6c 0d 41  32 24 c8 94 20 63 75 72  |wapall.A2$.. cur|
00009300  72 65 6e 74 52 25 28 49  25 29 2c 63 75 72 72 65  |rentR%(I%),curre|
00009310  6e 74 52 25 28 49 25 2d  31 29 0d 41 3c 24 c8 94  |ntR%(I%-1).A<$..|
00009320  20 63 75 72 72 65 6e 74  78 25 28 49 25 29 2c 63  | currentx%(I%),c|
00009330  75 72 72 65 6e 74 78 25  28 49 25 2d 31 29 0d 41  |urrentx%(I%-1).A|
00009340  46 24 c8 94 20 63 75 72  72 65 6e 74 79 25 28 49  |F$.. currenty%(I|
00009350  25 29 2c 63 75 72 72 65  6e 74 79 25 28 49 25 2d  |%),currenty%(I%-|
00009360  31 29 0d 41 50 24 c8 94  20 63 75 72 72 65 6e 74  |1).AP$.. current|
00009370  73 25 28 49 25 29 2c 63  75 72 72 65 6e 74 73 25  |s%(I%),currents%|
00009380  28 49 25 2d 31 29 0d 41  5a 24 c8 94 20 63 75 72  |(I%-1).AZ$.. cur|
00009390  72 65 6e 74 53 25 28 49  25 29 2c 63 75 72 72 65  |rentS%(I%),curre|
000093a0  6e 74 53 25 28 49 25 2d  31 29 0d 41 64 24 c8 94  |ntS%(I%-1).Ad$..|
000093b0  20 74 6f 74 73 63 6f 72  65 25 28 49 25 29 2c 74  | totscore%(I%),t|
000093c0  6f 74 73 63 6f 72 65 25  28 49 25 2d 31 29 0d 41  |otscore%(I%-1).A|
000093d0  6e 20 c8 94 20 6f 6c 64  70 6f 73 25 28 49 25 29  |n .. oldpos%(I%)|
000093e0  2c 6f 6c 64 70 6f 73 25  28 49 25 2d 31 29 0d 41  |,oldpos%(I%-1).A|
000093f0  78 1c c8 94 20 6e 61 6d  65 24 28 49 25 29 2c 6e  |x... name$(I%),n|
00009400  61 6d 65 24 28 49 25 2d  31 29 0d 41 82 1a c8 94  |ame$(I%-1).A....|
00009410  20 68 73 70 25 28 49 25  29 2c 68 73 70 25 28 49  | hsp%(I%),hsp%(I|
00009420  25 2d 31 29 0d 41 8c 1c  c8 94 20 68 61 6e 64 25  |%-1).A.... hand%|
00009430  28 49 25 29 2c 68 61 6e  64 25 28 49 25 2d 31 29  |(I%),hand%(I%-1)|
00009440  0d 41 96 1c c8 94 20 6a  75 6d 70 25 28 49 25 29  |.A.... jump%(I%)|
00009450  2c 6a 75 6d 70 25 28 49  25 2d 31 29 0d 41 a0 05  |,jump%(I%-1).A..|
00009460  e1 0d 41 aa 07 f4 20 15  0d 41 b4 0d dd f2 77 69  |..A... ..A....wi|
00009470  6e 73 6f 72 74 0d 41 be  0a ea 54 25 2c 49 25 0d  |nsort.A...T%,I%.|
00009480  41 c8 14 e7 6e 6f 6f 66  70 6c 61 79 65 72 73 3c  |A...noofplayers<|
00009490  3e 31 8c 0d 41 d2 27 e3  54 25 3d 31 b8 6e 6f 6f  |>1..A.'.T%=1.noo|
000094a0  66 70 6c 61 79 65 72 73  3a e3 49 25 3d 32 b8 6e  |fplayers:.I%=2.n|
000094b0  6f 6f 66 70 6c 61 79 65  72 73 0d 41 dc 1f e7 6f  |oofplayers.A...o|
000094c0  6c 64 70 6f 73 25 28 49  25 29 3c 6f 6c 64 70 6f  |ldpos%(I%)<oldpo|
000094d0  73 25 28 49 25 2d 31 29  8c 0d 41 e6 0c f2 73 77  |s%(I%-1)..A...sw|
000094e0  61 70 61 6c 6c 0d 41 f0  05 cd 0d 41 fa 07 ed 3a  |apall.A....A...:|
000094f0  ed 0d 42 04 27 e3 54 25  3d 31 b8 6e 6f 6f 66 70  |..B.'.T%=1.noofp|
00009500  6c 61 79 65 72 73 3a e3  49 25 3d 32 b8 6e 6f 6f  |layers:.I%=2.noo|
00009510  66 70 6c 61 79 65 72 73  0d 42 0e 23 e7 63 75 72  |fplayers.B.#.cur|
00009520  72 65 6e 74 53 25 28 49  25 29 3c 63 75 72 72 65  |rentS%(I%)<curre|
00009530  6e 74 53 25 28 49 25 2d  31 29 8c 0d 42 18 0c f2  |ntS%(I%-1)..B...|
00009540  73 77 61 70 61 6c 6c 0d  42 22 05 cd 0d 42 2c 07  |swapall.B"...B,.|
00009550  ed 3a ed 0d 42 36 05 cd  0d 42 40 05 e1 0d 42 4a  |.:..B6...B@...BJ|
00009560  07 f4 20 15 0d 42 54 0f  dd f2 73 65 74 70 6c 61  |.. ..BT...setpla|
00009570  79 65 72 0d 42 5e 07 ea  54 25 0d 42 68 15 e3 54  |yer.B^..T%.Bh..T|
00009580  25 3d 31 b8 6e 6f 6f 66  70 6c 61 79 65 72 73 0d  |%=1.noofplayers.|
00009590  42 72 12 6f 6c 64 70 6f  73 25 28 54 25 29 3d 54  |Br.oldpos%(T%)=T|
000095a0  25 0d 42 7c 05 ed 0d 42  86 05 e1 0d 42 90 07 f4  |%.B|...B....B...|
000095b0  20 15 0d 42 9a 11 dd f2  77 68 69 63 68 70 6c 61  | ..B....whichpla|
000095c0  79 65 72 0d 42 a4 0a ea  54 25 2c 49 25 0d 42 ae  |yer.B...T%,I%.B.|
000095d0  14 e7 6e 6f 6f 66 70 6c  61 79 65 72 73 3c 3e 31  |..noofplayers<>1|
000095e0  8c 0d 42 b8 15 e3 54 25  3d 31 b8 6e 6f 6f 66 70  |..B...T%=1.noofp|
000095f0  6c 61 79 65 72 73 0d 42  c2 15 e3 49 25 3d 32 b8  |layers.B...I%=2.|
00009600  6e 6f 6f 66 70 6c 61 79  65 72 73 0d 42 cc 23 e7  |noofplayers.B.#.|
00009610  63 75 72 72 65 6e 74 52  25 28 49 25 29 3e 63 75  |currentR%(I%)>cu|
00009620  72 72 65 6e 74 52 25 28  49 25 2d 31 29 8c 0d 42  |rrentR%(I%-1)..B|
00009630  d6 0c f2 73 77 61 70 61  6c 6c 0d 42 e0 05 cd 0d  |...swapall.B....|
00009640  42 ea 07 ed 3a ed 0d 42  f4 05 cd 0d 42 fe 18 73  |B...:..B....B..s|
00009650  74 72 6f 6b 65 25 3d 63  75 72 72 65 6e 74 53 25  |troke%=currentS%|
00009660  28 31 29 0d 43 08 17 73  6b 69 6c 6c 25 3d 63 75  |(1).C..skill%=cu|
00009670  72 72 65 6e 74 73 25 28  31 29 0d 43 12 23 e7 63  |rrents%(1).C.#.c|
00009680  75 72 72 65 6e 74 78 25  28 31 29 3d 30 80 63 75  |urrentx%(1)=0.cu|
00009690  72 72 65 6e 74 79 25 28  31 29 3d 30 8c 0d 43 1c  |rrenty%(1)=0..C.|
000096a0  1c 72 6f 75 6e 64 25 3d  b9 3a 6d 61 70 70 6f 69  |.round%=.:mappoi|
000096b0  6e 74 25 2b 3d 26 33 30  30 0d 43 26 05 cd 0d 43  |nt%+=&300.C&...C|
000096c0  30 15 e7 68 61 6e 64 25  28 31 29 3c 3e 48 61 6e  |0..hand%(1)<>Han|
000096d0  64 25 8c 0d 43 3a 12 48  61 6e 64 25 3d 68 61 6e  |d%..C:.Hand%=han|
000096e0  64 25 28 31 29 0d 43 44  21 e3 54 25 3d 31 b8 31  |d%(1).CD!.T%=1.1|
000096f0  31 3a ff 28 22 53 46 6c  69 70 59 20 22 2b c3 28  |1:.("SFlipY "+.(|
00009700  54 25 29 29 3a ed 0d 43  4e 22 e3 54 25 3d 33 31  |T%)):..CN".T%=31|
00009710  b8 33 38 3a ff 28 22 53  46 6c 69 70 59 20 22 2b  |.38:.("SFlipY "+|
00009720  c3 28 54 25 29 29 3a ed  0d 43 58 0e 2a 53 46 6c  |.(T%)):..CX.*SFl|
00009730  69 70 59 20 32 30 0d 43  62 05 cd 0d 43 6c 05 e1  |ipY 20.Cb...Cl..|
00009740  0d 43 76 07 f4 20 15 0d  43 80 11 dd f2 67 65 74  |.Cv.. ..C....get|
00009750  70 6c 61 79 76 61 6c 73  0d 43 8a 24 58 25 3d 63  |playvals.C.$X%=c|
00009760  75 72 72 65 6e 74 78 25  28 31 29 3a 59 59 25 3d  |urrentx%(1):YY%=|
00009770  63 75 72 72 65 6e 74 79  25 28 31 29 0d 43 94 05  |currenty%(1).C..|
00009780  e1 0d 43 9e 07 f4 20 15  0d 43 a8 0b dd f2 6c 69  |..C... ..C....li|
00009790  67 68 74 0d 43 b2 0a 59  25 3d 59 59 25 0d 43 bc  |ght.C..Y%=YY%.C.|
000097a0  16 e7 59 25 3e 30 80 58  25 3e 30 21 70 78 25 3d  |..Y%>0.X%>0!px%=|
000097b0  6c 69 25 0d 43 c6 1d e7  59 25 3e 30 80 58 25 3c  |li%.C...Y%>0.X%<|
000097c0  3d 30 21 70 78 25 3d 28  6c 69 25 2b 31 29 80 33  |=0!px%=(li%+1).3|
000097d0  0d 43 d0 1e e7 59 25 3c  3d 30 80 58 25 3c 3d 30  |.C...Y%<=0.X%<=0|
000097e0  21 70 78 25 3d 28 6c 69  25 2b 32 29 80 33 0d 43  |!px%=(li%+2).3.C|
000097f0  da 1d e7 59 25 3c 3d 30  80 58 25 3e 30 21 70 78  |...Y%<=0.X%>0!px|
00009800  25 3d 28 6c 69 25 2b 33  29 80 33 0d 43 e4 05 e1  |%=(li%+3).3.C...|
00009810  0d 43 ee 07 f4 20 15 0d  43 f8 10 dd f2 64 72 61  |.C... ..C....dra|
00009820  77 73 63 72 65 65 6e 0d  44 02 1a 50 25 3d 6d 61  |wscreen.D..P%=ma|
00009830  70 70 6f 69 6e 74 25 3a  41 41 25 3d a4 6d 61 70  |ppoint%:AA%=.map|
00009840  31 0d 44 0c 1b f2 63 61  6c 74 72 65 28 78 25 28  |1.D...caltre(x%(|
00009850  29 2c 79 25 28 29 2c 7a  25 28 29 29 0d 44 16 35  |),y%(),z%()).D.5|
00009860  d6 73 6f 72 74 2c 62 73  25 2c 52 25 2c 42 59 25  |.sort,bs%,R%,BY%|
00009870  2c 4b 25 2c 78 31 25 2c  79 31 25 2c 68 25 2c 41  |,K%,x1%,y1%,h%,A|
00009880  41 25 2c 78 25 28 29 2c  7a 25 28 29 2c 79 25 28  |A%,x%(),z%(),y%(|
00009890  29 0d 44 20 13 f2 77 69  6e 64 6f 77 73 3a f2 73  |).D ..windows:.s|
000098a0  63 65 65 6e 0d 44 2a 05  e1 0d 44 34 07 f4 20 15  |ceen.D*...D4.. .|
000098b0  0d 44 3e 11 dd f2 73 69  6e 65 28 58 25 2c 59 25  |.D>...sine(X%,Y%|
000098c0  29 0d 44 48 19 52 25 3d  a4 64 69 73 74 61 6e 63  |).DH.R%=.distanc|
000098d0  65 28 94 58 25 2c 94 59  25 29 0d 44 52 25 67 72  |e(.X%,.Y%).DR%gr|
000098e0  65 65 6e 25 3d 28 52 25  3c 35 32 35 29 3a 4d 61  |een%=(R%<525):Ma|
000098f0  3d 2e 37 2d 28 67 72 65  65 6e 25 2a 2e 33 29 0d  |=.7-(green%*.3).|
00009900  44 5c 31 4f 4c 25 3d 28  bb 28 c3 7e 28 28 6d 61  |D\1OL%=(.(.~((ma|
00009910  70 21 28 6d 61 70 70 6f  69 6e 74 25 2b 26 32 46  |p!(mappoint%+&2F|
00009920  41 29 29 80 26 46 46 46  46 29 29 29 3e 34 34 30  |A)).&FFFF)))>440|
00009930  0d 44 66 2a 72 3d 31 32  30 39 36 2d 32 30 30 30  |.Df*r=12096-2000|
00009940  2a 67 72 65 65 6e 25 2d  31 35 30 30 2a 28 4f 4c  |*green%-1500*(OL|
00009950  25 80 ac 67 72 65 65 6e  25 29 0d 44 70 0a 64 3d  |%..green%).Dp.d=|
00009960  72 2d 52 25 0d 44 7a 28  67 25 3d 2d 67 72 65 65  |r-R%.Dz(g%=-gree|
00009970  6e 25 3a 4f 25 3d 2d 36  32 39 32 2a 67 72 65 65  |n%:O%=-6292*gree|
00009980  6e 25 3a 48 25 3d 32 35  30 2b 4f 25 0d 44 84 1d  |n%:H%=250+O%.D..|
00009990  76 61 3d 2d 58 25 2f 52  25 3a 76 62 3d 59 25 2f  |va=-X%/R%:vb=Y%/|
000099a0  52 25 3a 76 69 3d 2d 76  62 0d 44 8e 05 e1 0d 44  |R%:vi=-vb.D....D|
000099b0  98 07 f4 20 15 0d 44 a2  15 dd a4 64 69 73 74 61  |... ..D....dista|
000099c0  6e 63 65 28 78 25 2c 79  25 29 0d 44 ac 11 3d b6  |nce(x%,y%).D..=.|
000099d0  28 78 25 5e 32 2b 79 25  5e 32 29 0d 44 b6 07 f4  |(x%^2+y%^2).D...|
000099e0  20 15 0d 44 c0 0e dd f2  67 65 74 73 74 61 72 74  | ..D....getstart|
000099f0  0d 44 ca 1e 50 25 3d 26  32 45 38 2b 6d 61 70 70  |.D..P%=&2E8+mapp|
00009a00  6f 69 6e 74 25 3a 58 25  3d a4 6d 61 70 32 0d 44  |oint%:X%=.map2.D|
00009a10  d4 0d 59 59 25 3d a4 6d  61 70 32 0d 44 de 1e 48  |..YY%=.map2.D..H|
00009a20  6f 6c 65 25 3d 6d 61 70  3f 28 6d 61 70 70 6f 69  |ole%=map?(mappoi|
00009a30  6e 74 25 2b 26 32 46 38  29 0d 44 e8 14 73 74 78  |nt%+&2F8).D..stx|
00009a40  25 3d 58 25 3a 73 74 79  25 3d 59 59 25 0d 44 f2  |%=X%:sty%=YY%.D.|
00009a50  13 f4 59 59 25 3d 31 35  2a 32 31 3a 58 25 3d 30  |..YY%=15*21:X%=0|
00009a60  0d 44 fc 15 e3 54 25 3d  31 b8 6e 6f 6f 66 70 6c  |.D...T%=1.noofpl|
00009a70  61 79 65 72 73 0d 45 06  14 63 75 72 72 65 6e 74  |ayers.E..current|
00009a80  78 25 28 54 25 29 3d 58  25 0d 45 10 15 63 75 72  |x%(T%)=X%.E..cur|
00009a90  72 65 6e 74 79 25 28 54  25 29 3d 59 59 25 0d 45  |renty%(T%)=YY%.E|
00009aa0  1a 23 63 75 72 72 65 6e  74 52 25 28 54 25 29 3d  |.#currentR%(T%)=|
00009ab0  a4 64 69 73 74 61 6e 63  65 28 58 25 2c 59 59 25  |.distance(X%,YY%|
00009ac0  29 0d 45 24 13 63 75 72  72 65 6e 74 53 25 28 54  |).E$.currentS%(T|
00009ad0  25 29 3d 30 0d 45 2e 05  ed 0d 45 38 05 e1 0d 45  |%)=0.E....E8...E|
00009ae0  42 07 f4 20 15 0d 45 4c  0c dd f2 63 68 68 6f 6c  |B.. ..EL...chhol|
00009af0  65 0d 45 56 09 42 25 2d  3d 31 0d 45 60 21 e7 28  |e.EV.B%-=1.E`!.(|
00009b00  42 25 3e 30 80 28 79 61  3e 34 84 ac 67 72 65 65  |B%>0.(ya>4..gree|
00009b10  6e 25 29 29 84 68 25 3e  33 30 e1 0d 45 6a 34 e7  |n%)).h%>30..Ej4.|
00009b20  68 25 3e 31 84 94 28 4f  42 59 25 2d 42 59 25 29  |h%>1..(OBY%-BY%)|
00009b30  3e 35 84 28 ac 67 72 65  65 6e 25 80 b3 28 35 29  |>5.(.green%..(5)|
00009b40  3c 3e 32 29 f2 72 69 63  3a 42 25 3d 34 3a e1 0d  |<>2).ric:B%=4:..|
00009b50  45 74 0d dd f2 63 68 68  6f 6c 65 32 0d 45 7e 14  |Et...chhole2.E~.|
00009b60  44 25 3d b9 3a 2a 53 43  48 4f 4f 53 45 20 73 68  |D%=.:*SCHOOSE sh|
00009b70  0d 45 88 12 f0 26 45 44  2c 6f 73 78 25 2c 6f 73  |.E...&ED,osx%,os|
00009b80  79 25 0d 45 92 0f 2a 53  43 48 4f 4f 53 45 20 67  |y%.E..*SCHOOSE g|
00009b90  72 0d 45 9c 10 f0 26 45  44 2c 6f 78 25 2c 6f 79  |r.E...&ED,ox%,oy|
00009ba0  25 0d 45 a6 19 2a 43 48  41 4e 4e 45 4c 56 4f 49  |%.E..*CHANNELVOI|
00009bb0  43 45 20 31 20 48 4f 4c  45 44 0d 45 b0 10 d4 31  |CE 1 HOLED.E...1|
00009bc0  2c 2d 31 35 2c 32 30 2c  32 30 0d 45 ba 0d f2 64  |,-15,20,20.E...d|
00009bd0  65 6c 28 31 35 30 29 0d  45 c4 0d f2 68 6f 6c 65  |el(150).E...hole|
00009be0  64 6f 75 74 0d 45 ce 27  79 61 3d 30 3a 75 3d 30  |dout.E.'ya=0:u=0|
00009bf0  3a 75 64 3d 30 3a 70 25  3d 30 3a 68 25 3d 30 3a  |:ud=0:p%=0:h%=0:|
00009c00  78 31 25 3d 30 3a 79 31  25 3d 30 0d 45 d8 05 e1  |x1%=0:y1%=0.E...|
00009c10  0d 45 e2 07 f4 20 15 0d  45 ec 0e dd f2 68 6f 6c  |.E... ..E....hol|
00009c20  65 64 6f 75 74 0d 45 f6  13 ea 41 24 2c 42 24 2c  |edout.E...A$,B$,|
00009c30  43 24 2c 46 25 2c 53 25  0d 46 00 23 53 25 3d 73  |C$,F%,S%.F.#S%=s|
00009c40  74 72 6f 6b 65 25 2d 6d  61 70 3f 28 6d 61 70 70  |troke%-map?(mapp|
00009c50  6f 69 6e 74 25 2b 26 32  46 39 29 0d 46 0a 09 c8  |oint%+&2F9).F...|
00009c60  8e 53 25 ca 0d 46 14 1e  c9 31 3a 41 24 3d 22 49  |.S%..F...1:A$="I|
00009c70  54 27 53 20 41 20 42 4f  47 49 45 22 3a 42 24 3d  |T'S A BOGIE":B$=|
00009c80  22 22 0d 46 1e 2c c9 30  3a 41 24 3d 22 48 4f 4c  |"".F.,.0:A$="HOL|
00009c90  45 44 20 4f 55 54 20 54  4f 20 50 41 52 22 3a 42  |ED OUT TO PAR":B|
00009ca0  24 3d 22 57 45 4c 4c 20  44 4f 4e 45 21 22 0d 46  |$="WELL DONE!".F|
00009cb0  28 32 c9 2d 31 3a 41 24  3d 22 4e 49 43 45 20 4f  |(2.-1:A$="NICE O|
00009cc0  4e 45 20 22 2b 6e 61 6d  65 24 28 31 29 3a 42 24  |NE "+name$(1):B$|
00009cd0  3d 22 49 54 27 53 20 41  20 42 49 52 44 49 45 22  |="IT'S A BIRDIE"|
00009ce0  0d 46 32 35 c9 2d 32 3a  41 24 3d 22 53 55 50 45  |.F25.-2:A$="SUPE|
00009cf0  52 42 20 50 4c 41 59 20  22 2b 6e 61 6d 65 24 28  |RB PLAY "+name$(|
00009d00  31 29 3a 42 24 3d 22 49  54 27 53 20 41 4e 20 45  |1):B$="IT'S AN E|
00009d10  41 47 4c 45 22 0d 46 3c  45 c9 2d 33 3a 41 24 3d  |AGLE".F<E.-3:A$=|
00009d20  22 43 4f 4e 47 52 41 54  55 4c 41 54 49 4f 4e 53  |"CONGRATULATIONS|
00009d30  20 22 2b 6e 61 6d 65 24  28 31 29 3a 42 24 3d 22  | "+name$(1):B$="|
00009d40  59 4f 55 27 56 45 20 46  4c 4f 57 4e 20 41 4e 20  |YOU'VE FLOWN AN |
00009d50  41 4c 42 41 54 52 4f 53  53 22 0d 46 46 2b 7f 20  |ALBATROSS".FF+. |
00009d60  41 24 3d 22 48 4f 4c 45  44 20 4f 55 54 20 22 2b  |A$="HOLED OUT "+|
00009d70  c3 53 25 2b 22 20 4f 56  45 52 20 50 41 52 22 3a  |.S%+" OVER PAR":|
00009d80  42 24 3d 22 22 0d 46 50  05 cb 0d 46 5a 63 43 24  |B$="".FP...FZcC$|
00009d90  3d 22 22 3a 46 25 3d 33  3a 53 25 3d 35 3a e7 73  |="":F%=3:S%=5:.s|
00009da0  74 72 6f 6b 65 25 3d 31  41 24 3d 22 57 4f 57 21  |troke%=1A$="WOW!|
00009db0  20 49 54 27 53 20 41 20  48 4f 4c 45 20 49 4e 20  | IT'S A HOLE IN |
00009dc0  4f 4e 45 22 3a 42 24 3d  22 4b 4e 4f 43 4b 45 44  |ONE":B$="KNOCKED|
00009dd0  20 49 4e 20 42 59 22 3a  43 24 3d 6e 61 6d 65 24  | IN BY":C$=name$|
00009de0  28 31 29 3a 46 25 3d 36  3a 53 25 3d 33 0d 46 64  |(1):F%=6:S%=3.Fd|
00009df0  26 e7 20 a9 41 24 3c a9  42 24 f5 3a 41 24 3d 22  |&. .A$<.B$.:A$="|
00009e00  20 22 2b 41 24 2b 22 20  22 3a fd a9 41 24 3e 3d  | "+A$+" ":..A$>=|
00009e10  a9 42 24 0d 46 6e 1c f2  6d 65 73 77 69 6e 64 28  |.B$.Fn..meswind(|
00009e20  41 24 2c 42 24 2c 43 24  2c 46 25 2c 53 25 29 0d  |A$,B$,C$,F%,S%).|
00009e30  46 78 0c f2 64 65 6c 28  35 30 29 0d 46 82 05 e1  |Fx..del(50).F...|
00009e40  0d 46 8c 07 f4 20 15 0d  46 96 09 dd f2 72 69 63  |.F... ..F....ric|
00009e50  0d 46 a0 0f d4 34 2c 2d  31 35 2c 32 30 2c 31 0d  |.F...4,-15,20,1.|
00009e60  46 aa 0a dd f2 32 72 69  63 0d 46 b4 1d 75 3d 75  |F....2ric.F..u=u|
00009e70  2a 34 3a e7 75 3d 30 75  3d 28 33 2b b3 28 35 29  |*4:.u=0u=(3+.(5)|
00009e80  29 2a b4 78 31 25 0d 46  be 15 79 61 3d 79 61 20  |)*.x1%.F..ya=ya |
00009e90  81 32 3a 70 25 3d 79 61  20 81 33 0d 46 c8 1b e7  |.2:p%=ya .3.F...|
00009ea0  ac 67 72 65 65 6e 25 80  79 61 3d 30 20 68 25 3d  |.green%.ya=0 h%=|
00009eb0  30 3a 70 25 3d 30 0d 46  d2 05 e1 0d 46 dc 07 f4  |0:p%=0.F....F...|
00009ec0  20 15 0d 46 e6 0c dd f2  66 6c 69 67 68 74 0d 46  | ..F....flight.F|
00009ed0  f0 0c 4f 42 59 25 3d 42  59 25 0d 46 fa 5b f5 f2  |..OBY%=BY%.F.[..|
00009ee0  66 6c 79 3a ef 32 33 2c  32 37 3b 6d 25 28 38 2c  |fly:.23,27;m%(8,|
00009ef0  67 25 29 7c 3a f0 26 45  44 2c 6d 78 25 28 67 25  |g%)|:.&ED,mx%(g%|
00009f00  2c 48 61 6e 64 25 29 2c  6d 79 25 28 67 25 29 3a  |,Hand%),my%(g%):|
00009f10  e7 62 61 25 3a ef 32 33  2c 32 37 3b 32 30 7c 3a  |.ba%:.23,27;20|:|
00009f20  f0 26 45 44 2c 62 61 67  25 28 48 61 6e 64 25 29  |.&ED,bag%(Hand%)|
00009f30  2c 2d 37 35 34 0d 47 04  41 e7 67 72 65 65 6e 25  |,-754.G.A.green%|
00009f40  80 68 25 3d 30 c8 99 36  2c 31 31 32 2c 32 3a 47  |.h%=0..6,112,2:G|
00009f50  25 3d b0 73 78 25 2b 34  2c 73 79 25 2b 34 29 3a  |%=.sx%+4,sy%+4):|
00009f60  c8 99 36 2c 31 31 32 2c  31 3a e7 47 25 3d 30 f2  |..6,112,1:.G%=0.|
00009f70  63 68 68 6f 6c 65 0d 47  0e 30 4f 42 59 25 3d 42  |chhole.G.0OBY%=B|
00009f80  59 25 3a e7 ac 67 72 65  65 6e 25 80 94 28 78 31  |Y%:..green%..(x1|
00009f90  25 2b 34 29 3c 35 80 94  28 79 31 25 29 3c 35 f2  |%+4)<5..(y1%)<5.|
00009fa0  63 68 68 6f 6c 65 0d 47  18 17 e7 94 73 6c 3e 79  |chhole.G....sl>y|
00009fb0  61 20 73 6c 3d 79 61 2f  32 2a b4 73 6c 0d 47 22  |a sl=ya/2*.sl.G"|
00009fc0  10 77 63 2d 3d 31 3a e7  77 63 3d 30 8c 0d 47 2c  |.wc-=1:.wc=0..G,|
00009fd0  17 77 63 3d 77 63 32 3a  e7 77 63 32 3e 31 77 63  |.wc=wc2:.wc2>1wc|
00009fe0  32 2d 3d 31 0d 47 36 11  57 58 2b 3d 77 78 3a 57  |2-=1.G6.WX+=wx:W|
00009ff0  59 2b 3d 77 79 0d 47 40  05 cd 0d 47 4a 15 fd 79  |Y+=wy.G@...GJ..y|
0000a000  61 3c 3d 30 80 68 25 3d  30 80 94 70 25 3c 32 0d  |a<=0.h%=0..p%<2.|
0000a010  47 54 12 59 59 25 3d 79  31 25 3a 58 25 3d 78 31  |GT.YY%=y1%:X%=x1|
0000a020  25 0d 47 5e 10 e7 44 25  84 ac 67 72 65 65 6e 25  |%.G^..D%..green%|
0000a030  e1 0d 47 68 0c 2a 46 58  31 31 32 2c 32 0d 47 72  |..Gh.*FX112,2.Gr|
0000a040  10 47 25 3d b0 73 78 25  2c 73 79 25 29 0d 47 7c  |.G%=.sx%,sy%).G||
0000a050  13 47 31 25 3d b0 73 78  25 2c 73 79 25 2b 38 29  |.G1%=.sx%,sy%+8)|
0000a060  0d 47 86 0c 2a 46 58 31  31 32 2c 31 0d 47 90 17  |.G..*FX112,1.G..|
0000a070  e7 28 47 25 80 47 31 25  29 3d 30 f2 63 68 68 6f  |.(G%.G1%)=0.chho|
0000a080  6c 65 32 0d 47 9a 05 e1  0d 47 a4 07 f4 20 15 0d  |le2.G....G... ..|
0000a090  47 ae 09 dd f2 66 6c 79  0d 47 b8 11 e7 68 25 3c  |G....fly.G...h%<|
0000a0a0  34 80 79 61 3c 31 36 c8  96 0d 47 c2 2d c8 96 3a  |4.ya<16...G.-..:|
0000a0b0  42 58 2b 3d 75 2a 79 64  2b 53 6c 3a 53 6c 2b 3d  |BX+=u*yd+Sl:Sl+=|
0000a0c0  73 6c 3a 75 2d 3d 75 64  3a e7 94 75 3e 79 61 20  |sl:u-=ud:..u>ya |
0000a0d0  75 3d 75 3e 3e 31 0d 47  cc 21 42 59 25 2b 3d 79  |u=u>>1.G.!BY%+=y|
0000a0e0  61 2a 79 64 3a e7 79 61  3e 30 20 79 61 2d 3d 2e  |a*yd:.ya>0 ya-=.|
0000a0f0  35 3a 8b 79 61 3d 30 0d  47 d6 46 78 31 25 3d 76  |5:.ya=0.G.Fx1%=v|
0000a100  61 2a 42 59 25 2b 76 62  2a 42 58 2b 57 58 3a 79  |a*BY%+vb*BX+WX:y|
0000a110  31 25 3d 76 69 2a 42 59  25 2b 76 61 2a 42 58 2b  |1%=vi*BY%+va*BX+|
0000a120  57 59 3a 68 25 2b 3d 70  25 2a 4d 61 3a 70 25 2d  |WY:h%+=p%*Ma:p%-|
0000a130  3d 31 3a e7 70 25 3c 31  30 46 25 3d b9 0d 47 e0  |=1:.p%<10F%=..G.|
0000a140  12 e7 68 25 3c 3d 30 20  f2 62 6f 75 6e 63 65 0d  |..h%<=0 .bounce.|
0000a150  47 ea 36 f2 76 74 28 79  31 25 2c 78 31 25 2c 48  |G.6.vt(y1%,x1%,H|
0000a160  25 29 3a 73 78 25 3d 78  73 25 3a 73 79 25 3d 79  |%):sx%=xs%:sy%=y|
0000a170  73 25 3a f2 76 74 28 79  31 25 2c 78 31 25 2c 48  |s%:.vt(y1%,x1%,H|
0000a180  25 2d 68 25 29 0d 47 f4  2e e7 4b 25 3d b9 20 75  |%-h%).G...K%=. u|
0000a190  64 3d 30 3a 79 61 3d 30  3a 70 25 3d 30 3a 75 3d  |d=0:ya=0:p%=0:u=|
0000a1a0  30 3a 4b 25 3d 31 3a d4  33 2c 2d 31 30 2c 32 30  |0:K%=1:.3,-10,20|
0000a1b0  2c 34 30 0d 47 fe 37 e7  57 25 d6 20 70 6c 6f 74  |,40.G.7.W%. plot|
0000a1c0  62 61 6c 6c 2c 62 73 25  2c 6f 79 25 2c 6f 78 25  |ball,bs%,oy%,ox%|
0000a1d0  2c 6f 73 79 25 2c 6f 73  78 25 2c 79 73 25 2c 78  |,osy%,osx%,ys%,x|
0000a1e0  73 25 2c 73 79 25 2c 73  78 25 0d 48 08 05 e1 0d  |s%,sy%,sx%.H....|
0000a1f0  48 12 07 f4 20 15 0d 48  1c 0c dd f2 77 61 6c 74  |H... ..H....walt|
0000a200  65 72 0d 48 26 1a 2a 43  48 41 4e 4e 45 4c 56 4f  |er.H&.*CHANNELVO|
0000a210  49 43 45 20 31 20 53 48  4f 4f 53 48 0d 48 30 0a  |ICE 1 SHOOSH.H0.|
0000a220  ea 54 25 2c 49 25 0d 48  3a 2c 79 64 3d 31 2b 28  |.T%,I%.H:,yd=1+(|
0000a230  2e 37 35 2a 67 72 65 65  6e 25 29 3a e3 54 25 3d  |.75*green%):.T%=|
0000a240  31 b8 35 3a 2a 53 43 48  4f 4f 53 45 20 42 4c 41  |1.5:*SCHOOSE BLA|
0000a250  43 4b 0d 48 44 5e c8 96  3a f0 26 45 44 2c 6d 78  |CK.HD^..:.&ED,mx|
0000a260  25 28 67 25 2c 48 61 6e  64 25 29 2c 6d 79 25 28  |%(g%,Hand%),my%(|
0000a270  67 25 29 3a ef 32 33 2c  32 37 3b 6d 25 28 54 25  |g%):.23,27;m%(T%|
0000a280  2c 67 25 29 7c 3a f0 26  45 44 2c 6d 78 25 28 67  |,g%)|:.&ED,mx%(g|
0000a290  25 2c 48 61 6e 64 25 29  2c 6d 79 25 28 67 25 29  |%,Hand%),my%(g%)|
0000a2a0  3a e3 49 25 3d 30 b8 54  25 3a c8 96 3a ed 3a ed  |:.I%=0.T%:..:.:.|
0000a2b0  0d 48 4e 1c e3 54 25 3d  35 b8 31 88 b9 3a 2a 53  |.HN..T%=5.1..:*S|
0000a2c0  43 48 4f 4f 53 45 20 42  4c 41 43 4b 0d 48 58 1d  |CHOOSE BLACK.HX.|
0000a2d0  e7 54 25 3d 33 80 ac 67  72 65 65 6e 25 d4 31 2c  |.T%=3..green%.1,|
0000a2e0  53 4f 25 2c 34 30 2c 34  30 0d 48 62 5b e3 49 25  |SO%,40,40.Hb[.I%|
0000a2f0  3d 31 b8 54 25 3a c8 96  3a ed 3a f0 26 45 44 2c  |=1.T%:..:.:.&ED,|
0000a300  6d 78 25 28 67 25 2c 48  61 6e 64 25 29 2c 6d 79  |mx%(g%,Hand%),my|
0000a310  25 28 67 25 29 3a ef 32  33 2c 32 37 3b 6d 25 28  |%(g%):.23,27;m%(|
0000a320  54 25 2c 67 25 29 7c 3a  f0 26 45 44 2c 6d 78 25  |T%,g%)|:.&ED,mx%|
0000a330  28 67 25 2c 48 61 6e 64  25 29 2c 6d 79 25 28 67  |(g%,Hand%),my%(g|
0000a340  25 29 3a ed 0d 48 6c 0f  d4 32 2c 53 4f 25 2c 31  |%):..Hl..2,SO%,1|
0000a350  2c 31 30 0d 48 76 19 e3  54 25 3d 36 b8 38 3a e7  |,10.Hv..T%=6.8:.|
0000a360  54 25 3e 36 f2 66 6c 79  3a 8b c8 96 0d 48 80 12  |T%>6.fly:....H..|
0000a370  2a 53 43 48 4f 4f 53 45  20 70 6c 61 69 6e 0d 48  |*SCHOOSE plain.H|
0000a380  8a 2d e7 ac 67 72 65 65  6e 25 3a c8 96 3a f0 26  |.-..green%:..:.&|
0000a390  45 44 2c 6d 78 25 28 67  25 2c 48 61 6e 64 25 29  |ED,mx%(g%,Hand%)|
0000a3a0  2c 6d 79 25 28 67 25 29  8b c8 96 0d 48 94 30 ef  |,my%(g%)....H.0.|
0000a3b0  32 33 2c 32 37 3b 6d 25  28 54 25 2c 67 25 29 7c  |23,27;m%(T%,g%)||
0000a3c0  3a f0 26 45 44 2c 6d 78  25 28 67 25 2c 48 61 6e  |:.&ED,mx%(g%,Han|
0000a3d0  64 25 29 2c 6d 79 25 28  67 25 29 0d 48 9e 54 e7  |d%),my%(g%).H.T.|
0000a3e0  6c 69 65 25 3d 31 3a e6  31 3a e3 49 25 3d 30 b8  |lie%=1:.1:.I%=0.|
0000a3f0  32 30 3a c8 92 73 61 25  28 30 2c 54 25 2d 36 2c  |20:..sa%(0,T%-6,|
0000a400  49 25 29 2b 28 54 25 2b  31 30 29 2a 48 61 6e 64  |I%)+(T%+10)*Hand|
0000a410  25 2c 73 61 25 28 31 2c  54 25 2d 36 2c 49 25 29  |%,sa%(1,T%-6,I%)|
0000a420  2b 6d 79 25 28 67 25 29  3a ed 3a e6 38 2c 30 0d  |+my%(g%):.:.8,0.|
0000a430  48 a8 05 ed 0d 48 b2 0d  f2 66 6c 79 3a f2 66 6c  |H....H...fly:.fl|
0000a440  79 0d 48 bc 12 2a 53 43  48 4f 4f 53 45 20 70 6c  |y.H..*SCHOOSE pl|
0000a450  61 69 6e 0d 48 c6 4d c8  96 3a f0 26 45 44 2c 6d  |ain.H.M..:.&ED,m|
0000a460  78 25 28 67 25 2c 48 61  6e 64 25 29 2c 6d 79 25  |x%(g%,Hand%),my%|
0000a470  28 67 25 29 3a ef 32 33  2c 32 37 3b 6d 25 28 38  |(g%):.23,27;m%(8|
0000a480  2c 67 25 29 7c 3a f0 26  45 44 2c 6d 78 25 28 67  |,g%)|:.&ED,mx%(g|
0000a490  25 2c 48 61 6e 64 25 29  2c 6d 79 25 28 67 25 29  |%,Hand%),my%(g%)|
0000a4a0  0d 48 d0 05 e1 0d 48 da  07 f4 20 15 0d 48 e4 0d  |.H....H... ..H..|
0000a4b0  dd f2 64 65 6c 28 54 25  29 0d 48 ee 0e d1 3d 30  |..del(T%).H...=0|
0000a4c0  3a f5 fd 91 3e 54 25 0d  48 f8 05 e1 0d 49 02 07  |:...>T%.H....I..|
0000a4d0  f4 20 15 0d 49 0c 0c dd  f2 62 75 6e 6b 65 72 0d  |. ..I....bunker.|
0000a4e0  49 16 16 e6 33 32 2c 30  3a 48 25 2b 3d 32 3a 50  |I...32,0:H%+=2:P|
0000a4f0  25 3d 6f 50 25 0d 49 20  0d f2 64 72 61 77 62 75  |%=oP%.I ..drawbu|
0000a500  6e 6b 0d 49 2a 13 e6 32  3a 48 25 2b 3d 32 3a 50  |nk.I*..2:H%+=2:P|
0000a510  25 3d 6f 50 25 0d 49 34  0d f2 64 72 61 77 62 75  |%=oP%.I4..drawbu|
0000a520  6e 6b 0d 49 3e 09 48 25  2d 3d 34 0d 49 48 05 e1  |nk.I>.H%-=4.IH..|
0000a530  0d 49 52 07 f4 20 15 0d  49 5c 0e dd f2 64 72 61  |.IR.. ..I\...dra|
0000a540  77 62 75 6e 6b 0d 49 66  3c 6e 70 25 3d a4 6d 61  |wbunk.If<np%=.ma|
0000a550  70 31 3a f2 6d 61 70 28  43 58 25 2c 43 59 25 2c  |p1:.map(CX%,CY%,|
0000a560  48 25 2c 34 2c 72 29 3a  f2 6d 61 70 33 28 53 58  |H%,4,r):.map3(SX|
0000a570  25 2c 53 59 25 2c 48 25  2c 34 2c 72 2c 43 58 25  |%,SY%,H%,4,r,CX%|
0000a580  29 0d 49 70 35 e3 49 25  3d 31 b8 6e 70 25 2d 31  |).Ip5.I%=1.np%-1|
0000a590  3a f2 6d 61 70 33 28 58  49 25 2c 59 49 25 2c 48  |:.map3(XI%,YI%,H|
0000a5a0  25 2c 38 35 2c 72 2c 43  58 25 29 3a ec 43 58 25  |%,85,r,CX%):.CX%|
0000a5b0  2c 43 59 25 3a ed 0d 49  7a 0f f0 38 35 2c 53 58  |,CY%:..Iz..85,SX|
0000a5c0  25 2c 53 59 25 0d 49 84  05 e1 0d 49 8e 07 f4 20  |%,SY%.I....I... |
0000a5d0  15 0d 49 98 21 dd f2 6d  61 70 33 28 f8 20 78 25  |..I.!..map3(. x%|
0000a5e0  2c f8 20 79 25 2c 7a 25  2c 70 25 2c 72 2c 43 58  |,. y%,z%,p%,r,CX|
0000a5f0  25 29 0d 49 a2 08 ea 70  4f 25 0d 49 ac 56 79 25  |%).I...pO%.I.Vy%|
0000a600  3d a4 6d 61 70 32 3a 78  25 3d a4 6d 61 70 32 3a  |=.map2:x%=.map2:|
0000a610  78 65 3d 76 61 2a 78 25  2b 76 62 2a 79 25 3a 7a  |xe=va*x%+vb*y%:z|
0000a620  65 3d 28 76 69 2a 78 25  2b 76 61 2a 79 25 2b 72  |e=(vi*x%+va*y%+r|
0000a630  29 2a 4d 61 3a 78 25 3d  64 2a 78 65 20 81 7a 65  |)*Ma:x%=d*xe .ze|
0000a640  3a 79 25 3d 2d 28 64 2a  7a 25 81 7a 65 29 2a 32  |:y%=-(d*z%.ze)*2|
0000a650  0d 49 b6 29 e7 ac 67 72  65 65 6e 25 e7 79 25 3e  |.I.)..green%.y%>|
0000a660  2d 33 32 84 79 25 3c 26  46 46 46 46 38 30 30 30  |-32.y%<&FFFF8000|
0000a670  20 79 25 3d 2d 36 30 30  30 0d 49 c0 15 78 25 3d  | y%=-6000.I..x%=|
0000a680  78 25 2d b4 28 78 25 2d  43 58 25 29 2a 34 0d 49  |x%-.(x%-CX%)*4.I|
0000a690  ca 0f 70 4f 25 3d b0 78  25 2c 79 25 29 0d 49 d4  |..pO%=.x%,y%).I.|
0000a6a0  0b c8 95 70 4f 25 3e 33  0d 49 de 15 79 25 2b 3d  |...pO%>3.I..y%+=|
0000a6b0  34 3a 70 4f 25 3d b0 78  25 2c 79 25 29 0d 49 e8  |4:pO%=.x%,y%).I.|
0000a6c0  05 ce 0d 49 f2 0d f0 70  25 2c 78 25 2c 79 25 0d  |...I...p%,x%,y%.|
0000a6d0  49 fc 05 e1 0d 4a 06 07  f4 20 15 0d 4a 10 0b dd  |I....J... ..J...|
0000a6e0  f2 73 63 65 65 6e 0d 4a  1a 0d 4e 6f 25 3d a4 6d  |.sceen.J..No%=.m|
0000a6f0  61 70 31 0d 4a 24 0c 72  6f 75 67 68 3d 50 25 0d  |ap1.J$.rough=P%.|
0000a700  4a 2e 0c e7 67 72 65 65  6e 25 8c 0d 4a 38 0d 43  |J...green%..J8.C|
0000a710  6f 25 3d a4 6d 61 70 31  0d 4a 42 0f f5 3a 6e 70  |o%=.map1.JB..:np|
0000a720  25 3d a4 6d 61 70 31 0d  4a 4c 22 50 25 3d 50 25  |%=.map1.JL"P%=P%|
0000a730  2b 6e 70 25 2a 34 2b 34  3a 43 6f 25 3d a4 6d 61  |+np%*4+4:Co%=.ma|
0000a740  70 31 3a 4e 6f 25 2d 3d  31 0d 4a 56 16 fd 43 6f  |p1:No%-=1.JV..Co|
0000a750  25 3d 35 84 43 6f 25 3d  31 3a 50 25 2d 3d 31 0d  |%=5.Co%=1:P%-=1.|
0000a760  4a 60 05 cd 0d 4a 6a 2d  73 50 25 3d 50 25 3a e3  |J`...Jj-sP%=P%:.|
0000a770  54 25 3d 31 b8 4e 6f 25  3a 43 6f 25 3d a4 6d 61  |T%=1.No%:Co%=.ma|
0000a780  70 31 3a e7 43 6f 25 3d  36 77 61 74 65 72 3d 50  |p1:.Co%=6water=P|
0000a790  25 0d 4a 74 12 e7 67 72  65 65 6e 25 80 43 6f 25  |%.Jt..green%.Co%|
0000a7a0  3d 34 8c 0d 4a 7e 1b 6e  70 25 3d a4 6d 61 70 31  |=4..J~.np%=.map1|
0000a7b0  3a 50 25 3d 50 25 2b 6e  70 25 2a 34 2b 34 0d 4a  |:P%=P%+np%*4+4.J|
0000a7c0  88 2a cc 3a 6f 50 25 3d  50 25 3a 43 6f 25 3d 43  |.*.:oP%=P%:Co%=C|
0000a7d0  6f 25 2d 28 28 43 6f 25  3d 31 29 80 67 72 65 65  |o%-((Co%=1).gree|
0000a7e0  6e 25 29 3a e6 43 6f 25  0d 4a 92 19 f2 64 72 61  |n%):.Co%.J...dra|
0000a7f0  77 69 74 3a e7 43 6f 25  3d 31 f2 62 75 6e 6b 65  |wit:.Co%=1.bunke|
0000a800  72 0d 4a 9c 10 cd 3a ed  3a e7 67 72 65 65 6e 25  |r.J...:.:.green%|
0000a810  8c 0d 4a a6 08 e6 38 2c  30 0d 4a b0 11 2a 53 43  |..J...8,0.J..*SC|
0000a820  48 4f 4f 53 45 20 48 4f  4c 45 0d 4a ba 1a f0 26  |HOOSE HOLE.J...&|
0000a830  45 44 2c 2d 36 2c 2d 28  64 2a 48 25 81 72 29 2a  |ED,-6,-(d*H%.r)*|
0000a840  32 2d 31 32 0d 4a c4 05  cd 0d 4a ce 13 f2 74 72  |2-12.J....J...tr|
0000a850  65 65 73 3a 2a 46 58 31  31 32 2c 32 0d 4a d8 15  |ees:*FX112,2.J..|
0000a860  e7 67 72 65 65 6e 25 fb  31 33 35 3a 8b fb 31 33  |.green%.135:..13|
0000a870  39 0d 4a e2 25 db 3a 50  25 3d 73 50 25 3a e3 54  |9.J.%.:P%=sP%:.T|
0000a880  25 3d 31 b8 4e 6f 25 3a  43 6f 25 3d a4 6d 61 70  |%=1.No%:Co%=.map|
0000a890  31 3a e6 43 6f 25 0d 4a  ec 12 e7 67 72 65 65 6e  |1:.Co%.J...green|
0000a8a0  25 80 43 6f 25 3d 34 8c  0d 4a f6 1b 6e 70 25 3d  |%.Co%=4..J..np%=|
0000a8b0  a4 6d 61 70 31 3a 50 25  3d 50 25 2b 6e 70 25 2a  |.map1:P%=P%+np%*|
0000a8c0  34 2b 34 0d 4b 00 13 cc  6f 50 25 3d 50 25 3a f2  |4+4.K...oP%=P%:.|
0000a8d0  64 72 61 77 69 74 0d 4b  0a 05 cd 0d 4b 14 05 ed  |drawit.K....K...|
0000a8e0  0d 4b 1e 0c e7 67 72 65  65 6e 25 8c 0d 4b 28 08  |.K...green%..K(.|
0000a8f0  e6 38 2c 30 0d 4b 32 16  2a 53 43 48 4f 4f 53 45  |.8,0.K2.*SCHOOSE|
0000a900  20 42 4c 41 43 4b 48 4f  4c 45 0d 4b 3c 1a f0 26  | BLACKHOLE.K<..&|
0000a910  45 44 2c 2d 36 2c 2d 28  64 2a 48 25 81 72 29 2a  |ED,-6,-(d*H%.r)*|
0000a920  32 2d 31 32 0d 4b 46 05  cd 0d 4b 50 0c 2a 46 58  |2-12.KF...KP.*FX|
0000a930  31 31 32 2c 31 0d 4b 5a  0f c8 8e 6a 75 6d 70 25  |112,1.KZ...jump%|
0000a940  28 31 29 ca 0d 4b 64 11  c9 31 3a fb 38 2c 32 30  |(1)..Kd..1:.8,20|
0000a950  38 2c 30 2c 30 0d 4b 6e  14 c9 32 3a fb 38 2c 31  |8,0,0.Kn..2:.8,1|
0000a960  34 34 2c 31 32 38 2c 38  30 0d 4b 78 15 c9 33 3a  |44,128,80.Kx..3:|
0000a970  fb 38 2c 31 31 32 2c 31  31 32 2c 31 31 32 0d 4b  |.8,112,112,112.K|
0000a980  82 13 c9 34 3a fb 38 2c  32 34 30 2c 31 31 32 2c  |...4:.8,240,112,|
0000a990  30 0d 4b 8c 12 c9 35 3a  fb 38 2c 39 36 2c 39 36  |0.K...5:.8,96,96|
0000a9a0  2c 34 38 0d 4b 96 14 c9  36 3a fb 38 2c 32 30 38  |,48.K...6:.8,208|
0000a9b0  2c 38 30 2c 31 34 34 0d  4b a0 05 cb 0d 4b aa 05  |,80,144.K....K..|
0000a9c0  e1 0d 4b b4 07 f4 20 15  0d 4b be 0e dd f2 67 74  |..K... ..K....gt|
0000a9d0  6f 73 28 59 25 29 0d 4b  c8 2c ef 32 36 3a ec 30  |os(Y%).K.,.26:.0|
0000a9e0  2c 59 25 3a ec 31 32 37  39 2c 59 25 2b 33 31 39  |,Y%:.1279,Y%+319|
0000a9f0  3a 2a 53 47 45 54 20 74  6f 70 6f 66 73 63 72 65  |:*SGET topofscre|
0000aa00  65 6e 0d 4b d2 05 e1 0d  4b dc 07 f4 20 15 0d 4b  |en.K....K... ..K|
0000aa10  e6 0d dd f2 67 65 74 69  6e 66 6f 0d 4b f0 15 2a  |....getinfo.K..*|
0000aa20  43 48 41 4e 4e 45 4c 56  4f 49 43 45 20 31 20 31  |CHANNELVOICE 1 1|
0000aa30  0d 4b fa 15 ea 79 61 32  2c 42 58 25 2c 42 59 25  |.K...ya2,BX%,BY%|
0000aa40  2c 79 73 74 25 0d 4c 04  0e f2 67 74 6f 73 28 37  |,yst%.L...gtos(7|
0000aa50  30 34 29 0d 4c 0e 0a c8  91 38 30 2c 30 0d 4c 18  |04).L....80,0.L.|
0000aa60  18 ef 32 34 2c 30 3b 37  30 34 3b 31 31 33 31 3b  |..24,0;704;1131;|
0000aa70  31 30 32 33 3b 0d 4c 22  0f e6 31 33 39 3a fb 31  |1023;.L"..139:.1|
0000aa80  33 39 3a da 0d 4c 2c 16  e6 38 3a c8 93 30 2c 37  |39:..L,..8:..0,7|
0000aa90  30 34 2c 34 31 32 2c 33  31 39 0d 4c 36 15 c8 93  |04,412,319.L6...|
0000aaa0  34 31 32 2c 37 30 34 2c  32 32 38 2c 33 31 39 0d  |412,704,228,319.|
0000aab0  4c 40 15 c8 93 36 34 30  2c 37 30 34 2c 34 39 31  |L@...640,704,491|
0000aac0  2c 33 31 39 0d 4c 4a 16  e6 33 3a c8 93 34 2c 37  |,319.LJ..3:..4,7|
0000aad0  30 38 2c 34 30 34 2c 33  31 31 0d 4c 54 15 c8 93  |08,404,311.LT...|
0000aae0  34 31 36 2c 37 30 38 2c  32 32 30 2c 33 31 31 0d  |416,708,220,311.|
0000aaf0  4c 5e 15 c8 93 36 34 34  2c 37 30 38 2c 34 38 33  |L^...644,708,483|
0000ab00  2c 33 31 31 0d 4c 68 16  e6 34 3a c8 93 38 2c 37  |,311.Lh..4:..8,7|
0000ab10  31 32 2c 33 39 36 2c 33  30 33 0d 4c 72 15 c8 93  |12,396,303.Lr...|
0000ab20  34 32 30 2c 37 31 32 2c  32 31 32 2c 33 30 33 0d  |420,712,212,303.|
0000ab30  4c 7c 15 c8 93 36 34 38  2c 37 31 32 2c 34 37 35  |L|...648,712,475|
0000ab40  2c 33 30 33 0d 4c 86 16  87 3a ef 32 38 2c 36 2c  |,303.L...:.28,6,|
0000ab50  38 2c 37 34 2c 31 3a fb  31 32 0d 4c 90 36 f1 8a  |8,74,1:.12.L.6..|
0000ab60  34 31 2c 30 29 22 50 4c  41 59 45 52 20 20 20 20  |41,0)"PLAYER    |
0000ab70  20 20 20 20 20 3a 20 22  3b 3a fb 38 3a f1 6e 61  |     : ";:.8:.na|
0000ab80  6d 65 24 28 70 6c 61 79  65 72 25 29 3a fb 31 32  |me$(player%):.12|
0000ab90  0d 4c 9a 25 f1 8a 34 31  2c 31 29 22 50 4c 41 59  |.L.%..41,1)"PLAY|
0000aba0  49 4e 47 20 41 54 20 20  20 20 20 3a 20 22 43 6f  |ING AT     : "Co|
0000abb0  75 72 73 65 24 0d 4c a4  24 f1 8a 34 31 2c 32 29  |urse$.L.$..41,2)|
0000abc0  22 48 4f 4c 45 20 4e 55  4d 42 45 52 20 20 20 20  |"HOLE NUMBER    |
0000abd0  3a 20 22 3b 48 6f 6c 65  25 0d 4c ae 34 f1 8a 34  |: ";Hole%.L.4..4|
0000abe0  31 2c 33 29 22 50 41 52  20 20 20 20 20 20 20 20  |1,3)"PAR        |
0000abf0  20 20 20 20 3a 20 22 3b  7e 6d 61 70 3f 28 6d 61  |    : ";~map?(ma|
0000ac00  70 70 6f 69 6e 74 25 2b  26 32 46 39 29 0d 4c b8  |ppoint%+&2F9).L.|
0000ac10  45 f1 8a 34 31 2c 34 29  22 4f 56 45 52 41 4c 4c  |E..41,4)"OVERALL|
0000ac20  20 4c 45 4e 47 54 48 20  3a 20 22 3b 7e 28 6d 61  | LENGTH : ";~(ma|
0000ac30  70 21 28 6d 61 70 70 6f  69 6e 74 25 2b 26 32 46  |p!(mappoint%+&2F|
0000ac40  41 29 29 80 26 46 46 46  46 3b 22 20 59 41 52 44  |A)).&FFFF;" YARD|
0000ac50  53 22 0d 4c c2 56 f1 8a  34 31 2c 35 29 22 52 41  |S".L.V..41,5)"RA|
0000ac60  4e 47 45 20 54 4f 20 48  4f 4c 45 20 20 3a 20 22  |NGE TO HOLE  : "|
0000ac70  3b 3a fb 38 3a f1 3b 28  52 25 81 32 31 29 2a 28  |;:.8:.;(R%.21)*(|
0000ac80  31 2d 67 72 65 65 6e 25  2a 32 29 3b 3a e7 67 72  |1-green%*2);:.gr|
0000ac90  65 65 6e 25 3a f1 22 20  46 45 45 54 22 3a 8b f1  |een%:." FEET":..|
0000aca0  22 20 59 41 52 44 53 22  0d 4c cc 2a fb 31 32 3a  |" YARDS".L.*.12:|
0000acb0  f1 8a 34 31 2c 36 29 22  53 54 52 4f 4b 45 53 20  |..41,6)"STROKES |
0000acc0  50 4c 41 59 45 44 20 3a  20 22 3b 73 74 72 6f 6b  |PLAYED : ";strok|
0000acd0  65 25 0d 4c d6 0c f2 73  68 6f 77 6c 69 65 0d 4c  |e%.L...showlie.L|
0000ace0  e0 0c f2 73 65 74 77 69  6e 64 0d 4c ea 0d f2 73  |...setwind.L...s|
0000acf0  68 6f 77 77 69 6e 64 0d  4c f4 05 f5 0d 4c fe 0a  |howwind.L....L..|
0000ad00  c8 91 38 30 2c 30 0d 4d  08 0c f2 67 65 74 63 6c  |..80,0.M...getcl|
0000ad10  75 62 0d 4d 12 22 fb 31  32 3a f1 8a 32 29 22 44  |ub.M.".12:..2)"D|
0000ad20  49 52 45 43 54 49 4f 4e  20 54 48 45 4e 20 50 4f  |IRECTION THEN PO|
0000ad30  57 45 52 22 0d 4d 1c 1d  fb 38 3a f1 8a 34 29 41  |WER".M...8:..4)A|
0000ad40  24 28 76 70 25 29 22 20  53 45 4c 45 43 54 45 44  |$(vp%)" SELECTED|
0000ad50  22 0d 4d 26 38 e6 38 3a  c8 93 34 36 2c 37 37 36  |".M&8.8:..46,776|
0000ad60  2c 33 32 30 2c 31 32 38  3a c8 93 34 34 2c 37 37  |,320,128:..44,77|
0000ad70  36 2c 33 32 34 2c 31 32  38 3a 86 34 38 2c 38 36  |6,324,128:.48,86|
0000ad80  36 2c 33 36 34 2c 38 36  36 0d 4d 30 3f e6 36 3a  |6,364,866.M0?.6:|
0000ad90  c8 93 c8 90 34 38 2c 38  37 30 2c 33 31 36 2c 33  |....48,870,316,3|
0000ada0  32 3a e6 31 32 3a ec 37  38 2c 38 39 38 3a ef 35  |2:.12:.78,898:.5|
0000adb0  3a f1 22 43 4c 55 42 20  50 4f 57 45 52 20 4d 45  |:."CLUB POWER ME|
0000adc0  54 45 52 22 bd 34 3a 87  0d 4d 3a 4b 86 35 36 2c  |TER".4:..M:K.56,|
0000add0  37 38 34 2c 35 36 2c 38  32 34 3a e3 54 25 3d 34  |784,56,824:.T%=4|
0000ade0  39 b8 31 30 30 3a e7 a8  28 28 54 25 2f 31 30 30  |9.100:..((T%/100|
0000adf0  2a 54 25 29 83 32 35 29  3d 30 3a 86 54 25 2a 33  |*T%).25)=0:.T%*3|
0000ae00  2b 35 36 2c 37 38 34 2c  54 25 2a 33 2b 35 36 2c  |+56,784,T%*3+56,|
0000ae10  38 32 34 0d 4d 44 05 ed  0d 4d 4e 13 c8 93 35 36  |824.MD...MN...56|
0000ae20  2c 37 39 32 2c 33 30 30  2c 32 34 0d 4d 58 19 e6  |,792,300,24.MX..|
0000ae30  31 31 3a c8 93 c8 90 35  36 2c 37 39 36 2c 33 30  |11:....56,796,30|
0000ae40  30 2c 31 36 0d 4d 62 20  6d 79 25 3d 32 35 36 2d  |0,16.Mb my%=256-|
0000ae50  67 72 65 65 6e 25 2a 31  36 34 3a c8 99 36 2c 31  |green%*164:..6,1|
0000ae60  30 36 2c 32 0d 4d 6c 09  c8 91 30 2c 30 0d 4d 76  |06,2.Ml...0,0.Mv|
0000ae70  3e c8 97 c8 93 34 33 32  2b 28 67 72 65 65 6e 25  |>....432+(green%|
0000ae80  3d 30 29 2a 31 36 30 2c  6d 79 25 2c 34 31 34 2d  |=0)*160,my%,414-|
0000ae90  28 67 72 65 65 6e 25 3d  30 29 2a 33 32 30 2c 30  |(green%=0)*320,0|
0000aea0  3a c8 97 b8 36 34 30 2c  6d 79 25 0d 4d 80 13 78  |:...640,my%.M..x|
0000aeb0  73 25 3d 30 3a 4f 58 25  3d 30 3a 75 3d 30 0d 4d  |s%=0:OX%=0:u=0.M|
0000aec0  8a 10 f5 3a c8 97 58 25  2c 59 25 2c 43 25 0d 4d  |...:..X%,Y%,C%.M|
0000aed0  94 13 e7 43 25 3d 31 84  43 25 3d 34 fd b9 3a fd  |...C%=1.C%=4..:.|
0000aee0  a3 0d 4d 9e 23 61 25 3d  28 58 25 2d 78 73 25 2d  |..M.#a%=(X%-xs%-|
0000aef0  36 34 30 29 2f 38 3a e7  94 61 25 3c 31 30 61 25  |640)/8:..a%<10a%|
0000af00  3d b4 61 25 0d 4d a8 09  75 2b 3d 61 25 0d 4d b2  |=.a%.M..u+=a%.M.|
0000af10  0d e7 58 25 3c 3e 78 73  25 8c 0d 4d bc 41 42 58  |..X%<>xs%..M.ABX|
0000af20  25 3d 30 3a 42 59 25 3d  2d 52 25 3a f2 76 74 28  |%=0:BY%=-R%:.vt(|
0000af30  76 69 2a 42 59 25 2b 76  61 2a 42 58 25 2c 76 61  |vi*BY%+va*BX%,va|
0000af40  2a 42 59 25 2b 76 62 2a  42 58 25 2c 48 25 29 3a  |*BY%+vb*BX%,H%):|
0000af50  79 73 74 25 3d 79 73 25  2b 32 35 0d 4d c6 43 f5  |yst%=ys%+25.M.C.|
0000af60  3a 42 58 25 2b 3d 75 3a  42 59 25 2b 3d 38 30 3a  |:BX%+=u:BY%+=80:|
0000af70  f2 76 74 28 76 69 2a 42  59 25 2b 76 61 2a 42 58  |.vt(vi*BY%+va*BX|
0000af80  25 2c 76 61 2a 42 59 25  2b 76 62 2a 42 58 25 2c  |%,va*BY%+vb*BX%,|
0000af90  48 25 29 3a fd 79 73 25  3e 3d 79 73 74 25 0d 4d  |H%):.ys%>=yst%.M|
0000afa0  d0 05 cd 0d 4d da 12 c8  97 b8 78 73 25 2d 36 34  |....M.....xs%-64|
0000afb0  30 2c 6d 79 25 0d 4d e4  09 fd 43 25 3d 32 0d 4d  |0,my%.M...C%=2.M|
0000afc0  ee 07 c8 97 87 0d 4d f8  0d 70 25 3d a4 70 6f 77  |......M..p%=.pow|
0000afd0  65 72 0d 4e 02 12 53 4f  25 3d 2d 31 35 2a 70 25  |er.N..SO%=-15*p%|
0000afe0  2f 31 30 30 0d 4e 0c 1d  e7 ac 67 72 65 65 6e 25  |/100.N....green%|
0000aff0  80 76 70 25 3d 31 33 75  3d 75 2b b3 28 35 29 2d  |.vp%=13u=u+.(5)-|
0000b000  33 0d 4e 16 32 75 3d 75  2f 28 38 2d 67 25 2a 32  |3.N.2u=u/(8-g%*2|
0000b010  29 3a 79 61 3d a8 28 28  43 56 25 28 76 70 25 29  |):ya=.((CV%(vp%)|
0000b020  2f 31 30 30 29 2a 70 25  29 3a e7 79 61 3c 31 79  |/100)*p%):.ya<1y|
0000b030  61 3d 31 0d 4e 20 0f 75  64 3d 75 2f 28 79 61 2a  |a=1.N .ud=u/(ya*|
0000b040  33 29 0d 4e 2a 12 70 25  3d 70 25 2a 2e 33 32 3a  |3).N*.p%=p%*.32:|
0000b050  68 25 3d 30 0d 4e 34 1b  e7 76 70 25 3d 31 33 70  |h%=0.N4..vp%=13p|
0000b060  25 3d 35 2a 2d 28 67 72  65 65 6e 25 3d a3 29 0d  |%=5*-(green%=.).|
0000b070  4e 3e 18 f2 64 65 6c 28  31 30 30 29 3a 73 74 72  |N>..del(100):str|
0000b080  6f 6b 65 25 2b 3d 31 0d  4e 48 20 ef 34 2c 32 36  |oke%+=1.NH .4,26|
0000b090  3a 87 3a 2a 53 43 48 4f  4f 53 45 20 74 6f 70 6f  |:.:*SCHOOSE topo|
0000b0a0  66 73 63 72 65 65 6e 0d  4e 52 13 e6 38 2c 30 3a  |fscreen.NR..8,0:|
0000b0b0  f0 26 45 44 2c 30 2c 37  30 34 0d 4e 5c 0d f2 77  |.&ED,0,704.N\..w|
0000b0c0  69 6e 64 6f 77 73 32 0d  4e 66 05 e1 0d 4e 70 07  |indows2.Nf...Np.|
0000b0d0  f4 20 15 0d 4e 7a 0d dd  f2 73 68 6f 77 6c 69 65  |. ..Nz...showlie|
0000b0e0  0d 4e 84 07 ea 61 24 0d  4e 8e 13 61 24 3d 22 4f  |.N...a$.N..a$="O|
0000b0f0  4e 20 54 48 45 20 22 3a  fb 38 0d 4e 98 0c f1 8a  |N THE ":.8.N....|
0000b100  34 31 2c 37 29 3b 0d 4e  a2 21 62 75 6e 6b 25 3d  |41,7);.N.!bunk%=|
0000b110  a3 3a 62 61 64 25 3d a3  3a 77 69 6e 64 25 3d 73  |.:bad%=.:wind%=s|
0000b120  6b 69 6c 6c 25 3e 32 0d  4e ac 0c e7 67 72 65 65  |kill%>2.N...gree|
0000b130  6e 25 8c 0d 4e b6 34 e7  6c 69 65 25 3d 35 20 f1  |n%..N.4.lie%=5 .|
0000b140  61 24 22 47 52 45 45 4e  22 3b 3a 8b f1 22 4f 4e  |a$"GREEN";:.."ON|
0000b150  20 45 44 47 45 20 4f 46  20 47 52 45 45 4e 22 3b  | EDGE OF GREEN";|
0000b160  3a 6c 69 65 25 3d 35 0d  4e c0 05 cd 0d 4e ca 0b  |:lie%=5.N....N..|
0000b170  c8 8e 6c 69 65 25 ca 0d  4e d4 1c c9 31 3a f1 22  |..lie%..N...1:."|
0000b180  49 4e 20 41 20 42 55 4e  4b 45 52 20 22 3b 3a f2  |IN A BUNKER ";:.|
0000b190  67 6f 62 0d 4e de 17 c9  34 3a f1 22 4f 4e 20 41  |gob.N...4:."ON A|
0000b1a0  20 50 41 54 48 57 41 59  22 3b 0d 4e e8 0e c9 36  | PATHWAY";.N...6|
0000b1b0  3a f2 77 65 74 6d 65 73  0d 4e f2 2a c9 37 3a e7  |:.wetmes.N.*.7:.|
0000b1c0  79 31 25 3c 3e 73 74 79  25 3a f1 61 24 22 46 41  |y1%<>sty%:.a$"FA|
0000b1d0  49 52 57 41 59 22 3b 3a  8b f1 61 24 22 54 45 45  |IRWAY";:..a$"TEE|
0000b1e0  22 3b 0d 4e fc 1d c9 39  3a f1 22 49 4e 20 54 48  |";.N...9:."IN TH|
0000b1f0  45 20 52 4f 55 47 48 20  22 3b 3a f2 67 6f 62 0d  |E ROUGH ";:.gob.|
0000b200  4f 06 05 cb 0d 4f 10 05  e1 0d 4f 1a 07 f4 20 15  |O....O....O... .|
0000b210  0d 4f 24 0c dd f2 77 65  74 6d 65 73 0d 4f 2e 12  |.O$...wetmes.O..|
0000b220  e6 36 3a 62 75 6e 6b 25  3d b9 3a ea 54 25 0d 4f  |.6:bunk%=.:.T%.O|
0000b230  38 0b 54 25 3d b3 28 33  29 0d 4f 42 09 c8 8e 54  |8.T%=.(3).OB...T|
0000b240  25 ca 0d 4f 4c 1d c9 31  2c 33 3a f1 22 49 4e 20  |%..OL..1,3:."IN |
0000b250  53 48 41 4c 4c 4f 57 20  57 41 54 45 52 22 3b 0d  |SHALLOW WATER";.|
0000b260  4f 56 3e c9 32 3a e7 77  65 6c 6c 69 65 25 f1 22  |OV>.2:.wellie%."|
0000b270  49 54 27 53 20 41 20 57  45 4c 4c 49 45 20 4a 4f  |IT'S A WELLIE JO|
0000b280  42 22 3b 3a 8b f1 22 42  41 4c 41 4e 43 45 44 20  |B";:.."BALANCED |
0000b290  4f 4e 20 4c 49 4c 59 20  50 41 44 22 3b 0d 4f 60  |ON LILY PAD";.O`|
0000b2a0  05 cb 0d 4f 6a 05 e1 0d  4f 74 07 f4 20 15 0d 4f  |...Oj...Ot.. ..O|
0000b2b0  7e 09 dd f2 67 6f 62 0d  4f 88 3a ea 67 24 2c 62  |~...gob.O.:.g$,b|
0000b2c0  24 3a 67 24 3d 22 47 4f  4f 44 20 4c 49 45 22 3a  |$:g$="GOOD LIE":|
0000b2d0  e7 6c 69 65 25 3d 39 62  24 3d 22 42 41 44 20 4c  |.lie%=9b$="BAD L|
0000b2e0  49 45 22 3a 8b 62 24 3d  22 50 4c 55 47 47 45 44  |IE":.b$="PLUGGED|
0000b2f0  22 0d 4f 92 0d c8 8e 73  6b 69 6c 6c 25 ca 0d 4f  |".O....skill%..O|
0000b300  9c 14 c9 31 3a f1 22 4e  4f 20 45 46 46 45 43 54  |...1:."NO EFFECT|
0000b310  22 3b 0d 4f a6 15 c9 32  2c 33 3a f1 67 24 3b 3a  |";.O...2,3:.g$;:|
0000b320  62 75 6e 6b 25 3d b9 0d  4f b0 27 c9 34 3a 62 75  |bunk%=..O.'.4:bu|
0000b330  6e 6b 25 3d b9 3a e7 b3  28 32 29 3d 32 f1 62 24  |nk%=.:..(2)=2.b$|
0000b340  3b 3a 62 61 64 25 3d 31  3a 8b f1 67 24 3b 0d 4f  |;:bad%=1:..g$;.O|
0000b350  ba 05 cb 0d 4f c4 05 e1  0d 4f ce 07 f4 20 15 0d  |....O....O... ..|
0000b360  4f d8 0b dd a4 70 6f 77  65 72 0d 4f e2 13 ea 58  |O....power.O...X|
0000b370  25 2c 43 25 2c 63 25 2c  70 25 2c 61 25 0d 4f ec  |%,C%,c%,p%,a%.O.|
0000b380  0a c8 91 38 30 2c 30 0d  4f f6 1d fb 31 32 3a f2  |...80,0.O...12:.|
0000b390  62 75 74 74 28 30 29 3a  f2 64 65 6c 28 31 29 3a  |butt(0):.del(1):|
0000b3a0  61 25 3d 31 0d 50 00 12  c8 95 43 25 3d 30 80 63  |a%=1.P....C%=0.c|
0000b3b0  25 3c 3e 31 35 36 0d 50  0a 16 70 25 2b 3d 61 25  |%<>156.P..p%+=a%|
0000b3c0  3a e7 70 25 3d 31 30 30  61 25 3d b9 0d 50 14 14  |:.p%=100a%=..P..|
0000b3d0  63 25 2b 3d 31 3a e6 38  3a e7 63 25 80 31 c8 96  |c%+=1:.8:.c%.1..|
0000b3e0  0d 50 1e 36 c8 93 c8 90  35 36 2c 37 39 36 2c 70  |.P.6....56,796,p|
0000b3f0  25 2a 33 2c 31 36 3a e6  31 31 3a c8 93 c8 90 35  |%*3,16:.11:....5|
0000b400  36 2b 70 25 2a 33 2c 37  39 36 2c 33 30 30 2d 70  |6+p%*3,796,300-p|
0000b410  25 2a 33 2c 31 36 0d 50  28 30 f1 8a 32 2c 34 29  |%*3,16.P(0..2,4)|
0000b420  3b a8 28 70 25 2f 31 30  30 2a 70 25 29 2d 28 63  |;.(p%/100*p%)-(c|
0000b430  25 3c 31 30 29 3b 22 25  20 20 22 3a c8 97 58 25  |%<10);"%  ":..X%|
0000b440  2c 58 25 2c 43 25 0d 50  32 05 ce 0d 50 3c 0d 53  |,X%,C%.P2...P<.S|
0000b450  6c 3d 30 3a 73 6c 3d 30  0d 50 46 0d e7 76 70 25  |l=0:sl=0.PF..vp%|
0000b460  3c 3e 31 33 8c 0d 50 50  09 c8 8e 43 25 ca 0d 50  |<>13..PP...C%..P|
0000b470  5a 0d c9 31 3a 73 6c 3d  2e 30 35 0d 50 64 0e c9  |Z..1:sl=.05.Pd..|
0000b480  34 3a 73 6c 3d 2d 2e 30  35 0d 50 6e 05 cb 0d 50  |4:sl=-.05.Pn...P|
0000b490  78 05 cd 0d 50 82 0f e7  73 6b 69 6c 6c 25 3c 3e  |x...P...skill%<>|
0000b4a0  31 8c 0d 50 8c 0b c8 8e  6c 69 65 25 ca 0d 50 96  |1..P....lie%..P.|
0000b4b0  23 c9 31 2c 39 3a 70 25  3d 28 70 25 2f 31 30 30  |#.1,9:p%=(p%/100|
0000b4c0  29 2a 72 65 64 25 28 76  70 25 2c 62 61 64 25 29  |)*red%(vp%,bad%)|
0000b4d0  0d 50 a0 2f c9 36 3a 61  25 3d 76 70 25 2d 32 2a  |.P./.6:a%=vp%-2*|
0000b4e0  28 70 25 3c 31 31 29 3a  70 25 3d 70 25 2f 31 30  |(p%<11):p%=p%/10|
0000b4f0  30 2a 72 65 64 25 28 61  25 2c 62 61 64 25 29 0d  |0*red%(a%,bad%).|
0000b500  50 aa 05 cb 0d 50 b4 05  cd 0d 50 be 10 d4 31 2c  |P....P....P...1,|
0000b510  2d 31 30 2c 32 30 30 2c  31 0d 50 c8 0d e7 70 25  |-10,200,1.P...p%|
0000b520  3c 31 70 25 3d 31 0d 50  d2 07 3d 70 25 0d 50 dc  |<1p%=1.P..=p%.P.|
0000b530  07 f4 20 15 0d 50 e6 0d  dd f2 67 65 74 63 6c 75  |.. ..P....getclu|
0000b540  62 0d 50 f0 11 f2 62 75  74 74 28 30 29 3a f2 63  |b.P...butt(0):.c|
0000b550  6c 73 0d 50 fa 13 e7 67  72 65 65 6e 25 76 70 25  |ls.P...green%vp%|
0000b560  3d 31 33 3a e1 0d 51 04  1b ea 58 25 2c 59 25 2c  |=13:..Q...X%,Y%,|
0000b570  43 25 2c 78 25 2c 79 25  2c 6f 78 25 2c 6f 79 25  |C%,x%,y%,ox%,oy%|
0000b580  0d 51 0e 3b 6f 78 25 3d  2d 31 30 30 3a 87 3a ef  |.Q.;ox%=-100:.:.|
0000b590  32 38 2c 36 2c 38 2c 37  34 2c 31 3a f2 6d 72 65  |28,6,8,74,1:.mre|
0000b5a0  63 74 28 31 29 3a c8 97  20 ee 3a fb 31 32 3a f4  |ct(1):.. .:.12:.|
0000b5b0  3a 53 59 53 36 2c 31 30  36 2c 33 0d 51 18 28 e3  |:SYS6,106,3.Q.(.|
0000b5c0  54 25 3d 30 b8 31 33 3a  f1 8a 54 58 25 28 54 25  |T%=0.13:..TX%(T%|
0000b5d0  29 2c 54 59 25 28 54 25  29 29 41 24 28 54 25 29  |),TY%(T%))A$(T%)|
0000b5e0  3b 3a ed 0d 51 22 37 fb  32 3a f1 8a 36 2c 30 29  |;:..Q"7.2:..6,0)|
0000b5f0  22 53 45 4c 45 43 54 20  41 20 43 4c 55 42 22 3a  |"SELECT A CLUB":|
0000b600  c8 9f 26 32 30 30 30 3a  c8 9e 31 30 30 3a ef 35  |..&2000:..100:.5|
0000b610  3a e6 33 2c 32 3a f2 62  6f 78 0d 51 2c 2e f5 3a  |:.3,2:.box.Q,..:|
0000b620  e7 c6 8f 3d 30 3a e6 33  2c 32 3a f1 8a 37 2c 31  |...=0:.3,2:..7,1|
0000b630  29 22 53 45 4c 45 43 54  20 41 20 43 4c 55 42 22  |)"SELECT A CLUB"|
0000b640  3a f5 fd c6 8f 3c 3e 30  0d 51 36 24 c8 97 58 25  |:....<>0.Q6$..X%|
0000b650  2c 59 25 2c 43 25 3a 78  25 3d 58 25 81 31 32 38  |,Y%,C%:x%=X%.128|
0000b660  3a 79 25 3d 59 25 80 26  46 46 45 30 0d 51 40 18  |:y%=Y%.&FFE0.Q@.|
0000b670  e7 78 25 3c 3e 6f 78 25  84 79 25 3c 3e 6f 79 25  |.x%<>ox%.y%<>oy%|
0000b680  f2 62 6f 78 0d 51 4a 35  f2 6d 72 65 63 74 28 58  |.box.QJ5.mrect(X|
0000b690  25 29 3a 76 70 25 3d 33  5e 78 25 2b 28 78 25 3d  |%):vp%=3^x%+(x%=|
0000b6a0  30 29 2b 32 38 2d 79 25  81 33 32 2b 28 78 25 3d  |0)+28-y%.32+(x%=|
0000b6b0  32 80 79 25 3c 38 33 32  29 0d 51 54 0a fd 43 25  |2.y%<832).QT..C%|
0000b6c0  3c 3e 30 0d 51 5e 0f f2  62 75 74 74 28 30 29 3a  |<>0.Q^..butt(0):|
0000b6d0  ef 34 0d 51 68 09 dd f2  63 6c 73 0d 51 72 14 87  |.4.Qh...cls.Qr..|
0000b6e0  3a ef 32 38 2c 36 2c 38  2c 32 39 2c 31 3a db 0d  |:.28,6,8,29,1:..|
0000b6f0  51 7c 05 e1 0d 51 86 07  f4 20 15 0d 51 90 09 dd  |Q|...Q... ..Q...|
0000b700  f2 62 6f 78 0d 51 9a 08  e6 33 2c 36 0d 51 a4 1c  |.box.Q...3,6.Q..|
0000b710  c8 93 c8 90 33 32 2b 31  32 38 2a 6f 78 25 2c 6f  |....32+128*ox%,o|
0000b720  79 25 2c 39 36 2c 33 32  0d 51 ae 1a c8 93 c8 90  |y%,96,32.Q......|
0000b730  33 32 2b 31 32 38 2a 78  25 2c 79 25 2c 39 36 2c  |32+128*x%,y%,96,|
0000b740  33 32 0d 51 b8 10 d4 31  2c 2d 31 30 2c 32 30 30  |32.Q...1,-10,200|
0000b750  2c 31 0d 51 c2 11 6f 78  25 3d 78 25 3a 6f 79 25  |,1.Q..ox%=x%:oy%|
0000b760  3d 79 25 0d 51 cc 05 e1  0d 51 d6 07 f4 20 15 0d  |=y%.Q....Q... ..|
0000b770  51 e0 0f dd f2 6d 72 65  63 74 28 52 25 29 0d 51  |Q....mrect(R%).Q|
0000b780  ea 10 e7 52 25 3e 32 38  38 f2 69 6f 70 32 0d 51  |...R%>288.iop2.Q|
0000b790  f4 09 c8 8e 52 25 ca 0d  51 fe 22 c9 20 31 3a c8  |....R%..Q.". 1:.|
0000b7a0  97 c8 93 33 38 2c 38 34  34 2c 39 30 2c 37 32 3a  |...38,844,90,72:|
0000b7b0  c8 97 b8 38 33 2c 39 31  32 0d 52 08 24 c9 20 31  |...83,912.R.$. 1|
0000b7c0  36 32 3a c8 97 c8 93 33  38 2c 38 34 34 2c 39 30  |62:....38,844,90|
0000b7d0  2c 37 32 3a c8 97 b8 38  33 2c 38 34 36 0d 52 12  |,72:...83,846.R.|
0000b7e0  27 c9 20 31 32 38 3a c8  97 c8 93 31 36 32 2c 37  |'. 128:....162,7|
0000b7f0  35 32 2c 39 30 2c 31 36  34 3a c8 97 b8 32 30 38  |52,90,164:...208|
0000b800  2c 39 31 32 0d 52 1c 0e  c9 20 32 35 32 3a f2 69  |,912.R... 252:.i|
0000b810  6f 70 0d 52 26 27 c9 20  32 38 38 3a c8 97 c8 93  |op.R&'. 288:....|
0000b820  31 36 32 2c 37 35 32 2c  39 30 2c 31 36 34 3a c8  |162,752,90,164:.|
0000b830  97 b8 32 30 38 2c 37 35  36 0d 52 30 05 cb 0d 52  |..208,756.R0...R|
0000b840  3a 05 e1 0d 52 44 07 f4  20 15 0d 52 4e 09 dd f2  |:...RD.. ..RN...|
0000b850  69 6f 70 0d 52 58 0c e7  59 25 3e 38 33 35 8c 0d  |iop.RX..Y%>835..|
0000b860  52 62 20 c8 97 c8 93 32  38 38 2c 38 33 36 2c 39  |Rb ....288,836,9|
0000b870  30 2c 38 30 3a c8 97 b8  33 34 39 2c 39 31 32 0d  |0,80:...349,912.|
0000b880  52 6c 22 cc 20 c8 97 c8  93 32 38 38 2c 37 35 32  |Rl". ....288,752|
0000b890  2c 39 30 2c 35 30 3a c8  97 b8 33 34 39 2c 37 37  |,90,50:...349,77|
0000b8a0  38 0d 52 76 05 cd 0d 52  80 05 e1 0d 52 8a 07 f4  |8.Rv...R....R...|
0000b8b0  20 15 0d 52 94 0a dd f2  69 6f 70 32 0d 52 9e 27  | ..R....iop2.R.'|
0000b8c0  e7 59 25 3d 38 33 36 c8  97 c8 93 32 38 38 2c 37  |.Y%=836....288,7|
0000b8d0  35 32 2c 39 30 2c 35 30  3a c8 97 b8 33 34 39 2c  |52,90,50:...349,|
0000b8e0  37 38 36 0d 52 a8 27 e7  59 25 3d 38 30 32 c8 97  |786.R.'.Y%=802..|
0000b8f0  c8 93 32 38 38 2c 38 33  36 2c 39 30 2c 38 30 3a  |..288,836,90,80:|
0000b900  c8 97 b8 33 34 39 2c 38  35 36 0d 52 b2 05 e1 0d  |...349,856.R....|
0000b910  52 bc 07 f4 20 15 0d 52  c6 0e dd f2 62 75 74 74  |R... ..R....butt|
0000b920  28 6f 6e 29 0d 52 d0 0a  ea 44 25 2c 43 25 0d 52  |(on).R...D%,C%.R|
0000b930  da 05 f5 0d 52 e4 0e c8  97 44 25 2c 44 25 2c 43  |....R....D%,D%,C|
0000b940  25 0d 52 ee 0a fd 43 25  3d 6f 6e 0d 52 f8 05 e1  |%.R...C%=on.R...|
0000b950  0d 53 02 07 f4 20 15 0d  53 0c 0d dd f2 77 69 6e  |.S... ..S....win|
0000b960  64 6f 77 73 0d 53 16 18  ef 32 36 3a e6 31 32 38  |dows.S...26:.128|
0000b970  3a da 3a f2 6d 61 69 6e  63 6f 6c 73 0d 53 20 0d  |:.:.maincols.S .|
0000b980  e7 ac 67 72 65 65 6e 25  8c 0d 53 2a 18 e6 36 3a  |..green%..S*..6:|
0000b990  c8 93 c8 90 20 30 2c 30  2c 31 32 38 30 2c 37 33  |.... 0,0,1280,73|
0000b9a0  36 0d 53 34 16 e6 34 3a  86 30 2c 37 33 32 2c 31  |6.S4..4:.0,732,1|
0000b9b0  32 38 30 2c 37 33 32 0d  53 3e 1f e6 31 33 38 3a  |280,732.S>..138:|
0000b9c0  ef 32 34 2c 30 3b 37 33  36 3b 31 32 37 39 3b 31  |.24,0;736;1279;1|
0000b9d0  30 32 33 3b 3a da 0d 53  48 0b f2 63 6c 6f 75 64  |023;:..SH..cloud|
0000b9e0  73 0d 53 52 0b cc e6 31  33 35 3a da 0d 53 5c 05  |s.SR...135:..S\.|
0000b9f0  cd 0d 53 66 0e dd f2 77  69 6e 64 6f 77 73 32 0d  |..Sf...windows2.|
0000ba00  53 70 20 ef 32 36 3a c8  91 36 34 30 2c 37 36 38  |Sp .26:..640,768|
0000ba10  2b 4f 25 2d 36 31 36 36  2a 67 72 65 65 6e 25 0d  |+O%-6166*green%.|
0000ba20  53 7a 05 e1 0d 53 84 07  f4 20 15 0d 53 8e 0c dd  |Sz...S... ..S...|
0000ba30  f2 63 6c 6f 75 64 73 0d  53 98 0d ea 43 25 2c 54  |.clouds.S...C%,T|
0000ba40  25 2c 4f 25 0d 53 a2 24  e7 76 62 3e 30 20 4f 25  |%,O%.S.$.vb>0 O%|
0000ba50  3d 9d 98 76 61 20 8b 4f  25 3d 31 38 30 2b 28 31  |=..va .O%=180+(1|
0000ba60  38 30 2d 9d 98 76 61 29  0d 53 ac 12 4f 25 3d 94  |80-..va).S..O%=.|
0000ba70  4f 25 2a 33 2e 35 3a e6  31 31 0d 53 b6 15 e3 43  |O%*3.5:.11.S...C|
0000ba80  25 3d 31 b8 31 32 3a e3  54 25 3d 31 b8 31 32 0d  |%=1.12:.T%=1.12.|
0000ba90  53 c0 35 c8 9d c8 90 28  43 4c 25 28 30 2c 43 25  |S.5....(CL%(0,C%|
0000baa0  2c 54 25 29 2b 4f 25 29  83 32 35 32 30 2b 49 25  |,T%)+O%).2520+I%|
0000bab0  2c 43 4c 25 28 31 2c 43  25 2c 54 25 29 2c 32 35  |,CL%(1,C%,T%),25|
0000bac0  36 2c 36 34 0d 53 ca 07  ed 3a ed 0d 53 d4 05 e1  |6,64.S...:..S...|
0000bad0  0d 53 de 07 f4 20 15 0d  53 e8 0f dd f2 69 6e 69  |.S... ..S....ini|
0000bae0  74 63 6c 6f 75 64 0d 53  f2 10 ea 43 25 2c 54 25  |tcloud.S...C%,T%|
0000baf0  2c 58 25 2c 59 25 0d 53  fc 2b e3 43 25 3d 30 b8  |,X%,Y%.S.+.C%=0.|
0000bb00  31 32 3a 58 25 3d 31 39  34 2a 43 25 2b b3 28 31  |12:X%=194*C%+.(1|
0000bb10  39 34 29 3a 59 25 3d b3  28 32 38 38 29 2b 37 33  |94):Y%=.(288)+73|
0000bb20  36 0d 54 06 3c e3 54 25  3d 30 b8 31 32 3a 43 4c  |6.T.<.T%=0.12:CL|
0000bb30  25 28 30 2c 43 25 2c 54  25 29 3d 58 25 2b b3 28  |%(0,C%,T%)=X%+.(|
0000bb40  35 29 2a 34 30 3a 43 4c  25 28 31 2c 43 25 2c 54  |5)*40:CL%(1,C%,T|
0000bb50  25 29 3d 59 25 2b b3 28  35 29 2a 31 32 0d 54 10  |%)=Y%+.(5)*12.T.|
0000bb60  07 ed 3a ed 0d 54 1a 05  e1 0d 54 24 07 f4 20 15  |..:..T....T$.. .|
0000bb70  0d 54 2e 0c dd f2 62 6f  75 6e 63 65 0d 54 38 13  |.T....bounce.T8.|
0000bb80  68 25 3d 30 3a 70 25 3d  2d 70 25 2f 32 2e 32 0d  |h%=0:p%=-p%/2.2.|
0000bb90  54 42 20 e7 76 70 25 3d  31 33 80 ac 67 72 65 65  |TB .vp%=13..gree|
0000bba0  6e 25 80 b3 28 31 30 29  3d 35 f2 32 72 69 63 0d  |n%..(10)=5.2ric.|
0000bbb0  54 4c 0c 2a 46 58 31 31  32 2c 32 0d 54 56 10 47  |TL.*FX112,2.TV.G|
0000bbc0  25 3d b0 73 78 25 2c 73  79 25 29 0d 54 60 0c 2a  |%=.sx%,sy%).T`.*|
0000bbd0  46 58 31 31 32 2c 31 0d  54 6a 09 c8 8e 47 25 ca  |FX112,1.Tj...G%.|
0000bbe0  0d 54 74 29 c9 31 3a 70  25 3d 70 25 3e 3e 31 3a  |.Tt).1:p%=p%>>1:|
0000bbf0  e7 70 25 3e 34 3a 79 61  3d 79 61 2a 2e 33 3a 8b  |.p%>4:ya=ya*.3:.|
0000bc00  79 61 3d 79 61 2a 2e 37  35 0d 54 7e 2f c9 34 3a  |ya=ya*.75.T~/.4:|
0000bc10  e7 70 25 3e 33 80 79 61  3c 3e 30 70 25 3d 70 25  |.p%>3.ya<>0p%=p%|
0000bc20  2a 31 2e 35 3a 79 61 3d  79 61 2a 31 2e 33 3a 75  |*1.5:ya=ya*1.3:u|
0000bc30  64 3d 75 64 2f 31 2e 33  0d 54 88 60 c9 36 2c 31  |d=ud/1.3.T.`.6,1|
0000bc40  31 3a 57 25 3d a3 3a 78  73 25 3d 31 30 30 30 3a  |1:W%=.:xs%=1000:|
0000bc50  73 78 25 3d 31 30 30 30  3a 79 61 3d 30 3a 70 25  |sx%=1000:ya=0:p%|
0000bc60  3d 30 3a 68 25 3d 30 3a  d6 20 70 6c 6f 74 62 61  |=0:h%=0:. plotba|
0000bc70  6c 6c 2c 62 73 25 2c 6f  79 25 2c 6f 78 25 2c 6f  |ll,bs%,oy%,ox%,o|
0000bc80  73 79 25 2c 6f 73 78 25  2c 79 73 25 2c 78 73 25  |sy%,osx%,ys%,xs%|
0000bc90  2c 73 79 25 2c 73 78 25  0d 54 92 4a c9 39 2c 2d  |,sy%,sx%.T.J.9,-|
0000bca0  31 3a 79 61 3d 79 61 2f  31 2e 35 3a 70 25 3d 70  |1:ya=ya/1.5:p%=p|
0000bcb0  25 3e 3e 31 3a 75 3d 75  2f 32 3a 75 64 3d 75 64  |%>>1:u=u/2:ud=ud|
0000bcc0  2f 32 3a e7 67 72 65 65  6e 25 80 47 25 3d 2d 31  |/2:.green%.G%=-1|
0000bcd0  79 61 3d 30 3a 70 25 3d  30 3a 75 3d 30 3a 75 64  |ya=0:p%=0:u=0:ud|
0000bce0  3d 30 0d 54 9c 05 cb 0d  54 a6 05 e1 0d 54 b0 07  |=0.T....T....T..|
0000bcf0  f4 20 15 0d 54 ba 0c dd  f2 64 72 61 77 69 74 0d  |. ..T....drawit.|
0000bd00  54 c4 37 6e 70 25 3d a4  6d 61 70 31 3a f2 6d 61  |T.7np%=.map1:.ma|
0000bd10  70 28 43 58 25 2c 43 59  25 2c 48 25 2c 34 2c 72  |p(CX%,CY%,H%,4,r|
0000bd20  29 3a f2 6d 61 70 28 53  58 25 2c 53 59 25 2c 48  |):.map(SX%,SY%,H|
0000bd30  25 2c 34 2c 72 29 0d 54  ce 30 e3 49 25 3d 31 b8  |%,4,r).T.0.I%=1.|
0000bd40  6e 70 25 2d 31 3a f2 6d  61 70 28 58 49 25 2c 59  |np%-1:.map(XI%,Y|
0000bd50  49 25 2c 48 25 2c 38 35  2c 72 29 3a ec 43 58 25  |I%,H%,85,r):.CX%|
0000bd60  2c 43 59 25 3a ed 0d 54  d8 0f f0 38 35 2c 53 58  |,CY%:..T...85,SX|
0000bd70  25 2c 53 59 25 0d 54 e2  05 e1 0d 54 ec 07 f4 20  |%,SY%.T....T... |
0000bd80  15 0d 54 f6 12 dd f2 76  74 28 78 25 2c 79 25 2c  |..T....vt(x%,y%,|
0000bd90  7a 25 29 0d 55 00 4c 78  65 25 3d 76 61 2a 78 25  |z%).U.Lxe%=va*x%|
0000bda0  2b 76 62 2a 79 25 3a 7a  65 25 3d 28 76 69 2a 78  |+vb*y%:ze%=(vi*x|
0000bdb0  25 2b 76 61 2a 79 25 2b  72 29 2a 4d 61 3a 78 73  |%+va*y%+r)*Ma:xs|
0000bdc0  25 3d 64 2a 78 65 25 20  81 7a 65 25 3a 79 73 25  |%=d*xe% .ze%:ys%|
0000bdd0  3d 2d 28 64 2a 7a 25 20  81 7a 65 25 29 2a 32 0d  |=-(d*z% .ze%)*2.|
0000bde0  55 0a 05 e1 0d 55 14 07  f4 20 15 0d 55 1e 22 dd  |U....U... ..U.".|
0000bdf0  f2 63 61 6c 74 72 65 28  f8 20 78 25 28 29 2c f8  |.caltre(. x%(),.|
0000be00  20 79 25 28 29 2c f8 20  7a 25 28 29 29 0d 55 28  | y%(),. z%()).U(|
0000be10  11 ea 69 25 2c 6c 25 2c  6c 6f 25 2c 6e 25 0d 55  |..i%,l%,lo%,n%.U|
0000be20  32 0d e3 41 25 3d 31 b8  41 41 25 0d 55 3c 1b 6c  |2..A%=1.AA%.U<.l|
0000be30  25 3d a4 6d 61 70 32 3a  74 72 65 78 21 28 41 25  |%=.map2:trex!(A%|
0000be40  2a 34 29 3d 6c 25 0d 55  46 1b 69 25 3d a4 6d 61  |*4)=l%.UF.i%=.ma|
0000be50  70 32 3a 74 72 65 79 21  28 41 25 2a 34 29 3d 69  |p2:trey!(A%*4)=i|
0000be60  25 0d 55 50 12 78 65 3d  76 61 2a 69 25 2b 76 62  |%.UP.xe=va*i%+vb|
0000be70  2a 6c 25 0d 55 5a 19 7a  65 3d 28 76 69 2a 69 25  |*l%.UZ.ze=(vi*i%|
0000be80  2b 76 61 2a 6c 25 2b 72  29 2a 4d 61 0d 55 64 28  |+va*l%+r)*Ma.Ud(|
0000be90  78 25 28 41 25 29 3d 64  2a 78 65 20 81 7a 65 3a  |x%(A%)=d*xe .ze:|
0000bea0  79 25 28 41 25 29 3d 2d  28 64 2a 48 25 20 81 7a  |y%(A%)=-(d*H% .z|
0000beb0  65 29 2a 32 0d 55 6e 1d  7a 25 28 41 25 29 3d 2d  |e)*2.Un.z%(A%)=-|
0000bec0  28 64 2a 28 48 25 2b 32  30 30 29 81 7a 65 29 2a  |(d*(H%+200).ze)*|
0000bed0  32 0d 55 78 05 ed 0d 55  82 05 e1 0d 55 8c 07 f4  |2.Ux...U....U...|
0000bee0  20 15 0d 55 96 1c dd f2  6d 61 70 28 f8 20 78 25  | ..U....map(. x%|
0000bef0  2c f8 20 79 25 2c 7a 25  2c 70 25 2c 72 29 0d 55  |,. y%,z%,p%,r).U|
0000bf00  a0 56 79 25 3d a4 6d 61  70 32 3a 78 25 3d a4 6d  |.Vy%=.map2:x%=.m|
0000bf10  61 70 32 3a 78 65 3d 76  61 2a 78 25 2b 76 62 2a  |ap2:xe=va*x%+vb*|
0000bf20  79 25 3a 7a 65 3d 28 76  69 2a 78 25 2b 76 61 2a  |y%:ze=(vi*x%+va*|
0000bf30  79 25 2b 72 29 2a 4d 61  3a 78 25 3d 64 2a 78 65  |y%+r)*Ma:x%=d*xe|
0000bf40  20 81 7a 65 3a 79 25 3d  2d 28 64 2a 7a 25 81 7a  | .ze:y%=-(d*z%.z|
0000bf50  65 29 2a 32 0d 55 aa 29  e7 ac 67 72 65 65 6e 25  |e)*2.U.)..green%|
0000bf60  e7 79 25 3e 2d 33 32 84  79 25 3c 26 46 46 46 46  |.y%>-32.y%<&FFFF|
0000bf70  38 30 30 30 20 79 25 3d  2d 36 30 30 30 0d 55 b4  |8000 y%=-6000.U.|
0000bf80  0d f0 70 25 2c 78 25 2c  79 25 0d 55 be 05 e1 0d  |..p%,x%,y%.U....|
0000bf90  55 c8 07 f4 20 15 0d 55  d2 1c dd a4 6d 61 70 31  |U... ..U....map1|
0000bfa0  3a 50 25 2b 3d 31 3a 3d  6d 61 70 3f 28 50 25 2d  |:P%+=1:=map?(P%-|
0000bfb0  31 29 0d 55 dc 07 f4 20  15 0d 55 e6 24 dd a4 6d  |1).U... ..U.$..m|
0000bfc0  61 70 32 3a 50 25 2b 3d  32 3a 51 25 3d 6d 61 70  |ap2:P%+=2:Q%=map|
0000bfd0  21 28 50 25 2d 32 29 80  26 46 46 46 46 0d 55 f0  |!(P%-2).&FFFF.U.|
0000bfe0  1c e7 51 25 3e 26 37 46  46 46 51 25 3d 51 25 84  |..Q%>&7FFFQ%=Q%.|
0000bff0  26 46 46 46 46 30 30 30  30 0d 55 fa 07 3d 51 25  |&FFFF0000.U..=Q%|
0000c000  0d 56 04 07 f4 20 15 0d  56 0e 0b dd f2 74 72 65  |.V... ..V....tre|
0000c010  65 73 0d 56 18 1e 50 46  25 3d b9 3a 50 42 25 3d  |es.V..PF%=.:PB%=|
0000c020  2d 28 64 2a 48 25 81 28  72 2a 4d 61 29 29 2a 32  |-(d*H%.(r*Ma))*2|
0000c030  0d 56 22 1d 50 54 25 3d  2d 28 64 2a 28 48 25 2d  |.V".PT%=-(d*(H%-|
0000c040  33 30 29 81 28 72 2a 4d  61 29 29 2a 32 0d 56 2c  |30).(r*Ma))*2.V,|
0000c050  1d 46 42 25 3d 2d 28 64  2a 28 48 25 2d 32 34 29  |.FB%=-(d*(H%-24)|
0000c060  81 28 72 2a 4d 61 29 29  2a 32 0d 56 36 56 78 65  |.(r*Ma))*2.V6Vxe|
0000c070  3d 76 61 2a 46 78 2b 76  62 2a 46 79 3a 7a 65 3d  |=va*Fx+vb*Fy:ze=|
0000c080  28 76 69 2a 46 78 2b 76  61 2a 46 79 2b 72 29 2a  |(vi*Fx+va*Fy+r)*|
0000c090  4d 61 3a 46 58 25 3d 64  2a 78 65 20 81 7a 65 3a  |Ma:FX%=d*xe .ze:|
0000c0a0  46 59 25 3d 2d 28 64 2a  28 48 25 2d 31 36 2d 28  |FY%=-(d*(H%-16-(|
0000c0b0  73 74 72 65 6e 25 81 34  29 29 81 7a 65 29 2a 32  |stren%.4)).ze)*2|
0000c0c0  0d 56 40 0c e7 67 72 65  65 6e 25 e1 0d 56 4a 0f  |.V@..green%..VJ.|
0000c0d0  e3 54 25 3d 41 41 25 b8  31 88 b9 0d 56 54 18 58  |.T%=AA%.1...VT.X|
0000c0e0  31 25 3d 78 25 28 54 25  29 3a 59 25 3d 79 25 28  |1%=x%(T%):Y%=y%(|
0000c0f0  54 25 29 0d 56 5e 3d e7  50 46 25 80 59 25 3c 50  |T%).V^=.PF%.Y%<P|
0000c100  42 25 20 e6 31 31 3a ec  30 2c 50 42 25 3a df 30  |B% .11:.0,PB%:.0|
0000c110  2c 50 54 25 3a e6 33 3a  ec 30 2c 46 42 25 3a f0  |,PT%:.3:.0,FB%:.|
0000c120  38 35 2c 46 58 25 2c 46  59 25 3a 50 46 25 3d a3  |85,FX%,FY%:PF%=.|
0000c130  0d 56 68 2a e7 28 94 58  31 25 3e 34 30 30 84 59  |.Vh*.(.X1%>400.Y|
0000c140  25 3e 2d 37 30 38 29 80  94 58 31 25 3c 38 30 30  |%>-708)..X1%<800|
0000c150  80 59 25 3e 2d 31 30 30  30 8c 0d 56 72 41 78 25  |.Y%>-1000..VrAx%|
0000c160  3d 28 94 59 25 2d 94 7a  25 28 54 25 29 29 3e 3e  |=(.Y%-.z%(T%))>>|
0000c170  31 3a 79 25 3d 2d 78 25  3e 3e 32 3a 79 61 25 3d  |1:y%=-x%>>2:ya%=|
0000c180  79 25 2a 31 2e 35 3a 78  61 25 3d 78 25 3e 3e 34  |y%*1.5:xa%=x%>>4|
0000c190  3a 79 64 25 3d 79 61 25  3e 3e 32 0d 56 7c 2b e6  |:yd%=ya%>>2.V|+.|
0000c1a0  74 72 25 21 28 28 28 70  78 25 2b 31 29 80 33 29  |tr%!(((px%+1).3)|
0000c1b0  2a 34 29 3a c8 93 c8 90  58 31 25 2c 59 25 2c 2d  |*4):....X1%,Y%,-|
0000c1c0  78 61 25 2c 79 25 0d 56  86 2a e6 74 72 25 21 28  |xa%,y%.V.*.tr%!(|
0000c1d0  28 28 70 78 25 2b 32 29  80 33 29 2a 34 29 3a c8  |((px%+2).3)*4):.|
0000c1e0  93 c8 90 58 31 25 2c 59  25 2c 78 61 25 2c 79 25  |...X1%,Y%,xa%,y%|
0000c1f0  0d 56 90 31 59 25 2b 3d  79 25 3a 78 61 25 3d 78  |.V.1Y%+=y%:xa%=x|
0000c200  61 25 2a 32 3a 7a 25 28  54 25 29 3d a3 3a 78 25  |a%*2:z%(T%)=.:x%|
0000c210  3d 78 25 2a 2e 38 3a 78  61 25 3d 78 61 25 2a 2e  |=x%*.8:xa%=xa%*.|
0000c220  38 0d 56 9a 26 d6 70 6c  6f 74 74 72 65 65 2c 78  |8.V.&.plottree,x|
0000c230  61 25 2c 79 25 2c 78 25  2c 58 31 25 2c 59 25 2c  |a%,y%,x%,X1%,Y%,|
0000c240  79 61 25 2c 79 64 25 0d  56 a4 0e cc 20 7a 25 28  |ya%,yd%.V... z%(|
0000c250  54 25 29 3d b9 0d 56 ae  05 cd 0d 56 b8 05 ed 0d  |T%)=..V....V....|
0000c260  56 c2 36 e7 50 46 25 20  e6 31 31 3a ec 30 2c 50  |V.6.PF% .11:.0,P|
0000c270  42 25 3a df 30 2c 50 54  25 3a e6 33 3a ec 30 2c  |B%:.0,PT%:.3:.0,|
0000c280  46 42 25 3a f0 38 35 2c  46 58 25 2c 46 59 25 3a  |FB%:.85,FX%,FY%:|
0000c290  50 46 25 3d a3 0d 56 cc  05 e1 0d 56 d6 07 f4 20  |PF%=..V....V... |
0000c2a0  15 0d 56 e0 0e dd f2 69  6e 69 74 69 61 74 65 0d  |..V....initiate.|
0000c2b0  56 ea 25 48 61 6e 64 25  3d 30 3a 67 72 65 65 6e  |V.%Hand%=0:green|
0000c2c0  25 3d 30 3a 74 65 65 3d  a3 3a 49 6e 65 64 69 74  |%=0:tee=.:Inedit|
0000c2d0  6f 72 3d a3 0d 56 f4 08  e6 30 2c 31 0d 56 fe 10  |or=..V...0,1.V..|
0000c2e0  f2 63 6f 6c 6f 75 72 73  28 31 32 29 0d 57 08 16  |.colours(12).W..|
0000c2f0  de 72 65 64 25 28 31 33  2c 31 29 2c 46 24 28 37  |.red%(13,1),F$(7|
0000c300  37 29 0d 57 12 12 de 20  43 4c 25 28 31 2c 31 32  |7).W... CL%(1,12|
0000c310  2c 31 32 29 0d 57 1c 0f  de 20 63 6f 64 65 20 26  |,12).W... code &|
0000c320  39 30 30 0d 57 26 0f de  20 6d 61 70 20 26 36 44  |900.W&.. map &6D|
0000c330  30 30 0d 57 30 0d de 20  70 61 72 62 20 32 30 0d  |00.W0.. parb 20.|
0000c340  57 3a 1a de 20 78 25 28  39 36 29 2c 79 25 28 39  |W:.. x%(96),y%(9|
0000c350  36 29 2c 7a 25 28 39 36  29 0d 57 44 23 de 54 58  |6),z%(96).WD#.TX|
0000c360  25 28 31 33 29 2c 54 59  25 28 31 33 29 2c 41 24  |%(13),TY%(13),A$|
0000c370  28 31 33 29 2c 43 56 25  28 31 33 29 0d 57 4e 43  |(13),CV%(13).WNC|
0000c380  de 6d 78 25 28 31 2c 31  29 2c 6d 79 25 28 31 29  |.mx%(1,1),my%(1)|
0000c390  2c 6d 25 28 38 2c 31 29  2c 62 61 67 25 28 31 29  |,m%(8,1),bag%(1)|
0000c3a0  2c 6e 61 6d 65 24 28 36  29 2c 64 65 66 6e 61 6d  |,name$(6),defnam|
0000c3b0  65 24 28 36 29 3a 70 6c  61 79 65 72 25 3d 31 0d  |e$(6):player%=1.|
0000c3c0  57 58 89 de 68 6f 6c 65  73 63 6f 72 65 73 25 28  |WX..holescores%(|
0000c3d0  36 2c 31 38 29 2c 63 75  72 72 65 6e 74 78 25 28  |6,18),currentx%(|
0000c3e0  36 29 2c 63 75 72 72 65  6e 74 79 25 28 36 29 2c  |6),currenty%(6),|
0000c3f0  63 75 72 72 65 6e 74 52  25 28 36 29 2c 63 75 72  |currentR%(6),cur|
0000c400  72 65 6e 74 53 25 28 36  29 2c 63 75 72 72 65 6e  |rentS%(6),curren|
0000c410  74 73 25 28 36 29 2c 74  6f 74 73 63 6f 72 65 25  |ts%(6),totscore%|
0000c420  28 36 29 2c 6f 6c 64 70  6f 73 25 28 36 29 2c 68  |(6),oldpos%(6),h|
0000c430  73 70 25 28 36 29 2c 68  61 6e 64 25 28 36 29 2c  |sp%(6),hand%(6),|
0000c440  6a 75 6d 70 25 28 36 29  0d 57 62 10 de 43 28 34  |jump%(6).Wb..C(4|
0000c450  35 29 2c 53 28 34 35 29  0d 57 6c 10 de 73 61 25  |5),S(45).Wl..sa%|
0000c460  28 31 2c 32 2c 32 30 29  0d 57 76 11 63 75 72 72  |(1,2,20).Wv.curr|
0000c470  65 6e 74 73 25 28 29 3d  31 0d 57 80 0b e3 49 25  |ents%()=1.W...I%|
0000c480  3d 32 b8 34 0d 57 8a 0c  e3 4e 25 3d 30 b8 32 30  |=2.4.W...N%=0.20|
0000c490  0d 57 94 1f 73 61 25 28  30 2c 49 25 2d 32 2c 4e  |.W..sa%(0,I%-2,N|
0000c4a0  25 29 3d b3 28 49 25 2a  38 29 2d 49 25 2a 34 0d  |%)=.(I%*8)-I%*4.|
0000c4b0  57 9e 23 73 61 25 28 31  2c 49 25 2d 32 2c 4e 25  |W.#sa%(1,I%-2,N%|
0000c4c0  29 3d 49 25 2a 31 32 2b  31 36 2b b3 28 49 25 29  |)=I%*12+16+.(I%)|
0000c4d0  2a 34 0d 57 a8 05 ed 0d  57 b2 05 ed 0d 57 bc 0c  |*4.W....W....W..|
0000c4e0  e3 54 25 3d 30 b8 34 35  0d 57 c6 21 43 28 54 25  |.T%=0.45.W.!C(T%|
0000c4f0  29 3d 9b b2 28 54 25 2a  38 29 3a 53 28 54 25 29  |)=..(T%*8):S(T%)|
0000c500  3d b5 b2 28 54 25 2a 38  29 0d 57 d0 05 ed 0d 57  |=..(T%*8).W....W|
0000c510  da 28 6d 78 25 28 30 2c  31 29 3d 2d 32 3a 6d 78  |.(mx%(0,1)=-2:mx|
0000c520  25 28 30 2c 30 29 3d 2d  39 36 3a 6d 79 25 28 30  |%(0,0)=-96:my%(0|
0000c530  29 3d 2d 37 32 38 0d 57  e4 2a 6d 78 25 28 31 2c  |)=-728.W.*mx%(1,|
0000c540  31 29 3d 2d 34 3a 6d 78  25 28 31 2c 30 29 3d 2d  |1)=-4:mx%(1,0)=-|
0000c550  36 34 3a 6d 79 25 28 31  29 3d 2d 31 33 31 32 31  |64:my%(1)=-13121|
0000c560  0d 57 ee 1c 62 61 67 25  28 30 29 3d 2d 31 39 36  |.W..bag%(0)=-196|
0000c570  3a 62 61 67 25 28 31 29  3d 31 32 30 0d 57 f8 17  |:bag%(1)=120.W..|
0000c580  73 78 25 3d b9 3a 73 79  25 3d b9 3a 72 3d 31 31  |sx%=.:sy%=.:r=11|
0000c590  30 39 36 0d 58 02 0a f7  20 8d 60 54 58 0d 58 0c  |096.X... .`TX.X.|
0000c5a0  0c e3 54 25 3d 30 b8 31  33 0d 58 16 23 f3 54 58  |..T%=0.13.X.#.TX|
0000c5b0  25 28 54 25 29 2c 54 59  25 28 54 25 29 2c 41 24  |%(T%),TY%(T%),A$|
0000c5c0  28 54 25 29 2c 43 56 25  28 54 25 29 0d 58 20 05  |(T%),CV%(T%).X .|
0000c5d0  ed 0d 58 2a 0e f2 77 65  6c 6c 69 65 28 30 29 0d  |..X*..wellie(0).|
0000c5e0  58 34 17 e3 54 25 3d 31  b8 38 3a f3 6d 25 28 54  |X4..T%=1.8:.m%(T|
0000c5f0  25 2c 31 29 3a ed 0d 58  3e 24 e3 49 25 3d 30 b8  |%,1):..X>$.I%=0.|
0000c600  31 3a e3 54 25 3d 30 b8  31 33 3a f3 72 65 64 25  |1:.T%=0.13:.red%|
0000c610  28 54 25 2c 49 25 29 3a  ed 2c 0d 58 48 27 43 58  |(T%,I%):.,.XH'CX|
0000c620  25 3d 30 3a 43 59 25 3d  30 3a 53 58 25 3d 30 3a  |%=0:CY%=0:SX%=0:|
0000c630  53 59 25 3d 30 3a 58 49  25 3d 30 3a 59 49 25 3d  |SY%=0:XI%=0:YI%=|
0000c640  30 0d 58 52 25 68 25 3d  30 3a 78 31 25 3d 30 3a  |0.XR%h%=0:x1%=0:|
0000c650  79 31 25 3d 30 3a 4b 25  3d 30 3a 42 59 25 3d 30  |y1%=0:K%=0:BY%=0|
0000c660  3a 62 73 25 3d 30 0d 58  5c 16 64 65 66 6e 61 6d  |:bs%=0.X\.defnam|
0000c670  65 24 28 31 29 3d 22 4a  4f 48 4e 22 0d 58 66 18  |e$(1)="JOHN".Xf.|
0000c680  64 65 66 6e 61 6d 65 24  28 32 29 3d 22 47 45 4f  |defname$(2)="GEO|
0000c690  52 47 45 22 0d 58 70 16  64 65 66 6e 61 6d 65 24  |RGE".Xp.defname$|
0000c6a0  28 33 29 3d 22 50 41 55  4c 22 0d 58 7a 17 64 65  |(3)="PAUL".Xz.de|
0000c6b0  66 6e 61 6d 65 24 28 34  29 3d 22 52 49 4e 47 4f  |fname$(4)="RINGO|
0000c6c0  22 0d 58 84 16 64 65 66  6e 61 6d 65 24 28 35 29  |".X..defname$(5)|
0000c6d0  3d 22 4d 49 43 4b 22 0d  58 8e 17 64 65 66 6e 61  |="MICK".X..defna|
0000c6e0  6d 65 24 28 36 29 3d 22  4a 45 52 52 59 22 0d 58  |me$(6)="JERRY".X|
0000c6f0  98 09 f2 63 6f 64 65 0d  58 a2 0c 2a 50 4f 49 4e  |...code.X..*POIN|
0000c700  54 45 52 0d 58 ac 08 c8  97 20 87 0d 58 b6 10 c8  |TER.X.... ..X...|
0000c710  97 fb 31 2c 30 2c 32 34  30 2c 30 0d 58 c0 10 c8  |..1,0,240,0.X...|
0000c720  97 fb 32 2c 30 2c 31 32  38 2c 30 0d 58 ca 05 e1  |..2,0,128,0.X...|
0000c730  0d 58 d4 12 dc 31 2c 32  2c 31 20 57 4f 4f 44 2c  |.X...1,2,1 WOOD,|
0000c740  37 34 0d 58 de 12 dc 31  2c 33 2c 33 20 57 4f 4f  |74.X...1,3,3 WOO|
0000c750  44 2c 37 30 0d 58 e8 12  dc 31 2c 34 2c 35 20 57  |D,70.X...1,4,5 W|
0000c760  4f 4f 44 2c 36 38 0d 58  f2 12 dc 39 2c 32 2c 31  |OOD,68.X...9,2,1|
0000c770  20 49 52 4f 4e 2c 36 37  0d 58 fc 12 dc 39 2c 33  | IRON,67.X...9,3|
0000c780  2c 32 20 49 52 4f 4e 2c  36 35 0d 59 06 12 dc 39  |,2 IRON,65.Y...9|
0000c790  2c 34 2c 33 20 49 52 4f  4e 2c 36 33 0d 59 10 12  |,4,3 IRON,63.Y..|
0000c7a0  dc 39 2c 35 2c 34 20 49  52 4f 4e 2c 36 31 0d 59  |.9,5,4 IRON,61.Y|
0000c7b0  1a 12 dc 39 2c 36 2c 35  20 49 52 4f 4e 2c 35 39  |...9,6,5 IRON,59|
0000c7c0  0d 59 24 12 dc 39 2c 37  2c 36 20 49 52 4f 4e 2c  |.Y$..9,7,6 IRON,|
0000c7d0  35 37 0d 59 2e 13 dc 31  37 2c 32 2c 37 20 49 52  |57.Y...17,2,7 IR|
0000c7e0  4f 4e 2c 35 35 0d 59 38  13 dc 31 37 2c 33 2c 38  |ON,55.Y8..17,3,8|
0000c7f0  20 49 52 4f 4e 2c 35 33  0d 59 42 13 dc 31 37 2c  | IRON,53.YB..17,|
0000c800  34 2c 39 20 49 52 4f 4e  2c 34 38 0d 59 4c 12 dc  |4,9 IRON,48.YL..|
0000c810  31 37 2c 36 2c 57 45 44  47 45 2c 34 31 0d 59 56  |17,6,WEDGE,41.YV|
0000c820  13 dc 31 37 2c 37 2c 50  55 54 54 45 52 2c 36 30  |..17,7,PUTTER,60|
0000c830  0d 59 60 18 dc 39 2c 31  30 2c 31 30 2c 31 31 2c  |.Y`..9,10,10,11,|
0000c840  31 31 2c 39 2c 39 2c 39  0d 59 6a 2f dc 33 30 2c  |11,9,9,9.Yj/.30,|
0000c850  34 30 2c 34 38 2c 35 35  2c 36 31 2c 36 36 2c 37  |40,48,55,61,66,7|
0000c860  31 2c 37 36 2c 38 31 2c  38 35 2c 38 39 2c 39 33  |1,76,81,85,89,93|
0000c870  2c 39 36 2c 31 30 30 0d  59 74 27 dc 31 2c 31 2c  |,96,100.Yt'.1,1,|
0000c880  31 2c 31 2c 31 2c 31 2c  31 35 2c 34 30 2c 35 35  |1,1,1,1,15,40,55|
0000c890  2c 36 36 2c 37 36 2c 38  35 2c 39 33 2c 31 0d 59  |,66,76,85,93,1.Y|
0000c8a0  7e 07 f4 20 15 0d 59 88  11 dd f2 63 6f 6c 6f 75  |~.. ..Y....colou|
0000c8b0  72 73 28 4d 25 29 0d 59  92 0c c8 96 3a eb 4d 25  |rs(M%).Y....:.M%|
0000c8c0  3a 87 0d 59 9c 0d f2 6d  61 69 6e 63 6f 6c 73 0d  |:..Y...maincols.|
0000c8d0  59 a6 0f ef 32 33 2c 31  37 2c 34 2c 31 7c 0d 59  |Y...23,17,4,1|.Y|
0000c8e0  b0 29 ef 32 33 2c 32 2c  26 45 46 2c 26 46 45 2c  |.).23,2,&EF,&FE,|
0000c8f0  26 45 46 2c 26 46 45 2c  26 45 46 2c 26 46 45 2c  |&EF,&FE,&EF,&FE,|
0000c900  26 45 46 2c 26 46 45 0d  59 ba 29 ef 32 33 2c 33  |&EF,&FE.Y.).23,3|
0000c910  2c 26 31 32 2c 26 32 31  2c 26 31 32 2c 26 32 31  |,&12,&21,&12,&21|
*
0000c930  0d 59 c4 29 ef 32 33 2c  34 2c 26 43 30 2c 26 30  |.Y.).23,4,&C0,&0|
0000c940  43 2c 26 43 30 2c 26 30  43 2c 26 43 30 2c 26 30  |C,&C0,&0C,&C0,&0|
0000c950  43 2c 26 43 30 2c 26 30  43 0d 59 ce 29 ef 32 33  |C,&C0,&0C.Y.).23|
0000c960  2c 35 2c 26 44 34 2c 26  34 44 2c 26 44 34 2c 26  |,5,&D4,&4D,&D4,&|
0000c970  34 44 2c 26 44 34 2c 26  34 44 2c 26 44 34 2c 26  |4D,&D4,&4D,&D4,&|
0000c980  34 44 0d 59 d8 05 e1 0d  59 e2 0e dd f2 6d 61 69  |4D.Y....Y....mai|
0000c990  6e 63 6f 6c 73 0d 59 ec  07 f4 20 15 0d 59 f6 14  |ncols.Y... ..Y..|
0000c9a0  fb 30 2c 30 2c 30 2c 30  3a f4 20 42 4c 41 43 4b  |.0,0,0,0:. BLACK|
0000c9b0  0d 5a 00 1c fb 31 2c 31  37 36 2c 31 32 38 2c 30  |.Z...1,176,128,0|
0000c9c0  3a f4 20 44 41 52 4b 20  53 41 4e 44 0d 5a 0a 1e  |:. DARK SAND.Z..|
0000c9d0  fb 32 2c 31 37 36 2c 31  36 30 2c 34 38 3a f4 20  |.2,176,160,48:. |
0000c9e0  4c 49 47 48 54 20 53 41  4e 44 0d 5a 14 1a fb 33  |LIGHT SAND.Z...3|
0000c9f0  2c 32 30 38 2c 31 36 30  2c 31 34 34 3a f4 20 46  |,208,160,144:. F|
0000ca00  4c 45 53 48 0d 5a 1e 19  fb 34 2c 31 34 34 2c 31  |LESH.Z...4,144,1|
0000ca10  34 34 2c 31 34 34 3a f4  20 50 41 54 48 0d 5a 28  |44,144:. PATH.Z(|
0000ca20  17 fb 35 2c 31 36 2c 32  30 38 2c 30 3a f4 20 47  |..5,16,208,0:. G|
0000ca30  52 45 45 4e 0d 5a 32 19  fb 36 2c 33 32 2c 31 34  |REEN.Z2..6,32,14|
0000ca40  34 2c 32 30 38 3a f4 20  57 41 54 45 52 0d 5a 3c  |4,208:. WATER.Z<|
0000ca50  18 fb 37 2c 30 2c 31 36  30 2c 30 3a f4 20 46 41  |..7,0,160,0:. FA|
0000ca60  49 52 57 41 59 0d 5a 46  14 fb 38 2c 32 30 38 2c  |IRWAY.ZF..8,208,|
0000ca70  30 2c 30 3a f4 20 52 45  44 0d 5a 50 16 fb 39 2c  |0,0:. RED.ZP..9,|
0000ca80  30 2c 31 31 32 2c 30 3a  f4 20 52 4f 55 47 48 0d  |0,112,0:. ROUGH.|
0000ca90  5a 5a 18 fb 31 30 2c 39  36 2c 31 39 32 2c 32 32  |ZZ..10,96,192,22|
0000caa0  34 3a f4 20 53 4b 59 0d  5a 64 1b fb 31 31 2c 32  |4:. SKY.Zd..11,2|
0000cab0  34 30 2c 32 34 30 2c 32  34 30 3a f4 20 57 48 49  |40,240,240:. WHI|
0000cac0  54 45 0d 5a 6e 1d fb 31  32 2c 38 30 2c 34 38 2c  |TE.Zn..12,80,48,|
0000cad0  31 36 3a f4 20 44 41 52  4b 20 42 52 4f 57 4e 0d  |16:. DARK BROWN.|
0000cae0  5a 78 1e fb 31 33 2c 39  36 2c 36 34 2c 34 38 3a  |Zx..13,96,64,48:|
0000caf0  f4 20 4c 49 47 48 54 20  42 52 4f 57 4e 0d 5a 82  |. LIGHT BROWN.Z.|
0000cb00  24 fb 31 34 2c 31 36 2c  36 34 2c 34 38 3a f4 20  |$.14,16,64,48:. |
0000cb10  44 41 52 4b 20 47 52 45  45 4e 20 28 54 52 45 45  |DARK GREEN (TREE|
0000cb20  29 0d 5a 8c 26 fb 31 35  2c 30 2c 39 36 2c 36 34  |).Z.&.15,0,96,64|
0000cb30  3a f4 20 4c 49 47 48 54  45 52 20 47 52 45 45 4e  |:. LIGHTER GREEN|
0000cb40  20 28 54 52 45 45 29 0d  5a 96 05 e1 0d 5a a0 07  | (TREE).Z....Z..|
0000cb50  f4 20 15 0d 5a aa 0d dd  f2 70 6f 69 6e 74 65 72  |. ..Z....pointer|
0000cb60  0d 5a b4 15 de 70 61 72  20 32 30 2c 62 6c 6f 63  |.Z...par 20,bloc|
0000cb70  6b 20 31 31 32 0d 5a be  09 f7 8d 50 6c 5b 0d 5a  |k 112.Z....Pl[.Z|
0000cb80  c8 1b e3 54 25 3d 30 b8  31 30 38 88 34 3a f3 62  |...T%=0.108.4:.b|
0000cb90  6c 6f 63 6b 21 54 25 3a  ed 0d 5a d2 0a 3f 70 61  |lock!T%:..Z..?pa|
0000cba0  72 3d 30 0d 5a dc 0b 70  61 72 3f 31 3d 32 0d 5a  |r=0.Z..par?1=2.Z|
0000cbb0  e6 0b 70 61 72 3f 32 3d  38 0d 5a f0 0c 70 61 72  |..par?2=8.Z..par|
0000cbc0  3f 33 3d 31 34 0d 5a fa  0c 70 61 72 3f 34 3d 31  |?3=14.Z..par?4=1|
0000cbd0  36 0d 5b 04 0b 70 61 72  3f 35 3d 37 0d 5b 0e 0f  |6.[..par?5=7.[..|
0000cbe0  70 61 72 21 36 3d 62 6c  6f 63 6b 0d 5b 18 07 eb  |par!6=block.[...|
0000cbf0  31 32 0d 5b 22 2a 41 25  3d 32 31 3a 42 25 3d 70  |12.["*A%=21:B%=p|
0000cc00  61 72 3a 43 25 3d 70 61  72 20 81 32 35 36 3a c8  |ar:C%=par .256:.|
0000cc10  99 20 37 2c 41 25 2c 42  25 2c 43 25 0d 5b 2c b4  |. 7,A%,B%,C%.[,.|
0000cc20  dc 26 41 41 41 41 2c 26  41 41 41 41 30 30 30 30  |.&AAAA,&AAAA0000|
0000cc30  2c 26 39 35 35 36 2c 26  39 35 35 36 30 30 30 30  |,&9556,&95560000|
0000cc40  2c 26 41 41 39 36 2c 26  39 36 41 41 30 30 30 30  |,&AA96,&96AA0000|
0000cc50  2c 26 41 36 2c 26 39 41  30 30 30 30 30 30 2c 26  |,&A6,&9A000000,&|
0000cc60  32 41 2c 26 41 38 30 30  30 30 30 30 2c 26 30 2c  |2A,&A8000000,&0,|
0000cc70  26 30 2c 26 30 2c 26 30  2c 26 30 2c 26 30 2c 26  |&0,&0,&0,&0,&0,&|
0000cc80  30 2c 26 30 2c 26 32 41  2c 26 41 38 30 30 30 30  |0,&0,&2A,&A80000|
0000cc90  30 30 2c 26 41 36 2c 26  39 41 30 30 30 30 30 30  |00,&A6,&9A000000|
0000cca0  2c 26 41 41 39 36 2c 26  39 36 41 41 30 30 30 30  |,&AA96,&96AA0000|
0000ccb0  2c 26 39 35 35 36 2c 26  39 35 35 36 30 30 30 30  |,&9556,&95560000|
0000ccc0  2c 26 41 41 41 41 2c 26  41 41 41 41 30 30 30 30  |,&AAAA,&AAAA0000|
0000ccd0  0d 5b 36 05 e1 0d 5b 40  07 f4 20 15 0d 5b 4a 0a  |.[6...[@.. ..[J.|
0000cce0  dd f2 63 6f 64 65 0d 5b  54 2a ff 28 22 4c 4f 41  |..code.[T*.("LOA|
0000ccf0  44 20 3c 4f 62 65 79 24  44 69 72 3e 2e 68 6f 6c  |D <Obey$Dir>.hol|
0000cd00  65 64 6f 75 74 34 20 22  2b c3 7e 63 6f 64 65 29  |edout4 "+.~code)|
0000cd10  0d 5b 5e 16 70 6c 6f 74  62 61 6c 6c 3d 63 6f 64  |.[^.plotball=cod|
0000cd20  65 2b 26 31 38 38 0d 5b  68 11 70 6c 6f 74 74 72  |e+&188.[h.plottr|
0000cd30  65 65 3d 63 6f 64 65 0d  5b 72 12 73 6f 72 74 3d  |ee=code.[r.sort=|
0000cd40  63 6f 64 65 2b 26 37 45  30 0d 5b 7c 11 70 78 25  |code+&7E0.[|.px%|
0000cd50  3d 63 6f 64 65 2b 26 31  35 38 0d 5b 86 11 74 72  |=code+&158.[..tr|
0000cd60  25 3d 63 6f 64 65 2b 26  31 34 38 0d 5b 90 12 74  |%=code+&148.[..t|
0000cd70  72 65 78 3d 63 6f 64 65  2b 26 34 42 38 0d 5b 9a  |rex=code+&4B8.[.|
0000cd80  12 74 72 65 79 3d 63 6f  64 65 2b 26 36 33 43 0d  |.trey=code+&63C.|
0000cd90  5b a4 05 e1 0d ff                                 |[.....|
0000cd96