Advertisement
GOLF G A M E - - - - - - - - - - - - - - - - - - - - - - - - - -
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
Advertisement
