home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / MBUG / MBUG055.ARC / GOLF.BAS < prev    next >
BASIC Source File  |  1979-12-31  |  10KB  |  331 lines
  1. 100 REM JOHN RODENBERG, TOM DOSLAND - NUSCC - 3/22/72   
  2. 110 REM REVISED BY D. KURLAND  11/16/75 
  3. 120 PRINT "BEFORE EACH HOLE A QUESTION MARK WILL APPEAR.  IF YOU"   
  4. 130 PRINT "WOULD LIKE TO CONTINUE PLAYING, TYPE A *1* (ONE) AND"
  5. 140 PRINT "IF YOU WOULD LIKE TO QUIT AND RECEIVE YOUR SCORECARD,"   
  6. 150 PRINT "TYPE A *0*  (ZERO)." 
  7. 160 DIM L(10),Y(20),A(20,2) 
  8. 170 PRINT   
  9. 180 PRINT "DO YOU WANT A LIST OF CLUBS, SWING INFORMATION, AND" 
  10. 190 PRINT "SCORING INFORMATION";
  11. 200 INPUT A1$   
  12. 210 IF A1$="YES" OR A1$="Y" THEN GOSUB 440  
  13. 220 PRINT   
  14. 230 PRINT "DO YOU WANT A LIST OF COURSES";  
  15. 240 INPUT A1$   
  16. 250 IF A1$="YES" OR A1$="Y" THEN GOSUB 350  
  17. 260 PRINT "WHICH COURSE YOU WISH TO PLAY";  
  18. 270 INPUT Z5
  19. 280 Z5=INT(Z5)  
  20. 290 IF Z5<1 OR Z5>4 THEN 260
  21. 300 IF Z5=1 THEN 680
  22. 310 FOR Z4=1 TO 72*(Z5-1)   
  23. 320 READ Z6 
  24. 330 NEXT Z4 
  25. 340 GOTO 680   
  26. 350 PRINT   
  27. 360 PRINT "COURSE                PAR    YARDS"  
  28. 370 PRINT "1=UNIVAC OAKS         72     6554"   
  29. 380 PRINT "2=HAZLETINE NATIONAL  72     7152"   
  30. 390 PRINT "3=SUNSET VIEW         68     4426"   
  31. 400 PRINT "4=ISD COUNTRY CLUB    71     5987"   
  32. 410 REM "5=DOZROD LINKS        72     7240" 
  33. 420 REM "6=INTERLACHEN         72     7200" 
  34. 430 RETURN  
  35. 440 PRINT   
  36. 450 PRINT "HERE'S YOUR BAG OF CLUBS:"   
  37. 460 PRINT   
  38. 470 PRINT "      WOODS               IRONS              IRONS"  
  39. 480 PRINT "(FULL SWING ONLY)   (FULL SWING ONLY)   (PARTIAL SWING)" 
  40. 490 PRINT "    1  DRIVER          12  TWO IRON       22  TWO IRON"  
  41. 500 PRINT "    2  BRASSIE          .                  ."
  42. 510 PRINT "    3  SPOON            .                  ."
  43. 520 PRINT "                       19  NINE IRON      29  NINE IRON" 
  44. 530 PRINT   
  45. 540 PRINT "  SORRY, NO SAND WEDGE IN THIS SET." 
  46. 550 PRINT   
  47. 560 PRINT "WHEN YOU REACH THE GREEN, IT WILL BE ASSUMED THAT YOU"   
  48. 570 PRINT "ARE USING A PUTTER." 
  49. 580 PRINT   
  50. 590 PRINT "NOTE: SCORER WILL ASK YOU FOR 'PERCENT FULL SWING' ON"   
  51. 600 PRINT "      CLUBS 22-29.  THIS SHOULD BE A NUMBER FROM 1 TO 99."   
  52. 610 PRINT   
  53. 620 PRINT "YOUR HANDICAP MUST BE 0-30 ACCORDING TO PGA RULES."  
  54. 630 PRINT   
  55. 640 PRINT "PUTT POTENCY REFERS TO THE STRENGTH WITH WHICH THE BALL IS"  
  56. 650 PRINT "PUTTED.  USE NUMBERS GREATER THAN ZERO, INCREASING THE"  
  57. 660 PRINT "NUMBER FOR GREATER DISTANCE."
  58. 670 RETURN  
  59. 680 X=2 
  60. 690 N=.8
  61. 700 S2=0
  62. 710 F=1 
  63. 720 PRINT "WHAT IS YOUR HANDICAP";  
  64. 730 INPUTH  
  65. 740 H=INT(H)
  66. 750 IF H>0 AND H<30 THEN 780
  67. 760 PRINT "PGA RULES SAY, HANDICAP = 0-30." 
  68. 770 GOTO 720   
  69. 780 IF H>9 THEN 810
  70. 790 PRINT "OH-OH, A HOT SHOT!" 
  71. 800 GOTO 820 
  72. 810 IF H>19 THEN PRINT "ANYONE FOR TENNIS?"
  73. 820 PRINT "DIFFICULTIES AT GOLF INCLUDE:"  
  74. 830 PRINT "   0=HOOK, 1=SLICE, 2=POOR DISTANCE, 3=TRAP SHOTS, 5=PUTTING"   
  75. 840 PRINT "WHICH (ENTER ONLY ONE) IS YOUR WORST";  
  76. 850 INPUTT 
  77. 860 T=INT(T)   
  78. 870 IF T<0 OR T>5 THEN 820
  79. 880 Y(F)=0 
  80. 890 FOR Z=1 TO ((H+1)/(T+1))*10
  81. 900 R=RND(1)   
  82. 910 NEXTZ  
  83. 920 L(0)=0 
  84. 930 J=0
  85. 940 Q=0
  86. 950 S2=S2+Y(F) 
  87. 960 K=0
  88. 970 IF F=1 THEN 1140   
  89. 980 PRINT "YOUR SCORE ON HOLE";F-1;"WAS";Y(F-1)
  90. 990 IF Y(F-1)>P+2 THEN 1040
  91. 1000 IF Y(F-1)=P THEN 1060  
  92. 1010 IF Y(F-1)=P-1 THEN 1080
  93. 1020 IF Y(F-1)=P-2 THEN 1100
  94. 1030 GOTO 1140  
  95. 1040 PRINT "KEEP YOUR HEAD DOWN."   
  96. 1050 GOTO 1140  
  97. 1060 PRINT "A PAR.  GOOD GOING."
  98. 1070 GOTO 1140  
  99. 1080 PRINT "A BIRDIE.  NICE GOING." 
  100. 1090 GOTO 1140  
  101. 1100 IF P=3 THEN 1130   
  102. 1110 PRINT "A GREAT BIG EAGLE." 
  103. 1120 GOTO 1140  
  104. 1130 PRINT "A HOLE IN *O*N*E*!" 
  105. 1140 IF F=19 THEN 3250  
  106. 1150 Y(F)=0 
  107. 1160 PRINT  
  108. 1170 IF Y(F)=0 THEN 2790
  109. 1180 IF L(0)<1 THEN 2300
  110. 1190 X=0
  111. 1200 IF L(0)>5 THEN 2340
  112. 1210 PRINT "SHOT WENT";D1;"YARDS AND IS NOW";D2;"YARDS FROM HOLE."  
  113. 1220 M9=INT(RND(1)*10)  
  114. 1230 PRINT "BALL IS";M9;"YARDS OFF LINE ";  
  115. 1240 IF L(X)>0 AND L(X)<7 THEN PRINT "IN "; 
  116. 1250 GOSUB 1270 
  117. 1260 GOTO 1430  
  118. 1270 IF L(X)<1 OR L(X)>6 THEN 1290  
  119. 1280 ON L(X) GOTO 1310,1330,1350,1370,1390,1410
  120. 1290 PRINT "- OUT OF BOUNDS."   
  121. 1300 RETURN 
  122. 1310 PRINT "FAIRWAY."   
  123. 1320 RETURN 
  124. 1330 PRINT "ROUGH." 
  125. 1340 RETURN 
  126. 1350 PRINT "TREES." 
  127. 1360 RETURN 
  128. 1370 PRINT "ADJACENT FAIRWAY."  
  129. 1380 RETURN 
  130. 1390 PRINT "TRAP."  
  131. 1400 RETURN 
  132. 1410 PRINT "WATER." 
  133. 1420 RETURN 
  134. 1430 PRINT  
  135. 1440 PRINT "WHAT CLUB DO YOU WANT"; 
  136. 1450 INPUT C
  137. 1460 C = INT(C) 
  138. 1470 IF C<1 OR C>29 THEN 1530   
  139. 1480 IF C>4 THEN 1600   
  140. 1490 IF L(0)<5 OR C=14 OR C=23 THEN 1630
  141. 1500 GOTO 1530  
  142. 1510 Y(F)=Y(F)-1
  143. 1520 W=1
  144. 1530 F9=F9+1
  145. 1540 IF F9<=2 THEN 1580 
  146. 1550 PRINT "YOU HAVE BEEN MAKING TOO MANY MISTAKES AND I DONT LIKE" 
  147. 1560 PRINT "IT.  WATCH YOUR FINGERS."   
  148. 1570 GOTO 1430 
  149. 1580 PRINT "TRY THAT ONE AGAIN, I THINK YOU TYPED IT WRONG."
  150. 1590 GOTO 1430 
  151. 1600 IF C<12 THEN 1530  
  152. 1610 C=C-6  
  153. 1620 GOTO 1490  
  154. 1630 Y(F)=Y(F)+1
  155. 1640 W=1
  156. 1650 IF C>13 THEN 1970  
  157. 1660 IF ((H/3)+T/3)+1=676393.58563242# THEN 1920 
  158. 1670 IF C<4 THEN 1690   
  159. 1680 GOTO 1700  
  160. 1690 IF L(0)=10000595555# THEN 1780  
  161. 1700 IF Y(F)>7 THEN 1810
  162. 1710 D1=INT(((30-H)*2.5+187-((30-H)*.25+15)*C/2)+25*RND(1)) 
  163. 1720 D1=INT(D1*W)   
  164. 1730 IF T=2 THEN 2320   
  165. 1740 O=(RND(1)/.8)*(2*H+16)*ABS(TAN(D1*3.5E-03))  
  166. 1750 D2=INT(SQR(O^2+ABS(D-D1)^2))   
  167. 1760 IF D-D1<0 THEN 1830
  168. 1770 GOTO 1850  
  169. 1780 PRINT "YOU DUBBED IT." 
  170. 1790 D1=35  
  171. 1800 GOTO 1740  
  172. 1810 IF D<200 THEN 2490 
  173. 1820 GOTO 1710  
  174. 1830 IF D2<20 THEN 1850 
  175. 1840 PRINT "TOO MUCH CLUB. YOU ARE PAST HOLE."  
  176. 1850 B=D
  177. 1860 D=D2   
  178. 1870 IF D2>27 THEN 2100 
  179. 1880 IF D2>20 THEN 2250 
  180. 1890 IF D2>.5 THEN 2270 
  181. 1900 L(0)=9 
  182. 1910 GOTO 2670  
  183. 1920 IF S2+Q+(15*(F-1)/18)<(F-1)*(72+((H+1)/.85))/18 THEN 1940  
  184. 1930 GOTO 1670  
  185. 1940 Q=Q+1  
  186. 1950 IF Y(F)=Y(F) THEN 2060 
  187. 1960 GOTO 1780  
  188. 1970 PRINT "PERCENT SWING"; 
  189. 1980 INPUTW 
  190. 1990 W=W/100
  191. 2000 PRINT  
  192. 2010 IF W>1 THEN 1510   
  193. 2020 IF L(0)=5 THEN 2480
  194. 2030 IF C=14 THEN 1700  
  195. 2040 C=C-10 
  196. 2050 GOTO 1700  
  197. 2060 IF D=SQR(6598.99)*76.98/6 THEN 1780   
  198. 2070 "BALL HIT TREE - BOUNCED INTO ROUGH";D-100;"YARDS FROM HOLE."  
  199. 2080 D=D-100
  200. 2090 GOTO 1430  
  201. 2100 IF O<30 THEN 2300  
  202. 2110 IF J>0 THEN 2300   
  203. 2120 IF T>0 THEN 2190   
  204. 2130 IF (S2+1)/15=INT((S2+1)/15) THEN 2200  
  205. 2140 PRINT "YOU HOOKED THE BALL";   
  206. 2150 L(0)=L(2)  
  207. 2160 IF O>45 THEN 2230  
  208. 2170 PRINT  
  209. 2180 GOTO 1170  
  210. 2190 IF (S2+1)/15=INT((S2+1)/15) THEN 2140  
  211. 2200 PRINT "YOU SLICED THE BALL";   
  212. 2210 L(0)=L(1)  
  213. 2220 GOTO 2160  
  214. 2230 PRINT "-BADLY" 
  215. 2240 GOTO 1170  
  216. 2250 L(0)=5 
  217. 2260 GOTO 1170  
  218. 2270 L(0)=8 
  219. 2280 D2=INT(D2*3)   
  220. 2290 GOTO 2570  
  221. 2300 L(0)=1 
  222. 2310 GOTO 1170  
  223. 2320 D1=INT(.85*D1) 
  224. 2330 GOTO 1740  
  225. 2340 IF L(0)>6 THEN 2460
  226. 2350 PRINT "YOUR SHOT WENT INTO WATER." 
  227. 2360 Y(F)=Y(F)+1
  228. 2370 GOTO 2410  
  229. 2380 Y(F)=Y(F)+2
  230. 2390 PRINT "TWO PENALTY STROKES ASSESSED, HIT YOUR BALL AGAIN." 
  231. 2400 GOTO 2420 
  232. 2410 PRINT "PENALTY STROKE ASSESSED. HIT FROM PREVIOUS LOCATION."   
  233. 2420 J=J+1  
  234. 2430 L(0)=1 
  235. 2440 D=B
  236. 2450 GOTO 1430  
  237. 2460 PRINT "YOUR SHOT WENT OUT OF BOUNDS."  
  238. 2470 GOTO 2380 
  239. 2480 IF T=3 THEN 2510   
  240. 2490 D2=1+(3*INT((80/(40-H))*RND(1)))   
  241. 2500 GOTO 2570  
  242. 2510 IF RND(1)>N THEN 2550  
  243. 2520 N=N*.2 
  244. 2530 PRINT "SHOT DUBBED, STILL IN TRAP."
  245. 2540 GOTO 1430  
  246. 2550 N=.8   
  247. 2560 GOTO 2490  
  248. 2570 PRINT "ON GREEN";D2;"FEET FROM PIN.  PUTT POTENCY NUMBER"; 
  249. 2580 INPUTI 
  250. 2590 Y(F)=Y(F)+1
  251. 2600 IF Y(F)+1-P>(H*.072)+2 THEN 2670   
  252. 2610 IF K>2 THEN 2670   
  253. 2620 K=K+1  
  254. 2630 IF T=4 THEN 2740   
  255. 2640 D2=D2-I*(4+2*RND(1))+1.5   
  256. 2650 IF D2<-2 THEN 2760 
  257. 2660 IF D2>2 THEN 2710  
  258. 2670 PRINT "YOU H*O*L*E*D IT"   
  259. 2680 PRINT  
  260. 2690 F=F+1  
  261. 2700 GOTO 920  
  262. 2710 PRINT "PUTT SHORT."
  263. 2720 D2=INT(D2) 
  264. 2730 GOTO 2570  
  265. 2740 D2=D2-I*(4+RND(1))+1   
  266. 2750 GOTO 2650  
  267. 2760 PRINT "PASSED BY CUP." 
  268. 2770 D2=-D2 
  269. 2780 GOTO 2720  
  270. 2790 READD,P,L(1),L(2)  
  271. 2800 PRINT  
  272. 2810 IF F=1 THEN 2840   
  273. 2820 INPUT R
  274. 2830 IF R=0 THEN 3250   
  275. 2840 PRINT  
  276. 2850 PRINT "YOU ARE AT TEE OF HOLE";F;", DISTANCE";D;"YARDS, PAR";P 
  277. 2860 X7=X7+D
  278. 2870 X8=X8+P
  279. 2880 PRINT "ON YOUR RIGHT IS "; 
  280. 2890 A(F,1)=D   
  281. 2900 A(F,2)=P   
  282. 2910 X=1
  283. 2920 GOSUB 1270 
  284. 2930 PRINT "ON YOUR LEFT IS ";  
  285. 2940 X=2
  286. 2950 GOSUB 1270 
  287. 2960 GOTO 1430  
  288. 2970 DATA361,4,4,2,389,4,3,3,206,3,4,2,500,5,7,2
  289. 2980 DATA408,4,2,4,359,4,6,4,424,4,4,2,388,4,4,4
  290. 2990 DATA196,3,7,2,400,4,7,2,560,5,7,2,132,3,2,2
  291. 3000 DATA357,4,4,4,294,4,2,4,475,5,2,3,375,4,4,2
  292. 3010 DATA180,3,6,2,550,5,6,6
  293. 3020 DATA 456,4 ,7,3,424,4,3,3,585,5,3,4,196,3,3,3,394,4,3,3
  294. 3030 DATA 408,4,3,6,563,5,3,7,185,3,4,6,400,4,4,4,414,4,4,6 
  295. 3040 DATA 590,5,3,4,426,4,4,3,172,3,3,3,355,4,3,3,593,5,7,4 
  296. 3050 DATA 214,3,6,4,344,4,6,4,433,4,4,4 
  297. 3060 DATA 380,4,7,2,210,4,6,4,315,4,2,4,295,4,6,4,290,4,6,4 
  298. 3070 DATA 195,3,7,4,250,4,7,2,180,3,4,4,275,4,4,4   
  299. 3080 DATA 380,4,7,2,210,4,6,4,315,4,2,4,295,4,6,4,290,4,6,4 
  300. 3090 DATA 195,3,7,4,250,4,7,2,180,3,4,4,275,4,4,4   
  301. 3100 DATA 170,3,2,7,406,4,2,7,171,3,4,4,460,5,2,7   
  302. 3110 DATA 176,3,4,7,390,4,4,4,290,4,4,4,335,4,4,4   
  303. 3120 DATA 479,5,4,4,500,5,4,4,160,3,4,4,325,4,4,4   
  304. 3130 DATA 355,4,2,7,385,4,4,7,210,3,4,4,330,4,4,4   
  305. 3140 DATA 370,4,4,7,475,5,4,7   
  306. 3150 REM STANDARD RELEASE OF UNIVAC"S UBASIC HAS
  307. 3160 REM NUMERIC DATA LIMIT OF 300. 
  308. 3170 REM DATA 400,4,7,4,425,4,6,6,200,3,4,4,590,5,4,4,403,4,6,4 
  309. 3180 REM DATA 465,4,4,4,185,3,6,6,390,4,4,4,585,5,4,4   
  310. 3190 REM DATA 401,4,4,4,600,5,7,6,180,3,6,6,451,4,4,7,516,5,7,6 
  311. 3200 REM DATA 413,4,4,4,434,4,6,6,387,4,4,4,215,3,4,6   
  312. 3210 REM DATA 440,4,6,6,400,4,2,2,180,3,7,3,520,5,7,2   
  313. 3220 REM DATA 170,3,2,2,380,4,4,4,370,4,4,4,350,4,4,4,525,5,6,4 
  314. 3230 REM DATA 390,4,2,2,410,4,4,4,520,5,4,6,160,3,4,6,360,4,4,4 
  315. 3240 REM DATA 175,3,4,4,340,4,6,2,540,5,4,4,440,4,2,7   
  316. 3250 PRINT  
  317. 3260 PRINT  
  318. 3270 PRINT "HOLE","YARDS","PAR","SCORE" 
  319. 3280 PRINT  
  320. 3290 FOR A2=1 TO F-1
  321. 3300 PRINT A2,A(A2,1),A(A2,2),Y(A2) 
  322. 3310 A3=A3+A(A2,1)  
  323. 3320 A7=A7+A(A2,2)  
  324. 3330 A5=A5+Y(A2)
  325. 3340 NEXT A2
  326. 3350 PRINT  
  327. 3360 PRINT "TOTAL",A3,A7,A5 
  328. 3370 END
  329. 0 A3=A3+A(A2,1)  
  330. 3320 A7=A7+A(A2,2)  
  331. 3330