1  DIM L[11],A$[9]
2  PRINT "WELCOME TO THE TIES TIMESHARING 18 HOLE CHAMPIONSHIP COURSE"
3  GOSUB 234
4  X=3
5  N=.8
6  S1=S2=T5=0
7  F=1
8  PRINT "WHAT IS YOUR HANDICAP ";
9  INPUT H
10  IF H>30 OR H<0 THEN 220
11  IF H>9 THEN 14
12  PRINT "OH-OH, A HOT SHOT!"
13  GOTO 16
14  IF H<20 THEN 16
15  PRINT "ANYONE FOR TENNIS?"
16  PRINT "DIFFICULTIES AT GOLF INCLUDE:"
17  PRINT "   0=HOOK, 1=SLICE, 2=POOR DISTANCE, 4=TRAP SHOTS, 5=PUTTING"
18  PRINT "WHICH IS YOUR WORST ";
19  INPUT T
20  IF T>5 OR T<0 OR T=3 THEN 18
21  FOR Z=1 TO (H+1)/(T+1)*10
23  NEXT Z
24  J=Q=K=L[1]=0
25  S2=S2+S1
26  IF F=1 THEN 40
27  PRINT "YOUR SCORE ON HOLE"F-1"WAS"S1
28  GOTO P-S1+3 OF 39,39,31,33,35
29  PRINT "KEEP YOUR HEAD DOWN."
30  GOTO 39
31  PRINT "A PAR. NICE GOING."
32  GOTO 39
33  PRINT "A BIRDIE, AND TWEET-TWEET TO YOU."
34  GOTO 39
35  IF P=3 THEN 38
36  PRINT "A GREAT BIG EAGLE."
37  GOTO 39
38  PRINT "A HOLE IN *O*N*E*."
39  IF F=19 THEN 208
40  S1=0
41  IF S1=0 THEN 193
42  IF L[1]<1 THEN 146
43  X=1
44  IF L[1]>5 THEN 150
45  PRINT "SHOT WENT"D1"YARDS - IS"D2"YARDS FROM HOLE."
46  PRINT "BALL IS"INT(O)"YARDS OFF LINE IN ";
47  GOSUB 217
48  PRINT "WHAT CLUB DO YOU WANT ";
49  INPUT C
50  IF C THEN 70
51  FOR T6=1 TO 69
52  PRINT "-";
53  NEXT T6
54  PRINT 
55  IF C=9 THEN 48
56  PRINT "HERE'S YOUR BAG OF CLUBS"'13'10'10"  WOODS (FULL SWING ONLY)"
57  PRINT "     1   DRIVER     2   BRASSIE     3   SPOON"
58  PRINT "  IRONS (FULL SWING ONLY)     12   TWO IRON     ."
59  PRINT "     19   NINE IRON  IRONS (LESS THEN FULL SWING)"
60  PRINT "     22   TWO IRON - PARTIAL SWING     ."
61  PRINT "     29   NINE IRON - PARTIAL SWING"
62  PRINT "WHEN YOU REACH THE GREEN IT WILL BE ASSUMED THAT YOU ARE"
63  PRINT "USING A PUTTER. THE PUTT POTENCY NO. REFERS TO THE STRENGTH"
64  PRINT "WITH WHICH THE BALL IS PUTTED. USE NUMBERS GREATER THAN"
65  PRINT "ZERO, INCREASING THE NUMBER FOR GREATER DISTANCE."
66  PRINT "YOU WILL BE ASKED FOR 'PERCENT FULL SWING' ON CLUBS 22-29."
67  PRINT "THIS SHOULD BE A NUMBER FROM 1 TO 99."
68  C=9
69  GOTO 51
70  IF C<1 OR C>29 THEN 76
71  IF C>3 THEN 78
72  IF L[1]<5 OR C=14 OR C=23 THEN 81
73  GOTO 76
74  S1=S1-1
75  W=1
76  GOSUB 234
77  GOTO 48
78  IF C<12 THEN 76
79  C=C-6
80  GOTO 72
81  S1=S1+1
82  W=1
83  IF C>13 THEN 114
84  IF F/3=INT(F/3) THEN 110
85  IF C<4 THEN 87
86  GOTO 88
87  IF L[1]=2 THEN 96
88  IF S1>7 THEN 99
89  D1=INT(((30-H)*2.5+187-((30-H)*.25+15)*C/2)+25*RND(0))
90  D1=INT(D1*W)
91  IF T=2 THEN 148
92  O=(RND(0)/.8)*(2*H+16)*ABS(TAN(D1*.0035))
93  D2=INT(SQR(O^2+ABS(D-D1)^2))
94  IF D-D1<0 THEN 101
95  GOTO 103
96  PRINT "YOU DUBBED IT."
97  D1=35
99  IF D<200 THEN 161
100  GOTO 89
101  IF D2<20 THEN 103
102  PRINT "TOO MUCH CLUB. YOU ARE PAST HOLE."
103  B=D
104  D=D2
105  IF D2>27 THEN 128
106  IF D2>20 THEN 141
107  IF D2>.5 THEN 143
108  L[1]=9
109  GOTO 182
110  IF (72+((H+1)/.85))/18<S2+Q+(10*(F-1)/18) THEN 85
111  Q=Q+1
112  IF S1/2#INT(S1/2) THEN 124
113  GOTO 96
114  PRINT "PERCENT FULL SWING ";
115  INPUT W
116  W=W/100
117  T7=0
118  GOSUB (W>0 AND W<1)+1 OF 234
119  IF T7 THEN 114
120  IF L[1]=5 THEN 160
121  IF C=14 THEN 88
122  C=C-10
123  GOTO 88
124  IF D<95 THEN 96
125  PRINT "BALL HIT TREE - BOUNCED INTO ROUGH"D-75"YARDS FROM HOLE."
126  D=D-75
127  GOTO 48
128  IF O<30 OR J>0 THEN 146
129  IF T>0 THEN 135
130  IF (S2+1)/15=INT((S2+1)/15) THEN 136
131  PRINT "YOU HOOKED-";
132  L[1]=L[3]
133  IF O>45 THEN 139
134  GOTO 41
135  IF (S2+1)/15=INT((S2+1)/15) THEN 131
136  PRINT "YOU SLICED-";
137  L[1]=L[2]
138  GOTO 133
139  PRINT "BADLY."
140  GOTO 41
141  L[1]=5
142  GOTO 41
143  L[1]=8
144  D2=INT(D2*3)
145  GOTO 169
146  L[1]=1
147  GOTO 41
148  D1=INT(.85*D1)
149  GOTO 92
150  IF L[1]>6 THEN 158
151  PRINT "YOUR SHOT WENT INTO WATER."
152  S1=S1+1
153  PRINT "PENALTY STROKE ASSESSED. HIT FROM PREVIOUS LOCATION."
154  J=J+1
155  L[1]=1
156  D=B
157  GOTO 48
158  PRINT "YOUR SHOT WENT OUT OF BOUNDS."
159  GOTO 152
160  IF T=3 THEN 163
161  D2=1+(3*INT((80/(40-H))*RND(0)))
162  GOTO 169
163  IF RND(0)>N THEN 167
164  N=N*.2
165  PRINT "SHOT DUBBED, STILL IN TRAP."
166  GOTO 48
167  N=.8
168  GOTO 161
169  PRINT "ON GREEN"D2"FEET FROM PIN. PUT POTENCY NUMBER ";
170  INPUT I
171  T7=0
172  GOSUB 1.E+11*I+1 OF 234
173  IF T7 THEN 169
174  S1=S1+1
175  IF S1+1-P>(H*.072)+2 THEN 182
176  IF K>2 THEN 182
177  K=K+1
178  IF T=4 THEN 188
179  D2=D2-I*(4+2*RND(0))+1.5
180  IF D2<-2 THEN 190
181  IF D2>2 THEN 185
182  PRINT "YOU H*O*L*E*D IT"
183  F=F+1
184  GOTO 24
185  PRINT "PUTT SHORT."
186  D2=INT(D2)
187  GOTO 169
188  D2=D2-I*(4+RND(0))+1
189  GOTO 180
190  PRINT "PASSED BY CUP."
191  D2=-D2
192  GOTO 186
193  READ D,P,L[2],L[3]
194  PRINT "READY TO GO ";
195  INPUT A$
196  IF A$="NO" THEN 208
197  T5=T5+P
198  PRINT "YOU ARE AT TEE OFF HOLE"F", DISTANCE"D"YARDS PAR"P
199  PRINT "ON YOUR RIGHT IS ";
200  X=2
201  GOSUB 217
202  PRINT "ON YOUR LEFT IS ";
203  GOSUB 217
204  GOTO 48
205  DATA 361,4,4,2,389,4,3,3,206,3,4,2,500,5,7,2,408,4,2,4,359,4,6,4
206  DATA 424,4,4,2,388,4,4,4,196,3,7,2,400,4,7,2,560,5,7,2,132,3,2,2
207  DATA 357,4,4,4,294,4,2,4,475,5,2,3,375,4,4,2,180,3,6,2,550,5,6,6
208  PRINT "TOTAL SCORE FOR"F-1"HOLES WAS"S2
209  IF S2-T5 THEN 212
210  PRINT "PAR GAME"
211  END 
212  IF S2-T5>0 THEN 215
213  PRINT -(S2-T5)"UNDER PAR"
214  END 
215  PRINT S2-T5"OVER PAR"
216  END 
217  GOTO L[X] OF 222,224,226,228,230,232
218  PRINT "OUT OF BOUNDS."
219  RETURN 
220  PRINT "PGA RULES HANDICAP=0-30"
221  GOTO 8
222  PRINT "FAIRWAY."
223  RETURN 
224  PRINT "ROUGH."
225  RETURN 
226  PRINT "TREES."
227  RETURN 
228  PRINT "ADJACENT FAIRWAY."
229  RETURN 
230  PRINT "TRAP."
231  RETURN 
232  PRINT "WATER."
233  RETURN 
235  T7=9
236  RETURN 
237  END 
