mirror of
https://github.com/rfivet/BCG101.git
synced 2024-09-27 13:36:01 -04:00
Add GOLF.
This commit is contained in:
parent
a6fde12b01
commit
61a5a8c0c1
134
dec/GOLF.BAS
Normal file
134
dec/GOLF.BAS
Normal file
@ -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
|
||||
134
port/GOLF.BAS
Normal file
134
port/GOLF.BAS
Normal file
@ -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
|
||||
Loading…
Reference in New Issue
Block a user