10 REM GOLFP.ECB
   20 REM ....=== GOLF PRO === LAST CHANGE ON 4-6-78    R.E.H.
   30 PRINT
   40 PRINT TAB(15);"%%%%%%%%%%%%%%%%%%%"
   50 PRINT TAB(15);"%%%             %%%"
   60 PRINT TAB(15);"%%%   GOLF PRO  %%%"
   70 PRINT TAB(15);"%%%             %%%"
   80 PRINT TAB(15);"%%%%%%%%%%%%%%%%%%%"
   90 PRINT
  100 LET X=1
  110 PRINT "  DO YOU WANT INSTRUCTIONS ---=>";
  120 INPUT Z$
  125 PRINT
  130 IF Z$="YES" THEN 150
  135 IF Z$="Y" THEN 150
  140 GOTO 320
  150 PRINT " EXERCISE IN SPHERICAL BALLISTICS"
  160 PRINT
  170 PRINT " TOOLS FOR EXERCISE ARE AS FOLLOWS:"
  180 PRINT
  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."
  320 PRINT " WHICH NUMBER COURSE DO YOU WANT TO PLAY ";
  330 INPUT V6
  340 IF V6<=2 THEN 370
  350 PRINT " SORRY.  THERE ARE ONLY TWO COURSES AVAILABLE."
  351 PRINT " FOUR MORE FANTASTIC COURSES ARE BEING PLANNED, THO!"
  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=0.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 ";
  530 INPUT Z$
  540 IF Z$="BACK" THEN 3110
  550 GOTO 570
  560 LET H1=9
  570 PRINT " WHAT IS YOUR HANDICAP ";
  580 INPUT H
  590 LET D1=INT(D1*W)
  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 T
  650 IF T>5 THEN 610
  660 LET S1=0
  670 LET R=RND(-(H+1)/(T+1)): REM ...REMOVED THE +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 Z$="BACK" THEN 760
  750 GOTO 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 87
  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 940
  870 PRINT " A BIRDIE! FAR OUT!"
  880 GOTO 940
  890 IF P=3 THEN 920
  900 PRINT " AN  E A G L E !!! FANTASTIC!"
  910 GOTO 940
  920 PRINT " A HOLE IN  O N E !!!!!!! UNBELIEVABLE !!!"
  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."
 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, DUMMY. YOU BLEW IT. TRY AGAIN."
 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(-R))
 1600 IF G=0 THEN 1650
 1610 LET D6=G*D
 1620 IF D1>D6+30 THEN 1650
 1630 IF D1<D6 THEN 1650
 1640 GOTO 2310
 1650 IF T=2 THEN 2280
 1660 LET O=(RND(-R)/.8)*(2*H+16)*ABS(TAN(D1*.0035))
 1670 LET G=0
 1680 LET D2=INT(SQR(O^2+ABS(D-D1)^2))
 1690 IF D-D1<0 THEN 1760
 1700 GOTO 1780
 1710 PRINT " YOU DUBBED IT."
 1720 LET D1=INT(35+(-1^F*10*RND(-R)))
 1730 GOTO 1660
 1740 IF D<200 THEN 2420
 1750 GOTO 1580
 1760 IF D2<20 THEN 1780
 1770 PRINT " TOO MUCH CLUB. WENT 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
 1860 GOTO 1540
 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. PERCENT FULL SWING ";
 1980 GOTO 1910
 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(-R)))
 2430 GOTO 2500
 2440 IF RND(-R)>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 I
 2520 IF I<15 THEN 2540
 2530 PRINT " THATS 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(-R))+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(-R))+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=1
 2820 GOSUB 1070
 2830 PRINT " ON YOUR LEFT IS ";
 2840 LET X=2
 2850 LET G=L(3)
 2860 LET L(3)=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.4,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,5,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 YOU ENJOYED YOUR GAME!"
 3060 PRINT " DO YOU WANT TO PLAY ANOTHER ROUND ";
 3070 INPUT V$
 3080 IF V$="YES" THEN 240
 3085 IF V$="Y" THEN 240
 3090 PRINT " THANK YOU. IF YOU HAVE QUESTIONS OR COMMENTS ON IMPROVING"
 3091 PRINT "  THIS GAME, PLEASE CONTACT B. KLINE X2061"
 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
 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
 3410 END