GOLF.BAS Version 1
Golfez avec une sensation mécanique !
La trajectoire de vol de la balle est représentée par des nombres défilants.
C'est la même méthode que le golf réel. Il y a 9 trous. Le par de chaque trou et la distance jusqu'au trou sont affichés.
Essayez de mettre la balle dans le trou avec le moins de coups possible. Pour chaque trou, le montant supérieur ou inférieur au par sera affiché.
De plus, après avoir terminé 9 trous, le nombre total de coups s'affichera. Plus le nombre de coups est faible, mieux c'est.
Lorsque vous frappez la balle, la distance est déterminée par la durée pendant laquelle une touche numérique est enfoncée.
Si vous continuez à appuyer longtemps, la balle dépassera le trou. Dans ce cas, la distance au trou sera indiquée par un signe moins.
5 CLS
10 G=0:N=50
20 PRINT "GOLF GAME":GOSUB
900:PRINT"BEST-SCORE";N;:GOSUB 900
30
Q(1)=4:Q(2)=5:Q(3)=4:Q(4)=3:Q(5)=4:Q(6)=5:Q(7)=4:Q(8)=3
40 Q(9)=4
50 FOR
H= 1 TO 9
60 L=Q(H)*20-20+INT(RND*10)
70 PRINT H;"PAR";Q(H);L;"M";:GOSUB
900:GOSUB 900:GOSUB 900
80 GOSUB 210:G=G+C:PRINT"(";C-Q(H);")";:GOSUB 900
90 NEXT H:IF G<N;N=G:PRINT"**BEST=";G;"**":G=0:GOTO 20
100 PRINT"SCORE=";G
110 G=0:60T0 20
210 C=0
220 PRINT L;"PUSH KEY":
230 IF INKEY$ <> ""
THEN 230
240 IF INKEY$ = "" THEN 240
245 GOSUB 900
250 PRINT L;"SHOT!";:C=C+1
255 FOR I= 1 TO 80:IF INKEY$="" THEN 270
260 NEXT I
270 J=SGN(L)
280
FOR B=1 TO I:L= L-J:PRINT:PRINT L;:NEXT B
290 IF L=0 THEN RETURN
300
GOTO 230
900 FOR I=1 TO 100:NEXT I
910 PRINT
920 RETURN
