Casio FP-200 - Page 150

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