P0
10 G=0:N=50
20 PRINT "GOLF GAME;: GOSUB#9: PRINT "BEST-SCORE";N;:GOSUB#9
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(RAN#*10)
70 PRINT H;":PAR";Q(H);L;"M";:GOSUB#9:GOSUB#9:GOSUB#9
80 GOSUB#1:G=G+C:PRINT "(";C-Q(H);")";:GOSUB#9:GOSUB#9
90 NEXT H:IF G