GOLF    KERR=256*23614>\+23613=\:ERR,0:ERR+1,0 0:0:0: P8,0;0;7;1;" GOLF - MICROPARADISE SOFTWARE " (/15,12 ;"CARGANDO" 2"" golf lk@nk<<@~B><|<|<|<~<<~B<|~<BB@@fBBBBBBBD@@@B@BBB@~@B@|Z@BBBBBBB<|B@|B|~|~B@B@B~|@~BB@@BBDB@BDBDB@BB@ZBD@~<<~@B><~<<@$BB~<<$<$$B$BD8x88x8<8h888hx888<8x888x88DxD88$@$8$b$88 D DDx8BDDDDD@x D< DTD@ TD@D@ D \+23613=\:ERR,0:ERR+1,0:1000 h=118 2:sh=0:a$="T":paper=3:ink=7  2000 ( 3000 - 75K 2 4000 < 5000 Fh P 6000p Zplayagain20  0  1280  9005-# ""Campo normal o aleatorio?(r/n)" 0:a$= a$"n"a$"r"1020 'p(18):l(18):s(18) a$="r"1110V $ 9990' .h=118 8 l(h):p(h) Bh L 1250 VD"Campo num.? Pulse ENTER cuando este dispuesto a empezar.SUERTE." `d$ jd$="":1150~ oF6500d:legal.4L,20:.4L,20:1120` t(d$) ~ par=0 h=118 l(h)=(*411)+140 1 p(h)=3+(l(h)>240)+(l(h)>449) %p(h)4ƥ<.61170 par=par+p(h) h:"par=";par "O.K?" 0:a$= a$"s"a$"n"1220 a$="n"1110V F11 ,0;" Introduzca su handicap (0-28) " $d$:6500d:legal1270 2.4L,20:.4L,20:1260 ,ha=d$:ha<0ha>281265   9900& i=17:a$  j=07:any  a$+j,any j:i (r$="":c$="" 2i=132 <r$=r$+"":c$=c$+32 Fi P rough=38&:water=47/ Zfairway=6:pin=568 d green=4:bunker=39' ntree=32 xrc=1:mc=0 ts=0:pr=0   21004  2200  2300  2400`  2500  2700  2900T   7  20,0;c$ 21,0;c$ * 44:6: >i=119 Hr$ Ri \C4;7;1;"Hoyo ";h;",Dist. ";l(h);",Par ";p(h) f 2050  ,0:6:vp=3+(*13 ) vp1=vp:hp=(l(h)/20) a=1hp .b=-1-(>.5)1+(>.5) #vp+b,a-1;" " b !vp=vp+(>.5)-(>.5) "vp=vp-(vp>16)+(vp<2) a vp2=vp  >.25~ 5:7 hp=(l(h)/40() a=018 $ a,hp;"" .!hp=hp+(>.5)-(>.5) 82hp=hp-(hpȺ(l(h)/20-2))+(hp<2) Ba V `0:4:vp=vp2 jhp=(l(h)/20)-1 t/a=-1-(>.5)1+(>.5) ~/b=-1-(>.5)1+(>.5) vp+b,hp+a;" " b:a 7;0;vp,hp;"" hpf=hp vpf=vp  >.9ffff M9970&:k=13+(>.73333)+(>.73333):vp:not:i=0 +(i,vp)=fairwayū(i,vp)=green2540 %i=i+1:i=192590 2520 i=i+2 j=1not:tre= Ri1=i-((4+*3)*(tre>.5))+((4+*3)*(tre.5)) .(i1,vp)=roughi1,vp;4;0;"" j k: 4:7:vp=vpf *zz=-4+(*9 ):yy=(vp+zz,hp) !yyroughyyfairway2705 vp+zz,hp;"" a=12+(>.4L) 4zz=-3-(*3):xx=-3+(*7) yy=(vp+xx,hp+zz) !yyroughyyfairway2740 vp+xx,hp+zz;"":a p(h)<4 hp=10 :2830 p(h)<5 hp=17:2830   a=12+(>.4L) (zz=hp+(*4):b=018 "(b,zz)fairway28706 ,b,zz;"":2880@ 6b @a J Tvp=vp1:hp=0 ^3:7 h vp,hp;""  3100 %ps=1:ci<213030 3200 sh13900< 3250 Bsh=sh+1:7;0;0,0;(480+sh) rc=1:mc=0 3300  7:1 &"21,0;"Que palo? ("; ( mc=0"1-4,11-19,21-29)" * mc=11 "11-19,21-29) " ,mc=29"29)" .$mc>20mc29mc;"-29)" 0%d$:6500d:legal3130: : 52.4L,20:.4L,20:31200 :`ci=d$:(ci<1ci>29)(ci>4ci<11 )ci=20cid$:d$""d$(1)="j"d$(1)=""d$(1)="-" S6500d:legal3160X U2.4L,20:.4L,20:3150N X0as=d$:as<-180as>1803157U b-as=as+(*(22+ha))-(*(22+ha)) las=as*/180 v 621,0;"Entre porcentaje de swing 10-100" %d$:6500 d:legal3220 2.4L,20:.4L,20:3210 .ps=d$:ps<10 ps>100d3215 ps=ps/100d  ci>20ci=ci-10 ci>10 ci=ci-6 ci=16-ci Khs=((ci*(12 +(*3))+38&)*ps*(as)*rc/20+.5) Kvs=((ci*(12 +(*3))+38&)*ps*(as)*rc/20+.5)  2050:7:2 Ghp+hs>31hp+hs<0vp+vs>18vp+vs<03360 hp=hp+hs:vp=vp+vs yy=(vp,hp) yywater33804 ?20,0;1;"Al agua.Un golpe de penalizacion" [b$=a$:paper1=paper:ink1=ink:a$="":paper=5:ink=7:3800:3900< Zsh=sh+1:hp=hp-hs:vp=vp-vs:a$=b$:paper=paper1:ink=ink1:3800:3000 ?20,0;1;"FUERA - Un golpe de penalizacion" *'sh=sh+1:3800:3000 4yygreen3410R >-20,0;"En el green; Golpes=";sh H8a$="-":paper=0:ink=4:3800: Ryyrough3470 \rgh= f-mc=11 :20,0;" Esta en "; pBrgh>.5"Matorral espeso":rc=.5+/4 z<rgh.5"Matorral claro":rc=.75@+/4 <a$="":paper=4:ink=6:3800:3000 yybunker3560 $20,0;"Cayo en bunker" bker=(*3) Cbker=0mc=24+(>.5):20,16;"BIEN" Bbker=1mc=26+(>.5):20,16;"O.K" Bbker=2mc=28+(>.5):20,16;"MAL" "-Max palo ";mc %rc=.73333-bker*.1}L+/5 <a$="":paper=4:ink=7:3800:3000 yytree36408 20,0;"Arboles-"; )trs=(*3):rc=.5+/4 trs=0"M.MAL"; trs=1"MAL"; trs=2"SUERTE"; $4mc=29-trs-(>.8L):" OBS.,max palo ";mc .<a$="":paper=4:ink=0:3800:3000 8yyfairway3670V B'20,0;"Esta Ud. en calle" LBa$=" ":paper=0:ink=6:3800:3000 V620,0;"En el green en ";sh;" -y cerca.." `2a$="":paper=7:ink=0:3800: i=16  paper:ink vp,hp;a$:15 7:2 vp,hp;"":15  i  < paper:ink F vp,hp;a$ P  4100 Jdp=(((hpf-hp)*(hpf-hp)+(vpf-vp)*(vpf-vp))*15+1+*15) hbp=19:4500 dp14300 -9 ,19-hbp;5;7;""  4350  44000  4500  4030  5: 97:i=12 21:i,0;c$:i:5 h9 ink=1 "h10 ink=2 ,40,17;5;ink;"" 6417;5;ink;"" @$17;5;ink;"" Jink:msig=(h/10 ) Tlsig=h-msig*10 ^Amsig01,18;7;1;1;msig h31,19;7;1;1;lsig r0:5 |/i=06:3+i,20;"":i fi=12:4;" ";0;"  ";4;" " i .7:0::" pies de la bandera" tg=2+(*3) %5:0:0,0;  "Green" tg=2"lento"; tg=3"medio"; tg=4"rapido";  T9 ,19;5;" ":10 ,19;0;7;"":10 !10 ,19;0;" " 511 ,19;0;7;"":100d  )7:0:13 ,0;dp 615,0;"Entre la fuerza de su putt(1-30)"  $d$:6500d:legal4370 2.4L,20:.4L,20:4365  ,ps=d$:ps<1ps>304367 .15,0;c$:13 ,0;" " &sh=sh+1: 0dp<0dir=1 :dp>0dir=-1 D.i=1ps:dp=dp+dir*(1+(*tg)):i N nhbp=((dp+1)/3) nhbp=nhbp-(nhbp=-1)  nhbp<-12 nhbp=-12 nhbp>19nhbp=19 nhbphbpstep=1 nhbp2:2;"MUY MAL.Suerte en el proximo." :  zz=ts-pr 2;"Usted esta ahora "; zz<0zz;" bajo"; zz=0"en el par"; zz>0zz;" sobre"; " par (bruto)." : )2;"Quiere usted ver su tarjeta?" "0:a$= ,a$"s"a$"n"5410" 6 :a$="n" |012 ;5;1;1;"TARJETA" W7;2;3;"HOYO";11 ;"DIST";19;"PAR";26;"GOLPES" i=118 =7;4;4;i;12 ;l(i);20;p(i); s(i)=05580 5s(i)-p(i)<028;2;7;s(i) 5s(i)-p(i)=028;7;0;s(i) 5s(i)-p(i)>028;1;7;s(i) i -19;7;3;pr;27;ts C5;1;1;" PULSE UNA TECLA (P=IMPRESORA) "  0 ="p"Ŧ="P":5630 : p 6100 zha>062008  6300  5500|:7:0 .4,2;"Usted hizo ";ts;" golpes." (:2;"(Neto ";ts-ha;" golpes.)"  zz=ts-pr-ha  :2;"lo hizo "; zz<0zz;" bajo"; zz=0"en el par "; $zz>0zz;" sobre"; ." par(neto).":: 8Ezz<0pd=((zz/2)+.5)*(zz<0):pd>hapd=ha =zz0pd=0 B:2;"Como resultado:" L2;"Su handicap "; Vpd=0"queda en ";ha `@pd>0"baja en ";pd;" golpes"," (a ";ha-pd;" golpes.)" j t '2;"Quiere jugar otro partido?" 0:a$= a$"s"a$"n"6310 a$="s"playagain=1 a$="n"playagain=0  d'legal=1:d$=""legal=0: ii=1̱d$ n;(d$(i)"0"d$(i)"9"d$(i)="."d$(i)="-")legal=0 xi: #-?4:#1;0;"PROGRAMA CARGADO - PULSE OPCION " #20:a$= #Pa$"s"a$"n"9030F# #U a$="n": #Z7:0::"El programa es una simulacion deun partido de golf jugado a 18 hoyos.Al comenzar el programa se le preguntara si quiere jugaren un campo standard o en uno seleccionado al azar." #dn'"El campo standard puede ser con-siderado como el 'campo propio',p.e.,en el que esta basado su handicap." #n'"La opcion aleatoria le da la posibilidad de elegir entre 65535 campos de golf diferentes.La eleccion se hace escribiendo un numero entero entre 1 y 65535(Puede repetir campo las veces que quiera escribiendo el mismo numero al comenzar el partido)." #x 9895& #"El campo elegido de manera alea-toria puede no tener 72 de par."''"A continuacion le sera pregunta-do su handicap.Los principiantesempiezan con 28.Si usted juega bien el ordenador reducira su handicap automaticamente al fi- nal del partido." # 9895& #" Juego hacia el Green."''"El ordenador le dara una des- cripcion del hoyo 'a vista de pajaro'. Los diferentes simbolossignifican:" #2'10 ;4;6;"";:" - matorral" #)'10 ;6;" ";:" - en calle" #&'10 ;4;" ";:" - green" #0'10 ;4;7;"";:" - bunker" #2'10 ;4;0;"";:" - Un arbol" #.'10 ;5;7;"";:" - Agua" #4'10 ;7;0;"";:" - La bandera" #0'10 ;3;7;"";:" - El tee" # 9895& #"El juego consiste en seleccionarun palo, un angulo y opcional- mente, un % de oscilacion."'"A continuacion se detallan los palos y su alcance aprox.:" ##'"PALO NOMBRE DISTANCIA(Y)" $!"Driver 1 233" $!"madera-2 2 220" $!"madera-3 3 207" $"!"madera-4 4 194" $,!"hierro-1 11/21 181" $6!"hierro-2 12/22 166" $@!"hierro-3 13/23 155" $J!"hierro-4 14/24 142" $T!"hierro-5 15/25 129" $^!"hierro-6 16/26 116" $h!"hierro-7 17/27 103" $r!"hierro-8 18/28 90" $|!"hierro-9 19/29 77" $ 9895& $"Hay dos nombres para los hierrosya que la segunda opcion le per-mite introducir un % de oscila- cion (swing) para mayor preci- sion" $d'"A continuacion el ordenador le preguntara el angulo de tiro, basado en el cuadro siguiente": $312 ;"-90":8;"-135 | -45 - arriba" $(12 ;"\|/":8;"180---- 0" $112 ;"/|\":9 ;"135 | 45 + abajo" $13 ;"90" $G'"(cualquier angulo intermedio espermitido,p.e. -22.5.)":9895& $" Juego en el Green." $'" Putting consiste en golpear la bola con una fuerza que depende de la velocidad del green y de la distancia a la bandera. Como referencia, por cada numero que Ud. introduzca la bola avanzara las siguientes distancias(apr.)" $%'5;"green lento... 1.5 pies" $"5;"green medio... 2 pies" $$5;"green rapido.. 2.5 pies" %Q'"p.e. un putt de 10 pies en un green medio necesitaria una fuerza de 5." %P"p.e. un putt de 20 pies en un green rapido necesitaria una fuerza de 8." % 9895& %&!" Unos pocos detalles finales:" %0>'"1)La escala del campo es de 20 yardas por cada cuadrado." %:"2)Tiene la opcion de revisar su tarjeta de puntuacion despues decada hoyo. Los resultados bajo par son indicados en rojo y los sobre par en azul." %De"3)Su eleccion correcta de palo es aceptada una vez ha salido enpantalla la frase'ELIJA SU PALO'." %N<21,0;" Pulse una tecla para empezar. " %X 0:: &C21,0;" Pulse una tecla(P=IMPRESORA) ":0 &="P"Ŧ="p":9897& &: &N "a",255,0,255,0,255,0,255,0 &Q"b",568,124|,254,127,63?,63?,126~,568 &H"c",8,24,568,8,8,8,8,28 &H"d",16,32 ,16,8,4,2,4,8 &L"e",8,28,28,62>,127,127,8,8 &G"f",0,0,0,24,24,0,0,0 &O"g",0,0,60<,126~,126~,126~,126~,60< &W10 ,4,11 ,8,12 ,12 ,13 ,8,14,4 'E361i,4,389,4,206,3,500,5,408,4,359g,4,424,4,388,4,196,3,400,4,5600,5,132,3,357e,4,294&,4,475,5,375w,4,180,3,550&,5 ! 2 n<oug&ate/airwai8reeunke're egaaF.apenp    ppp ort5ڢsisibhbteaus igvUrkeBTapernklayagai]]ig0e&w&]D20R C As"":"golf"16384@,27500lk:10 golf lk@@lk @