ZXTape! 0Created by SpectaculatorGolf 44'4=p(7,2)::b$=" " Ja=015:a1:"A"+a,a1:a:a=15:p(a,2):a  6000p ,tgolpe=0:tpar=0:hoyo=1 ꏏ INICIO HOYO ga=17:p(a,1):a:x=8:y=0:xant=8:golpes=0:arena=0 N1:7::21,0;4;4;b$:6:0 %a=04:a,0;b$:a 0,0;"HOYO ";hoyo," TOTALES","DIST. ";p(6,1)-8,"GOLPES ";tgolpe,"PAR ";p(7,1),"PAR ";tpar,"GOLPE ";golpes,"DIFER. ";tgolpe-tpar &A21,0;2;" ":21,31;2;" " 5a=15:p(a,1)=01030 B21,p(a,1);4;p(a,2);(a=1);"" a 1:7:x,8:19,p(6,1)/8-1;" ":p(6,1),23:0,-15:x,16:5*(x>p(6,1))-5*(x019,p(5,1);1;4;"":20,p(5,1);1;4;"" ꏏ DAR FUERZA a=125:o$=:a *7:0:5,0;b$;b$ 5,0;"fuerza : min.":5,28;"max.":126~,129:90Z,0:0,6:-90Z,0:0,-6:fuerza=1:if=1  8010J y(if=-1);fuerza+126~,130:(if=-1);0,4:o$=:o$=(13 )8020T:1800 Bfuerza=fuerza+if:fuerza=89Yfuerza=1if=if*-1  1530 ꏏ DAR ANGULO  a=125:o$=:a 6,0;"angulo : O g.":6,28;"90":126~,121y:90Z,0:0,6:-90Z,0:0,-6:angulo=1:if=1  8010J y(if=-1);angulo+126~,122z:(if=-1);0,4:o$=:o$=(13 )8020T:2000 &Bangulo=angulo+if:angulo=89Yangulo=1if=if*-1 0 1820 ꏏ DAR GOLPE ?a=125:o$=:a:viento=0:8:8  8010J v=(*21)-10 :viento=viento-1*(v-7)+1*(v>vientoviento<7):p(6,1),23:viento,-2:-viento,-2:0,4 72:o$=:o$=(13 )8020T:21004 ^p(6,1),23:1;viento,-2:1;-viento,-2:2020 4@xAx>p(6,1)a1=120x:a2=-120x:a3=-30 H3x,16:1;5*a1/120x,5 RGa=a1a2a3:px=8*(a/180*):py=-8*(a/180*) \;x,16:px,py:1;x,16:1;px,py:a fBgolpes=golpes+1:3,7;6;0;golpes ꏏ IMPULSO INICIAL |ix=fuerza*(angulo/180*)*.15~:iy=fuerza*(angulo/180*)*.15~:x>p(6,1)ix=ix*-1 7xant=x:arena=1ix=ix*.4L:iy=iy*.8L (ꏏ TRAYECTORIA 2=x=x+ix+viento*(y)*.015zu]:y=y+iy:y<0y=0 5k(x,y+8)=1x/8>p(5,1)x/8248x=xant:y=0:7,10 ;1;"bola perdida":golpes=golpes+1:3,7;6;0;golpes:8050r:300,:7,0;b$:1040 0iy=iy-2:2600( F(car=(x/8):vcar=(21,car) P4y=0ƽ(iy)<3ƽ(ix)<.53000 dPvcar64@iy=iy*-.5:ix=ix*.5:.01z# >,36$:2600( nPvcar=36$iy=iy*-.4L:ix=ix*.4L:.01z# >,36$:2600( xQvcar=38&iy=iy*-.25:ix=ix*.25:.01z# >,0:2600( vcar=37%5:x,y+8:-3,3:x,y+8:0,3:x,y+8:3,3:.2~L,-12 vcar=37%x,y+8:1;-3,3:x,y+8:1;0,3:1;x,y+8:1;3,3:x=0:26157 ꏏ BOLA PARADA Uvcar=38&arena=1:8,8;6;0;"bola en la arena" <vcar38&arena=0:8,0;1;b$ /(x-p(6,1))<.255020 (vcar64@x,y+8:4000 Zx/8>p(5,1)x/8p(6,1))-(7*(xp(6,1))-(a*(xp(6,1))-(a*(xp(6,1)if=-1 Bgolpes=golpes+1:3,7;6;6;golpes /1;xg,9 :1;2,0 ꏏ TRAYECTORIA (y>.5iy=iy-10 :4312 (ix=ix-.1}L:ix044000 S(x-p(6,1)).20~Lix<-20y<.5ix=0:44000 if*(x-p(6,1))<.25~if*(x-p(6,1))>0y<.5iy=ix*20:ix=ix-.30:.01z# =,32 ix<0ix=0 5x=x+ix*if:y=y+iy:y<0y=0:iy=0 xg=d(x):x2487,10 ;7;0;1;"bola perdida":x=xant:golpes=golpes+1:5,7;golpes:8050r:100d:7,0;1;b$:4030 xg>8xg<248xg,y+9 :2,0:xg+1,y+8:0,2:5:1;xg,y+9 :1;2,0:1;xg+1,y+8:1;0,2  4300 0ꏏ BOLA PARADA 5$y>.5ix=0:4305 :/(x-p(6,1))<.255000 Dzxg<8xg2487,10 ;7;0;1;"fuera de green":8040h:100d:520 N 4030 ꏏ FINAL HOYO Jxg=d(p(6,1)):7;xg,6:7;2,0 10 ,5;6;1;1;" ENTRO EN ";golpes;" GOLPES ":11 ,10 ;6;1;1;(golpes-p(7,1)); Dgolpes,126~,60<,126~,254,255,126~,255,255,126~,24,4,6,6,5,4 #2>25,12 ,0,17,8,210,4 #<=10 ,5,15,0,0,100d,3 #F=15,8,0,0,19,123{,3 #P?16,20,0,10 ,25,140,3 #Z>25,17,21,0,0,210,4 #d>20,10 ,0,0,17,165,4 #n>17,12 ,0,25,0,153,3 #x=19,5,23,0,9 ,160,3 #<11 ,0,0,15,8,95_,3 #>22,12 ,0,16,0,182,4 #?27,10 ,22,0,16,225,4 #>18,22,0,13 ,0,148,3 #>12 ,16,0,20,8,100d,3 #?23,10 ,0,17,14,200,4 #?28,6,24,10 ,18,229,5 #>16,10 ,0,0,20,140,3 #?21,13 ,17,0,10 ,172,4 #@28,10 ,14,18,21,244,5 %<d(xd)=(x-p(1,1)*8)*10 +8 '7:7:0: Q