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))/180 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