Home » Personal collection » Acorn DFS disks » dfs_box03_disk06b_games_4_backup.scp » 2.GOLF

2.GOLF

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Personal collection » Acorn DFS disks » dfs_box03_disk06b_games_4_backup.scp
Filename: 2.GOLF
Read OK:
File size: 1A72 bytes
Load address: 1900
Exec address: 1900
Duplicates

There is 1 duplicate copy of this file in the archive:

File contents
    0 CLEAR
    5 ON ERROR GOTO 9000
    9MODE1:VDU23,254,&11,0,&44,0,&11,0,&44,0,23,255,&11,0,&40,0,&01,0,&44,0,23,253;0;0;0;0,23,252,0;&3C,&7E,&7E,&3C,0,0
   14VDU23,247,&18,&2C,&6E,&EF,&2C,&6E,&FF,&18,23,250,&FF,&FE,&FC,&F8,&F0,&C0,&80,0,23,249,&3E,&6B,&D6,&EB,&D7,&EB,&76,&7C,23,248,&3F,&3F,&3F,&3F,&3F,&3F,&3F,&3F
   15VDU23,246,&18,&24,&42,&42,&91,&52,&99,&18:K1=1:L$="444354443454344544"
   31DIM XX(1),YY(1),QQ(1),BB(1),A(18,1),E(8),U(3),FW(39,1),GN(5,1),BK(24,1),TR(12,1),ST(27):E(0)=252:E(1)=42:P=0
   39D$="367445314189520331468375177424562336208447298543385478"
   60VDU19,0,5,0;0;0:CLS:PRINTTAB(9,3)"****GOLF****"'''''"      Welcome to the Links!!"
   65PRINTTAB(6,12)"One or Two Players";:INPUTI$:IFI$<>"1"AND I$<>"2"THEN65
   66AA=0:IFI$="1"AA=1
  100FORN=2TO3-AA
  120PRINTTAB(1,15);"Player ";N-1;",What is your handicap(1-30)";:INPUTI$:H=VAL(I$):IFH<1ORH>30THEN120
  160E(N+2)=H:PRINTTAB(6,18);"Difficulties at Golf"''"        1. Hooking"'"        2. Slicing"'"        3. Poor Distance"'"        4. Bunkers"'"        5. Putting"'"        6. Conceit"
  170PRINTTAB(6,27)"What's yours ";:INPUT I$:J=VAL(I$):IFJ<1ORJ>6THEN170
  180E(N)=J:NEXT:N=0
  270L1=P:IFAA P=0
  400N=N+1:D=VAL(MID$(D$,(N*3-2),3)):PA=VAL(MID$(L$,N,1)):VDU12:PRINTTAB(1,4):M1=M1+PA:VDU19,0,2,0,0,0,19,1,4,0,0,0,19,2,3,0,0,0
  405FOR I=1TO22:PRINTSTRING$(40,"�");:NEXT:PRINT'" HOLE  ";N;"     DISTANCE ";D;" YDS    PAR ";PA
  450T=12:S=5:C=1:FORB=0TO39:FORJ=1TOS:B1=T+J:PRINTTAB(B,B1);CHR$(254);:NEXT:FW(B,0)=T:FW(B,1)=T+S:Y=RND(4):S=S+Y:IFS<4ORS>7THENS=S-Y
  490Y=RND(2)-1:IFT+Y*C+S<27:T=T+Y*C
  495C=-C:NEXT
  500S=5:T=T+2:FORB=35TO39:GN((B-35),0)=T:FORJ=1TOS:O$=CHR$(253):IFB=37ANDJ=3:O$="+":E1=T
  520PRINTTAB(B,T);O$;:T=T+C:NEXT:K%=B-35:GN(K%,1)=T:T=T-C:IFGN(K%,0)>GN(K%,1)THEN K=GN(K%,0):GN(K%,0)=GN(K%,1):GN(K%,1)=K
  530Y=RND(3)-2:S=S+Y:IFS<4ORS>8 S=S-Y:GOTO530
  550Y=RND(3)-2:T=T+Y:C=-C:NEXTB:O=7:K=0:FORI=0TO24:BK(I,0)=0:BK(I,1)=0:NEXT
  555J=6+RND(6):FORI=1TOJ:B=O+RND(4):B1=RND(22):IFFW(B,0)>B1 OR FW(B,1)<B1 GOTO580
  560COLOUR2:PRINTTAB(B,B1);CHR$(249);:BK((I+K),0)=B:BK((I+K),1)=B1:COLOUR7
  580NEXT:IFO=7 THEN O=28:K=12:GOTO555
  600FORJ=0TO3:U(J)=0:NEXT:IFAA THENU(1)=1:U(3)=1
  610IFRND(10)>6THENGOSUB1100
  615IFD>450 AND D<550THENGOSUB1200
  620PRINTTAB(1,15);"T":X=0:Y=30:V=75:W=E1*2:Q=0:U(P)=1:CC$=CHR$(254)
  625G=E(P):F=E(P+2):H=E(P+4):G1=G
  630A1=100
  640GOSUB2000:PRINT "Player(";P+1;") ";CHR$(G);" Choose a Club"'"    (1W-4W Woods:1-9 Irons)";:INPUTI$:C=VAL(I$)
  645IFMID$(I$,2,1)="W"THEN C=VAL(LEFT$(I$,1)):GOTO660
  650C=VAL(I$)+10
  660IF(C>0ANDC<5)OR(C>10ANDC<20)GOTO700
  690GOTO640
  700L1=0:IFC<15B=100:GOTO1500
  710PRINTTAB(2,3)"%Age (7-99) of full swing ";:INPUTI$:B=VAL(I$):IFB<7ORB>99THEN710
  760B=B/100:IFF=3B=B*.85
  770B=B*A1/100:IFC>2B=B*.7
  800Z=RND(12):M=309-Z-(H+30)*.7-C*8.3
  810M=INT((B*M*75/D)+.5):F1=0:Q=Q+1:B=1:PRINTTAB(1,15);Q:@%=2:PRINTTAB(1,30);"Strokes:    Player(1) ";:IFP=0THENPRINTBB(0)+Q;
  814IFP=1THENPRINTBB(0);
  815IFAA THEN825
  818PRINT":Player(2) ";:IFP=0THENPRINTBB(1);
  820IFP=1THENPRINTBB(1)+Q;
  825IFRND(10)>3+H/9THEN880
  840F1=(H+30)*RND(10)*PI/5
  850IFF>2J=5:GOTO870
  860F1=F1*1.5:J=9:IFF=2 J=1
  870IFRND(10)>J F1=-F1
  875F1=F1/1000
  880IFV=X THENI1=PI/2:X=X-SGN(Y-W):GOTO888
  885I1=ATN((Y-W)/(V-X))+F1-L1
  888J=X+SGN(V-X)*INT(M*COS(I1)+.5)*K1:Y=Y-SGN(V-X)*INT(M*SIN(I1)+.5):X=J
  905K1=1:IFX<0ORX>79ORY<9ORY>50GOTO1300
  920X1=INT(X/2):Y1=INT(Y/2):IFQ>1THENCOLOURC%:PRINTTAB(X2,Y2);CC$
  925C%=7:COLOUR7:PRINTTAB(X1,Y1);:FORI=40TO20STEP-2:SOUND3,-15,I,2:PRINTCHR$(G);:VDU 8:FORJ=0TO99:NEXT:PRINTCC$;:VDU8:FORJ=0TO99:NEXT:NEXT:PRINT CHR$(G)
  930X2=X1:Y2=Y1:XX(P)=X:YY(P)=Y:CC$=CHR$(254)
  980IFX1=37ANDY1=E1:SOUND0,-15,1,5:GOSUB2000:PRINT"YOU HOLED OUT!!!":GOTO6400
  990CC$=CHR$(254):IFX1>34:IFGN((X1-35),0)<=Y1 ANDGN((X1-35),1)>=Y1 THEN6560
  994FORI=1TO24:IFBK(I,0)=X1 AND BK(I,1)=Y1 THENI=24:NEXT:CC$=CHR$(249):C%=2:GOTO7500
  995NEXT:FORI=0TO12:IFTR(I,0)=X1 ANDTR(I,1)=Y1:I=12:NEXT:CC$=CHR$(246):GOTO8010
  996NEXT:IFD>450AND D<550:IFST(Y1)=X1 THEN8500
 1000IFFW(X1,0)>Y1 ORFW(X1,1)<Y1 THENCC$=CHR$(255):GOTO7100
 1020GOTO640
 1100Z=RND(11)+13:T=1:FORJ=3TO8:IFFW(Z,0)<J ANDFW(Z,1)>J:K=J+8:J=8:NEXT:T=-1:GOTO1120
 1115NEXT:K=8
 1120FORB=1TO12:TR(B,0)=0:TR(B,1)=0:NEXT:COLOUR1
 1130FORB=1TO12:U=Z+RND(8):U1=K+T*RND(5):COLOUR(ABS(RND(3)-2)*2)+1:CC$=CHR$(246+RND(2)-1)
 1140PRINTTAB(U,U1)CC$:TR(B,0)=U:TR(B,1)=U1:NEXT:COLOUR7:RETURN
 1200B=8+RND(8):M=1:IFRND(10)<6B=B+13:M=-M
 1250MOVE(B*32-20),(5*32+16):ST(26)=B-1:GCOL0,1
 1270FORJ=6TO26:PLOT5,(B*32-10),(J*32+16):MOVE((ST(32-J)+1)*32-20),((J-1)*32+16):PLOT5,(B*32-20),(J*32+16):ST(31-J)=B-1:IFRND(10)>4:B=B+M
 1290NEXT:RETURN
 1300IFX>90GOTO1360
 1320IFX>79THENX=79
 1330IFY>=9ANDY<50GOTO1410
 1340IFY>50ANDY<64THENY=50:GOTO1410
 1350IFY<9ANDY>-11THENY=0:GOTO1410
 1360PRINTTAB(X2,Y2)CC$;:GOSUB2000:PRINT "LOST BALL ";
 1380PRINT"-  PENALTY 6";:Q=Q+6:GOTO6409
 1410GOSUB2000:PRINT" OUT OF BOUNDS-PENALTY 1";:Q=Q+1:GOTO920
 1500PRINTTAB(2,3);"Hook or Slice(H/S)";:INPUTI$:IFI$="H":L1=-.15
 1505IFI$="S" THEN L1=.15
 1510GOTO760
 2000I$="":PRINTTAB(2,1)SPC(118)TAB(2,1);:RETURN
 2500TM=TIME+300:REPEAT:UNTIL TM=TIME:RETURN
 6040VDU12:PRINT'''''"  ";CHR$(E(P));" On the Green in ";Q;:IFJ1=7 PRINT"   --- SLOW GREEN"
 6050F=E(P+2):IF J1=13 PRINT"   --- FAST GREEN"
 6060VDU19,1,1,0,0,0,19,0,6,0,0,0,19,2,2,0,0,0:T=23:M=1:I1=1:IF F=5 M=3 
 6070MOVE0,0:GCOL0,2:PLOT5,0,252:PLOT5,1276,252:PLOT85,1276,0:PLOT5,0,0:PLOT85,0,252
 6080COLOUR1:PRINTTAB(29,22);CHR$(248);CHR$(250):COLOUR7:PRINTTAB(29,23);"!";
 6110IF(X<>V)AND(Y<>W)O=(D/40)*SQR((ABS(X-V)^2+ABS(Y-W)^2))
 6120IFO>58:O=55+RND(3)
 6125IFO=0THENO=2
 6130O=INT(O):J=INT(29-O/2):PRINTTAB(J,T);CHR$(252)
 6140PRINTTAB(3,8);"Player(";P+1;")          ";TAB(15,8);O;TAB(18,8);"ft to the Pin"''"     - Choose putting strength(0-15)   ";:VDU8,8,8:INPUT I$:C=VAL(I$):IF C<0 OR C>15GOTO6140
 6220Q=Q+1:C=C*(4+M*RND(1))-2.5+(RND(1)*(H+30)/40)*M:C=INT(C*J1/10)+1:M=M*.8
 6250FORB=1TOC:O=O-1:S=29-INT(O*I1/2):FORJ=1TOB*10:NEXT:SOUND0,-15,(J*5),1:IFS>39THENS=39
 6270PRINTTAB(S,T);CHR$(252);TAB(S-I1,T);" ";:IFS<>29 THENPRINTTAB(29,T);"!"
 6290NEXT:IFO<0:I1=-I1:O=-O
 6305IFS<>29 GOTO6140
 6310PRINTTAB(28,T)" I ":SOUND0,-15,1,5
 6330PRINTTAB(0,5)SPC(240):GOTO6405
 6400GOSUB2500
 6405GOSUB2000:PRINT"DOWN IN ";Q;"    ";
 6409BB(P)=BB(P)+Q:A(N,P)=Q:J=Q-PA:IFQ=1THEN PRINT"WOW-WEE!!A HOLE IN ONE!!";:GOTO6510
 6410IFJ=1PRINT"A BOGIE  - TRY HARDER!!";
 6430IFJ=0PRINT"A PAR  -  NICE GOING";
 6440IF J=-1 VDU8:PRINT"A BIRDIE  -  WELL PLAYED";
 6445IFJ=-3VDU8:VDU8:VDU8:PRINT"AN ALBATROS?YES!!ALBATROS!!";
 6450IFJ=-2PRINT"A GREAT BIG EAGLE!!!!";
 6510B1=BB(P):PRINT''"  Player(";P+1;") ";:IFB1=M1 PRINT"  LEVEL PAR";:GOTO6530
 6520@%=2:PRINTABS(M1-B1);:IFB1<M1 PRINT" Under par";
 6526IFB1>M1 PRINT" Over par";
 6530PRINT" after ";N;" Holes":U(P+2)=1:GOTO6570
 6560J1=7:IFRND(10)>6THEN J1=10:GOTO6570
 6562IFRND(10)>5 J1=13
 6570VDU 30:XXX=GET:FORJ=0TO3:IFU(J)=0 THEN J=3:NEXT:GOTO6575
 6571NEXT:P=L1:IFA(N,0)<A(N,1) P=0
 6572IF A(N,0)>A(N,1) P=1
 6573IFN<18 GOTO270
 6574GOTO7000
 6575QQ(P)=Q:J=P:P=1:IFJ=1 P=0
 6576IF U(P)=0 GOTO620
 6577Q=QQ(P):X=XX(P):Y=YY(P):IFU(P+2)=0 GOTO6040
 6580J=P:P=1:IFJ=1 P=0
 6585GOTO6577
 7000VDU12,19,0,5,0;0;0:PRINT''"       **** SCORE CARD ****"''SPC17"Player(1)";:IF AA=0:PRINT" Player(2)";
 7001PRINT'"   Handicap          ";E(4);:IF AA=0THENPRINTTAB(31,5);E(5);
 7003PRINT'"   Weakness          ";E(2);:IF AA=0 THENPRINTTAB(31,6); E(3);
 7004PRINT'"   HOLE    PAR";
 7009@%=6
 7010FORN=1TO18:PA=VAL(MID$(L$,N,1))
 7015PRINT'N;"      ";PA;"        ";A(N,0);:IFA(N,0)<PA THEN PRINT" <";
 7020IF AA=0 THEN PRINTTAB(31,(N+7));A(N,1);:IFA(N,1)<PA THEN PRINT" <";
 7030NEXT:PRINT'"  Total    72";"        ";BB(0);:IFBB(0)<72THENPRINT" <";
 7035IFAA=0THENPRINTTAB(31,26);BB(1);:IFBB(1)<72THENPRINT" <";
 7040PRINT''"  SEE YOU AT THE 19TH"
 7050END
 7100GOSUB2000:IFABS(Y1-17)>10:A1=50:PRINT"IN HEAVY ROUGH";:GOTO7130
 7120A1=75:PRINT"IN LIGHT ROUGH";
 7130GOSUB2500:CC$=CHR$(255):GOTO640
 7500GOSUB2000:PRINT" ****BUNKERED****";:INPUT"   Choose a club ? "I$
 7520C=VAL(LEFT$(I$,1)):IFC<1ORC>9 OR MID$(I$,2,1)="W" THENGOSUB2000:PRINT" You won't get out with THAT!!":GOSUB2500:GOTO7500
 7550C=C+10
 7590PRINTTAB(2,3);:INPUT" %age swing (01-99) ? "I$:B=VAL(I$):IFB<0 OR B>99 THEN 7590
 7610M=68+RND(17)-(19-C)*5-(100-B)*.4:IFF=4THEN M=M*.7
 7625IF RND(10)<4 THEN M=M/3
 7635GOSUB2000:IFM>25THENL1=0:B=1:GOTO810
 7640Q=Q+1:GOTO7500
 8010GOSUB2000:PRINT"IN THE TREES!!":K1=0:GOSUB2500:GOTO640
 8500GOSUB2000:SOUND1,-15,200,10:PRINT"SPLASH!!! In the Stream ";:GOTO1380
 9000 GOTO ERL
 �
 � � � �Thc
	q�1:�23,254,&11,0,&44,0,&11,0,&44,0,23,255,&11,0,&40,0,&01,0,&44,0,23,253;0;0;0;0,23,252,0;&3C,&7E,&7E,&3C,0,0
��23,247,&18,&2C,&6E,&EF,&2C,&6E,&FF,&18,23,250,&FF,&FE,&FC,&F8,&F0,&C0,&80,0,23,249,&3E,&6B,&D6,&EB,&D7,&EB,&76,&7C,23,248,&3F,&3F,&3F,&3F,&3F,&3F,&3F,&3F
H�23,246,&18,&24,&42,&42,&91,&52,&99,&18:K1=1:L$="444354443454344544"
n� XX(1),YY(1),QQ(1),BB(1),A(18,1),E(8),U(3),FW(39,1),GN(5,1),BK(24,1),TR(12,1),ST(27):E(0)=252:E(1)=42:P=0
'?D$="367445314189520331468375177424562336208447298543385478"
<K�19,0,5,0;0;0:�:�9,3)"****GOLF****"'''''"      Welcome to the Links!!"
A;�6,12)"One or Two Players";:�I$:�I$<>"1"� I$<>"2"��DA@
BAA=0:�I$="1"AA=1
d
�N=2�3-AA
xT�1,15);"Player ";N-1;",What is your handicap(1-30)";:�I$:H=�(I$):�H<1�H>30��Dx@
��E(N+2)=H:�6,18);"Difficulties at Golf"''"        1. Hooking"'"        2. Slicing"'"        3. Poor Distance"'"        4. Bunkers"'"        5. Putting"'"        6. Conceit"
�6�6,27)"What's yours ";:� I$:J=�(I$):�J<1�J>6��tj@
�E(N)=J:�:N=0
L1=P:�AA P=0
�hN=N+1:D=�(�D$,(N*3-2),3)):PA=�(�L$,N,1)):�12:�1,4):M1=M1+PA:�19,0,2,0,0,0,19,1,4,0,0,0,19,2,3,0,0,0
�L� I=1�22:��40,"�");:�:�'" HOLE  ";N;"     DISTANCE ";D;" YDS    PAR ";PA
�jT=12:S=5:C=1:�B=0�39:�J=1�S:B1=T+J:�B,B1);�(254);:�:FW(B,0)=T:FW(B,1)=T+S:Y=�(4):S=S+Y:�S<4�S>7�S=S-Y
� Y=�(2)-1:�T+Y*C+S<27:T=T+Y*C
�
C=-C:�
�LS=5:T=T+2:�B=35�39:GN((B-35),0)=T:�J=1�S:O$=�(253):�B=37�J=3:O$="+":E1=T
k�B,T);O$;:T=T+C:�:K%=B-35:GN(K%,1)=T:T=T-C:�GN(K%,0)>GN(K%,1)� K=GN(K%,0):GN(K%,0)=GN(K%,1):GN(K%,1)=K
'Y=�(3)-2:S=S+Y:�S<4�S>8 S=S-Y:�TRB
&@Y=�(3)-2:T=T+Y:C=-C:�B:O=7:K=0:�I=0�24:BK(I,0)=0:BK(I,1)=0:�
+DJ=6+�(6):�I=1�J:B=O+�(4):B1=�(22):�FW(B,0)>B1 � FW(B,1)<B1 �DDB
06�2:�B,B1);�(249);:BK((I+K),0)=B:BK((I+K),1)=B1:�7
D�:�O=7 � O=28:K=12:�TkB
X&�J=0�3:U(J)=0:�:�AA �U(1)=1:U(3)=1
b�(10)>6��DLD
g�D>450 � D<550��tpD
l:�1,15);"T":X=0:Y=30:V=75:W=E1*2:Q=0:U(P)=1:CC$=�(254)
q!G=E(P):F=E(P+2):H=E(P+4):G1=G
v
A1=100
�_�dPG:� "Player(";P+1;") ";�(G);" Choose a Club"'"    (1W-4W Woods:1-9 Irons)";:�I$:C=�(I$)
�$�I$,2,1)="W"� C=�(�I$,1)):�tTB
�C=�(I$)+10
��(C>0�C<5)�(C>10�C<20)�t|B
�	�t@B
�L1=0:�C<15B=100:�d\E
�B�2,3)"%Age (7-99) of full swing ";:�I$:B=�(I$):�B<7�B>99��dFB
�B=B/100:�F=3B=B*.85
B=B*A1/100:�C>2B=B*.7
 #Z=�(12):M=309-Z-(H+30)*.7-C*8.3
*eM=�((B*M*75/D)+.5):F1=0:Q=Q+1:B=1:�1,15);Q:@%=2:�1,30);"Strokes:    Player(1) ";:�P=0��BB(0)+Q;
.�P=1��BB(0);
/
�AA ��TyC
2 �":Player(2) ";:�P=0��BB(1);
4�P=1��BB(1)+Q;
9�(10)>3+H/9��DpC
HF1=(H+30)*�(10)*�/5
R�F>2J=5:�DfC
\F1=F1*1.5:J=9:�F=2 J=1
f�(10)>J F1=-F1
kF1=F1/1000
p!�V=X �I1=�/2:X=X-�(Y-W):�DxC
uI1=�((Y-W)/(V-X))+F1-L1
x<J=X+�(V-X)*�(M*�(I1)+.5)*K1:Y=Y-�(V-X)*�(M*�(I1)+.5):X=J
� K1=1:�X<0�X>79�Y<9�Y>50�TTE
�-X1=�(X/2):Y1=�(Y/2):�Q>1��C%:�X2,Y2);CC$
�]C%=7:�7:�X1,Y1);:�I=40�20�-2:�3,-15,I,2:�(G);:� 8:�J=0�99:�:�CC$;:�8:�J=0�99:�:�:� �(G)
�*X2=X1:Y2=Y1:XX(P)=X:YY(P)=Y:CC$=�(254)
�;�X1=37�Y1=E1:�0,-15,1,5:�dPG:�"YOU HOLED OUT!!!":�T@Y
�ACC$=�(254):�X1>34:�GN((X1-35),0)<=Y1 �GN((X1-35),1)>=Y1 ��t`Y
�B�I=1�24:�BK(I,0)=X1 � BK(I,1)=Y1 �I=24:�:CC$=�(249):C%=2:�DL]
�=�:�I=0�12:�TR(I,0)=X1 �TR(I,1)=Y1:I=12:�:CC$=�(246):�DJ_
�$�:�D>450� D<550:�ST(Y1)=X1 ��Tta
�/�FW(X1,0)>Y1 �FW(X1,1)<Y1 �CC$=�(255):�t|[
�	�t@B
LFZ=�(11)+13:T=1:�J=3�8:�FW(Z,0)<J �FW(Z,1)>J:K=J+8:J=8:�:T=-1:�D`D
[	�:K=8
`$�B=1�12:TR(B,0)=0:TR(B,1)=0:�:�1
jC�B=1�12:U=Z+�(8):U1=K+T*�(5):�(�(�(3)-2)*2)+1:CC$=�(246+�(2)-1)
t*�U,U1)CC$:TR(B,0)=U:TR(B,1)=U1:�:�7:�
�$B=8+�(8):M=1:�(10)<6B=B+13:M=-M
�(�(B*32-20),(5*32+16):ST(26)=B-1:�0,1
�y�J=6�26:�5,(B*32-10),(J*32+16):�((ST(32-J)+1)*32-20),((J-1)*32+16):�5,(B*32-20),(J*32+16):ST(31-J)=B-1:�(10)>4:B=B+M

�:�
�X>90�DPE
(�X>79�X=79
2�Y>=9�Y<50�tBE
<�Y>50�Y<64�Y=50:�tBE
F�Y<9�Y>-11�Y=0:�tBE
P&�X2,Y2)CC$;:�dPG:� "LOST BALL ";
d �"-  PENALTY 6";:Q=Q+6:�TIY
�2�dPG:�" OUT OF BOUNDS-PENALTY 1";:Q=Q+1:�tXC
�4�2,3);"Hook or Slice(H/S)";:�I$:�I$="H":L1=-.15
��I$="S" � L1=.15
�	�dxB
�I$="":�2,1)�(118)�2,1);:�
	�TM=�+300:�:� TM=�:�
�L�12:�'''''"  ";�(E(P));" On the Green in ";Q;:�J1=7 �"   --- SLOW GREEN"
�)F=E(P+2):� J1=13 �"   --- FAST GREEN"
�D�19,1,1,0,0,0,19,0,6,0,0,0,19,2,2,0,0,0:T=23:M=1:I1=1:� F=5 M=3 
�>�0,0:�0,2:�5,0,252:�5,1276,252:�85,1276,0:�5,0,0:�85,0,252
�.�1:�29,22);�(248);�(250):�7:�29,23);"!";
�1�(X<>V)�(Y<>W)O=(D/40)*�((�(X-V)^2+�(Y-W)^2))
��O>58:O=55+�(3)
��O=0�O=2
�$O=�(O):J=�(29-O/2):�J,T);�(252)
���3,8);"Player(";P+1;")          ";�15,8);O;�18,8);"ft to the Pin"''"     - Choose putting strength(0-15)   ";:�8,8,8:� I$:C=�(I$):� C<0 � C>15�d|W
LEQ=Q+1:C=C*(4+M*�(1))-2.5+(�(1)*(H+30)/40)*M:C=�(C*J1/10)+1:M=M*.8
jE�B=1�C:O=O-1:S=29-�(O*I1/2):�J=1�B*10:�:�0,-15,(J*5),1:�S>39�S=39
~3�S,T);�(252);�S-I1,T);" ";:�S<>29 ��29,T);"!"
��:�O<0:I1=-I1:O=-O
��S<>29 �d|W
��28,T)" I ":�0,-15,1,5
��0,5)�(240):�TEY
	�dDI
�dPG:�"DOWN IN ";Q;"    ";
	JBB(P)=BB(P)+Q:A(N,P)=Q:J=Q-PA:�Q=1� �"WOW-WEE!!A HOLE IN ONE!!";:�DnY

#�J=1�"A BOGIE  - TRY HARDER!!";
 �J=0�"A PAR  -  NICE GOING";
(*� J=-1 �8:�"A BIRDIE  -  WELL PLAYED";
-1�J=-3�8:�8:�8:�"AN ALBATROS?YES!!ALBATROS!!";
2"�J=-2�"A GREAT BIG EAGLE!!!!";
nBB1=BB(P):�''"  Player(";P+1;") ";:�B1=M1 �"  LEVEL PAR";:�tBY
x)@%=2:�(M1-B1);:�B1<M1 �" Under par";
~�B1>M1 �" Over par";
�(�" after ";N;" Holes":U(P+2)=1:�tjY
�J1=7:�(10)>6� J1=10:�tjY
��(10)>5 J1=13
�+� 30:XXX=�:�J=0�3:�U(J)=0 � J=3:�:�toY
��:P=L1:�A(N,0)<A(N,1) P=0
�� A(N,0)>A(N,1) P=1
��N<18 �TNA
�	�DX[
�QQ(P)=Q:J=P:P=1:�J=1 P=0
�� U(P)=0 �DlB
�+Q=QQ(P):X=XX(P):Y=YY(P):�U(P+2)=0 �tXW
�J=P:P=1:�J=1 P=0
�	�tqY
X\�12,19,0,5,0;0;0:�''"       **** SCORE CARD ****"''�17"Player(1)";:� AA=0:�" Player(2)";
Y8�'"   Handicap          ";E(4);:� AA=0��31,5);E(5);
[:�'"   Weakness          ";E(2);:� AA=0 ��31,6); E(3);
\�'"   HOLE    PAR";
a@%=6
b�N=1�18:PA=�(�L$,N,1))
g:�'N;"      ";PA;"        ";A(N,0);:�A(N,0)<PA � �" <";
l4� AA=0 � �31,(N+7));A(N,1);:�A(N,1)<PA � �" <";
v:�:�'"  Total    72";"        ";BB(0);:�BB(0)<72��" <";
{*�AA=0��31,26);BB(1);:�BB(1)<72��" <";
��''"  SEE YOU AT THE 19TH"
��
�5�dPG:�(Y1-17)>10:A1=50:�"IN HEAVY ROUGH";:�dZ[
�A1=75:�"IN LIGHT ROUGH";
��dDI:CC$=�(255):�t@B
L8�dPG:�" ****BUNKERED****";:�"   Choose a club ? "I$
`\C=�(�I$,1)):�C<1�C>9 � �I$,2,1)="W" ��dPG:�" You won't get out with THAT!!":�dDI:�DL]
~
C=C+10
�B�2,3);:�" %age swing (01-99) ? "I$:B=�(I$):�B<0 � B>99 � �tf]
�/M=68+�(17)-(19-C)*5-(100-B)*.4:�F=4� M=M*.7
�� �(10)<4 � M=M/3
��dPG:�M>25�L1=0:B=1:�TjC
�Q=Q+1:�DL]
J,�dPG:�"IN THE TREES!!":K1=0:�dDI:�t@B
!4:�dPG:�1,-15,200,10:�"SPLASH!!! In the Stream ";:�DdE
#( � �
�
00000000  0d 00 00 06 20 d8 0d 00  05 0f 20 ee 20 85 20 e5  |.... ..... . . .|
00000010  20 8d 54 68 63 0d 00 09  71 eb 31 3a ef 32 33 2c  | .Thc...q.1:.23,|
00000020  32 35 34 2c 26 31 31 2c  30 2c 26 34 34 2c 30 2c  |254,&11,0,&44,0,|
00000030  26 31 31 2c 30 2c 26 34  34 2c 30 2c 32 33 2c 32  |&11,0,&44,0,23,2|
00000040  35 35 2c 26 31 31 2c 30  2c 26 34 30 2c 30 2c 26  |55,&11,0,&40,0,&|
00000050  30 31 2c 30 2c 26 34 34  2c 30 2c 32 33 2c 32 35  |01,0,&44,0,23,25|
00000060  33 3b 30 3b 30 3b 30 3b  30 2c 32 33 2c 32 35 32  |3;0;0;0;0,23,252|
00000070  2c 30 3b 26 33 43 2c 26  37 45 2c 26 37 45 2c 26  |,0;&3C,&7E,&7E,&|
00000080  33 43 2c 30 2c 30 0d 00  0e 9e ef 32 33 2c 32 34  |3C,0,0.....23,24|
00000090  37 2c 26 31 38 2c 26 32  43 2c 26 36 45 2c 26 45  |7,&18,&2C,&6E,&E|
000000a0  46 2c 26 32 43 2c 26 36  45 2c 26 46 46 2c 26 31  |F,&2C,&6E,&FF,&1|
000000b0  38 2c 32 33 2c 32 35 30  2c 26 46 46 2c 26 46 45  |8,23,250,&FF,&FE|
000000c0  2c 26 46 43 2c 26 46 38  2c 26 46 30 2c 26 43 30  |,&FC,&F8,&F0,&C0|
000000d0  2c 26 38 30 2c 30 2c 32  33 2c 32 34 39 2c 26 33  |,&80,0,23,249,&3|
000000e0  45 2c 26 36 42 2c 26 44  36 2c 26 45 42 2c 26 44  |E,&6B,&D6,&EB,&D|
000000f0  37 2c 26 45 42 2c 26 37  36 2c 26 37 43 2c 32 33  |7,&EB,&76,&7C,23|
00000100  2c 32 34 38 2c 26 33 46  2c 26 33 46 2c 26 33 46  |,248,&3F,&3F,&3F|
00000110  2c 26 33 46 2c 26 33 46  2c 26 33 46 2c 26 33 46  |,&3F,&3F,&3F,&3F|
00000120  2c 26 33 46 0d 00 0f 48  ef 32 33 2c 32 34 36 2c  |,&3F...H.23,246,|
00000130  26 31 38 2c 26 32 34 2c  26 34 32 2c 26 34 32 2c  |&18,&24,&42,&42,|
00000140  26 39 31 2c 26 35 32 2c  26 39 39 2c 26 31 38 3a  |&91,&52,&99,&18:|
00000150  4b 31 3d 31 3a 4c 24 3d  22 34 34 34 33 35 34 34  |K1=1:L$="4443544|
00000160  34 33 34 35 34 33 34 34  35 34 34 22 0d 00 1f 6e  |43454344544"...n|
00000170  de 20 58 58 28 31 29 2c  59 59 28 31 29 2c 51 51  |. XX(1),YY(1),QQ|
00000180  28 31 29 2c 42 42 28 31  29 2c 41 28 31 38 2c 31  |(1),BB(1),A(18,1|
00000190  29 2c 45 28 38 29 2c 55  28 33 29 2c 46 57 28 33  |),E(8),U(3),FW(3|
000001a0  39 2c 31 29 2c 47 4e 28  35 2c 31 29 2c 42 4b 28  |9,1),GN(5,1),BK(|
000001b0  32 34 2c 31 29 2c 54 52  28 31 32 2c 31 29 2c 53  |24,1),TR(12,1),S|
000001c0  54 28 32 37 29 3a 45 28  30 29 3d 32 35 32 3a 45  |T(27):E(0)=252:E|
000001d0  28 31 29 3d 34 32 3a 50  3d 30 0d 00 27 3f 44 24  |(1)=42:P=0..'?D$|
000001e0  3d 22 33 36 37 34 34 35  33 31 34 31 38 39 35 32  |="36744531418952|
000001f0  30 33 33 31 34 36 38 33  37 35 31 37 37 34 32 34  |0331468375177424|
00000200  35 36 32 33 33 36 32 30  38 34 34 37 32 39 38 35  |5623362084472985|
00000210  34 33 33 38 35 34 37 38  22 0d 00 3c 4b ef 31 39  |43385478"..<K.19|
00000220  2c 30 2c 35 2c 30 3b 30  3b 30 3a db 3a f1 8a 39  |,0,5,0;0;0:.:..9|
00000230  2c 33 29 22 2a 2a 2a 2a  47 4f 4c 46 2a 2a 2a 2a  |,3)"****GOLF****|
00000240  22 27 27 27 27 27 22 20  20 20 20 20 20 57 65 6c  |"'''''"      Wel|
00000250  63 6f 6d 65 20 74 6f 20  74 68 65 20 4c 69 6e 6b  |come to the Link|
00000260  73 21 21 22 0d 00 41 3b  f1 8a 36 2c 31 32 29 22  |s!!"..A;..6,12)"|
00000270  4f 6e 65 20 6f 72 20 54  77 6f 20 50 6c 61 79 65  |One or Two Playe|
00000280  72 73 22 3b 3a e8 49 24  3a e7 49 24 3c 3e 22 31  |rs";:.I$:.I$<>"1|
00000290  22 80 20 49 24 3c 3e 22  32 22 8c 8d 44 41 40 0d  |". I$<>"2"..DA@.|
000002a0  00 42 14 41 41 3d 30 3a  e7 49 24 3d 22 31 22 41  |.B.AA=0:.I$="1"A|
000002b0  41 3d 31 0d 00 64 0d e3  4e 3d 32 b8 33 2d 41 41  |A=1..d..N=2.3-AA|
000002c0  0d 00 78 54 f1 8a 31 2c  31 35 29 3b 22 50 6c 61  |..xT..1,15);"Pla|
000002d0  79 65 72 20 22 3b 4e 2d  31 3b 22 2c 57 68 61 74  |yer ";N-1;",What|
000002e0  20 69 73 20 79 6f 75 72  20 68 61 6e 64 69 63 61  | is your handica|
000002f0  70 28 31 2d 33 30 29 22  3b 3a e8 49 24 3a 48 3d  |p(1-30)";:.I$:H=|
00000300  bb 28 49 24 29 3a e7 48  3c 31 84 48 3e 33 30 8c  |.(I$):.H<1.H>30.|
00000310  8d 44 78 40 0d 00 a0 b0  45 28 4e 2b 32 29 3d 48  |.Dx@....E(N+2)=H|
00000320  3a f1 8a 36 2c 31 38 29  3b 22 44 69 66 66 69 63  |:..6,18);"Diffic|
00000330  75 6c 74 69 65 73 20 61  74 20 47 6f 6c 66 22 27  |ulties at Golf"'|
00000340  27 22 20 20 20 20 20 20  20 20 31 2e 20 48 6f 6f  |'"        1. Hoo|
00000350  6b 69 6e 67 22 27 22 20  20 20 20 20 20 20 20 32  |king"'"        2|
00000360  2e 20 53 6c 69 63 69 6e  67 22 27 22 20 20 20 20  |. Slicing"'"    |
00000370  20 20 20 20 33 2e 20 50  6f 6f 72 20 44 69 73 74  |    3. Poor Dist|
00000380  61 6e 63 65 22 27 22 20  20 20 20 20 20 20 20 34  |ance"'"        4|
00000390  2e 20 42 75 6e 6b 65 72  73 22 27 22 20 20 20 20  |. Bunkers"'"    |
000003a0  20 20 20 20 35 2e 20 50  75 74 74 69 6e 67 22 27  |    5. Putting"'|
000003b0  22 20 20 20 20 20 20 20  20 36 2e 20 43 6f 6e 63  |"        6. Conc|
000003c0  65 69 74 22 0d 00 aa 36  f1 8a 36 2c 32 37 29 22  |eit"...6..6,27)"|
000003d0  57 68 61 74 27 73 20 79  6f 75 72 73 20 22 3b 3a  |What's yours ";:|
000003e0  e8 20 49 24 3a 4a 3d bb  28 49 24 29 3a e7 4a 3c  |. I$:J=.(I$):.J<|
000003f0  31 84 4a 3e 36 8c 8d 74  6a 40 0d 00 b4 10 45 28  |1.J>6..tj@....E(|
00000400  4e 29 3d 4a 3a ed 3a 4e  3d 30 0d 01 0e 10 4c 31  |N)=J:.:N=0....L1|
00000410  3d 50 3a e7 41 41 20 50  3d 30 0d 01 90 68 4e 3d  |=P:.AA P=0...hN=|
00000420  4e 2b 31 3a 44 3d bb 28  c1 44 24 2c 28 4e 2a 33  |N+1:D=.(.D$,(N*3|
00000430  2d 32 29 2c 33 29 29 3a  50 41 3d bb 28 c1 4c 24  |-2),3)):PA=.(.L$|
00000440  2c 4e 2c 31 29 29 3a ef  31 32 3a f1 8a 31 2c 34  |,N,1)):.12:..1,4|
00000450  29 3a 4d 31 3d 4d 31 2b  50 41 3a ef 31 39 2c 30  |):M1=M1+PA:.19,0|
00000460  2c 32 2c 30 2c 30 2c 30  2c 31 39 2c 31 2c 34 2c  |,2,0,0,0,19,1,4,|
00000470  30 2c 30 2c 30 2c 31 39  2c 32 2c 33 2c 30 2c 30  |0,0,0,19,2,3,0,0|
00000480  2c 30 0d 01 95 4c e3 20  49 3d 31 b8 32 32 3a f1  |,0...L. I=1.22:.|
00000490  c4 34 30 2c 22 ff 22 29  3b 3a ed 3a f1 27 22 20  |.40,".");:.:.'" |
000004a0  48 4f 4c 45 20 20 22 3b  4e 3b 22 20 20 20 20 20  |HOLE  ";N;"     |
000004b0  44 49 53 54 41 4e 43 45  20 22 3b 44 3b 22 20 59  |DISTANCE ";D;" Y|
000004c0  44 53 20 20 20 20 50 41  52 20 22 3b 50 41 0d 01  |DS    PAR ";PA..|
000004d0  c2 6a 54 3d 31 32 3a 53  3d 35 3a 43 3d 31 3a e3  |.jT=12:S=5:C=1:.|
000004e0  42 3d 30 b8 33 39 3a e3  4a 3d 31 b8 53 3a 42 31  |B=0.39:.J=1.S:B1|
000004f0  3d 54 2b 4a 3a f1 8a 42  2c 42 31 29 3b bd 28 32  |=T+J:..B,B1);.(2|
00000500  35 34 29 3b 3a ed 3a 46  57 28 42 2c 30 29 3d 54  |54);:.:FW(B,0)=T|
00000510  3a 46 57 28 42 2c 31 29  3d 54 2b 53 3a 59 3d b3  |:FW(B,1)=T+S:Y=.|
00000520  28 34 29 3a 53 3d 53 2b  59 3a e7 53 3c 34 84 53  |(4):S=S+Y:.S<4.S|
00000530  3e 37 8c 53 3d 53 2d 59  0d 01 ea 20 59 3d b3 28  |>7.S=S-Y... Y=.(|
00000540  32 29 2d 31 3a e7 54 2b  59 2a 43 2b 53 3c 32 37  |2)-1:.T+Y*C+S<27|
00000550  3a 54 3d 54 2b 59 2a 43  0d 01 ef 0a 43 3d 2d 43  |:T=T+Y*C....C=-C|
00000560  3a ed 0d 01 f4 4c 53 3d  35 3a 54 3d 54 2b 32 3a  |:....LS=5:T=T+2:|
00000570  e3 42 3d 33 35 b8 33 39  3a 47 4e 28 28 42 2d 33  |.B=35.39:GN((B-3|
00000580  35 29 2c 30 29 3d 54 3a  e3 4a 3d 31 b8 53 3a 4f  |5),0)=T:.J=1.S:O|
00000590  24 3d bd 28 32 35 33 29  3a e7 42 3d 33 37 80 4a  |$=.(253):.B=37.J|
000005a0  3d 33 3a 4f 24 3d 22 2b  22 3a 45 31 3d 54 0d 02  |=3:O$="+":E1=T..|
000005b0  08 6b f1 8a 42 2c 54 29  3b 4f 24 3b 3a 54 3d 54  |.k..B,T);O$;:T=T|
000005c0  2b 43 3a ed 3a 4b 25 3d  42 2d 33 35 3a 47 4e 28  |+C:.:K%=B-35:GN(|
000005d0  4b 25 2c 31 29 3d 54 3a  54 3d 54 2d 43 3a e7 47  |K%,1)=T:T=T-C:.G|
000005e0  4e 28 4b 25 2c 30 29 3e  47 4e 28 4b 25 2c 31 29  |N(K%,0)>GN(K%,1)|
000005f0  8c 20 4b 3d 47 4e 28 4b  25 2c 30 29 3a 47 4e 28  |. K=GN(K%,0):GN(|
00000600  4b 25 2c 30 29 3d 47 4e  28 4b 25 2c 31 29 3a 47  |K%,0)=GN(K%,1):G|
00000610  4e 28 4b 25 2c 31 29 3d  4b 0d 02 12 27 59 3d b3  |N(K%,1)=K...'Y=.|
00000620  28 33 29 2d 32 3a 53 3d  53 2b 59 3a e7 53 3c 34  |(3)-2:S=S+Y:.S<4|
00000630  84 53 3e 38 20 53 3d 53  2d 59 3a e5 8d 54 52 42  |.S>8 S=S-Y:..TRB|
00000640  0d 02 26 40 59 3d b3 28  33 29 2d 32 3a 54 3d 54  |..&@Y=.(3)-2:T=T|
00000650  2b 59 3a 43 3d 2d 43 3a  ed 42 3a 4f 3d 37 3a 4b  |+Y:C=-C:.B:O=7:K|
00000660  3d 30 3a e3 49 3d 30 b8  32 34 3a 42 4b 28 49 2c  |=0:.I=0.24:BK(I,|
00000670  30 29 3d 30 3a 42 4b 28  49 2c 31 29 3d 30 3a ed  |0)=0:BK(I,1)=0:.|
00000680  0d 02 2b 44 4a 3d 36 2b  b3 28 36 29 3a e3 49 3d  |..+DJ=6+.(6):.I=|
00000690  31 b8 4a 3a 42 3d 4f 2b  b3 28 34 29 3a 42 31 3d  |1.J:B=O+.(4):B1=|
000006a0  b3 28 32 32 29 3a e7 46  57 28 42 2c 30 29 3e 42  |.(22):.FW(B,0)>B|
000006b0  31 20 84 20 46 57 28 42  2c 31 29 3c 42 31 20 e5  |1 . FW(B,1)<B1 .|
000006c0  8d 44 44 42 0d 02 30 36  fb 32 3a f1 8a 42 2c 42  |.DDB..06.2:..B,B|
000006d0  31 29 3b bd 28 32 34 39  29 3b 3a 42 4b 28 28 49  |1);.(249);:BK((I|
000006e0  2b 4b 29 2c 30 29 3d 42  3a 42 4b 28 28 49 2b 4b  |+K),0)=B:BK((I+K|
000006f0  29 2c 31 29 3d 42 31 3a  fb 37 0d 02 44 1c ed 3a  |),1)=B1:.7..D..:|
00000700  e7 4f 3d 37 20 8c 20 4f  3d 32 38 3a 4b 3d 31 32  |.O=7 . O=28:K=12|
00000710  3a e5 8d 54 6b 42 0d 02  58 26 e3 4a 3d 30 b8 33  |:..TkB..X&.J=0.3|
00000720  3a 55 28 4a 29 3d 30 3a  ed 3a e7 41 41 20 8c 55  |:U(J)=0:.:.AA .U|
00000730  28 31 29 3d 31 3a 55 28  33 29 3d 31 0d 02 62 12  |(1)=1:U(3)=1..b.|
00000740  e7 b3 28 31 30 29 3e 36  8c e4 8d 44 4c 44 0d 02  |..(10)>6...DLD..|
00000750  67 18 e7 44 3e 34 35 30  20 80 20 44 3c 35 35 30  |g..D>450 . D<550|
00000760  8c e4 8d 74 70 44 0d 02  6c 3a f1 8a 31 2c 31 35  |...tpD..l:..1,15|
00000770  29 3b 22 54 22 3a 58 3d  30 3a 59 3d 33 30 3a 56  |);"T":X=0:Y=30:V|
00000780  3d 37 35 3a 57 3d 45 31  2a 32 3a 51 3d 30 3a 55  |=75:W=E1*2:Q=0:U|
00000790  28 50 29 3d 31 3a 43 43  24 3d bd 28 32 35 34 29  |(P)=1:CC$=.(254)|
000007a0  0d 02 71 21 47 3d 45 28  50 29 3a 46 3d 45 28 50  |..q!G=E(P):F=E(P|
000007b0  2b 32 29 3a 48 3d 45 28  50 2b 34 29 3a 47 31 3d  |+2):H=E(P+4):G1=|
000007c0  47 0d 02 76 0a 41 31 3d  31 30 30 0d 02 80 5f e4  |G..v.A1=100..._.|
000007d0  8d 64 50 47 3a f1 20 22  50 6c 61 79 65 72 28 22  |.dPG:. "Player("|
000007e0  3b 50 2b 31 3b 22 29 20  22 3b bd 28 47 29 3b 22  |;P+1;") ";.(G);"|
000007f0  20 43 68 6f 6f 73 65 20  61 20 43 6c 75 62 22 27  | Choose a Club"'|
00000800  22 20 20 20 20 28 31 57  2d 34 57 20 57 6f 6f 64  |"    (1W-4W Wood|
00000810  73 3a 31 2d 39 20 49 72  6f 6e 73 29 22 3b 3a e8  |s:1-9 Irons)";:.|
00000820  49 24 3a 43 3d bb 28 49  24 29 0d 02 85 24 e7 c1  |I$:C=.(I$)...$..|
00000830  49 24 2c 32 2c 31 29 3d  22 57 22 8c 20 43 3d bb  |I$,2,1)="W". C=.|
00000840  28 c0 49 24 2c 31 29 29  3a e5 8d 74 54 42 0d 02  |(.I$,1)):..tTB..|
00000850  8a 0e 43 3d bb 28 49 24  29 2b 31 30 0d 02 94 1f  |..C=.(I$)+10....|
00000860  e7 28 43 3e 30 80 43 3c  35 29 84 28 43 3e 31 30  |.(C>0.C<5).(C>10|
00000870  80 43 3c 32 30 29 e5 8d  74 7c 42 0d 02 b2 09 e5  |.C<20)..t|B.....|
00000880  8d 74 40 42 0d 02 bc 19  4c 31 3d 30 3a e7 43 3c  |.t@B....L1=0:.C<|
00000890  31 35 42 3d 31 30 30 3a  e5 8d 64 5c 45 0d 02 c6  |15B=100:..d\E...|
000008a0  42 f1 8a 32 2c 33 29 22  25 41 67 65 20 28 37 2d  |B..2,3)"%Age (7-|
000008b0  39 39 29 20 6f 66 20 66  75 6c 6c 20 73 77 69 6e  |99) of full swin|
000008c0  67 20 22 3b 3a e8 49 24  3a 42 3d bb 28 49 24 29  |g ";:.I$:B=.(I$)|
000008d0  3a e7 42 3c 37 84 42 3e  39 39 8c 8d 64 46 42 0d  |:.B<7.B>99..dFB.|
000008e0  02 f8 17 42 3d 42 2f 31  30 30 3a e7 46 3d 33 42  |...B=B/100:.F=3B|
000008f0  3d 42 2a 2e 38 35 0d 03  02 19 42 3d 42 2a 41 31  |=B*.85....B=B*A1|
00000900  2f 31 30 30 3a e7 43 3e  32 42 3d 42 2a 2e 37 0d  |/100:.C>2B=B*.7.|
00000910  03 20 23 5a 3d b3 28 31  32 29 3a 4d 3d 33 30 39  |. #Z=.(12):M=309|
00000920  2d 5a 2d 28 48 2b 33 30  29 2a 2e 37 2d 43 2a 38  |-Z-(H+30)*.7-C*8|
00000930  2e 33 0d 03 2a 65 4d 3d  a8 28 28 42 2a 4d 2a 37  |.3..*eM=.((B*M*7|
00000940  35 2f 44 29 2b 2e 35 29  3a 46 31 3d 30 3a 51 3d  |5/D)+.5):F1=0:Q=|
00000950  51 2b 31 3a 42 3d 31 3a  f1 8a 31 2c 31 35 29 3b  |Q+1:B=1:..1,15);|
00000960  51 3a 40 25 3d 32 3a f1  8a 31 2c 33 30 29 3b 22  |Q:@%=2:..1,30);"|
00000970  53 74 72 6f 6b 65 73 3a  20 20 20 20 50 6c 61 79  |Strokes:    Play|
00000980  65 72 28 31 29 20 22 3b  3a e7 50 3d 30 8c f1 42  |er(1) ";:.P=0..B|
00000990  42 28 30 29 2b 51 3b 0d  03 2e 10 e7 50 3d 31 8c  |B(0)+Q;.....P=1.|
000009a0  f1 42 42 28 30 29 3b 0d  03 2f 0d e7 41 41 20 8c  |.BB(0);../..AA .|
000009b0  8d 54 79 43 0d 03 32 20  f1 22 3a 50 6c 61 79 65  |.TyC..2 .":Playe|
000009c0  72 28 32 29 20 22 3b 3a  e7 50 3d 30 8c f1 42 42  |r(2) ";:.P=0..BB|
000009d0  28 31 29 3b 0d 03 34 12  e7 50 3d 31 8c f1 42 42  |(1);..4..P=1..BB|
000009e0  28 31 29 2b 51 3b 0d 03  39 15 e7 b3 28 31 30 29  |(1)+Q;..9...(10)|
000009f0  3e 33 2b 48 2f 39 8c 8d  44 70 43 0d 03 48 17 46  |>3+H/9..DpC..H.F|
00000a00  31 3d 28 48 2b 33 30 29  2a b3 28 31 30 29 2a af  |1=(H+30)*.(10)*.|
00000a10  2f 35 0d 03 52 11 e7 46  3e 32 4a 3d 35 3a e5 8d  |/5..R..F>2J=5:..|
00000a20  44 66 43 0d 03 5c 1a 46  31 3d 46 31 2a 31 2e 35  |DfC..\.F1=F1*1.5|
00000a30  3a 4a 3d 39 3a e7 46 3d  32 20 4a 3d 31 0d 03 66  |:J=9:.F=2 J=1..f|
00000a40  13 e7 b3 28 31 30 29 3e  4a 20 46 31 3d 2d 46 31  |...(10)>J F1=-F1|
00000a50  0d 03 6b 0e 46 31 3d 46  31 2f 31 30 30 30 0d 03  |..k.F1=F1/1000..|
00000a60  70 21 e7 56 3d 58 20 8c  49 31 3d af 2f 32 3a 58  |p!.V=X .I1=./2:X|
00000a70  3d 58 2d b4 28 59 2d 57  29 3a e5 8d 44 78 43 0d  |=X-.(Y-W):..DxC.|
00000a80  03 75 1b 49 31 3d 99 28  28 59 2d 57 29 2f 28 56  |.u.I1=.((Y-W)/(V|
00000a90  2d 58 29 29 2b 46 31 2d  4c 31 0d 03 78 3c 4a 3d  |-X))+F1-L1..x<J=|
00000aa0  58 2b b4 28 56 2d 58 29  2a a8 28 4d 2a 9b 28 49  |X+.(V-X)*.(M*.(I|
00000ab0  31 29 2b 2e 35 29 2a 4b  31 3a 59 3d 59 2d b4 28  |1)+.5)*K1:Y=Y-.(|
00000ac0  56 2d 58 29 2a a8 28 4d  2a b5 28 49 31 29 2b 2e  |V-X)*.(M*.(I1)+.|
00000ad0  35 29 3a 58 3d 4a 0d 03  89 20 4b 31 3d 31 3a e7  |5):X=J... K1=1:.|
00000ae0  58 3c 30 84 58 3e 37 39  84 59 3c 39 84 59 3e 35  |X<0.X>79.Y<9.Y>5|
00000af0  30 e5 8d 54 54 45 0d 03  98 2d 58 31 3d a8 28 58  |0..TTE...-X1=.(X|
00000b00  2f 32 29 3a 59 31 3d a8  28 59 2f 32 29 3a e7 51  |/2):Y1=.(Y/2):.Q|
00000b10  3e 31 8c fb 43 25 3a f1  8a 58 32 2c 59 32 29 3b  |>1..C%:..X2,Y2);|
00000b20  43 43 24 0d 03 9d 5d 43  25 3d 37 3a fb 37 3a f1  |CC$...]C%=7:.7:.|
00000b30  8a 58 31 2c 59 31 29 3b  3a e3 49 3d 34 30 b8 32  |.X1,Y1);:.I=40.2|
00000b40  30 88 2d 32 3a d4 33 2c  2d 31 35 2c 49 2c 32 3a  |0.-2:.3,-15,I,2:|
00000b50  f1 bd 28 47 29 3b 3a ef  20 38 3a e3 4a 3d 30 b8  |..(G);:. 8:.J=0.|
00000b60  39 39 3a ed 3a f1 43 43  24 3b 3a ef 38 3a e3 4a  |99:.:.CC$;:.8:.J|
00000b70  3d 30 b8 39 39 3a ed 3a  ed 3a f1 20 bd 28 47 29  |=0.99:.:.:. .(G)|
00000b80  0d 03 a2 2a 58 32 3d 58  31 3a 59 32 3d 59 31 3a  |...*X2=X1:Y2=Y1:|
00000b90  58 58 28 50 29 3d 58 3a  59 59 28 50 29 3d 59 3a  |XX(P)=X:YY(P)=Y:|
00000ba0  43 43 24 3d bd 28 32 35  34 29 0d 03 d4 3b e7 58  |CC$=.(254)...;.X|
00000bb0  31 3d 33 37 80 59 31 3d  45 31 3a d4 30 2c 2d 31  |1=37.Y1=E1:.0,-1|
00000bc0  35 2c 31 2c 35 3a e4 8d  64 50 47 3a f1 22 59 4f  |5,1,5:..dPG:."YO|
00000bd0  55 20 48 4f 4c 45 44 20  4f 55 54 21 21 21 22 3a  |U HOLED OUT!!!":|
00000be0  e5 8d 54 40 59 0d 03 de  41 43 43 24 3d bd 28 32  |..T@Y...ACC$=.(2|
00000bf0  35 34 29 3a e7 58 31 3e  33 34 3a e7 47 4e 28 28  |54):.X1>34:.GN((|
00000c00  58 31 2d 33 35 29 2c 30  29 3c 3d 59 31 20 80 47  |X1-35),0)<=Y1 .G|
00000c10  4e 28 28 58 31 2d 33 35  29 2c 31 29 3e 3d 59 31  |N((X1-35),1)>=Y1|
00000c20  20 8c 8d 74 60 59 0d 03  e2 42 e3 49 3d 31 b8 32  | ..t`Y...B.I=1.2|
00000c30  34 3a e7 42 4b 28 49 2c  30 29 3d 58 31 20 80 20  |4:.BK(I,0)=X1 . |
00000c40  42 4b 28 49 2c 31 29 3d  59 31 20 8c 49 3d 32 34  |BK(I,1)=Y1 .I=24|
00000c50  3a ed 3a 43 43 24 3d bd  28 32 34 39 29 3a 43 25  |:.:CC$=.(249):C%|
00000c60  3d 32 3a e5 8d 44 4c 5d  0d 03 e3 3d ed 3a e3 49  |=2:..DL]...=.:.I|
00000c70  3d 30 b8 31 32 3a e7 54  52 28 49 2c 30 29 3d 58  |=0.12:.TR(I,0)=X|
00000c80  31 20 80 54 52 28 49 2c  31 29 3d 59 31 3a 49 3d  |1 .TR(I,1)=Y1:I=|
00000c90  31 32 3a ed 3a 43 43 24  3d bd 28 32 34 36 29 3a  |12:.:CC$=.(246):|
00000ca0  e5 8d 44 4a 5f 0d 03 e4  24 ed 3a e7 44 3e 34 35  |..DJ_...$.:.D>45|
00000cb0  30 80 20 44 3c 35 35 30  3a e7 53 54 28 59 31 29  |0. D<550:.ST(Y1)|
00000cc0  3d 58 31 20 8c 8d 54 74  61 0d 03 e8 2f e7 46 57  |=X1 ..Tta.../.FW|
00000cd0  28 58 31 2c 30 29 3e 59  31 20 84 46 57 28 58 31  |(X1,0)>Y1 .FW(X1|
00000ce0  2c 31 29 3c 59 31 20 8c  43 43 24 3d bd 28 32 35  |,1)<Y1 .CC$=.(25|
00000cf0  35 29 3a e5 8d 74 7c 5b  0d 03 fc 09 e5 8d 74 40  |5):..t|[......t@|
00000d00  42 0d 04 4c 46 5a 3d b3  28 31 31 29 2b 31 33 3a  |B..LFZ=.(11)+13:|
00000d10  54 3d 31 3a e3 4a 3d 33  b8 38 3a e7 46 57 28 5a  |T=1:.J=3.8:.FW(Z|
00000d20  2c 30 29 3c 4a 20 80 46  57 28 5a 2c 31 29 3e 4a  |,0)<J .FW(Z,1)>J|
00000d30  3a 4b 3d 4a 2b 38 3a 4a  3d 38 3a ed 3a 54 3d 2d  |:K=J+8:J=8:.:T=-|
00000d40  31 3a e5 8d 44 60 44 0d  04 5b 09 ed 3a 4b 3d 38  |1:..D`D..[..:K=8|
00000d50  0d 04 60 24 e3 42 3d 31  b8 31 32 3a 54 52 28 42  |..`$.B=1.12:TR(B|
00000d60  2c 30 29 3d 30 3a 54 52  28 42 2c 31 29 3d 30 3a  |,0)=0:TR(B,1)=0:|
00000d70  ed 3a fb 31 0d 04 6a 43  e3 42 3d 31 b8 31 32 3a  |.:.1..jC.B=1.12:|
00000d80  55 3d 5a 2b b3 28 38 29  3a 55 31 3d 4b 2b 54 2a  |U=Z+.(8):U1=K+T*|
00000d90  b3 28 35 29 3a fb 28 94  28 b3 28 33 29 2d 32 29  |.(5):.(.(.(3)-2)|
00000da0  2a 32 29 2b 31 3a 43 43  24 3d bd 28 32 34 36 2b  |*2)+1:CC$=.(246+|
00000db0  b3 28 32 29 2d 31 29 0d  04 74 2a f1 8a 55 2c 55  |.(2)-1)..t*..U,U|
00000dc0  31 29 43 43 24 3a 54 52  28 42 2c 30 29 3d 55 3a  |1)CC$:TR(B,0)=U:|
00000dd0  54 52 28 42 2c 31 29 3d  55 31 3a ed 3a fb 37 3a  |TR(B,1)=U1:.:.7:|
00000de0  f8 0d 04 b0 24 42 3d 38  2b b3 28 38 29 3a 4d 3d  |....$B=8+.(8):M=|
00000df0  31 3a e7 b3 28 31 30 29  3c 36 42 3d 42 2b 31 33  |1:..(10)<6B=B+13|
00000e00  3a 4d 3d 2d 4d 0d 04 e2  28 ec 28 42 2a 33 32 2d  |:M=-M...(.(B*32-|
00000e10  32 30 29 2c 28 35 2a 33  32 2b 31 36 29 3a 53 54  |20),(5*32+16):ST|
00000e20  28 32 36 29 3d 42 2d 31  3a e6 30 2c 31 0d 04 f6  |(26)=B-1:.0,1...|
00000e30  79 e3 4a 3d 36 b8 32 36  3a f0 35 2c 28 42 2a 33  |y.J=6.26:.5,(B*3|
00000e40  32 2d 31 30 29 2c 28 4a  2a 33 32 2b 31 36 29 3a  |2-10),(J*32+16):|
00000e50  ec 28 28 53 54 28 33 32  2d 4a 29 2b 31 29 2a 33  |.((ST(32-J)+1)*3|
00000e60  32 2d 32 30 29 2c 28 28  4a 2d 31 29 2a 33 32 2b  |2-20),((J-1)*32+|
00000e70  31 36 29 3a f0 35 2c 28  42 2a 33 32 2d 32 30 29  |16):.5,(B*32-20)|
00000e80  2c 28 4a 2a 33 32 2b 31  36 29 3a 53 54 28 33 31  |,(J*32+16):ST(31|
00000e90  2d 4a 29 3d 42 2d 31 3a  e7 b3 28 31 30 29 3e 34  |-J)=B-1:..(10)>4|
00000ea0  3a 42 3d 42 2b 4d 0d 05  0a 07 ed 3a f8 0d 05 14  |:B=B+M.....:....|
00000eb0  0e e7 58 3e 39 30 e5 8d  44 50 45 0d 05 28 0e e7  |..X>90..DPE..(..|
00000ec0  58 3e 37 39 8c 58 3d 37  39 0d 05 32 13 e7 59 3e  |X>79.X=79..2..Y>|
00000ed0  3d 39 80 59 3c 35 30 e5  8d 74 42 45 0d 05 3c 19  |=9.Y<50..tBE..<.|
00000ee0  e7 59 3e 35 30 80 59 3c  36 34 8c 59 3d 35 30 3a  |.Y>50.Y<64.Y=50:|
00000ef0  e5 8d 74 42 45 0d 05 46  18 e7 59 3c 39 80 59 3e  |..tBE..F..Y<9.Y>|
00000f00  2d 31 31 8c 59 3d 30 3a  e5 8d 74 42 45 0d 05 50  |-11.Y=0:..tBE..P|
00000f10  26 f1 8a 58 32 2c 59 32  29 43 43 24 3b 3a e4 8d  |&..X2,Y2)CC$;:..|
00000f20  64 50 47 3a f1 20 22 4c  4f 53 54 20 42 41 4c 4c  |dPG:. "LOST BALL|
00000f30  20 22 3b 0d 05 64 20 f1  22 2d 20 20 50 45 4e 41  | ";..d ."-  PENA|
00000f40  4c 54 59 20 36 22 3b 3a  51 3d 51 2b 36 3a e5 8d  |LTY 6";:Q=Q+6:..|
00000f50  54 49 59 0d 05 82 32 e4  8d 64 50 47 3a f1 22 20  |TIY...2..dPG:." |
00000f60  4f 55 54 20 4f 46 20 42  4f 55 4e 44 53 2d 50 45  |OUT OF BOUNDS-PE|
00000f70  4e 41 4c 54 59 20 31 22  3b 3a 51 3d 51 2b 31 3a  |NALTY 1";:Q=Q+1:|
00000f80  e5 8d 74 58 43 0d 05 dc  34 f1 8a 32 2c 33 29 3b  |..tXC...4..2,3);|
00000f90  22 48 6f 6f 6b 20 6f 72  20 53 6c 69 63 65 28 48  |"Hook or Slice(H|
00000fa0  2f 53 29 22 3b 3a e8 49  24 3a e7 49 24 3d 22 48  |/S)";:.I$:.I$="H|
00000fb0  22 3a 4c 31 3d 2d 2e 31  35 0d 05 e1 14 e7 49 24  |":L1=-.15.....I$|
00000fc0  3d 22 53 22 20 8c 20 4c  31 3d 2e 31 35 0d 05 e6  |="S" . L1=.15...|
00000fd0  09 e5 8d 64 78 42 0d 07  d0 1e 49 24 3d 22 22 3a  |...dxB....I$="":|
00000fe0  f1 8a 32 2c 31 29 89 28  31 31 38 29 8a 32 2c 31  |..2,1).(118).2,1|
00000ff0  29 3b 3a f8 0d 09 c4 17  54 4d 3d 91 2b 33 30 30  |);:.....TM=.+300|
00001000  3a f5 3a fd 20 54 4d 3d  91 3a f8 0d 17 98 4c ef  |:.:. TM=.:....L.|
00001010  31 32 3a f1 27 27 27 27  27 22 20 20 22 3b bd 28  |12:.'''''"  ";.(|
00001020  45 28 50 29 29 3b 22 20  4f 6e 20 74 68 65 20 47  |E(P));" On the G|
00001030  72 65 65 6e 20 69 6e 20  22 3b 51 3b 3a e7 4a 31  |reen in ";Q;:.J1|
00001040  3d 37 20 f1 22 20 20 20  2d 2d 2d 20 53 4c 4f 57  |=7 ."   --- SLOW|
00001050  20 47 52 45 45 4e 22 0d  17 a2 29 46 3d 45 28 50  | GREEN"...)F=E(P|
00001060  2b 32 29 3a e7 20 4a 31  3d 31 33 20 f1 22 20 20  |+2):. J1=13 ."  |
00001070  20 2d 2d 2d 20 46 41 53  54 20 47 52 45 45 4e 22  | --- FAST GREEN"|
00001080  0d 17 ac 44 ef 31 39 2c  31 2c 31 2c 30 2c 30 2c  |...D.19,1,1,0,0,|
00001090  30 2c 31 39 2c 30 2c 36  2c 30 2c 30 2c 30 2c 31  |0,19,0,6,0,0,0,1|
000010a0  39 2c 32 2c 32 2c 30 2c  30 2c 30 3a 54 3d 32 33  |9,2,2,0,0,0:T=23|
000010b0  3a 4d 3d 31 3a 49 31 3d  31 3a e7 20 46 3d 35 20  |:M=1:I1=1:. F=5 |
000010c0  4d 3d 33 20 0d 17 b6 3e  ec 30 2c 30 3a e6 30 2c  |M=3 ...>.0,0:.0,|
000010d0  32 3a f0 35 2c 30 2c 32  35 32 3a f0 35 2c 31 32  |2:.5,0,252:.5,12|
000010e0  37 36 2c 32 35 32 3a f0  38 35 2c 31 32 37 36 2c  |76,252:.85,1276,|
000010f0  30 3a f0 35 2c 30 2c 30  3a f0 38 35 2c 30 2c 32  |0:.5,0,0:.85,0,2|
00001100  35 32 0d 17 c0 2e fb 31  3a f1 8a 32 39 2c 32 32  |52.....1:..29,22|
00001110  29 3b bd 28 32 34 38 29  3b bd 28 32 35 30 29 3a  |);.(248);.(250):|
00001120  fb 37 3a f1 8a 32 39 2c  32 33 29 3b 22 21 22 3b  |.7:..29,23);"!";|
00001130  0d 17 de 31 e7 28 58 3c  3e 56 29 80 28 59 3c 3e  |...1.(X<>V).(Y<>|
00001140  57 29 4f 3d 28 44 2f 34  30 29 2a b6 28 28 94 28  |W)O=(D/40)*.((.(|
00001150  58 2d 56 29 5e 32 2b 94  28 59 2d 57 29 5e 32 29  |X-V)^2+.(Y-W)^2)|
00001160  29 0d 17 e8 13 e7 4f 3e  35 38 3a 4f 3d 35 35 2b  |).....O>58:O=55+|
00001170  b3 28 33 29 0d 17 ed 0c  e7 4f 3d 30 8c 4f 3d 32  |.(3).....O=0.O=2|
00001180  0d 17 f2 24 4f 3d a8 28  4f 29 3a 4a 3d a8 28 32  |...$O=.(O):J=.(2|
00001190  39 2d 4f 2f 32 29 3a f1  8a 4a 2c 54 29 3b bd 28  |9-O/2):..J,T);.(|
000011a0  32 35 32 29 0d 17 fc 98  f1 8a 33 2c 38 29 3b 22  |252)......3,8);"|
000011b0  50 6c 61 79 65 72 28 22  3b 50 2b 31 3b 22 29 20  |Player(";P+1;") |
000011c0  20 20 20 20 20 20 20 20  20 22 3b 8a 31 35 2c 38  |         ";.15,8|
000011d0  29 3b 4f 3b 8a 31 38 2c  38 29 3b 22 66 74 20 74  |);O;.18,8);"ft t|
000011e0  6f 20 74 68 65 20 50 69  6e 22 27 27 22 20 20 20  |o the Pin"''"   |
000011f0  20 20 2d 20 43 68 6f 6f  73 65 20 70 75 74 74 69  |  - Choose putti|
00001200  6e 67 20 73 74 72 65 6e  67 74 68 28 30 2d 31 35  |ng strength(0-15|
00001210  29 20 20 20 22 3b 3a ef  38 2c 38 2c 38 3a e8 20  |)   ";:.8,8,8:. |
00001220  49 24 3a 43 3d bb 28 49  24 29 3a e7 20 43 3c 30  |I$:C=.(I$):. C<0|
00001230  20 84 20 43 3e 31 35 e5  8d 64 7c 57 0d 18 4c 45  | . C>15..d|W..LE|
00001240  51 3d 51 2b 31 3a 43 3d  43 2a 28 34 2b 4d 2a b3  |Q=Q+1:C=C*(4+M*.|
00001250  28 31 29 29 2d 32 2e 35  2b 28 b3 28 31 29 2a 28  |(1))-2.5+(.(1)*(|
00001260  48 2b 33 30 29 2f 34 30  29 2a 4d 3a 43 3d a8 28  |H+30)/40)*M:C=.(|
00001270  43 2a 4a 31 2f 31 30 29  2b 31 3a 4d 3d 4d 2a 2e  |C*J1/10)+1:M=M*.|
00001280  38 0d 18 6a 45 e3 42 3d  31 b8 43 3a 4f 3d 4f 2d  |8..jE.B=1.C:O=O-|
00001290  31 3a 53 3d 32 39 2d a8  28 4f 2a 49 31 2f 32 29  |1:S=29-.(O*I1/2)|
000012a0  3a e3 4a 3d 31 b8 42 2a  31 30 3a ed 3a d4 30 2c  |:.J=1.B*10:.:.0,|
000012b0  2d 31 35 2c 28 4a 2a 35  29 2c 31 3a e7 53 3e 33  |-15,(J*5),1:.S>3|
000012c0  39 8c 53 3d 33 39 0d 18  7e 33 f1 8a 53 2c 54 29  |9.S=39..~3..S,T)|
000012d0  3b bd 28 32 35 32 29 3b  8a 53 2d 49 31 2c 54 29  |;.(252);.S-I1,T)|
000012e0  3b 22 20 22 3b 3a e7 53  3c 3e 32 39 20 8c f1 8a  |;" ";:.S<>29 ...|
000012f0  32 39 2c 54 29 3b 22 21  22 0d 18 92 16 ed 3a e7  |29,T);"!".....:.|
00001300  4f 3c 30 3a 49 31 3d 2d  49 31 3a 4f 3d 2d 4f 0d  |O<0:I1=-I1:O=-O.|
00001310  18 a1 10 e7 53 3c 3e 32  39 20 e5 8d 64 7c 57 0d  |....S<>29 ..d|W.|
00001320  18 a6 1b f1 8a 32 38 2c  54 29 22 20 49 20 22 3a  |.....28,T)" I ":|
00001330  d4 30 2c 2d 31 35 2c 31  2c 35 0d 18 ba 16 f1 8a  |.0,-15,1,5......|
00001340  30 2c 35 29 89 28 32 34  30 29 3a e5 8d 54 45 59  |0,5).(240):..TEY|
00001350  0d 19 00 09 e4 8d 64 44  49 0d 19 05 1f e4 8d 64  |......dDI......d|
00001360  50 47 3a f1 22 44 4f 57  4e 20 49 4e 20 22 3b 51  |PG:."DOWN IN ";Q|
00001370  3b 22 20 20 20 20 22 3b  0d 19 09 4a 42 42 28 50  |;"    ";...JBB(P|
00001380  29 3d 42 42 28 50 29 2b  51 3a 41 28 4e 2c 50 29  |)=BB(P)+Q:A(N,P)|
00001390  3d 51 3a 4a 3d 51 2d 50  41 3a e7 51 3d 31 8c 20  |=Q:J=Q-PA:.Q=1. |
000013a0  f1 22 57 4f 57 2d 57 45  45 21 21 41 20 48 4f 4c  |."WOW-WEE!!A HOL|
000013b0  45 20 49 4e 20 4f 4e 45  21 21 22 3b 3a e5 8d 44  |E IN ONE!!";:..D|
000013c0  6e 59 0d 19 0a 23 e7 4a  3d 31 f1 22 41 20 42 4f  |nY...#.J=1."A BO|
000013d0  47 49 45 20 20 2d 20 54  52 59 20 48 41 52 44 45  |GIE  - TRY HARDE|
000013e0  52 21 21 22 3b 0d 19 1e  20 e7 4a 3d 30 f1 22 41  |R!!";... .J=0."A|
000013f0  20 50 41 52 20 20 2d 20  20 4e 49 43 45 20 47 4f  | PAR  -  NICE GO|
00001400  49 4e 47 22 3b 0d 19 28  2a e7 20 4a 3d 2d 31 20  |ING";..(*. J=-1 |
00001410  ef 38 3a f1 22 41 20 42  49 52 44 49 45 20 20 2d  |.8:."A BIRDIE  -|
00001420  20 20 57 45 4c 4c 20 50  4c 41 59 45 44 22 3b 0d  |  WELL PLAYED";.|
00001430  19 2d 31 e7 4a 3d 2d 33  ef 38 3a ef 38 3a ef 38  |.-1.J=-3.8:.8:.8|
00001440  3a f1 22 41 4e 20 41 4c  42 41 54 52 4f 53 3f 59  |:."AN ALBATROS?Y|
00001450  45 53 21 21 41 4c 42 41  54 52 4f 53 21 21 22 3b  |ES!!ALBATROS!!";|
00001460  0d 19 32 22 e7 4a 3d 2d  32 f1 22 41 20 47 52 45  |..2".J=-2."A GRE|
00001470  41 54 20 42 49 47 20 45  41 47 4c 45 21 21 21 21  |AT BIG EAGLE!!!!|
00001480  22 3b 0d 19 6e 42 42 31  3d 42 42 28 50 29 3a f1  |";..nBB1=BB(P):.|
00001490  27 27 22 20 20 50 6c 61  79 65 72 28 22 3b 50 2b  |''"  Player(";P+|
000014a0  31 3b 22 29 20 22 3b 3a  e7 42 31 3d 4d 31 20 f1  |1;") ";:.B1=M1 .|
000014b0  22 20 20 4c 45 56 45 4c  20 50 41 52 22 3b 3a e5  |"  LEVEL PAR";:.|
000014c0  8d 74 42 59 0d 19 78 29  40 25 3d 32 3a f1 94 28  |.tBY..x)@%=2:..(|
000014d0  4d 31 2d 42 31 29 3b 3a  e7 42 31 3c 4d 31 20 f1  |M1-B1);:.B1<M1 .|
000014e0  22 20 55 6e 64 65 72 20  70 61 72 22 3b 0d 19 7e  |" Under par";..~|
000014f0  18 e7 42 31 3e 4d 31 20  f1 22 20 4f 76 65 72 20  |..B1>M1 ." Over |
00001500  70 61 72 22 3b 0d 19 82  28 f1 22 20 61 66 74 65  |par";...(." afte|
00001510  72 20 22 3b 4e 3b 22 20  48 6f 6c 65 73 22 3a 55  |r ";N;" Holes":U|
00001520  28 50 2b 32 29 3d 31 3a  e5 8d 74 6a 59 0d 19 a0  |(P+2)=1:..tjY...|
00001530  1e 4a 31 3d 37 3a e7 b3  28 31 30 29 3e 36 8c 20  |.J1=7:..(10)>6. |
00001540  4a 31 3d 31 30 3a e5 8d  74 6a 59 0d 19 a2 12 e7  |J1=10:..tjY.....|
00001550  b3 28 31 30 29 3e 35 20  4a 31 3d 31 33 0d 19 aa  |.(10)>5 J1=13...|
00001560  2b ef 20 33 30 3a 58 58  58 3d a5 3a e3 4a 3d 30  |+. 30:XXX=.:.J=0|
00001570  b8 33 3a e7 55 28 4a 29  3d 30 20 8c 20 4a 3d 33  |.3:.U(J)=0 . J=3|
00001580  3a ed 3a e5 8d 74 6f 59  0d 19 ab 1d ed 3a 50 3d  |:.:..toY.....:P=|
00001590  4c 31 3a e7 41 28 4e 2c  30 29 3c 41 28 4e 2c 31  |L1:.A(N,0)<A(N,1|
000015a0  29 20 50 3d 30 0d 19 ac  17 e7 20 41 28 4e 2c 30  |) P=0..... A(N,0|
000015b0  29 3e 41 28 4e 2c 31 29  20 50 3d 31 0d 19 ad 0f  |)>A(N,1) P=1....|
000015c0  e7 4e 3c 31 38 20 e5 8d  54 4e 41 0d 19 ae 09 e5  |.N<18 ..TNA.....|
000015d0  8d 44 58 5b 0d 19 af 1c  51 51 28 50 29 3d 51 3a  |.DX[....QQ(P)=Q:|
000015e0  4a 3d 50 3a 50 3d 31 3a  e7 4a 3d 31 20 50 3d 30  |J=P:P=1:.J=1 P=0|
000015f0  0d 19 b0 12 e7 20 55 28  50 29 3d 30 20 e5 8d 44  |..... U(P)=0 ..D|
00001600  6c 42 0d 19 b1 2b 51 3d  51 51 28 50 29 3a 58 3d  |lB...+Q=QQ(P):X=|
00001610  58 58 28 50 29 3a 59 3d  59 59 28 50 29 3a e7 55  |XX(P):Y=YY(P):.U|
00001620  28 50 2b 32 29 3d 30 20  e5 8d 74 58 57 0d 19 b4  |(P+2)=0 ..tXW...|
00001630  14 4a 3d 50 3a 50 3d 31  3a e7 4a 3d 31 20 50 3d  |.J=P:P=1:.J=1 P=|
00001640  30 0d 19 b9 09 e5 8d 74  71 59 0d 1b 58 5c ef 31  |0......tqY..X\.1|
00001650  32 2c 31 39 2c 30 2c 35  2c 30 3b 30 3b 30 3a f1  |2,19,0,5,0;0;0:.|
00001660  27 27 22 20 20 20 20 20  20 20 2a 2a 2a 2a 20 53  |''"       **** S|
00001670  43 4f 52 45 20 43 41 52  44 20 2a 2a 2a 2a 22 27  |CORE CARD ****"'|
00001680  27 89 31 37 22 50 6c 61  79 65 72 28 31 29 22 3b  |'.17"Player(1)";|
00001690  3a e7 20 41 41 3d 30 3a  f1 22 20 50 6c 61 79 65  |:. AA=0:." Playe|
000016a0  72 28 32 29 22 3b 0d 1b  59 38 f1 27 22 20 20 20  |r(2)";..Y8.'"   |
000016b0  48 61 6e 64 69 63 61 70  20 20 20 20 20 20 20 20  |Handicap        |
000016c0  20 20 22 3b 45 28 34 29  3b 3a e7 20 41 41 3d 30  |  ";E(4);:. AA=0|
000016d0  8c f1 8a 33 31 2c 35 29  3b 45 28 35 29 3b 0d 1b  |...31,5);E(5);..|
000016e0  5b 3a f1 27 22 20 20 20  57 65 61 6b 6e 65 73 73  |[:.'"   Weakness|
000016f0  20 20 20 20 20 20 20 20  20 20 22 3b 45 28 32 29  |          ";E(2)|
00001700  3b 3a e7 20 41 41 3d 30  20 8c f1 8a 33 31 2c 36  |;:. AA=0 ...31,6|
00001710  29 3b 20 45 28 33 29 3b  0d 1b 5c 17 f1 27 22 20  |); E(3);..\..'" |
00001720  20 20 48 4f 4c 45 20 20  20 20 50 41 52 22 3b 0d  |  HOLE    PAR";.|
00001730  1b 61 08 40 25 3d 36 0d  1b 62 1a e3 4e 3d 31 b8  |.a.@%=6..b..N=1.|
00001740  31 38 3a 50 41 3d bb 28  c1 4c 24 2c 4e 2c 31 29  |18:PA=.(.L$,N,1)|
00001750  29 0d 1b 67 3a f1 27 4e  3b 22 20 20 20 20 20 20  |)..g:.'N;"      |
00001760  22 3b 50 41 3b 22 20 20  20 20 20 20 20 20 22 3b  |";PA;"        ";|
00001770  41 28 4e 2c 30 29 3b 3a  e7 41 28 4e 2c 30 29 3c  |A(N,0);:.A(N,0)<|
00001780  50 41 20 8c 20 f1 22 20  3c 22 3b 0d 1b 6c 34 e7  |PA . ." <";..l4.|
00001790  20 41 41 3d 30 20 8c 20  f1 8a 33 31 2c 28 4e 2b  | AA=0 . ..31,(N+|
000017a0  37 29 29 3b 41 28 4e 2c  31 29 3b 3a e7 41 28 4e  |7));A(N,1);:.A(N|
000017b0  2c 31 29 3c 50 41 20 8c  20 f1 22 20 3c 22 3b 0d  |,1)<PA . ." <";.|
000017c0  1b 76 3a ed 3a f1 27 22  20 20 54 6f 74 61 6c 20  |.v:.:.'"  Total |
000017d0  20 20 20 37 32 22 3b 22  20 20 20 20 20 20 20 20  |   72";"        |
000017e0  22 3b 42 42 28 30 29 3b  3a e7 42 42 28 30 29 3c  |";BB(0);:.BB(0)<|
000017f0  37 32 8c f1 22 20 3c 22  3b 0d 1b 7b 2a e7 41 41  |72.." <";..{*.AA|
00001800  3d 30 8c f1 8a 33 31 2c  32 36 29 3b 42 42 28 31  |=0...31,26);BB(1|
00001810  29 3b 3a e7 42 42 28 31  29 3c 37 32 8c f1 22 20  |);:.BB(1)<72.." |
00001820  3c 22 3b 0d 1b 80 1e f1  27 27 22 20 20 53 45 45  |<";.....''"  SEE|
00001830  20 59 4f 55 20 41 54 20  54 48 45 20 31 39 54 48  | YOU AT THE 19TH|
00001840  22 0d 1b 8a 05 e0 0d 1b  bc 35 e4 8d 64 50 47 3a  |"........5..dPG:|
00001850  e7 94 28 59 31 2d 31 37  29 3e 31 30 3a 41 31 3d  |..(Y1-17)>10:A1=|
00001860  35 30 3a f1 22 49 4e 20  48 45 41 56 59 20 52 4f  |50:."IN HEAVY RO|
00001870  55 47 48 22 3b 3a e5 8d  64 5a 5b 0d 1b d0 1c 41  |UGH";:..dZ[....A|
00001880  31 3d 37 35 3a f1 22 49  4e 20 4c 49 47 48 54 20  |1=75:."IN LIGHT |
00001890  52 4f 55 47 48 22 3b 0d  1b da 1a e4 8d 64 44 49  |ROUGH";......dDI|
000018a0  3a 43 43 24 3d bd 28 32  35 35 29 3a e5 8d 74 40  |:CC$=.(255):..t@|
000018b0  42 0d 1d 4c 38 e4 8d 64  50 47 3a f1 22 20 2a 2a  |B..L8..dPG:." **|
000018c0  2a 2a 42 55 4e 4b 45 52  45 44 2a 2a 2a 2a 22 3b  |**BUNKERED****";|
000018d0  3a e8 22 20 20 20 43 68  6f 6f 73 65 20 61 20 63  |:."   Choose a c|
000018e0  6c 75 62 20 3f 20 22 49  24 0d 1d 60 5c 43 3d bb  |lub ? "I$..`\C=.|
000018f0  28 c0 49 24 2c 31 29 29  3a e7 43 3c 31 84 43 3e  |(.I$,1)):.C<1.C>|
00001900  39 20 84 20 c1 49 24 2c  32 2c 31 29 3d 22 57 22  |9 . .I$,2,1)="W"|
00001910  20 8c e4 8d 64 50 47 3a  f1 22 20 59 6f 75 20 77  | ...dPG:." You w|
00001920  6f 6e 27 74 20 67 65 74  20 6f 75 74 20 77 69 74  |on't get out wit|
00001930  68 20 54 48 41 54 21 21  22 3a e4 8d 64 44 49 3a  |h THAT!!":..dDI:|
00001940  e5 8d 44 4c 5d 0d 1d 7e  0a 43 3d 43 2b 31 30 0d  |..DL]..~.C=C+10.|
00001950  1d a6 42 f1 8a 32 2c 33  29 3b 3a e8 22 20 25 61  |..B..2,3);:." %a|
00001960  67 65 20 73 77 69 6e 67  20 28 30 31 2d 39 39 29  |ge swing (01-99)|
00001970  20 3f 20 22 49 24 3a 42  3d bb 28 49 24 29 3a e7  | ? "I$:B=.(I$):.|
00001980  42 3c 30 20 84 20 42 3e  39 39 20 8c 20 8d 74 66  |B<0 . B>99 . .tf|
00001990  5d 0d 1d ba 2f 4d 3d 36  38 2b b3 28 31 37 29 2d  |].../M=68+.(17)-|
000019a0  28 31 39 2d 43 29 2a 35  2d 28 31 30 30 2d 42 29  |(19-C)*5-(100-B)|
000019b0  2a 2e 34 3a e7 46 3d 34  8c 20 4d 3d 4d 2a 2e 37  |*.4:.F=4. M=M*.7|
000019c0  0d 1d c9 15 e7 20 b3 28  31 30 29 3c 34 20 8c 20  |..... .(10)<4 . |
000019d0  4d 3d 4d 2f 33 0d 1d d3  1e e4 8d 64 50 47 3a e7  |M=M/3......dPG:.|
000019e0  4d 3e 32 35 8c 4c 31 3d  30 3a 42 3d 31 3a e5 8d  |M>25.L1=0:B=1:..|
000019f0  54 6a 43 0d 1d d8 0f 51  3d 51 2b 31 3a e5 8d 44  |TjC....Q=Q+1:..D|
00001a00  4c 5d 0d 1f 4a 2c e4 8d  64 50 47 3a f1 22 49 4e  |L]..J,..dPG:."IN|
00001a10  20 54 48 45 20 54 52 45  45 53 21 21 22 3a 4b 31  | THE TREES!!":K1|
00001a20  3d 30 3a e4 8d 64 44 49  3a e5 8d 74 40 42 0d 21  |=0:..dDI:..t@B.!|
00001a30  34 3a e4 8d 64 50 47 3a  d4 31 2c 2d 31 35 2c 32  |4:..dPG:.1,-15,2|
00001a40  30 30 2c 31 30 3a f1 22  53 50 4c 41 53 48 21 21  |00,10:."SPLASH!!|
00001a50  21 20 49 6e 20 74 68 65  20 53 74 72 65 61 6d 20  |! In the Stream |
00001a60  22 3b 3a e5 8d 44 64 45  0d 23 28 08 20 e5 20 9e  |";:..DdE.#(. . .|
00001a70  0d ff                                             |..|
00001a72
2.GOLF.m0
2.GOLF.m1
2.GOLF.m2
2.GOLF.m4
2.GOLF.m5