ZXTape! 0Created with Ramsoft MakeTZXGOLF16 ! !$5,8;"Hornby Software" 7,8;"Copyright" 9 ,8;"NOV.82"  200  "THIS IS A GOLF" " ROUND" "HELP?PRESS H,ELSE PRESS ANY" A$ A$="H"A$="h"2000 ("1 OR 2 PLAYERS";pl P 4 U l(2) Z(l(1)=0:l(2)=0 d c=0 i19,20;c n""HOLE NUMBER AND BE PATIENT ";n owh=n q#b=1pl:c=0:5  rn=wh s uwd=400+100d*n xwd y 1400x n=0295' 3460 i=021 i,15;"-" i,16;16*i:i h,g 3000 "angle ";a r= r<.5r=1 s= "x=r*d*(a*/180+s/4) r= r<.5r=1 y=r*d*(a*/180) "(h+x/2)<0206 $(h+x/2)>250206 "(g+y/2)<0206 $(g+y/2)>176206 209 #20,0;"OUT OF BOUNDS" 21,0;"TRY AGAIN" c=c+2:165 .3,8 h=h+x/2:g=g+y/2 4000 !x/2,y/2,t/2* 1400x c=c+1 17,20;c v=((p-h)*(p-h)+(q-g)*(q-g)) v1271 v10 4200h v10 170 =z=110 :.1}L,20:.1}L,10 :z  l(b)=l(b)+c  .19,0;"PLAYER ";b;" SCORE ";l(b)  502 !b " 100d ' (5b=12:10 ,10 ;"ROUND SCORE" )110 +b,10 ;"player ";b;" score ";l(b) *b , 5000 first 16,20;"hole 1" &5,20:-4,150 &60<,0:0,-170 S45-,150,10 :45-,150,2:45-,5,5 %0p=45-:q=150:h=45-:g=5 & Xsecond b16,20;"hole 2" l&5,20:10 ,150 v&502,0:0,-150 820,160,5:20,160,2 p=20:q=160 h=45-:g=5 45-,5,5  1  third 16,20;"hole 3" #5,5:557,0 ]0,95_:30,0:0,65A:-85U,0:0,-160 S12 ,5,5:65A,130,10 :65A,130,2 0p=65A:q=130:h=12 :g=5 )i=10 12 :j=710  1   fourth *16,20;"hole 4" 4502,0:40(,0:0,160:-90Z,10 :0,-70F:502,0:0,-100d >S70F,7,5:15,150,10 :15,150,2 H0p=15:q=150:h=70F:g=7 R FIFTH 16,20;"hole 5" a0,170:90Z,0:0,-170:-60<,0:-30,170 R15,160,5:76L,10 ,8:76L,10 ,2 1p=76L:q=10 :h=15:g=160 j=110  1  SIXTH 16,20;"hole 6" 0,0:502,0:30,90Z:-30,80P:-502,0:30,-80P:-30,-90Z S15,7,5:15,160,10 :15,165,2 0p=15:q=165:h=15:g=7  1  L SEVENTH V16,20;"hole 7" `30,0:502,0:-30,90Z:30,80P:-502,0:-30,-80P:30,-90Z jS60<,7,5:65A,155,10 :67C,158,2 t0p=67C:q=158:h=60<:g=7 { 1 ~ EIGTH 16,20;"hole 8" 70,0:60<,0:0,120x: )-60<,0,:0,-120x T10 ,10 ,5:30,160,10 :30,160,2 1p=30:q=160:h=10 :g=10  1  NINTH 16,20;"hole 9" (d60<,0:20,40(:-60<,130:-20,-40(:60<,-130 2S66B,10 ,5:10 ,155,10 :8,157,2 <0p=8:q=157:h=66B:g=10 C 1 F xn=wh yn>11410 z/6:i=45:j=13 {i,j;"":j:i | 5 }(j=120:10 ,j;"":j ~ 1  1600@ n>21420  6 &i=67:j=57 i,j;"":j:i  5 'i=15:j=610 i,j;"":j:i  1  1600@ n>31430  6 )i=10 12 :j=710 i,j;"":j:i  5 j=115 15,j;"":j  1  1600@ n>41440  6 (i=12:j=10 15 i,j;"":j:i  5 'i=9 16:j=16 i,j;"":j:i  1  1600@ n>51450  6 (i=1821:j=14 i,j;"":j:i  5 j=110 5,j;"":j  1  1600@ n>61460  6 'i=35:j=710 i,j;"":j:i  5 (i=10 12 :j=13 i,j;"":j:i  1  1600@ n>71470  6 &i=16:j=12 i,j;"":j:i  5 i=120  i,i;"":i  1  1600@ n>81480  5 'i=817:j=49 i,j;"":j:i  1  1600@  n>9 1600@:1 46:i=10 15:j=115-i i,j;"":j:i  5 'i=14:j=610 i,j;"":j:i  1  1600@ @ 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,w or p?" C$ C$="I"C$="i"3200 C$="W"C$="w"3300 "sten.";s $d=S*20/100d:3400H "CLUB NO.";I "STREN.";S "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 "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 N=0315;45- G5-4*(N/180*),24+4*(N/180*);N N  I(((176-g)/8-0.5),(h/8))=38&4040 I(((176-g)/8-0.5),(h/8))=37%4020  4060 20,0;"IN WATER" &21,0;"ONE SHOT PENALTY"  120x c=c+1:4060 %20,0;"YOU ARE IN SAND" &21,0;"USE 10 IRON ONLY"  120x  h i 1 j 3460 m19,20;c n9100d,90Z,502:100d,90Z,3 p'x=h-p:y=g-q:p=100d:q=90Z u-h=100d+5*x:g=90Z+5*y vh,g,1:h,g  "stren.";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  13 ,10 ;"GOODBYE"  c;- (p-qh-gz}CWws~AAStd adrxv yX_fv6%e7 GOLF48 ('($5,8;"Hornby Software" 7,8;"Copyright" 9 ,8;"NOV.82"  200  "THIS IS A GOLF" " ROUND" "HELP?PRESS H,ELSE PRESS ANY" 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( ("1 or 2 players?";pl P 4 U l(2) Z(l(1)=0:l(2)=0 d c=0 i19,20;c n""HOLE NUMBER AND BE PATIENT ";n ob=1pl p c=0 q 5 r5wh=400+100d*n:wd=5000+100d*n s twh=400295' xwh ywd 1 3460 i=021 i,15;"-" i,16;16*i:i 18,20;"player ";b h,g 3000 "angle ";a r= r<.5r=1 s= "x=r*d*(a*/180+s/4) r= r<.5r=1 y=r*d*(a*/180) "(h+x/2)<0206 $(h+x/2)>250206 "(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 17,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-4 (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 ' (5b=12:10 ,10 ;"ROUND SCORE" )110 +b,10 ;"player ";b;" score ";l(b) *b , 6000p first 16,20;"hole 1" &5,20:-4,150 &60<,0:0,-170 S45-,150,10 :45-,150,2:45-,5,5 %0p=45-:q=150:h=45-:g=5 + 1: Xsecond b16,20;"hole 2" l&5,20:10 ,150 v&502,0:0,-150 820,160,5:20,160,2 p=20:q=160 h=45-:g=5 45-,5,5  1: third 16,20;"hole 3" #5,5:557,0 ]0,95_:30,0:0,65A:-85U,0:0,-160 S12 ,5,5:65A,130,10 :65A,130,2 0p=65A:q=130:h=12 :g=5  1   fourth *16,20;"hole 4" 4502,0:40(,0:0,160:-90Z,10 :0,-70F:502,0:0,-100d >S70F,7,5:15,150,10 :15,150,2 H0p=15:q=150:h=70F:g=7 O 1 R FIFTH 16,20;"hole 5" a0,170:90Z,0:0,-170:-60<,0:-30,170 R15,160,5:76L,20,8:76L,22,2 1p=76L:q=22:h=15:g=160  1  SIXTH 16,20;"hole 6" 0,0:502,0:30,90Z:-30,80P:-502,0:30,-80P:-30,-90Z S15,7,5:15,165,10 :15,165,2 0p=15:q=165:h=15:g=7  1  L SEVENTH V16,20;"hole 7" `30,0:502,0:-30,90Z:30,80P:-502,0:-30,-80P:30,-90Z jS60<,7,5:67C,158,10 :67C,158,2 t0p=67C:q=158:h=60<:g=7 { 1 ~ EIGTH 16,20;"hole 8" 70,0:60<,0:0,120x: )-60<,0,:0,-120x T10 ,10 ,5:30,160,10 :30,160,2 1p=30:q=160:h=10 :g=10  1  NINTH 16,20;"hole 9" (d60<,0:20,40(:-60<,130:-20,-40(:60<,-130 2T66B,10 ,5:10 ,155,10 :10 ,155,2 <1p=10 :q=155:h=66B:g=10 D 1 F 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- G5-4*(V/180*),24+4*(V/180*);V V  I(((176-g)/8-0.5),(h/8))=38&4040 I(((176-g)/8-0.5),(h/8))=37%4020 I(((176-g)/8-0.5),(h/8))=35#4054  4060 &20,0;"YOU ARE IN WATER" &21,0;"ONE SHOT PENALTY"  502 M20,0;" ":21,0;" " c=c+1:4060 %20,0;"YOU ARE IN SAND" &21,0;"USE 10 IRON ONLY"  502 K20,0;" ":21,0;" "  4060 ?20,0;"IN TREES":21,0;"USE 10 IRON"  502 F20,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 04,1;"":5,1;""  5 (j=120:10 ,j;"":j 73:4,10 ;"":5,11 ;""  1: P 6 Q06,5;"":7,5;"" R 5 S'i=15:j=610 Ti,j;"":j:i U 3 V(o=416:o,11 ;"":o Wo:1:  6 N10 ,7;"":11 ,7;"":12 ,7;""  5 j=115 15,j;"":j  3 >o=042:x=14:o,x;"":x:o  1:  6 81,10 ;"":2,10 ;""  5 'i=9 16:j=16 i,j;"":j:i  1: | 6 }Q18,1;"":19,1;"":20,1;"" ~ 5 2i=110 :5,i;"":i:1:  6 K3,7;"":4,7;"":5,7;""  5 K10 ,1;"":11 ,1;"":12 ,1;""  3 9o=511 3:x=10 142 o,x;"":x:o  1: D 6 E&i=16:j=12 Fi,j;"":j:i G 5 H!i=120:i,i;"":i I 1:  5 'i=817:j=49 i,j;"":j:i  3 'o=120:o,0;"":o  1:  6  +i=10 15:j=115-i i,j;"":j:i  5 'i=14:j=610 i,j;"":j:i  3 /o=0202:9 ,o;"":o  1: p14,10 ;"GOODBYE" "tmu( c(pdqZhFàg2-e