5 PRINT"[147][155]***  GOLF  ***":V=53248:POKE V+21,0:POKE V+32,11:POKE V+33,11:GOTO 15
6 REM
7 IF Z>W THEN Z=Z AND W:POKE V6,C
8 RETURN
9 IF D-C>W THEN POKE V6,PEEK(V6)OR 16:C=W+1:RETURN
10 IF D<C THEN POKE V6,PEEK(V6)AND NOT 16:C=0
11 RETURN
15 V6=V+16:V0=V+30:V1=V0+1:O=21.9:W=255:M=40:SX=.8:SY=.8:S=54272:J=56320:B=2040
16 DIM P%(38),P(50):FOR I=0 TO 38:READ P%(I):NEXT
17 FOR I=0 TO 7:READ R(I),G(I),B(I),H(I):NEXT:N=20
18 FOR I=0TO 10:READ P(I):P(N+I)=-P(I):P(N-I)=P(I):P(M-I)=-P(I):P(M+I)=P(I):NEXT
20 FOR I=832 TO 864:READ Q:POKE I,Q:NEXT:FOR I=I TO 989:POKE I,0:NEXT
25 FOR I=I TO I+33:READ Q:POKE I,Q:NEXT:FOR I=12800 TO I+46:READ Q:POKE I,Q:NEXT
30 FOR I=I TO I+38:POKE I,0:NEXT:FOR I=I TO I+297:READ Q:POKE I,Q:NEXT
35 POKE 924,24:POKE 927,60:POKE 930,60:POKE933,24:POKEV+42,5:POKEV+43,1:
40 DEF FN B(X)=O+(SIN(X/2)+COS(X/4))/2
42 DEF FN H(X)=K+SIN(X/5)/2+(X-A)*L
45 POKE V+37,10:POKE V+38,0:POKE B,200:POKE B+3,203:POKE B+4,14
50 POKE S,0:POKE S+6,0:POKE S+7,0:POKE S+9,0:POKE S+10,8
55 POKE S+13,0:POKE S+14,0:POKE S+19,9:POKE S+20,0:POKE S+24,15
60 PRINT"[147]":POKE V+33,6:POKE V+32,11
62 PRINT TAB(14)"[213][192][201][213][192][201][201]  [213][192][201]"
65 PRINT TAB(14)"[221]  [221][160][221][221][160][160][221]"
68 PRINT TAB(14)"[221][192][201][221] [221][221]  [171][192]"
70 PRINT TAB(14)"[221] [221][221] [221][221]  [221]"
72 PRINT TAB(14)"[202][192][203][202][192][203][202][192][203][203]"
75 PRINT TAB(14)"************[144]"
80 PRINT TAB(8)"1 PLAYER........  KEY 1"
82 PRINT TAB(8)"2 PLAYERS.......  KEY 2":I=10
85 GET A$:IF A$="1"OR A$="2"THEN 90
86 A=55600:FOR K=0 TO 38:POKE A+P%(K),I^1:NEXT
87 FOR K=0 TO 11:POKE 55750+K,I^1:NEXT:I=7-(I=7)*3:GOTO 85
90 SS=VAL(A$):BS(1)=999:BS(2)=999:SM(1)=0:SM(2)=0:SP=0
95 S(1)=0:S(2)=0:SP=SP+1:FOR N=1 TO SS:POKE S+8,15:POKE S+12,5:POKE S+15,150
99 REM
100 POKE V+33,9:PRINT"[147]":POKE V+33,6:POKE V+32,11:POKE V+23,42:POKE V+29,232
105 POKE V+28,7:POKE V+40,5:POKE V+41,5:POKE V+44,0:POKE V+45,15:POKE V+46,15
110 POKE B+1,201:POKE B+2,202:POKE B+5,204:POKE B+6,13:POKE B+7,15
115 Q=RND(TI):A=Q*9999:A%=Q*20:X=A+A%:H=FN B(X)
120 Y=FN B(X+10):IF Y+1<H THEN 115
125 IF Y>H THEN H=Y
130 Z=A%+55297+INT(H)*M:FOR I=0 TO 8:POKE Z+I,14:NEXT
135 Z=Z+41:FOR I=0 TO 6:POKE Z+I,14:NEXT:L=A%+1024:R=L+10
140 K=0:FOR X=A+37 TO A+39:IF FN B(X)>=22 THEN K=1
145 NEXT:Y=56173:FOR I=0 TO 2:FOR X=0 TO K:POKE Y+I+X*M,8:NEXT:NEXT
150 POKE V6,1:POKE V,64:POKE V+1,FN B(A+38)*8+35
155 K=1:IF A%>14 THEN K=3:GOTO 165
160 IF A%>7 THEN K=2
165 X%(K-1)=A%+8:FOR I=K TO 3:X%(I)=RND(1)*(11+I*6-X%(I-1))+X%(I-1)+6:NEXT
170 ON K GOTO 185,180
175 X%(1)=RND(1)*(A%-12)+4:X%(2)=RND(1)*(A%-8-X%(1))+X%(1)+6:GOTO 185
180 X%(1)=RND(1)*(A%-6)+4
185 X%=RND(1)*3+1
190 Y%=RND(1)*3+1:IF Y%=X%THEN 190
195 K=6-X%-Y%:X=X%(X%):Z=X*8+18:C=3:GOSUB 7:POKE V+2,Z:POKE V+3,FN B(X+A)*8+8
200 X=X%(Y%):Z=X*8+18:C=5:GOSUB 7:POKE V+4,Z:POKE V+5,FN B(X+A)*8+29
205 X=X%(K):Z=X*8+8:C=41:GOSUB 7:POKE V+6,Z:POKE V+10,Z
210 Z=FN B(X+A)*8+8:POKE V+7,Z:POKE V+11,Z:POKE V+8,0
215 POKE V+12,132:POKE V+13,73:POKE V+14,180:POKE V+15,63
220 X=A:FOR I=1024 TO 1063:IF I>L AND I<R THEN Y=H:GOTO 230
225 Y=FN B(X)
230 Y%=Y:POKE I+M*Y%,B(8*(Y-Y%)):FOR Y=Y%+1 TO 24:POKE I+M*Y,160:NEXT:X=X+1:NEXT
235 PRINT"[144]":ON SS GOSUB 670,680:L=A%+2:R=L+10
240 PRINT TAB(5)"[172][190]  [188][146][187]":PRINT TAB(5)"[190]    [188]"
245 PRINT TAB(5)"  [152]              ":PRINT TAB(3)"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
250 PRINT TAB(5)"[187]    [172][144]":POKE V+21,W:Z=931:P=0:U=5
254 REM
255 C=0:X=A:X%=0:D=14
260 POKE S+6,0:Y=FN B(X):E=Y*8+37:X=0
265 POKE V+8,D-C:POKE V+9,E:POKE V+27,0:GOSUB 650:IF X%>38 THEN 310
270 GOSUB 550:F=2*SGN(T):K=F:G=G*T:G=G*G:T=P(P)/T:POKE V+27,16
275 POKE Z,0:POKE S+4,129:Y=PEEK(V0)+PEEK(V1)
280 D=D+K:IF D<14 OR D>328 THEN POKE S+5,9:POKE S+4,0:POKE S+4,17:K=-K:D=D+K+K
285 IF PEEK(V0)AND 14 THEN POKE S+18,0:POKE S+18,129:K=-K:D=D+K+K
290 X=X+F:Y=E+X*(X/G-T):IF Y>240 THEN 300
295 GOSUB 9:POKE V+8,D-C:POKE V+9,Y:IF NOT PEEK(V1)AND 16 THEN 280
300 X%=D/8+.5:IF X%>L AND X%<R THEN POKE V+9,H*8+40:GOTO 500
305 POKE S+11,0:POKE S+11,17:X=X%-2+A:D=X%*8-2:GOSUB 9:GOTO 260
309 REM
310 PRINT"":FOR I=0 TO 28:FOR K=0 TO 4:PRINT"";CHR$(20):NEXT:PRINT"[145][145][145][145][145][145]"
315 POKE S+18,16:POKE S+18,17:FOR T=0 TO 50:NEXT:NEXT
319 REM
320 POKE V+21,0:PRINT"[147]":POKE V+33,9:POKE V,207:POKE V+1,120:POKE V+28,1
325 POKE B+1,13:POKE B+2,15:POKE B+5,205:POKE B+6,205:POKE B+7,205
330 POKE V+40,15:POKE V+41,15:POKE V+44,7:POKE V+45,13:POKE V+46,7
335 FOR I=V+10 TO V+13:POKE I,RND(1)*140+25:I=I+1:POKE I,RND(1)*85+120:NEXT
340 POKE V+14,RND(1)*62:POKE V+15,RND(1)*85+120:POKE V6,128
345 E=(Y-19)*50+35:D=INT((RND(1)+X%-39)*104+15):C=0:GOSUB 9
350 POKE V+8,D-C:POKE V+9,E:POKE S+8,5:POKE S+12,96
355 POKE V+2,132:POKE V+3,73:POKE V+4,180:POKE V+5,63
360 X%=(FN B(A+39)-FN B(A+37))*7:Q=SGN(X%):L=Q/9:K=6-Q-Q:Q=Q*SX:POKE 55720,0
365 X=A:FOR I=1024 TO 1063:Y=FN H(X):Y%=Y:FOR T=0 TO Y%-1:POKE I+T*M,160:NEXT
370 POKE I+M*Y%,H(8*(Y-Y%)):X=X+1:NEXT
375 POKE S+15,15:ON SS GOSUB 670,680:POKE V+23,192:POKE V+29,102:POKE V+21,247
380 GOSUB 650:GOSUB 550:G=G/4+1:F=P(P):POKE Z,0:POKE S+4,129
384 REM
385 I=PEEK(V0)+PEEK(V1):FOR I=G TO 1 STEP-.07:X0=D:Y0=E:IF I<3 THEN D=D+Q:E=E+SY
390 D=D+T*I:IF D<14 OR D>330 THEN POKE S+18,0:POKE S+18,17:T=-P(P+10):D=X0
395 IF PEEK(V1)AND 16 THEN IF E<109 THEN E=FN H((D-14)/8+A)*8+M:I=I-.1:GOTO 415
400 H=PEEK(V0):E=E-F*I:IF E>237 THEN POKE S+18,0:POKE S+18,17:F=-P(P):E=Y0
405 IF H AND 16 THEN IF NOT H AND 1 THEN I=I-.4:POKE S+11,0:POKE S+11,129
410 IF E<126 AND E>120 THEN IF D<211 AND D>205 THEN 435
415 D=INT(D+.5):Y%=E+.5:GOSUB 9:POKE V+8,D-C:POKE V+9,Y%:NEXT
420 IF PEEK(V1)AND 16 THEN IF E<109 THEN POKE V+9,Y%+3:E=E+3
425 IF E<160 THEN IF D<250 AND D>170 THEN POKE 1448,87:POKE V+21,246:GOTO 380
430 POKE 1448,32:POKE V+21,247:GOTO 380
434 REM
435 POKE V+8,208:POKE V+9,123:GOSUB 650:POKE S+12,0:POKE S+13,89:POKE V+32,2
440 POKE S+11,0:POKE S+11,65:GOSUB 490:POKE V+33,8:GOSUB 490:POKE V+32,11
445 GOSUB 490:POKE V+33,9:GOSUB 490:POKE V+21,0:POKE S+11,0:POKE S+13,0:NEXT N
450 FOR I=1 TO SS:SM(I)=SM(I)+S(I):IF S(I)<BS(I)THEN BS(I)=S(I)
455 NEXT:PRINT"[147]":POKE V+33,8:ON SS GOSUB 700,705
460 PRINT TAB(5)"FROM THE FRONT.... KEY V":PRINT TAB(5)"(OINTS : 0)"
465 PRINT TAB(5)"CONTINUE.......KEY V OR FIRE "
470 GET A$:IF PEEK(J)AND 16 THEN IF A$<>"V"AND A$<>"V"THEN 470
475 IF A$="V"THEN 60
480 GOTO 95
489 REM
490 FOR I=0 TO 3:FOR F=20 TO 50:POKE S+8,F:NEXT:NEXT:RETURN
499 REM
500 POKE S+5,9:POKES+6,58:POKE V+32,8:POKE S+4,0:POKE S+4,129
505 FOR I=10 TO M STEP.3:POKE S+1,I:NEXT:POKE V+32,11
510 FOR I=25 TO 70 STEP.3:POKE S+1,I:NEXT:POKE V+32,8:POKE S+4,128
515 FOR I=0 TO 300:NEXT:POKE S+5,5:POKE V+32,11:GOTO 255
549 REM
550 POKE S+1,W:POKE S+5,2:POKE S+4,32:POKE Z,R(U):POKE S+4,33:POKE S+1,30
555 F=NOT PEEK(J):IF F AND 16 THEN 595
560 IF F AND 4 THEN P=P+(P=M)*P+1:GOTO 635
565 IF F AND 8 THEN 630
570 GET A$:IF A$=""THEN 555
575 IF A$="[157]"THEN P=P+(P=M)*P+1:GOTO 635
580 IF A$=""THEN 630
585 IF A$<>" "THEN 555
590 FOR I=0 TO 180:NEXT
595 I=853:T=0:G=2:S(N)=S(N)+1
600 IF G>13 THEN G=G^1:GOTO 620
605 G=G+.23:IF T>7 THEN T=0:I=I+1:IF I=856 THEN I=1011
610 IF I=1013 THEN F=G(T)OR 1:POKE I,F:POKE I+3,F:POKE I+6,F:GOTO 620
615 POKE I,G(T):POKE I+3,G(T):POKE I+6,G(T)
620 T=T+1:GET A$:IF NOT PEEK(J)AND 16 OR A$=" "THEN 600
625 T=P(P+10):ON SS GOSUB 670,685:POKE S+4,0:POKE S+5,5:RETURN
630 P=P-(P=0)*M-1
635 Y%=11-9*P(P):X%=11.5+10*P(P+10):A%=X%/8:U=X%AND 7
640 POKE Z,0:Z=896+A%+3*Y%:POKE Z,R(U):GOTO 555
649 REM
650 POKE 1019,1:POKE 1016,1:POKE 1013,1:POKE 1018,0:POKE 1015,0:POKE 1012,0
655 POKE 1017,0:POKE 1014,0:POKE 1011,0:POKE 861,0:POKE 858,0:POKE 855,0
660 POKE 860,0:POKE 857,0:POKE 854,0:POKE 859,128:POKE856,128:POKE853,128:RETURN
669 REM
670 PRINT""
675 PRINT TAB(9)"GAME "SP TAB(24)"[146]STROKES :"S(1):RETURN
679 REM
680 POKE 1041+N*24,81:POKE 55313+N*24,15
685 PRINT""
690 PRINT"1.PLAYER "S(1)TAB(18)""SP"[157] "TAB(26)"[146]2.PLAYER "S(2):RETURN
699 REM
700 GOSUB675:PRINTTAB(13)"BEST GAME   "BS(1):PRINTTAB(13)"TOTAL"SM(1):RETURN
704 REM
705 GOSUB690:PRINT" BEST"BS(1)TAB(25)"BEST"BS(2)
710 PRINT" TOTAL"SM(1)TAB(25)"TOTAL"SM(2):RETURN
755 DATA-88,-89,-90,-50,-10,30,70,71,72,32,-8,-9,-85,-86,-87,-47,-7,33,73,74
760 DATA 75,35,-5,-45,-84,-44,-4,36,76,77,78,79,39,-1,,-41,-81,-80,-79
765 DATA 192,128,160,99,96,192,227,119,48,224,247,120,24,240,248,226
770 DATA 12,248,98,249,6,252,121,239,3,254,111,228,3,255,100,160
774 REM
775 DATA.001,.156,.309,.454,.588,.707,.809,.891,.951,.986,.999
779 REM
780 DATA 226,57,200,166,8,74,162,57,206,162,32,66,226,57,194
785 DATA 8,66,16,255,255,255,128,,,128,,,128,,,255,255,255
789 REM
790 DATA 115,156,231,66,4,165,115,136,231,18,136,161,115,136,231
795 DATA 132,33,8,255,255,255,,,1,,,1,,,1,255,255,255,
799 REM
800 DATA,12,,,13,,,13,64,,13,64,,13,16,,13,84,,13,80,,13,,
805 DATA 12,,,12,,,12,,,12,,,12,,,12,,,12,,,63
809 REM
810 DATA 8,,,8,,,42,,,34,,,168,128,,170,128,2,170,128,2,170
815 DATA 160,10,46,160,10,190,168,10,62,40,,60,,,60,,,60,,
819 REM
820 DATA,170,,2,170,128,10,170,168,10,42,168,42,168,168,34,130,170,42,42
825 DATA 170,40,170,42,168,138,170,162,40,162,40,170,170,170,170,168,138,186
830 DATA 160,170,186,,40,60,,,60,,,60,,,60,,,60,,,60,,,60,,
834 REM
835 DATA 31,240,,59,254,,59,255,,125,207,128,124,191,224,126,127,224,223,127
840 DATA 112,227,63,176,125,63,176,62,30,112,1,153,176,,3,224,,1,224,
845 DATA,,24,,,118,,,205,,,240,,,,,,,,,,,,
849 REM
850 DATA,,,4,,,4,,,2,48,,3,64,,1,128,,32,128
855 DATA 128,28,192,64,2,192,64,1,225,128,0,102,64,,124,,,120,,
860 DATA 112,,6,112,,9,240,,48,240,,,112,0,,112,,,112,,,112,,
864 REM
865 DATA,2,170,,,,,85,85,,,,10,170,170,,,,5,85
870 DATA 85,,,,42,170,170,,,,85,85,85,,,,42,170,168,
875 DATA,,85,85,80,,,,170,170,128,,,,85,85,64,,,,170,170,,