� >HOLEDOUT3
7� PROGRAMMED BY G.J.KEY BETWEEN 23-3-89 AND 29-4-89
� (C) THE FOURTH DIMENSION
(� 
2*FX200,3
<�pointer:�initiate
F
�instruct
P*FX200,2
Z�
d�colours(12)
n*SCHOOSE SCREEN
x*CHANNELVOICE 1 BELL
��&ED,0,0
��=0
�	*FX15
��:ȗX%,Y%,T%
��>3000�1,-15,300,1:�=0
��T%��(10)<>�
�*CHANNELVOICE 1 1
��
��getoptions
�
�*FX200,3
��colours(12)
�Hole%=1:totscore%()=0

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

X%=0

�

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

,round%=�

6�initcloud

@li%=�(4)-1

J
�getstart

T
�initwind

^�setplayer

h�

r�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
�ba%�&ED,bag%(Hand%),-754
�
/�23,27;m%(1,g%)|:�&ED,mx%(g%,Hand%),my%(g%)
&�getinfo
0
D%=�:B%=�
:
W%=�:K%=�
D�walter
N�flight
X�sx%>640�chofsc
b�W%�splash:��:���
l�putback
m
�del(150)
v��
�� 
���instruct
��colours(9):�screenbox
�C�quest("DO YOU REQUIRE INSTRUCTIONS?","YES","NO",0):�butt(0):�
�'�colours(12):�mesbox(0,0,1279,1023)
��139:�9:�28,3,30,78,6
�"�24)"HOLED OUT EXTRA COURSES"
��8
�9�14,2)"2 Volumes of extra courses are now available"
��12
�R�0,4)"Each volume contains 2 superbly designed new courses to challenge your"
�K�"golfing skills to the limit.  All the features of the game have been"
�E�"carefully woven together to test even the likes of Nick Faldo."
�9
�'�32)"PRICES"
>�'�15)"Holed Out Extra Courses Volume 1";:�8:�"    @16.95"
 @�9:�15)"Holed Out Extra Courses Volume 2";:�8:�"    @16.95"
*�12
4N�''"Ask your dealer to reserve Volume 2 now or you can obtain it directly"
>L�"from us by mail.  Access and Visa telephone orders are welcome on our"
H!�"24 hour answering service."
R�8
\N�'�4)"THE FOURTH DIMENSION, P.O. Box 4444, Sheffield.  Tel. (0742) 700661"
f�12
p
�peb:�
z�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:ȓȐ1014+T%*50,804,28,56
�!�12:�1020+T%*50,850:�5:�;T%+1
�
�:�4:�
��139:�12
�28,2,30,78,4
��0,0)"Game control in the Archimedes version of ";:�9:�"HOLED OUT";:�12:�" is via"'"the MOUSE, the keys are numbered as indicated on the right."
T�'"The differences to the instructions as shown in the manual"'"are as follows:"
$B�'"STROKEPLAY/"�16)"There can be up to 6 players in any round"
.��'"GAME CONTROLS/"''"1. SELECT CLUB. Use the MOUSE to indicate the club required then"�16)"press any button to go to the next stage"
8G�'"2. DIRECTION.   Position the cursor with the MOUSE then either."
B.�(16)"Press [2] to go to the next stage."
L3�(16)"Press [1] or [3] to select another club"
VQ�'"3. POWER."�16)"As soon as the direction has been selected by pressing [2]"
`0�16)"the bar indicator will start to move."
j/�16)"Pressing [2] will give a Normal shot"
t/�16)"Pressing [1] will give a Hooked shot"
~0�16)"Pressing [3] will give a Sliced shot"'
�	��peb
�(�'�22)"PRESS ANY BUTTON TO CONTINUE"
��butt(0)
�!�:ȗX%,Y%,K%:�K%:�1,-10,200,1
��butt(0)
��
�� 
���chofsc
�*FX112,3
��
�=�x1%=� ȑ1280,768+O%-6166*green%:�ȑ0,768+O%-6166*green%
�P%=rough
�map1:�drawit

�map1:�drawit
P%=water:�6:�drawit

�green%�
G%=�xs%,ys%)
(�G%=6�G%=11W%=�
)�
2*FX112,1
<�
F� 
P
��preview
Z�
d�colours(9):�screenbox:ȗ�
nlhol%=�choseahole
x�lhol%�drawmap(lhol%)
��lhol%=�
��
�� 
���drawmap(holeno%)
��initcloud
�li%=2:�initwind
�%�r%,l%,OL%,A%,AA%,T%,I%,SP%,X%,Y%
�X%=640:Y%=512
��
�P%=mappoint%+holeno%:SP%=P%
�&OL%=(�(�~((map!(P%+&2FA))�&FFFF)))
�
AA%=�map1
�
�A%=1�AA%
l%=�map2/10.5
r%=�map2/10.5
x%(A%)=r%:y%(A%)=l%
"�
,I%=�map1-1
6"T%=�map1:T%=�map1:P%=P%+T%*4+4
@l%=0:r%=0:t%=0:b%=0
J �colours(12):�screenbox:�137
T&�mesbox(532-OL%,294,OL%*2+212,692)
^)�26,24,548-OL%;310;548+OL%+180;970;:�
hȑ592+OL%,640
r�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")
�J�smallmes(232,66,12,"ANY OTHER BUTTON TO RETURN TO THE HOLE SELECTOR")
�ȗ�:ȗ�X%,Y%
��
�!ȗȓ548-OL%,310,OL%*2+180,660
�ȗX%,Y%,T%
'�X%<688�r%=(688-X%)�8�r%=(X%-688)�8
)ȗȓ548-OL%,310+r%,OL%*2+180,660-r%*2
y%=((592+OL%)-X%)�2
&x%=(640-Y%)�2
0&�T%=2�displayview(X%,Y%,SP%):��:��
:
�T%:��
D�
N� 
X��displayview(X%,Y%,SP%)
bȗ�
l�A$,mappoint%:mappoint%=SP%
vYY%=(((592+OL%)-X%)�2)*21
�X%=((640-Y%)�2)*21
��X%<42��YY%<42X%=42:YY%=42
�7OL%=(�distance(X%,YY%)):green%=(OL%<525):OL%=OL%/21
�.A$=Course$+" HOLE "+�(holeno%�&300+1)+", "
�7�green% A$=A$+�(OL%*3)+" FEET":�A$=A$+�OL%+" YARDS"
�A$=A$+" FROM HOLE"
�
�light
��sine(X%,Y%)
��drawscreen
�/�26:X%=640-�A$*8-24:�smallmes(X%,860,13,A$)
��butt(0)
��ȗX%,Y%,SP%:�SP%
��butt(0)
�
� 
��map2(� x%,� y%,p%)
 !y%=-�map2/10.5:x%=-�map2/10.5
*
�p%,x%,y%
4�
>� 
Hݤchoseahole
R�butt(0)
\�X%,Y%,K%,F%,N%,out%
f,�centbox(�,"PLEASE SELECT A HOLE",12,10)
p&�mesbox(464,444,148,100):�dono2(1)
z�mesbox(704,536,80,80)
� �smallmes(704,462,12,"EXIT")
��mesbox(704,368,80,80)
�%�15:�744,600:�720,554:�85,768,554
�2�744,388:�720,432:�85,768,432:�720,436,768,436
� �8:�720,432,744,388:�768,432
��720,558,744,600:�768,558
�ȗȓ480,388,432,220
�N%=1:�:ȗX%,Y%,K%
��K%�
��X%>716�
��X%<772�
�6�Y%>544N%=N%�18+1:�dono2(N%):�1,-10,200,1:�butt(0)
�A�Y%<442N%-=1:N%=N%-(N%=0)*18:�dono2(N%):�1,-10,200,1:�butt(0)
	�
	*�Y%>472�Y%<516out%=�:F%=�:�1,-10,200,1
	�
	$�X%<604�
	.�Y%>456�Y%<540F%=�
	8�
	B�
	L	�F%=�
	V=((N%-1)*&300)�out%
	`� 
	j��dono2(A%)
	t�A$,T%:A$=�(A%)
	~�11:ȓȐ476,464,124,64
	��476-32*(A%<10),520
	�)�12:�T%=1��A$:�double(�(�A$,T%,1))):�
	��
	�� 
	���getoptions
	��T%=1�6:jump%(T%)=T%:�
	�*CHANNELVOICE 1 1
	��:�
	��colours(9):�screenbox
	�ȗ�640,496
	�smappoint%=�quest("WHICH COURSE DO YOU WISH TO PLAY?","GLEN AIGRE","EAGLE PARK",0)*&3600:mapstart%=map+mappoint%
	�7�mappoint%Course$="EAGLE PARK"�Course$="GLEN AIGRE"
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%)
2Qhand%(T%)=1-�quest("IS "+name$(T%)+" LEFT OR RIGHT HANDED?","LEFT","RIGHT",0)
<�getskill(T%)
F�
P�confirm(noofplayers)�0
Z��
d7� CHANGE THE FOLLOWING NUMBER TO (HOLE NO. -1)*&300
n�mappoint%=&2400
x�
�� 
�ݤ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:�
��12:�139:�;T%;" PLAYER";
��T%<>1�"S";
�*�",  PLAYING AT ";Course$;",  UNDER ";
�Ȏplay%�
��1:�"MATCH";
��2:�"STROKE";
�
�" PLAY RULES"
�0,1)�60,"-")
"1�6:�0,2)"NAME"�22)"DEXTERITY"�46)"SKILL":�12
,�0,3)�60,"-")
6�0,4);
@
�boardcol
J�N%=1�T%
T	�N%+4
^�name$(N%)�22);
hȎhand%(N%)�
r�0:�"RIGHT";
|�1:�"LEFT";
��
��" HANDED"�46);
� A$=�skillname(currents%(N%))
��A$
��
��12:��60,"-")
�$�smallmes(520,368-I%*16,8,"YES")
�#�smallmes(680,368-I%*16,8,"NO")
�!ȗȓ536,376-I%*16,208,44:ȗ �
��
�ȗX%,Y%,K%
��(X%<590�X%>692)�K%
��1,-10,200,1
=X%>692
�
� 
&��boardcol
0�5,208,0,0
:�6,144,128,80
D�7,112,112,112
N�8,240,112,0
X�9,96,96,48
b�10,208,80,144
l�
v� 
���getskill(T%)
��butt(0)
��X%,Y%,K%,F%,N%
�;�centbox(�,"WHAT IS "+name$(T%)+"S SKILL LEVEL?",15,12)
�3�mesbox(356,464,416,64):�doskill(currents%(T%))
��mesbox(820,540,80,80)
��mesbox(820,372,80,80)
�%�15:�860,604:�836,558:�85,884,558
�2�860,388:�836,432:�85,884,432:�836,436,884,436
� �8:�836,432,860,388:�884,432
��836,562,860,604:�884,562
�ȗȓ372,388,514,220
�!N%=currents%(T%):�:ȗX%,Y%,K%

�K%�

�X%>836�

8�Y%>544�N%<4N%+=1:�doskill(N%):�1,-10,200,1:�butt(0)

 8�Y%<442�N%>1N%-=1:�doskill(N%):�1,-10,200,1:�butt(0)

*�

4�X%<780�

>�Y%>475�Y%<514F%=�

H�

R�

\	�F%=�

f�1,-10,200,1

pcurrents%(T%)=N%

z�

�� 

���doskill(T%)

��A$

�A$=�skillname(T%)

��11:ȓȐ372,480,12*32,32

��12:�372,508:�A$

��

�� 

�ݤskillname(T%)

��A$

�	ȎT%�

��1:A$="BEGINNER"

��2:A$="ENTHUSIAST"
�3:A$="AMATEUR"
�4:A$="PROFESSIONAL"
�
$=A$
.� 
8��getname(T%)
B�butt(0)
L*�X%,Y%,K%,Q,OX%,OY%,A$,B$:A$=name$(T%)
V�noofplayers>1�
`	ȎT%�
j�1:B$="FIRST "
t�2:B$="SECOND "
~�3:B$="THIRD "
��4:B$="FOURTH "
��5:B$="FIFTH "
��6:B$="SIXTH "
��
��
��A$<10A$=A$+�10-�A$," ")
�6�centbox(�,"WHAT IS THE "+B$+"PLAYERS NAME?",15,8)
�ȗȓ306,480,634,48
��smallmes(784,472,11,"OK")
��smallmes(288,472,11,A$)
�ȗOX%,OY%,K%:�=1000
��
�butt(0)

A$=name$(T%)
�336,516:�A$;
�139:*FX21
(�
22Q=�(0):�Q<>� �(X%<702�K%) �=0:ȗOX%,OY%,K%:ȗ�
<�Q<>127Q=Q �223
F�(Q>64�Q<91)�Q=127�
P+�A$<>10�Q<>127A$=A$+�Q:�Q:�1,-10,200,1
Z.�A$<>0�Q=127A$=�A$,�A$-1):�Q:�1,-10,200,1
d�
nȗX%,Y%,K%
x%�>500��(X%-OX%)>8��(Y%-OY%)>8ȗ�
��(X%>792�K%)�Q=13
�5�A$=""�1,-15,125,20:name$(T%)=defname$(T%):�=0:��
��1,-10,200,1:��
��140:name$(T%)=A$
�defname$(T%)=A$
��
�� 
�ݤnoplaying
��butt(0)
��play%=1�=2
��X%,Y%,K%,F%,N%
�)�centbox(�,"HOW MANY PLAYERS?",12,10)
�$�mesbox(464,444,84,100):�dono(1)
�mesbox(704,536,80,80)
�mesbox(704,372,80,80)
%�15:�744,600:�720,554:�85,768,554
"2�744,388:�720,432:�85,768,432:�720,436,768,436
, �8:�720,432,744,388:�768,432
6�720,558,744,600:�768,558
@ȗȓ480,384,292,220
JN%=1:�:ȗX%,Y%,K%
T�K%�
^�X%>716�
h5�Y%>544�N%<6N%+=1:�dono(N%):�1,-10,200,1:�butt(0)
r5�Y%<442�N%>1N%-=1:�dono(N%):�1,-10,200,1:�butt(0)
|�
��X%<540�
��Y%>456�Y%<540F%=�
��
��
�	�F%=�
��1,-10,200,1
�=N%
�� 
���dono(A%)
��11:ȓȐ476,468,60,64
��476,520
��12:�double(A%)
��
� 
ݤquest(A$,B$,C$,H%)

�L%,D%,R%
&R%=704+�length(�C$)
0L%=600-�length(�B$)
:�centbox(�,A$,12,6+H%)
DD%=464-H%*32
N�smallmes(L%,D%,11,B$)
X�smallmes(704,D%,11,C$)
bȗȓL%+16,D%+8,R%-L%-64,48
lȗ �
v�butt(0)
��:ȗL%,R%,D%
��D%�(L%<568�L%>712)
��1,-10,200,1
�D%=-(L%>712)
�=D%
�� 
�ݤlength(L%)
�L%+=3:�(L%�1)-0L%+=1
�
=L%*32
�� 
���double(C%)
�C%=128+4*C%
� �C%,C%+1,8,8,10,C%+2,C%+3,11
�
� 
��screenbox
 �M%:M%=�6
*�mesbox(0,0,1279,1023)
4�24,16;16;1263;1007;:�140:�
>��textwind
H�28,1,30,38*M%,1:�140:�
R�
\� 
f��centbox(cls,A$,C%,H%)
p
�cls �
z
�T%,I%,M%
���=9M%=16�M%=8
�T%=640-�A$*M%
�I%=512+H%*16
�=�mesbox(T%-M%,496-H%*16-20*(H%=1),�A$*M%*2+M%*2,H%*32+32)
��C%:�T%,I%-16*(H%=1):�5:�A$
��
�� 
���smallmes(x%,y%,C%,A$)
�
�o%,M%
���=12M%=16�M%=32
�o%=(1-(�A$�1))*M%
�$�mesbox(x%,y%,�A$*M%+M%*2+o%,64)
�!�12:�5:�x%+M%+o%�2,y%+44:�A$;
�
� 
��mesbox(x%,y%,X%,Y%)
$�8:ȓȐx%,y%,X%,Y%
.�3:ȓx%+4,y%+4,X%-8,Y%-8
8�4:ȓx%+8,y%+8,X%-16,Y%-16
B#�11:ȓȐx%+12,y%+12,X%-24,Y%-24
L�
V� 
`��meswind(A$,B$,C$,F%,C%)
j*CHANNELVOICE 1 1
t�26
~�X%,x%,x2%,c%,I%,Y%
�!Y%=80-(B$<>"")*48-(C$<>"")*48
�X%=(�A$*16+32):x%=640-X%�2
��mesbox(x%,800,X%,Y%)
�	�3,C%
��5:X%=x%+16
�x%=640-(�B$*8)
�x2%=640-(�C$*8)
��I%=1�F%*2+1
��X%,772+Y%:�A$
��B$<>""�x%,724+Y%:�B$
��C$<>""�x2%,676+Y%:�C$
��del(50)
�1,-10,180,1

�
�4:�
�8,0
(*SCHOOSE topofscreen
2�&ED,0,704
<
�windows2
F�
P� 
Z��board
d'totscore%()=totscore%()+currentS%()
nA�T%=1�noofplayers:holescores%(hsp%(T%),Hole%)=currentS%(T%):�
x
�boardcol
��3,0,144,0:�131:�
��winsort
�!�P%,Y%,T%,I%,S%,mp%,A$,sc%,O%
�O%=(play%=2)*4:�26
��0:ȓȐ60,76,1156,920
��64,0:ȓȐ64,80,1148,128
��48,0:ȓȐ64,992,1148,-128
�&�12:�768,544:�1212,992:�85,1212,80
�"�13:�512,544:�64,80:�85,64,992
��11:ȓȐ98,112,1080,848
��0:ȓ98,112,1080,848
�%�24,100;116;1176;956;:ȑ98,116:�5
��14:�P%=1�6:Y%=788-P%*132
�7:�0,Y%+124,1080,Y%+124
�14:�0,Y%,1080,Y%
&�T%=40�80�40:�0,Y%+T%,1080,Y%+T%:�
"'�T%=1�8:X%=T%*120:�X%,Y%,X%,Y%+80:�
,�
6�P%=1�noofplayers
@,mp%=mapstart%+&2F9:Y%=728-(P%-1)*132:�12
J:�I%=0�-40�-40:�T%=0�8:�T%*120+4,Y%+I%:�;?mp%:mp%+=&300
T	�:�:�
^�P%=1�noofplayers
h5mp%=mapstart%+&2F9:Y%=728-(P%-1)*132:X%=32:par%=0
r"�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
��-1:A$=�sc%:�0
��
���5-�A$," ");A$
�X%+=120:mp%+=&300
��
�5�jump%(P%)+4:�4,768-(P%-1)*132:�name$(P%)�20+O%);
�Ȏcurrents%(P%)�
��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"
0Ȏplay%�
:
�1:�match
D�2:�stroke
N�
X�
b �15:T%=542-�A$*8:�T%,824:�A$
l�12:ȓT%-8,788,�A$*16+14,48
v)�26:�smallmes(360,32,11," CONTINUE ")
�%�smallmes(720,32,11,"QUIT ROUND")
��
�ȗȓ372,44,528,40
�ȗ�:ȗ�464,64
��butt(0):�=0:���>100
��:ȗX%,Y%,T%
��T%�(X%<556�X%>718)
�D�X%>718�confirm:�X%>926�0,0:�("SCHOOSE topofscreen"):�&ED,0,0:�0
���
��0:�4:�
�ȗ�
��139
��
� 

��confirm
�butt(0)
 �gtos(0)
*�mesbox(640,32,512,160)
41�8:�656,176:�"ARE YOU SURE YOU WANT TO QUIT?"
>�smallmes(794,60,8,"YES")
H�smallmes(916,60,8,"NO")
Rȗȓ806,72,178,40:ȗ�890,82
\�:ȗX%,Y%,T%
f�T%�(X%<866�X%>926)
p�
z� 
���match
��T%,B$,S1%,S2%
��T%=1�Hole%
�;� holescores%(hsp%(1),T%)<holescores%(hsp%(2),T%)S1%+=1
�;� holescores%(hsp%(2),T%)<holescores%(hsp%(1),T%)S2%+=1
��:T%=�(S2%-S1%)
�%B$=�(T%):�T%B$=B$+" UP"�B$="EVEN"
�B$=�14-�B$," ")+B$
�	ȎP%�
��1:�S1%>=S2%�B$
��2:�S2%>=S1%�B$
��
�!A$=Course$+" : MATCH PLAY"+A$
�
� 
��stroke
$
�T%,B$
.#T%=totscore%(P%)-par%:B$=�(�T%)
8
Ȏ�T%�
B�0:B$="EVEN PAR"
L�1:B$=B$+" OVER PAR"
V�-1:B$=B$+" UNDER PAR"
`�
j��14-�B$," ");B$
t"A$=Course$+" : STROKE PLAY"+A$
~�
�� 
���showwind
�#�w$,T%,C%,s%,i%,x1%,y1%,BX%,BY%
�5�green% C%=9:w$="SLOPE":s%=-2�C%=6:w$="WIND":s%=4
�%�13:�26,0)"DIRECTION OF"�29,1)w$
��T%=C%�C%+s%�s%
��T%
�ȏ526,820,88+i%
�ȏ526,820,12+i%
�i%+=4:�
��8
��526,820
BX%=wx*25:BY%=wy*25

'x1%=va*BY%+vb*BX%:y1%=vi*BY%+va*BX%
�526+x1%,820+y1%
�
(� 
2
��setwind
<WX=0:WY=0:F%=green%
Fwc=5+4*green%:wc2=wc
P1�F%:P%=mappoint%+&2F4:wx=�map2/3:wy=�map2/3:�
Zwx=0:wy=0:�skill%<3�
dwx=Wx:wy=Wy
n�
x� 
���initwind
��a%
�stren%=�(36)
�
a%=�(360)
�Wx=((��a%)*stren%)/9
�Wy=((��a%)*stren%)/9
�Fx=(��a%)*(15+(stren%�2))
�Fy=(��a%)*(15+(stren%�2))
��
�� 
�
��spot
�bs%=1:BX=0:BY%=-R%:h%=0
�%x1%=va*BY%+vb*BX:y1%=vi*BY%+va*BX
�vt(y1%,x1%,H%):ys%-=4
*FX112,2
lie%=�xs%+2,ys%)
"�wellie(0)
,
�green%�
6,T%=�(mx%(0,Hand%)+4+T%+80*Hand%),my%(0))
@�T%=6�T%=11�
J�wellie(30)
T�
^�
h*FX112,1
r�xs%,ys%:�BY10,16
|ox%=xs%:oy%=ys%
�osx%=xs%:osy%=ys%
�sx%=xs%:sy%=ys%
�*SGET gr
�*SGET sh
��
�� 
���wellie(W%)
��T%
��T%=1�8:m%(T%,0)=T%+W%:�
�wellie%=W%=30
��
�� 
���splash
*CHANNELVOICE 1 PLOP
�A$,r%,a%,T%,x%,y%
bad%=�:�1,-15,5,20
&�sx%<640�
0�r%=5�55�5
:
�r%>9�
D�6:Ȗ:Ȗ
N�a%=0�45
X2x%=xs%+C(a%)*(r%-10):y%=ys%+S(a%)*((r%-10)>>2)
b�x%,y%)=11Ȓx%,y%
l�
v�
��11:�r%<50�
�	Ȗ:Ȗ
�1�a%=0�45:x%=xs%+C(a%)*r%:y%=ys%+S(a%)*(r%>>2)
��x%,y%)=6Ȓx%,y%
��
��
��
��
�stroke%+=1
�!�G%=11A$="THE SEA"�A$="WATER"
�M�meswind("BALL LOST IN "+A$,"FORFEIT ONE STROKE","PLEASE PLAY AGAIN",5,6)
��getplayvals
�	�spot
�*SCHOOSE plain
MȖ:�&ED,mx%(g%,Hand%),my%(g%):�23,27;m%(1,g%)|:�&ED,mx%(g%,Hand%),my%(g%)
�
� 
 
��putback
*
�green%�
4�x1%<80x1%=(80+�(30))*�x1%
>�y1%<80y1%=(80+�(30))*�y1%
H�
R%currentR%(1)=�distance(�x1%,�y1%)
\currentx%(1)=x1%
fcurrenty%(1)=y1%
pcurrentS%(1)=stroke%
z�
�� 
�
��swapall
�$Ȕ currentR%(I%),currentR%(I%-1)
�$Ȕ currentx%(I%),currentx%(I%-1)
�$Ȕ currenty%(I%),currenty%(I%-1)
�$Ȕ currents%(I%),currents%(I%-1)
�$Ȕ currentS%(I%),currentS%(I%-1)
�$Ȕ totscore%(I%),totscore%(I%-1)
� Ȕ oldpos%(I%),oldpos%(I%-1)
�Ȕ name$(I%),name$(I%-1)
�Ȕ hsp%(I%),hsp%(I%-1)
�Ȕ hand%(I%),hand%(I%-1)
�Ȕ jump%(I%),jump%(I%-1)
�
� 

��winsort
$
�T%,I%
.�noofplayers<>1�
8'�T%=1�noofplayers:�I%=2�noofplayers
B�oldpos%(I%)<oldpos%(I%-1)�
L�swapall
V�
`�:�
j'�T%=1�noofplayers:�I%=2�noofplayers
t#�currentS%(I%)<currentS%(I%-1)�
~�swapall
��
��:�
��
��
�� 
���setplayer
��T%
��T%=1�noofplayers
�oldpos%(T%)=T%
��
��
�� 
��whichplayer


�T%,I%
�noofplayers<>1�
�T%=1�noofplayers
(�I%=2�noofplayers
2#�currentR%(I%)>currentR%(I%-1)�
<�swapall
F�
P�:�
Z�
dstroke%=currentS%(1)
nskill%=currents%(1)
x#�currentx%(1)=0�currenty%(1)=0�
�round%=�:mappoint%+=&300
��
��hand%(1)<>Hand%�
�Hand%=hand%(1)
�!�T%=1�11:�("SFlipY "+�(T%)):�
�"�T%=31�38:�("SFlipY "+�(T%)):�
�*SFlipY 20
��
��
�� 
���getplayvals
�$X%=currentx%(1):YY%=currenty%(1)
��
� 
��light

Y%=YY%
"�Y%>0�X%>0!px%=li%
,�Y%>0�X%<=0!px%=(li%+1)�3
6�Y%<=0�X%<=0!px%=(li%+2)�3
@�Y%<=0�X%>0!px%=(li%+3)�3
J�
T� 
^��drawscreen
hP%=mappoint%:AA%=�map1
r�caltre(x%(),y%(),z%())
|5�sort,bs%,R%,BY%,K%,x1%,y1%,h%,AA%,x%(),z%(),y%()
��windows:�sceen
��
�� 
���sine(X%,Y%)
�R%=�distance(�X%,�Y%)
�%green%=(R%<525):Ma=.7-(green%*.3)
�1OL%=(�(�~((map!(mappoint%+&2FA))�&FFFF)))>440
�*r=12096-2000*green%-1500*(OL%��green%)
�
d=r-R%
�(g%=-green%:O%=-6292*green%:H%=250+O%
�va=-X%/R%:vb=Y%/R%:vi=-vb
��
�� 
 ݤdistance(x%,y%)
 =�(x%^2+y%^2)
 � 
 &��getstart
 0P%=&2E8+mappoint%:X%=�map2
 :
YY%=�map2
 DHole%=map?(mappoint%+&2F8)
 Nstx%=X%:sty%=YY%
 X�YY%=15*21:X%=0
 b�T%=1�noofplayers
 lcurrentx%(T%)=X%
 vcurrenty%(T%)=YY%
 �#currentR%(T%)=�distance(X%,YY%)
 �currentS%(T%)=0
 ��
 ��
 �� 
 ���chhole
 �	B%-=1
 �!�(B%>0�(ya>4��green%))�h%>30�
 �4�h%>1��(OBY%-BY%)>5�(�green%��(5)<>2)�ric:B%=4:�
 �
��chhole2
 �D%=�:*SCHOOSE sh
 ��&ED,osx%,osy%
 �*SCHOOSE gr
!�&ED,ox%,oy%
!*CHANNELVOICE 1 HOLED
!�1,-15,20,20
! 
�del(150)
!*
�holedout
!4'ya=0:u=0:ud=0:p%=0:h%=0:x1%=0:y1%=0
!>�
!H� 
!R��holedout
!\�A$,B$,C$,F%,S%
!f#S%=stroke%-map?(mappoint%+&2F9)
!p	ȎS%�
!z�1:A$="IT'S A BOGIE":B$=""
!�,�0:A$="HOLED OUT TO PAR":B$="WELL DONE!"
!�2�-1:A$="NICE ONE "+name$(1):B$="IT'S A BIRDIE"
!�5�-2:A$="SUPERB PLAY "+name$(1):B$="IT'S AN EAGLE"
!�E�-3:A$="CONGRATULATIONS "+name$(1):B$="YOU'VE FLOWN AN ALBATROSS"
!�+ A$="HOLED OUT "+�S%+" OVER PAR":B$=""
!��
!�cC$="":F%=3:S%=5:�stroke%=1A$="WOW! IT'S A HOLE IN ONE":B$="KNOCKED IN BY":C$=name$(1):F%=6:S%=3
!�&� �A$<�B$�:A$=" "+A$+" ":��A$>=�B$
!��meswind(A$,B$,C$,F%,S%)
!��del(50)
!��
!�� 
!�	��ric
"�4,-15,20,1
"
��2ric
"u=u*4:�u=0u=(3+�(5))*�x1%
"$ya=ya �2:p%=ya �3
".�green%�ya=0 h%=0:p%=0
"8�
"B� 
"L��flight
"VOBY%=BY%
"`[��fly:�23,27;m%(8,g%)|:�&ED,mx%(g%,Hand%),my%(g%):�ba%:�23,27;20|:�&ED,bag%(Hand%),-754
"jA�green%�h%=0ș6,112,2:G%=�sx%+4,sy%+4):ș6,112,1:�G%=0�chhole
"t0OBY%=BY%:�green%��(x1%+4)<5��(y1%)<5�chhole
"~�sl>ya sl=ya/2*�sl
"�wc-=1:�wc=0�
"�wc=wc2:�wc2>1wc2-=1
"�WX+=wx:WY+=wy
"��
"��ya<=0�h%=0��p%<2
"�YY%=y1%:X%=x1%
"��D%��green%�
"�*FX112,2
"�G%=�sx%,sy%)
"�G1%=�sx%,sy%+8)
"�*FX112,1
"��(G%�G1%)=0�chhole2
#�
#
� 
#	��fly
#�h%<4�ya<16Ȗ
#(-Ȗ:BX+=u*yd+Sl:Sl+=sl:u-=ud:�u>ya u=u>>1
#2!BY%+=ya*yd:�ya>0 ya-=.5:�ya=0
#<Fx1%=va*BY%+vb*BX+WX:y1%=vi*BY%+va*BX+WY:h%+=p%*Ma:p%-=1:�p%<10F%=�
#F�h%<=0 �bounce
#P6�vt(y1%,x1%,H%):sx%=xs%:sy%=ys%:�vt(y1%,x1%,H%-h%)
#Z.�K%=� ud=0:ya=0:p%=0:u=0:K%=1:�3,-10,20,40
#d7�W%� plotball,bs%,oy%,ox%,osy%,osx%,ys%,xs%,sy%,sx%
#n�
#x� 
#���walter
#�*CHANNELVOICE 1 SHOOSH
#�
�T%,I%
#�,yd=1+(.75*green%):�T%=1�5:*SCHOOSE BLACK
#�^Ȗ:�&ED,mx%(g%,Hand%),my%(g%):�23,27;m%(T%,g%)|:�&ED,mx%(g%,Hand%),my%(g%):�I%=0�T%:Ȗ:�:�
#��T%=5�1��:*SCHOOSE BLACK
#��T%=3��green%�1,SO%,40,40
#�[�I%=1�T%:Ȗ:�:�&ED,mx%(g%,Hand%),my%(g%):�23,27;m%(T%,g%)|:�&ED,mx%(g%,Hand%),my%(g%):�
#��2,SO%,1,10
#��T%=6�8:�T%>6�fly:�Ȗ
#�*SCHOOSE plain
#�-�green%:Ȗ:�&ED,mx%(g%,Hand%),my%(g%)�Ȗ
#�0�23,27;m%(T%,g%)|:�&ED,mx%(g%,Hand%),my%(g%)
$T�lie%=1:�1:�I%=0�20:Ȓsa%(0,T%-6,I%)+(T%+10)*Hand%,sa%(1,T%-6,I%)+my%(g%):�:�8,0
$�
$
�fly:�fly
$"*SCHOOSE plain
$,MȖ:�&ED,mx%(g%,Hand%),my%(g%):�23,27;m%(8,g%)|:�&ED,mx%(g%,Hand%),my%(g%)
$6�
$@� 
$J
��del(T%)
$T�=0:���>T%
$^�
$h� 
$r��bunker
$|�32,0:H%+=2:P%=oP%
$�
�drawbunk
$��2:H%+=2:P%=oP%
$�
�drawbunk
$�	H%-=4
$��
$�� 
$���drawbunk
$�<np%=�map1:�map(CX%,CY%,H%,4,r):�map3(SX%,SY%,H%,4,r,CX%)
$�5�I%=1�np%-1:�map3(XI%,YI%,H%,85,r,CX%):�CX%,CY%:�
$��85,SX%,SY%
$��
$�� 
$�!��map3(� x%,� y%,z%,p%,r,CX%)
%�pO%
%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
%)�green%�y%>-32�y%<&FFFF8000 y%=-6000
%&x%=x%-�(x%-CX%)*4
%0pO%=�x%,y%)
%:ȕpO%>3
%Dy%+=4:pO%=�x%,y%)
%N�
%X
�p%,x%,y%
%b�
%l� 
%v��sceen
%�
No%=�map1
%�rough=P%
%��green%�
%�
Co%=�map1
%��:np%=�map1
%�"P%=P%+np%*4+4:Co%=�map1:No%-=1
%��Co%=5�Co%=1:P%-=1
%��
%�-sP%=P%:�T%=1�No%:Co%=�map1:�Co%=6water=P%
%��green%�Co%=4�
%�np%=�map1:P%=P%+np%*4+4
%�*�:oP%=P%:Co%=Co%-((Co%=1)�green%):�Co%
%��drawit:�Co%=1�bunker
&�:�:�green%�
&�8,0
&*SCHOOSE HOLE
& �&ED,-6,-(d*H%�r)*2-12
&*�
&4�trees:*FX112,2
&>�green%�135:��139
&H%�:P%=sP%:�T%=1�No%:Co%=�map1:�Co%
&R�green%�Co%=4�
&\np%=�map1:P%=P%+np%*4+4
&f�oP%=P%:�drawit
&p�
&z�
&��green%�
&��8,0
&�*SCHOOSE BLACKHOLE
&��&ED,-6,-(d*H%�r)*2-12
&��
&�*FX112,1
&�Ȏjump%(1)�
&��1:�8,208,0,0
&��2:�8,144,128,80
&��3:�8,112,112,112
&��4:�8,240,112,0
&��5:�8,96,96,48
&��6:�8,208,80,144
'�
'�
'� 
'$��gtos(Y%)
'.,�26:�0,Y%:�1279,Y%+319:*SGET topofscreen
'8�
'B� 
'L
��getinfo
'V*CHANNELVOICE 1 1
'`�ya2,BX%,BY%,yst%
'j�gtos(704)
't
ȑ80,0
'~�24,0;704;1131;1023;
'��139:�139:�
'��8:ȓ0,704,412,319
'�ȓ412,704,228,319
'�ȓ640,704,491,319
'��3:ȓ4,708,404,311
'�ȓ416,708,220,311
'�ȓ644,708,483,311
'��4:ȓ8,712,396,303
'�ȓ420,712,212,303
'�ȓ648,712,475,303
'��:�28,6,8,74,1:�12
'�6�41,0)"PLAYER         : ";:�8:�name$(player%):�12
(%�41,1)"PLAYING AT     : "Course$
(
$�41,2)"HOLE NUMBER    : ";Hole%
(4�41,3)"PAR            : ";~map?(mappoint%+&2F9)
(E�41,4)"OVERALL LENGTH : ";~(map!(mappoint%+&2FA))�&FFFF;" YARDS"
((V�41,5)"RANGE TO HOLE  : ";:�8:�;(R%�21)*(1-green%*2);:�green%:�" FEET":��" YARDS"
(2*�12:�41,6)"STROKES PLAYED : ";stroke%
(<�showlie
(F�setwind
(P
�showwind
(Z�
(d
ȑ80,0
(n�getclub
(x"�12:�2)"DIRECTION THEN POWER"
(��8:�4)A$(vp%)" SELECTED"
(�8�8:ȓ46,776,320,128:ȓ44,776,324,128:�48,866,364,866
(�?�6:ȓȐ48,870,316,32:�12:�78,898:�5:�"CLUB POWER METER"�4:�
(�K�56,784,56,824:�T%=49�100:�((T%/100*T%)�25)=0:�T%*3+56,784,T%*3+56,824
(��
(�ȓ56,792,300,24
(��11:ȓȐ56,796,300,16
(� my%=256-green%*164:ș6,106,2
(�	ȑ0,0
(�>ȗȓ432+(green%=0)*160,my%,414-(green%=0)*320,0:ȗ�640,my%
(�xs%=0:OX%=0:u=0
(��:ȗX%,Y%,C%
(��C%=1�C%=4��:��
)#a%=(X%-xs%-640)/8:�a%<10a%=�a%
)	u+=a%
)
�X%<>xs%�
)"ABX%=0:BY%=-R%:�vt(vi*BY%+va*BX%,va*BY%+vb*BX%,H%):yst%=ys%+25
),C�:BX%+=u:BY%+=80:�vt(vi*BY%+va*BX%,va*BY%+vb*BX%,H%):�ys%>=yst%
)6�
)@ȗ�xs%-640,my%
)J	�C%=2
)Tȗ�
)^
p%=�power
)hSO%=-15*p%/100
)r�green%�vp%=13u=u+�(5)-3
)|2u=u/(8-g%*2):ya=�((CV%(vp%)/100)*p%):�ya<1ya=1
)�ud=u/(ya*3)
)�p%=p%*.32:h%=0
)��vp%=13p%=5*-(green%=�)
)��del(100):stroke%+=1
)� �4,26:�:*SCHOOSE topofscreen
)��8,0:�&ED,0,704
)�
�windows2
)��
)�� 
)�
��showlie
)��a$
)�a$="ON THE ":�8
)��41,7);
*!bunk%=�:bad%=�:wind%=skill%>2
*�green%�
*4�lie%=5 �a$"GREEN";:��"ON EDGE OF GREEN";:lie%=5
*&�
*0Ȏlie%�
*:�1:�"IN A BUNKER ";:�gob
*D�4:�"ON A PATHWAY";
*N�6:�wetmes
*X*�7:�y1%<>sty%:�a$"FAIRWAY";:��a$"TEE";
*b�9:�"IN THE ROUGH ";:�gob
*l�
*v�
*�� 
*���wetmes
*��6:bunk%=�:�T%
*�T%=�(3)
*�	ȎT%�
*��1,3:�"IN SHALLOW WATER";
*�>�2:�wellie%�"IT'S A WELLIE JOB";:��"BALANCED ON LILY PAD";
*��
*��
*�� 
*�	��gob
*�:�g$,b$:g$="GOOD LIE":�lie%=9b$="BAD LIE":�b$="PLUGGED"
*�
Ȏskill%�
+�1:�"NO EFFECT";
+�2,3:�g$;:bunk%=�
+'�4:bunk%=�:�(2)=2�b$;:bad%=1:��g$;
+ �
+*�
+4� 
+>ݤpower
+H�X%,C%,c%,p%,a%
+R
ȑ80,0
+\�12:�butt(0):�del(1):a%=1
+fȕC%=0�c%<>156
+pp%+=a%:�p%=100a%=�
+zc%+=1:�8:�c%�1Ȗ
+�6ȓȐ56,796,p%*3,16:�11:ȓȐ56+p%*3,796,300-p%*3,16
+�0�2,4);�(p%/100*p%)-(c%<10);"%  ":ȗX%,X%,C%
+��
+�
Sl=0:sl=0
+�
�vp%<>13�
+�	ȎC%�
+�
�1:sl=.05
+��4:sl=-.05
+��
+��
+��skill%<>1�
+�Ȏlie%�
+�#�1,9:p%=(p%/100)*red%(vp%,bad%)
,/�6:a%=vp%-2*(p%<11):p%=p%/100*red%(a%,bad%)
,�
,�
,$�1,-10,200,1
,.
�p%<1p%=1
,8=p%
,B� 
,L
��getclub
,V�butt(0):�cls
,`�green%vp%=13:�
,j�X%,Y%,C%,x%,y%,ox%,oy%
,t;ox%=-100:�:�28,6,8,74,1:�mrect(1):ȗ �:�12:�:SYS6,106,3
,~(�T%=0�13:�TX%(T%),TY%(T%))A$(T%);:�
,�7�2:�6,0)"SELECT A CLUB":ȟ&2000:Ȟ100:�5:�3,2:�box
,�.�:�Ə=0:�3,2:�7,1)"SELECT A CLUB":��Ə<>0
,�$ȗX%,Y%,C%:x%=X%�128:y%=Y%�&FFE0
,��x%<>ox%�y%<>oy%�box
,�5�mrect(X%):vp%=3^x%+(x%=0)+28-y%�32+(x%=2�y%<832)
,�
�C%<>0
,��butt(0):�4
,�	��cls
,��:�28,6,8,29,1:�
,��
,�� 
,�	��box
-�3,6
-
ȓȐ32+128*ox%,oy%,96,32
-ȓȐ32+128*x%,y%,96,32
-�1,-10,200,1
-(ox%=x%:oy%=y%
-2�
-<� 
-F��mrect(R%)
-P�R%>288�iop2
-Z	ȎR%�
-d"� 1:ȗȓ38,844,90,72:ȗ�83,912
-n$� 162:ȗȓ38,844,90,72:ȗ�83,846
-x'� 128:ȗȓ162,752,90,164:ȗ�208,912
-�� 252:�iop
-�'� 288:ȗȓ162,752,90,164:ȗ�208,756
-��
-��
-�� 
-�	��iop
-��Y%>835�
-� ȗȓ288,836,90,80:ȗ�349,912
-�"� ȗȓ288,752,90,50:ȗ�349,778
-��
-��
-�� 
-�
��iop2
.'�Y%=836ȗȓ288,752,90,50:ȗ�349,786
.'�Y%=802ȗȓ288,836,90,80:ȗ�349,856
.�
."� 
.,��butt(on)
.6
�D%,C%
.@�
.JȗD%,D%,C%
.T
�C%=on
.^�
.h� 
.r
��windows
.|�26:�128:�:�maincols
.�
�green%�
.��6:ȓȐ 0,0,1280,736
.��4:�0,732,1280,732
.��138:�24,0;736;1279;1023;:�
.��clouds
.���135:�
.��
.���windows2
.� �26:ȑ640,768+O%-6166*green%
.��
.�� 
.���clouds
.�
�C%,T%,O%
/$�vb>0 O%=��va �O%=180+(180-��va)
/O%=�O%*3.5:�11
/�C%=1�12:�T%=1�12
/&5ȝȐ(CL%(0,C%,T%)+O%)�2520+I%,CL%(1,C%,T%),256,64
/0�:�
/:�
/D� 
/N��initcloud
/X�C%,T%,X%,Y%
/b+�C%=0�12:X%=194*C%+�(194):Y%=�(288)+736
/l<�T%=0�12:CL%(0,C%,T%)=X%+�(5)*40:CL%(1,C%,T%)=Y%+�(5)*12
/v�:�
/��
/�� 
/���bounce
/�h%=0:p%=-p%/2.2
/� �vp%=13��green%��(10)=5�2ric
/�*FX112,2
/�G%=�sx%,sy%)
/�*FX112,1
/�	ȎG%�
/�)�1:p%=p%>>1:�p%>4:ya=ya*.3:�ya=ya*.75
/�/�4:�p%>3�ya<>0p%=p%*1.5:ya=ya*1.3:ud=ud/1.3
/�`�6,11:W%=�:xs%=1000:sx%=1000:ya=0:p%=0:h%=0:� plotball,bs%,oy%,ox%,osy%,osx%,ys%,xs%,sy%,sx%
/�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
0�
0�
0� 
0 ��drawit
0*7np%=�map1:�map(CX%,CY%,H%,4,r):�map(SX%,SY%,H%,4,r)
040�I%=1�np%-1:�map(XI%,YI%,H%,85,r):�CX%,CY%:�
0>�85,SX%,SY%
0H�
0R� 
0\��vt(x%,y%,z%)
0fLxe%=va*x%+vb*y%:ze%=(vi*x%+va*y%+r)*Ma:xs%=d*xe% �ze%:ys%=-(d*z% �ze%)*2
0p�
0z� 
0�"��caltre(� x%(),� y%(),� z%())
0��i%,l%,lo%,n%
0�
�A%=1�AA%
0�l%=�map2:trex!(A%*4)=l%
0�i%=�map2:trey!(A%*4)=i%
0�xe=va*i%+vb*l%
0�ze=(vi*i%+va*l%+r)*Ma
0�(x%(A%)=d*xe �ze:y%(A%)=-(d*H% �ze)*2
0�z%(A%)=-(d*(H%+200)�ze)*2
0��
0��
0�� 
0���map(� x%,� y%,z%,p%,r)
1Vy%=�map2:x%=�map2:xe=va*x%+vb*y%:ze=(vi*x%+va*y%+r)*Ma:x%=d*xe �ze:y%=-(d*z%�ze)*2
1)�green%�y%>-32�y%<&FFFF8000 y%=-6000
1
�p%,x%,y%
1$�
1.� 
18ݤmap1:P%+=1:=map?(P%-1)
1B� 
1L$ݤmap2:P%+=2:Q%=map!(P%-2)�&FFFF
1V�Q%>&7FFFQ%=Q%�&FFFF0000
1`=Q%
1j� 
1t��trees
1~PF%=�:PB%=-(d*H%�(r*Ma))*2
1�PT%=-(d*(H%-30)�(r*Ma))*2
1�FB%=-(d*(H%-24)�(r*Ma))*2
1�Vxe=va*Fx+vb*Fy:ze=(vi*Fx+va*Fy+r)*Ma:FX%=d*xe �ze:FY%=-(d*(H%-16-(stren%�4))�ze)*2
1��green%�
1��T%=AA%�1��
1�X1%=x%(T%):Y%=y%(T%)
1�=�PF%�Y%<PB% �11:�0,PB%:�0,PT%:�3:�0,FB%:�85,FX%,FY%:PF%=�
1�*�(�X1%>400�Y%>-708)��X1%<800�Y%>-1000�
1�Ax%=(�Y%-�z%(T%))>>1:y%=-x%>>2:ya%=y%*1.5:xa%=x%>>4:yd%=ya%>>2
1�+�tr%!(((px%+1)�3)*4):ȓȐX1%,Y%,-xa%,y%
1�*�tr%!(((px%+2)�3)*4):ȓȐX1%,Y%,xa%,y%
1�1Y%+=y%:xa%=xa%*2:z%(T%)=�:x%=x%*.8:xa%=xa%*.8
2&�plottree,xa%,y%,x%,X1%,Y%,ya%,yd%
2
� z%(T%)=�
2�
2�
2(�
22� 
2<��initiate
2FHand%=0:green%=0
2P�0,1
2Z�colours(12)
2d�red%(13,1)
2n� CL%(1,12,12)
2x� code &900
2�� map &6D00
2��"L. THE_LINKS "+�~map
2�
� parb 20
2�� x%(96),y%(96),z%(96)
2�#�TX%(13),TY%(13),A$(13),CV%(13)
2�C�mx%(1,1),my%(1),m%(8,1),bag%(1),name$(6),defname$(6):player%=1
2���holescores%(6,18),currentx%(6),currenty%(6),currentR%(6),currentS%(6),currents%(6),totscore%(6),oldpos%(6),hsp%(6),hand%(6),jump%(6)
2��C(45),S(45)
2��sa%(1,2,20)
2�currents%()=1
2��I%=2�4
2��N%=0�20
2�sa%(0,I%-2,N%)=�(I%*8)-I%*4
3#sa%(1,I%-2,N%)=I%*12+16+�(I%)*4
3�
3�
3"�T%=0�45
3,!C(T%)=��(T%*8):S(T%)=��(T%*8)
36�
3@(mx%(0,1)=-2:mx%(0,0)=-96:my%(0)=-728
3J*mx%(1,1)=-4:mx%(1,0)=-64:my%(1)=-13121
3Tbag%(0)=-196:bag%(1)=120
3^sx%=�:sy%=�:r=11096
3h
� �Tzt
3r�T%=0�13
3|#�TX%(T%),TY%(T%),A$(T%),CV%(T%)
3��
3��wellie(0)
3��T%=1�8:�m%(T%,1):�
3�$�I%=0�1:�T%=0�13:�red%(T%,I%):�,
3�'CX%=0:CY%=0:SX%=0:SY%=0:XI%=0:YI%=0
3�%h%=0:x1%=0:y1%=0:K%=0:BY%=0:bs%=0
3�defname$(1)="JOHN"
3�defname$(2)="GEORGE"
3�defname$(3)="PAUL"
3�defname$(4)="RINGO"
3�defname$(5)="MICK"
3�defname$(6)="JERRY"
3�	�code
4*POINTER
4ȗ �
4ȗ�1,0,240,0
4&ȗ�2,0,128,0
40�
4:�1,2,1 WOOD,74
4D�1,3,3 WOOD,70
4N�1,4,5 WOOD,68
4X�9,2,1 IRON,67
4b�9,3,2 IRON,65
4l�9,4,3 IRON,63
4v�9,5,4 IRON,61
4��9,6,5 IRON,59
4��9,7,6 IRON,57
4��17,2,7 IRON,55
4��17,3,8 IRON,53
4��17,4,9 IRON,48
4��17,6,WEDGE,41
4��17,7,PUTTER,60
4��9,10,10,11,11,9,9,9
4�/�30,40,48,55,61,66,71,76,81,85,89,93,96,100
4�'�1,1,1,1,1,1,15,40,55,66,76,85,93,1
4�� 
4���colours(M%)
4�Ȗ:�M%:�
5
�maincols
5�23,17,4,1|
5)�23,2,&EF,&FE,&EF,&FE,&EF,&FE,&EF,&FE
5 )�23,3,&12,&21,&12,&21,&12,&21,&12,&21
5*)�23,4,&C0,&0C,&C0,&0C,&C0,&0C,&C0,&0C
54)�23,5,&D4,&4D,&D4,&4D,&D4,&4D,&D4,&4D
5>�
5H��maincols
5R� 
5\�0,0,0,0:� BLACK
5f�1,176,128,0:� DARK SAND
5p�2,176,160,48:� LIGHT SAND
5z�3,208,160,144:� FLESH
5��4,144,144,144:� PATH
5��5,16,208,0:� GREEN
5��6,32,144,208:� WATER
5��7,0,160,0:� FAIRWAY
5��8,208,0,0:� RED
5��9,0,112,0:� ROUGH
5��10,96,192,224:� SKY
5��11,240,240,240:� WHITE
5��12,80,48,16:� DARK BROWN
5��13,96,64,48:� LIGHT BROWN
5�$�14,16,64,48:� DARK GREEN (TREE)
5�&�15,0,96,64:� LIGHTER GREEN (TREE)
5��
6� 
6
��pointer
6�par 20,block 112
6$	��tRv
6.�T%=0�108�4:�block!T%:�
68
?par=0
6Bpar?1=2
6Lpar?2=8
6Vpar?3=14
6`par?4=16
6jpar?5=7
6tpar!6=block
6~�12
6�*A%=21:B%=par:C%=par �256:ș 7,A%,B%,C%
6���&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��
6�� 
6�
��code
6��("LOAD holedout4 "+�~code)
6�plotball=code+&188
6�plottree=code
6�sort=code+&7E0
6�px%=code+&158
6�tr%=code+&148
6�trex=code+&4B8
7trey=code+&63C
7
�
7*RUN DRIVER
�

00000000  0d 00 0a 10 f4 20 3e 48  4f 4c 45 44 4f 55 54 33  |..... >HOLEDOUT3|
00000010  0d 00 14 37 f4 20 50 52  4f 47 52 41 4d 4d 45 44  |...7. PROGRAMMED|
00000020  20 42 59 20 47 2e 4a 2e  4b 45 59 20 42 45 54 57  | BY G.J.KEY BETW|
00000030  45 45 4e 20 32 33 2d 33  2d 38 39 20 41 4e 44 20  |EEN 23-3-89 AND |
00000040  32 39 2d 34 2d 38 39 0d  00 1e 1e f4 20 28 43 29  |29-4-89..... (C)|
00000050  20 54 48 45 20 46 4f 55  52 54 48 20 44 49 4d 45  | THE FOURTH DIME|
00000060  4e 53 49 4f 4e 0d 00 28  07 f4 20 15 0d 00 32 0c  |NSION..(.. ...2.|
00000070  2a 46 58 32 30 30 2c 33  0d 00 3c 16 f2 70 6f 69  |*FX200,3..<..poi|
00000080  6e 74 65 72 3a f2 69 6e  69 74 69 61 74 65 0d 00  |nter:.initiate..|
00000090  46 0d f2 69 6e 73 74 72  75 63 74 0d 00 50 0c 2a  |F..instruct..P.*|
000000a0  46 58 32 30 30 2c 32 0d  00 5a 06 ee 85 0d 00 64  |FX200,2..Z.....d|
000000b0  10 f2 63 6f 6c 6f 75 72  73 28 31 32 29 0d 00 6e  |..colours(12)..n|
000000c0  13 2a 53 43 48 4f 4f 53  45 20 53 43 52 45 45 4e  |.*SCHOOSE SCREEN|
000000d0  0d 00 78 18 2a 43 48 41  4e 4e 45 4c 56 4f 49 43  |..x.*CHANNELVOIC|
000000e0  45 20 31 20 42 45 4c 4c  0d 00 82 0c f0 26 45 44  |E 1 BELL.....&ED|
000000f0  2c 30 2c 30 0d 00 8c 07  d1 3d 30 0d 00 96 09 2a  |,0,0.....=0....*|
00000100  46 58 31 35 0d 00 a0 10  f5 3a c8 97 58 25 2c 59  |FX15.....:..X%,Y|
00000110  25 2c 54 25 0d 00 aa 1b  e7 91 3e 33 30 30 30 d4  |%,T%......>3000.|
00000120  31 2c 2d 31 35 2c 33 30  30 2c 31 3a d1 3d 30 0d  |1,-15,300,1:.=0.|
00000130  00 b4 10 fd 54 25 84 a6  28 31 30 29 3c 3e b9 0d  |....T%..(10)<>..|
00000140  00 be 15 2a 43 48 41 4e  4e 45 4c 56 4f 49 43 45  |...*CHANNELVOICE|
00000150  20 31 20 31 0d 00 c8 05  f5 0d 00 d2 0f f2 67 65  | 1 1..........ge|
00000160  74 6f 70 74 69 6f 6e 73  0d 00 dc 07 ee 85 87 0d  |toptions........|
00000170  00 e6 0c 2a 46 58 32 30  30 2c 33 0d 00 f0 10 f2  |...*FX200,3.....|
00000180  63 6f 6c 6f 75 72 73 28  31 32 29 0d 00 fa 19 48  |colours(12)....H|
00000190  6f 6c 65 25 3d 31 3a 74  6f 74 73 63 6f 72 65 25  |ole%=1:totscore%|
000001a0  28 29 3d 30 0d 01 04 23  e3 54 25 3d 31 b8 6e 6f  |()=0...#.T%=1.no|
000001b0  6f 66 70 6c 61 79 65 72  73 3a 68 73 70 25 28 54  |ofplayers:hsp%(T|
000001c0  25 29 3d 54 25 3a ed 0d  01 0e 08 58 25 3d 30 0d  |%)=T%:.....X%=0.|
000001d0  01 18 05 f5 0d 01 22 19  e7 58 25 3e 37 31 38 84  |......"..X%>718.|
000001e0  48 6f 6c 65 25 3d 31 38  fd b9 3a fd a3 0d 01 2c  |Hole%=18..:....,|
000001f0  0c 72 6f 75 6e 64 25 3d  a3 0d 01 36 0e f2 69 6e  |.round%=...6..in|
00000200  69 74 63 6c 6f 75 64 0d  01 40 0e 6c 69 25 3d b3  |itcloud..@.li%=.|
00000210  28 34 29 2d 31 0d 01 4a  0d f2 67 65 74 73 74 61  |(4)-1..J..getsta|
00000220  72 74 0d 01 54 0d f2 69  6e 69 74 77 69 6e 64 0d  |rt..T..initwind.|
00000230  01 5e 0e f2 73 65 74 70  6c 61 79 65 72 0d 01 68  |.^..setplayer..h|
00000240  05 f5 0d 01 72 10 f2 77  68 69 63 68 70 6c 61 79  |....r..whichplay|
00000250  65 72 0d 01 7c 17 e7 72  6f 75 6e 64 25 fd b9 3a  |er..|..round%..:|
00000260  f2 62 6f 61 72 64 3a fd  a3 0d 01 86 10 f2 67 65  |.board:.......ge|
00000270  74 70 6c 61 79 76 61 6c  73 0d 01 90 0a f2 6c 69  |tplayvals.....li|
00000280  67 68 74 0d 01 9a 10 f2  73 69 6e 65 28 58 25 2c  |ght.....sine(X%,|
00000290  59 25 29 0d 01 a4 0f f2  64 72 61 77 73 63 72 65  |Y%).....drawscre|
000002a0  65 6e 0d 01 ae 09 f2 73  70 6f 74 0d 01 b8 25 ec  |en.....spot...%.|
000002b0  6d 78 25 28 67 25 2c 48  61 6e 64 25 29 2c 6d 79  |mx%(g%,Hand%),my|
000002c0  25 28 67 25 29 3a ec 42  59 31 32 30 2c 31 37 36  |%(g%):.BY120,176|
000002d0  0d 01 c2 0f 2a 53 47 45  54 20 50 4c 41 49 4e 0d  |....*SGET PLAIN.|
000002e0  01 cc 12 2a 53 43 48 4f  4f 53 45 20 42 41 4c 4c  |...*SCHOOSE BALL|
000002f0  31 0d 01 d6 10 f0 26 45  44 2c 78 73 25 2c 79 73  |1.....&ED,xs%,ys|
00000300  25 0d 01 e0 25 ec 6d 78  25 28 67 25 2c 48 61 6e  |%...%.mx%(g%,Han|
00000310  64 25 29 2c 6d 79 25 28  67 25 29 3a ec 42 59 31  |d%),my%(g%):.BY1|
00000320  32 30 2c 31 37 36 0d 01  ea 0f 2a 53 47 45 54 20  |20,176....*SGET |
00000330  42 4c 41 43 4b 0d 01 f4  0f 2a 53 43 48 4f 4f 53  |BLACK....*SCHOOS|
00000340  45 20 32 30 0d 01 fe 15  62 61 25 3d 73 74 79 25  |E 20....ba%=sty%|
00000350  3d 79 31 25 3a e6 38 2c  30 0d 02 08 1d e7 62 61  |=y1%:.8,0.....ba|
00000360  25 f0 26 45 44 2c 62 61  67 25 28 48 61 6e 64 25  |%.&ED,bag%(Hand%|
00000370  29 2c 2d 37 35 34 0d 02  12 05 f5 0d 02 1c 2f ef  |),-754......../.|
00000380  32 33 2c 32 37 3b 6d 25  28 31 2c 67 25 29 7c 3a  |23,27;m%(1,g%)|:|
00000390  f0 26 45 44 2c 6d 78 25  28 67 25 2c 48 61 6e 64  |.&ED,mx%(g%,Hand|
000003a0  25 29 2c 6d 79 25 28 67  25 29 0d 02 26 0c f2 67  |%),my%(g%)..&..g|
000003b0  65 74 69 6e 66 6f 0d 02  30 0d 44 25 3d a3 3a 42  |etinfo..0.D%=.:B|
000003c0  25 3d a3 0d 02 3a 0d 57  25 3d b9 3a 4b 25 3d a3  |%=...:.W%=.:K%=.|
000003d0  0d 02 44 0b f2 77 61 6c  74 65 72 0d 02 4e 0b f2  |..D..walter..N..|
000003e0  66 6c 69 67 68 74 0d 02  58 14 e7 94 73 78 25 3e  |flight..X...sx%>|
000003f0  36 34 30 f2 63 68 6f 66  73 63 0d 02 62 16 e7 ac  |640.chofsc..b...|
00000400  57 25 f2 73 70 6c 61 73  68 3a fd a3 3a 8b fd b9  |W%.splash:..:...|
00000410  0d 02 6c 0c f2 70 75 74  62 61 63 6b 0d 02 6d 0d  |..l..putback..m.|
00000420  f2 64 65 6c 28 31 35 30  29 0d 02 76 06 fd a3 0d  |.del(150)..v....|
00000430  02 80 07 f4 20 15 0d 02  8a 0e dd f2 69 6e 73 74  |.... .......inst|
00000440  72 75 63 74 0d 02 94 1a  f2 63 6f 6c 6f 75 72 73  |ruct.....colours|
00000450  28 39 29 3a f2 73 63 72  65 65 6e 62 6f 78 0d 02  |(9):.screenbox..|
00000460  9e 43 e7 a4 71 75 65 73  74 28 22 44 4f 20 59 4f  |.C..quest("DO YO|
00000470  55 20 52 45 51 55 49 52  45 20 49 4e 53 54 52 55  |U REQUIRE INSTRU|
00000480  43 54 49 4f 4e 53 3f 22  2c 22 59 45 53 22 2c 22  |CTIONS?","YES","|
00000490  4e 4f 22 2c 30 29 3a f2  62 75 74 74 28 30 29 3a  |NO",0):.butt(0):|
000004a0  e1 0d 02 a8 27 f2 63 6f  6c 6f 75 72 73 28 31 32  |....'.colours(12|
000004b0  29 3a f2 6d 65 73 62 6f  78 28 30 2c 30 2c 31 32  |):.mesbox(0,0,12|
000004c0  37 39 2c 31 30 32 33 29  0d 02 b2 19 fb 31 33 39  |79,1023).....139|
000004d0  3a fb 39 3a ef 32 38 2c  33 2c 33 30 2c 37 38 2c  |:.9:.28,3,30,78,|
000004e0  36 0d 02 bc 22 f1 8a 32  34 29 22 48 4f 4c 45 44  |6..."..24)"HOLED|
000004f0  20 4f 55 54 20 45 58 54  52 41 20 43 4f 55 52 53  | OUT EXTRA COURS|
00000500  45 53 22 0d 02 c6 06 fb  38 0d 02 d0 39 f1 8a 31  |ES".....8...9..1|
00000510  34 2c 32 29 22 32 20 56  6f 6c 75 6d 65 73 20 6f  |4,2)"2 Volumes o|
00000520  66 20 65 78 74 72 61 20  63 6f 75 72 73 65 73 20  |f extra courses |
00000530  61 72 65 20 6e 6f 77 20  61 76 61 69 6c 61 62 6c  |are now availabl|
00000540  65 22 0d 02 da 07 fb 31  32 0d 02 e4 52 f1 8a 30  |e".....12...R..0|
00000550  2c 34 29 22 45 61 63 68  20 76 6f 6c 75 6d 65 20  |,4)"Each volume |
00000560  63 6f 6e 74 61 69 6e 73  20 32 20 73 75 70 65 72  |contains 2 super|
00000570  62 6c 79 20 64 65 73 69  67 6e 65 64 20 6e 65 77  |bly designed new|
00000580  20 63 6f 75 72 73 65 73  20 74 6f 20 63 68 61 6c  | courses to chal|
00000590  6c 65 6e 67 65 20 79 6f  75 72 22 0d 02 ee 4b f1  |lenge your"...K.|
000005a0  22 67 6f 6c 66 69 6e 67  20 73 6b 69 6c 6c 73 20  |"golfing skills |
000005b0  74 6f 20 74 68 65 20 6c  69 6d 69 74 2e 20 20 41  |to the limit.  A|
000005c0  6c 6c 20 74 68 65 20 66  65 61 74 75 72 65 73 20  |ll the features |
000005d0  6f 66 20 74 68 65 20 67  61 6d 65 20 68 61 76 65  |of the game have|
000005e0  20 62 65 65 6e 22 0d 02  f8 45 f1 22 63 61 72 65  | been"...E."care|
000005f0  66 75 6c 6c 79 20 77 6f  76 65 6e 20 74 6f 67 65  |fully woven toge|
00000600  74 68 65 72 20 74 6f 20  74 65 73 74 20 65 76 65  |ther to test eve|
00000610  6e 20 74 68 65 20 6c 69  6b 65 73 20 6f 66 20 4e  |n the likes of N|
00000620  69 63 6b 20 46 61 6c 64  6f 2e 22 0d 03 02 06 fb  |ick Faldo.".....|
00000630  39 0d 03 0c 12 f1 27 8a  33 32 29 22 50 52 49 43  |9.....'.32)"PRIC|
00000640  45 53 22 0d 03 16 3e f1  27 8a 31 35 29 22 48 6f  |ES"...>.'.15)"Ho|
00000650  6c 65 64 20 4f 75 74 20  45 78 74 72 61 20 43 6f  |led Out Extra Co|
00000660  75 72 73 65 73 20 56 6f  6c 75 6d 65 20 31 22 3b  |urses Volume 1";|
00000670  3a fb 38 3a f1 22 20 20  20 20 40 31 36 2e 39 35  |:.8:."    @16.95|
00000680  22 0d 03 20 40 fb 39 3a  f1 8a 31 35 29 22 48 6f  |".. @.9:..15)"Ho|
00000690  6c 65 64 20 4f 75 74 20  45 78 74 72 61 20 43 6f  |led Out Extra Co|
000006a0  75 72 73 65 73 20 56 6f  6c 75 6d 65 20 32 22 3b  |urses Volume 2";|
000006b0  3a fb 38 3a f1 22 20 20  20 20 40 31 36 2e 39 35  |:.8:."    @16.95|
000006c0  22 0d 03 2a 07 fb 31 32  0d 03 34 4e f1 27 27 22  |"..*..12..4N.''"|
000006d0  41 73 6b 20 79 6f 75 72  20 64 65 61 6c 65 72 20  |Ask your dealer |
000006e0  74 6f 20 72 65 73 65 72  76 65 20 56 6f 6c 75 6d  |to reserve Volum|
000006f0  65 20 32 20 6e 6f 77 20  6f 72 20 79 6f 75 20 63  |e 2 now or you c|
00000700  61 6e 20 6f 62 74 61 69  6e 20 69 74 20 64 69 72  |an obtain it dir|
00000710  65 63 74 6c 79 22 0d 03  3e 4c f1 22 66 72 6f 6d  |ectly"..>L."from|
00000720  20 75 73 20 62 79 20 6d  61 69 6c 2e 20 20 41 63  | us by mail.  Ac|
00000730  63 65 73 73 20 61 6e 64  20 56 69 73 61 20 74 65  |cess and Visa te|
00000740  6c 65 70 68 6f 6e 65 20  6f 72 64 65 72 73 20 61  |lephone orders a|
00000750  72 65 20 77 65 6c 63 6f  6d 65 20 6f 6e 20 6f 75  |re welcome on ou|
00000760  72 22 0d 03 48 21 f1 22  32 34 20 68 6f 75 72 20  |r"..H!."24 hour |
00000770  61 6e 73 77 65 72 69 6e  67 20 73 65 72 76 69 63  |answering servic|
00000780  65 2e 22 0d 03 52 06 fb  38 0d 03 5c 4e f1 27 8a  |e."..R..8..\N.'.|
00000790  34 29 22 54 48 45 20 46  4f 55 52 54 48 20 44 49  |4)"THE FOURTH DI|
000007a0  4d 45 4e 53 49 4f 4e 2c  20 50 2e 4f 2e 20 42 6f  |MENSION, P.O. Bo|
000007b0  78 20 34 34 34 34 2c 20  53 68 65 66 66 69 65 6c  |x 4444, Sheffiel|
000007c0  64 2e 20 20 54 65 6c 2e  20 28 30 37 34 32 29 20  |d.  Tel. (0742) |
000007d0  37 30 30 36 36 31 22 0d  03 66 07 fb 31 32 0d 03  |700661"..f..12..|
000007e0  70 0a f2 70 65 62 3a db  0d 03 7a 19 e6 31 32 3a  |p..peb:...z..12:|
000007f0  c8 93 39 39 38 2c 36 34  30 2c 31 36 30 2c 32 35  |..998,640,160,25|
00000800  36 0d 03 84 2a 86 31 30  35 38 2c 38 39 36 2c 31  |6...*.1058,896,1|
00000810  30 36 36 2c 39 34 30 3a  df 31 30 39 30 2c 39 34  |066,940:.1090,94|
00000820  30 3a df 31 30 39 38 2c  38 39 36 0d 03 8e 16 e6  |0:.1098,896.....|
00000830  31 33 39 3a e6 31 3a c8  90 31 30 37 38 2c 39 30  |139:.1:..1078,90|
00000840  30 0d 03 98 12 fb 31 2c  32 34 30 2c 32 34 30 2c  |0.....1,240,240,|
00000850  31 39 32 0d 03 a2 12 fb  32 2c 32 34 30 2c 32 30  |192.....2,240,20|
00000860  38 2c 32 30 38 0d 03 ac  12 fb 33 2c 32 34 30 2c  |8,208.....3,240,|
00000870  32 34 30 2c 32 32 34 0d  03 b6 1b e6 31 3a c8 93  |240,224.....1:..|
00000880  c8 90 31 30 30 30 2c 36  34 34 2c 31 35 36 2c 32  |..1000,644,156,2|
00000890  34 38 0d 03 c0 1b e6 33  3a c8 93 c8 90 31 30 30  |48.....3:....100|
000008a0  30 2c 36 34 34 2c 31 35  36 2c 31 32 34 0d 03 ca  |0,644,156,124...|
000008b0  0b e3 54 25 3d 30 b8 32  0d 03 d4 1e e6 31 32 3a  |..T%=0.2.....12:|
000008c0  c8 93 31 30 31 32 2b 54  25 2a 35 30 2c 38 30 30  |..1012+T%*50,800|
000008d0  2c 33 32 2c 36 34 0d 03  de 1f e6 32 3a c8 93 c8  |,32,64.....2:...|
000008e0  90 31 30 31 34 2b 54 25  2a 35 30 2c 38 30 34 2c  |.1014+T%*50,804,|
000008f0  32 38 2c 35 36 0d 03 e8  21 e6 31 32 3a ec 31 30  |28,56...!.12:.10|
00000900  32 30 2b 54 25 2a 35 30  2c 38 35 30 3a ef 35 3a  |20+T%*50,850:.5:|
00000910  f1 3b 54 25 2b 31 0d 03  f2 0a ed 3a ef 34 3a 87  |.;T%+1.....:.4:.|
00000920  0d 03 fc 0c fb 31 33 39  3a fb 31 32 0d 04 06 11  |.....139:.12....|
00000930  ef 32 38 2c 32 2c 33 30  2c 37 38 2c 34 0d 04 10  |.28,2,30,78,4...|
00000940  95 f1 8a 30 2c 30 29 22  47 61 6d 65 20 63 6f 6e  |...0,0)"Game con|
00000950  74 72 6f 6c 20 69 6e 20  74 68 65 20 41 72 63 68  |trol in the Arch|
00000960  69 6d 65 64 65 73 20 76  65 72 73 69 6f 6e 20 6f  |imedes version o|
00000970  66 20 22 3b 3a fb 39 3a  f1 22 48 4f 4c 45 44 20  |f ";:.9:."HOLED |
00000980  4f 55 54 22 3b 3a fb 31  32 3a f1 22 20 69 73 20  |OUT";:.12:." is |
00000990  76 69 61 22 27 22 74 68  65 20 4d 4f 55 53 45 2c  |via"'"the MOUSE,|
000009a0  20 74 68 65 20 6b 65 79  73 20 61 72 65 20 6e 75  | the keys are nu|
000009b0  6d 62 65 72 65 64 20 61  73 20 69 6e 64 69 63 61  |mbered as indica|
000009c0  74 65 64 20 6f 6e 20 74  68 65 20 72 69 67 68 74  |ted on the right|
000009d0  2e 22 0d 04 1a 54 f1 27  22 54 68 65 20 64 69 66  |."...T.'"The dif|
000009e0  66 65 72 65 6e 63 65 73  20 74 6f 20 74 68 65 20  |ferences to the |
000009f0  69 6e 73 74 72 75 63 74  69 6f 6e 73 20 61 73 20  |instructions as |
00000a00  73 68 6f 77 6e 20 69 6e  20 74 68 65 20 6d 61 6e  |shown in the man|
00000a10  75 61 6c 22 27 22 61 72  65 20 61 73 20 66 6f 6c  |ual"'"are as fol|
00000a20  6c 6f 77 73 3a 22 0d 04  24 42 f1 27 22 53 54 52  |lows:"..$B.'"STR|
00000a30  4f 4b 45 50 4c 41 59 2f  22 8a 31 36 29 22 54 68  |OKEPLAY/".16)"Th|
00000a40  65 72 65 20 63 61 6e 20  62 65 20 75 70 20 74 6f  |ere can be up to|
00000a50  20 36 20 70 6c 61 79 65  72 73 20 69 6e 20 61 6e  | 6 players in an|
00000a60  79 20 72 6f 75 6e 64 22  0d 04 2e 88 f1 27 22 47  |y round".....'"G|
00000a70  41 4d 45 20 43 4f 4e 54  52 4f 4c 53 2f 22 27 27  |AME CONTROLS/"''|
00000a80  22 31 2e 20 53 45 4c 45  43 54 20 43 4c 55 42 2e  |"1. SELECT CLUB.|
00000a90  20 55 73 65 20 74 68 65  20 4d 4f 55 53 45 20 74  | Use the MOUSE t|
00000aa0  6f 20 69 6e 64 69 63 61  74 65 20 74 68 65 20 63  |o indicate the c|
00000ab0  6c 75 62 20 72 65 71 75  69 72 65 64 20 74 68 65  |lub required the|
00000ac0  6e 22 8a 31 36 29 22 70  72 65 73 73 20 61 6e 79  |n".16)"press any|
00000ad0  20 62 75 74 74 6f 6e 20  74 6f 20 67 6f 20 74 6f  | button to go to|
00000ae0  20 74 68 65 20 6e 65 78  74 20 73 74 61 67 65 22  | the next stage"|
00000af0  0d 04 38 47 f1 27 22 32  2e 20 44 49 52 45 43 54  |..8G.'"2. DIRECT|
00000b00  49 4f 4e 2e 20 20 20 50  6f 73 69 74 69 6f 6e 20  |ION.   Position |
00000b10  74 68 65 20 63 75 72 73  6f 72 20 77 69 74 68 20  |the cursor with |
00000b20  74 68 65 20 4d 4f 55 53  45 20 74 68 65 6e 20 65  |the MOUSE then e|
00000b30  69 74 68 65 72 2e 22 0d  04 42 2e f1 89 28 31 36  |ither."..B...(16|
00000b40  29 22 50 72 65 73 73 20  5b 32 5d 20 74 6f 20 67  |)"Press [2] to g|
00000b50  6f 20 74 6f 20 74 68 65  20 6e 65 78 74 20 73 74  |o to the next st|
00000b60  61 67 65 2e 22 0d 04 4c  33 f1 89 28 31 36 29 22  |age."..L3..(16)"|
00000b70  50 72 65 73 73 20 5b 31  5d 20 6f 72 20 5b 33 5d  |Press [1] or [3]|
00000b80  20 74 6f 20 73 65 6c 65  63 74 20 61 6e 6f 74 68  | to select anoth|
00000b90  65 72 20 63 6c 75 62 22  0d 04 56 51 f1 27 22 33  |er club"..VQ.'"3|
00000ba0  2e 20 50 4f 57 45 52 2e  22 8a 31 36 29 22 41 73  |. POWER.".16)"As|
00000bb0  20 73 6f 6f 6e 20 61 73  20 74 68 65 20 64 69 72  | soon as the dir|
00000bc0  65 63 74 69 6f 6e 20 68  61 73 20 62 65 65 6e 20  |ection has been |
00000bd0  73 65 6c 65 63 74 65 64  20 62 79 20 70 72 65 73  |selected by pres|
00000be0  73 69 6e 67 20 5b 32 5d  22 0d 04 60 30 f1 8a 31  |sing [2]"..`0..1|
00000bf0  36 29 22 74 68 65 20 62  61 72 20 69 6e 64 69 63  |6)"the bar indic|
00000c00  61 74 6f 72 20 77 69 6c  6c 20 73 74 61 72 74 20  |ator will start |
00000c10  74 6f 20 6d 6f 76 65 2e  22 0d 04 6a 2f f1 8a 31  |to move."..j/..1|
00000c20  36 29 22 50 72 65 73 73  69 6e 67 20 5b 32 5d 20  |6)"Pressing [2] |
00000c30  77 69 6c 6c 20 67 69 76  65 20 61 20 4e 6f 72 6d  |will give a Norm|
00000c40  61 6c 20 73 68 6f 74 22  0d 04 74 2f f1 8a 31 36  |al shot"..t/..16|
00000c50  29 22 50 72 65 73 73 69  6e 67 20 5b 31 5d 20 77  |)"Pressing [1] w|
00000c60  69 6c 6c 20 67 69 76 65  20 61 20 48 6f 6f 6b 65  |ill give a Hooke|
00000c70  64 20 73 68 6f 74 22 0d  04 7e 30 f1 8a 31 36 29  |d shot"..~0..16)|
00000c80  22 50 72 65 73 73 69 6e  67 20 5b 33 5d 20 77 69  |"Pressing [3] wi|
00000c90  6c 6c 20 67 69 76 65 20  61 20 53 6c 69 63 65 64  |ll give a Sliced|
00000ca0  20 73 68 6f 74 22 27 0d  04 88 09 dd f2 70 65 62  | shot"'......peb|
00000cb0  0d 04 92 28 f1 27 8a 32  32 29 22 50 52 45 53 53  |...(.'.22)"PRESS|
00000cc0  20 41 4e 59 20 42 55 54  54 4f 4e 20 54 4f 20 43  | ANY BUTTON TO C|
00000cd0  4f 4e 54 49 4e 55 45 22  0d 04 9c 0c f2 62 75 74  |ONTINUE".....but|
00000ce0  74 28 30 29 0d 04 a6 21  f5 3a c8 97 58 25 2c 59  |t(0)...!.:..X%,Y|
00000cf0  25 2c 4b 25 3a fd 4b 25  3a d4 31 2c 2d 31 30 2c  |%,K%:.K%:.1,-10,|
00000d00  32 30 30 2c 31 0d 04 b0  0c f2 62 75 74 74 28 30  |200,1.....butt(0|
00000d10  29 0d 04 ba 05 e1 0d 04  c4 07 f4 20 15 0d 04 ce  |).......... ....|
00000d20  0c dd f2 63 68 6f 66 73  63 0d 04 d8 0c 2a 46 58  |...chofsc....*FX|
00000d30  31 31 32 2c 33 0d 04 e2  05 db 0d 04 ec 3d e7 b4  |112,3........=..|
00000d40  78 31 25 3d b9 20 c8 91  31 32 38 30 2c 37 36 38  |x1%=. ..1280,768|
00000d50  2b 4f 25 2d 36 31 36 36  2a 67 72 65 65 6e 25 3a  |+O%-6166*green%:|
00000d60  8b c8 91 30 2c 37 36 38  2b 4f 25 2d 36 31 36 36  |...0,768+O%-6166|
00000d70  2a 67 72 65 65 6e 25 0d  04 f6 0c 50 25 3d 72 6f  |*green%....P%=ro|
00000d80  75 67 68 0d 05 00 12 e6  a4 6d 61 70 31 3a f2 64  |ugh......map1:.d|
00000d90  72 61 77 69 74 0d 05 0a  12 e6 a4 6d 61 70 31 3a  |rawit......map1:|
00000da0  f2 64 72 61 77 69 74 0d  05 14 17 50 25 3d 77 61  |.drawit....P%=wa|
00000db0  74 65 72 3a e6 36 3a f2  64 72 61 77 69 74 0d 05  |ter:.6:.drawit..|
00000dc0  15 0d e7 ac 67 72 65 65  6e 25 8c 0d 05 1e 10 47  |....green%.....G|
00000dd0  25 3d b0 78 73 25 2c 79  73 25 29 0d 05 28 13 e7  |%=.xs%,ys%)..(..|
00000de0  47 25 3d 36 84 47 25 3d  31 31 57 25 3d a3 0d 05  |G%=6.G%=11W%=...|
00000df0  29 05 cd 0d 05 32 0c 2a  46 58 31 31 32 2c 31 0d  |)....2.*FX112,1.|
00000e00  05 3c 05 e1 0d 05 46 07  f4 20 15 0d 05 50 0d dd  |.<....F.. ...P..|
00000e10  f2 70 72 65 76 69 65 77  0d 05 5a 05 f5 0d 05 64  |.preview..Z....d|
00000e20  1e f2 63 6f 6c 6f 75 72  73 28 39 29 3a f2 73 63  |..colours(9):.sc|
00000e30  72 65 65 6e 62 6f 78 3a  c8 97 ee 0d 05 6e 15 6c  |reenbox:.....n.l|
00000e40  68 6f 6c 25 3d a4 63 68  6f 73 65 61 68 6f 6c 65  |hol%=.choseahole|
00000e50  0d 05 78 1a e7 ac 6c 68  6f 6c 25 f2 64 72 61 77  |..x...lhol%.draw|
00000e60  6d 61 70 28 6c 68 6f 6c  25 29 0d 05 82 0c fd 6c  |map(lhol%).....l|
00000e70  68 6f 6c 25 3d b9 0d 05  8c 05 e1 0d 05 96 07 f4  |hol%=...........|
00000e80  20 15 0d 05 a0 16 dd f2  64 72 61 77 6d 61 70 28  | .......drawmap(|
00000e90  68 6f 6c 65 6e 6f 25 29  0d 05 aa 0e f2 69 6e 69  |holeno%).....ini|
00000ea0  74 63 6c 6f 75 64 0d 05  b4 13 6c 69 25 3d 32 3a  |tcloud....li%=2:|
00000eb0  f2 69 6e 69 74 77 69 6e  64 0d 05 be 25 ea 72 25  |.initwind...%.r%|
00000ec0  2c 6c 25 2c 4f 4c 25 2c  41 25 2c 41 41 25 2c 54  |,l%,OL%,A%,AA%,T|
00000ed0  25 2c 49 25 2c 53 50 25  2c 58 25 2c 59 25 0d 05  |%,I%,SP%,X%,Y%..|
00000ee0  c8 11 58 25 3d 36 34 30  3a 59 25 3d 35 31 32 0d  |..X%=640:Y%=512.|
00000ef0  05 d2 05 f5 0d 05 dc 1f  50 25 3d 6d 61 70 70 6f  |........P%=mappo|
00000f00  69 6e 74 25 2b 68 6f 6c  65 6e 6f 25 3a 53 50 25  |int%+holeno%:SP%|
00000f10  3d 50 25 0d 05 e6 26 4f  4c 25 3d 28 bb 28 c3 7e  |=P%...&OL%=(.(.~|
00000f20  28 28 6d 61 70 21 28 50  25 2b 26 32 46 41 29 29  |((map!(P%+&2FA))|
00000f30  80 26 46 46 46 46 29 29  29 0d 05 f0 0d 41 41 25  |.&FFFF)))....AA%|
00000f40  3d a4 6d 61 70 31 0d 05  fa 0d e3 41 25 3d 31 b8  |=.map1.....A%=1.|
00000f50  41 41 25 0d 06 04 11 6c  25 3d a4 6d 61 70 32 2f  |AA%....l%=.map2/|
00000f60  31 30 2e 35 0d 06 0e 11  72 25 3d a4 6d 61 70 32  |10.5....r%=.map2|
00000f70  2f 31 30 2e 35 0d 06 18  17 78 25 28 41 25 29 3d  |/10.5....x%(A%)=|
00000f80  72 25 3a 79 25 28 41 25  29 3d 6c 25 0d 06 22 05  |r%:y%(A%)=l%..".|
00000f90  ed 0d 06 2c 0e 49 25 3d  a4 6d 61 70 31 2d 31 0d  |...,.I%=.map1-1.|
00000fa0  06 36 22 54 25 3d a4 6d  61 70 31 3a 54 25 3d a4  |.6"T%=.map1:T%=.|
00000fb0  6d 61 70 31 3a 50 25 3d  50 25 2b 54 25 2a 34 2b  |map1:P%=P%+T%*4+|
00000fc0  34 0d 06 40 17 6c 25 3d  30 3a 72 25 3d 30 3a 74  |4..@.l%=0:r%=0:t|
00000fd0  25 3d 30 3a 62 25 3d 30  0d 06 4a 20 f2 63 6f 6c  |%=0:b%=0..J .col|
00000fe0  6f 75 72 73 28 31 32 29  3a f2 73 63 72 65 65 6e  |ours(12):.screen|
00000ff0  62 6f 78 3a e6 31 33 37  0d 06 54 26 f2 6d 65 73  |box:.137..T&.mes|
00001000  62 6f 78 28 35 33 32 2d  4f 4c 25 2c 32 39 34 2c  |box(532-OL%,294,|
00001010  4f 4c 25 2a 32 2b 32 31  32 2c 36 39 32 29 0d 06  |OL%*2+212,692)..|
00001020  5e 29 ef 32 36 2c 32 34  2c 35 34 38 2d 4f 4c 25  |^).26,24,548-OL%|
00001030  3b 33 31 30 3b 35 34 38  2b 4f 4c 25 2b 31 38 30  |;310;548+OL%+180|
00001040  3b 39 37 30 3b 3a da 0d  06 68 11 c8 91 35 39 32  |;970;:...h...592|
00001050  2b 4f 4c 25 2c 36 34 30  0d 06 72 13 e3 54 25 3d  |+OL%,640..r..T%=|
00001060  31 b8 49 25 3a e6 a4 6d  61 70 31 0d 06 7c 0d 6e  |1.I%:..map1..|.n|
00001070  70 25 3d a4 6d 61 70 31  0d 06 86 25 f2 6d 61 70  |p%=.map1...%.map|
00001080  32 28 43 58 25 2c 43 59  25 2c 34 29 3a f2 6d 61  |2(CX%,CY%,4):.ma|
00001090  70 32 28 53 58 25 2c 53  59 25 2c 34 29 0d 06 90  |p2(SX%,SY%,4)...|
000010a0  2c e3 49 25 3d 31 b8 6e  70 25 2d 31 3a f2 6d 61  |,.I%=1.np%-1:.ma|
000010b0  70 32 28 58 49 25 2c 59  49 25 2c 38 35 29 3a ec  |p2(XI%,YI%,85):.|
000010c0  43 58 25 2c 43 59 25 3a  ed 0d 06 9a 0f f0 38 35  |CX%,CY%:......85|
000010d0  2c 53 58 25 2c 53 59 25  0d 06 a4 09 ed 3a e6 31  |,SX%,SY%.....:.1|
000010e0  34 0d 06 ae 38 e3 54 25  3d 31 b8 41 41 25 3a e7  |4...8.T%=1.AA%:.|
000010f0  b0 2d 78 25 28 54 25 29  2c 2d 79 25 28 54 25 29  |.-x%(T%),-y%(T%)|
00001100  29 3c 3e 36 c8 8f c8 90  2d 78 25 28 54 25 29 2c  |)<>6....-x%(T%),|
00001110  2d 79 25 28 54 25 29 2c  38 0d 06 b8 0e ed 3a e6  |-y%(T%),8.....:.|
00001120  30 3a c8 92 30 2c 30 0d  06 c2 07 ef 32 36 0d 06  |0:..0,0.....26..|
00001130  cc 56 f2 73 6d 61 6c 6c  6d 65 73 28 31 34 34 2c  |.V.smallmes(144,|
00001140  31 36 36 2c 31 32 2c 22  50 4f 53 49 54 49 4f 4e  |166,12,"POSITION|
00001150  20 50 4f 49 4e 54 45 52  20 4f 4e 20 56 49 45 57  | POINTER ON VIEW|
00001160  50 4f 49 4e 54 20 54 48  45 4e 20 50 52 45 53 53  |POINT THEN PRESS|
00001170  20 54 48 45 20 4d 49 44  44 4c 45 20 42 55 54 54  | THE MIDDLE BUTT|
00001180  4f 4e 22 29 0d 06 d6 4a  f2 73 6d 61 6c 6c 6d 65  |ON")...J.smallme|
00001190  73 28 32 33 32 2c 36 36  2c 31 32 2c 22 41 4e 59  |s(232,66,12,"ANY|
000011a0  20 4f 54 48 45 52 20 42  55 54 54 4f 4e 20 54 4f  | OTHER BUTTON TO|
000011b0  20 52 45 54 55 52 4e 20  54 4f 20 54 48 45 20 48  | RETURN TO THE H|
000011c0  4f 4c 45 20 53 45 4c 45  43 54 4f 52 22 29 0d 06  |OLE SELECTOR")..|
000011d0  e0 10 c8 97 ee 3a c8 97  b8 58 25 2c 59 25 0d 06  |.....:...X%,Y%..|
000011e0  ea 05 f5 0d 06 f4 21 c8  97 c8 93 35 34 38 2d 4f  |......!....548-O|
000011f0  4c 25 2c 33 31 30 2c 4f  4c 25 2a 32 2b 31 38 30  |L%,310,OL%*2+180|
00001200  2c 36 36 30 0d 06 fe 0e  c8 97 58 25 2c 59 25 2c  |,660......X%,Y%,|
00001210  54 25 0d 07 08 27 e7 58  25 3c 36 38 38 8c 72 25  |T%...'.X%<688.r%|
00001220  3d 28 36 38 38 2d 58 25  29 81 38 8b 72 25 3d 28  |=(688-X%).8.r%=(|
00001230  58 25 2d 36 38 38 29 81  38 0d 07 12 29 c8 97 c8  |X%-688).8...)...|
00001240  93 35 34 38 2d 4f 4c 25  2c 33 31 30 2b 72 25 2c  |.548-OL%,310+r%,|
00001250  4f 4c 25 2a 32 2b 31 38  30 2c 36 36 30 2d 72 25  |OL%*2+180,660-r%|
00001260  2a 32 0d 07 1c 17 79 25  3d 28 28 35 39 32 2b 4f  |*2....y%=((592+O|
00001270  4c 25 29 2d 58 25 29 81  32 0d 07 26 11 78 25 3d  |L%)-X%).2..&.x%=|
00001280  28 36 34 30 2d 59 25 29  81 32 0d 07 30 26 e7 54  |(640-Y%).2..0&.T|
00001290  25 3d 32 f2 64 69 73 70  6c 61 79 76 69 65 77 28  |%=2.displayview(|
000012a0  58 25 2c 59 25 2c 53 50  25 29 3a fd b9 3a fd a3  |X%,Y%,SP%):..:..|
000012b0  0d 07 3a 0a fd 54 25 3a  fd b9 0d 07 44 05 e1 0d  |..:..T%:....D...|
000012c0  07 4e 07 f4 20 15 0d 07  58 1c dd f2 64 69 73 70  |.N.. ...X...disp|
000012d0  6c 61 79 76 69 65 77 28  58 25 2c 59 25 2c 53 50  |layview(X%,Y%,SP|
000012e0  25 29 0d 07 62 07 c8 97  87 0d 07 6c 1f ea 41 24  |%)..b......l..A$|
000012f0  2c 6d 61 70 70 6f 69 6e  74 25 3a 6d 61 70 70 6f  |,mappoint%:mappo|
00001300  69 6e 74 25 3d 53 50 25  0d 07 76 1d 59 59 25 3d  |int%=SP%..v.YY%=|
00001310  28 28 28 35 39 32 2b 4f  4c 25 29 2d 58 25 29 81  |(((592+OL%)-X%).|
00001320  32 29 2a 32 31 0d 07 80  16 58 25 3d 28 28 36 34  |2)*21....X%=((64|
00001330  30 2d 59 25 29 81 32 29  2a 32 31 0d 07 8a 1f e7  |0-Y%).2)*21.....|
00001340  94 58 25 3c 34 32 80 94  59 59 25 3c 34 32 58 25  |.X%<42..YY%<42X%|
00001350  3d 34 32 3a 59 59 25 3d  34 32 0d 07 94 37 4f 4c  |=42:YY%=42...7OL|
00001360  25 3d 28 a4 64 69 73 74  61 6e 63 65 28 58 25 2c  |%=(.distance(X%,|
00001370  59 59 25 29 29 3a 67 72  65 65 6e 25 3d 28 4f 4c  |YY%)):green%=(OL|
00001380  25 3c 35 32 35 29 3a 4f  4c 25 3d 4f 4c 25 2f 32  |%<525):OL%=OL%/2|
00001390  31 0d 07 9e 2e 41 24 3d  43 6f 75 72 73 65 24 2b  |1....A$=Course$+|
000013a0  22 20 48 4f 4c 45 20 22  2b c3 28 68 6f 6c 65 6e  |" HOLE "+.(holen|
000013b0  6f 25 81 26 33 30 30 2b  31 29 2b 22 2c 20 22 0d  |o%.&300+1)+", ".|
000013c0  07 a8 37 e7 67 72 65 65  6e 25 20 41 24 3d 41 24  |..7.green% A$=A$|
000013d0  2b c3 28 4f 4c 25 2a 33  29 2b 22 20 46 45 45 54  |+.(OL%*3)+" FEET|
000013e0  22 3a 8b 41 24 3d 41 24  2b c3 4f 4c 25 2b 22 20  |":.A$=A$+.OL%+" |
000013f0  59 41 52 44 53 22 0d 07  b2 16 41 24 3d 41 24 2b  |YARDS"....A$=A$+|
00001400  22 20 46 52 4f 4d 20 48  4f 4c 45 22 0d 07 bc 0a  |" FROM HOLE"....|
00001410  f2 6c 69 67 68 74 0d 07  c6 10 f2 73 69 6e 65 28  |.light.....sine(|
00001420  58 25 2c 59 25 29 0d 07  d0 0f f2 64 72 61 77 73  |X%,Y%).....draws|
00001430  63 72 65 65 6e 0d 07 da  2f ef 32 36 3a 58 25 3d  |creen.../.26:X%=|
00001440  36 34 30 2d a9 41 24 2a  38 2d 32 34 3a f2 73 6d  |640-.A$*8-24:.sm|
00001450  61 6c 6c 6d 65 73 28 58  25 2c 38 36 30 2c 31 33  |allmes(X%,860,13|
00001460  2c 41 24 29 0d 07 e4 0c  f2 62 75 74 74 28 30 29  |,A$).....butt(0)|
00001470  0d 07 ee 15 f5 c8 97 58  25 2c 59 25 2c 53 50 25  |.......X%,Y%,SP%|
00001480  3a fd 53 50 25 0d 07 f8  0c f2 62 75 74 74 28 30  |:.SP%.....butt(0|
00001490  29 0d 08 02 05 e1 0d 08  0c 07 f4 20 15 0d 08 16  |).......... ....|
000014a0  18 dd f2 6d 61 70 32 28  f8 20 78 25 2c f8 20 79  |...map2(. x%,. y|
000014b0  25 2c 70 25 29 0d 08 20  21 79 25 3d 2d a4 6d 61  |%,p%).. !y%=-.ma|
000014c0  70 32 2f 31 30 2e 35 3a  78 25 3d 2d a4 6d 61 70  |p2/10.5:x%=-.map|
000014d0  32 2f 31 30 2e 35 0d 08  2a 0d f0 70 25 2c 78 25  |2/10.5..*..p%,x%|
000014e0  2c 79 25 0d 08 34 05 e1  0d 08 3e 07 f4 20 15 0d  |,y%..4....>.. ..|
000014f0  08 48 10 dd a4 63 68 6f  73 65 61 68 6f 6c 65 0d  |.H...choseahole.|
00001500  08 52 0c f2 62 75 74 74  28 30 29 0d 08 5c 18 ea  |.R..butt(0)..\..|
00001510  58 25 2c 59 25 2c 4b 25  2c 46 25 2c 4e 25 2c 6f  |X%,Y%,K%,F%,N%,o|
00001520  75 74 25 0d 08 66 2c f2  63 65 6e 74 62 6f 78 28  |ut%..f,.centbox(|
00001530  b9 2c 22 50 4c 45 41 53  45 20 53 45 4c 45 43 54  |.,"PLEASE SELECT|
00001540  20 41 20 48 4f 4c 45 22  2c 31 32 2c 31 30 29 0d  | A HOLE",12,10).|
00001550  08 70 26 f2 6d 65 73 62  6f 78 28 34 36 34 2c 34  |.p&.mesbox(464,4|
00001560  34 34 2c 31 34 38 2c 31  30 30 29 3a f2 64 6f 6e  |44,148,100):.don|
00001570  6f 32 28 31 29 0d 08 7a  1a f2 6d 65 73 62 6f 78  |o2(1)..z..mesbox|
00001580  28 37 30 34 2c 35 33 36  2c 38 30 2c 38 30 29 0d  |(704,536,80,80).|
00001590  08 84 20 f2 73 6d 61 6c  6c 6d 65 73 28 37 30 34  |.. .smallmes(704|
000015a0  2c 34 36 32 2c 31 32 2c  22 45 58 49 54 22 29 0d  |,462,12,"EXIT").|
000015b0  08 8e 1a f2 6d 65 73 62  6f 78 28 37 30 34 2c 33  |....mesbox(704,3|
000015c0  36 38 2c 38 30 2c 38 30  29 0d 08 98 25 e6 31 35  |68,80,80)...%.15|
000015d0  3a ec 37 34 34 2c 36 30  30 3a ec 37 32 30 2c 35  |:.744,600:.720,5|
000015e0  35 34 3a f0 38 35 2c 37  36 38 2c 35 35 34 0d 08  |54:.85,768,554..|
000015f0  a2 32 ec 37 34 34 2c 33  38 38 3a ec 37 32 30 2c  |.2.744,388:.720,|
00001600  34 33 32 3a f0 38 35 2c  37 36 38 2c 34 33 32 3a  |432:.85,768,432:|
00001610  86 37 32 30 2c 34 33 36  2c 37 36 38 2c 34 33 36  |.720,436,768,436|
00001620  0d 08 ac 20 e6 38 3a 86  37 32 30 2c 34 33 32 2c  |... .8:.720,432,|
00001630  37 34 34 2c 33 38 38 3a  df 37 36 38 2c 34 33 32  |744,388:.768,432|
00001640  0d 08 b6 1d 86 37 32 30  2c 35 35 38 2c 37 34 34  |.....720,558,744|
00001650  2c 36 30 30 3a df 37 36  38 2c 35 35 38 0d 08 c0  |,600:.768,558...|
00001660  17 c8 97 c8 93 34 38 30  2c 33 38 38 2c 34 33 32  |.....480,388,432|
00001670  2c 32 32 30 0d 08 ca 15  4e 25 3d 31 3a f5 3a c8  |,220....N%=1:.:.|
00001680  97 58 25 2c 59 25 2c 4b  25 0d 08 d4 08 e7 4b 25  |.X%,Y%,K%.....K%|
00001690  8c 0d 08 de 0c e7 58 25  3e 37 31 36 8c 0d 08 e8  |......X%>716....|
000016a0  0c e7 58 25 3c 37 37 32  8c 0d 08 f2 36 e7 59 25  |..X%<772....6.Y%|
000016b0  3e 35 34 34 4e 25 3d 4e  25 83 31 38 2b 31 3a f2  |>544N%=N%.18+1:.|
000016c0  64 6f 6e 6f 32 28 4e 25  29 3a d4 31 2c 2d 31 30  |dono2(N%):.1,-10|
000016d0  2c 32 30 30 2c 31 3a f2  62 75 74 74 28 30 29 0d  |,200,1:.butt(0).|
000016e0  08 fc 41 e7 59 25 3c 34  34 32 4e 25 2d 3d 31 3a  |..A.Y%<442N%-=1:|
000016f0  4e 25 3d 4e 25 2d 28 4e  25 3d 30 29 2a 31 38 3a  |N%=N%-(N%=0)*18:|
00001700  f2 64 6f 6e 6f 32 28 4e  25 29 3a d4 31 2c 2d 31  |.dono2(N%):.1,-1|
00001710  30 2c 32 30 30 2c 31 3a  f2 62 75 74 74 28 30 29  |0,200,1:.butt(0)|
00001720  0d 09 06 05 cd 0d 09 10  2a e7 59 25 3e 34 37 32  |........*.Y%>472|
00001730  80 59 25 3c 35 31 36 6f  75 74 25 3d b9 3a 46 25  |.Y%<516out%=.:F%|
00001740  3d b9 3a d4 31 2c 2d 31  30 2c 32 30 30 2c 31 0d  |=.:.1,-10,200,1.|
00001750  09 1a 05 cd 0d 09 24 0c  e7 58 25 3c 36 30 34 8c  |......$..X%<604.|
00001760  0d 09 2e 16 e7 59 25 3e  34 35 36 80 59 25 3c 35  |.....Y%>456.Y%<5|
00001770  34 30 46 25 3d b9 0d 09  38 05 cd 0d 09 42 05 cd  |40F%=...8....B..|
00001780  0d 09 4c 09 fd 46 25 3d  b9 0d 09 56 17 3d 28 28  |..L..F%=...V.=((|
00001790  4e 25 2d 31 29 2a 26 33  30 30 29 84 6f 75 74 25  |N%-1)*&300).out%|
000017a0  0d 09 60 07 f4 20 15 0d  09 6a 0f dd f2 64 6f 6e  |..`.. ...j...don|
000017b0  6f 32 28 41 25 29 0d 09  74 13 ea 41 24 2c 54 25  |o2(A%)..t..A$,T%|
000017c0  3a 41 24 3d c3 28 41 25  29 0d 09 7e 1a e6 31 31  |:A$=.(A%)..~..11|
000017d0  3a c8 93 c8 90 34 37 36  2c 34 36 34 2c 31 32 34  |:....476,464,124|
000017e0  2c 36 34 0d 09 88 17 ec  34 37 36 2d 33 32 2a 28  |,64.....476-32*(|
000017f0  41 25 3c 31 30 29 2c 35  32 30 0d 09 92 29 e6 31  |A%<10),520...).1|
00001800  32 3a e3 54 25 3d 31 b8  a9 41 24 3a f2 64 6f 75  |2:.T%=1..A$:.dou|
00001810  62 6c 65 28 bb 28 c1 41  24 2c 54 25 2c 31 29 29  |ble(.(.A$,T%,1))|
00001820  29 3a ed 0d 09 9c 05 e1  0d 09 a6 07 f4 20 15 0d  |):........... ..|
00001830  09 b0 10 dd f2 67 65 74  6f 70 74 69 6f 6e 73 0d  |.....getoptions.|
00001840  09 ba 1a e3 54 25 3d 31  b8 36 3a 6a 75 6d 70 25  |....T%=1.6:jump%|
00001850  28 54 25 29 3d 54 25 3a  ed 0d 09 c4 15 2a 43 48  |(T%)=T%:.....*CH|
00001860  41 4e 4e 45 4c 56 4f 49  43 45 20 31 20 31 0d 09  |ANNELVOICE 1 1..|
00001870  ce 07 f5 3a f5 0d 09 d8  1a f2 63 6f 6c 6f 75 72  |...:......colour|
00001880  73 28 39 29 3a f2 73 63  72 65 65 6e 62 6f 78 0d  |s(9):.screenbox.|
00001890  09 e2 0e c8 97 b8 36 34  30 2c 34 39 36 0d 09 ec  |......640,496...|
000018a0  73 6d 61 70 70 6f 69 6e  74 25 3d a4 71 75 65 73  |smappoint%=.ques|
000018b0  74 28 22 57 48 49 43 48  20 43 4f 55 52 53 45 20  |t("WHICH COURSE |
000018c0  44 4f 20 59 4f 55 20 57  49 53 48 20 54 4f 20 50  |DO YOU WISH TO P|
000018d0  4c 41 59 3f 22 2c 22 47  4c 45 4e 20 41 49 47 52  |LAY?","GLEN AIGR|
000018e0  45 22 2c 22 45 41 47 4c  45 20 50 41 52 4b 22 2c  |E","EAGLE PARK",|
000018f0  30 29 2a 26 33 36 30 30  3a 6d 61 70 73 74 61 72  |0)*&3600:mapstar|
00001900  74 25 3d 6d 61 70 2b 6d  61 70 70 6f 69 6e 74 25  |t%=map+mappoint%|
00001910  0d 09 f6 37 e7 6d 61 70  70 6f 69 6e 74 25 43 6f  |...7.mappoint%Co|
00001920  75 72 73 65 24 3d 22 45  41 47 4c 45 20 50 41 52  |urse$="EAGLE PAR|
00001930  4b 22 8b 43 6f 75 72 73  65 24 3d 22 47 4c 45 4e  |K".Course$="GLEN|
00001940  20 41 49 47 52 45 22 0d  0a 00 4d e7 a4 71 75 65  | AIGRE"...M..que|
00001950  73 74 28 22 50 52 45 56  49 45 57 20 48 4f 4c 45  |st("PREVIEW HOLE|
00001960  53 20 4f 52 20 50 4c 41  59 20 52 4f 55 4e 44 3f  |S OR PLAY ROUND?|
00001970  22 2c 22 50 4c 41 59 22  2c 22 50 52 45 56 49 45  |","PLAY","PREVIE|
00001980  57 22 2c 30 29 f2 70 72  65 76 69 65 77 3a fd a3  |W",0).preview:..|
00001990  3a 8b fd b9 0d 0a 0a 68  70 6c 61 79 25 3d a4 71  |:......hplay%=.q|
000019a0  75 65 73 74 28 22 55 4e  44 45 52 20 57 48 49 43  |uest("UNDER WHIC|
000019b0  48 20 52 55 4c 45 53 20  41 52 45 20 59 4f 55 20  |H RULES ARE YOU |
000019c0  54 4f 20 50 4c 41 59 3f  22 2c 22 4d 41 54 43 48  |TO PLAY?","MATCH|
000019d0  20 50 4c 41 59 22 2c 22  53 54 52 4f 4b 45 20 50  | PLAY","STROKE P|
000019e0  4c 41 59 22 2c 30 29 2b  31 3a f4 20 31 3d 4d 41  |LAY",0)+1:. 1=MA|
000019f0  54 43 48 20 32 3d 53 54  52 4f 4b 45 0d 0a 14 1a  |TCH 2=STROKE....|
00001a00  6e 6f 6f 66 70 6c 61 79  65 72 73 3d a4 6e 6f 70  |noofplayers=.nop|
00001a10  6c 61 79 69 6e 67 0d 0a  1e 15 e3 54 25 3d 31 b8  |laying.....T%=1.|
00001a20  6e 6f 6f 66 70 6c 61 79  65 72 73 0d 0a 28 10 f2  |noofplayers..(..|
00001a30  67 65 74 6e 61 6d 65 28  54 25 29 0d 0a 32 51 68  |getname(T%)..2Qh|
00001a40  61 6e 64 25 28 54 25 29  3d 31 2d a4 71 75 65 73  |and%(T%)=1-.ques|
00001a50  74 28 22 49 53 20 22 2b  6e 61 6d 65 24 28 54 25  |t("IS "+name$(T%|
00001a60  29 2b 22 20 4c 45 46 54  20 4f 52 20 52 49 47 48  |)+" LEFT OR RIGH|
00001a70  54 20 48 41 4e 44 45 44  3f 22 2c 22 4c 45 46 54  |T HANDED?","LEFT|
00001a80  22 2c 22 52 49 47 48 54  22 2c 30 29 0d 0a 3c 11  |","RIGHT",0)..<.|
00001a90  f2 67 65 74 73 6b 69 6c  6c 28 54 25 29 0d 0a 46  |.getskill(T%)..F|
00001aa0  05 ed 0d 0a 50 1c e7 a4  63 6f 6e 66 69 72 6d 28  |....P...confirm(|
00001ab0  6e 6f 6f 66 70 6c 61 79  65 72 73 29 fd 30 0d 0a  |noofplayers).0..|
00001ac0  5a 06 fd b9 0d 0a 64 37  f4 20 43 48 41 4e 47 45  |Z.....d7. CHANGE|
00001ad0  20 54 48 45 20 46 4f 4c  4c 4f 57 49 4e 47 20 4e  | THE FOLLOWING N|
00001ae0  55 4d 42 45 52 20 54 4f  20 28 48 4f 4c 45 20 4e  |UMBER TO (HOLE N|
00001af0  4f 2e 20 2d 31 29 2a 26  33 30 30 0d 0a 6e 14 f4  |O. -1)*&300..n..|
00001b00  6d 61 70 70 6f 69 6e 74  25 3d 26 32 34 30 30 0d  |mappoint%=&2400.|
00001b10  0a 78 05 e1 0d 0a 82 07  f4 20 15 0d 0a 8c 11 dd  |.x....... ......|
00001b20  a4 63 6f 6e 66 69 72 6d  28 54 25 29 0d 0a 96 1c  |.confirm(T%)....|
00001b30  ea 4e 25 2c 49 25 2c 41  24 3a 49 25 3d 28 54 25  |.N%,I%,A$:I%=(T%|
00001b40  2b 28 54 25 80 31 29 29  0d 0a a0 0c f2 62 75 74  |+(T%.1)).....but|
00001b50  74 28 30 29 0d 0a aa 1b  f2 63 6f 6c 6f 75 72 73  |t(0).....colours|
00001b60  28 31 32 29 3a f2 73 63  72 65 65 6e 62 6f 78 0d  |(12):.screenbox.|
00001b70  0a b4 5a f2 63 65 6e 74  62 6f 78 28 a3 2c 22 20  |..Z.centbox(.," |
00001b80  20 20 20 20 20 20 20 20  20 20 20 41 52 45 20 54  |           ARE T|
00001b90  48 45 20 46 4f 4c 4c 4f  57 49 4e 47 20 47 41 4d  |HE FOLLOWING GAM|
00001ba0  45 20 4f 50 54 49 4f 4e  53 20 43 4f 52 52 45 43  |E OPTIONS CORREC|
00001bb0  54 3f 20 20 20 20 20 20  20 20 20 20 20 20 22 2c  |T?            ",|
00001bc0  31 35 2c 31 30 2b 49 25  29 0d 0a be 21 ef 32 38  |15,10+I%)...!.28|
00001bd0  2c 31 30 2c 32 30 2b 49  25 81 32 2c 36 39 2c 31  |,10,20+I%.2,69,1|
00001be0  33 2d 49 25 81 32 2c 34  3a 87 0d 0a c8 1c fb 31  |3-I%.2,4:......1|
00001bf0  32 3a fb 31 33 39 3a f1  3b 54 25 3b 22 20 50 4c  |2:.139:.;T%;" PL|
00001c00  41 59 45 52 22 3b 0d 0a  d2 0f e7 54 25 3c 3e 31  |AYER";.....T%<>1|
00001c10  f1 22 53 22 3b 0d 0a dc  2a f1 22 2c 20 20 50 4c  |."S";...*.",  PL|
00001c20  41 59 49 4e 47 20 41 54  20 22 3b 43 6f 75 72 73  |AYING AT ";Cours|
00001c30  65 24 3b 22 2c 20 20 55  4e 44 45 52 20 22 3b 0d  |e$;",  UNDER ";.|
00001c40  0a e6 0c c8 8e 70 6c 61  79 25 ca 0d 0a f0 10 c9  |.....play%......|
00001c50  31 3a f1 22 4d 41 54 43  48 22 3b 0d 0a fa 11 c9  |1:."MATCH";.....|
00001c60  32 3a f1 22 53 54 52 4f  4b 45 22 3b 0d 0b 04 05  |2:."STROKE";....|
00001c70  cb 0d 0b 0e 12 f1 22 20  50 4c 41 59 20 52 55 4c  |......" PLAY RUL|
00001c80  45 53 22 0d 0b 18 12 f1  8a 30 2c 31 29 c4 36 30  |ES"......0,1).60|
00001c90  2c 22 2d 22 29 0d 0b 22  31 fb 36 3a f1 8a 30 2c  |,"-").."1.6:..0,|
00001ca0  32 29 22 4e 41 4d 45 22  8a 32 32 29 22 44 45 58  |2)"NAME".22)"DEX|
00001cb0  54 45 52 49 54 59 22 8a  34 36 29 22 53 4b 49 4c  |TERITY".46)"SKIL|
00001cc0  4c 22 3a fb 31 32 0d 0b  2c 12 f1 8a 30 2c 33 29  |L":.12..,...0,3)|
00001cd0  c4 36 30 2c 22 2d 22 29  0d 0b 36 0b f1 8a 30 2c  |.60,"-")..6...0,|
00001ce0  34 29 3b 0d 0b 40 0d f2  62 6f 61 72 64 63 6f 6c  |4);..@..boardcol|
00001cf0  0d 0b 4a 0c e3 4e 25 3d  31 b8 54 25 0d 0b 54 09  |..J..N%=1.T%..T.|
00001d00  fb 4e 25 2b 34 0d 0b 5e  13 f1 6e 61 6d 65 24 28  |.N%+4..^..name$(|
00001d10  4e 25 29 8a 32 32 29 3b  0d 0b 68 10 c8 8e 68 61  |N%).22);..h...ha|
00001d20  6e 64 25 28 4e 25 29 ca  0d 0b 72 10 c9 30 3a f1  |nd%(N%)...r..0:.|
00001d30  22 52 49 47 48 54 22 3b  0d 0b 7c 0f c9 31 3a f1  |"RIGHT";..|..1:.|
00001d40  22 4c 45 46 54 22 3b 0d  0b 86 05 cb 0d 0b 90 13  |"LEFT";.........|
00001d50  f1 22 20 48 41 4e 44 45  44 22 8a 34 36 29 3b 0d  |." HANDED".46);.|
00001d60  0b 9a 20 41 24 3d a4 73  6b 69 6c 6c 6e 61 6d 65  |.. A$=.skillname|
00001d70  28 63 75 72 72 65 6e 74  73 25 28 4e 25 29 29 0d  |(currents%(N%)).|
00001d80  0b a4 07 f1 41 24 0d 0b  ae 05 ed 0d 0b b8 11 fb  |....A$..........|
00001d90  31 32 3a f1 c4 36 30 2c  22 2d 22 29 0d 0b c2 24  |12:..60,"-")...$|
00001da0  f2 73 6d 61 6c 6c 6d 65  73 28 35 32 30 2c 33 36  |.smallmes(520,36|
00001db0  38 2d 49 25 2a 31 36 2c  38 2c 22 59 45 53 22 29  |8-I%*16,8,"YES")|
00001dc0  0d 0b cc 23 f2 73 6d 61  6c 6c 6d 65 73 28 36 38  |...#.smallmes(68|
00001dd0  30 2c 33 36 38 2d 49 25  2a 31 36 2c 38 2c 22 4e  |0,368-I%*16,8,"N|
00001de0  4f 22 29 0d 0b d6 21 c8  97 c8 93 35 33 36 2c 33  |O")...!....536,3|
00001df0  37 36 2d 49 25 2a 31 36  2c 32 30 38 2c 34 34 3a  |76-I%*16,208,44:|
00001e00  c8 97 20 ee 0d 0b e0 05  f5 0d 0b ea 0e c8 97 58  |.. ............X|
00001e10  25 2c 59 25 2c 4b 25 0d  0b f4 17 fd 28 58 25 3c  |%,Y%,K%.....(X%<|
00001e20  35 39 30 84 58 25 3e 36  39 32 29 80 4b 25 0d 0b  |590.X%>692).K%..|
00001e30  fe 10 d4 31 2c 2d 31 30  2c 32 30 30 2c 31 0d 0c  |...1,-10,200,1..|
00001e40  08 0b 3d 58 25 3e 36 39  32 0d 0c 12 05 e1 0d 0c  |..=X%>692.......|
00001e50  1c 07 f4 20 15 0d 0c 26  0e dd f2 62 6f 61 72 64  |... ...&...board|
00001e60  63 6f 6c 0d 0c 30 0e fb  35 2c 32 30 38 2c 30 2c  |col..0..5,208,0,|
00001e70  30 0d 0c 3a 11 fb 36 2c  31 34 34 2c 31 32 38 2c  |0..:..6,144,128,|
00001e80  38 30 0d 0c 44 12 fb 37  2c 31 31 32 2c 31 31 32  |80..D..7,112,112|
00001e90  2c 31 31 32 0d 0c 4e 10  fb 38 2c 32 34 30 2c 31  |,112..N..8,240,1|
00001ea0  31 32 2c 30 0d 0c 58 0f  fb 39 2c 39 36 2c 39 36  |12,0..X..9,96,96|
00001eb0  2c 34 38 0d 0c 62 12 fb  31 30 2c 32 30 38 2c 38  |,48..b..10,208,8|
00001ec0  30 2c 31 34 34 0d 0c 6c  05 e1 0d 0c 76 07 f4 20  |0,144..l....v.. |
00001ed0  15 0d 0c 80 12 dd f2 67  65 74 73 6b 69 6c 6c 28  |.......getskill(|
00001ee0  54 25 29 0d 0c 8a 0c f2  62 75 74 74 28 30 29 0d  |T%).....butt(0).|
00001ef0  0c 94 13 ea 58 25 2c 59  25 2c 4b 25 2c 46 25 2c  |....X%,Y%,K%,F%,|
00001f00  4e 25 0d 0c 9e 3b f2 63  65 6e 74 62 6f 78 28 b9  |N%...;.centbox(.|
00001f10  2c 22 57 48 41 54 20 49  53 20 22 2b 6e 61 6d 65  |,"WHAT IS "+name|
00001f20  24 28 54 25 29 2b 22 53  20 53 4b 49 4c 4c 20 4c  |$(T%)+"S SKILL L|
00001f30  45 56 45 4c 3f 22 2c 31  35 2c 31 32 29 0d 0c a8  |EVEL?",15,12)...|
00001f40  33 f2 6d 65 73 62 6f 78  28 33 35 36 2c 34 36 34  |3.mesbox(356,464|
00001f50  2c 34 31 36 2c 36 34 29  3a f2 64 6f 73 6b 69 6c  |,416,64):.doskil|
00001f60  6c 28 63 75 72 72 65 6e  74 73 25 28 54 25 29 29  |l(currents%(T%))|
00001f70  0d 0c b2 1a f2 6d 65 73  62 6f 78 28 38 32 30 2c  |.....mesbox(820,|
00001f80  35 34 30 2c 38 30 2c 38  30 29 0d 0c bc 1a f2 6d  |540,80,80).....m|
00001f90  65 73 62 6f 78 28 38 32  30 2c 33 37 32 2c 38 30  |esbox(820,372,80|
00001fa0  2c 38 30 29 0d 0c c6 25  e6 31 35 3a ec 38 36 30  |,80)...%.15:.860|
00001fb0  2c 36 30 34 3a ec 38 33  36 2c 35 35 38 3a f0 38  |,604:.836,558:.8|
00001fc0  35 2c 38 38 34 2c 35 35  38 0d 0c d0 32 ec 38 36  |5,884,558...2.86|
00001fd0  30 2c 33 38 38 3a ec 38  33 36 2c 34 33 32 3a f0  |0,388:.836,432:.|
00001fe0  38 35 2c 38 38 34 2c 34  33 32 3a 86 38 33 36 2c  |85,884,432:.836,|
00001ff0  34 33 36 2c 38 38 34 2c  34 33 36 0d 0c da 20 e6  |436,884,436... .|
00002000  38 3a 86 38 33 36 2c 34  33 32 2c 38 36 30 2c 33  |8:.836,432,860,3|
00002010  38 38 3a df 38 38 34 2c  34 33 32 0d 0c e4 1d 86  |88:.884,432.....|
00002020  38 33 36 2c 35 36 32 2c  38 36 30 2c 36 30 34 3a  |836,562,860,604:|
00002030  df 38 38 34 2c 35 36 32  0d 0c ee 17 c8 97 c8 93  |.884,562........|
00002040  33 37 32 2c 33 38 38 2c  35 31 34 2c 32 32 30 0d  |372,388,514,220.|
00002050  0c f8 21 4e 25 3d 63 75  72 72 65 6e 74 73 25 28  |..!N%=currents%(|
00002060  54 25 29 3a f5 3a c8 97  58 25 2c 59 25 2c 4b 25  |T%):.:..X%,Y%,K%|
00002070  0d 0d 02 08 e7 4b 25 8c  0d 0d 0c 0c e7 58 25 3e  |.....K%......X%>|
00002080  38 33 36 8c 0d 0d 16 38  e7 59 25 3e 35 34 34 80  |836....8.Y%>544.|
00002090  4e 25 3c 34 4e 25 2b 3d  31 3a f2 64 6f 73 6b 69  |N%<4N%+=1:.doski|
000020a0  6c 6c 28 4e 25 29 3a d4  31 2c 2d 31 30 2c 32 30  |ll(N%):.1,-10,20|
000020b0  30 2c 31 3a f2 62 75 74  74 28 30 29 0d 0d 20 38  |0,1:.butt(0).. 8|
000020c0  e7 59 25 3c 34 34 32 80  4e 25 3e 31 4e 25 2d 3d  |.Y%<442.N%>1N%-=|
000020d0  31 3a f2 64 6f 73 6b 69  6c 6c 28 4e 25 29 3a d4  |1:.doskill(N%):.|
000020e0  31 2c 2d 31 30 2c 32 30  30 2c 31 3a f2 62 75 74  |1,-10,200,1:.but|
000020f0  74 28 30 29 0d 0d 2a 05  cd 0d 0d 34 0c e7 58 25  |t(0)..*....4..X%|
00002100  3c 37 38 30 8c 0d 0d 3e  16 e7 59 25 3e 34 37 35  |<780...>..Y%>475|
00002110  80 59 25 3c 35 31 34 46  25 3d b9 0d 0d 48 05 cd  |.Y%<514F%=...H..|
00002120  0d 0d 52 05 cd 0d 0d 5c  09 fd 46 25 3d b9 0d 0d  |..R....\..F%=...|
00002130  66 10 d4 31 2c 2d 31 30  2c 32 30 30 2c 31 0d 0d  |f..1,-10,200,1..|
00002140  70 14 63 75 72 72 65 6e  74 73 25 28 54 25 29 3d  |p.currents%(T%)=|
00002150  4e 25 0d 0d 7a 05 e1 0d  0d 84 07 f4 20 15 0d 0d  |N%..z....... ...|
00002160  8e 11 dd f2 64 6f 73 6b  69 6c 6c 28 54 25 29 0d  |....doskill(T%).|
00002170  0d 98 07 ea 41 24 0d 0d  a2 15 41 24 3d a4 73 6b  |....A$....A$=.sk|
00002180  69 6c 6c 6e 61 6d 65 28  54 25 29 0d 0d ac 1c e6  |illname(T%).....|
00002190  31 31 3a c8 93 c8 90 33  37 32 2c 34 38 30 2c 31  |11:....372,480,1|
000021a0  32 2a 33 32 2c 33 32 0d  0d b6 14 e6 31 32 3a ec  |2*32,32.....12:.|
000021b0  33 37 32 2c 35 30 38 3a  f1 41 24 0d 0d c0 05 e1  |372,508:.A$.....|
000021c0  0d 0d ca 07 f4 20 15 0d  0d d4 13 dd a4 73 6b 69  |..... .......ski|
000021d0  6c 6c 6e 61 6d 65 28 54  25 29 0d 0d de 07 ea 41  |llname(T%).....A|
000021e0  24 0d 0d e8 09 c8 8e 54  25 ca 0d 0d f2 14 c9 31  |$......T%......1|
000021f0  3a 41 24 3d 22 42 45 47  49 4e 4e 45 52 22 0d 0d  |:A$="BEGINNER"..|
00002200  fc 16 c9 32 3a 41 24 3d  22 45 4e 54 48 55 53 49  |...2:A$="ENTHUSI|
00002210  41 53 54 22 0d 0e 06 13  c9 33 3a 41 24 3d 22 41  |AST".....3:A$="A|
00002220  4d 41 54 45 55 52 22 0d  0e 10 18 c9 34 3a 41 24  |MATEUR".....4:A$|
00002230  3d 22 50 52 4f 46 45 53  53 49 4f 4e 41 4c 22 0d  |="PROFESSIONAL".|
00002240  0e 1a 05 cb 0d 0e 24 07  3d 41 24 0d 0e 2e 07 f4  |......$.=A$.....|
00002250  20 15 0d 0e 38 11 dd f2  67 65 74 6e 61 6d 65 28  | ...8...getname(|
00002260  54 25 29 0d 0e 42 0c f2  62 75 74 74 28 30 29 0d  |T%)..B..butt(0).|
00002270  0e 4c 2a ea 58 25 2c 59  25 2c 4b 25 2c 51 2c 4f  |.L*.X%,Y%,K%,Q,O|
00002280  58 25 2c 4f 59 25 2c 41  24 2c 42 24 3a 41 24 3d  |X%,OY%,A$,B$:A$=|
00002290  6e 61 6d 65 24 28 54 25  29 0d 0e 56 13 e7 6e 6f  |name$(T%)..V..no|
000022a0  6f 66 70 6c 61 79 65 72  73 3e 31 8c 0d 0e 60 09  |ofplayers>1...`.|
000022b0  c8 8e 54 25 ca 0d 0e 6a  12 c9 31 3a 42 24 3d 22  |..T%...j..1:B$="|
000022c0  46 49 52 53 54 20 22 0d  0e 74 13 c9 32 3a 42 24  |FIRST "..t..2:B$|
000022d0  3d 22 53 45 43 4f 4e 44  20 22 0d 0e 7e 12 c9 33  |="SECOND "..~..3|
000022e0  3a 42 24 3d 22 54 48 49  52 44 20 22 0d 0e 88 13  |:B$="THIRD "....|
000022f0  c9 34 3a 42 24 3d 22 46  4f 55 52 54 48 20 22 0d  |.4:B$="FOURTH ".|
00002300  0e 92 12 c9 35 3a 42 24  3d 22 46 49 46 54 48 20  |....5:B$="FIFTH |
00002310  22 0d 0e 9c 12 c9 36 3a  42 24 3d 22 53 49 58 54  |".....6:B$="SIXT|
00002320  48 20 22 0d 0e a6 05 cb  0d 0e b0 05 cd 0d 0e ba  |H ".............|
00002330  1d e7 a9 41 24 3c 31 30  41 24 3d 41 24 2b c4 31  |...A$<10A$=A$+.1|
00002340  30 2d a9 41 24 2c 22 20  22 29 0d 0e c4 36 f2 63  |0-.A$," ")...6.c|
00002350  65 6e 74 62 6f 78 28 b9  2c 22 57 48 41 54 20 49  |entbox(.,"WHAT I|
00002360  53 20 54 48 45 20 22 2b  42 24 2b 22 50 4c 41 59  |S THE "+B$+"PLAY|
00002370  45 52 53 20 4e 41 4d 45  3f 22 2c 31 35 2c 38 29  |ERS NAME?",15,8)|
00002380  0d 0e ce 16 c8 97 c8 93  33 30 36 2c 34 38 30 2c  |........306,480,|
00002390  36 33 34 2c 34 38 0d 0e  d8 1e f2 73 6d 61 6c 6c  |634,48.....small|
000023a0  6d 65 73 28 37 38 34 2c  34 37 32 2c 31 31 2c 22  |mes(784,472,11,"|
000023b0  4f 4b 22 29 0d 0e e2 1c  f2 73 6d 61 6c 6c 6d 65  |OK").....smallme|
000023c0  73 28 32 38 38 2c 34 37  32 2c 31 31 2c 41 24 29  |s(288,472,11,A$)|
000023d0  0d 0e ec 17 c8 97 4f 58  25 2c 4f 59 25 2c 4b 25  |......OX%,OY%,K%|
000023e0  3a d1 3d 31 30 30 30 0d  0e f6 05 f5 0d 0f 00 0c  |:.=1000.........|
000023f0  f2 62 75 74 74 28 30 29  0d 0f 0a 10 41 24 3d 6e  |.butt(0)....A$=n|
00002400  61 6d 65 24 28 54 25 29  0d 0f 14 11 ec 33 33 36  |ame$(T%).....336|
00002410  2c 35 31 36 3a f1 41 24  3b 0d 0f 1e 0e e6 31 33  |,516:.A$;.....13|
00002420  39 3a 2a 46 58 32 31 0d  0f 28 05 f5 0d 0f 32 32  |9:*FX21..(....22|
00002430  51 3d a6 28 30 29 3a e7  51 3c 3e b9 20 84 28 58  |Q=.(0):.Q<>. .(X|
00002440  25 3c 37 30 32 80 4b 25  29 20 91 3d 30 3a c8 97  |%<702.K%) .=0:..|
00002450  4f 58 25 2c 4f 59 25 2c  4b 25 3a c8 97 87 0d 0f  |OX%,OY%,K%:.....|
00002460  3c 13 e7 51 3c 3e 31 32  37 51 3d 51 20 80 32 32  |<..Q<>127Q=Q .22|
00002470  33 0d 0f 46 17 e7 28 51  3e 36 34 80 51 3c 39 31  |3..F..(Q>64.Q<91|
00002480  29 84 51 3d 31 32 37 8c  0d 0f 50 2b e7 a9 41 24  |).Q=127...P+..A$|
00002490  3c 3e 31 30 80 51 3c 3e  31 32 37 41 24 3d 41 24  |<>10.Q<>127A$=A$|
000024a0  2b bd 51 3a ef 51 3a d4  31 2c 2d 31 30 2c 32 30  |+.Q:.Q:.1,-10,20|
000024b0  30 2c 31 0d 0f 5a 2e e7  a9 41 24 3c 3e 30 80 51  |0,1..Z...A$<>0.Q|
000024c0  3d 31 32 37 41 24 3d c0  41 24 2c a9 41 24 2d 31  |=127A$=.A$,.A$-1|
000024d0  29 3a ef 51 3a d4 31 2c  2d 31 30 2c 32 30 30 2c  |):.Q:.1,-10,200,|
000024e0  31 0d 0f 64 05 cd 0d 0f  6e 0e c8 97 58 25 2c 59  |1..d....n...X%,Y|
000024f0  25 2c 4b 25 0d 0f 78 25  e7 91 3e 35 30 30 84 94  |%,K%..x%..>500..|
00002500  28 58 25 2d 4f 58 25 29  3e 38 84 94 28 59 25 2d  |(X%-OX%)>8..(Y%-|
00002510  4f 59 25 29 3e 38 c8 97  ee 0d 0f 82 15 fd 28 58  |OY%)>8........(X|
00002520  25 3e 37 39 32 80 4b 25  29 84 51 3d 31 33 0d 0f  |%>792.K%).Q=13..|
00002530  8c 35 e7 41 24 3d 22 22  d4 31 2c 2d 31 35 2c 31  |.5.A$="".1,-15,1|
00002540  32 35 2c 32 30 3a 6e 61  6d 65 24 28 54 25 29 3d  |25,20:name$(T%)=|
00002550  64 65 66 6e 61 6d 65 24  28 54 25 29 3a d1 3d 30  |defname$(T%):.=0|
00002560  3a fd a3 0d 0f 96 13 d4  31 2c 2d 31 30 2c 32 30  |:.......1,-10,20|
00002570  30 2c 31 3a fd b9 0d 0f  a0 15 e6 31 34 30 3a 6e  |0,1:.......140:n|
00002580  61 6d 65 24 28 54 25 29  3d 41 24 0d 0f aa 13 64  |ame$(T%)=A$....d|
00002590  65 66 6e 61 6d 65 24 28  54 25 29 3d 41 24 0d 0f  |efname$(T%)=A$..|
000025a0  b4 05 e1 0d 0f be 07 f4  20 15 0d 0f c8 0f dd a4  |........ .......|
000025b0  6e 6f 70 6c 61 79 69 6e  67 0d 0f d2 0c f2 62 75  |noplaying.....bu|
000025c0  74 74 28 30 29 0d 0f dc  0f e7 70 6c 61 79 25 3d  |tt(0).....play%=|
000025d0  31 8c 3d 32 0d 0f e6 13  ea 58 25 2c 59 25 2c 4b  |1.=2.....X%,Y%,K|
000025e0  25 2c 46 25 2c 4e 25 0d  0f f0 29 f2 63 65 6e 74  |%,F%,N%...).cent|
000025f0  62 6f 78 28 b9 2c 22 48  4f 57 20 4d 41 4e 59 20  |box(.,"HOW MANY |
00002600  50 4c 41 59 45 52 53 3f  22 2c 31 32 2c 31 30 29  |PLAYERS?",12,10)|
00002610  0d 0f fa 24 f2 6d 65 73  62 6f 78 28 34 36 34 2c  |...$.mesbox(464,|
00002620  34 34 34 2c 38 34 2c 31  30 30 29 3a f2 64 6f 6e  |444,84,100):.don|
00002630  6f 28 31 29 0d 10 04 1a  f2 6d 65 73 62 6f 78 28  |o(1).....mesbox(|
00002640  37 30 34 2c 35 33 36 2c  38 30 2c 38 30 29 0d 10  |704,536,80,80)..|
00002650  0e 1a f2 6d 65 73 62 6f  78 28 37 30 34 2c 33 37  |...mesbox(704,37|
00002660  32 2c 38 30 2c 38 30 29  0d 10 18 25 e6 31 35 3a  |2,80,80)...%.15:|
00002670  ec 37 34 34 2c 36 30 30  3a ec 37 32 30 2c 35 35  |.744,600:.720,55|
00002680  34 3a f0 38 35 2c 37 36  38 2c 35 35 34 0d 10 22  |4:.85,768,554.."|
00002690  32 ec 37 34 34 2c 33 38  38 3a ec 37 32 30 2c 34  |2.744,388:.720,4|
000026a0  33 32 3a f0 38 35 2c 37  36 38 2c 34 33 32 3a 86  |32:.85,768,432:.|
000026b0  37 32 30 2c 34 33 36 2c  37 36 38 2c 34 33 36 0d  |720,436,768,436.|
000026c0  10 2c 20 e6 38 3a 86 37  32 30 2c 34 33 32 2c 37  |., .8:.720,432,7|
000026d0  34 34 2c 33 38 38 3a df  37 36 38 2c 34 33 32 0d  |44,388:.768,432.|
000026e0  10 36 1d 86 37 32 30 2c  35 35 38 2c 37 34 34 2c  |.6..720,558,744,|
000026f0  36 30 30 3a df 37 36 38  2c 35 35 38 0d 10 40 17  |600:.768,558..@.|
00002700  c8 97 c8 93 34 38 30 2c  33 38 34 2c 32 39 32 2c  |....480,384,292,|
00002710  32 32 30 0d 10 4a 15 4e  25 3d 31 3a f5 3a c8 97  |220..J.N%=1:.:..|
00002720  58 25 2c 59 25 2c 4b 25  0d 10 54 08 e7 4b 25 8c  |X%,Y%,K%..T..K%.|
00002730  0d 10 5e 0c e7 58 25 3e  37 31 36 8c 0d 10 68 35  |..^..X%>716...h5|
00002740  e7 59 25 3e 35 34 34 80  4e 25 3c 36 4e 25 2b 3d  |.Y%>544.N%<6N%+=|
00002750  31 3a f2 64 6f 6e 6f 28  4e 25 29 3a d4 31 2c 2d  |1:.dono(N%):.1,-|
00002760  31 30 2c 32 30 30 2c 31  3a f2 62 75 74 74 28 30  |10,200,1:.butt(0|
00002770  29 0d 10 72 35 e7 59 25  3c 34 34 32 80 4e 25 3e  |)..r5.Y%<442.N%>|
00002780  31 4e 25 2d 3d 31 3a f2  64 6f 6e 6f 28 4e 25 29  |1N%-=1:.dono(N%)|
00002790  3a d4 31 2c 2d 31 30 2c  32 30 30 2c 31 3a f2 62  |:.1,-10,200,1:.b|
000027a0  75 74 74 28 30 29 0d 10  7c 05 cd 0d 10 86 0c e7  |utt(0)..|.......|
000027b0  58 25 3c 35 34 30 8c 0d  10 90 16 e7 59 25 3e 34  |X%<540......Y%>4|
000027c0  35 36 80 59 25 3c 35 34  30 46 25 3d b9 0d 10 9a  |56.Y%<540F%=....|
000027d0  05 cd 0d 10 a4 05 cd 0d  10 ae 09 fd 46 25 3d b9  |............F%=.|
000027e0  0d 10 b8 10 d4 31 2c 2d  31 30 2c 32 30 30 2c 31  |.....1,-10,200,1|
000027f0  0d 10 c2 07 3d 4e 25 0d  10 cc 07 f4 20 15 0d 10  |....=N%..... ...|
00002800  d6 0e dd f2 64 6f 6e 6f  28 41 25 29 0d 10 e0 19  |....dono(A%)....|
00002810  e6 31 31 3a c8 93 c8 90  34 37 36 2c 34 36 38 2c  |.11:....476,468,|
00002820  36 30 2c 36 34 0d 10 ea  0c ec 34 37 36 2c 35 32  |60,64.....476,52|
00002830  30 0d 10 f4 13 e6 31 32  3a f2 64 6f 75 62 6c 65  |0.....12:.double|
00002840  28 41 25 29 0d 10 fe 05  e1 0d 11 08 07 f4 20 15  |(A%).......... .|
00002850  0d 11 12 18 dd a4 71 75  65 73 74 28 41 24 2c 42  |......quest(A$,B|
00002860  24 2c 43 24 2c 48 25 29  0d 11 1c 0d ea 4c 25 2c  |$,C$,H%).....L%,|
00002870  44 25 2c 52 25 0d 11 26  17 52 25 3d 37 30 34 2b  |D%,R%..&.R%=704+|
00002880  a4 6c 65 6e 67 74 68 28  a9 43 24 29 0d 11 30 17  |.length(.C$)..0.|
00002890  4c 25 3d 36 30 30 2d a4  6c 65 6e 67 74 68 28 a9  |L%=600-.length(.|
000028a0  42 24 29 0d 11 3a 1a f2  63 65 6e 74 62 6f 78 28  |B$)..:..centbox(|
000028b0  b9 2c 41 24 2c 31 32 2c  36 2b 48 25 29 0d 11 44  |.,A$,12,6+H%)..D|
000028c0  10 44 25 3d 34 36 34 2d  48 25 2a 33 32 0d 11 4e  |.D%=464-H%*32..N|
000028d0  1a f2 73 6d 61 6c 6c 6d  65 73 28 4c 25 2c 44 25  |..smallmes(L%,D%|
000028e0  2c 31 31 2c 42 24 29 0d  11 58 1b f2 73 6d 61 6c  |,11,B$)..X..smal|
000028f0  6c 6d 65 73 28 37 30 34  2c 44 25 2c 31 31 2c 43  |lmes(704,D%,11,C|
00002900  24 29 0d 11 62 1e c8 97  c8 93 4c 25 2b 31 36 2c  |$)..b.....L%+16,|
00002910  44 25 2b 38 2c 52 25 2d  4c 25 2d 36 34 2c 34 38  |D%+8,R%-L%-64,48|
00002920  0d 11 6c 08 c8 97 20 ee  0d 11 76 0c f2 62 75 74  |..l... ...v..but|
00002930  74 28 30 29 0d 11 80 10  f5 3a c8 97 4c 25 2c 52  |t(0).....:..L%,R|
00002940  25 2c 44 25 0d 11 8a 17  fd 44 25 80 28 4c 25 3c  |%,D%.....D%.(L%<|
00002950  35 36 38 84 4c 25 3e 37  31 32 29 0d 11 94 10 d4  |568.L%>712).....|
00002960  31 2c 2d 31 30 2c 32 30  30 2c 31 0d 11 9e 10 44  |1,-10,200,1....D|
00002970  25 3d 2d 28 4c 25 3e 37  31 32 29 0d 11 a8 07 3d  |%=-(L%>712)....=|
00002980  44 25 0d 11 b2 07 f4 20  15 0d 11 bc 10 dd a4 6c  |D%..... .......l|
00002990  65 6e 67 74 68 28 4c 25  29 0d 11 c6 18 4c 25 2b  |ength(L%)....L%+|
000029a0  3d 33 3a e7 28 4c 25 80  31 29 2d 30 4c 25 2b 3d  |=3:.(L%.1)-0L%+=|
000029b0  31 0d 11 d0 0a 3d 4c 25  2a 33 32 0d 11 da 07 f4  |1....=L%*32.....|
000029c0  20 15 0d 11 e4 10 dd f2  64 6f 75 62 6c 65 28 43  | .......double(C|
000029d0  25 29 0d 11 ee 0f 43 25  3d 31 32 38 2b 34 2a 43  |%)....C%=128+4*C|
000029e0  25 0d 11 f8 20 ef 43 25  2c 43 25 2b 31 2c 38 2c  |%... .C%,C%+1,8,|
000029f0  38 2c 31 30 2c 43 25 2b  32 2c 43 25 2b 33 2c 31  |8,10,C%+2,C%+3,1|
00002a00  31 0d 12 02 05 e1 0d 12  0c 07 f4 20 15 0d 12 16  |1.......... ....|
00002a10  0f dd f2 73 63 72 65 65  6e 62 6f 78 0d 12 20 0e  |...screenbox.. .|
00002a20  ea 4d 25 3a 4d 25 3d eb  81 36 0d 12 2a 1a f2 6d  |.M%:M%=..6..*..m|
00002a30  65 73 62 6f 78 28 30 2c  30 2c 31 32 37 39 2c 31  |esbox(0,0,1279,1|
00002a40  30 32 33 29 0d 12 34 1f  ef 32 34 2c 31 36 3b 31  |023)..4..24,16;1|
00002a50  36 3b 31 32 36 33 3b 31  30 30 37 3b 3a e6 31 34  |6;1263;1007;:.14|
00002a60  30 3a da 0d 12 3e 0e dd  f2 74 65 78 74 77 69 6e  |0:...>...textwin|
00002a70  64 0d 12 48 1b ef 32 38  2c 31 2c 33 30 2c 33 38  |d..H..28,1,30,38|
00002a80  2a 4d 25 2c 31 3a fb 31  34 30 3a db 0d 12 52 05  |*M%,1:.140:...R.|
00002a90  e1 0d 12 5c 07 f4 20 15  0d 12 66 1b dd f2 63 65  |...\.. ...f...ce|
00002aa0  6e 74 62 6f 78 28 63 6c  73 2c 41 24 2c 43 25 2c  |ntbox(cls,A$,C%,|
00002ab0  48 25 29 0d 12 70 0a e7  63 6c 73 20 db 0d 12 7a  |H%)..p..cls ...z|
00002ac0  0d ea 54 25 2c 49 25 2c  4d 25 0d 12 84 12 e7 eb  |..T%,I%,M%......|
00002ad0  3d 39 4d 25 3d 31 36 8b  4d 25 3d 38 0d 12 8e 11  |=9M%=16.M%=8....|
00002ae0  54 25 3d 36 34 30 2d a9  41 24 2a 4d 25 0d 12 98  |T%=640-.A$*M%...|
00002af0  10 49 25 3d 35 31 32 2b  48 25 2a 31 36 0d 12 a2  |.I%=512+H%*16...|
00002b00  3d f2 6d 65 73 62 6f 78  28 54 25 2d 4d 25 2c 34  |=.mesbox(T%-M%,4|
00002b10  39 36 2d 48 25 2a 31 36  2d 32 30 2a 28 48 25 3d  |96-H%*16-20*(H%=|
00002b20  31 29 2c a9 41 24 2a 4d  25 2a 32 2b 4d 25 2a 32  |1),.A$*M%*2+M%*2|
00002b30  2c 48 25 2a 33 32 2b 33  32 29 0d 12 ac 1f e6 43  |,H%*32+32).....C|
00002b40  25 3a ec 54 25 2c 49 25  2d 31 36 2a 28 48 25 3d  |%:.T%,I%-16*(H%=|
00002b50  31 29 3a ef 35 3a f1 41  24 0d 12 b6 05 e1 0d 12  |1):.5:.A$.......|
00002b60  c0 07 f4 20 15 0d 12 ca  1b dd f2 73 6d 61 6c 6c  |... .......small|
00002b70  6d 65 73 28 78 25 2c 79  25 2c 43 25 2c 41 24 29  |mes(x%,y%,C%,A$)|
00002b80  0d 12 d4 0a ea 6f 25 2c  4d 25 0d 12 de 14 e7 eb  |.....o%,M%......|
00002b90  3d 31 32 4d 25 3d 31 36  8b 4d 25 3d 33 32 0d 12  |=12M%=16.M%=32..|
00002ba0  e8 15 6f 25 3d 28 31 2d  28 a9 41 24 80 31 29 29  |..o%=(1-(.A$.1))|
00002bb0  2a 4d 25 0d 12 f2 24 f2  6d 65 73 62 6f 78 28 78  |*M%...$.mesbox(x|
00002bc0  25 2c 79 25 2c a9 41 24  2a 4d 25 2b 4d 25 2a 32  |%,y%,.A$*M%+M%*2|
00002bd0  2b 6f 25 2c 36 34 29 0d  12 fc 21 e6 31 32 3a ef  |+o%,64)...!.12:.|
00002be0  35 3a ec 78 25 2b 4d 25  2b 6f 25 81 32 2c 79 25  |5:.x%+M%+o%.2,y%|
00002bf0  2b 34 34 3a f1 41 24 3b  0d 13 06 05 e1 0d 13 10  |+44:.A$;........|
00002c00  07 f4 20 15 0d 13 1a 19  dd f2 6d 65 73 62 6f 78  |.. .......mesbox|
00002c10  28 78 25 2c 79 25 2c 58  25 2c 59 25 29 0d 13 24  |(x%,y%,X%,Y%)..$|
00002c20  16 e6 38 3a c8 93 c8 90  78 25 2c 79 25 2c 58 25  |..8:....x%,y%,X%|
00002c30  2c 59 25 0d 13 2e 1c e6  33 3a c8 93 78 25 2b 34  |,Y%.....3:..x%+4|
00002c40  2c 79 25 2b 34 2c 58 25  2d 38 2c 59 25 2d 38 0d  |,y%+4,X%-8,Y%-8.|
00002c50  13 38 1e e6 34 3a c8 93  78 25 2b 38 2c 79 25 2b  |.8..4:..x%+8,y%+|
00002c60  38 2c 58 25 2d 31 36 2c  59 25 2d 31 36 0d 13 42  |8,X%-16,Y%-16..B|
00002c70  23 e6 31 31 3a c8 93 c8  90 78 25 2b 31 32 2c 79  |#.11:....x%+12,y|
00002c80  25 2b 31 32 2c 58 25 2d  32 34 2c 59 25 2d 32 34  |%+12,X%-24,Y%-24|
00002c90  0d 13 4c 05 e1 0d 13 56  07 f4 20 15 0d 13 60 1d  |..L....V.. ...`.|
00002ca0  dd f2 6d 65 73 77 69 6e  64 28 41 24 2c 42 24 2c  |..meswind(A$,B$,|
00002cb0  43 24 2c 46 25 2c 43 25  29 0d 13 6a 15 2a 43 48  |C$,F%,C%)..j.*CH|
00002cc0  41 4e 4e 45 4c 56 4f 49  43 45 20 31 20 31 0d 13  |ANNELVOICE 1 1..|
00002cd0  74 07 ef 32 36 0d 13 7e  17 ea 58 25 2c 78 25 2c  |t..26..~..X%,x%,|
00002ce0  78 32 25 2c 63 25 2c 49  25 2c 59 25 0d 13 88 21  |x2%,c%,I%,Y%...!|
00002cf0  59 25 3d 38 30 2d 28 42  24 3c 3e 22 22 29 2a 34  |Y%=80-(B$<>"")*4|
00002d00  38 2d 28 43 24 3c 3e 22  22 29 2a 34 38 0d 13 92  |8-(C$<>"")*48...|
00002d10  1e 58 25 3d 28 a9 41 24  2a 31 36 2b 33 32 29 3a  |.X%=(.A$*16+32):|
00002d20  78 25 3d 36 34 30 2d 58  25 81 32 0d 13 9c 19 f2  |x%=640-X%.2.....|
00002d30  6d 65 73 62 6f 78 28 78  25 2c 38 30 30 2c 58 25  |mesbox(x%,800,X%|
00002d40  2c 59 25 29 0d 13 a6 09  e6 33 2c 43 25 0d 13 b0  |,Y%).....3,C%...|
00002d50  0f ef 35 3a 58 25 3d 78  25 2b 31 36 0d 13 ba 12  |..5:X%=x%+16....|
00002d60  78 25 3d 36 34 30 2d 28  a9 42 24 2a 38 29 0d 13  |x%=640-(.B$*8)..|
00002d70  c4 13 78 32 25 3d 36 34  30 2d 28 a9 43 24 2a 38  |..x2%=640-(.C$*8|
00002d80  29 0d 13 ce 10 e3 49 25  3d 31 b8 46 25 2a 32 2b  |).....I%=1.F%*2+|
00002d90  31 0d 13 d8 12 ec 58 25  2c 37 37 32 2b 59 25 3a  |1.....X%,772+Y%:|
00002da0  f1 41 24 0d 13 e2 19 e7  42 24 3c 3e 22 22 ec 78  |.A$.....B$<>"".x|
00002db0  25 2c 37 32 34 2b 59 25  3a f1 42 24 0d 13 ec 1a  |%,724+Y%:.B$....|
00002dc0  e7 43 24 3c 3e 22 22 ec  78 32 25 2c 36 37 36 2b  |.C$<>"".x2%,676+|
00002dd0  59 25 3a f1 43 24 0d 13  f6 0c f2 64 65 6c 28 35  |Y%:.C$.....del(5|
00002de0  30 29 0d 14 00 10 d4 31  2c 2d 31 30 2c 31 38 30  |0).....1,-10,180|
00002df0  2c 31 0d 14 0a 05 ed 0d  14 14 08 ef 34 3a 87 0d  |,1..........4:..|
00002e00  14 1e 08 e6 38 2c 30 0d  14 28 18 2a 53 43 48 4f  |....8,0..(.*SCHO|
00002e10  4f 53 45 20 74 6f 70 6f  66 73 63 72 65 65 6e 0d  |OSE topofscreen.|
00002e20  14 32 0e f0 26 45 44 2c  30 2c 37 30 34 0d 14 3c  |.2..&ED,0,704..<|
00002e30  0d f2 77 69 6e 64 6f 77  73 32 0d 14 46 05 e1 0d  |..windows2..F...|
00002e40  14 50 07 f4 20 15 0d 14  5a 0b dd f2 62 6f 61 72  |.P.. ...Z...boar|
00002e50  64 0d 14 64 27 74 6f 74  73 63 6f 72 65 25 28 29  |d..d'totscore%()|
00002e60  3d 74 6f 74 73 63 6f 72  65 25 28 29 2b 63 75 72  |=totscore%()+cur|
00002e70  72 65 6e 74 53 25 28 29  0d 14 6e 41 e3 54 25 3d  |rentS%()..nA.T%=|
00002e80  31 b8 6e 6f 6f 66 70 6c  61 79 65 72 73 3a 68 6f  |1.noofplayers:ho|
00002e90  6c 65 73 63 6f 72 65 73  25 28 68 73 70 25 28 54  |lescores%(hsp%(T|
00002ea0  25 29 2c 48 6f 6c 65 25  29 3d 63 75 72 72 65 6e  |%),Hole%)=curren|
00002eb0  74 53 25 28 54 25 29 3a  ed 0d 14 78 0d f2 62 6f  |tS%(T%):...x..bo|
00002ec0  61 72 64 63 6f 6c 0d 14  82 15 fb 33 2c 30 2c 31  |ardcol.....3,0,1|
00002ed0  34 34 2c 30 3a e6 31 33  31 3a da 0d 14 8c 0c f2  |44,0:.131:......|
00002ee0  77 69 6e 73 6f 72 74 0d  14 96 21 ea 50 25 2c 59  |winsort...!.P%,Y|
00002ef0  25 2c 54 25 2c 49 25 2c  53 25 2c 6d 70 25 2c 41  |%,T%,I%,S%,mp%,A|
00002f00  24 2c 73 63 25 2c 4f 25  0d 14 a0 16 4f 25 3d 28  |$,sc%,O%....O%=(|
00002f10  70 6c 61 79 25 3d 32 29  2a 34 3a ef 32 36 0d 14  |play%=2)*4:.26..|
00002f20  aa 19 e6 30 3a c8 93 c8  90 36 30 2c 37 36 2c 31  |...0:....60,76,1|
00002f30  31 35 36 2c 39 32 30 0d  14 b4 1c e6 36 34 2c 30  |156,920.....64,0|
00002f40  3a c8 93 c8 90 36 34 2c  38 30 2c 31 31 34 38 2c  |:....64,80,1148,|
00002f50  31 32 38 0d 14 be 1e e6  34 38 2c 30 3a c8 93 c8  |128.....48,0:...|
00002f60  90 36 34 2c 39 39 32 2c  31 31 34 38 2c 2d 31 32  |.64,992,1148,-12|
00002f70  38 0d 14 c8 26 e6 31 32  3a ec 37 36 38 2c 35 34  |8...&.12:.768,54|
00002f80  34 3a ec 31 32 31 32 2c  39 39 32 3a f0 38 35 2c  |4:.1212,992:.85,|
00002f90  31 32 31 32 2c 38 30 0d  14 d2 22 e6 31 33 3a ec  |1212,80...".13:.|
00002fa0  35 31 32 2c 35 34 34 3a  ec 36 34 2c 38 30 3a f0  |512,544:.64,80:.|
00002fb0  38 35 2c 36 34 2c 39 39  32 0d 14 dc 1b e6 31 31  |85,64,992.....11|
00002fc0  3a c8 93 c8 90 39 38 2c  31 31 32 2c 31 30 38 30  |:....98,112,1080|
00002fd0  2c 38 34 38 0d 14 e6 18  e6 30 3a c8 93 39 38 2c  |,848.....0:..98,|
00002fe0  31 31 32 2c 31 30 38 30  2c 38 34 38 0d 14 f0 25  |112,1080,848...%|
00002ff0  ef 32 34 2c 31 30 30 3b  31 31 36 3b 31 31 37 36  |.24,100;116;1176|
00003000  3b 39 35 36 3b 3a c8 91  39 38 2c 31 31 36 3a ef  |;956;:..98,116:.|
00003010  35 0d 14 fa 1d e6 31 34  3a e3 50 25 3d 31 b8 36  |5.....14:.P%=1.6|
00003020  3a 59 25 3d 37 38 38 2d  50 25 2a 31 33 32 0d 15  |:Y%=788-P%*132..|
00003030  04 1c e6 37 3a 86 30 2c  59 25 2b 31 32 34 2c 31  |...7:.0,Y%+124,1|
00003040  30 38 30 2c 59 25 2b 31  32 34 0d 15 0e 15 e6 31  |080,Y%+124.....1|
00003050  34 3a 86 30 2c 59 25 2c  31 30 38 30 2c 59 25 0d  |4:.0,Y%,1080,Y%.|
00003060  15 18 26 e3 54 25 3d 34  30 b8 38 30 88 34 30 3a  |..&.T%=40.80.40:|
00003070  86 30 2c 59 25 2b 54 25  2c 31 30 38 30 2c 59 25  |.0,Y%+T%,1080,Y%|
00003080  2b 54 25 3a ed 0d 15 22  27 e3 54 25 3d 31 b8 38  |+T%:..."'.T%=1.8|
00003090  3a 58 25 3d 54 25 2a 31  32 30 3a 86 58 25 2c 59  |:X%=T%*120:.X%,Y|
000030a0  25 2c 58 25 2c 59 25 2b  38 30 3a ed 0d 15 2c 05  |%,X%,Y%+80:...,.|
000030b0  ed 0d 15 36 15 e3 50 25  3d 31 b8 6e 6f 6f 66 70  |...6..P%=1.noofp|
000030c0  6c 61 79 65 72 73 0d 15  40 2c 6d 70 25 3d 6d 61  |layers..@,mp%=ma|
000030d0  70 73 74 61 72 74 25 2b  26 32 46 39 3a 59 25 3d  |pstart%+&2F9:Y%=|
000030e0  37 32 38 2d 28 50 25 2d  31 29 2a 31 33 32 3a e6  |728-(P%-1)*132:.|
000030f0  31 32 0d 15 4a 3a e3 49  25 3d 30 b8 2d 34 30 88  |12..J:.I%=0.-40.|
00003100  2d 34 30 3a e3 54 25 3d  30 b8 38 3a ec 54 25 2a  |-40:.T%=0.8:.T%*|
00003110  31 32 30 2b 34 2c 59 25  2b 49 25 3a f1 3b 3f 6d  |120+4,Y%+I%:.;?m|
00003120  70 25 3a 6d 70 25 2b 3d  26 33 30 30 0d 15 54 09  |p%:mp%+=&300..T.|
00003130  ed 3a ed 3a ed 0d 15 5e  15 e3 50 25 3d 31 b8 6e  |.:.:...^..P%=1.n|
00003140  6f 6f 66 70 6c 61 79 65  72 73 0d 15 68 35 6d 70  |oofplayers..h5mp|
00003150  25 3d 6d 61 70 73 74 61  72 74 25 2b 26 32 46 39  |%=mapstart%+&2F9|
00003160  3a 59 25 3d 37 32 38 2d  28 50 25 2d 31 29 2a 31  |:Y%=728-(P%-1)*1|
00003170  33 32 3a 58 25 3d 33 32  3a 70 61 72 25 3d 30 0d  |32:X%=32:par%=0.|
00003180  15 72 22 e3 54 25 3d 31  b8 48 6f 6c 65 25 3a e7  |.r".T%=1.Hole%:.|
00003190  54 25 3d 31 30 59 25 2d  3d 34 30 3a 58 25 3d 33  |T%=10Y%-=40:X%=3|
000031a0  32 0d 15 7c 37 73 63 25  3d 68 6f 6c 65 73 63 6f  |2..|7sc%=holesco|
000031b0  72 65 73 25 28 68 73 70  25 28 50 25 29 2c 54 25  |res%(hsp%(P%),T%|
000031c0  29 2d 3f 6d 70 25 3a 70  61 72 25 2b 3d 3f 6d 70  |)-?mp%:par%+=?mp|
000031d0  25 3a ec 58 25 2c 59 25  0d 15 86 0b c8 8e b4 73  |%:.X%,Y%.......s|
000031e0  63 25 ca 0d 15 90 14 c9  20 30 3a 41 24 3d 22 50  |c%...... 0:A$="P|
000031f0  41 52 22 3a e6 31 35 0d  15 9a 16 c9 20 31 3a 41  |AR":.15..... 1:A|
00003200  24 3d 22 2b 22 2b c3 73  63 25 3a e6 35 0d 15 a4  |$="+"+.sc%:.5...|
00003210  12 c9 2d 31 3a 41 24 3d  c3 73 63 25 3a e6 30 0d  |..-1:A$=.sc%:.0.|
00003220  15 ae 05 cb 0d 15 b8 13  f1 c4 35 2d a9 41 24 2c  |..........5-.A$,|
00003230  22 20 22 29 3b 41 24 0d  15 c2 15 58 25 2b 3d 31  |" ");A$....X%+=1|
00003240  32 30 3a 6d 70 25 2b 3d  26 33 30 30 0d 15 cc 05  |20:mp%+=&300....|
00003250  ed 0d 15 d6 35 e6 6a 75  6d 70 25 28 50 25 29 2b  |....5.jump%(P%)+|
00003260  34 3a ec 34 2c 37 36 38  2d 28 50 25 2d 31 29 2a  |4:.4,768-(P%-1)*|
00003270  31 33 32 3a f1 6e 61 6d  65 24 28 50 25 29 8a 32  |132:.name$(P%).2|
00003280  30 2b 4f 25 29 3b 0d 15  e0 14 c8 8e 63 75 72 72  |0+O%);......curr|
00003290  65 6e 74 73 25 28 50 25  29 ca 0d 15 ea 15 c9 31  |ents%(P%)......1|
000032a0  3a f1 22 7b 42 45 47 49  4e 4e 45 52 7d 22 3b 0d  |:."{BEGINNER}";.|
000032b0  15 f4 17 c9 32 3a f1 22  7b 45 4e 54 48 55 53 49  |....2:."{ENTHUSI|
000032c0  41 53 54 7d 22 3b 0d 15  fe 14 c9 33 3a f1 22 7b  |AST}";.....3:."{|
000032d0  41 4d 41 54 45 55 52 7d  22 3b 0d 16 08 19 c9 34  |AMATEUR}";.....4|
000032e0  3a f1 22 7b 50 52 4f 46  45 53 53 49 4f 4e 41 4c  |:."{PROFESSIONAL|
000032f0  7d 22 3b 0d 16 12 05 cb  0d 16 1c 41 f1 8a 34 30  |}";........A..40|
00003300  2b 4f 25 29 3b 74 6f 74  73 63 6f 72 65 25 28 50  |+O%);totscore%(P|
00003310  25 29 3b 22 20 53 54 52  4f 4b 45 22 bd 28 2d 28  |%);" STROKE".(-(|
00003320  74 6f 74 73 63 6f 72 65  25 28 50 25 29 3e 31 29  |totscore%(P%)>1)|
00003330  2a 38 33 29 8a 35 33 29  3b 0d 16 26 36 41 24 3d  |*83).53);..&6A$=|
00003340  22 20 3a 20 22 2b c3 48  6f 6c 65 25 2b 22 20 48  |" : "+.Hole%+" H|
00003350  4f 4c 45 22 2b c4 2d 28  48 6f 6c 65 25 3e 31 29  |OLE"+.-(Hole%>1)|
00003360  2c 22 53 22 29 2b 22 20  50 4c 41 59 45 44 22 0d  |,"S")+" PLAYED".|
00003370  16 30 0c c8 8e 70 6c 61  79 25 ca 0d 16 3a 0d c9  |.0...play%...:..|
00003380  31 3a f2 6d 61 74 63 68  0d 16 44 0e c9 32 3a f2  |1:.match..D..2:.|
00003390  73 74 72 6f 6b 65 0d 16  4e 05 cb 0d 16 58 05 ed  |stroke..N....X..|
000033a0  0d 16 62 20 e6 31 35 3a  54 25 3d 35 34 32 2d a9  |..b .15:T%=542-.|
000033b0  41 24 2a 38 3a ec 54 25  2c 38 32 34 3a f1 41 24  |A$*8:.T%,824:.A$|
000033c0  0d 16 6c 1f e6 31 32 3a  c8 93 54 25 2d 38 2c 37  |..l..12:..T%-8,7|
000033d0  38 38 2c a9 41 24 2a 31  36 2b 31 34 2c 34 38 0d  |88,.A$*16+14,48.|
000033e0  16 76 29 ef 32 36 3a f2  73 6d 61 6c 6c 6d 65 73  |.v).26:.smallmes|
000033f0  28 33 36 30 2c 33 32 2c  31 31 2c 22 20 43 4f 4e  |(360,32,11," CON|
00003400  54 49 4e 55 45 20 22 29  0d 16 80 25 f2 73 6d 61  |TINUE ")...%.sma|
00003410  6c 6c 6d 65 73 28 37 32  30 2c 33 32 2c 31 31 2c  |llmes(720,32,11,|
00003420  22 51 55 49 54 20 52 4f  55 4e 44 22 29 0d 16 8a  |"QUIT ROUND")...|
00003430  05 f5 0d 16 94 15 c8 97  c8 93 33 37 32 2c 34 34  |..........372,44|
00003440  2c 35 32 38 2c 34 30 0d  16 9e 11 c8 97 ee 3a c8  |,528,40.......:.|
00003450  97 b8 34 36 34 2c 36 34  0d 16 a8 18 f2 62 75 74  |..464,64.....but|
00003460  74 28 30 29 3a d1 3d 30  3a f5 fd 91 3e 31 30 30  |t(0):.=0:...>100|
00003470  0d 16 b2 10 f5 3a c8 97  58 25 2c 59 25 2c 54 25  |.....:..X%,Y%,T%|
00003480  0d 16 bc 17 fd 54 25 80  28 58 25 3c 35 35 36 84  |.....T%.(X%<556.|
00003490  58 25 3e 37 31 38 29 0d  16 c6 44 e7 58 25 3e 37  |X%>718)...D.X%>7|
000034a0  31 38 f2 63 6f 6e 66 69  72 6d 3a e7 58 25 3e 39  |18.confirm:.X%>9|
000034b0  32 36 ec 30 2c 30 3a ff  28 22 53 43 48 4f 4f 53  |26.0,0:.("SCHOOS|
000034c0  45 20 74 6f 70 6f 66 73  63 72 65 65 6e 22 29 3a  |E topofscreen"):|
000034d0  f0 26 45 44 2c 30 2c 30  3a fd 30 0d 16 d0 06 fd  |.&ED,0,0:.0.....|
000034e0  b9 0d 16 da 0b fb 30 3a  ef 34 3a 87 0d 16 e4 07  |......0:.4:.....|
000034f0  c8 97 87 0d 16 ee 08 e6  31 33 39 0d 16 f8 05 e1  |........139.....|
00003500  0d 17 02 07 f4 20 15 0d  17 0c 0d dd f2 63 6f 6e  |..... .......con|
00003510  66 69 72 6d 0d 17 16 0c  f2 62 75 74 74 28 30 29  |firm.....butt(0)|
00003520  0d 17 20 0c f2 67 74 6f  73 28 30 29 0d 17 2a 1b  |.. ..gtos(0)..*.|
00003530  f2 6d 65 73 62 6f 78 28  36 34 30 2c 33 32 2c 35  |.mesbox(640,32,5|
00003540  31 32 2c 31 36 30 29 0d  17 34 31 e6 38 3a ec 36  |12,160)..41.8:.6|
00003550  35 36 2c 31 37 36 3a f1  22 41 52 45 20 59 4f 55  |56,176:."ARE YOU|
00003560  20 53 55 52 45 20 59 4f  55 20 57 41 4e 54 20 54  | SURE YOU WANT T|
00003570  4f 20 51 55 49 54 3f 22  0d 17 3e 1d f2 73 6d 61  |O QUIT?"..>..sma|
00003580  6c 6c 6d 65 73 28 37 39  34 2c 36 30 2c 38 2c 22  |llmes(794,60,8,"|
00003590  59 45 53 22 29 0d 17 48  1c f2 73 6d 61 6c 6c 6d  |YES")..H..smallm|
000035a0  65 73 28 39 31 36 2c 36  30 2c 38 2c 22 4e 4f 22  |es(916,60,8,"NO"|
000035b0  29 0d 17 52 1f c8 97 c8  93 38 30 36 2c 37 32 2c  |)..R.....806,72,|
000035c0  31 37 38 2c 34 30 3a c8  97 b8 38 39 30 2c 38 32  |178,40:...890,82|
000035d0  0d 17 5c 10 f5 3a c8 97  58 25 2c 59 25 2c 54 25  |..\..:..X%,Y%,T%|
000035e0  0d 17 66 17 fd 54 25 80  28 58 25 3c 38 36 36 84  |..f..T%.(X%<866.|
000035f0  58 25 3e 39 32 36 29 0d  17 70 05 e1 0d 17 7a 07  |X%>926)..p....z.|
00003600  f4 20 15 0d 17 84 0b dd  f2 6d 61 74 63 68 0d 17  |. .......match..|
00003610  8e 12 ea 54 25 2c 42 24  2c 53 31 25 2c 53 32 25  |...T%,B$,S1%,S2%|
00003620  0d 17 98 0f e3 54 25 3d  31 b8 48 6f 6c 65 25 0d  |.....T%=1.Hole%.|
00003630  17 a2 3b e7 20 68 6f 6c  65 73 63 6f 72 65 73 25  |..;. holescores%|
00003640  28 68 73 70 25 28 31 29  2c 54 25 29 3c 68 6f 6c  |(hsp%(1),T%)<hol|
00003650  65 73 63 6f 72 65 73 25  28 68 73 70 25 28 32 29  |escores%(hsp%(2)|
00003660  2c 54 25 29 53 31 25 2b  3d 31 0d 17 ac 3b e7 20  |,T%)S1%+=1...;. |
00003670  68 6f 6c 65 73 63 6f 72  65 73 25 28 68 73 70 25  |holescores%(hsp%|
00003680  28 32 29 2c 54 25 29 3c  68 6f 6c 65 73 63 6f 72  |(2),T%)<holescor|
00003690  65 73 25 28 68 73 70 25  28 31 29 2c 54 25 29 53  |es%(hsp%(1),T%)S|
000036a0  32 25 2b 3d 31 0d 17 b6  13 ed 3a 54 25 3d 94 28  |2%+=1.....:T%=.(|
000036b0  53 32 25 2d 53 31 25 29  0d 17 c0 25 42 24 3d c3  |S2%-S1%)...%B$=.|
000036c0  28 54 25 29 3a e7 54 25  42 24 3d 42 24 2b 22 20  |(T%):.T%B$=B$+" |
000036d0  55 50 22 8b 42 24 3d 22  45 56 45 4e 22 0d 17 ca  |UP".B$="EVEN"...|
000036e0  16 42 24 3d c4 31 34 2d  a9 42 24 2c 22 20 22 29  |.B$=.14-.B$," ")|
000036f0  2b 42 24 0d 17 d4 09 c8  8e 50 25 ca 0d 17 de 13  |+B$......P%.....|
00003700  c9 31 3a e7 53 31 25 3e  3d 53 32 25 f1 42 24 0d  |.1:.S1%>=S2%.B$.|
00003710  17 e8 13 c9 32 3a e7 53  32 25 3e 3d 53 31 25 f1  |....2:.S2%>=S1%.|
00003720  42 24 0d 17 f2 05 cb 0d  17 fc 21 41 24 3d 43 6f  |B$........!A$=Co|
00003730  75 72 73 65 24 2b 22 20  3a 20 4d 41 54 43 48 20  |urse$+" : MATCH |
00003740  50 4c 41 59 22 2b 41 24  0d 18 06 05 e1 0d 18 10  |PLAY"+A$........|
00003750  07 f4 20 15 0d 18 1a 0c  dd f2 73 74 72 6f 6b 65  |.. .......stroke|
00003760  0d 18 24 0a ea 54 25 2c  42 24 0d 18 2e 23 54 25  |..$..T%,B$...#T%|
00003770  3d 74 6f 74 73 63 6f 72  65 25 28 50 25 29 2d 70  |=totscore%(P%)-p|
00003780  61 72 25 3a 42 24 3d c3  28 94 54 25 29 0d 18 38  |ar%:B$=.(.T%)..8|
00003790  0a c8 8e b4 54 25 ca 0d  18 42 14 c9 30 3a 42 24  |....T%...B..0:B$|
000037a0  3d 22 45 56 45 4e 20 50  41 52 22 0d 18 4c 18 c9  |="EVEN PAR"..L..|
000037b0  31 3a 42 24 3d 42 24 2b  22 20 4f 56 45 52 20 50  |1:B$=B$+" OVER P|
000037c0  41 52 22 0d 18 56 1a c9  2d 31 3a 42 24 3d 42 24  |AR"..V..-1:B$=B$|
000037d0  2b 22 20 55 4e 44 45 52  20 50 41 52 22 0d 18 60  |+" UNDER PAR"..`|
000037e0  05 cb 0d 18 6a 14 f1 c4  31 34 2d a9 42 24 2c 22  |....j...14-.B$,"|
000037f0  20 22 29 3b 42 24 0d 18  74 22 41 24 3d 43 6f 75  | ");B$..t"A$=Cou|
00003800  72 73 65 24 2b 22 20 3a  20 53 54 52 4f 4b 45 20  |rse$+" : STROKE |
00003810  50 4c 41 59 22 2b 41 24  0d 18 7e 05 e1 0d 18 88  |PLAY"+A$..~.....|
00003820  07 f4 20 15 0d 18 92 0e  dd f2 73 68 6f 77 77 69  |.. .......showwi|
00003830  6e 64 0d 18 9c 23 ea 77  24 2c 54 25 2c 43 25 2c  |nd...#.w$,T%,C%,|
00003840  73 25 2c 69 25 2c 78 31  25 2c 79 31 25 2c 42 58  |s%,i%,x1%,y1%,BX|
00003850  25 2c 42 59 25 0d 18 a6  35 e7 67 72 65 65 6e 25  |%,BY%...5.green%|
00003860  20 43 25 3d 39 3a 77 24  3d 22 53 4c 4f 50 45 22  | C%=9:w$="SLOPE"|
00003870  3a 73 25 3d 2d 32 8b 43  25 3d 36 3a 77 24 3d 22  |:s%=-2.C%=6:w$="|
00003880  57 49 4e 44 22 3a 73 25  3d 34 0d 18 b0 25 fb 31  |WIND":s%=4...%.1|
00003890  33 3a f1 8a 32 36 2c 30  29 22 44 49 52 45 43 54  |3:..26,0)"DIRECT|
000038a0  49 4f 4e 20 4f 46 22 8a  32 39 2c 31 29 77 24 0d  |ION OF".29,1)w$.|
000038b0  18 ba 13 e3 54 25 3d 43  25 b8 43 25 2b 73 25 88  |....T%=C%.C%+s%.|
000038c0  73 25 0d 18 c4 07 e6 54  25 0d 18 ce 13 c8 8f 35  |s%.....T%......5|
000038d0  32 36 2c 38 32 30 2c 38  38 2b 69 25 0d 18 d8 13  |26,820,88+i%....|
000038e0  c8 8f 35 32 36 2c 38 32  30 2c 31 32 2b 69 25 0d  |..526,820,12+i%.|
000038f0  18 e2 0b 69 25 2b 3d 34  3a ed 0d 18 ec 06 e6 38  |...i%+=4:......8|
00003900  0d 18 f6 0c ec 35 32 36  2c 38 32 30 0d 19 00 17  |.....526,820....|
00003910  42 58 25 3d 77 78 2a 32  35 3a 42 59 25 3d 77 79  |BX%=wx*25:BY%=wy|
00003920  2a 32 35 0d 19 0a 27 78  31 25 3d 76 61 2a 42 59  |*25...'x1%=va*BY|
00003930  25 2b 76 62 2a 42 58 25  3a 79 31 25 3d 76 69 2a  |%+vb*BX%:y1%=vi*|
00003940  42 59 25 2b 76 61 2a 42  58 25 0d 19 14 14 df 35  |BY%+va*BX%.....5|
00003950  32 36 2b 78 31 25 2c 38  32 30 2b 79 31 25 0d 19  |26+x1%,820+y1%..|
00003960  1e 05 e1 0d 19 28 07 f4  20 15 0d 19 32 0d dd f2  |.....(.. ...2...|
00003970  73 65 74 77 69 6e 64 0d  19 3c 17 57 58 3d 30 3a  |setwind..<.WX=0:|
00003980  57 59 3d 30 3a 46 25 3d  67 72 65 65 6e 25 0d 19  |WY=0:F%=green%..|
00003990  46 18 77 63 3d 35 2b 34  2a 67 72 65 65 6e 25 3a  |F.wc=5+4*green%:|
000039a0  77 63 32 3d 77 63 0d 19  50 31 e7 46 25 3a 50 25  |wc2=wc..P1.F%:P%|
000039b0  3d 6d 61 70 70 6f 69 6e  74 25 2b 26 32 46 34 3a  |=mappoint%+&2F4:|
000039c0  77 78 3d a4 6d 61 70 32  2f 33 3a 77 79 3d a4 6d  |wx=.map2/3:wy=.m|
000039d0  61 70 32 2f 33 3a e1 0d  19 5a 18 77 78 3d 30 3a  |ap2/3:...Z.wx=0:|
000039e0  77 79 3d 30 3a e7 73 6b  69 6c 6c 25 3c 33 e1 0d  |wy=0:.skill%<3..|
000039f0  19 64 0f 77 78 3d 57 78  3a 77 79 3d 57 79 0d 19  |.d.wx=Wx:wy=Wy..|
00003a00  6e 05 e1 0d 19 78 07 f4  20 15 0d 19 82 0e dd f2  |n....x.. .......|
00003a10  69 6e 69 74 77 69 6e 64  0d 19 8c 07 ea 61 25 0d  |initwind.....a%.|
00003a20  19 96 10 73 74 72 65 6e  25 3d b3 28 33 36 29 0d  |...stren%=.(36).|
00003a30  19 a0 0d 61 25 3d b3 28  33 36 30 29 0d 19 aa 18  |...a%=.(360)....|
00003a40  57 78 3d 28 28 9b b2 61  25 29 2a 73 74 72 65 6e  |Wx=((..a%)*stren|
00003a50  25 29 2f 39 0d 19 b4 18  57 79 3d 28 28 b5 b2 61  |%)/9....Wy=((..a|
00003a60  25 29 2a 73 74 72 65 6e  25 29 2f 39 0d 19 be 1d  |%)*stren%)/9....|
00003a70  46 78 3d 28 b5 b2 61 25  29 2a 28 31 35 2b 28 73  |Fx=(..a%)*(15+(s|
00003a80  74 72 65 6e 25 81 32 29  29 0d 19 c8 1d 46 79 3d  |tren%.2))....Fy=|
00003a90  28 9b b2 61 25 29 2a 28  31 35 2b 28 73 74 72 65  |(..a%)*(15+(stre|
00003aa0  6e 25 81 32 29 29 0d 19  d2 05 e1 0d 19 dc 07 f4  |n%.2))..........|
00003ab0  20 15 0d 19 e6 0a dd f2  73 70 6f 74 0d 19 f0 1b  | .......spot....|
00003ac0  62 73 25 3d 31 3a 42 58  3d 30 3a 42 59 25 3d 2d  |bs%=1:BX=0:BY%=-|
00003ad0  52 25 3a 68 25 3d 30 0d  19 fa 25 78 31 25 3d 76  |R%:h%=0...%x1%=v|
00003ae0  61 2a 42 59 25 2b 76 62  2a 42 58 3a 79 31 25 3d  |a*BY%+vb*BX:y1%=|
00003af0  76 69 2a 42 59 25 2b 76  61 2a 42 58 0d 1a 04 1a  |vi*BY%+va*BX....|
00003b00  f2 76 74 28 79 31 25 2c  78 31 25 2c 48 25 29 3a  |.vt(y1%,x1%,H%):|
00003b10  79 73 25 2d 3d 34 0d 1a  0e 0c 2a 46 58 31 31 32  |ys%-=4....*FX112|
00003b20  2c 32 0d 1a 18 14 6c 69  65 25 3d b0 78 73 25 2b  |,2....lie%=.xs%+|
00003b30  32 2c 79 73 25 29 0d 1a  22 0e f2 77 65 6c 6c 69  |2,ys%).."..welli|
00003b40  65 28 30 29 0d 1a 2c 0d  e7 ac 67 72 65 65 6e 25  |e(0)..,...green%|
00003b50  8c 0d 1a 36 2c 54 25 3d  b0 28 6d 78 25 28 30 2c  |...6,T%=.(mx%(0,|
00003b60  48 61 6e 64 25 29 2b 34  2b 54 25 2b 38 30 2a 48  |Hand%)+4+T%+80*H|
00003b70  61 6e 64 25 29 2c 6d 79  25 28 30 29 29 0d 1a 40  |and%),my%(0))..@|
00003b80  10 e7 54 25 3d 36 84 54  25 3d 31 31 8c 0d 1a 4a  |..T%=6.T%=11...J|
00003b90  0f f2 77 65 6c 6c 69 65  28 33 30 29 0d 1a 54 05  |..wellie(30)..T.|
00003ba0  cd 0d 1a 5e 05 cd 0d 1a  68 0c 2a 46 58 31 31 32  |...^....h.*FX112|
00003bb0  2c 31 0d 1a 72 15 ec 78  73 25 2c 79 73 25 3a ec  |,1..r..xs%,ys%:.|
00003bc0  42 59 31 30 2c 31 36 0d  1a 7c 13 6f 78 25 3d 78  |BY10,16..|.ox%=x|
00003bd0  73 25 3a 6f 79 25 3d 79  73 25 0d 1a 86 15 6f 73  |s%:oy%=ys%....os|
00003be0  78 25 3d 78 73 25 3a 6f  73 79 25 3d 79 73 25 0d  |x%=xs%:osy%=ys%.|
00003bf0  1a 90 13 73 78 25 3d 78  73 25 3a 73 79 25 3d 79  |...sx%=xs%:sy%=y|
00003c00  73 25 0d 1a 9a 0c 2a 53  47 45 54 20 67 72 0d 1a  |s%....*SGET gr..|
00003c10  a4 0c 2a 53 47 45 54 20  73 68 0d 1a ae 05 e1 0d  |..*SGET sh......|
00003c20  1a b8 07 f4 20 15 0d 1a  c2 10 dd f2 77 65 6c 6c  |.... .......well|
00003c30  69 65 28 57 25 29 0d 1a  cc 07 ea 54 25 0d 1a d6  |ie(W%).....T%...|
00003c40  1c e3 54 25 3d 31 b8 38  3a 6d 25 28 54 25 2c 30  |..T%=1.8:m%(T%,0|
00003c50  29 3d 54 25 2b 57 25 3a  ed 0d 1a e0 11 77 65 6c  |)=T%+W%:.....wel|
00003c60  6c 69 65 25 3d 57 25 3d  33 30 0d 1a ea 05 e1 0d  |lie%=W%=30......|
00003c70  1a f4 07 f4 20 15 0d 1a  fe 0c dd f2 73 70 6c 61  |.... .......spla|
00003c80  73 68 0d 1b 08 18 2a 43  48 41 4e 4e 45 4c 56 4f  |sh....*CHANNELVO|
00003c90  49 43 45 20 31 20 50 4c  4f 50 0d 1b 12 16 ea 41  |ICE 1 PLOP.....A|
00003ca0  24 2c 72 25 2c 61 25 2c  54 25 2c 78 25 2c 79 25  |$,r%,a%,T%,x%,y%|
00003cb0  0d 1b 1c 16 62 61 64 25  3d a3 3a d4 31 2c 2d 31  |....bad%=.:.1,-1|
00003cc0  35 2c 35 2c 32 30 0d 1b  26 0e e7 94 73 78 25 3c  |5,5,20..&...sx%<|
00003cd0  36 34 30 8c 0d 1b 30 0e  e3 72 25 3d 35 b8 35 35  |640...0..r%=5.55|
00003ce0  88 35 0d 1b 3a 0a e7 72  25 3e 39 8c 0d 1b 44 0c  |.5..:..r%>9...D.|
00003cf0  e6 36 3a c8 96 3a c8 96  0d 1b 4e 0c e3 61 25 3d  |.6:..:....N..a%=|
00003d00  30 b8 34 35 0d 1b 58 32  78 25 3d 78 73 25 2b 43  |0.45..X2x%=xs%+C|
00003d10  28 61 25 29 2a 28 72 25  2d 31 30 29 3a 79 25 3d  |(a%)*(r%-10):y%=|
00003d20  79 73 25 2b 53 28 61 25  29 2a 28 28 72 25 2d 31  |ys%+S(a%)*((r%-1|
00003d30  30 29 3e 3e 32 29 0d 1b  62 16 e7 b0 78 25 2c 79  |0)>>2)..b...x%,y|
00003d40  25 29 3d 31 31 c8 92 78  25 2c 79 25 0d 1b 6c 05  |%)=11..x%,y%..l.|
00003d50  ed 0d 1b 76 05 cd 0d 1b  80 0f e6 31 31 3a e7 72  |...v.......11:.r|
00003d60  25 3c 35 30 8c 0d 1b 8a  09 c8 96 3a c8 96 0d 1b  |%<50.......:....|
00003d70  94 31 e3 61 25 3d 30 b8  34 35 3a 78 25 3d 78 73  |.1.a%=0.45:x%=xs|
00003d80  25 2b 43 28 61 25 29 2a  72 25 3a 79 25 3d 79 73  |%+C(a%)*r%:y%=ys|
00003d90  25 2b 53 28 61 25 29 2a  28 72 25 3e 3e 32 29 0d  |%+S(a%)*(r%>>2).|
00003da0  1b 9e 15 e7 b0 78 25 2c  79 25 29 3d 36 c8 92 78  |.....x%,y%)=6..x|
00003db0  25 2c 79 25 0d 1b a8 05  ed 0d 1b b2 05 cd 0d 1b  |%,y%............|
00003dc0  bc 05 ed 0d 1b bd 05 cd  0d 1b c6 0e 73 74 72 6f  |............stro|
00003dd0  6b 65 25 2b 3d 31 0d 1b  d0 21 e7 47 25 3d 31 31  |ke%+=1...!.G%=11|
00003de0  41 24 3d 22 54 48 45 20  53 45 41 22 8b 41 24 3d  |A$="THE SEA".A$=|
00003df0  22 57 41 54 45 52 22 0d  1b da 4d f2 6d 65 73 77  |"WATER"...M.mesw|
00003e00  69 6e 64 28 22 42 41 4c  4c 20 4c 4f 53 54 20 49  |ind("BALL LOST I|
00003e10  4e 20 22 2b 41 24 2c 22  46 4f 52 46 45 49 54 20  |N "+A$,"FORFEIT |
00003e20  4f 4e 45 20 53 54 52 4f  4b 45 22 2c 22 50 4c 45  |ONE STROKE","PLE|
00003e30  41 53 45 20 50 4c 41 59  20 41 47 41 49 4e 22 2c  |ASE PLAY AGAIN",|
00003e40  35 2c 36 29 0d 1b e4 10  f2 67 65 74 70 6c 61 79  |5,6).....getplay|
00003e50  76 61 6c 73 0d 1b ee 09  f2 73 70 6f 74 0d 1b f8  |vals.....spot...|
00003e60  12 2a 53 43 48 4f 4f 53  45 20 70 6c 61 69 6e 0d  |.*SCHOOSE plain.|
00003e70  1c 02 4d c8 96 3a f0 26  45 44 2c 6d 78 25 28 67  |..M..:.&ED,mx%(g|
00003e80  25 2c 48 61 6e 64 25 29  2c 6d 79 25 28 67 25 29  |%,Hand%),my%(g%)|
00003e90  3a ef 32 33 2c 32 37 3b  6d 25 28 31 2c 67 25 29  |:.23,27;m%(1,g%)|
00003ea0  7c 3a f0 26 45 44 2c 6d  78 25 28 67 25 2c 48 61  ||:.&ED,mx%(g%,Ha|
00003eb0  6e 64 25 29 2c 6d 79 25  28 67 25 29 0d 1c 0c 05  |nd%),my%(g%)....|
00003ec0  e1 0d 1c 16 07 f4 20 15  0d 1c 20 0d dd f2 70 75  |...... ... ...pu|
00003ed0  74 62 61 63 6b 0d 1c 2a  0d e7 ac 67 72 65 65 6e  |tback..*...green|
00003ee0  25 8c 0d 1c 34 1f e7 94  78 31 25 3c 38 30 78 31  |%...4...x1%<80x1|
00003ef0  25 3d 28 38 30 2b b3 28  33 30 29 29 2a b4 78 31  |%=(80+.(30))*.x1|
00003f00  25 0d 1c 3e 1f e7 94 79  31 25 3c 38 30 79 31 25  |%..>...y1%<80y1%|
00003f10  3d 28 38 30 2b b3 28 33  30 29 29 2a b4 79 31 25  |=(80+.(30))*.y1%|
00003f20  0d 1c 48 05 cd 0d 1c 52  25 63 75 72 72 65 6e 74  |..H....R%current|
00003f30  52 25 28 31 29 3d a4 64  69 73 74 61 6e 63 65 28  |R%(1)=.distance(|
00003f40  94 78 31 25 2c 94 79 31  25 29 0d 1c 5c 14 63 75  |.x1%,.y1%)..\.cu|
00003f50  72 72 65 6e 74 78 25 28  31 29 3d 78 31 25 0d 1c  |rrentx%(1)=x1%..|
00003f60  66 14 63 75 72 72 65 6e  74 79 25 28 31 29 3d 79  |f.currenty%(1)=y|
00003f70  31 25 0d 1c 70 18 63 75  72 72 65 6e 74 53 25 28  |1%..p.currentS%(|
00003f80  31 29 3d 73 74 72 6f 6b  65 25 0d 1c 7a 05 e1 0d  |1)=stroke%..z...|
00003f90  1c 84 07 f4 20 15 0d 1c  8e 0d dd f2 73 77 61 70  |.... .......swap|
00003fa0  61 6c 6c 0d 1c 98 24 c8  94 20 63 75 72 72 65 6e  |all...$.. curren|
00003fb0  74 52 25 28 49 25 29 2c  63 75 72 72 65 6e 74 52  |tR%(I%),currentR|
00003fc0  25 28 49 25 2d 31 29 0d  1c a2 24 c8 94 20 63 75  |%(I%-1)...$.. cu|
00003fd0  72 72 65 6e 74 78 25 28  49 25 29 2c 63 75 72 72  |rrentx%(I%),curr|
00003fe0  65 6e 74 78 25 28 49 25  2d 31 29 0d 1c ac 24 c8  |entx%(I%-1)...$.|
00003ff0  94 20 63 75 72 72 65 6e  74 79 25 28 49 25 29 2c  |. currenty%(I%),|
00004000  63 75 72 72 65 6e 74 79  25 28 49 25 2d 31 29 0d  |currenty%(I%-1).|
00004010  1c b6 24 c8 94 20 63 75  72 72 65 6e 74 73 25 28  |..$.. currents%(|
00004020  49 25 29 2c 63 75 72 72  65 6e 74 73 25 28 49 25  |I%),currents%(I%|
00004030  2d 31 29 0d 1c c0 24 c8  94 20 63 75 72 72 65 6e  |-1)...$.. curren|
00004040  74 53 25 28 49 25 29 2c  63 75 72 72 65 6e 74 53  |tS%(I%),currentS|
00004050  25 28 49 25 2d 31 29 0d  1c ca 24 c8 94 20 74 6f  |%(I%-1)...$.. to|
00004060  74 73 63 6f 72 65 25 28  49 25 29 2c 74 6f 74 73  |tscore%(I%),tots|
00004070  63 6f 72 65 25 28 49 25  2d 31 29 0d 1c d4 20 c8  |core%(I%-1)... .|
00004080  94 20 6f 6c 64 70 6f 73  25 28 49 25 29 2c 6f 6c  |. oldpos%(I%),ol|
00004090  64 70 6f 73 25 28 49 25  2d 31 29 0d 1c de 1c c8  |dpos%(I%-1).....|
000040a0  94 20 6e 61 6d 65 24 28  49 25 29 2c 6e 61 6d 65  |. name$(I%),name|
000040b0  24 28 49 25 2d 31 29 0d  1c e8 1a c8 94 20 68 73  |$(I%-1)...... hs|
000040c0  70 25 28 49 25 29 2c 68  73 70 25 28 49 25 2d 31  |p%(I%),hsp%(I%-1|
000040d0  29 0d 1c f2 1c c8 94 20  68 61 6e 64 25 28 49 25  |)...... hand%(I%|
000040e0  29 2c 68 61 6e 64 25 28  49 25 2d 31 29 0d 1c fc  |),hand%(I%-1)...|
000040f0  1c c8 94 20 6a 75 6d 70  25 28 49 25 29 2c 6a 75  |... jump%(I%),ju|
00004100  6d 70 25 28 49 25 2d 31  29 0d 1d 06 05 e1 0d 1d  |mp%(I%-1).......|
00004110  10 07 f4 20 15 0d 1d 1a  0d dd f2 77 69 6e 73 6f  |... .......winso|
00004120  72 74 0d 1d 24 0a ea 54  25 2c 49 25 0d 1d 2e 14  |rt..$..T%,I%....|
00004130  e7 6e 6f 6f 66 70 6c 61  79 65 72 73 3c 3e 31 8c  |.noofplayers<>1.|
00004140  0d 1d 38 27 e3 54 25 3d  31 b8 6e 6f 6f 66 70 6c  |..8'.T%=1.noofpl|
00004150  61 79 65 72 73 3a e3 49  25 3d 32 b8 6e 6f 6f 66  |ayers:.I%=2.noof|
00004160  70 6c 61 79 65 72 73 0d  1d 42 1f e7 6f 6c 64 70  |players..B..oldp|
00004170  6f 73 25 28 49 25 29 3c  6f 6c 64 70 6f 73 25 28  |os%(I%)<oldpos%(|
00004180  49 25 2d 31 29 8c 0d 1d  4c 0c f2 73 77 61 70 61  |I%-1)...L..swapa|
00004190  6c 6c 0d 1d 56 05 cd 0d  1d 60 07 ed 3a ed 0d 1d  |ll..V....`..:...|
000041a0  6a 27 e3 54 25 3d 31 b8  6e 6f 6f 66 70 6c 61 79  |j'.T%=1.noofplay|
000041b0  65 72 73 3a e3 49 25 3d  32 b8 6e 6f 6f 66 70 6c  |ers:.I%=2.noofpl|
000041c0  61 79 65 72 73 0d 1d 74  23 e7 63 75 72 72 65 6e  |ayers..t#.curren|
000041d0  74 53 25 28 49 25 29 3c  63 75 72 72 65 6e 74 53  |tS%(I%)<currentS|
000041e0  25 28 49 25 2d 31 29 8c  0d 1d 7e 0c f2 73 77 61  |%(I%-1)...~..swa|
000041f0  70 61 6c 6c 0d 1d 88 05  cd 0d 1d 92 07 ed 3a ed  |pall..........:.|
00004200  0d 1d 9c 05 cd 0d 1d a6  05 e1 0d 1d b0 07 f4 20  |............... |
00004210  15 0d 1d ba 0f dd f2 73  65 74 70 6c 61 79 65 72  |.......setplayer|
00004220  0d 1d c4 07 ea 54 25 0d  1d ce 15 e3 54 25 3d 31  |.....T%.....T%=1|
00004230  b8 6e 6f 6f 66 70 6c 61  79 65 72 73 0d 1d d8 12  |.noofplayers....|
00004240  6f 6c 64 70 6f 73 25 28  54 25 29 3d 54 25 0d 1d  |oldpos%(T%)=T%..|
00004250  e2 05 ed 0d 1d ec 05 e1  0d 1d f6 07 f4 20 15 0d  |............. ..|
00004260  1e 00 11 dd f2 77 68 69  63 68 70 6c 61 79 65 72  |.....whichplayer|
00004270  0d 1e 0a 0a ea 54 25 2c  49 25 0d 1e 14 14 e7 6e  |.....T%,I%.....n|
00004280  6f 6f 66 70 6c 61 79 65  72 73 3c 3e 31 8c 0d 1e  |oofplayers<>1...|
00004290  1e 15 e3 54 25 3d 31 b8  6e 6f 6f 66 70 6c 61 79  |...T%=1.noofplay|
000042a0  65 72 73 0d 1e 28 15 e3  49 25 3d 32 b8 6e 6f 6f  |ers..(..I%=2.noo|
000042b0  66 70 6c 61 79 65 72 73  0d 1e 32 23 e7 63 75 72  |fplayers..2#.cur|
000042c0  72 65 6e 74 52 25 28 49  25 29 3e 63 75 72 72 65  |rentR%(I%)>curre|
000042d0  6e 74 52 25 28 49 25 2d  31 29 8c 0d 1e 3c 0c f2  |ntR%(I%-1)...<..|
000042e0  73 77 61 70 61 6c 6c 0d  1e 46 05 cd 0d 1e 50 07  |swapall..F....P.|
000042f0  ed 3a ed 0d 1e 5a 05 cd  0d 1e 64 18 73 74 72 6f  |.:...Z....d.stro|
00004300  6b 65 25 3d 63 75 72 72  65 6e 74 53 25 28 31 29  |ke%=currentS%(1)|
00004310  0d 1e 6e 17 73 6b 69 6c  6c 25 3d 63 75 72 72 65  |..n.skill%=curre|
00004320  6e 74 73 25 28 31 29 0d  1e 78 23 e7 63 75 72 72  |nts%(1)..x#.curr|
00004330  65 6e 74 78 25 28 31 29  3d 30 80 63 75 72 72 65  |entx%(1)=0.curre|
00004340  6e 74 79 25 28 31 29 3d  30 8c 0d 1e 82 1c 72 6f  |nty%(1)=0.....ro|
00004350  75 6e 64 25 3d b9 3a 6d  61 70 70 6f 69 6e 74 25  |und%=.:mappoint%|
00004360  2b 3d 26 33 30 30 0d 1e  8c 05 cd 0d 1e 96 15 e7  |+=&300..........|
00004370  68 61 6e 64 25 28 31 29  3c 3e 48 61 6e 64 25 8c  |hand%(1)<>Hand%.|
00004380  0d 1e a0 12 48 61 6e 64  25 3d 68 61 6e 64 25 28  |....Hand%=hand%(|
00004390  31 29 0d 1e aa 21 e3 54  25 3d 31 b8 31 31 3a ff  |1)...!.T%=1.11:.|
000043a0  28 22 53 46 6c 69 70 59  20 22 2b c3 28 54 25 29  |("SFlipY "+.(T%)|
000043b0  29 3a ed 0d 1e b4 22 e3  54 25 3d 33 31 b8 33 38  |):....".T%=31.38|
000043c0  3a ff 28 22 53 46 6c 69  70 59 20 22 2b c3 28 54  |:.("SFlipY "+.(T|
000043d0  25 29 29 3a ed 0d 1e be  0e 2a 53 46 6c 69 70 59  |%)):.....*SFlipY|
000043e0  20 32 30 0d 1e c8 05 cd  0d 1e d2 05 e1 0d 1e dc  | 20.............|
000043f0  07 f4 20 15 0d 1e e6 11  dd f2 67 65 74 70 6c 61  |.. .......getpla|
00004400  79 76 61 6c 73 0d 1e f0  24 58 25 3d 63 75 72 72  |yvals...$X%=curr|
00004410  65 6e 74 78 25 28 31 29  3a 59 59 25 3d 63 75 72  |entx%(1):YY%=cur|
00004420  72 65 6e 74 79 25 28 31  29 0d 1e fa 05 e1 0d 1f  |renty%(1).......|
00004430  04 07 f4 20 15 0d 1f 0e  0b dd f2 6c 69 67 68 74  |... .......light|
00004440  0d 1f 18 0a 59 25 3d 59  59 25 0d 1f 22 16 e7 59  |....Y%=YY%.."..Y|
00004450  25 3e 30 80 58 25 3e 30  21 70 78 25 3d 6c 69 25  |%>0.X%>0!px%=li%|
00004460  0d 1f 2c 1d e7 59 25 3e  30 80 58 25 3c 3d 30 21  |..,..Y%>0.X%<=0!|
00004470  70 78 25 3d 28 6c 69 25  2b 31 29 80 33 0d 1f 36  |px%=(li%+1).3..6|
00004480  1e e7 59 25 3c 3d 30 80  58 25 3c 3d 30 21 70 78  |..Y%<=0.X%<=0!px|
00004490  25 3d 28 6c 69 25 2b 32  29 80 33 0d 1f 40 1d e7  |%=(li%+2).3..@..|
000044a0  59 25 3c 3d 30 80 58 25  3e 30 21 70 78 25 3d 28  |Y%<=0.X%>0!px%=(|
000044b0  6c 69 25 2b 33 29 80 33  0d 1f 4a 05 e1 0d 1f 54  |li%+3).3..J....T|
000044c0  07 f4 20 15 0d 1f 5e 10  dd f2 64 72 61 77 73 63  |.. ...^...drawsc|
000044d0  72 65 65 6e 0d 1f 68 1a  50 25 3d 6d 61 70 70 6f  |reen..h.P%=mappo|
000044e0  69 6e 74 25 3a 41 41 25  3d a4 6d 61 70 31 0d 1f  |int%:AA%=.map1..|
000044f0  72 1b f2 63 61 6c 74 72  65 28 78 25 28 29 2c 79  |r..caltre(x%(),y|
00004500  25 28 29 2c 7a 25 28 29  29 0d 1f 7c 35 d6 73 6f  |%(),z%())..|5.so|
00004510  72 74 2c 62 73 25 2c 52  25 2c 42 59 25 2c 4b 25  |rt,bs%,R%,BY%,K%|
00004520  2c 78 31 25 2c 79 31 25  2c 68 25 2c 41 41 25 2c  |,x1%,y1%,h%,AA%,|
00004530  78 25 28 29 2c 7a 25 28  29 2c 79 25 28 29 0d 1f  |x%(),z%(),y%()..|
00004540  86 13 f2 77 69 6e 64 6f  77 73 3a f2 73 63 65 65  |...windows:.scee|
00004550  6e 0d 1f 90 05 e1 0d 1f  9a 07 f4 20 15 0d 1f a4  |n.......... ....|
00004560  11 dd f2 73 69 6e 65 28  58 25 2c 59 25 29 0d 1f  |...sine(X%,Y%)..|
00004570  ae 19 52 25 3d a4 64 69  73 74 61 6e 63 65 28 94  |..R%=.distance(.|
00004580  58 25 2c 94 59 25 29 0d  1f b8 25 67 72 65 65 6e  |X%,.Y%)...%green|
00004590  25 3d 28 52 25 3c 35 32  35 29 3a 4d 61 3d 2e 37  |%=(R%<525):Ma=.7|
000045a0  2d 28 67 72 65 65 6e 25  2a 2e 33 29 0d 1f c2 31  |-(green%*.3)...1|
000045b0  4f 4c 25 3d 28 bb 28 c3  7e 28 28 6d 61 70 21 28  |OL%=(.(.~((map!(|
000045c0  6d 61 70 70 6f 69 6e 74  25 2b 26 32 46 41 29 29  |mappoint%+&2FA))|
000045d0  80 26 46 46 46 46 29 29  29 3e 34 34 30 0d 1f cc  |.&FFFF)))>440...|
000045e0  2a 72 3d 31 32 30 39 36  2d 32 30 30 30 2a 67 72  |*r=12096-2000*gr|
000045f0  65 65 6e 25 2d 31 35 30  30 2a 28 4f 4c 25 80 ac  |een%-1500*(OL%..|
00004600  67 72 65 65 6e 25 29 0d  1f d6 0a 64 3d 72 2d 52  |green%)....d=r-R|
00004610  25 0d 1f e0 28 67 25 3d  2d 67 72 65 65 6e 25 3a  |%...(g%=-green%:|
00004620  4f 25 3d 2d 36 32 39 32  2a 67 72 65 65 6e 25 3a  |O%=-6292*green%:|
00004630  48 25 3d 32 35 30 2b 4f  25 0d 1f ea 1d 76 61 3d  |H%=250+O%....va=|
00004640  2d 58 25 2f 52 25 3a 76  62 3d 59 25 2f 52 25 3a  |-X%/R%:vb=Y%/R%:|
00004650  76 69 3d 2d 76 62 0d 1f  f4 05 e1 0d 1f fe 07 f4  |vi=-vb..........|
00004660  20 15 0d 20 08 15 dd a4  64 69 73 74 61 6e 63 65  | .. ....distance|
00004670  28 78 25 2c 79 25 29 0d  20 12 11 3d b6 28 78 25  |(x%,y%). ..=.(x%|
00004680  5e 32 2b 79 25 5e 32 29  0d 20 1c 07 f4 20 15 0d  |^2+y%^2). ... ..|
00004690  20 26 0e dd f2 67 65 74  73 74 61 72 74 0d 20 30  | &...getstart. 0|
000046a0  1e 50 25 3d 26 32 45 38  2b 6d 61 70 70 6f 69 6e  |.P%=&2E8+mappoin|
000046b0  74 25 3a 58 25 3d a4 6d  61 70 32 0d 20 3a 0d 59  |t%:X%=.map2. :.Y|
000046c0  59 25 3d a4 6d 61 70 32  0d 20 44 1e 48 6f 6c 65  |Y%=.map2. D.Hole|
000046d0  25 3d 6d 61 70 3f 28 6d  61 70 70 6f 69 6e 74 25  |%=map?(mappoint%|
000046e0  2b 26 32 46 38 29 0d 20  4e 14 73 74 78 25 3d 58  |+&2F8). N.stx%=X|
000046f0  25 3a 73 74 79 25 3d 59  59 25 0d 20 58 13 f4 59  |%:sty%=YY%. X..Y|
00004700  59 25 3d 31 35 2a 32 31  3a 58 25 3d 30 0d 20 62  |Y%=15*21:X%=0. b|
00004710  15 e3 54 25 3d 31 b8 6e  6f 6f 66 70 6c 61 79 65  |..T%=1.noofplaye|
00004720  72 73 0d 20 6c 14 63 75  72 72 65 6e 74 78 25 28  |rs. l.currentx%(|
00004730  54 25 29 3d 58 25 0d 20  76 15 63 75 72 72 65 6e  |T%)=X%. v.curren|
00004740  74 79 25 28 54 25 29 3d  59 59 25 0d 20 80 23 63  |ty%(T%)=YY%. .#c|
00004750  75 72 72 65 6e 74 52 25  28 54 25 29 3d a4 64 69  |urrentR%(T%)=.di|
00004760  73 74 61 6e 63 65 28 58  25 2c 59 59 25 29 0d 20  |stance(X%,YY%). |
00004770  8a 13 63 75 72 72 65 6e  74 53 25 28 54 25 29 3d  |..currentS%(T%)=|
00004780  30 0d 20 94 05 ed 0d 20  9e 05 e1 0d 20 a8 07 f4  |0. .... .... ...|
00004790  20 15 0d 20 b2 0c dd f2  63 68 68 6f 6c 65 0d 20  | .. ....chhole. |
000047a0  bc 09 42 25 2d 3d 31 0d  20 c6 21 e7 28 42 25 3e  |..B%-=1. .!.(B%>|
000047b0  30 80 28 79 61 3e 34 84  ac 67 72 65 65 6e 25 29  |0.(ya>4..green%)|
000047c0  29 84 68 25 3e 33 30 e1  0d 20 d0 34 e7 68 25 3e  |).h%>30.. .4.h%>|
000047d0  31 84 94 28 4f 42 59 25  2d 42 59 25 29 3e 35 84  |1..(OBY%-BY%)>5.|
000047e0  28 ac 67 72 65 65 6e 25  80 b3 28 35 29 3c 3e 32  |(.green%..(5)<>2|
000047f0  29 f2 72 69 63 3a 42 25  3d 34 3a e1 0d 20 da 0d  |).ric:B%=4:.. ..|
00004800  dd f2 63 68 68 6f 6c 65  32 0d 20 e4 14 44 25 3d  |..chhole2. ..D%=|
00004810  b9 3a 2a 53 43 48 4f 4f  53 45 20 73 68 0d 20 ee  |.:*SCHOOSE sh. .|
00004820  12 f0 26 45 44 2c 6f 73  78 25 2c 6f 73 79 25 0d  |..&ED,osx%,osy%.|
00004830  20 f8 0f 2a 53 43 48 4f  4f 53 45 20 67 72 0d 21  | ..*SCHOOSE gr.!|
00004840  02 10 f0 26 45 44 2c 6f  78 25 2c 6f 79 25 0d 21  |...&ED,ox%,oy%.!|
00004850  0c 19 2a 43 48 41 4e 4e  45 4c 56 4f 49 43 45 20  |..*CHANNELVOICE |
00004860  31 20 48 4f 4c 45 44 0d  21 16 10 d4 31 2c 2d 31  |1 HOLED.!...1,-1|
00004870  35 2c 32 30 2c 32 30 0d  21 20 0d f2 64 65 6c 28  |5,20,20.! ..del(|
00004880  31 35 30 29 0d 21 2a 0d  f2 68 6f 6c 65 64 6f 75  |150).!*..holedou|
00004890  74 0d 21 34 27 79 61 3d  30 3a 75 3d 30 3a 75 64  |t.!4'ya=0:u=0:ud|
000048a0  3d 30 3a 70 25 3d 30 3a  68 25 3d 30 3a 78 31 25  |=0:p%=0:h%=0:x1%|
000048b0  3d 30 3a 79 31 25 3d 30  0d 21 3e 05 e1 0d 21 48  |=0:y1%=0.!>...!H|
000048c0  07 f4 20 15 0d 21 52 0e  dd f2 68 6f 6c 65 64 6f  |.. ..!R...holedo|
000048d0  75 74 0d 21 5c 13 ea 41  24 2c 42 24 2c 43 24 2c  |ut.!\..A$,B$,C$,|
000048e0  46 25 2c 53 25 0d 21 66  23 53 25 3d 73 74 72 6f  |F%,S%.!f#S%=stro|
000048f0  6b 65 25 2d 6d 61 70 3f  28 6d 61 70 70 6f 69 6e  |ke%-map?(mappoin|
00004900  74 25 2b 26 32 46 39 29  0d 21 70 09 c8 8e 53 25  |t%+&2F9).!p...S%|
00004910  ca 0d 21 7a 1e c9 31 3a  41 24 3d 22 49 54 27 53  |..!z..1:A$="IT'S|
00004920  20 41 20 42 4f 47 49 45  22 3a 42 24 3d 22 22 0d  | A BOGIE":B$="".|
00004930  21 84 2c c9 30 3a 41 24  3d 22 48 4f 4c 45 44 20  |!.,.0:A$="HOLED |
00004940  4f 55 54 20 54 4f 20 50  41 52 22 3a 42 24 3d 22  |OUT TO PAR":B$="|
00004950  57 45 4c 4c 20 44 4f 4e  45 21 22 0d 21 8e 32 c9  |WELL DONE!".!.2.|
00004960  2d 31 3a 41 24 3d 22 4e  49 43 45 20 4f 4e 45 20  |-1:A$="NICE ONE |
00004970  22 2b 6e 61 6d 65 24 28  31 29 3a 42 24 3d 22 49  |"+name$(1):B$="I|
00004980  54 27 53 20 41 20 42 49  52 44 49 45 22 0d 21 98  |T'S A BIRDIE".!.|
00004990  35 c9 2d 32 3a 41 24 3d  22 53 55 50 45 52 42 20  |5.-2:A$="SUPERB |
000049a0  50 4c 41 59 20 22 2b 6e  61 6d 65 24 28 31 29 3a  |PLAY "+name$(1):|
000049b0  42 24 3d 22 49 54 27 53  20 41 4e 20 45 41 47 4c  |B$="IT'S AN EAGL|
000049c0  45 22 0d 21 a2 45 c9 2d  33 3a 41 24 3d 22 43 4f  |E".!.E.-3:A$="CO|
000049d0  4e 47 52 41 54 55 4c 41  54 49 4f 4e 53 20 22 2b  |NGRATULATIONS "+|
000049e0  6e 61 6d 65 24 28 31 29  3a 42 24 3d 22 59 4f 55  |name$(1):B$="YOU|
000049f0  27 56 45 20 46 4c 4f 57  4e 20 41 4e 20 41 4c 42  |'VE FLOWN AN ALB|
00004a00  41 54 52 4f 53 53 22 0d  21 ac 2b 7f 20 41 24 3d  |ATROSS".!.+. A$=|
00004a10  22 48 4f 4c 45 44 20 4f  55 54 20 22 2b c3 53 25  |"HOLED OUT "+.S%|
00004a20  2b 22 20 4f 56 45 52 20  50 41 52 22 3a 42 24 3d  |+" OVER PAR":B$=|
00004a30  22 22 0d 21 b6 05 cb 0d  21 c0 63 43 24 3d 22 22  |"".!....!.cC$=""|
00004a40  3a 46 25 3d 33 3a 53 25  3d 35 3a e7 73 74 72 6f  |:F%=3:S%=5:.stro|
00004a50  6b 65 25 3d 31 41 24 3d  22 57 4f 57 21 20 49 54  |ke%=1A$="WOW! IT|
00004a60  27 53 20 41 20 48 4f 4c  45 20 49 4e 20 4f 4e 45  |'S A HOLE IN ONE|
00004a70  22 3a 42 24 3d 22 4b 4e  4f 43 4b 45 44 20 49 4e  |":B$="KNOCKED IN|
00004a80  20 42 59 22 3a 43 24 3d  6e 61 6d 65 24 28 31 29  | BY":C$=name$(1)|
00004a90  3a 46 25 3d 36 3a 53 25  3d 33 0d 21 ca 26 e7 20  |:F%=6:S%=3.!.&. |
00004aa0  a9 41 24 3c a9 42 24 f5  3a 41 24 3d 22 20 22 2b  |.A$<.B$.:A$=" "+|
00004ab0  41 24 2b 22 20 22 3a fd  a9 41 24 3e 3d a9 42 24  |A$+" ":..A$>=.B$|
00004ac0  0d 21 d4 1c f2 6d 65 73  77 69 6e 64 28 41 24 2c  |.!...meswind(A$,|
00004ad0  42 24 2c 43 24 2c 46 25  2c 53 25 29 0d 21 de 0c  |B$,C$,F%,S%).!..|
00004ae0  f2 64 65 6c 28 35 30 29  0d 21 e8 05 e1 0d 21 f2  |.del(50).!....!.|
00004af0  07 f4 20 15 0d 21 fc 09  dd f2 72 69 63 0d 22 06  |.. ..!....ric.".|
00004b00  0f d4 34 2c 2d 31 35 2c  32 30 2c 31 0d 22 10 0a  |..4,-15,20,1."..|
00004b10  dd f2 32 72 69 63 0d 22  1a 1d 75 3d 75 2a 34 3a  |..2ric."..u=u*4:|
00004b20  e7 75 3d 30 75 3d 28 33  2b b3 28 35 29 29 2a b4  |.u=0u=(3+.(5))*.|
00004b30  78 31 25 0d 22 24 15 79  61 3d 79 61 20 81 32 3a  |x1%."$.ya=ya .2:|
00004b40  70 25 3d 79 61 20 81 33  0d 22 2e 1b e7 ac 67 72  |p%=ya .3."....gr|
00004b50  65 65 6e 25 80 79 61 3d  30 20 68 25 3d 30 3a 70  |een%.ya=0 h%=0:p|
00004b60  25 3d 30 0d 22 38 05 e1  0d 22 42 07 f4 20 15 0d  |%=0."8..."B.. ..|
00004b70  22 4c 0c dd f2 66 6c 69  67 68 74 0d 22 56 0c 4f  |"L...flight."V.O|
00004b80  42 59 25 3d 42 59 25 0d  22 60 5b f5 f2 66 6c 79  |BY%=BY%."`[..fly|
00004b90  3a ef 32 33 2c 32 37 3b  6d 25 28 38 2c 67 25 29  |:.23,27;m%(8,g%)|
00004ba0  7c 3a f0 26 45 44 2c 6d  78 25 28 67 25 2c 48 61  ||:.&ED,mx%(g%,Ha|
00004bb0  6e 64 25 29 2c 6d 79 25  28 67 25 29 3a e7 62 61  |nd%),my%(g%):.ba|
00004bc0  25 3a ef 32 33 2c 32 37  3b 32 30 7c 3a f0 26 45  |%:.23,27;20|:.&E|
00004bd0  44 2c 62 61 67 25 28 48  61 6e 64 25 29 2c 2d 37  |D,bag%(Hand%),-7|
00004be0  35 34 0d 22 6a 41 e7 67  72 65 65 6e 25 80 68 25  |54."jA.green%.h%|
00004bf0  3d 30 c8 99 36 2c 31 31  32 2c 32 3a 47 25 3d b0  |=0..6,112,2:G%=.|
00004c00  73 78 25 2b 34 2c 73 79  25 2b 34 29 3a c8 99 36  |sx%+4,sy%+4):..6|
00004c10  2c 31 31 32 2c 31 3a e7  47 25 3d 30 f2 63 68 68  |,112,1:.G%=0.chh|
00004c20  6f 6c 65 0d 22 74 30 4f  42 59 25 3d 42 59 25 3a  |ole."t0OBY%=BY%:|
00004c30  e7 ac 67 72 65 65 6e 25  80 94 28 78 31 25 2b 34  |..green%..(x1%+4|
00004c40  29 3c 35 80 94 28 79 31  25 29 3c 35 f2 63 68 68  |)<5..(y1%)<5.chh|
00004c50  6f 6c 65 0d 22 7e 17 e7  94 73 6c 3e 79 61 20 73  |ole."~...sl>ya s|
00004c60  6c 3d 79 61 2f 32 2a b4  73 6c 0d 22 88 10 77 63  |l=ya/2*.sl."..wc|
00004c70  2d 3d 31 3a e7 77 63 3d  30 8c 0d 22 92 17 77 63  |-=1:.wc=0.."..wc|
00004c80  3d 77 63 32 3a e7 77 63  32 3e 31 77 63 32 2d 3d  |=wc2:.wc2>1wc2-=|
00004c90  31 0d 22 9c 11 57 58 2b  3d 77 78 3a 57 59 2b 3d  |1."..WX+=wx:WY+=|
00004ca0  77 79 0d 22 a6 05 cd 0d  22 b0 15 fd 79 61 3c 3d  |wy."...."...ya<=|
00004cb0  30 80 68 25 3d 30 80 94  70 25 3c 32 0d 22 ba 12  |0.h%=0..p%<2."..|
00004cc0  59 59 25 3d 79 31 25 3a  58 25 3d 78 31 25 0d 22  |YY%=y1%:X%=x1%."|
00004cd0  c4 10 e7 44 25 84 ac 67  72 65 65 6e 25 e1 0d 22  |...D%..green%.."|
00004ce0  ce 0c 2a 46 58 31 31 32  2c 32 0d 22 d8 10 47 25  |..*FX112,2."..G%|
00004cf0  3d b0 73 78 25 2c 73 79  25 29 0d 22 e2 13 47 31  |=.sx%,sy%)."..G1|
00004d00  25 3d b0 73 78 25 2c 73  79 25 2b 38 29 0d 22 ec  |%=.sx%,sy%+8).".|
00004d10  0c 2a 46 58 31 31 32 2c  31 0d 22 f6 17 e7 28 47  |.*FX112,1."...(G|
00004d20  25 80 47 31 25 29 3d 30  f2 63 68 68 6f 6c 65 32  |%.G1%)=0.chhole2|
00004d30  0d 23 00 05 e1 0d 23 0a  07 f4 20 15 0d 23 14 09  |.#....#... ..#..|
00004d40  dd f2 66 6c 79 0d 23 1e  11 e7 68 25 3c 34 80 79  |..fly.#...h%<4.y|
00004d50  61 3c 31 36 c8 96 0d 23  28 2d c8 96 3a 42 58 2b  |a<16...#(-..:BX+|
00004d60  3d 75 2a 79 64 2b 53 6c  3a 53 6c 2b 3d 73 6c 3a  |=u*yd+Sl:Sl+=sl:|
00004d70  75 2d 3d 75 64 3a e7 94  75 3e 79 61 20 75 3d 75  |u-=ud:..u>ya u=u|
00004d80  3e 3e 31 0d 23 32 21 42  59 25 2b 3d 79 61 2a 79  |>>1.#2!BY%+=ya*y|
00004d90  64 3a e7 79 61 3e 30 20  79 61 2d 3d 2e 35 3a 8b  |d:.ya>0 ya-=.5:.|
00004da0  79 61 3d 30 0d 23 3c 46  78 31 25 3d 76 61 2a 42  |ya=0.#<Fx1%=va*B|
00004db0  59 25 2b 76 62 2a 42 58  2b 57 58 3a 79 31 25 3d  |Y%+vb*BX+WX:y1%=|
00004dc0  76 69 2a 42 59 25 2b 76  61 2a 42 58 2b 57 59 3a  |vi*BY%+va*BX+WY:|
00004dd0  68 25 2b 3d 70 25 2a 4d  61 3a 70 25 2d 3d 31 3a  |h%+=p%*Ma:p%-=1:|
00004de0  e7 70 25 3c 31 30 46 25  3d b9 0d 23 46 12 e7 68  |.p%<10F%=..#F..h|
00004df0  25 3c 3d 30 20 f2 62 6f  75 6e 63 65 0d 23 50 36  |%<=0 .bounce.#P6|
00004e00  f2 76 74 28 79 31 25 2c  78 31 25 2c 48 25 29 3a  |.vt(y1%,x1%,H%):|
00004e10  73 78 25 3d 78 73 25 3a  73 79 25 3d 79 73 25 3a  |sx%=xs%:sy%=ys%:|
00004e20  f2 76 74 28 79 31 25 2c  78 31 25 2c 48 25 2d 68  |.vt(y1%,x1%,H%-h|
00004e30  25 29 0d 23 5a 2e e7 4b  25 3d b9 20 75 64 3d 30  |%).#Z..K%=. ud=0|
00004e40  3a 79 61 3d 30 3a 70 25  3d 30 3a 75 3d 30 3a 4b  |:ya=0:p%=0:u=0:K|
00004e50  25 3d 31 3a d4 33 2c 2d  31 30 2c 32 30 2c 34 30  |%=1:.3,-10,20,40|
00004e60  0d 23 64 37 e7 57 25 d6  20 70 6c 6f 74 62 61 6c  |.#d7.W%. plotbal|
00004e70  6c 2c 62 73 25 2c 6f 79  25 2c 6f 78 25 2c 6f 73  |l,bs%,oy%,ox%,os|
00004e80  79 25 2c 6f 73 78 25 2c  79 73 25 2c 78 73 25 2c  |y%,osx%,ys%,xs%,|
00004e90  73 79 25 2c 73 78 25 0d  23 6e 05 e1 0d 23 78 07  |sy%,sx%.#n...#x.|
00004ea0  f4 20 15 0d 23 82 0c dd  f2 77 61 6c 74 65 72 0d  |. ..#....walter.|
00004eb0  23 8c 1a 2a 43 48 41 4e  4e 45 4c 56 4f 49 43 45  |#..*CHANNELVOICE|
00004ec0  20 31 20 53 48 4f 4f 53  48 0d 23 96 0a ea 54 25  | 1 SHOOSH.#...T%|
00004ed0  2c 49 25 0d 23 a0 2c 79  64 3d 31 2b 28 2e 37 35  |,I%.#.,yd=1+(.75|
00004ee0  2a 67 72 65 65 6e 25 29  3a e3 54 25 3d 31 b8 35  |*green%):.T%=1.5|
00004ef0  3a 2a 53 43 48 4f 4f 53  45 20 42 4c 41 43 4b 0d  |:*SCHOOSE BLACK.|
00004f00  23 aa 5e c8 96 3a f0 26  45 44 2c 6d 78 25 28 67  |#.^..:.&ED,mx%(g|
00004f10  25 2c 48 61 6e 64 25 29  2c 6d 79 25 28 67 25 29  |%,Hand%),my%(g%)|
00004f20  3a ef 32 33 2c 32 37 3b  6d 25 28 54 25 2c 67 25  |:.23,27;m%(T%,g%|
00004f30  29 7c 3a f0 26 45 44 2c  6d 78 25 28 67 25 2c 48  |)|:.&ED,mx%(g%,H|
00004f40  61 6e 64 25 29 2c 6d 79  25 28 67 25 29 3a e3 49  |and%),my%(g%):.I|
00004f50  25 3d 30 b8 54 25 3a c8  96 3a ed 3a ed 0d 23 b4  |%=0.T%:..:.:..#.|
00004f60  1c e3 54 25 3d 35 b8 31  88 b9 3a 2a 53 43 48 4f  |..T%=5.1..:*SCHO|
00004f70  4f 53 45 20 42 4c 41 43  4b 0d 23 be 1d e7 54 25  |OSE BLACK.#...T%|
00004f80  3d 33 80 ac 67 72 65 65  6e 25 d4 31 2c 53 4f 25  |=3..green%.1,SO%|
00004f90  2c 34 30 2c 34 30 0d 23  c8 5b e3 49 25 3d 31 b8  |,40,40.#.[.I%=1.|
00004fa0  54 25 3a c8 96 3a ed 3a  f0 26 45 44 2c 6d 78 25  |T%:..:.:.&ED,mx%|
00004fb0  28 67 25 2c 48 61 6e 64  25 29 2c 6d 79 25 28 67  |(g%,Hand%),my%(g|
00004fc0  25 29 3a ef 32 33 2c 32  37 3b 6d 25 28 54 25 2c  |%):.23,27;m%(T%,|
00004fd0  67 25 29 7c 3a f0 26 45  44 2c 6d 78 25 28 67 25  |g%)|:.&ED,mx%(g%|
00004fe0  2c 48 61 6e 64 25 29 2c  6d 79 25 28 67 25 29 3a  |,Hand%),my%(g%):|
00004ff0  ed 0d 23 d2 0f d4 32 2c  53 4f 25 2c 31 2c 31 30  |..#...2,SO%,1,10|
00005000  0d 23 dc 19 e3 54 25 3d  36 b8 38 3a e7 54 25 3e  |.#...T%=6.8:.T%>|
00005010  36 f2 66 6c 79 3a 8b c8  96 0d 23 e6 12 2a 53 43  |6.fly:....#..*SC|
00005020  48 4f 4f 53 45 20 70 6c  61 69 6e 0d 23 f0 2d e7  |HOOSE plain.#.-.|
00005030  ac 67 72 65 65 6e 25 3a  c8 96 3a f0 26 45 44 2c  |.green%:..:.&ED,|
00005040  6d 78 25 28 67 25 2c 48  61 6e 64 25 29 2c 6d 79  |mx%(g%,Hand%),my|
00005050  25 28 67 25 29 8b c8 96  0d 23 fa 30 ef 32 33 2c  |%(g%)....#.0.23,|
00005060  32 37 3b 6d 25 28 54 25  2c 67 25 29 7c 3a f0 26  |27;m%(T%,g%)|:.&|
00005070  45 44 2c 6d 78 25 28 67  25 2c 48 61 6e 64 25 29  |ED,mx%(g%,Hand%)|
00005080  2c 6d 79 25 28 67 25 29  0d 24 04 54 e7 6c 69 65  |,my%(g%).$.T.lie|
00005090  25 3d 31 3a e6 31 3a e3  49 25 3d 30 b8 32 30 3a  |%=1:.1:.I%=0.20:|
000050a0  c8 92 73 61 25 28 30 2c  54 25 2d 36 2c 49 25 29  |..sa%(0,T%-6,I%)|
000050b0  2b 28 54 25 2b 31 30 29  2a 48 61 6e 64 25 2c 73  |+(T%+10)*Hand%,s|
000050c0  61 25 28 31 2c 54 25 2d  36 2c 49 25 29 2b 6d 79  |a%(1,T%-6,I%)+my|
000050d0  25 28 67 25 29 3a ed 3a  e6 38 2c 30 0d 24 0e 05  |%(g%):.:.8,0.$..|
000050e0  ed 0d 24 18 0d f2 66 6c  79 3a f2 66 6c 79 0d 24  |..$...fly:.fly.$|
000050f0  22 12 2a 53 43 48 4f 4f  53 45 20 70 6c 61 69 6e  |".*SCHOOSE plain|
00005100  0d 24 2c 4d c8 96 3a f0  26 45 44 2c 6d 78 25 28  |.$,M..:.&ED,mx%(|
00005110  67 25 2c 48 61 6e 64 25  29 2c 6d 79 25 28 67 25  |g%,Hand%),my%(g%|
00005120  29 3a ef 32 33 2c 32 37  3b 6d 25 28 38 2c 67 25  |):.23,27;m%(8,g%|
00005130  29 7c 3a f0 26 45 44 2c  6d 78 25 28 67 25 2c 48  |)|:.&ED,mx%(g%,H|
00005140  61 6e 64 25 29 2c 6d 79  25 28 67 25 29 0d 24 36  |and%),my%(g%).$6|
00005150  05 e1 0d 24 40 07 f4 20  15 0d 24 4a 0d dd f2 64  |...$@.. ..$J...d|
00005160  65 6c 28 54 25 29 0d 24  54 0e d1 3d 30 3a f5 fd  |el(T%).$T..=0:..|
00005170  91 3e 54 25 0d 24 5e 05  e1 0d 24 68 07 f4 20 15  |.>T%.$^...$h.. .|
00005180  0d 24 72 0c dd f2 62 75  6e 6b 65 72 0d 24 7c 16  |.$r...bunker.$|.|
00005190  e6 33 32 2c 30 3a 48 25  2b 3d 32 3a 50 25 3d 6f  |.32,0:H%+=2:P%=o|
000051a0  50 25 0d 24 86 0d f2 64  72 61 77 62 75 6e 6b 0d  |P%.$...drawbunk.|
000051b0  24 90 13 e6 32 3a 48 25  2b 3d 32 3a 50 25 3d 6f  |$...2:H%+=2:P%=o|
000051c0  50 25 0d 24 9a 0d f2 64  72 61 77 62 75 6e 6b 0d  |P%.$...drawbunk.|
000051d0  24 a4 09 48 25 2d 3d 34  0d 24 ae 05 e1 0d 24 b8  |$..H%-=4.$....$.|
000051e0  07 f4 20 15 0d 24 c2 0e  dd f2 64 72 61 77 62 75  |.. ..$....drawbu|
000051f0  6e 6b 0d 24 cc 3c 6e 70  25 3d a4 6d 61 70 31 3a  |nk.$.<np%=.map1:|
00005200  f2 6d 61 70 28 43 58 25  2c 43 59 25 2c 48 25 2c  |.map(CX%,CY%,H%,|
00005210  34 2c 72 29 3a f2 6d 61  70 33 28 53 58 25 2c 53  |4,r):.map3(SX%,S|
00005220  59 25 2c 48 25 2c 34 2c  72 2c 43 58 25 29 0d 24  |Y%,H%,4,r,CX%).$|
00005230  d6 35 e3 49 25 3d 31 b8  6e 70 25 2d 31 3a f2 6d  |.5.I%=1.np%-1:.m|
00005240  61 70 33 28 58 49 25 2c  59 49 25 2c 48 25 2c 38  |ap3(XI%,YI%,H%,8|
00005250  35 2c 72 2c 43 58 25 29  3a ec 43 58 25 2c 43 59  |5,r,CX%):.CX%,CY|
00005260  25 3a ed 0d 24 e0 0f f0  38 35 2c 53 58 25 2c 53  |%:..$...85,SX%,S|
00005270  59 25 0d 24 ea 05 e1 0d  24 f4 07 f4 20 15 0d 24  |Y%.$....$... ..$|
00005280  fe 21 dd f2 6d 61 70 33  28 f8 20 78 25 2c f8 20  |.!..map3(. x%,. |
00005290  79 25 2c 7a 25 2c 70 25  2c 72 2c 43 58 25 29 0d  |y%,z%,p%,r,CX%).|
000052a0  25 08 08 ea 70 4f 25 0d  25 12 56 79 25 3d a4 6d  |%...pO%.%.Vy%=.m|
000052b0  61 70 32 3a 78 25 3d a4  6d 61 70 32 3a 78 65 3d  |ap2:x%=.map2:xe=|
000052c0  76 61 2a 78 25 2b 76 62  2a 79 25 3a 7a 65 3d 28  |va*x%+vb*y%:ze=(|
000052d0  76 69 2a 78 25 2b 76 61  2a 79 25 2b 72 29 2a 4d  |vi*x%+va*y%+r)*M|
000052e0  61 3a 78 25 3d 64 2a 78  65 20 81 7a 65 3a 79 25  |a:x%=d*xe .ze:y%|
000052f0  3d 2d 28 64 2a 7a 25 81  7a 65 29 2a 32 0d 25 1c  |=-(d*z%.ze)*2.%.|
00005300  29 e7 ac 67 72 65 65 6e  25 e7 79 25 3e 2d 33 32  |)..green%.y%>-32|
00005310  84 79 25 3c 26 46 46 46  46 38 30 30 30 20 79 25  |.y%<&FFFF8000 y%|
00005320  3d 2d 36 30 30 30 0d 25  26 15 78 25 3d 78 25 2d  |=-6000.%&.x%=x%-|
00005330  b4 28 78 25 2d 43 58 25  29 2a 34 0d 25 30 0f 70  |.(x%-CX%)*4.%0.p|
00005340  4f 25 3d b0 78 25 2c 79  25 29 0d 25 3a 0b c8 95  |O%=.x%,y%).%:...|
00005350  70 4f 25 3e 33 0d 25 44  15 79 25 2b 3d 34 3a 70  |pO%>3.%D.y%+=4:p|
00005360  4f 25 3d b0 78 25 2c 79  25 29 0d 25 4e 05 ce 0d  |O%=.x%,y%).%N...|
00005370  25 58 0d f0 70 25 2c 78  25 2c 79 25 0d 25 62 05  |%X..p%,x%,y%.%b.|
00005380  e1 0d 25 6c 07 f4 20 15  0d 25 76 0b dd f2 73 63  |..%l.. ..%v...sc|
00005390  65 65 6e 0d 25 80 0d 4e  6f 25 3d a4 6d 61 70 31  |een.%..No%=.map1|
000053a0  0d 25 8a 0c 72 6f 75 67  68 3d 50 25 0d 25 94 0c  |.%..rough=P%.%..|
000053b0  e7 67 72 65 65 6e 25 8c  0d 25 9e 0d 43 6f 25 3d  |.green%..%..Co%=|
000053c0  a4 6d 61 70 31 0d 25 a8  0f f5 3a 6e 70 25 3d a4  |.map1.%...:np%=.|
000053d0  6d 61 70 31 0d 25 b2 22  50 25 3d 50 25 2b 6e 70  |map1.%."P%=P%+np|
000053e0  25 2a 34 2b 34 3a 43 6f  25 3d a4 6d 61 70 31 3a  |%*4+4:Co%=.map1:|
000053f0  4e 6f 25 2d 3d 31 0d 25  bc 16 fd 43 6f 25 3d 35  |No%-=1.%...Co%=5|
00005400  84 43 6f 25 3d 31 3a 50  25 2d 3d 31 0d 25 c6 05  |.Co%=1:P%-=1.%..|
00005410  cd 0d 25 d0 2d 73 50 25  3d 50 25 3a e3 54 25 3d  |..%.-sP%=P%:.T%=|
00005420  31 b8 4e 6f 25 3a 43 6f  25 3d a4 6d 61 70 31 3a  |1.No%:Co%=.map1:|
00005430  e7 43 6f 25 3d 36 77 61  74 65 72 3d 50 25 0d 25  |.Co%=6water=P%.%|
00005440  da 12 e7 67 72 65 65 6e  25 80 43 6f 25 3d 34 8c  |...green%.Co%=4.|
00005450  0d 25 e4 1b 6e 70 25 3d  a4 6d 61 70 31 3a 50 25  |.%..np%=.map1:P%|
00005460  3d 50 25 2b 6e 70 25 2a  34 2b 34 0d 25 ee 2a cc  |=P%+np%*4+4.%.*.|
00005470  3a 6f 50 25 3d 50 25 3a  43 6f 25 3d 43 6f 25 2d  |:oP%=P%:Co%=Co%-|
00005480  28 28 43 6f 25 3d 31 29  80 67 72 65 65 6e 25 29  |((Co%=1).green%)|
00005490  3a e6 43 6f 25 0d 25 f8  19 f2 64 72 61 77 69 74  |:.Co%.%...drawit|
000054a0  3a e7 43 6f 25 3d 31 f2  62 75 6e 6b 65 72 0d 26  |:.Co%=1.bunker.&|
000054b0  02 10 cd 3a ed 3a e7 67  72 65 65 6e 25 8c 0d 26  |...:.:.green%..&|
000054c0  0c 08 e6 38 2c 30 0d 26  16 11 2a 53 43 48 4f 4f  |...8,0.&..*SCHOO|
000054d0  53 45 20 48 4f 4c 45 0d  26 20 1a f0 26 45 44 2c  |SE HOLE.& ..&ED,|
000054e0  2d 36 2c 2d 28 64 2a 48  25 81 72 29 2a 32 2d 31  |-6,-(d*H%.r)*2-1|
000054f0  32 0d 26 2a 05 cd 0d 26  34 13 f2 74 72 65 65 73  |2.&*...&4..trees|
00005500  3a 2a 46 58 31 31 32 2c  32 0d 26 3e 15 e7 67 72  |:*FX112,2.&>..gr|
00005510  65 65 6e 25 fb 31 33 35  3a 8b fb 31 33 39 0d 26  |een%.135:..139.&|
00005520  48 25 db 3a 50 25 3d 73  50 25 3a e3 54 25 3d 31  |H%.:P%=sP%:.T%=1|
00005530  b8 4e 6f 25 3a 43 6f 25  3d a4 6d 61 70 31 3a e6  |.No%:Co%=.map1:.|
00005540  43 6f 25 0d 26 52 12 e7  67 72 65 65 6e 25 80 43  |Co%.&R..green%.C|
00005550  6f 25 3d 34 8c 0d 26 5c  1b 6e 70 25 3d a4 6d 61  |o%=4..&\.np%=.ma|
00005560  70 31 3a 50 25 3d 50 25  2b 6e 70 25 2a 34 2b 34  |p1:P%=P%+np%*4+4|
00005570  0d 26 66 13 cc 6f 50 25  3d 50 25 3a f2 64 72 61  |.&f..oP%=P%:.dra|
00005580  77 69 74 0d 26 70 05 cd  0d 26 7a 05 ed 0d 26 84  |wit.&p...&z...&.|
00005590  0c e7 67 72 65 65 6e 25  8c 0d 26 8e 08 e6 38 2c  |..green%..&...8,|
000055a0  30 0d 26 98 16 2a 53 43  48 4f 4f 53 45 20 42 4c  |0.&..*SCHOOSE BL|
000055b0  41 43 4b 48 4f 4c 45 0d  26 a2 1a f0 26 45 44 2c  |ACKHOLE.&...&ED,|
000055c0  2d 36 2c 2d 28 64 2a 48  25 81 72 29 2a 32 2d 31  |-6,-(d*H%.r)*2-1|
000055d0  32 0d 26 ac 05 cd 0d 26  b6 0c 2a 46 58 31 31 32  |2.&....&..*FX112|
000055e0  2c 31 0d 26 c0 0f c8 8e  6a 75 6d 70 25 28 31 29  |,1.&....jump%(1)|
000055f0  ca 0d 26 ca 11 c9 31 3a  fb 38 2c 32 30 38 2c 30  |..&...1:.8,208,0|
00005600  2c 30 0d 26 d4 14 c9 32  3a fb 38 2c 31 34 34 2c  |,0.&...2:.8,144,|
00005610  31 32 38 2c 38 30 0d 26  de 15 c9 33 3a fb 38 2c  |128,80.&...3:.8,|
00005620  31 31 32 2c 31 31 32 2c  31 31 32 0d 26 e8 13 c9  |112,112,112.&...|
00005630  34 3a fb 38 2c 32 34 30  2c 31 31 32 2c 30 0d 26  |4:.8,240,112,0.&|
00005640  f2 12 c9 35 3a fb 38 2c  39 36 2c 39 36 2c 34 38  |...5:.8,96,96,48|
00005650  0d 26 fc 14 c9 36 3a fb  38 2c 32 30 38 2c 38 30  |.&...6:.8,208,80|
00005660  2c 31 34 34 0d 27 06 05  cb 0d 27 10 05 e1 0d 27  |,144.'....'....'|
00005670  1a 07 f4 20 15 0d 27 24  0e dd f2 67 74 6f 73 28  |... ..'$...gtos(|
00005680  59 25 29 0d 27 2e 2c ef  32 36 3a ec 30 2c 59 25  |Y%).'.,.26:.0,Y%|
00005690  3a ec 31 32 37 39 2c 59  25 2b 33 31 39 3a 2a 53  |:.1279,Y%+319:*S|
000056a0  47 45 54 20 74 6f 70 6f  66 73 63 72 65 65 6e 0d  |GET topofscreen.|
000056b0  27 38 05 e1 0d 27 42 07  f4 20 15 0d 27 4c 0d dd  |'8...'B.. ..'L..|
000056c0  f2 67 65 74 69 6e 66 6f  0d 27 56 15 2a 43 48 41  |.getinfo.'V.*CHA|
000056d0  4e 4e 45 4c 56 4f 49 43  45 20 31 20 31 0d 27 60  |NNELVOICE 1 1.'`|
000056e0  15 ea 79 61 32 2c 42 58  25 2c 42 59 25 2c 79 73  |..ya2,BX%,BY%,ys|
000056f0  74 25 0d 27 6a 0e f2 67  74 6f 73 28 37 30 34 29  |t%.'j..gtos(704)|
00005700  0d 27 74 0a c8 91 38 30  2c 30 0d 27 7e 18 ef 32  |.'t...80,0.'~..2|
00005710  34 2c 30 3b 37 30 34 3b  31 31 33 31 3b 31 30 32  |4,0;704;1131;102|
00005720  33 3b 0d 27 88 0f e6 31  33 39 3a fb 31 33 39 3a  |3;.'...139:.139:|
00005730  da 0d 27 92 16 e6 38 3a  c8 93 30 2c 37 30 34 2c  |..'...8:..0,704,|
00005740  34 31 32 2c 33 31 39 0d  27 9c 15 c8 93 34 31 32  |412,319.'....412|
00005750  2c 37 30 34 2c 32 32 38  2c 33 31 39 0d 27 a6 15  |,704,228,319.'..|
00005760  c8 93 36 34 30 2c 37 30  34 2c 34 39 31 2c 33 31  |..640,704,491,31|
00005770  39 0d 27 b0 16 e6 33 3a  c8 93 34 2c 37 30 38 2c  |9.'...3:..4,708,|
00005780  34 30 34 2c 33 31 31 0d  27 ba 15 c8 93 34 31 36  |404,311.'....416|
00005790  2c 37 30 38 2c 32 32 30  2c 33 31 31 0d 27 c4 15  |,708,220,311.'..|
000057a0  c8 93 36 34 34 2c 37 30  38 2c 34 38 33 2c 33 31  |..644,708,483,31|
000057b0  31 0d 27 ce 16 e6 34 3a  c8 93 38 2c 37 31 32 2c  |1.'...4:..8,712,|
000057c0  33 39 36 2c 33 30 33 0d  27 d8 15 c8 93 34 32 30  |396,303.'....420|
000057d0  2c 37 31 32 2c 32 31 32  2c 33 30 33 0d 27 e2 15  |,712,212,303.'..|
000057e0  c8 93 36 34 38 2c 37 31  32 2c 34 37 35 2c 33 30  |..648,712,475,30|
000057f0  33 0d 27 ec 16 87 3a ef  32 38 2c 36 2c 38 2c 37  |3.'...:.28,6,8,7|
00005800  34 2c 31 3a fb 31 32 0d  27 f6 36 f1 8a 34 31 2c  |4,1:.12.'.6..41,|
00005810  30 29 22 50 4c 41 59 45  52 20 20 20 20 20 20 20  |0)"PLAYER       |
00005820  20 20 3a 20 22 3b 3a fb  38 3a f1 6e 61 6d 65 24  |  : ";:.8:.name$|
00005830  28 70 6c 61 79 65 72 25  29 3a fb 31 32 0d 28 00  |(player%):.12.(.|
00005840  25 f1 8a 34 31 2c 31 29  22 50 4c 41 59 49 4e 47  |%..41,1)"PLAYING|
00005850  20 41 54 20 20 20 20 20  3a 20 22 43 6f 75 72 73  | AT     : "Cours|
00005860  65 24 0d 28 0a 24 f1 8a  34 31 2c 32 29 22 48 4f  |e$.(.$..41,2)"HO|
00005870  4c 45 20 4e 55 4d 42 45  52 20 20 20 20 3a 20 22  |LE NUMBER    : "|
00005880  3b 48 6f 6c 65 25 0d 28  14 34 f1 8a 34 31 2c 33  |;Hole%.(.4..41,3|
00005890  29 22 50 41 52 20 20 20  20 20 20 20 20 20 20 20  |)"PAR           |
000058a0  20 3a 20 22 3b 7e 6d 61  70 3f 28 6d 61 70 70 6f  | : ";~map?(mappo|
000058b0  69 6e 74 25 2b 26 32 46  39 29 0d 28 1e 45 f1 8a  |int%+&2F9).(.E..|
000058c0  34 31 2c 34 29 22 4f 56  45 52 41 4c 4c 20 4c 45  |41,4)"OVERALL LE|
000058d0  4e 47 54 48 20 3a 20 22  3b 7e 28 6d 61 70 21 28  |NGTH : ";~(map!(|
000058e0  6d 61 70 70 6f 69 6e 74  25 2b 26 32 46 41 29 29  |mappoint%+&2FA))|
000058f0  80 26 46 46 46 46 3b 22  20 59 41 52 44 53 22 0d  |.&FFFF;" YARDS".|
00005900  28 28 56 f1 8a 34 31 2c  35 29 22 52 41 4e 47 45  |((V..41,5)"RANGE|
00005910  20 54 4f 20 48 4f 4c 45  20 20 3a 20 22 3b 3a fb  | TO HOLE  : ";:.|
00005920  38 3a f1 3b 28 52 25 81  32 31 29 2a 28 31 2d 67  |8:.;(R%.21)*(1-g|
00005930  72 65 65 6e 25 2a 32 29  3b 3a e7 67 72 65 65 6e  |reen%*2);:.green|
00005940  25 3a f1 22 20 46 45 45  54 22 3a 8b f1 22 20 59  |%:." FEET":.." Y|
00005950  41 52 44 53 22 0d 28 32  2a fb 31 32 3a f1 8a 34  |ARDS".(2*.12:..4|
00005960  31 2c 36 29 22 53 54 52  4f 4b 45 53 20 50 4c 41  |1,6)"STROKES PLA|
00005970  59 45 44 20 3a 20 22 3b  73 74 72 6f 6b 65 25 0d  |YED : ";stroke%.|
00005980  28 3c 0c f2 73 68 6f 77  6c 69 65 0d 28 46 0c f2  |(<..showlie.(F..|
00005990  73 65 74 77 69 6e 64 0d  28 50 0d f2 73 68 6f 77  |setwind.(P..show|
000059a0  77 69 6e 64 0d 28 5a 05  f5 0d 28 64 0a c8 91 38  |wind.(Z...(d...8|
000059b0  30 2c 30 0d 28 6e 0c f2  67 65 74 63 6c 75 62 0d  |0,0.(n..getclub.|
000059c0  28 78 22 fb 31 32 3a f1  8a 32 29 22 44 49 52 45  |(x".12:..2)"DIRE|
000059d0  43 54 49 4f 4e 20 54 48  45 4e 20 50 4f 57 45 52  |CTION THEN POWER|
000059e0  22 0d 28 82 1d fb 38 3a  f1 8a 34 29 41 24 28 76  |".(...8:..4)A$(v|
000059f0  70 25 29 22 20 53 45 4c  45 43 54 45 44 22 0d 28  |p%)" SELECTED".(|
00005a00  8c 38 e6 38 3a c8 93 34  36 2c 37 37 36 2c 33 32  |.8.8:..46,776,32|
00005a10  30 2c 31 32 38 3a c8 93  34 34 2c 37 37 36 2c 33  |0,128:..44,776,3|
00005a20  32 34 2c 31 32 38 3a 86  34 38 2c 38 36 36 2c 33  |24,128:.48,866,3|
00005a30  36 34 2c 38 36 36 0d 28  96 3f e6 36 3a c8 93 c8  |64,866.(.?.6:...|
00005a40  90 34 38 2c 38 37 30 2c  33 31 36 2c 33 32 3a e6  |.48,870,316,32:.|
00005a50  31 32 3a ec 37 38 2c 38  39 38 3a ef 35 3a f1 22  |12:.78,898:.5:."|
00005a60  43 4c 55 42 20 50 4f 57  45 52 20 4d 45 54 45 52  |CLUB POWER METER|
00005a70  22 bd 34 3a 87 0d 28 a0  4b 86 35 36 2c 37 38 34  |".4:..(.K.56,784|
00005a80  2c 35 36 2c 38 32 34 3a  e3 54 25 3d 34 39 b8 31  |,56,824:.T%=49.1|
00005a90  30 30 3a e7 a8 28 28 54  25 2f 31 30 30 2a 54 25  |00:..((T%/100*T%|
00005aa0  29 83 32 35 29 3d 30 3a  86 54 25 2a 33 2b 35 36  |).25)=0:.T%*3+56|
00005ab0  2c 37 38 34 2c 54 25 2a  33 2b 35 36 2c 38 32 34  |,784,T%*3+56,824|
00005ac0  0d 28 aa 05 ed 0d 28 b4  13 c8 93 35 36 2c 37 39  |.(....(....56,79|
00005ad0  32 2c 33 30 30 2c 32 34  0d 28 be 19 e6 31 31 3a  |2,300,24.(...11:|
00005ae0  c8 93 c8 90 35 36 2c 37  39 36 2c 33 30 30 2c 31  |....56,796,300,1|
00005af0  36 0d 28 c8 20 6d 79 25  3d 32 35 36 2d 67 72 65  |6.(. my%=256-gre|
00005b00  65 6e 25 2a 31 36 34 3a  c8 99 36 2c 31 30 36 2c  |en%*164:..6,106,|
00005b10  32 0d 28 d2 09 c8 91 30  2c 30 0d 28 dc 3e c8 97  |2.(....0,0.(.>..|
00005b20  c8 93 34 33 32 2b 28 67  72 65 65 6e 25 3d 30 29  |..432+(green%=0)|
00005b30  2a 31 36 30 2c 6d 79 25  2c 34 31 34 2d 28 67 72  |*160,my%,414-(gr|
00005b40  65 65 6e 25 3d 30 29 2a  33 32 30 2c 30 3a c8 97  |een%=0)*320,0:..|
00005b50  b8 36 34 30 2c 6d 79 25  0d 28 e6 13 78 73 25 3d  |.640,my%.(..xs%=|
00005b60  30 3a 4f 58 25 3d 30 3a  75 3d 30 0d 28 f0 10 f5  |0:OX%=0:u=0.(...|
00005b70  3a c8 97 58 25 2c 59 25  2c 43 25 0d 28 fa 13 e7  |:..X%,Y%,C%.(...|
00005b80  43 25 3d 31 84 43 25 3d  34 fd b9 3a fd a3 0d 29  |C%=1.C%=4..:...)|
00005b90  04 23 61 25 3d 28 58 25  2d 78 73 25 2d 36 34 30  |.#a%=(X%-xs%-640|
00005ba0  29 2f 38 3a e7 94 61 25  3c 31 30 61 25 3d b4 61  |)/8:..a%<10a%=.a|
00005bb0  25 0d 29 0e 09 75 2b 3d  61 25 0d 29 18 0d e7 58  |%.)..u+=a%.)...X|
00005bc0  25 3c 3e 78 73 25 8c 0d  29 22 41 42 58 25 3d 30  |%<>xs%..)"ABX%=0|
00005bd0  3a 42 59 25 3d 2d 52 25  3a f2 76 74 28 76 69 2a  |:BY%=-R%:.vt(vi*|
00005be0  42 59 25 2b 76 61 2a 42  58 25 2c 76 61 2a 42 59  |BY%+va*BX%,va*BY|
00005bf0  25 2b 76 62 2a 42 58 25  2c 48 25 29 3a 79 73 74  |%+vb*BX%,H%):yst|
00005c00  25 3d 79 73 25 2b 32 35  0d 29 2c 43 f5 3a 42 58  |%=ys%+25.),C.:BX|
00005c10  25 2b 3d 75 3a 42 59 25  2b 3d 38 30 3a f2 76 74  |%+=u:BY%+=80:.vt|
00005c20  28 76 69 2a 42 59 25 2b  76 61 2a 42 58 25 2c 76  |(vi*BY%+va*BX%,v|
00005c30  61 2a 42 59 25 2b 76 62  2a 42 58 25 2c 48 25 29  |a*BY%+vb*BX%,H%)|
00005c40  3a fd 79 73 25 3e 3d 79  73 74 25 0d 29 36 05 cd  |:.ys%>=yst%.)6..|
00005c50  0d 29 40 12 c8 97 b8 78  73 25 2d 36 34 30 2c 6d  |.)@....xs%-640,m|
00005c60  79 25 0d 29 4a 09 fd 43  25 3d 32 0d 29 54 07 c8  |y%.)J..C%=2.)T..|
00005c70  97 87 0d 29 5e 0d 70 25  3d a4 70 6f 77 65 72 0d  |...)^.p%=.power.|
00005c80  29 68 12 53 4f 25 3d 2d  31 35 2a 70 25 2f 31 30  |)h.SO%=-15*p%/10|
00005c90  30 0d 29 72 1d e7 ac 67  72 65 65 6e 25 80 76 70  |0.)r...green%.vp|
00005ca0  25 3d 31 33 75 3d 75 2b  b3 28 35 29 2d 33 0d 29  |%=13u=u+.(5)-3.)|
00005cb0  7c 32 75 3d 75 2f 28 38  2d 67 25 2a 32 29 3a 79  ||2u=u/(8-g%*2):y|
00005cc0  61 3d a8 28 28 43 56 25  28 76 70 25 29 2f 31 30  |a=.((CV%(vp%)/10|
00005cd0  30 29 2a 70 25 29 3a e7  79 61 3c 31 79 61 3d 31  |0)*p%):.ya<1ya=1|
00005ce0  0d 29 86 0f 75 64 3d 75  2f 28 79 61 2a 33 29 0d  |.)..ud=u/(ya*3).|
00005cf0  29 90 12 70 25 3d 70 25  2a 2e 33 32 3a 68 25 3d  |)..p%=p%*.32:h%=|
00005d00  30 0d 29 9a 1b e7 76 70  25 3d 31 33 70 25 3d 35  |0.)...vp%=13p%=5|
00005d10  2a 2d 28 67 72 65 65 6e  25 3d a3 29 0d 29 a4 18  |*-(green%=.).)..|
00005d20  f2 64 65 6c 28 31 30 30  29 3a 73 74 72 6f 6b 65  |.del(100):stroke|
00005d30  25 2b 3d 31 0d 29 ae 20  ef 34 2c 32 36 3a 87 3a  |%+=1.). .4,26:.:|
00005d40  2a 53 43 48 4f 4f 53 45  20 74 6f 70 6f 66 73 63  |*SCHOOSE topofsc|
00005d50  72 65 65 6e 0d 29 b8 13  e6 38 2c 30 3a f0 26 45  |reen.)...8,0:.&E|
00005d60  44 2c 30 2c 37 30 34 0d  29 c2 0d f2 77 69 6e 64  |D,0,704.)...wind|
00005d70  6f 77 73 32 0d 29 cc 05  e1 0d 29 d6 07 f4 20 15  |ows2.)....)... .|
00005d80  0d 29 e0 0d dd f2 73 68  6f 77 6c 69 65 0d 29 ea  |.)....showlie.).|
00005d90  07 ea 61 24 0d 29 f4 13  61 24 3d 22 4f 4e 20 54  |..a$.)..a$="ON T|
00005da0  48 45 20 22 3a fb 38 0d  29 fe 0c f1 8a 34 31 2c  |HE ":.8.)....41,|
00005db0  37 29 3b 0d 2a 08 21 62  75 6e 6b 25 3d a3 3a 62  |7);.*.!bunk%=.:b|
00005dc0  61 64 25 3d a3 3a 77 69  6e 64 25 3d 73 6b 69 6c  |ad%=.:wind%=skil|
00005dd0  6c 25 3e 32 0d 2a 12 0c  e7 67 72 65 65 6e 25 8c  |l%>2.*...green%.|
00005de0  0d 2a 1c 34 e7 6c 69 65  25 3d 35 20 f1 61 24 22  |.*.4.lie%=5 .a$"|
00005df0  47 52 45 45 4e 22 3b 3a  8b f1 22 4f 4e 20 45 44  |GREEN";:.."ON ED|
00005e00  47 45 20 4f 46 20 47 52  45 45 4e 22 3b 3a 6c 69  |GE OF GREEN";:li|
00005e10  65 25 3d 35 0d 2a 26 05  cd 0d 2a 30 0b c8 8e 6c  |e%=5.*&...*0...l|
00005e20  69 65 25 ca 0d 2a 3a 1c  c9 31 3a f1 22 49 4e 20  |ie%..*:..1:."IN |
00005e30  41 20 42 55 4e 4b 45 52  20 22 3b 3a f2 67 6f 62  |A BUNKER ";:.gob|
00005e40  0d 2a 44 17 c9 34 3a f1  22 4f 4e 20 41 20 50 41  |.*D..4:."ON A PA|
00005e50  54 48 57 41 59 22 3b 0d  2a 4e 0e c9 36 3a f2 77  |THWAY";.*N..6:.w|
00005e60  65 74 6d 65 73 0d 2a 58  2a c9 37 3a e7 79 31 25  |etmes.*X*.7:.y1%|
00005e70  3c 3e 73 74 79 25 3a f1  61 24 22 46 41 49 52 57  |<>sty%:.a$"FAIRW|
00005e80  41 59 22 3b 3a 8b f1 61  24 22 54 45 45 22 3b 0d  |AY";:..a$"TEE";.|
00005e90  2a 62 1d c9 39 3a f1 22  49 4e 20 54 48 45 20 52  |*b..9:."IN THE R|
00005ea0  4f 55 47 48 20 22 3b 3a  f2 67 6f 62 0d 2a 6c 05  |OUGH ";:.gob.*l.|
00005eb0  cb 0d 2a 76 05 e1 0d 2a  80 07 f4 20 15 0d 2a 8a  |..*v...*... ..*.|
00005ec0  0c dd f2 77 65 74 6d 65  73 0d 2a 94 12 e6 36 3a  |...wetmes.*...6:|
00005ed0  62 75 6e 6b 25 3d b9 3a  ea 54 25 0d 2a 9e 0b 54  |bunk%=.:.T%.*..T|
00005ee0  25 3d b3 28 33 29 0d 2a  a8 09 c8 8e 54 25 ca 0d  |%=.(3).*....T%..|
00005ef0  2a b2 1d c9 31 2c 33 3a  f1 22 49 4e 20 53 48 41  |*...1,3:."IN SHA|
00005f00  4c 4c 4f 57 20 57 41 54  45 52 22 3b 0d 2a bc 3e  |LLOW WATER";.*.>|
00005f10  c9 32 3a e7 77 65 6c 6c  69 65 25 f1 22 49 54 27  |.2:.wellie%."IT'|
00005f20  53 20 41 20 57 45 4c 4c  49 45 20 4a 4f 42 22 3b  |S A WELLIE JOB";|
00005f30  3a 8b f1 22 42 41 4c 41  4e 43 45 44 20 4f 4e 20  |:.."BALANCED ON |
00005f40  4c 49 4c 59 20 50 41 44  22 3b 0d 2a c6 05 cb 0d  |LILY PAD";.*....|
00005f50  2a d0 05 e1 0d 2a da 07  f4 20 15 0d 2a e4 09 dd  |*....*... ..*...|
00005f60  f2 67 6f 62 0d 2a ee 3a  ea 67 24 2c 62 24 3a 67  |.gob.*.:.g$,b$:g|
00005f70  24 3d 22 47 4f 4f 44 20  4c 49 45 22 3a e7 6c 69  |$="GOOD LIE":.li|
00005f80  65 25 3d 39 62 24 3d 22  42 41 44 20 4c 49 45 22  |e%=9b$="BAD LIE"|
00005f90  3a 8b 62 24 3d 22 50 4c  55 47 47 45 44 22 0d 2a  |:.b$="PLUGGED".*|
00005fa0  f8 0d c8 8e 73 6b 69 6c  6c 25 ca 0d 2b 02 14 c9  |....skill%..+...|
00005fb0  31 3a f1 22 4e 4f 20 45  46 46 45 43 54 22 3b 0d  |1:."NO EFFECT";.|
00005fc0  2b 0c 15 c9 32 2c 33 3a  f1 67 24 3b 3a 62 75 6e  |+...2,3:.g$;:bun|
00005fd0  6b 25 3d b9 0d 2b 16 27  c9 34 3a 62 75 6e 6b 25  |k%=..+.'.4:bunk%|
00005fe0  3d b9 3a e7 b3 28 32 29  3d 32 f1 62 24 3b 3a 62  |=.:..(2)=2.b$;:b|
00005ff0  61 64 25 3d 31 3a 8b f1  67 24 3b 0d 2b 20 05 cb  |ad%=1:..g$;.+ ..|
00006000  0d 2b 2a 05 e1 0d 2b 34  07 f4 20 15 0d 2b 3e 0b  |.+*...+4.. ..+>.|
00006010  dd a4 70 6f 77 65 72 0d  2b 48 13 ea 58 25 2c 43  |..power.+H..X%,C|
00006020  25 2c 63 25 2c 70 25 2c  61 25 0d 2b 52 0a c8 91  |%,c%,p%,a%.+R...|
00006030  38 30 2c 30 0d 2b 5c 1d  fb 31 32 3a f2 62 75 74  |80,0.+\..12:.but|
00006040  74 28 30 29 3a f2 64 65  6c 28 31 29 3a 61 25 3d  |t(0):.del(1):a%=|
00006050  31 0d 2b 66 12 c8 95 43  25 3d 30 80 63 25 3c 3e  |1.+f...C%=0.c%<>|
00006060  31 35 36 0d 2b 70 16 70  25 2b 3d 61 25 3a e7 70  |156.+p.p%+=a%:.p|
00006070  25 3d 31 30 30 61 25 3d  b9 0d 2b 7a 14 63 25 2b  |%=100a%=..+z.c%+|
00006080  3d 31 3a e6 38 3a e7 63  25 80 31 c8 96 0d 2b 84  |=1:.8:.c%.1...+.|
00006090  36 c8 93 c8 90 35 36 2c  37 39 36 2c 70 25 2a 33  |6....56,796,p%*3|
000060a0  2c 31 36 3a e6 31 31 3a  c8 93 c8 90 35 36 2b 70  |,16:.11:....56+p|
000060b0  25 2a 33 2c 37 39 36 2c  33 30 30 2d 70 25 2a 33  |%*3,796,300-p%*3|
000060c0  2c 31 36 0d 2b 8e 30 f1  8a 32 2c 34 29 3b a8 28  |,16.+.0..2,4);.(|
000060d0  70 25 2f 31 30 30 2a 70  25 29 2d 28 63 25 3c 31  |p%/100*p%)-(c%<1|
000060e0  30 29 3b 22 25 20 20 22  3a c8 97 58 25 2c 58 25  |0);"%  ":..X%,X%|
000060f0  2c 43 25 0d 2b 98 05 ce  0d 2b a2 0d 53 6c 3d 30  |,C%.+....+..Sl=0|
00006100  3a 73 6c 3d 30 0d 2b ac  0d e7 76 70 25 3c 3e 31  |:sl=0.+...vp%<>1|
00006110  33 8c 0d 2b b6 09 c8 8e  43 25 ca 0d 2b c0 0d c9  |3..+....C%..+...|
00006120  31 3a 73 6c 3d 2e 30 35  0d 2b ca 0e c9 34 3a 73  |1:sl=.05.+...4:s|
00006130  6c 3d 2d 2e 30 35 0d 2b  d4 05 cb 0d 2b de 05 cd  |l=-.05.+....+...|
00006140  0d 2b e8 0f e7 73 6b 69  6c 6c 25 3c 3e 31 8c 0d  |.+...skill%<>1..|
00006150  2b f2 0b c8 8e 6c 69 65  25 ca 0d 2b fc 23 c9 31  |+....lie%..+.#.1|
00006160  2c 39 3a 70 25 3d 28 70  25 2f 31 30 30 29 2a 72  |,9:p%=(p%/100)*r|
00006170  65 64 25 28 76 70 25 2c  62 61 64 25 29 0d 2c 06  |ed%(vp%,bad%).,.|
00006180  2f c9 36 3a 61 25 3d 76  70 25 2d 32 2a 28 70 25  |/.6:a%=vp%-2*(p%|
00006190  3c 31 31 29 3a 70 25 3d  70 25 2f 31 30 30 2a 72  |<11):p%=p%/100*r|
000061a0  65 64 25 28 61 25 2c 62  61 64 25 29 0d 2c 10 05  |ed%(a%,bad%).,..|
000061b0  cb 0d 2c 1a 05 cd 0d 2c  24 10 d4 31 2c 2d 31 30  |..,....,$..1,-10|
000061c0  2c 32 30 30 2c 31 0d 2c  2e 0d e7 70 25 3c 31 70  |,200,1.,...p%<1p|
000061d0  25 3d 31 0d 2c 38 07 3d  70 25 0d 2c 42 07 f4 20  |%=1.,8.=p%.,B.. |
000061e0  15 0d 2c 4c 0d dd f2 67  65 74 63 6c 75 62 0d 2c  |..,L...getclub.,|
000061f0  56 11 f2 62 75 74 74 28  30 29 3a f2 63 6c 73 0d  |V..butt(0):.cls.|
00006200  2c 60 13 e7 67 72 65 65  6e 25 76 70 25 3d 31 33  |,`..green%vp%=13|
00006210  3a e1 0d 2c 6a 1b ea 58  25 2c 59 25 2c 43 25 2c  |:..,j..X%,Y%,C%,|
00006220  78 25 2c 79 25 2c 6f 78  25 2c 6f 79 25 0d 2c 74  |x%,y%,ox%,oy%.,t|
00006230  3b 6f 78 25 3d 2d 31 30  30 3a 87 3a ef 32 38 2c  |;ox%=-100:.:.28,|
00006240  36 2c 38 2c 37 34 2c 31  3a f2 6d 72 65 63 74 28  |6,8,74,1:.mrect(|
00006250  31 29 3a c8 97 20 ee 3a  fb 31 32 3a f4 3a 53 59  |1):.. .:.12:.:SY|
00006260  53 36 2c 31 30 36 2c 33  0d 2c 7e 28 e3 54 25 3d  |S6,106,3.,~(.T%=|
00006270  30 b8 31 33 3a f1 8a 54  58 25 28 54 25 29 2c 54  |0.13:..TX%(T%),T|
00006280  59 25 28 54 25 29 29 41  24 28 54 25 29 3b 3a ed  |Y%(T%))A$(T%);:.|
00006290  0d 2c 88 37 fb 32 3a f1  8a 36 2c 30 29 22 53 45  |.,.7.2:..6,0)"SE|
000062a0  4c 45 43 54 20 41 20 43  4c 55 42 22 3a c8 9f 26  |LECT A CLUB":..&|
000062b0  32 30 30 30 3a c8 9e 31  30 30 3a ef 35 3a e6 33  |2000:..100:.5:.3|
000062c0  2c 32 3a f2 62 6f 78 0d  2c 92 2e f5 3a e7 c6 8f  |,2:.box.,...:...|
000062d0  3d 30 3a e6 33 2c 32 3a  f1 8a 37 2c 31 29 22 53  |=0:.3,2:..7,1)"S|
000062e0  45 4c 45 43 54 20 41 20  43 4c 55 42 22 3a f5 fd  |ELECT A CLUB":..|
000062f0  c6 8f 3c 3e 30 0d 2c 9c  24 c8 97 58 25 2c 59 25  |..<>0.,.$..X%,Y%|
00006300  2c 43 25 3a 78 25 3d 58  25 81 31 32 38 3a 79 25  |,C%:x%=X%.128:y%|
00006310  3d 59 25 80 26 46 46 45  30 0d 2c a6 18 e7 78 25  |=Y%.&FFE0.,...x%|
00006320  3c 3e 6f 78 25 84 79 25  3c 3e 6f 79 25 f2 62 6f  |<>ox%.y%<>oy%.bo|
00006330  78 0d 2c b0 35 f2 6d 72  65 63 74 28 58 25 29 3a  |x.,.5.mrect(X%):|
00006340  76 70 25 3d 33 5e 78 25  2b 28 78 25 3d 30 29 2b  |vp%=3^x%+(x%=0)+|
00006350  32 38 2d 79 25 81 33 32  2b 28 78 25 3d 32 80 79  |28-y%.32+(x%=2.y|
00006360  25 3c 38 33 32 29 0d 2c  ba 0a fd 43 25 3c 3e 30  |%<832).,...C%<>0|
00006370  0d 2c c4 0f f2 62 75 74  74 28 30 29 3a ef 34 0d  |.,...butt(0):.4.|
00006380  2c ce 09 dd f2 63 6c 73  0d 2c d8 14 87 3a ef 32  |,....cls.,...:.2|
00006390  38 2c 36 2c 38 2c 32 39  2c 31 3a db 0d 2c e2 05  |8,6,8,29,1:..,..|
000063a0  e1 0d 2c ec 07 f4 20 15  0d 2c f6 09 dd f2 62 6f  |..,... ..,....bo|
000063b0  78 0d 2d 00 08 e6 33 2c  36 0d 2d 0a 1c c8 93 c8  |x.-...3,6.-.....|
000063c0  90 33 32 2b 31 32 38 2a  6f 78 25 2c 6f 79 25 2c  |.32+128*ox%,oy%,|
000063d0  39 36 2c 33 32 0d 2d 14  1a c8 93 c8 90 33 32 2b  |96,32.-......32+|
000063e0  31 32 38 2a 78 25 2c 79  25 2c 39 36 2c 33 32 0d  |128*x%,y%,96,32.|
000063f0  2d 1e 10 d4 31 2c 2d 31  30 2c 32 30 30 2c 31 0d  |-...1,-10,200,1.|
00006400  2d 28 11 6f 78 25 3d 78  25 3a 6f 79 25 3d 79 25  |-(.ox%=x%:oy%=y%|
00006410  0d 2d 32 05 e1 0d 2d 3c  07 f4 20 15 0d 2d 46 0f  |.-2...-<.. ..-F.|
00006420  dd f2 6d 72 65 63 74 28  52 25 29 0d 2d 50 10 e7  |..mrect(R%).-P..|
00006430  52 25 3e 32 38 38 f2 69  6f 70 32 0d 2d 5a 09 c8  |R%>288.iop2.-Z..|
00006440  8e 52 25 ca 0d 2d 64 22  c9 20 31 3a c8 97 c8 93  |.R%..-d". 1:....|
00006450  33 38 2c 38 34 34 2c 39  30 2c 37 32 3a c8 97 b8  |38,844,90,72:...|
00006460  38 33 2c 39 31 32 0d 2d  6e 24 c9 20 31 36 32 3a  |83,912.-n$. 162:|
00006470  c8 97 c8 93 33 38 2c 38  34 34 2c 39 30 2c 37 32  |....38,844,90,72|
00006480  3a c8 97 b8 38 33 2c 38  34 36 0d 2d 78 27 c9 20  |:...83,846.-x'. |
00006490  31 32 38 3a c8 97 c8 93  31 36 32 2c 37 35 32 2c  |128:....162,752,|
000064a0  39 30 2c 31 36 34 3a c8  97 b8 32 30 38 2c 39 31  |90,164:...208,91|
000064b0  32 0d 2d 82 0e c9 20 32  35 32 3a f2 69 6f 70 0d  |2.-... 252:.iop.|
000064c0  2d 8c 27 c9 20 32 38 38  3a c8 97 c8 93 31 36 32  |-.'. 288:....162|
000064d0  2c 37 35 32 2c 39 30 2c  31 36 34 3a c8 97 b8 32  |,752,90,164:...2|
000064e0  30 38 2c 37 35 36 0d 2d  96 05 cb 0d 2d a0 05 e1  |08,756.-....-...|
000064f0  0d 2d aa 07 f4 20 15 0d  2d b4 09 dd f2 69 6f 70  |.-... ..-....iop|
00006500  0d 2d be 0c e7 59 25 3e  38 33 35 8c 0d 2d c8 20  |.-...Y%>835..-. |
00006510  c8 97 c8 93 32 38 38 2c  38 33 36 2c 39 30 2c 38  |....288,836,90,8|
00006520  30 3a c8 97 b8 33 34 39  2c 39 31 32 0d 2d d2 22  |0:...349,912.-."|
00006530  cc 20 c8 97 c8 93 32 38  38 2c 37 35 32 2c 39 30  |. ....288,752,90|
00006540  2c 35 30 3a c8 97 b8 33  34 39 2c 37 37 38 0d 2d  |,50:...349,778.-|
00006550  dc 05 cd 0d 2d e6 05 e1  0d 2d f0 07 f4 20 15 0d  |....-....-... ..|
00006560  2d fa 0a dd f2 69 6f 70  32 0d 2e 04 27 e7 59 25  |-....iop2...'.Y%|
00006570  3d 38 33 36 c8 97 c8 93  32 38 38 2c 37 35 32 2c  |=836....288,752,|
00006580  39 30 2c 35 30 3a c8 97  b8 33 34 39 2c 37 38 36  |90,50:...349,786|
00006590  0d 2e 0e 27 e7 59 25 3d  38 30 32 c8 97 c8 93 32  |...'.Y%=802....2|
000065a0  38 38 2c 38 33 36 2c 39  30 2c 38 30 3a c8 97 b8  |88,836,90,80:...|
000065b0  33 34 39 2c 38 35 36 0d  2e 18 05 e1 0d 2e 22 07  |349,856.......".|
000065c0  f4 20 15 0d 2e 2c 0e dd  f2 62 75 74 74 28 6f 6e  |. ...,...butt(on|
000065d0  29 0d 2e 36 0a ea 44 25  2c 43 25 0d 2e 40 05 f5  |)..6..D%,C%..@..|
000065e0  0d 2e 4a 0e c8 97 44 25  2c 44 25 2c 43 25 0d 2e  |..J...D%,D%,C%..|
000065f0  54 0a fd 43 25 3d 6f 6e  0d 2e 5e 05 e1 0d 2e 68  |T..C%=on..^....h|
00006600  07 f4 20 15 0d 2e 72 0d  dd f2 77 69 6e 64 6f 77  |.. ...r...window|
00006610  73 0d 2e 7c 18 ef 32 36  3a e6 31 32 38 3a da 3a  |s..|..26:.128:.:|
00006620  f2 6d 61 69 6e 63 6f 6c  73 0d 2e 86 0d e7 ac 67  |.maincols......g|
00006630  72 65 65 6e 25 8c 0d 2e  90 18 e6 36 3a c8 93 c8  |reen%......6:...|
00006640  90 20 30 2c 30 2c 31 32  38 30 2c 37 33 36 0d 2e  |. 0,0,1280,736..|
00006650  9a 16 e6 34 3a 86 30 2c  37 33 32 2c 31 32 38 30  |...4:.0,732,1280|
00006660  2c 37 33 32 0d 2e a4 1f  e6 31 33 38 3a ef 32 34  |,732.....138:.24|
00006670  2c 30 3b 37 33 36 3b 31  32 37 39 3b 31 30 32 33  |,0;736;1279;1023|
00006680  3b 3a da 0d 2e ae 0b f2  63 6c 6f 75 64 73 0d 2e  |;:......clouds..|
00006690  b8 0b cc e6 31 33 35 3a  da 0d 2e c2 05 cd 0d 2e  |....135:........|
000066a0  cc 0e dd f2 77 69 6e 64  6f 77 73 32 0d 2e d6 20  |....windows2... |
000066b0  ef 32 36 3a c8 91 36 34  30 2c 37 36 38 2b 4f 25  |.26:..640,768+O%|
000066c0  2d 36 31 36 36 2a 67 72  65 65 6e 25 0d 2e e0 05  |-6166*green%....|
000066d0  e1 0d 2e ea 07 f4 20 15  0d 2e f4 0c dd f2 63 6c  |...... .......cl|
000066e0  6f 75 64 73 0d 2e fe 0d  ea 43 25 2c 54 25 2c 4f  |ouds.....C%,T%,O|
000066f0  25 0d 2f 08 24 e7 76 62  3e 30 20 4f 25 3d 9d 98  |%./.$.vb>0 O%=..|
00006700  76 61 20 8b 4f 25 3d 31  38 30 2b 28 31 38 30 2d  |va .O%=180+(180-|
00006710  9d 98 76 61 29 0d 2f 12  12 4f 25 3d 94 4f 25 2a  |..va)./..O%=.O%*|
00006720  33 2e 35 3a e6 31 31 0d  2f 1c 15 e3 43 25 3d 31  |3.5:.11./...C%=1|
00006730  b8 31 32 3a e3 54 25 3d  31 b8 31 32 0d 2f 26 35  |.12:.T%=1.12./&5|
00006740  c8 9d c8 90 28 43 4c 25  28 30 2c 43 25 2c 54 25  |....(CL%(0,C%,T%|
00006750  29 2b 4f 25 29 83 32 35  32 30 2b 49 25 2c 43 4c  |)+O%).2520+I%,CL|
00006760  25 28 31 2c 43 25 2c 54  25 29 2c 32 35 36 2c 36  |%(1,C%,T%),256,6|
00006770  34 0d 2f 30 07 ed 3a ed  0d 2f 3a 05 e1 0d 2f 44  |4./0..:../:.../D|
00006780  07 f4 20 15 0d 2f 4e 0f  dd f2 69 6e 69 74 63 6c  |.. ../N...initcl|
00006790  6f 75 64 0d 2f 58 10 ea  43 25 2c 54 25 2c 58 25  |oud./X..C%,T%,X%|
000067a0  2c 59 25 0d 2f 62 2b e3  43 25 3d 30 b8 31 32 3a  |,Y%./b+.C%=0.12:|
000067b0  58 25 3d 31 39 34 2a 43  25 2b b3 28 31 39 34 29  |X%=194*C%+.(194)|
000067c0  3a 59 25 3d b3 28 32 38  38 29 2b 37 33 36 0d 2f  |:Y%=.(288)+736./|
000067d0  6c 3c e3 54 25 3d 30 b8  31 32 3a 43 4c 25 28 30  |l<.T%=0.12:CL%(0|
000067e0  2c 43 25 2c 54 25 29 3d  58 25 2b b3 28 35 29 2a  |,C%,T%)=X%+.(5)*|
000067f0  34 30 3a 43 4c 25 28 31  2c 43 25 2c 54 25 29 3d  |40:CL%(1,C%,T%)=|
00006800  59 25 2b b3 28 35 29 2a  31 32 0d 2f 76 07 ed 3a  |Y%+.(5)*12./v..:|
00006810  ed 0d 2f 80 05 e1 0d 2f  8a 07 f4 20 15 0d 2f 94  |../..../... ../.|
00006820  0c dd f2 62 6f 75 6e 63  65 0d 2f 9e 13 68 25 3d  |...bounce./..h%=|
00006830  30 3a 70 25 3d 2d 70 25  2f 32 2e 32 0d 2f a8 20  |0:p%=-p%/2.2./. |
00006840  e7 76 70 25 3d 31 33 80  ac 67 72 65 65 6e 25 80  |.vp%=13..green%.|
00006850  b3 28 31 30 29 3d 35 f2  32 72 69 63 0d 2f b2 0c  |.(10)=5.2ric./..|
00006860  2a 46 58 31 31 32 2c 32  0d 2f bc 10 47 25 3d b0  |*FX112,2./..G%=.|
00006870  73 78 25 2c 73 79 25 29  0d 2f c6 0c 2a 46 58 31  |sx%,sy%)./..*FX1|
00006880  31 32 2c 31 0d 2f d0 09  c8 8e 47 25 ca 0d 2f da  |12,1./....G%../.|
00006890  29 c9 31 3a 70 25 3d 70  25 3e 3e 31 3a e7 70 25  |).1:p%=p%>>1:.p%|
000068a0  3e 34 3a 79 61 3d 79 61  2a 2e 33 3a 8b 79 61 3d  |>4:ya=ya*.3:.ya=|
000068b0  79 61 2a 2e 37 35 0d 2f  e4 2f c9 34 3a e7 70 25  |ya*.75././.4:.p%|
000068c0  3e 33 80 79 61 3c 3e 30  70 25 3d 70 25 2a 31 2e  |>3.ya<>0p%=p%*1.|
000068d0  35 3a 79 61 3d 79 61 2a  31 2e 33 3a 75 64 3d 75  |5:ya=ya*1.3:ud=u|
000068e0  64 2f 31 2e 33 0d 2f ee  60 c9 36 2c 31 31 3a 57  |d/1.3./.`.6,11:W|
000068f0  25 3d a3 3a 78 73 25 3d  31 30 30 30 3a 73 78 25  |%=.:xs%=1000:sx%|
00006900  3d 31 30 30 30 3a 79 61  3d 30 3a 70 25 3d 30 3a  |=1000:ya=0:p%=0:|
00006910  68 25 3d 30 3a d6 20 70  6c 6f 74 62 61 6c 6c 2c  |h%=0:. plotball,|
00006920  62 73 25 2c 6f 79 25 2c  6f 78 25 2c 6f 73 79 25  |bs%,oy%,ox%,osy%|
00006930  2c 6f 73 78 25 2c 79 73  25 2c 78 73 25 2c 73 79  |,osx%,ys%,xs%,sy|
00006940  25 2c 73 78 25 0d 2f f8  4a c9 39 2c 2d 31 3a 79  |%,sx%./.J.9,-1:y|
00006950  61 3d 79 61 2f 31 2e 35  3a 70 25 3d 70 25 3e 3e  |a=ya/1.5:p%=p%>>|
00006960  31 3a 75 3d 75 2f 32 3a  75 64 3d 75 64 2f 32 3a  |1:u=u/2:ud=ud/2:|
00006970  e7 67 72 65 65 6e 25 80  47 25 3d 2d 31 79 61 3d  |.green%.G%=-1ya=|
00006980  30 3a 70 25 3d 30 3a 75  3d 30 3a 75 64 3d 30 0d  |0:p%=0:u=0:ud=0.|
00006990  30 02 05 cb 0d 30 0c 05  e1 0d 30 16 07 f4 20 15  |0....0....0... .|
000069a0  0d 30 20 0c dd f2 64 72  61 77 69 74 0d 30 2a 37  |.0 ...drawit.0*7|
000069b0  6e 70 25 3d a4 6d 61 70  31 3a f2 6d 61 70 28 43  |np%=.map1:.map(C|
000069c0  58 25 2c 43 59 25 2c 48  25 2c 34 2c 72 29 3a f2  |X%,CY%,H%,4,r):.|
000069d0  6d 61 70 28 53 58 25 2c  53 59 25 2c 48 25 2c 34  |map(SX%,SY%,H%,4|
000069e0  2c 72 29 0d 30 34 30 e3  49 25 3d 31 b8 6e 70 25  |,r).040.I%=1.np%|
000069f0  2d 31 3a f2 6d 61 70 28  58 49 25 2c 59 49 25 2c  |-1:.map(XI%,YI%,|
00006a00  48 25 2c 38 35 2c 72 29  3a ec 43 58 25 2c 43 59  |H%,85,r):.CX%,CY|
00006a10  25 3a ed 0d 30 3e 0f f0  38 35 2c 53 58 25 2c 53  |%:..0>..85,SX%,S|
00006a20  59 25 0d 30 48 05 e1 0d  30 52 07 f4 20 15 0d 30  |Y%.0H...0R.. ..0|
00006a30  5c 12 dd f2 76 74 28 78  25 2c 79 25 2c 7a 25 29  |\...vt(x%,y%,z%)|
00006a40  0d 30 66 4c 78 65 25 3d  76 61 2a 78 25 2b 76 62  |.0fLxe%=va*x%+vb|
00006a50  2a 79 25 3a 7a 65 25 3d  28 76 69 2a 78 25 2b 76  |*y%:ze%=(vi*x%+v|
00006a60  61 2a 79 25 2b 72 29 2a  4d 61 3a 78 73 25 3d 64  |a*y%+r)*Ma:xs%=d|
00006a70  2a 78 65 25 20 81 7a 65  25 3a 79 73 25 3d 2d 28  |*xe% .ze%:ys%=-(|
00006a80  64 2a 7a 25 20 81 7a 65  25 29 2a 32 0d 30 70 05  |d*z% .ze%)*2.0p.|
00006a90  e1 0d 30 7a 07 f4 20 15  0d 30 84 22 dd f2 63 61  |..0z.. ..0."..ca|
00006aa0  6c 74 72 65 28 f8 20 78  25 28 29 2c f8 20 79 25  |ltre(. x%(),. y%|
00006ab0  28 29 2c f8 20 7a 25 28  29 29 0d 30 8e 11 ea 69  |(),. z%()).0...i|
00006ac0  25 2c 6c 25 2c 6c 6f 25  2c 6e 25 0d 30 98 0d e3  |%,l%,lo%,n%.0...|
00006ad0  41 25 3d 31 b8 41 41 25  0d 30 a2 1b 6c 25 3d a4  |A%=1.AA%.0..l%=.|
00006ae0  6d 61 70 32 3a 74 72 65  78 21 28 41 25 2a 34 29  |map2:trex!(A%*4)|
00006af0  3d 6c 25 0d 30 ac 1b 69  25 3d a4 6d 61 70 32 3a  |=l%.0..i%=.map2:|
00006b00  74 72 65 79 21 28 41 25  2a 34 29 3d 69 25 0d 30  |trey!(A%*4)=i%.0|
00006b10  b6 12 78 65 3d 76 61 2a  69 25 2b 76 62 2a 6c 25  |..xe=va*i%+vb*l%|
00006b20  0d 30 c0 19 7a 65 3d 28  76 69 2a 69 25 2b 76 61  |.0..ze=(vi*i%+va|
00006b30  2a 6c 25 2b 72 29 2a 4d  61 0d 30 ca 28 78 25 28  |*l%+r)*Ma.0.(x%(|
00006b40  41 25 29 3d 64 2a 78 65  20 81 7a 65 3a 79 25 28  |A%)=d*xe .ze:y%(|
00006b50  41 25 29 3d 2d 28 64 2a  48 25 20 81 7a 65 29 2a  |A%)=-(d*H% .ze)*|
00006b60  32 0d 30 d4 1d 7a 25 28  41 25 29 3d 2d 28 64 2a  |2.0..z%(A%)=-(d*|
00006b70  28 48 25 2b 32 30 30 29  81 7a 65 29 2a 32 0d 30  |(H%+200).ze)*2.0|
00006b80  de 05 ed 0d 30 e8 05 e1  0d 30 f2 07 f4 20 15 0d  |....0....0... ..|
00006b90  30 fc 1c dd f2 6d 61 70  28 f8 20 78 25 2c f8 20  |0....map(. x%,. |
00006ba0  79 25 2c 7a 25 2c 70 25  2c 72 29 0d 31 06 56 79  |y%,z%,p%,r).1.Vy|
00006bb0  25 3d a4 6d 61 70 32 3a  78 25 3d a4 6d 61 70 32  |%=.map2:x%=.map2|
00006bc0  3a 78 65 3d 76 61 2a 78  25 2b 76 62 2a 79 25 3a  |:xe=va*x%+vb*y%:|
00006bd0  7a 65 3d 28 76 69 2a 78  25 2b 76 61 2a 79 25 2b  |ze=(vi*x%+va*y%+|
00006be0  72 29 2a 4d 61 3a 78 25  3d 64 2a 78 65 20 81 7a  |r)*Ma:x%=d*xe .z|
00006bf0  65 3a 79 25 3d 2d 28 64  2a 7a 25 81 7a 65 29 2a  |e:y%=-(d*z%.ze)*|
00006c00  32 0d 31 10 29 e7 ac 67  72 65 65 6e 25 e7 79 25  |2.1.)..green%.y%|
00006c10  3e 2d 33 32 84 79 25 3c  26 46 46 46 46 38 30 30  |>-32.y%<&FFFF800|
00006c20  30 20 79 25 3d 2d 36 30  30 30 0d 31 1a 0d f0 70  |0 y%=-6000.1...p|
00006c30  25 2c 78 25 2c 79 25 0d  31 24 05 e1 0d 31 2e 07  |%,x%,y%.1$...1..|
00006c40  f4 20 15 0d 31 38 1c dd  a4 6d 61 70 31 3a 50 25  |. ..18...map1:P%|
00006c50  2b 3d 31 3a 3d 6d 61 70  3f 28 50 25 2d 31 29 0d  |+=1:=map?(P%-1).|
00006c60  31 42 07 f4 20 15 0d 31  4c 24 dd a4 6d 61 70 32  |1B.. ..1L$..map2|
00006c70  3a 50 25 2b 3d 32 3a 51  25 3d 6d 61 70 21 28 50  |:P%+=2:Q%=map!(P|
00006c80  25 2d 32 29 80 26 46 46  46 46 0d 31 56 1c e7 51  |%-2).&FFFF.1V..Q|
00006c90  25 3e 26 37 46 46 46 51  25 3d 51 25 84 26 46 46  |%>&7FFFQ%=Q%.&FF|
00006ca0  46 46 30 30 30 30 0d 31  60 07 3d 51 25 0d 31 6a  |FF0000.1`.=Q%.1j|
00006cb0  07 f4 20 15 0d 31 74 0b  dd f2 74 72 65 65 73 0d  |.. ..1t...trees.|
00006cc0  31 7e 1e 50 46 25 3d b9  3a 50 42 25 3d 2d 28 64  |1~.PF%=.:PB%=-(d|
00006cd0  2a 48 25 81 28 72 2a 4d  61 29 29 2a 32 0d 31 88  |*H%.(r*Ma))*2.1.|
00006ce0  1d 50 54 25 3d 2d 28 64  2a 28 48 25 2d 33 30 29  |.PT%=-(d*(H%-30)|
00006cf0  81 28 72 2a 4d 61 29 29  2a 32 0d 31 92 1d 46 42  |.(r*Ma))*2.1..FB|
00006d00  25 3d 2d 28 64 2a 28 48  25 2d 32 34 29 81 28 72  |%=-(d*(H%-24).(r|
00006d10  2a 4d 61 29 29 2a 32 0d  31 9c 56 78 65 3d 76 61  |*Ma))*2.1.Vxe=va|
00006d20  2a 46 78 2b 76 62 2a 46  79 3a 7a 65 3d 28 76 69  |*Fx+vb*Fy:ze=(vi|
00006d30  2a 46 78 2b 76 61 2a 46  79 2b 72 29 2a 4d 61 3a  |*Fx+va*Fy+r)*Ma:|
00006d40  46 58 25 3d 64 2a 78 65  20 81 7a 65 3a 46 59 25  |FX%=d*xe .ze:FY%|
00006d50  3d 2d 28 64 2a 28 48 25  2d 31 36 2d 28 73 74 72  |=-(d*(H%-16-(str|
00006d60  65 6e 25 81 34 29 29 81  7a 65 29 2a 32 0d 31 a6  |en%.4)).ze)*2.1.|
00006d70  0c e7 67 72 65 65 6e 25  e1 0d 31 b0 0f e3 54 25  |..green%..1...T%|
00006d80  3d 41 41 25 b8 31 88 b9  0d 31 ba 18 58 31 25 3d  |=AA%.1...1..X1%=|
00006d90  78 25 28 54 25 29 3a 59  25 3d 79 25 28 54 25 29  |x%(T%):Y%=y%(T%)|
00006da0  0d 31 c4 3d e7 50 46 25  80 59 25 3c 50 42 25 20  |.1.=.PF%.Y%<PB% |
00006db0  e6 31 31 3a ec 30 2c 50  42 25 3a df 30 2c 50 54  |.11:.0,PB%:.0,PT|
00006dc0  25 3a e6 33 3a ec 30 2c  46 42 25 3a f0 38 35 2c  |%:.3:.0,FB%:.85,|
00006dd0  46 58 25 2c 46 59 25 3a  50 46 25 3d a3 0d 31 ce  |FX%,FY%:PF%=..1.|
00006de0  2a e7 28 94 58 31 25 3e  34 30 30 84 59 25 3e 2d  |*.(.X1%>400.Y%>-|
00006df0  37 30 38 29 80 94 58 31  25 3c 38 30 30 80 59 25  |708)..X1%<800.Y%|
00006e00  3e 2d 31 30 30 30 8c 0d  31 d8 41 78 25 3d 28 94  |>-1000..1.Ax%=(.|
00006e10  59 25 2d 94 7a 25 28 54  25 29 29 3e 3e 31 3a 79  |Y%-.z%(T%))>>1:y|
00006e20  25 3d 2d 78 25 3e 3e 32  3a 79 61 25 3d 79 25 2a  |%=-x%>>2:ya%=y%*|
00006e30  31 2e 35 3a 78 61 25 3d  78 25 3e 3e 34 3a 79 64  |1.5:xa%=x%>>4:yd|
00006e40  25 3d 79 61 25 3e 3e 32  0d 31 e2 2b e6 74 72 25  |%=ya%>>2.1.+.tr%|
00006e50  21 28 28 28 70 78 25 2b  31 29 80 33 29 2a 34 29  |!(((px%+1).3)*4)|
00006e60  3a c8 93 c8 90 58 31 25  2c 59 25 2c 2d 78 61 25  |:....X1%,Y%,-xa%|
00006e70  2c 79 25 0d 31 ec 2a e6  74 72 25 21 28 28 28 70  |,y%.1.*.tr%!(((p|
00006e80  78 25 2b 32 29 80 33 29  2a 34 29 3a c8 93 c8 90  |x%+2).3)*4):....|
00006e90  58 31 25 2c 59 25 2c 78  61 25 2c 79 25 0d 31 f6  |X1%,Y%,xa%,y%.1.|
00006ea0  31 59 25 2b 3d 79 25 3a  78 61 25 3d 78 61 25 2a  |1Y%+=y%:xa%=xa%*|
00006eb0  32 3a 7a 25 28 54 25 29  3d a3 3a 78 25 3d 78 25  |2:z%(T%)=.:x%=x%|
00006ec0  2a 2e 38 3a 78 61 25 3d  78 61 25 2a 2e 38 0d 32  |*.8:xa%=xa%*.8.2|
00006ed0  00 26 d6 70 6c 6f 74 74  72 65 65 2c 78 61 25 2c  |.&.plottree,xa%,|
00006ee0  79 25 2c 78 25 2c 58 31  25 2c 59 25 2c 79 61 25  |y%,x%,X1%,Y%,ya%|
00006ef0  2c 79 64 25 0d 32 0a 0e  cc 20 7a 25 28 54 25 29  |,yd%.2... z%(T%)|
00006f00  3d b9 0d 32 14 05 cd 0d  32 1e 05 ed 0d 32 28 05  |=..2....2....2(.|
00006f10  e1 0d 32 32 07 f4 20 15  0d 32 3c 0e dd f2 69 6e  |..22.. ..2<...in|
00006f20  69 74 69 61 74 65 0d 32  46 14 48 61 6e 64 25 3d  |itiate.2F.Hand%=|
00006f30  30 3a 67 72 65 65 6e 25  3d 30 0d 32 50 08 e6 30  |0:green%=0.2P..0|
00006f40  2c 31 0d 32 5a 10 f2 63  6f 6c 6f 75 72 73 28 31  |,1.2Z..colours(1|
00006f50  32 29 0d 32 64 0f de 72  65 64 25 28 31 33 2c 31  |2).2d..red%(13,1|
00006f60  29 0d 32 6e 12 de 20 43  4c 25 28 31 2c 31 32 2c  |).2n.. CL%(1,12,|
00006f70  31 32 29 0d 32 78 0f de  20 63 6f 64 65 20 26 39  |12).2x.. code &9|
00006f80  30 30 0d 32 82 0f de 20  6d 61 70 20 26 36 44 30  |00.2... map &6D0|
00006f90  30 0d 32 8c 1a ff 22 4c  2e 20 54 48 45 5f 4c 49  |0.2..."L. THE_LI|
00006fa0  4e 4b 53 20 22 2b c3 7e  6d 61 70 0d 32 96 0d de  |NKS "+.~map.2...|
00006fb0  20 70 61 72 62 20 32 30  0d 32 a0 1a de 20 78 25  | parb 20.2... x%|
00006fc0  28 39 36 29 2c 79 25 28  39 36 29 2c 7a 25 28 39  |(96),y%(96),z%(9|
00006fd0  36 29 0d 32 aa 23 de 54  58 25 28 31 33 29 2c 54  |6).2.#.TX%(13),T|
00006fe0  59 25 28 31 33 29 2c 41  24 28 31 33 29 2c 43 56  |Y%(13),A$(13),CV|
00006ff0  25 28 31 33 29 0d 32 b4  43 de 6d 78 25 28 31 2c  |%(13).2.C.mx%(1,|
00007000  31 29 2c 6d 79 25 28 31  29 2c 6d 25 28 38 2c 31  |1),my%(1),m%(8,1|
00007010  29 2c 62 61 67 25 28 31  29 2c 6e 61 6d 65 24 28  |),bag%(1),name$(|
00007020  36 29 2c 64 65 66 6e 61  6d 65 24 28 36 29 3a 70  |6),defname$(6):p|
00007030  6c 61 79 65 72 25 3d 31  0d 32 be 89 de 68 6f 6c  |layer%=1.2...hol|
00007040  65 73 63 6f 72 65 73 25  28 36 2c 31 38 29 2c 63  |escores%(6,18),c|
00007050  75 72 72 65 6e 74 78 25  28 36 29 2c 63 75 72 72  |urrentx%(6),curr|
00007060  65 6e 74 79 25 28 36 29  2c 63 75 72 72 65 6e 74  |enty%(6),current|
00007070  52 25 28 36 29 2c 63 75  72 72 65 6e 74 53 25 28  |R%(6),currentS%(|
00007080  36 29 2c 63 75 72 72 65  6e 74 73 25 28 36 29 2c  |6),currents%(6),|
00007090  74 6f 74 73 63 6f 72 65  25 28 36 29 2c 6f 6c 64  |totscore%(6),old|
000070a0  70 6f 73 25 28 36 29 2c  68 73 70 25 28 36 29 2c  |pos%(6),hsp%(6),|
000070b0  68 61 6e 64 25 28 36 29  2c 6a 75 6d 70 25 28 36  |hand%(6),jump%(6|
000070c0  29 0d 32 c8 10 de 43 28  34 35 29 2c 53 28 34 35  |).2...C(45),S(45|
000070d0  29 0d 32 d2 10 de 73 61  25 28 31 2c 32 2c 32 30  |).2...sa%(1,2,20|
000070e0  29 0d 32 dc 11 63 75 72  72 65 6e 74 73 25 28 29  |).2..currents%()|
000070f0  3d 31 0d 32 e6 0b e3 49  25 3d 32 b8 34 0d 32 f0  |=1.2...I%=2.4.2.|
00007100  0c e3 4e 25 3d 30 b8 32  30 0d 32 fa 1f 73 61 25  |..N%=0.20.2..sa%|
00007110  28 30 2c 49 25 2d 32 2c  4e 25 29 3d b3 28 49 25  |(0,I%-2,N%)=.(I%|
00007120  2a 38 29 2d 49 25 2a 34  0d 33 04 23 73 61 25 28  |*8)-I%*4.3.#sa%(|
00007130  31 2c 49 25 2d 32 2c 4e  25 29 3d 49 25 2a 31 32  |1,I%-2,N%)=I%*12|
00007140  2b 31 36 2b b3 28 49 25  29 2a 34 0d 33 0e 05 ed  |+16+.(I%)*4.3...|
00007150  0d 33 18 05 ed 0d 33 22  0c e3 54 25 3d 30 b8 34  |.3....3"..T%=0.4|
00007160  35 0d 33 2c 21 43 28 54  25 29 3d 9b b2 28 54 25  |5.3,!C(T%)=..(T%|
00007170  2a 38 29 3a 53 28 54 25  29 3d b5 b2 28 54 25 2a  |*8):S(T%)=..(T%*|
00007180  38 29 0d 33 36 05 ed 0d  33 40 28 6d 78 25 28 30  |8).36...3@(mx%(0|
00007190  2c 31 29 3d 2d 32 3a 6d  78 25 28 30 2c 30 29 3d  |,1)=-2:mx%(0,0)=|
000071a0  2d 39 36 3a 6d 79 25 28  30 29 3d 2d 37 32 38 0d  |-96:my%(0)=-728.|
000071b0  33 4a 2a 6d 78 25 28 31  2c 31 29 3d 2d 34 3a 6d  |3J*mx%(1,1)=-4:m|
000071c0  78 25 28 31 2c 30 29 3d  2d 36 34 3a 6d 79 25 28  |x%(1,0)=-64:my%(|
000071d0  31 29 3d 2d 31 33 31 32  31 0d 33 54 1c 62 61 67  |1)=-13121.3T.bag|
000071e0  25 28 30 29 3d 2d 31 39  36 3a 62 61 67 25 28 31  |%(0)=-196:bag%(1|
000071f0  29 3d 31 32 30 0d 33 5e  17 73 78 25 3d b9 3a 73  |)=120.3^.sx%=.:s|
00007200  79 25 3d b9 3a 72 3d 31  31 30 39 36 0d 33 68 0a  |y%=.:r=11096.3h.|
00007210  f7 20 8d 54 7a 74 0d 33  72 0c e3 54 25 3d 30 b8  |. .Tzt.3r..T%=0.|
00007220  31 33 0d 33 7c 23 f3 54  58 25 28 54 25 29 2c 54  |13.3|#.TX%(T%),T|
00007230  59 25 28 54 25 29 2c 41  24 28 54 25 29 2c 43 56  |Y%(T%),A$(T%),CV|
00007240  25 28 54 25 29 0d 33 86  05 ed 0d 33 90 0e f2 77  |%(T%).3....3...w|
00007250  65 6c 6c 69 65 28 30 29  0d 33 9a 17 e3 54 25 3d  |ellie(0).3...T%=|
00007260  31 b8 38 3a f3 6d 25 28  54 25 2c 31 29 3a ed 0d  |1.8:.m%(T%,1):..|
00007270  33 a4 24 e3 49 25 3d 30  b8 31 3a e3 54 25 3d 30  |3.$.I%=0.1:.T%=0|
00007280  b8 31 33 3a f3 72 65 64  25 28 54 25 2c 49 25 29  |.13:.red%(T%,I%)|
00007290  3a ed 2c 0d 33 ae 27 43  58 25 3d 30 3a 43 59 25  |:.,.3.'CX%=0:CY%|
000072a0  3d 30 3a 53 58 25 3d 30  3a 53 59 25 3d 30 3a 58  |=0:SX%=0:SY%=0:X|
000072b0  49 25 3d 30 3a 59 49 25  3d 30 0d 33 b8 25 68 25  |I%=0:YI%=0.3.%h%|
000072c0  3d 30 3a 78 31 25 3d 30  3a 79 31 25 3d 30 3a 4b  |=0:x1%=0:y1%=0:K|
000072d0  25 3d 30 3a 42 59 25 3d  30 3a 62 73 25 3d 30 0d  |%=0:BY%=0:bs%=0.|
000072e0  33 c2 16 64 65 66 6e 61  6d 65 24 28 31 29 3d 22  |3..defname$(1)="|
000072f0  4a 4f 48 4e 22 0d 33 cc  18 64 65 66 6e 61 6d 65  |JOHN".3..defname|
00007300  24 28 32 29 3d 22 47 45  4f 52 47 45 22 0d 33 d6  |$(2)="GEORGE".3.|
00007310  16 64 65 66 6e 61 6d 65  24 28 33 29 3d 22 50 41  |.defname$(3)="PA|
00007320  55 4c 22 0d 33 e0 17 64  65 66 6e 61 6d 65 24 28  |UL".3..defname$(|
00007330  34 29 3d 22 52 49 4e 47  4f 22 0d 33 ea 16 64 65  |4)="RINGO".3..de|
00007340  66 6e 61 6d 65 24 28 35  29 3d 22 4d 49 43 4b 22  |fname$(5)="MICK"|
00007350  0d 33 f4 17 64 65 66 6e  61 6d 65 24 28 36 29 3d  |.3..defname$(6)=|
00007360  22 4a 45 52 52 59 22 0d  33 fe 09 f2 63 6f 64 65  |"JERRY".3...code|
00007370  0d 34 08 0c 2a 50 4f 49  4e 54 45 52 0d 34 12 08  |.4..*POINTER.4..|
00007380  c8 97 20 87 0d 34 1c 10  c8 97 fb 31 2c 30 2c 32  |.. ..4.....1,0,2|
00007390  34 30 2c 30 0d 34 26 10  c8 97 fb 32 2c 30 2c 31  |40,0.4&....2,0,1|
000073a0  32 38 2c 30 0d 34 30 05  e1 0d 34 3a 12 dc 31 2c  |28,0.40...4:..1,|
000073b0  32 2c 31 20 57 4f 4f 44  2c 37 34 0d 34 44 12 dc  |2,1 WOOD,74.4D..|
000073c0  31 2c 33 2c 33 20 57 4f  4f 44 2c 37 30 0d 34 4e  |1,3,3 WOOD,70.4N|
000073d0  12 dc 31 2c 34 2c 35 20  57 4f 4f 44 2c 36 38 0d  |..1,4,5 WOOD,68.|
000073e0  34 58 12 dc 39 2c 32 2c  31 20 49 52 4f 4e 2c 36  |4X..9,2,1 IRON,6|
000073f0  37 0d 34 62 12 dc 39 2c  33 2c 32 20 49 52 4f 4e  |7.4b..9,3,2 IRON|
00007400  2c 36 35 0d 34 6c 12 dc  39 2c 34 2c 33 20 49 52  |,65.4l..9,4,3 IR|
00007410  4f 4e 2c 36 33 0d 34 76  12 dc 39 2c 35 2c 34 20  |ON,63.4v..9,5,4 |
00007420  49 52 4f 4e 2c 36 31 0d  34 80 12 dc 39 2c 36 2c  |IRON,61.4...9,6,|
00007430  35 20 49 52 4f 4e 2c 35  39 0d 34 8a 12 dc 39 2c  |5 IRON,59.4...9,|
00007440  37 2c 36 20 49 52 4f 4e  2c 35 37 0d 34 94 13 dc  |7,6 IRON,57.4...|
00007450  31 37 2c 32 2c 37 20 49  52 4f 4e 2c 35 35 0d 34  |17,2,7 IRON,55.4|
00007460  9e 13 dc 31 37 2c 33 2c  38 20 49 52 4f 4e 2c 35  |...17,3,8 IRON,5|
00007470  33 0d 34 a8 13 dc 31 37  2c 34 2c 39 20 49 52 4f  |3.4...17,4,9 IRO|
00007480  4e 2c 34 38 0d 34 b2 12  dc 31 37 2c 36 2c 57 45  |N,48.4...17,6,WE|
00007490  44 47 45 2c 34 31 0d 34  bc 13 dc 31 37 2c 37 2c  |DGE,41.4...17,7,|
000074a0  50 55 54 54 45 52 2c 36  30 0d 34 c6 18 dc 39 2c  |PUTTER,60.4...9,|
000074b0  31 30 2c 31 30 2c 31 31  2c 31 31 2c 39 2c 39 2c  |10,10,11,11,9,9,|
000074c0  39 0d 34 d0 2f dc 33 30  2c 34 30 2c 34 38 2c 35  |9.4./.30,40,48,5|
000074d0  35 2c 36 31 2c 36 36 2c  37 31 2c 37 36 2c 38 31  |5,61,66,71,76,81|
000074e0  2c 38 35 2c 38 39 2c 39  33 2c 39 36 2c 31 30 30  |,85,89,93,96,100|
000074f0  0d 34 da 27 dc 31 2c 31  2c 31 2c 31 2c 31 2c 31  |.4.'.1,1,1,1,1,1|
00007500  2c 31 35 2c 34 30 2c 35  35 2c 36 36 2c 37 36 2c  |,15,40,55,66,76,|
00007510  38 35 2c 39 33 2c 31 0d  34 e4 07 f4 20 15 0d 34  |85,93,1.4... ..4|
00007520  ee 11 dd f2 63 6f 6c 6f  75 72 73 28 4d 25 29 0d  |....colours(M%).|
00007530  34 f8 0c c8 96 3a eb 4d  25 3a 87 0d 35 02 0d f2  |4....:.M%:..5...|
00007540  6d 61 69 6e 63 6f 6c 73  0d 35 0c 0f ef 32 33 2c  |maincols.5...23,|
00007550  31 37 2c 34 2c 31 7c 0d  35 16 29 ef 32 33 2c 32  |17,4,1|.5.).23,2|
00007560  2c 26 45 46 2c 26 46 45  2c 26 45 46 2c 26 46 45  |,&EF,&FE,&EF,&FE|
*
00007580  0d 35 20 29 ef 32 33 2c  33 2c 26 31 32 2c 26 32  |.5 ).23,3,&12,&2|
00007590  31 2c 26 31 32 2c 26 32  31 2c 26 31 32 2c 26 32  |1,&12,&21,&12,&2|
000075a0  31 2c 26 31 32 2c 26 32  31 0d 35 2a 29 ef 32 33  |1,&12,&21.5*).23|
000075b0  2c 34 2c 26 43 30 2c 26  30 43 2c 26 43 30 2c 26  |,4,&C0,&0C,&C0,&|
000075c0  30 43 2c 26 43 30 2c 26  30 43 2c 26 43 30 2c 26  |0C,&C0,&0C,&C0,&|
000075d0  30 43 0d 35 34 29 ef 32  33 2c 35 2c 26 44 34 2c  |0C.54).23,5,&D4,|
000075e0  26 34 44 2c 26 44 34 2c  26 34 44 2c 26 44 34 2c  |&4D,&D4,&4D,&D4,|
000075f0  26 34 44 2c 26 44 34 2c  26 34 44 0d 35 3e 05 e1  |&4D,&D4,&4D.5>..|
00007600  0d 35 48 0e dd f2 6d 61  69 6e 63 6f 6c 73 0d 35  |.5H...maincols.5|
00007610  52 07 f4 20 15 0d 35 5c  14 fb 30 2c 30 2c 30 2c  |R.. ..5\..0,0,0,|
00007620  30 3a f4 20 42 4c 41 43  4b 0d 35 66 1c fb 31 2c  |0:. BLACK.5f..1,|
00007630  31 37 36 2c 31 32 38 2c  30 3a f4 20 44 41 52 4b  |176,128,0:. DARK|
00007640  20 53 41 4e 44 0d 35 70  1e fb 32 2c 31 37 36 2c  | SAND.5p..2,176,|
00007650  31 36 30 2c 34 38 3a f4  20 4c 49 47 48 54 20 53  |160,48:. LIGHT S|
00007660  41 4e 44 0d 35 7a 1a fb  33 2c 32 30 38 2c 31 36  |AND.5z..3,208,16|
00007670  30 2c 31 34 34 3a f4 20  46 4c 45 53 48 0d 35 84  |0,144:. FLESH.5.|
00007680  19 fb 34 2c 31 34 34 2c  31 34 34 2c 31 34 34 3a  |..4,144,144,144:|
00007690  f4 20 50 41 54 48 0d 35  8e 17 fb 35 2c 31 36 2c  |. PATH.5...5,16,|
000076a0  32 30 38 2c 30 3a f4 20  47 52 45 45 4e 0d 35 98  |208,0:. GREEN.5.|
000076b0  19 fb 36 2c 33 32 2c 31  34 34 2c 32 30 38 3a f4  |..6,32,144,208:.|
000076c0  20 57 41 54 45 52 0d 35  a2 18 fb 37 2c 30 2c 31  | WATER.5...7,0,1|
000076d0  36 30 2c 30 3a f4 20 46  41 49 52 57 41 59 0d 35  |60,0:. FAIRWAY.5|
000076e0  ac 14 fb 38 2c 32 30 38  2c 30 2c 30 3a f4 20 52  |...8,208,0,0:. R|
000076f0  45 44 0d 35 b6 16 fb 39  2c 30 2c 31 31 32 2c 30  |ED.5...9,0,112,0|
00007700  3a f4 20 52 4f 55 47 48  0d 35 c0 18 fb 31 30 2c  |:. ROUGH.5...10,|
00007710  39 36 2c 31 39 32 2c 32  32 34 3a f4 20 53 4b 59  |96,192,224:. SKY|
00007720  0d 35 ca 1b fb 31 31 2c  32 34 30 2c 32 34 30 2c  |.5...11,240,240,|
00007730  32 34 30 3a f4 20 57 48  49 54 45 0d 35 d4 1d fb  |240:. WHITE.5...|
00007740  31 32 2c 38 30 2c 34 38  2c 31 36 3a f4 20 44 41  |12,80,48,16:. DA|
00007750  52 4b 20 42 52 4f 57 4e  0d 35 de 1e fb 31 33 2c  |RK BROWN.5...13,|
00007760  39 36 2c 36 34 2c 34 38  3a f4 20 4c 49 47 48 54  |96,64,48:. LIGHT|
00007770  20 42 52 4f 57 4e 0d 35  e8 24 fb 31 34 2c 31 36  | BROWN.5.$.14,16|
00007780  2c 36 34 2c 34 38 3a f4  20 44 41 52 4b 20 47 52  |,64,48:. DARK GR|
00007790  45 45 4e 20 28 54 52 45  45 29 0d 35 f2 26 fb 31  |EEN (TREE).5.&.1|
000077a0  35 2c 30 2c 39 36 2c 36  34 3a f4 20 4c 49 47 48  |5,0,96,64:. LIGH|
000077b0  54 45 52 20 47 52 45 45  4e 20 28 54 52 45 45 29  |TER GREEN (TREE)|
000077c0  0d 35 fc 05 e1 0d 36 06  07 f4 20 15 0d 36 10 0d  |.5....6... ..6..|
000077d0  dd f2 70 6f 69 6e 74 65  72 0d 36 1a 15 de 70 61  |..pointer.6...pa|
000077e0  72 20 32 30 2c 62 6c 6f  63 6b 20 31 31 32 0d 36  |r 20,block 112.6|
000077f0  24 09 f7 8d 74 52 76 0d  36 2e 1b e3 54 25 3d 30  |$...tRv.6...T%=0|
00007800  b8 31 30 38 88 34 3a f3  62 6c 6f 63 6b 21 54 25  |.108.4:.block!T%|
00007810  3a ed 0d 36 38 0a 3f 70  61 72 3d 30 0d 36 42 0b  |:..68.?par=0.6B.|
00007820  70 61 72 3f 31 3d 32 0d  36 4c 0b 70 61 72 3f 32  |par?1=2.6L.par?2|
00007830  3d 38 0d 36 56 0c 70 61  72 3f 33 3d 31 34 0d 36  |=8.6V.par?3=14.6|
00007840  60 0c 70 61 72 3f 34 3d  31 36 0d 36 6a 0b 70 61  |`.par?4=16.6j.pa|
00007850  72 3f 35 3d 37 0d 36 74  0f 70 61 72 21 36 3d 62  |r?5=7.6t.par!6=b|
00007860  6c 6f 63 6b 0d 36 7e 07  eb 31 32 0d 36 88 2a 41  |lock.6~..12.6.*A|
00007870  25 3d 32 31 3a 42 25 3d  70 61 72 3a 43 25 3d 70  |%=21:B%=par:C%=p|
00007880  61 72 20 81 32 35 36 3a  c8 99 20 37 2c 41 25 2c  |ar .256:.. 7,A%,|
00007890  42 25 2c 43 25 0d 36 92  b4 dc 26 41 41 41 41 2c  |B%,C%.6...&AAAA,|
000078a0  26 41 41 41 41 30 30 30  30 2c 26 39 35 35 36 2c  |&AAAA0000,&9556,|
000078b0  26 39 35 35 36 30 30 30  30 2c 26 41 41 39 36 2c  |&95560000,&AA96,|
000078c0  26 39 36 41 41 30 30 30  30 2c 26 41 36 2c 26 39  |&96AA0000,&A6,&9|
000078d0  41 30 30 30 30 30 30 2c  26 32 41 2c 26 41 38 30  |A000000,&2A,&A80|
000078e0  30 30 30 30 30 2c 26 30  2c 26 30 2c 26 30 2c 26  |00000,&0,&0,&0,&|
000078f0  30 2c 26 30 2c 26 30 2c  26 30 2c 26 30 2c 26 32  |0,&0,&0,&0,&0,&2|
00007900  41 2c 26 41 38 30 30 30  30 30 30 2c 26 41 36 2c  |A,&A8000000,&A6,|
00007910  26 39 41 30 30 30 30 30  30 2c 26 41 41 39 36 2c  |&9A000000,&AA96,|
00007920  26 39 36 41 41 30 30 30  30 2c 26 39 35 35 36 2c  |&96AA0000,&9556,|
00007930  26 39 35 35 36 30 30 30  30 2c 26 41 41 41 41 2c  |&95560000,&AAAA,|
00007940  26 41 41 41 41 30 30 30  30 0d 36 9c 05 e1 0d 36  |&AAAA0000.6....6|
00007950  a6 07 f4 20 15 0d 36 b0  0a dd f2 63 6f 64 65 0d  |... ..6....code.|
00007960  36 ba 1f ff 28 22 4c 4f  41 44 20 68 6f 6c 65 64  |6...("LOAD holed|
00007970  6f 75 74 34 20 22 2b c3  7e 63 6f 64 65 29 0d 36  |out4 "+.~code).6|
00007980  c4 16 70 6c 6f 74 62 61  6c 6c 3d 63 6f 64 65 2b  |..plotball=code+|
00007990  26 31 38 38 0d 36 ce 11  70 6c 6f 74 74 72 65 65  |&188.6..plottree|
000079a0  3d 63 6f 64 65 0d 36 d8  12 73 6f 72 74 3d 63 6f  |=code.6..sort=co|
000079b0  64 65 2b 26 37 45 30 0d  36 e2 11 70 78 25 3d 63  |de+&7E0.6..px%=c|
000079c0  6f 64 65 2b 26 31 35 38  0d 36 ec 11 74 72 25 3d  |ode+&158.6..tr%=|
000079d0  63 6f 64 65 2b 26 31 34  38 0d 36 f6 12 74 72 65  |code+&148.6..tre|
000079e0  78 3d 63 6f 64 65 2b 26  34 42 38 0d 37 00 12 74  |x=code+&4B8.7..t|
000079f0  72 65 79 3d 63 6f 64 65  2b 26 36 33 43 0d 37 0a  |rey=code+&63C.7.|
00007a00  05 e1 0d 37 14 10 06 2a  52 55 4e 20 44 52 49 56  |...7...*RUN DRIV|
00007a10  45 52 0d ff                                       |ER..|
00007a14