ZXTape! 0Created with Ramsoft MakeTZXBIRKDALE FLLItHL$5,8;"Hornby Software" 7,8;"Copyright" <9 ,8;"JUNE.83":10 ,6;"R.BIRKDALE"  200   1 #5,3;"THIS IS A GOLF" 6,6;"ROUND" .7,3;"HELP?PRESS H,ELSE ANY KEY" A$ A$="H"A$="h"2000 :N=07  T:"T"+N,T N I0,16,568,124|,255,16,16,0 n=07  m:"m"+n,m n !I0,0,16,255,568,255,130,0 "n=07 # u:""+n,u $n %I0,0,146,255,568,568,40(,40( &mS(18):T(2,18):I=12:J=118:T(I,J)=0:S(J)=0:J:I ("1 or 2 players?";pl P 4 Q p(2) R=i=1pl:21,0;"player ";i;" handicap":pr Sp(i)=0.8L-pr/480 Ti U l(2) Z(l(1)=0:l(2)=0 d c=0 n8"HOLE NUMBER AND BE PATIENT ";n:n=0291# ob=1pl p c=0 q 5 r3wh=400+20*n:wd=5000+20*n s xwh ywd 1:S(n)=par 3460 i=07 12 ,4*i;"*+++":i i=07 #13 ,4*i;64@*i:i 18,20;"player ";b h,g 3000 "angle ";a r= r256206 "(g+y/2)<0206 $(g+y/2)>176206 209 #20,0;"OUT OF BOUNDS" k21,0;"TRY AGAIN":502:20,0;" ":21,0;" " c=c+2:165 .3,8 h=h+x/2:g=g+y/2 4000 !x/2,y/2,t/2* wd c=c+1 19,20;c v=((p-h)*(p-h)+(q-g)*(q-g)) v1271 v10 4200h v10 170 9z=09 :.1}L,20:.1}L,10  2 A20,11 -z;"":2:20,10 -z;" ":z  l(b)=l(b)+c  sc=c-par %17,0;""  T(b,n)=c (19,0;"PLAYER ";b;"=";l(b) (sc=018,0;"PAR ";c ,sc=-118,0;"BIRDIE ";c +sc=-218,0;"EAGLE ";c .sc=-318,0;"ALBATROS ";c *sc=118,0;"BOGEY ";c 1sc=218,0;"DOUBLE BOGEY ";c -sc>218,0;"DISASTER ";c  502 !b " 100d # $*pa=0:"no.";"par ";" pl 1";" pl 2" %"-----------------" &jj=118:j;(3);S(j);(10 );T(1,j);(15);T(2,j):pa=pa+S(j):j +21,0;"Sc.":21,3;pa:21,10 ;l(1):21,15;l(2):14,17;"C=CONTINUE":15,17;"ANY KEY TO END":Z$:Z$="C"Z$="c"110n , 6000p ?16,18;"NO.1 450 YDS":17,18;"PAR 4" 8,160:30,10 :100d,0:100d,-30:0,-40(:-100d,30:-130,10 V20,150,10 :20,150,2:250,120x,5 3p=20:q=150:h=250:g=120x par=4:1: 16,18;"NO.2 423 YDS":17,18;"PAR4":130,150:120x,0:0,-30:-120x,0:0,30 W240,135,10 :240,135,2:25,135,5 Kp=240:q=135:h=25:g=135:par=4:1: ?16,18;"NO.3 410 YDS":17,18;"PAR 4" ͚110n,140:70F,0:20,10 :502,-15:0,30:-502,10 :-90Z,0:0,-35# W230,150,10 :230,150,2:25,140,5 Bp=230:q=150:h=25:g=140:par=4: ?16,18;"NO.4 206 YDS":17,18;"PAR 3" W150,140,10 :150,140,2:47/,130,5 @p=150:q=140:h=47/:g=130:par=3  1: ?16,18;"NO.5 343 YDS":17,18;"PAR 4" 502,150:120x,0:557,-20:0,-30:-557,20:-120x,0:0,30 W210,115s,10 :210,115s,2:35#,135,5 3p=210:q=115s:h=35#:g=135 par=4: ?16,18;"N0.6 468 YDS":17,18;"PAR 4"  200,150:-80P,0:-110n,20:0,-25:110n,-20:80P,0:0,25  V20,160,10 :20,160,2:250,140,5  Bp=20:q=160:h=250:g=140:par=4: ?16,18;"NO.7 150 YDS":17,18;"PAR 3" W170,135,10 :170,135,2:95_,130,5 Bp=170:q=135:h=95_:g=130:par=3: 0?16,18;"NO.8 470 YDS":17,18;"PAR 4" 170F,165:502,0:557,-20:75K,5:0,-25:-75K,0:-105i,20:0,20 2V240,140,10 :240,140,2:8,160,5 3Ap=240:q=140:h=8:g=160:par=4: D?16,18;"NO.9 410 YDS":17,18;"PAR 4" E10 ,150:95_,-10 :60<,5:5,-25:-65A,-10 :-95_,10 :0,30 FV25,130,10 :25,130,2:230,150,5 GBp=25:q=130:h=230:g=150:par=4: X@16,18;"NO.10 384 YDS":17,18;"PAR 4" Y100d,110n:60<,0:25,10 :0,40(:25,0:0,-502:-20,-30:-90Z,0:0,30 ZW200,150,10 :200,150,2:20,100d,5 [Bp=200:q=150:h=20:g=100d:par=4: l@16,18;"NO.11 411 YDS":17,18;"PAR 4" m130,150:80P,0:20,10 :15,-5:0,-25:-15,5:-20,-10 :-80P,0:0,25 nY230,145,10 :230,145,2:25,140,5 oBp=230:q=145:h=25:g=140:par=4: @16,18;"NO.12 184 YDS":17,18;"PAR 3" X200,130,10 :200,130,2:110n,125},5 Cp=200:q=130:h=110n:g=125}:par=3: @16,18;"NO.13 505 YDS":17,18;"PAR 5" d100d,160:150,15:0,-25:-150,-15:0,25 V240,160,10 :240,160,2:5,120x,5 Ap=240:q=160:h=5:g=120x:par=5: @16,18;"NO.14 198 YDS":17,18;"PAR 3" X200,140,10 :200,140,2:100d,150,5 Cp=200:q=140:h=100d:g=150:par=3: @16,18;"NO.15 542 YDS":17,18;"PAR 5" c95_,140:160,15:0,-25:-160,-15:0,25 V240,140,10 :240,140,2:5,110n,5 Ap=240:q=140:h=5:g=110n:par=5: B16,18;"NO.16 415 YDS":17,18;"PAR 4" a125},150:120x,0:0,-30:-120x,0:0,30 W230,140,10 :230,140,2:25,110n,5 Bp=230:q=140:h=25:g=110n:par=4: @16,18;"NO.17 526 YDS":17,18;"PAR 5" v10 ,170:130,0:20,-10 :0,-25:-20,10 :-130,0 V15,155,10 :15,155,2:250,130,5 Bp=15:q=155:h=250:g=130:par=5: @16,18;"NO.18 473 YDS":17,18;"PAR 4" s5,165:120x,0:0,-15:502,0:0,-20:-170,10 V15,150,10 :15,150,2:250,140,5 Bp=15:q=150:h=250:g=140:par=4: HELP: "-------------------" "IRON","DISTANCE" "-------------------" I=210 %I,(11 -I)*15+70F:I "-------------------" "WOOD","DISTANCE" "-------------------" I=15 %I,(6-I)*20+180:I  "PUTTER",20 "-------------------" "EACH SHOTCAN BE" "GIVEN A % FACTOR."  "E.G 50=HALF POWER" % CLUB 20,20;"I OR W?" C$ C$="I"C$="i"3200 C$="W"C$="w"3300 "sten.";s "CLUB NO.";I "STREN.";S S100d3206 F21,0;"TOO HARD":502:21,0;" " 3201 "str(s),fade(f),hook(h)?";a$ a$="s"a$="S"t=.5 a$="f"a$="F"t=-3 a$="h"a$="H"t=3 0d=S/100d*((11 -I)*15+70F) 3400H "WOOD NO.";W "STREN.";S S100d3306 F21,0;"TOO HARD":502:21,0;" " 502:3301 "str(s),fade(f),hook(h)?";a$ a$="s"a$="S"t=.5 a$="f"a$="F"t=-3 a$="h"a$="H"t=3 0d=S/100d*((6-W)*20+180) 3400H H V=0315;45- G17-3*(v/180*),4+3*(v/180*);v V 32 ,36$:24,0:44,,24:0,24:32 ,24:24,24:568,24:-24,24  I(((172-g)/8+0.5),(h/8))=38&4040 I(((172-g)/8+0.5),(h/8))=37%4020 I(((172-g)/8+0.5),(h/8))=35#4054  4060 &20,0;"YOU ARE IN WATER" 'xx=((176-g)/8-0.5) yy=(h/8) Ai=010 :xx,yy;"":3:xx,yy;"":3:i  xx,yy;" " &21,0;"ONE SHOT PENALTY"  200 M20,0;" ":21,0;" " c=c+1:4060 %20,0;"YOU ARE IN SAND" 'xx=((176-g)/8-0.5) yy=(h/8) Ai=010 :xx,yy;"":3:xx,yy;"":3:i  xx,yy;" " &21,0;"USE 10 IRON ONLY"  200 K20,0;" ":21,0;" "  4060 A20,0;"IN HEATHER":21,0;"USE 10 IRON" 'xx=((176-g)/8-0.5) yy=(h/8) Mi=010 :xx,yy;"":3:xx,yy;"":3:i:xx,yy;" "  200 K20,0;" ":21,0;" "  h i 1 j 3460 m19,20;c n9100d,90Z,502:100d,90Z,3 px=h-p:y=g-q q 18,20;"PLAYER ";b rp=100d:q=90Z u-h=100d+5*x:g=90Z+5*y v h,g,1 wh,g z17,20;"HOLE ";n |!20,20;"USE PUTTER" "strength ";st  "angle";a x=st/2*(a*/180) y=st/2*(a*/180) x,y h=h+x:g=g+y  c=c+1 19,20;c v=((p-h)*(p-h)+(q-g)*(q-g)) v34225   6000p  6 Z5,17;"":5,3;"":2,5;"":1,6;""  3 u7,17;" ":8,17;"":6,6;" ":7,6;"" 'i=425:0,i;"":i  5 L1,21;"":2,24;"":3,25;"" >i=01:i,0;"":i+5,0;"":i  1:  6 y8,13 ;"":9 ,10 ;"":2,26;" ":4,25;"":7,26;" "  3 Y8,6;" ":9 ,4;"":10 ,4;"" 'i=16:i,31;"":i  1:  6 ^4,17;"":5,18;"":3,24;"":1,26;" "  3 \5,21;"":6,21;"":7,21;" " (i=10 25:0,i;"":i 1,10 ;""  1:  6 ]4,15;"":3,16;"":2,17;"":6,17;""  3 6i=710 :i,5;"":i *i=28:i,21;"":i  1:  6 x8,24;"":9 ,24;" ":5,25;"":6,22;"":7,21;""  3 2,6;"":3,6;" ":8,12 ;"":9 ,12 ;"":5,28;"":6,29;""  5 59 ,18;"":10 ,18;"" 'i=610 :i,6;"":i 10 ,7;""  1:  6 6,19;"":3,15;"":4,15;"":0,4;"":1,4;"":3,2;""  3 y1,15;"":2,15;"":7,22;"":8,22;"" ]6,6;"":7,6;"":0,6;"":1,6;""  5 y4,3;"":5,6;"":6,9 ;"":i=710 :i,16;"":i  1:  6 H7,20;" ":6,19;"":6,24;"" 03,19;"":2,19;""  3 Z8,13 ;"":9 ,14;" ":10 ,14;" "  1: ( 6 )f7,12 ;" ":5,14;" ":1,15;"":5,20;" " *2,22;"" +2,25;" " ,6,27;"" - 3 .Z8,16;"":9 ,18;"":10 ,19;"" / 5 040,8;"":1,8;"" 16,8;"" 2"7,17;"" 4 1: < 6 =E4,5;"":4,13 ;"":8,15;"" ? 3 @28,19;"":9 ,19;"" A52,15;"":3,16;" " F 1: P 6 QL7,15;" ":11 ,18;" ":4,26;"" S 3 T4i=262:i,17;"":i U0,20;"" V1i=172:i,27;"":i W 1: d 6 e17,18;" ":6,23;"" fE3,24;"":4,25;"":2,27;"" g 3 h(i=36:i,4;"":i i2,15;"" j 5 k8,16;"" l9 ,24;"" n 1: x 6 y44,20;" ":6,20;" " { 3 |J4,27;"":5,28;"":6,27;"" ~ 1:  6 |5,15;" ":3,22;" ":2,18;"":1,24;"":1,27;""  3 7,2;"":8,2;"":7,17;"":8,17;"":0,18;""  5 81,6;"":1,7;""  1:  6 K3,20;"":2,22;" ":6,22;" "  3 K4,27;"":5,27;"":6,27;""  1:  6 G3,20;"":6,20;"":6,23;"" .2,29;"":5,29;"" 4,13 ;" "  3 |6,29;"":7,15;"":8,15;"":1,20;""  1:  6 27,16;" ":8,16;" " J4,22;" ":2,28;"":6,28;""  3 ?8,20;"":2,20;"" H1,30;"":2,30;"":3,30;""  1:  6 -1,3;"":4,3;"" ,4,9 ;"":1,9 ;"" 04,16;"":5,16;""  3 W6,3;"":7,3;"":0,1;""  5 0,3;""  1:  6 F3,15;"":5,13 ;"":2,13 ;"" ,4,8;"":2,6;"" -1,3;"":4,2;""  3 _0,1;"":7,1;""  5 6,6;""  1: p'17,19;1;"GOODBYE" "tmu(] V& 2""! coXPpdqZhFrg3I~a9;- w.)sxd a;rxbF0yF0 CIAS Z/