10 REM GOLFR.ECB
   90 PRINT "&K&J&J","/:\  G O L F E R  /:\&J&J"
  100 LET X=1
  110 PRINT " DO YOU WANT INSTRUCTIONS": LET Z9=0
  120 INPUT (1,0)"( Y=yes   N=no )---=>",Z$: LET Z$=Z$+"N"
  130 IF Z$(1,1)="N" THEN 320
  140 IF Z$(1,1)="n" THEN 320 ELSE  PRINT "&K"
  150 PRINT "*+*  EXERCISE IN SPHERICAL BALLISTICS  *+*"
  160 LET Z9=1
  170 PRINT "TOOLS FOR EXERCISE ARE AS FOLLOWS:"
  190 PRINT " 1 thru  5 are WOODS"
  200 PRINT "11 thru 19 are IRONS (full swing)"
  210 PRINT "21 thru 29 are IRONS (partial swing)"
  220 PRINT "20 thru 20 is a WEDGE."
  230 PRINT " 0 thru 20 is RANGE for PUTT POTENCY."
  240 PRINT
  250 PRINT "THE FOLLOWING COURSES CAN BE PLAYED:"
  260 PRINT "    1- SEDUM SOD COUNTRY CLUB (members only)."
  270 PRINT "    2- DWAN PUBLIC LINKS."
  280 PRINT "    3- UNIVERSITY of MINNESOTA."
  290 PRINT "    4- BRAEMAR PUBLIC LINKS."
  300 PRINT "    5- NORMANDALE (par 3 - 9 holes)."
  310 PRINT "    6- HYLAND GREENS (par 3 - 9 holes)."
  320 PRINT "Which NUMBER COURSE do you want to play ";
  330 INPUT (1,0)" ---=>",V6
  340 IF V6<=6 THEN 370
  350 PRINT "SORRY.  THERE ARE ONLY SIX COURSES AVAILABLE."
  360 GOTO 240
  370 LET V7=(V6-1)*18
  380 IF V6<6 THEN 400
  390 LET V7=V7-9
  400 FOR V5=1 TO V7
  410   READ D,P,L1,L2
  420 NEXT V5
  430 PRINT
  440 LET S3=0
  450 LET N=.8
  460 LET S2=0
  470 LET F=1
  480 IF V6>4 THEN 560
  490 PRINT "How many holes do you want to play ---=>";
  500 INPUT H1
  510 IF H1<>9 THEN 570
  520 PRINT "FRONT or BACK NINE ?&J"
  530 INPUT (1,0)"( 0=FRONT  1=BACK ) ---=>",Z9
  540 IF Z9=1 THEN 3110
  550 GOTO 570
  560 LET H1=9
  570 PRINT "What is your HANDICAP ---=>";
  580 INPUT H
  590 IF H>30 THEN 1150
  600 IF H<0 THEN 1150
  610 PRINT "DIFFICULTIES AT GOLF INCLUDE:"
  620 PRINT "  0=HOOK, 1=SLICE, 2=POOR DISTANCE, 3=TRAP SHOTS, 4=PUTTING"
  630 PRINT "WHICH (enter only one) IS YOUR WORST ---=>";
  640 INPUT (1,0)T
  650 IF T>5 THEN 610
  660 LET S1=0
  670 LET R=RND(0): REM.......WAS-->LET R=RND(-(H+1)/(T+1))+CLK(X)
  680 LET L(1)=0
  690 LET J=0
  700 LET Q=0
  710 LET S2=S2+S1
  720 LET K=0
  730 IF F=1 THEN 950
  740 IF Z9<>1 THEN 770
  760 IF F=10 THEN 950
  770 PRINT "Your score on hole ";F-1;" was ";S1;" par was ";P
  780 IF S1>P+2 THEN 830
  790 IF S1=P THEN 850
  800 IF S1=P-1 THEN 870
  810 IF S1=P-2 THEN 890
  820 GOTO 940
  830 PRINT "KEEP YOUR HEAD DOWN."
  840 GOTO 940
  850 PRINT "A PAR. NICE GOING."
  860 GOTO 1540
  870 PRINT "A BIRDIE, AND TWEET-TWEET TO YOU."
  880 GOTO 940
  890 IF P=3 THEN 920
  900 PRINT "A   G R E A T  B I G  E*A*G*L*E."
  910 GOTO 940
  920 PRINT "A HOLE IN*O*N*E*."
  930 PRINT
  940 PRINT "Score so far is ";S2;" against par of ";S3
  950 IF F=H1+1 THEN 2980
  960 LET S1=0
  970 PRINT
  980 IF S1=0 THEN 2750
  990 IF L(X)<1 THEN 2260
 1000 LET X=1
 1010 IF L(X)>5 THEN 2300
 1020 PRINT "Shot went ";D1;" yards; is ";D2;" yards from hole."
 1030 PRINT "Ball is ";INT(O);" yards off line-in ";
 1040 LET B=D2
 1050 GOSUB 1070
 1060 GOTO 1290
 1070 IF L(X)=1 THEN 1170
 1080 IF L(X)=2 THEN 1190
 1090 IF L(X)=3 THEN 1210
 1100 IF L(X)=4 THEN 1230
 1110 IF L(X)=5 THEN 1250
 1120 IF L(X)=6 THEN 1270
 1130 PRINT "OUT OF BOUNDS."
 1140 GOTO 2920
 1150 PRINT "PGA RULES HANDICAP=0-30"
 1160 GOTO 570
 1170 PRINT "FAIRWAY."
 1180 GOTO 2920
 1190 PRINT "ROUGH."
 1200 GOTO 2920
 1210 PRINT "TREES."
 1220 GOTO 2920
 1230 PRINT "ADJACENT FAIRWAY."
 1240 GOTO 2920
 1250 PRINT "TRAP."
 1260 GOTO 2920
 1270 PRINT "WATER."
 1280 GOTO 2920
 1290 PRINT
 1300 PRINT "What club do you want ---=>";
 1310 INPUT C
 1320 PRINT
 1330 IF C<1 THEN 1440
 1340 IF C>1 THEN 1360
 1350 IF S2=1 THEN 1710
 1360 IF C>29 THEN 1440
 1370 IF C>5 THEN 1470
 1380 IF L(1)<5 THEN 1500
 1390 IF C=14 THEN 1500
 1400 IF C=23 THEN 1500
 1410 GOTO 1440
 1420 LET S1=S1-1
 1430 LET W=1
 1440 PRINT "THINK. YOU BLEW IT. TRY AGAIN."
 1445 PRINT " 1 thru  5 are WOODS"
 1446 PRINT "11 thru 19 are IRONS (full swing)"
 1447 PRINT "21 thru 29 are IRONS (partial swing)"
 1448 PRINT "20 thru 20 is a WEDGE."
 1450 PRINT
 1460 GOTO 1290
 1470 IF C<11 THEN 1440
 1480 LET C=C-6
 1490 GOTO 1380
 1500 LET S1=S1+1
 1510 LET W=1
 1520 IF C>13 THEN 1900
 1530 IF F/3=INT(F/3) THEN 1850
 1540 IF C<4 THEN 1560
 1550 GOTO 1570
 1560 IF L(1)=2 THEN 1710
 1570 IF S1>7 THEN 1740
 1580 LET D1=INT(((30-H)*2.5+187-((30-H)*.25+15)*C/2)+25*RND(0))
 1600 IF G=0 THEN 1650
 1610 LET D6=G*D
 1620 IF D1>G6+30 THEN 1650
 1630 IF D1<G6 THEN 1650
 1640 GOTO 2310
 1650 IF T=2 THEN 2280
 1660 LET O=(RND(0)/.8)*(2*H+16)*ABS(TAN(D1*.0035))
 1670 LET G=0
 1680 LET D2=INT(SQR((O*O)+ABS((D-D1)*(D-D1))))
 1690 IF D-D1<0 THEN 1760
 1700 GOTO 1780
 1710 PRINT "YOU DUBBED IT."
 1720 LET D1=INT(35+(-1**(F*10*RND(0))))
 1730 GOTO 1660
 1740 IF D<200 THEN 2420
 1750 GOTO 1580
 1760 IF D2<20 THEN 1780
 1770 PRINT "TOO MUCH CLUB. YOU'RE PAST HOLE."
 1780 LET B=D
 1790 LET D=D2
 1800 IF D2>27 THEN 2070
 1810 IF D2>20 THEN 2210
 1820 IF D2>.5 THEN 2230
 1830 LET L(1)=9
 1840 GOTO 2630
 1850 IF S2+Q+(10*(F-1)/18)<(F-1)*(72+((H+1)/.85))/18 THEN 1870
 1870 LET Q=Q+1
 1880 IF S1/2<>INT(S1/2) THEN 2030
 1890 GOTO 1710
 1900 PRINT "Percent FULL SWING ---=>";
 1910 INPUT W
 1920 PRINT
 1930 IF W>1 THEN 1950
 1940 GOTO 1990
 1950 PRINT "NO, PERCENTS ARE EXPRESSED IN DECIMALS."
 1960 PRINT "FOR EXAMPLE, 80 PERCENT IS TYPED .80 -"
 1970 PRINT "TRY AGAIN.  ";
 1980 GOTO 1900
 1990 IF L(X)=5 THEN 2410
 2000 IF C=14 THEN 1570
 2010 LET C=C-10
 2020 GOTO 1570
 2030 IF D<95 THEN 1710
 2040 PRINT "BALL HIT TREE-BOUNCED INTO ROUGH ";D-75;" YARDS FROM HOLE."
 2050 LET D=D-75
 2060 GOTO 1290
 2070 IF O<30 THEN 2260
 2080 IF J>0 THEN 2260
 2090 IF T>0 THEN 2150
 2100 IF (S2+1)/15=INT((S2+1)/15) THEN 2160
 2110 PRINT "YOU HOOKED- ";
 2120 LET L(1)=L(3)
 2130 IF O>45 THEN 2190
 2140 GOTO 980
 2150 IF (S2+1)/15=INT((S2+1)/15) THEN 2110
 2160 PRINT "YOU SLICED-";
 2170 LET L(1)=L(2)
 2180 GOTO 2130
 2190 PRINT "BADLY."
 2200 GOTO 980
 2210 LET L(1)=5
 2220 GOTO 980
 2230 LET L(1)=8
 2240 LET D2=INT(D2*3)
 2250 GOTO 2500
 2260 LET L(1)=1
 2270 GOTO 980
 2280 LET D1=INT(.85*D1)
 2290 GOTO 1660
 2300 IF L(1)>6 THEN 2390
 2310 PRINT "YOUR SHOT WENT INTO WATER."
 2320 LET G=0
 2330 LET S1=S1+1
 2340 PRINT "PENALTY STROKE ASSESSED. HIT FROM PREVIOUS LOCATION."
 2350 LET J=J+1
 2360 LET L(X)=1
 2370 LET D=B
 2380 GOTO 1290
 2390 PRINT "YOUR SHOT WENT OUT OF BOUNDS."
 2400 GOTO 2330
 2410 IF T=3 THEN 2440
 2420 LET D2=1+(3*INT((80/(40-H))*RND(0)))
 2430 GOTO 2500
 2440 IF RND(0)>N THEN 2480
 2450 LET N=N*.2
 2460 PRINT "SHOT DUBBED, STILL IN TRAP."
 2470 GOTO 1290
 2480 LET N=.8
 2490 GOTO 2420
 2500 PRINT "On GREEN ";D2;" feet from PIN.  Putt POTENCY NUMBER?"
 2510 INPUT (2,0)" ( Enter 0 to 20 ) ---=>",I
 2520 IF I<15 THEN 2540
 2530 PRINT "THAT'S A PRETTY POTENT PUTT."
 2540 PRINT
 2550 LET S1=S1+1
 2560 IF S1+1-P>(H*.072)+2 THEN 2630
 2570 IF K>2 THEN 2630
 2580 LET K=K+1
 2590 IF T=4 THEN 2700
 2600 LET D2=D2-I*(4+2*RND(0))+1.5
 2610 IF D2<-2 THEN 2720
 2620 IF D2>2 THEN 2670
 2630 PRINT "YOU H*O*L*E*D IT"
 2640 PRINT
 2650 LET F=F+1
 2660 GOTO 680
 2670 PRINT "PUTT SHORT."
 2680 LET D2=INT(D2)
 2690 GOTO 2500
 2700 LET D2=D2-I*(4+1*RND(0))+1
 2710 GOTO 2610
 2720 PRINT "PASSED BY CUP."
 2730 LET D2=-D2
 2740 GOTO 2680
 2750 READ D,P,L(2),L(3)
 2760 LET S3=S3+P
 2770 PRINT
 2780 PRINT "You are at TEE of HOLE ";F;" Distance ";D;" yards, par ";P
 2790 LET B=D
 2800 PRINT "On your right is ";
 2810 LET X=2
 2820 GOSUB 1070
 2830 PRINT "On your left is ";
 2840 LET X=3
 2850 LET G=L(3)
 2860 LET L(2)=INT(G)
 2870 LET G=G-L(3)
 2880 GOSUB 1070
 2890 IF G=0 THEN 1290
 2900 PRINT "WITH WATER IN FRONT."
 2910 GOTO 1290
 2920 RETURN
 2930 DATA 361,4,4,2,389,4,3,3,206,3,4,2,500,5,7,2
 2940 DATA 408,4,2,4,359,4,6,4,424,4,4,2,388,4,4,4
 2950 DATA 196,3,7,2,400,4,7,2,560,5,7,2,132,3,2,2
 2960 DATA 357,4,4,4,294,4,2,4,475,5,2,3,375,4,4,2
 2970 DATA 180,3,6,2,550,5,6,6
 2980 PRINT
 2990 PRINT "TOTAL SCORE FOR ";F-1;" HOLES WAS ";S2
 3000 LET H=H*H1/18.
 3010 LET S3=S3+H
 3020 IF S2<=S3 THEN 3170
 3030 IF S2>1.1*S3 THEN 3200
 3040 PRINT "PAR PLUS YOUR HANDICAP WAS ";S3
 3050 PRINT "I HOPE THAT YOU ENJOYED YOUR GAME"
 3060 PRINT "DO YOU WANT TO PLAY ANOTHER GAME ?"
 3070 INPUT (1,0)" ( Y=yes   N=no ) ---=>",Z$
 3075 LET Z$=Z$+"Y"
 3080 IF Z$(1,1)="Y" THEN 240
 3085 IF Z$(1,1)="y" THEN 240
 3090 PRINT "THANK YOU."
 3100 GOTO 3410
 3110 FOR V5=1 TO 9
 3120   READ D,P,L1,L2
 3130 NEXT V5
 3140 LET F=F+9
 3150 LET H1=H1+9
 3160 GOTO 570
 3170 IF S2<.9*S3 THEN 3220
 3180 PRINT "THAT WAS A GOOD ROUND, SINCE"
 3190 GOTO 3040
 3200 PRINT "PERHAPS YOU NEED MORE PRACTICE, SINCE"
 3210 GOTO 3040
 3220 PRINT "ARE YOU A HUSTLER? I WONDER BECAUSE"
 3230 GOTO 3040
 3240 DATA 345,4,3,2,325,4,5,5,495,5,6,4,130,3,5,2,370,4,7,7,175,3,2,3
 3250 DATA 350,4,2,5,170,3,2,2,330,4,4,3,325,4,5,3,125,3,5,4
 3260 DATA 465,5,6,3,325,4,4,3,380,4,7,7,170,3,5,7,320,4,4,4,385,4,6,4
 3270 DATA 130,3,6,5.25
 3280 DATA 400,4,2,7,168,3,3,3.5,409,4,7,3,370,4,3,2,160,3,3,3,300,4,3,5
 3290 DATA 471,5,2,3,200,3,3,3,472,5,4,4,350,4,7,3,358,4,3,7
 3300 DATA 426,4,3,4,545,5,7,3,283,4,3,1,399,4,7,3
 3310 DATA 425,4,7,3,155,3,3,3.4,440,4,4,3
 3320 DATA 472,5,7,4,578,5,7,6,173,3,2,3,426,4,3,3
 3330 DATA 406,4,7,4,229,3,4,4,425,4,6,4,370,4,4,7,478,5,4,6
 3340 DATA 456,4,4,4,332,4,6,4,135,3,2,2,354,4,2,4
 3350 DATA 458,5,2,6,396,4,2,4,529,5,6,4,340,4,6,6
 3360 DATA 385,4,5,4.2
 3370 DATA 165,3,4,7,140,3,7,4,195,3,4,7,145,3,6,7.4,215,3,1,7
 3380 DATA 200,3,3,7,160,3,3,7,150,3,1,7.2,205,3,5,7
 3390 DATA 175,3,7,4,170,3,2,4,160,3,2,4,220,3,7,4,170,3,2,4
 3400 DATA 195,3,3,3,150,3,7,4.3,165,3,7,3,155,3,5,4
 3410 END