--------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
153
To Next Page
Loading...
