--------------------------GAME
620
LOCATE
5,6:
INPUT"Play
again
<Y>
",A$
630
IF
A$="Y"
THEN
RESTORE
660:GOTO
10
640
END
650
FOR
I=0
TO
300:NEXT
!:RETURN
660
DATA
360,4,12,420,4,14,240,3,8,460,4,15,560,5
,19,270,3,9,390,4,13,520,5,17,330,4,11
.DEBUG)
Lines
110
and
120
set the wind
conditions.
By changing
the
number
that
multi-
plies RND
(-1)
to
an
appropriate
number,
it
is
possible
to
adjust
the
wind
inten-
sity. Also,
by
changing
the
value 2 in
WI
*2 in lines
160
and
170,
it
is
possible
to
adjust
the
effect
of
winds
on
the ball.
The
decision
on
OB
is
made
in line
180,
and
the
decision as
to
whether
the
ball
is
in
the
cup
is
made
in line
510.
155
To Next Page
Loading...
