BCG101/dec/GOLF.BAS

100RANDOMIZE
110DIMX(20)
120PRINT"DO YOU WANT DIRECTIONS Y FOR YES N FOR N
130INPUT$Z\PRINT
140IFZ=#YTHEN160
150IFZ=#NTHEN290
160PRINT"DIRECTIONS FOR GOLF"
170PRINT
180PRINT"YOU HAVE A CHOICE OF 9 CLUBS"
190PRINT"WHEN THE COMPUTER TELLS YOU TO CHOSE YOUR CLUB"
200PRINT"INPUT 1 FOR A DRIVER  RANGE OF 150 TO 270 YARDS"
210PRINT"INPUT 2 FOR A 3 WOOD  RANGE OF 150 TO 220 YARDS"
220PRINT"INPUT 3 FOR A 5 IRON  RANGE OF 140 TO 180 YARDS"
230PRINT"INPUT 4 FOR A 6 IRON  RANGE OF 120 TO 180 YARDS  GOOD FROM ROUGH"
240PRINT"INPUT 5 FOR A 7 IRON  RANGE OF 100 TO 130 YARDS  GOOD FROM ROUGH"
250PRINT"INPUT 6 FOR A 8 IRON  RANGE OF  70 TO 100 YARDS  GOOD FROM TRAP"
260PRINT"INPUT 7 FOR A 9 IRON  RANGE OF  30 TO  70 YARDS  GOOD FROM TRAP"
270PRINT"INPUT 8 FOR A WEDGE   RANGE UP TO 30 YARDS       GOOD FROM TRAP"
280PRINT"INPUT 9 FOR A PUTTER  USE WHEN ON GREEN"
290PRINT
300PRINT"HOW MANY PLAYERS ARE PLAYING TODAY";\INPUTU\PRINT
310IFU<=4THEN340
320PRINT"ONLY FOUR ARE ALLOWED TO PLAY AT ONE TIME"
330GOTO300
340PRINT
350DATA360,4,585,5,400,4,185,3,415,4,375,4,219,3
360DATA395,4,630,5,330,4,610,5,440,4,180,3,420,4,595,5,195,3
370DATA450,4,370,4
380DIMA(18)
390DIMP(18)
400FORR=1TO18
410READA(R)\READP(R)
420NEXTR
430DIM M(4,18)
440DIMN(10)
450PRINT"HOW MANY HOLES UP TO 18 DO YOU WANT TO PLAY?"\INPUTV
460PRINT
470FORJ=1TO V
480FOR Q=1TO U
490LETH=A(J)
500PRINT"HOLE NUMBER";J;"IS";H;"YARDS PAR";P(J)
510LETK=0
520LETT=0
530LET T2=0
540PRINT"PLAYER NUMBER";Q;"CHOSE YOUR CLUB"
550INPUT X
560IFX=9THEN880
570LETK=K+1
580 IF X=9 THEN 930
590GOTO1340
600IFX=9THEN970
610LETD=X
620IFH<>X(D)THEN630\IFK<>1THEN990\PRINT"HOLE IN ONE!!!"\GOTO990
630PRINT"DISTANCE OF SHOT IS";X(D);"YARDS"
640LETL=INT(RND(X)*100)
650IFL=99THEN670\IFL=43THEN670\IFL=88THEN670
660IFL<>25THEN760
670PRINT"IN TRAP"\LETC=ABS(H-X(D))\GOTO680
680LETL8=INT(RND(X)*10)
690IFL8>3THEN680\IFL8=1THEN850
700LETT2=0
710FORZ=1TOL8
720LETT2=T2+1
730PRINT"CHOSE YOUR CLUB"\INPUTX
740PRINT"STILL IN TRAP"\NEXTZ
750GOTO850
760IFL=13THEN780\IFL=88THEN780
770IFL<>25THEN800
780PRINT"IN ROUGH"\LETC=ABS(H-X(D))\GOTO850
790IFL=69THEN810\IFL=73THEN810\IFL=41THEN810
800IFL<>75THEN 830
810PRINT"IN WATER"\LETT=T+1\PRINT"YOU LOSE 1 STROKE"\LETC=ABS(H-X(D))
820GOTO850
830LETC=ABS(H-X(D))
850PRINT"DISTANCE REMAINING TO PIN IS";C;"YARDS"
860LETH=C
870GOTO540
880LETC=A(J)
890IFC>30THEN910
900GOTO970
910PRINT"YOU ARE NOT ON THE GREEN  CHOSE ANOTHER CLUB"
920GOTO550
930PRINT"PLAYER NUMBER";Q;"IS ON THE GREEN CHOSE YOUR CLUB"
940INPUTX
950LETD=X
960GOTO590
970PRINT X(D) "PUTTS"
980LETM(Q,J)=K+X(9)+T+T2\GOTO1000
990LETM(Q,J)=K\PRINT"YOU SUNK THE SHOT"
1000PRINTM(Q,J)"STROKES FOR HOLE NUMBER";J;"FOR PLAYER";Q
1010NEXTQ\PRINT\PRINT
1020NEXT J
1030FORW=1TOV
1040LETN(1)=M(1,W)+N(1)
1050LETN(2)=M(2,W)+N(2)
1060LETN(3)=M(3,W)+N(3)
1070LETN(4)=M(4,W)+N(4)
1080LET E= P(W)+E
1090NEXTW
1100FORS=1TOU
1110PRINT"PLAYER NUMBER";S;"SHOT";N(S);"FOR";V;"HOLES  PAR IS";E
1120NEXT S
1130GOTO1440
1140LETX(2)=INT(130*RND(X)+150)
1150GOTO600
1160LETX(1)=INT(90*RND(X)+180)
1170GOTO600
1180LETX(3)=INT(40*RND(X)+140)
1190GOTO600
1200LETX(4)=INT(60*RND(X)+120)
1210GOTO600
1220LETX(5)=INT(30*RND(X)+100)
1230GOTO600
1240LETX(6)=INT(30*RND(X)+70)
1250GOTO600
1260LETX(7)=INT(40*RND(X)+30)
1270GOTO600
1280LETX(8)=INT(30*RND(X)+1)
1290IFX(8)<1THEN1280
1300GOTO600
1310LETX(9)=INT(3*RND(X)+1)
1320GOTO600
1330STOP
1340IFX=1THEN1160
1350IFX=2THEN1140
1360IFX=3THEN1180
1370IFX=4THEN1200
1380IFX=5THEN1220
1390IFX=6THEN1240
1400IFX=7THEN1260
1410IFX=8THEN1280
1420IFX=9THEN1310
1430GOTO600
1440END