Advertisement
--------GAME..J
lU[LJlID!IJ
26.12
Bytes
M!Mfttlt11flllllllltltlll+lfttl ....
fl ....
ltlfflfltllllllflflffalllftlllftlllllllflllflllllMIIIMIIIStltflltlfMtlllN!llillllf11ftlllflfllct1l1ltttailfftf .. lt1l1N1Mlt,liNtffl..,_1Mql11flltllM ..
fllt .....
tllttlf(
10 CLEAR: DIM CD(9) ,PD(9)
20 CLS:LOCATE 3,3:PRINT"THE GOLF GAME":GOSU8 65(2)
30 FOR J=l TO 9:READ CD(Jl:READ PA<Jl:READ PD(J)
:NEXT
J
40 FOR HO=l TO 9:CLS:LOCATE 6,~~C::F'RINT HO;"
Hole"
: LOCATE 1121,
5:
PR I NT" F'
ar·" ;
PA ( HO>
50
PT=0:X=0:Y=40
60 GOSUB 650:CLS:DRAW(CZl,40):DRAW-(159,40)
70 BU=INT(RND<-1>•14+5):IF BU=PD(HO> THEN
70
80 BA=INT<RND(-ll•14+5):IF BA=BU THEN 80
90 IF BA=PD(HO) THEN 8121
100 LOCATE <BU-1) ,4:PRINT" ":LOCATE <BA-1) ,4:PRIN
T" ":LOCATE (PD<HO)-ll ,4:F'RINT"P"
110 IF RND(-1)(0.5 THEN WI=INT(RND<-1>*10):LOCATE
QI,
IZl: PR INT"..._"; WI
/2; "m":
DR=IZl: GOTO
130
12121 WI=INT(RND(-ll*l.0) :LOCATE 0,0:PRINT".Aa";WI/2;
"m":
DR=l
. 130 LOCATE 1, 6: INF'UT"F'ower < 1
"'10) ?", PW:
PT==PT+l:
IF
PW)1121 THEN-".13(2)
.c.:
C .
, · . · - · .
•.
140 IF PW<0 THEN ST=-1:GOTO 160
150 ST=l
160 PW=INT(PW•B>: IF DR=l21 THEN PW=INT(PW+WI•2+RND(
-1)
*5 l :
GOTO 18(2)
170 PW=INT<PW-WI•2-RND(-1)•5>
180 FOR R=0 TO 180 STEP (181Zl/ABS<PWl):X=INT(X+ST>
:Y1=Y-SIN(R)•24:IF ((X<IZl) OR (X>159)) THEN LOCATE 1
,6:PRINT"
08
1
'
":PT=PT+2:GOSU8 651Zl:GOTO 130
191Zl DRAWCX,Y1l:NEXT
R
20121 IF <X<<BA•B> AND X><BA*B-7)) THEN PT=PT+l:GOT
a
130
210 IF <X<<BU•B> AND X><BU*B-7))
THEN LOCATE 1,6:
P=INT<RND<-1l*3) :PRINT
P; "Plus
":GOSUB
650:PT=
PT+P:GOTO 130
s
220 IF X<<<PD(H0)-1)•8> THEN
130
230 IF
X>(PD(H □ >•B>
THEN 130
241Zl CLS:LOCATE 3,3:PRINT"Green
on
!":GOSUB 650:CL
250
GR=ROUND<RND(-1)*3,-2) :KI=INT<RND(-11*4>
26121 IF KI=0 THEN A$="f;:":GOTO 300
270 IF KI=1 THEN A$="U":GOTO 300
28(2) IF f(I=2 THEN A$="L":GOTO
~!.IZHZl
Advertisement
