10 REM PALMR.ECB 100 REM ... PALMER ... LAST CHANGE 10-01-80 R.E.H. 110 DIM L(11) 111 PRINT "&K&J" 115 PRINT TAB(15);"*** P A L M E R ***" 120 PRINT 130 PRINT " WELCOME TO THE BROWN UNIVERSITY COUNTRY CLUB." 140 PRINT 150 PRINT "YOUR BAG OF CLUBS WILL NOW APPEAR...YOU'D BETTER GET A PENCIL." 160 PRINT " AND WRITE THEM DOWN SOMEWHERE." 170 GOSUB 1200 180 PRINT " HERE THEY ARE:" 190 PRINT 200 PRINT " WOODS (FULL SWING ONLY)" 210 PRINT " 1 DRIVER" 220 PRINT " 2 BRASSIE" 230 PRINT " 3 SPOON" 240 GOSUB 1200 250 PRINT " IRONS (FULL SWING ONLY)" 260 PRINT " 12 TWO IRON" 270 PRINT " . " 290 PRINT " 19 NINE IRON" 300 PRINT 310 PRINT " IRONS (LESS THAN FULL SWING)" 320 PRINT " 22 TWO IRON - PARTIAL SWING" 330 PRINT " ." 350 PRINT " 29 NINE IRON - PARTIAL SWING" 360 GOSUB 1210 370 PRINT " SORRY, NO SAND WEDGE IN THIS SET." 380 PRINT 390 PRINT " WHEN YOU REACH THE GREEN, IT WILL BE ASSUMED YOU ARE USING" 400 PRINT " A PUTTER." 410 PRINT 420 PRINT " NOTE: SCORER WILL ASK FOR PERCENT FULL SWING" 430 PRINT " ON CLUBS 22-29. THIS SHOULD BE A NUMBER FROM" 440 PRINT " 1 TO 99." 450 GOSUB 1200 460 PRINT " YOUR HANDICAP MUST BE 0-30 ACCORDING TO PGA RULES." 470 PRINT 480 PRINT " PUTT POTENCY REFERS TO THE STRENGTH WITH WHICH THE BALL" 490 PRINT " IS PUTTED. USE NUMBERS GREATER THAN ZERO, INCREASING THE" 500 PRINT " NUMBER FOR GREATER DISTANCE." 510 PRINT 520 PRINT 530 LET X=2 540 LET N=.8 550 LET S2=0 560 LET F=1 570 PRINT " WHAT IS YOUR HANDICAP"; 580 INPUT H 590 LET D1=INT(D1*W) 600 IF H<0 THEN 1180 610 IF H>9 THEN 640 620 PRINT " OH-OH, A HOT SHOT!" 630 GOTO 660 640 IF H<20 THEN 660 650 PRINT " ANYONE FOR TENNIS?" 660 PRINT " DIFFICULTIES AT GOLF INCLUDE:" 670 PRINT " 0=HOOK, 1=SLICE, 2=POOR DISTANCE, 4=TRAP SHOTS, 5=PUTTING" 680 PRINT " WHICH (ENTER ONLY ONE) IS YOUR WORST"; 690 INPUT (1,0)T 700 IF T<0 OR T>5 THEN 660 720 LET S1=0 730 LET Z2=((H+1)/(T+1))*10 740 FOR Z=1 TO Z2: LET R=RND(0): NEXT Z 770 LET Z9=RND(0) 780 LET L(1)=0 790 LET J=0 800 LET Q=0 810 LET K=0 820 IF F=1 THEN 990 830 PRINT " YOUR SCORE ON HOLE ";F-1;" WAS ";S1 840 IF S1>P+2 THEN 890 850 IF S1=P THEN 910 860 IF S1=P-1 THEN 930 870 IF S1=P-2 THEN 950 880 GOTO 990 890 PRINT " KEEP YOUR HEAD DOWN." 900 GOTO 990 910 PRINT " A PAR. NICE WORK." 920 GOTO 990 930 PRINT " A BIRDIE, AND TWEET-TWEET TO YOU." 940 GOTO 990 950 IF P=3 THEN 980 960 PRINT " A GREAT BIG EAGLE." 970 GOTO 990 980 PRINT " A HOLE IN ONE!" 990 IF F=19 THEN 2860 1000 LET S1=0 1010 PRINT 1020 IF S1=0 THEN 2670 1030 IF L(1)<1 THEN 2170 1040 LET X=1 1050 IF L(1)>5 THEN 2210 1060 PRINT " SHOT WENT ";D1;" YARDS - IS ";D2;" YARDS FROM HOLE." 1070 PRINT " BALL IS ";INT(O);" YARDS OFF LINE IN "; 1080 GOSUB 1100 1090 GOSUB 1320 1100 IF L(X)=1 THEN PRINT " FAIRWAY." 1110 IF L(X)=2 THEN PRINT " ROUGH." 1120 IF L(X)=3 THEN PRINT " TREES." 1130 IF L(X)=4 THEN PRINT " ADJACENT FAIRWAY." 1140 IF L(X)=5 THEN PRINT " TRAP." 1150 IF L(X)=6 THEN PRINT " WATER." 1160 IF L(X)<1 OR L(X)>6 THEN PRINT " OUT OF BOUNDS." 1170 GOTO 2800 1180 PRINT " PGA RULES HANDICAP = 0-30" 1190 GOTO 570 1200 PRINT 1210 PRINT " INPUT ANY LETTER TO CONTINUE ---=>"; 1220 INPUT (1,0)I$ 1230 PRINT 1240 RETURN 1320 PRINT 1330 PRINT " What CLUB do you want ---=>"; 1340 INPUT (2,0)C 1350 PRINT 1360 IF C<1 OR C>29 THEN 1440 1380 IF C>4 THEN 1460 1390 IF L(1)<5 THEN 1490 1400 IF C=1 OR C=23 THEN 1490 ELSE 1440 1430 LET S1=S1-1 1440 PRINT " GET LOST YOU TURKEY...YOU MADE A BOO-BOO." 1450 GOTO 1320 1460 IF C<12 THEN 1440 1470 LET C=C-6 1480 GOTO 1390 1490 LET S1=S1+1 1500 LET W=1 1510 IF C>13 THEN 1850 1520 IF F/3=INT(F/3) THEN 1800 1530 IF C<4 THEN 1550 ELSE 1560 1550 IF L(1)=2 THEN 1660 1560 IF S1>7 THEN 1690 1570 LET R1=RND(0) 1580 LET D1=INT(((30-H)*2.5+187-((30-H)*.25+15)*C/2)+25*R1) 1600 IF T=2 THEN 2190 1610 LET R1=RND(0) 1620 LET O=(R1/.8)*(2*H+16)*ABS(TAN(D1*.0035)) 1630 LET D2=INT(SQR(O*O+ABS(D-D1)*ABS(D-D1))) 1640 IF D-D1<0 THEN 1710 ELSE 1730 1660 PRINT " YOU DUBBED IT." 1670 LET D1=35 1680 GOTO 1610 1690 IF D2<20 THEN 1730 ELSE 1570 1710 IF D2<20 THEN 1730 1720 PRINT " TOO MUCH CLUB, YOU JERK. YOU ARE PAST THE HOLE." 1730 LET B=D 1740 LET D=D2 1750 IF D2>27 THEN 1980 1760 IF D2>20 THEN 2120 1770 IF D2>.5 THEN 2140 1780 LET L(1)=9 1790 GOTO 2530 1800 IF S2+Q+(10*(F-1)/18)<(F-1)*(72+((H+1)/.85))/18 THEN 1820 1810 GOTO 1530 1820 LET Q=Q+1 1830 IF S1/2<>INT(S1/2) THEN 1940 ELSE 1660 1850 PRINT " What percent full swing (1 to 100) ---=>"; 1860 INPUT W 1870 LET W=W/100 1880 PRINT 1890 IF W>1 THEN 1430 1900 IF L(1)=5 THEN 2310 1910 IF C=14 THEN 1560 1920 LET C=C-10 1930 GOTO 1560 1940 IF D<95 THEN 1660 1950 PRINT " BALL HIT TREE - BOUNCED INTO ROUGH";D-75;" YARDS FROM HOLE." 1960 LET D=D-75 1970 GOTO 1320 1980 IF O<30 THEN 2170 1990 IF J>0 THEN 2170 2000 IF T>0 THEN 2060 2010 IF (S2+1)/15=INT((S2+1)/15) THEN 2070 2020 PRINT " YOU HOOKED-" 2030 LET L(1)=L(3) 2040 IF O>45 THEN 2100 ELSE 1020 2060 IF (S2+1)/15=INT((S2+1)/15) THEN 2020 2070 PRINT " YOU SLICED-" 2080 LET L(1)=L(2) 2090 GOTO 2040 2100 PRINT " BADLY." 2110 GOTO 1020 2120 LET L(1)=5 2130 GOTO 1020 2140 LET L(1)=8 2150 LET D2=INT(D2*3) 2160 GOTO 2420 2170 LET L(1)=1 2180 GOTO 1020 2190 LET D1=INT(.85*D1) 2200 GOTO 1610 2210 IF L(1)>6 THEN 2290 2220 PRINT " YOUR SHOT WENT INTO WATER." 2230 LET S1=S1+1 2240 PRINT " PENALTY STROKE ASSESSED. HIT FROM PREVIOUS LOCATION." 2250 LET J=J+1 2260 LET L(1)=1 2270 LET D=B 2280 GOTO 1320 2290 PRINT " YOUR SHOT WENT OUT OF BOUNDS." 2300 GOTO 2230 2310 IF T=3 THEN 2350 2320 LET R1=RND(0) 2330 LET D2=1+(3*INT((80/(40-H))*R1)) 2340 GOTO 2420 2350 LET R1=RND(0) 2360 IF R1>N THEN 2400 2370 LET N=N*.2 2380 PRINT " SHOT DUBBED, STILL IN TRAP." 2390 GOTO 1320 2400 LET N=.8 2410 GOTO 2320 2420 PRINT " ON GREEN,";D2;" FEET FROM PIN." 2425 PRINT "*** INPUT YOUR PUTT POTENCY NUMBER ---=>"; 2430 INPUT I 2440 LET S1=S1+1 2450 IF S1+1-P>(H*.072)+2 THEN 2530 2460 IF K>2 THEN 2530 2470 LET K=K+1 2480 IF T=4 THEN 2610 2490 LET R1=RND(0) 2500 LET D2=D2-I*(4+2*R1)+1.5 2510 IF D2<-2 THEN 2640 2520 IF D2>2 THEN 2580 2530 PRINT " YOU H*O*L*E*D IT" 2540 PRINT 2550 LET F=F+1 2560 LET S2=S2+S1 2570 GOTO 780 2580 PRINT " PUTT SHORT." 2590 LET D2=INT(D2) 2600 GOTO 2420 2610 LET R1=RND(0) 2620 LET D2=D2-I*(4+R1)+1 2630 GOTO 2510 2640 PRINT " PASSED BY CUP." 2650 LET D2=-D2 2660 GOTO 2590 2670 READ D,P,L(1),L(2) 2680 PRINT 2690 PRINT " READY TO GO? (0=NO, 1=YES)"; 2700 INPUT (1,0)R 2710 IF R=0 THEN 2860 2720 PRINT 2730 PRINT " YOU ARE AT TEE OF HOLE ";F;" ,DISTANCE ";D;" YARDS, PAR ";P 2740 PRINT " ON YOUR RIGHT IS"; 2750 LET X=1 2760 GOSUB 1100 2770 PRINT " ON YOUR LEFT IS"; 2780 GOSUB 1100 2790 GOTO 1320 2800 RETURN 2810 DATA 361,4,4,2,389,4,3,3,206,3,4,2,500,5,7,2 2820 DATA 408,4,2,4,359,4,6,4,424,4,4,2,388,4,4,4 2830 DATA 196,3,7,2,400,4,7,2,560,5,7,2,132,3,2,2 2840 DATA 357,4,4,4,294,4,2,4,475,5,2,3,375,4,4,2 2850 DATA 180,3,6,2,550,5,6,6 2860 PRINT 2870 PRINT " TOTAL SCORE FOR ";F-1;" HOLES WAS ";S2 2880 PRINT 2890 PRINT " PLEASE PAY THE GROUNDSKEEPER ON THE WAY OUT..." 2900 END