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