GOLF
GAME--------------------------
154
290
IF
KI=3
THEN
A$=="D"
300
LOCATE 1 ,
12!:
PR I
NT
A$;
GR;
'""'
310
DRAW(0,8):DRAW-(159,8)
320
XG=INT<RND<-1)*159):YG=INT(RND<-1)*38+9)
33121
LOCATE 9,3:F'RINT"e":DRAW(XG,YG)
340
LOCATE
1,6:F'RINT"
":LOCATE 1
,6:INPUT"F'ower(0"'6)?",PW:PT=PT+1:IF
((PW>6)
OR
<F'W<
0))
THEN
340
350
LOCATE
1,6:PRINT"
":LOCATE
1,6:INP
UT" Ang 1 e ( 0"'36121)?" ,
KA:
IF
KA
>36121
THEN
350
360
FOR
I=l
TO
INT<PW•5):YG=YG-SIN(KA):XG=XG+COS(
KA>
370
IF
YG<S
THEN
YG=9
380
IF
YG>48
THEN
YG=47
390
IF
XG<0
THEN
XG=l
400
IF
XG>159
THEN
XG=159
410
DRAW(XG,YG>:NEXT I
420
FOR
I=l
TO
INT<PW•5>:YG=YG-SIN(KA):XG=XG+COS<
KA>
430
IF
KI=2
THEN
XG=XG-GR/5
440
IF
KI=0
THEN
XG=XG+GR/5
450
IF
KI=l
THEN
YG=YG-GR/5
46f2l
IF
KI=3
THEN.YG==YG+GR/5
~70
IF
YG<8
THEN
YG=9
480
IF
YG>48
THEN
YG=47
490
IF
XG<0
THEN
XG=l
500
IF
XG)159
THEN
XG=159
510
IF
((XG>73)
AND
(XG(80)
AND
(YG<32)-AND
<YG>2
5))
THEN
530
520
DRAW<XG,YG):NEXT
!:GOTO
340
53121
CLS:LOCATE
6,3:PRINT"Cup
in
~":GOSUB
65121
540
CLSf
IF
<PT-PA (HO))
=:-2
THEN
LOCATE
5,
3:
F'RINT"E
a.g 1 e ! ! " :
GOSUB
650:
GOTO
600
550
IF
(PT-PA(H0))=--1
THEN
LOCATE
5,3:F'RINT"Bir-dy
!":GOSUB
650:GOTO
600
560
IF
(PT-PA<HOl>=(Z) THEN LOCATE
5,3:PRINT"F'ar·":G
OSUB
650:GOTO
600
570
IF
<F'T-PACHO)
)==1
THEN
LOCATE
5,3:PRINT"Boggy"
:GOSUB
650:GOTO
600
58(2)
IF
<PT-F'A(H0l)=2
THEN
LOCATE
5,3:F'HINT"Double
boggy":GOSUB
650:GOTO
600
590
LOCATE
5,3:PRINT"Score:";F'T:GOSUB
650
600
SC=SC+PT:PT=0:NEXT
HO
610
CLS:LOCATE
1,1:F'RINT"CASIO
country
cl.ub":LOCA
TE
5,
3:
PRINT"Per·
32":
LOCATE
5,
5:
F'RINT"You";
SC
"--
~•;-
,,~..,
.;r
To Next Page
Loading...
