10 REM ...GOLFR.BS5 90 PRINT "&K&J&J","/:\ G O L F E R /:\&J&J" 100 LET X=0 110 PRINT " DO YOU WANT INSTRUCTIONS?"; 120 INPUT " (1=Yes, 0=No) --=>" Z9 130 IF Z9=1 THEN 00150 140 GOTO 00320 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." 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 " --=>"V6 340 IF V6<=6 THEN 00370 350 PRINT "SORRY. THERE ARE ONLY SIX COURSES AVAILABLE." 360 GOTO 00240 370 LET V7=(V6-1)*18 380 IF V6<6 THEN 00400 390 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 00560 490 PRINT "HOW MANY HOLES DO YOU WANT TO PLAY?"; 500 INPUT " --=>"H1 510 IF H1<>9 THEN 00570 520 PRINT "FRONT OR BACK NINE ?&J" 530 INPUT "( 0=FRONT 1=BACK )"Z9 540 IF Z9=1 THEN 3110 550 GOTO 00570 560 LET H1=9 570 PRINT "WHAT IS YOUR HANDICAP?"; 580 INPUT " --=>"H 590 IF H>30 THEN 01150 600 IF H<0 THEN 01150 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 00610 660 LET S1=0 670 R=RND(0): REM ....WAS-->LET R=RND(-(H+1)/(T+1))+CLK(X) 680 LET L(0)=0 690 LET J=0 700 LET Q=0 710 LET S2=S2+S1 720 LET K=0 730 IF F=1 THEN 00950 740 IF Z9=1 THEN 760 750 GOTO 00770 760 IF F=10 THEN 00950 770 PRINT "YOUR SCORE ON HOLE ";F-1;" WAS ";S1;" PAR WAS ";P 780 IF S1>P+2 THEN 00830 790 IF S1=P THEN 00850 800 IF S1=P-1 THEN 00870 810 IF S1=P-2 THEN 00890 820 GOTO 00940 830 PRINT "KEEP YOUR HEAD DOWN." 840 GOTO 00940 850 PRINT "A PAR. NICE GOING." 860 GOTO 00940 870 PRINT "A BIRDIE, AND TWEET-TWEET TO YOU." 880 GOTO 00940 890 IF P=3 THEN 00920 900 PRINT "A G R E A T B I G E*A*G*L*E." 910 GOTO 00940 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 02980 960 LET S1=0 970 PRINT 980 IF S1=0 THEN 02750 990 IF L(X)<1 THEN 02260 1000 LET X=0 1010 IF L(X)>5 THEN 02300 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 01070 1060 GOTO 01290 1070 IF L(X)=1 THEN 01170 1080 IF L(X)=2 THEN 01190 1090 IF L(X)=3 THEN 01210 1100 IF L(X)=4 THEN 01230 1110 IF L(X)=5 THEN 01250 1120 IF L(X)=6 THEN 01270 1130 PRINT "OUT OF BOUNDS." 1140 GOTO 02920 1150 PRINT "PGA RULES HANDICAP=0-30" 1160 GOTO 00570 1170 PRINT "FAIRWAY." 1180 GOTO 02920 1190 PRINT "ROUGH." 1200 GOTO 02920 1210 PRINT "TREES." 1220 GOTO 02920 1230 PRINT "ADJACENT FAIRWAY." 1240 GOTO 02920 1250 PRINT "TRAP." 1260 GOTO 02920 1270 PRINT "WATER." 1280 GOTO 02920 1290 PRINT 1300 PRINT "WHAT CLUB DO YOU WANT?"; 1310 INPUT " --=>"C 1320 PRINT 1330 IF C<1 THEN 01440 1340 IF C>1 THEN 01360 1350 IF S2=1 THEN 01710 1360 IF C>29 THEN 01440 1370 IF C>5 THEN 01470 1380 IF L(0)<5 THEN 01500 1390 IF C=14 THEN 01500 1400 IF C=23 THEN 01500 1410 GOTO 01440 1420 LET S1=S1-1 1430 LET W=1 1440 PRINT "THINK. YOU BLEW IT. TRY AGAIN." 1450 PRINT 1460 GOTO 01290 1470 IF C<11 THEN 01440 1480 LET C=C-6 1490 GOTO 01380 1500 LET S1=S1+1 1510 LET W=1 1520 IF C>13 THEN 01900 1530 IF F/3=INT(F/3) THEN 01850 1540 IF C<4 THEN 01560 1550 GOTO 01570 1560 IF L(0)=2 THEN 01710 1570 IF S1>7 THEN 01740 1580 LET D1=INT(((30-H)*2.5+187-((30-H)*.25+15)*C/2)+25*RND(0)) 1590 LET D1=INT(D1*W) 1600 IF G=0 THEN 01650 1610 D6=G*D 1620 IF D1>G6+30 THEN 01650 1630 IF D127 THEN 02070 1810 IF D2>20 THEN 02210 1820 IF D2>.5 THEN 02230 1830 LET L(0)=9 1840 GOTO 02630 1850 IF S2+Q+(10*(F-1)/18)<(F-1)*(72+((H+1)/.85))/18 THEN 01870 1860 GOTO 01540 1870 LET Q=Q+1 1880 IF S1/2<>INT(S1/2) THEN 02030 1890 GOTO 01710 1900 PRINT "PERCENT FULL SWING?"; 1910 INPUT " --=>"W 1920 PRINT 1930 IF W>1 THEN 01950 1940 GOTO 01990 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 01910 1990 IF L(X)=5 THEN 02410 2000 IF C=14 THEN 01570 2010 LET C=C-10 2020 GOTO 01570 2030 IF D<95 THEN 01710 2040 PRINT "BALL HIT TREE-BOUNCED INTO ROUGH ";D-75;" YARDS FROM HOLE." 2050 LET D=D-75 2060 GOTO 01290 2070 IF O<30 THEN 02260 2080 IF J>0 THEN 02260 2090 IF T>0 THEN 02150 2100 IF (S2+1)/15=INT((S2+1)/15) THEN 02160 2110 PRINT "YOU HOOKED- "; 2120 LET L(0)=L(2) 2130 IF O>45 THEN 02190 2140 GOTO 00980 2150 IF (S2+1)/15=INT((S2+1)/15) THEN 02110 2160 PRINT "YOU SLICED-"; 2170 LET L(0)=L(1) 2180 GOTO 02130 2190 PRINT "BADLY." 2200 GOTO 00980 2210 LET L(0)=5 2220 GOTO 00980 2230 LET L(0)=8 2240 LET D2=INT(D2*3) 2250 GOTO 02500 2260 LET L(0)=1 2270 GOTO 00980 2280 LET D1=INT(.85*D1) 2290 GOTO 01660 2300 IF L(0)>6 THEN 02390 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 01290 2390 PRINT "YOUR SHOT WENT OUT OF BOUNDS." 2400 GOTO 02330 2410 IF T=3 THEN 02440 2420 LET D2=1+(3*INT((80/(40-H))*RND(0))) 2430 GOTO 02500 2440 IF RND(0)>N THEN 02480 2450 LET N=N*.2 2460 PRINT "SHOT DUBBED, STILL IN TRAP." 2470 GOTO 01290 2480 LET N=.8 2490 GOTO 02420 2500 PRINT "ON GREEN ";D2;" FEET FROM PIN. PUTT POTENCY NUMBER"; 2510 INPUT " --=>"I 2520 IF I<15 THEN 02540 2530 PRINT "THAT'S A PRETTY POTENT PUTT." 2540 PRINT 2550 LET S1=S1+1 2560 IF S1+1-P>(H*.072)+2 THEN 02630 2570 IF K>2 THEN 02630 2580 LET K=K+1 2590 IF T=4 THEN 02700 2600 LET D2=D2-I*(4+2*RND(0))+1.5 2610 IF D2<-2 THEN 02720 2620 IF D2>2 THEN 02670 2630 PRINT "YOU H*O*L*E*D IT" 2640 PRINT 2650 LET F=F+1 2660 GOTO 00680 2670 PRINT "PUTT SHORT." 2680 LET D2=INT(D2) 2690 GOTO 02500 2700 LET D2=D2-I*(4+1*RND(0))+1 2710 GOTO 02610 2720 PRINT "PASSED BY CUP." 2730 LET D2=-D2 2740 GOTO 02680 2750 READ D,P,L(1),L(2) 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 01070 2830 PRINT "ON YOUR LEFT IS "; 2840 LET X=2 2850 LET G=L(2) 2860 LET L(2)=INT(G) 2870 LET G=G-L(2) 2880 GOSUB 01070 2890 IF G=0 THEN 01290 2900 PRINT "WITH WATER IN FRONT." 2910 GOTO 01290 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 H=H*H1/18. 3010 LET S3=S3+H 3020 IF S2<=S3 THEN 03170 3030 IF S2>1.1*S3 THEN 03200 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=Yes, 0=No) ---=>"V9 3080 IF V9=1 THEN 240 3090 PRINT "THANK YOU." 3100 GOTO 03410 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 00570 3170 IF S2<.9*S3 THEN 03220 3180 PRINT "THAT WAS A GOOD ROUND, SINCE" 3190 GOTO 03040 3200 PRINT "PERHAPS YOU NEED MORE PRACTICE, SINCE" 3210 GOTO 03040 3220 PRINT "ARE YOU A HUSTLER? I WONDER BECAUSE" 3230 GOTO 03040 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