PROG : 16509
D-FILE: 17735
VARS : 18528
E-LINE: 18529
STKBOT: 18529
STKEND: 18529
9999 means line number
PRINT means treat as KEYWORD P
10 REM **GOLF**SLR/1983*******
11 LET H=0
12 FOR J=1 TO 18
20 LET A=INT (62*RND+1)
30 LET C=INT (62*RND+1)
40 LET B=INT (42*RND+1)
50 LET D=INT (42*RND+1)
51 IF A=C AND B=D THEN GOTO 20
60 GOSUB 320
70 GOSUB 260
80 LET XD=(V*-1)+15
90 LET A1=A+INT (COS ((PI/6)*X
D)*S)
100 LET B1=B+INT (SIN ((PI/6)*X
D)*S)
110 LET ERROR=(A1<1 OR A1>62
OR B1<1 OR B1>42)
120 IF NOT ERROR THEN GOTO 160
130 LET A1=(A1<1)+(62 AND A1>62
)+(A1 AND (A1>=1 AND A1<=62))
140 LET B1=(B1<1)+(42 AND B1>2)
+(B1 AND (B1>=1 AND B1<=42))
150 LET H=H+1
160 UNPLOT A,B
170 LET A=A1
180 LET B=B1
190 PLOT A,B
200 IF A<>C OR B<>D THEN GOTO 7
0
210 NEXT J
220 PRINT AT 10,10;"YOU DID IT"
230 PRINT TAB 10;"HITS: ";H
240 PRINT AT 10,10;"YOU DID IT"
250 GOTO 220
260 INPUT S
270 LET S=INT S
280 INPUT V
290 IF V>12 OR V<0 THEN GOTO 28
0
310 RETURN
320 CLS
321 PRINT "HOLE ";J
322 PRINT ,,,,"FIRST INPUT STRE
NGTH,THEN ENTER DIRECTION (0-12
LIKE A CLOCK, DECIMALS ALLOWED
). FLASHING DOT IS HOLE."
323 PRINT ,,,,"PRESS ENTER TO B
EGIN PLAY***"
324 PAUSE 4E4
325 CLS
329 FOR X=0 TO 63
330 PLOT X,0
340 PLOT X,43
350 NEXT X
360 FOR Y=0 TO 43
370 PLOT 0,Y
380 PLOT 63,Y
390 NEXT Y
400 PLOT A,B
410 FOR Y=1 TO 50
420 UNPLOT C,D
430 PLOT C,D
440 NEXT Y
450 RETURN
500 SAVE "GO"
510 RUN