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"" THEN 30 40 IF KEY="" THEN 40 45 GOSUB#9 50 PRINT L;" SHOT!";:C=C+1:FOR I=1 TO 1E99: IF KEY="" THEN 100 60 NEXT I 100 J=SGN L 110 FOR B=1 TO I:L=L-J:PRINT:PRINT L;:NEXT B 120 IF L=0;RETURN 130 GOTO 30 P9 10 FOR I=1 TO 100:NEXT I 20 PRINT 30 RETURN