golf.bas

100 RANDOMIZE
110 DIM X(20)
160 PRINT "DIRECTIONS FOR GOLF"
170 PRINT
180 PRINT "YOU HAVE A CHOICE OF 9 CLUBS"
190 PRINT "WHEN THE COMPUTER TELLS YOU TO CHOSE YOUR CLUB"
200 PRINT "INPUT 1 FOR A DRIVER - RANGE OF 150 TO 270 YARDS"
210 PRINT "      2       3 WOOD -          150 TO 220 YARDS"
220 PRINT "      3       5 WOOD -          140 TO 180 YARDS"
230 PRINT "      4       6 IRON -          120 TO 180 YARDS GOOD FROM TRAP"
240 PRINT "      5       7 IRON -          100 TO 130 YARDS GOOD FROM ROUGH"
250 PRINT "      6       8 IRON -           70 TO 100 YARDS GOOD FROM TRAP"
260 PRINT "      7       9 IRON -           30 TO  70 YARDS GOOD FROM TRAP"
270 PRINT "      8       WEDGE               1 TO  30 YARDS GOOD FROM TRAP"
280 PRINT "      9       PUTTER - USE WHEN ON GREEN"
290 PRINT ""


300 PRINT "HOW MANY PLAYERS ARE PLAYING TODAY";
301 INPUT U
302 PRINT
310 IF U <= 4 THEN 340
320 PRINT "ONLY FOUR ARE ALLOWED"
330 GOTO 300
340 PRINT
350 DATA 360, 4,  585, 5, 400, 4, 185, 3, 415, 4, 375, 4, 219, 3
360 DATA 395, 4, 630, 5, 330, 4, 610, 5, 440, 4, 180, 3, 420, 4, 595, 5, 195, 3
370 DATA 450, 4, 370, 4
380 DIM A(18)
390 DIM P(18)
400 FOR R = 1 TO 18
410 READ A(R), P(R)
420 NEXT R
430 DIM M(4, 18)
440 DIM N(10)
450 PRINT "HOW MANY HOLES, UP TO 18"
451 INPUT V
460 PRINT
470 FOR J = 1 TO V
480 FOR Q = 1 TO U
490 LET H = A(J)
500 PRINT "HOLE NUMBER"; J; "IS"; H; "YARDS PAR"; P(J)
510 LET K = 0
520 LET T = 0
530 LET T2 = 0
540 PRINT "PLAYER NUMBER"; Q; "CHOOSE YOUR CLUB"
550 INPUT X

560 IF X = 9 THEN GOTO 880
570 LET K = K + 1
580 IF X = 0 THEN GOTO 930
590 GOTO 1340
600 IF X = 9 THEN 970
610 LET D = X
620 IF H <> X(D) THEN GOTO 630
621 IF K <> 1 THEN GOTO 990
622 PRINT "HOLE IN ONE!!!"
623 GOTO 990
630 PRINT "DISTANCE OF SHOT IS"; X(D); "YARDS"
640 LET L = INT(RND(1) * 100)
650 IF L = 99 THEN GOTO 670
651 IF L = 43 THEN GOTO 670
652 IF L = 88 THEN GOTO 670
660 IF L <> 25 THEN GOTO 760
670 PRINT "IN TRAP"
671 LET C = ABS(H - X(D))
672 GOTO 680
680 LET L8 = INT(RND(1) * 10)
690 IF L8 > 3 THEN GOTO 680
691 IF L8 = 1 THEN GOTO 850
700 LET T2 = 0
710 FOR Z = 1 TO L8
720 LET T2 = T2 + 1
730 PRINT "CHOSE YOUR CLUB"
731 INPUT X
740 PRINT "STILL IN TRAP"
741 NEXT Z
750 GOTO 850
760 IF L = 13 THEN GOTO 780
761 IF L = 88 THEN GOTO 780
770 IF L <> 25 THEN GOTO 800
780 PRINT "IN ROUGH"
781 LET C = ABS(H - X(D))
782 GOTO 850
790 IF L = 69 THEN 810
791 IF L = 73 THEN GOTO 810
792 IF L = 41 THEN GOTO 810
800 IF L <> 75 THEN GOTO 830
810 PRINT "IN  WATER"
811 LET T = T + 1
812 PRINT "YOU LOSE 1 STROKE"
813 LET C = ABS(H - X(D))
820 GOTO 850
830 LET C = ABS(H - X(D))
840 IF C < 30 THEN GOTO 930
850 PRINT "DISTANCE REMAINING TO PIN IS"; C; "YARDS"
860 LET H = C
870 GOTO 540
880 LET C = A(J)
890 IF C > 30 THEN GOTO 910
900 GOTO 970
910   PRINT "YOU   ARE NOT ON THE GREEN CHOOSE ANOTHER CLUB"
920 GOTO 550
930 PRINT "PLAYER NUMBER"; Q; "IS ON THE GREEN CHOOSE YOUR CLUB"
940 INPUT X
950 LET D = X
960 GOTO 590
970 PRINT X(D); "PUTTS"
980 LET M(Q, J) = K + X(9) + T + T2
981 GOTO 1000
990 LET M(Q, J) = K
991 PRINT "YOU  SUNK THE SHOT"
1000 PRINT M(Q, J); "STROKES FOR HOLE NUMBER"; J; "FOR PLAYER"; Q
1010 NEXT Q
1011 PRINT
1012 PRINT
1020 NEXT J
1030 FOR W = 1 TO V
1040 LET N(1) = M(1, W) + N(1)
1050 LET N(2) = M(2, W) + N(2)
1060 LET N(3) = M(3, W) + N(3)
1070 LET N(4) = M(4, W) + N(4)
1080 LET E = P(W) + E
1090 NEXT W
1100 FOR S = 1 TO U
1110 PRINT "PLAYER NUMBER"; S; "SHOT"; N(S); "FOR"; V; "HOLES PAR IS "; E
1120 NEXT S
1130 GOTO 1440

1140 LET X(2) = INT(130 * RND(1) + 150)
1150 GOTO 600

1160 LET X(1) = INT(90 * RND(1) + 180)
1170 GOTO 600

1180 LET X(3) = INT(40 * RND(1) + 140)
1190 GOTO 600

1200 LET X(4) = INT(60 * RND(1) + 120)
1210 GOTO 600

1220 LET X(5) = INT(30 * RND(1) + 100)
1230 GOTO 600

1240 LET X(6) = INT(30 * RND(1) + 70)
1250 GOTO 600

1260 LET X(7) = INT(40 * RND(1) + 30)
1270 GOTO 600

1280 LET X(8) = INT(30 * RND(1) + 1)
1290 IF X(8) < 1 THEN GOTO 1280
1291 PRINT "      mmmm...open faced  club sand wedge"
1300 GOTO 600

1310 LET X(9) = INT(3 * RND(1) + 1)
1320 GOTO 600
1330 STOP

1340 IF X = 1 THEN GOTO 1160
1350 IF X = 2 THEN GOTO 1140
1360 IF X = 3 THEN GOTO 1180
1370 IF X = 4 THEN GOTO 1200
1380 IF X = 5 THEN GOTO 1220
1390 IF X = 6 THEN GOTO 1240
1400 IF X = 7 THEN GOTO 1260
1410 IF X = 8 THEN GOTO 1280
1420 IF X = 9 THEN GOTO 1310
1430 GOTO 600
1440 END