ZXTape! 0Created with Ramsoft MakeTZXsgolf20 G " GOLF(16k)  VIRGIN GAMES" 5100,502,"2w",4262,45-,"3i",3825,36$,"5i",3188t ,24,"7i",2552 ,18,"9i",638~,12 ,"pt" h0,0,.1}L,1,0,0,1.1 ,.2~L,.3,.3,1,0,0,1.1 ,.3,.5,.4L,1,0,0,1.1 ,.4L,.73333,.6,1,0,0,1.1 ,.6,.9ffff,.8L,1,0,0,1.1 ,0,0,0,0,0,1,0 +"wds","bnk","rgh","fwy","wtr","grn","tee" Pd(y)=(*2-1)*a(c)*y/15:e(y)=y+.25~**y:n(x,yb)=((x-xh)*(x-xh)+(y-yh)*(y-yh)):x(x)=(x/8)+1:y(xb)=22-(x/8) dx(6):a(6):b(7,6):c$(32 ,22):p(4,8):n$(6,2):p$(4,4):t$(7,3):u$(7) &3700t:h=1nh:5000 /5800:5700D:5900 :250 h:q=1np:p(q,5)=p(q,5)+p(q,6):p(q,6)=0:2,5+5*q;p(q,5):3,5+5*q;p(q,6):q: fp(p,3)<0p(p,3)>255p(p,4)<0p(p,4)>175oob=1 ,p(p,3)<1p(p,3)=1 0p(p,3)>254p(p,3)=254 ,p(p,4)<1p(p,4)=1 0p(p,4)>174p(p,4)=174 Kxx=p(p,3)-p(p,1):yy=p(p,4)-p(p,2):oob=0 %p(p,6)=p(p,6)+2: ~9"No. of players ";np:np<1np>43710~ $p=1np:"Name ";(p);p$(p):p 8"No. of holes ";nh:nh<1nh>183730 Wl$="":c=16:x(c),a(c),n$(c):l$=l$+n$(c)+32 :c:l$=l$(14) Qc=16:t=17:b(t,c):t:c:t=17:t$(t):t &Wu$(1)="W":u$(2)="B":u$(3)="!":u$(5)=":":u$(7)="T": Ih*3000 :y=122:x=132 :c$(x,y)="4":x:y .55026 xy=122:limit=((y-11 )*(y-11 )/4+2):x=1limit:c$(x,y)="3":x:y:5030 y=110 :x=3*y32 :c$(x,y)="3":x:y:y=13 22:x=12*y-25:c$(x,y)="3":x:y =x=2425:y=12 14:c$(x,y)="2":y:x .55050 zy=11 19:x=1416:c$(x,y)="5":x:y:x=13 17:y=13 17:c$(x,y)="5":y:x .55060 Fy=1422:x=12*y-27:c$(x,y)="1":x:y =y=1418:x=2530:c$(x,y)="6":x:y mpp4=(*176):q=1np:p(q,3)=0:p(q,4)=pp4:q:yt=y(pp4):c$(1,yt)="7" Odno=*2*:xno=(11 *dno+.5):yno=(11 *dno+.5) 7xh=(*32 +201):yh=(*24+41)) Gpp3=1:si=100d+500*:le=(si/256*n(pp3,pp4)) (par=((le-26)/225)+3 npmin=999:q=1np:p(q,5)=p(q,5)+p(q,6):p(q,6)=0:p(q,7)=7:p(q,6)>pmin5250 xpmin=p(q,6):p=q q [0:0::y=122:x=132 :ڰc$(x,y):u$(c$(x,y));:x:y \5600:7:y=02:y,29;" ":y:244,164:xno,yno U0,1;"Hole ";h:1,1;le;" Yds":2,1;"Par ";par ’q=1np:0,5+5*q;p$(q):2,5+5*q;p(q,5):3,5+5*q;p(q,6):q::8: Wxh,yh+1:-1,0:0,-2:2,0:0,2: H-p(p,7)=6c=6:5730b I(l$);" club? ";a$ N)c=16:n$(c)=a$5730b Xc:5705I bQ"direction ";w$:w=1̱w$:(w$(w))>579ů(w$(w))<45-5730b cw g3dir=w$:dir<-180dir>360h5730b lP"strength ";w$:w=1̱w$:(w$(w))>579ů(w$(w))<46.5740l mw v-str=w$:str>10 c65740l  ?dmax=-1:q=1np:p(q,7)=05820 Wp(q,8)=n(p(q,3),p(q,4)):p(q,8)>dmaxp=q:dmax=p(q,8) q $pp3=p(p,3):pp4=p(p,4) dmax0420 ډxt=x(pp3):yt=y(pp4):p(p,7)=c$(xt,yt):1,5+5*p;t$(p(p,7)):1:0,5+5*p;p$(p) x1=x(pp3):y1=y(pp4) `p(p,7)61:y1-1,x1-1;" ":y1-1,x1-1;" ":0 0:pp3,pp4 p(p,7)5 ;p(p,6)=p(p,6)+1:p(p,7)=4: X0,5+5*p;p$(p):p(p,1)=p(p,3):p(p,2)=p(p,4) 9arc=d(str):dir=(dir+dno*180/)+arc:str=e(str) !c=6str=str/(1.25 ) 9dir=dir/180*:dist=str/si*x(c)*b(p(p,7),c) 44xx=(dist*dir+.5):yy=(dist*dir+.5) ><p(p,3)=p(p,1)+xx:p(p,4)=p(p,2)+yy Croob=0:p(p,3)<1p(p,3)>254p(p,4)<1p(p,4)>1743000 Ic=65980\ JIx=x(p(p,1)):y=y(p(p,2)):paper=c$(x,y):502:xx,yy N<pp3=p(p,3):pp4=p(p,4):x1=x(pp3):y1=y(pp4) Qpp3,pp4:q=p:6000p X,y-1,x-1;u$(paper):5981] \By=1418:y-1,24;" ":y:5600 ]rq=1np:p(q,7)=6p(q,8)0pp3=p(q,3):pp4=p(q,4):pp3,pp4:6000p ^q ap(p,6)=p(p,6)+1:3,5+5*p;p(p,6):hd=(xh-p(p,3))+(yh-p(p,4)):hd29000(# f6100: zoq=1pp3+1,pp4+1:pp3-1,pp4-1:pp3+1,pp4-1:pp3-1,pp4+1 Oq=2pp3,pp4+1:pp3,pp4-1:pp3+1,pp4:pp3-1,pp4 Nq=3pp3+1,pp4+1:pp3-1,pp4+1:pp3,pp4-1 Nq=4pp3,pp4+1:pp3+1,pp4-1:pp3-1,pp4-1  `xt=x(pp3):yt=y(pp4):p(p,7)=c$(xt,yt):1,5+5*p;t$(p(p,7)): 1p(p,6)=p(p,6)+1:3,5+5*p;p(p,6):21,22;"PUTT GIVEN":502:x=2231:t=c$(x+1,22):21,x;u$(t):x #241:0,5+5*p;p$(p):0 #<9p(p,7)=0:p(p,8)=0:250: !!