From 61a5a8c0c1a80be6756f35faf712f4d18bfa5e69 Mon Sep 17 00:00:00 2001
From: Renaud Fivet <renaud.fivet@gmail.com>
Date: Tue, 11 Jun 2024 15:19:13 +0800
Subject: [PATCH] Add GOLF.

---
 dec/GOLF.BAS  | 134 ++++++++++++++++++++++++++++++++++++++++++++++++++
 port/GOLF.BAS | 134 ++++++++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 268 insertions(+)
 create mode 100644 dec/GOLF.BAS
 create mode 100644 port/GOLF.BAS

diff --git a/dec/GOLF.BAS b/dec/GOLF.BAS
new file mode 100644
index 0000000..6322683
--- /dev/null
+++ b/dec/GOLF.BAS
@@ -0,0 +1,134 @@
+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
diff --git a/port/GOLF.BAS b/port/GOLF.BAS
new file mode 100644
index 0000000..594ac0e
--- /dev/null
+++ b/port/GOLF.BAS
@@ -0,0 +1,134 @@
+ 100RANDOMIZE
+ 110DIMX(20)
+ 120PRINT"DO YOU WANT DIRECTIONS Y FOR YES N FOR NO";
+ 130INPUTZ$\PRINT
+ 140IFZ$="Y"THEN160
+ 150IFZ$="N"THEN290
+ 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