DARDOS :+:0:0: 96;18,3;"~dardos~ CODE 55000,7452"  ""55000 M6;1;16,3;" PARA EL CASSETTE ":100d J9000(#:5:2000:m(ab,c)a,bc)=b,c=65c)=65408 :100d:500 ZCARACTERES GIG. \1XX=(256-8*XS*P$)/2:CENTRADO _XIS=23306 [:IS,XX:IS+1,YY:IS+2,XS:IS+3,YS:IS+4,8 a]IS=IS+4:W=P$:Q=1W:IS+Q,P$(Q):Q:IS+W+1,255:W=620000: dpantalla nsm(55000,16384@,6912):0:5:1,0;j$(1);2,0+(1p(1)<100d)+(1p(1)<10 );0+(5j$(1)" ");p(1);1,19;j$(2);2,19+(1p(2)<100d)+(1p(2)<10 );0+(5j$(2)" ");p(2) xd21,0;j$(3):#0;0,0+(1p(3)<100d)+(1p(3)<10 );0+(5j$(3)" ");p(3):21,19;j$(4):#0;0,19+(1p(4)<100d)+(1p(4)<10 );0+(5j$(4)" ");p(4):5:0: hallar sector y puntos Lc1=0sector=(6yt90Z)+(16yt89Y):180 aalfa=(c2/c1):grados=alfa*180/:sec=(grados/9 )+1+(1grados>81Q) cuad=(1xt88Xyt88X)+(2xt87Wyt88X)+(3xt87Wyt87W)+(4xt88Xyt87W) msec=1sector=(1(cuad=1cuad=4))+(11 (cuad=2cuad=3)):180 jsec=10 sector=6*(cuad=1cuad=2)+16*(cuad=3cuad=4):180 se=(sec/2)+1 ssector=se*(cuad=1)+(se+10 )*(cuad=3)+(12 -se)*(cuad=2)+(22-se)*(cuad=4) pj=v(sector): mover indicador lateral il=10 :7:0 Ґjo=223:23264Z+il,248:23264Z+il+1,248:5:23264Z+il,120x:23264Z+il+1,120x ܼ62280H:il=il+(2(62457=1jo=1)il<20)-(2(62456=1jo=2)il>0):210+(20(62454=1jo=8)) ,subrfuerza 1Efuerza=-1:xx=208:yy=168:xs=2:ys=2 68fuerza=fuerza+1:fuerza=10 fuerza=0 @p$=fuerza:95_ JV62280H:jo=223:3106+(30(62453=1jo=16)) Tp$=" ":95_:5 ^xt=(il/2*16+*16):yt=(fuerza*19+*19):xt<0yt<0yt>175mult=0:.02{# =,-10 :400 bar=(7yt168)+(175-ytyt>168):ab=(7yt7)+(ytyt<7):iz=(7xt7)+(xtxt<7) rc1=((87W-xt)*(xt87W)+(xt-88X)*(xt88X)):c2=((87W-yt)*(yt87W)+(yt-88X)*(yt>88X)):dis=((c1^2+c2^2)) u.02{# =,-10 vL1:xt,yt:ar,ar:xt,yt:-iz,ar:xt,yt:-iz,-ab:xt,yt:ab,-ab:xt,yt+(1ar>0):xt,yt-(1ab>0):xt+1,yt:xt-(1iz>0),yt:xt>4yt>4xt<171xt-(2iz2),yt+(2ar2):4,0:0,-4:-4,0:0,4:0 worden=1x$(m)=xt+yt xorden=1nulo=(x$(1)=x$(2)x$(1)" ")+(x$(2)=x$(3)x$(2)" ")+(x$(1)=x$(3)x$(1)=" ") ynulo |0:mult=0+(4dis>3dis6)+(5dis3)+(1dis>6dis<45-)+(1dis>502dis<81Q)+(3dis45-dis502)+(2dis81Qdis87W) &mult4pj=25:400  150 490:ORDEN=1p$=(" FUERA"mult=0)+(" "+(" "pj<10 )+pjmult0mult4mult5)+(" DIANA"mult4):15,23;p$;16,25-(1mult=3);("DOBLE"(mult=2mult=5));("TRIPLE"mult=3) mult=5mult=2  pausas y borrado p$=" ":5+(1orden=0);15,23;p$;16,23;p$;0;18,22;" ";p$;19,22;" ";p$: 1:18,22;"pulsa algo";19,22;("1-p."mod=1m=3orden=1);(" F-fin"m=3orden=1):0:jo=223:g$="":g$=:g$=""jo=0496  g$="F"500 4g$="1"mod=11000:496:g$="":   inicio m=1:nulo=0:x$(3,6):j$(4,3):o(4,100d):p(4):t(3):d(4):nj=0:orden=0:a$(300,):b$(300,):c$(300,):d$(300,) 0:5:1:0::p$="DARDOS":yy=0:xs=3:ys=4:90Z:p$=" ":yy=502:xs=1:ys=2:90Z 10 ,10 ;" OPCIONES:"::11 ;"[1] 301"::11 ;"[2] 501"::9 ;"[3] ENTRENAR"::7;"[4] INSTRUCCIONES":r:r=42000:515  %r<1r>4rɺr520 -:a=1*(r=1)+2*(r=2) -mod=1*(r2)+2*(r=3) L"Numero de jugadores?(1 a 4) ";nj:nj<1nj>4njɺnj510 &Wn=1nj:"iniciales jugador numero ";n;" ";j$(n):n:nj=1orden=1 0$mod=2nj>13000 5mod=2800  :Cn=1nj:p(n)=(301-a=1)+(501a=2):n D?nj>13000 :1,30:orden de salida N&tirada=0:empezar partida X 100d ]20:5:0:tirada=tirada+1 b0n=1nj:tirar una vez cada jugador lp$=j$(n):xs=2:ys=2:xx=196:yy=24:95_:yy=480:p$=("0"p(n)<100d)+("0"p(n)<10 )+p(n):95_ qpuntos=p(n):ptot=0 v!m=13:3 dardos {puntos40(puntos/2=(puntos/2)15,26+(1puntos/2<10 );1;puntos/2;16,25;1;"DOBLE" 200:d(n)=d(n)+(1mult=2mult=5):d(n)0pj=pj*(multmult<4)+25*(mult=4):puntos=puntos-pj nulo720 d(n)=0660 ;647+(480puntos=0mult=2):salirse .650+(42*puntos1):pasarse ptot=ptot+pj:9 +(1m=2)+(2m=3),29+(1pj<10 );pj:p$=("0"puntos<100d)+("0"puntos<10 )+puntos:xx=196:yy=480:95_ J13 ,28+(1ptot<100d)+(1ptot<10 );ptot o(n,tirada)=ptot 496:490 m +.1}L,40(:p(n)=puntos:100d n:605]  pasarse op$="T'AS PASAO":xx=10 :yy=150:xs=2:ys=2:95_:496:100d:682 vencedor 1:p$=("VENCEDOR"nj>1)+("SE ACABO"nj=1):ys=3:xs=2:yy=502:xx=26:95_:p$=j$(n):xx=64@:yy=104h:95_:0:200:496:"OTRA PARTIDA S/N >";r$:r$="s"r$="S"500  dardos superpuestos xs=2:ys=2:xx=36$:yy=502:p$="DARDOS":95_:yy=80P:xx=0:p$="SUPERPUESTOS":95_:yy=110n:p$="TIRADA NULA":95_:100d:100d:682  modalidad 2 % 100d *n=1nj 4Gp$=j$(n):xs=2:ys=2:xx=196:yy=24:95_ >!m=13:3 dardos H 200 \-492+(4m=3):490:m p100d:n:810* ver puntuaciones 0:7:0::i$=" ":1:"Tirada ";j$(1);i$;j$(2);i$;j$(3);i$;j$(4):0:h=1tirada:" ";(" "h<10 );h;:i=1nj:i$;:t$=("0"o(i,h)<100d)+("0"o(i,h)<10 )+o(i,h):(1o(i,h)0);t$;:i::h 1:0:5: instrucciones 0:0,8;"OPCIONES 1 y 2":g$=" El juego consiste en ir restan-do puntos hasta llegar a 0. Hay que conseguir un doble(fran-ja exterior), para empezar y terminar. Este ultimo doble ha de valer justo los puntos que tengamos en ese momento ( ej. si nos quedan 16puntos sera el 8 doble)" g$ 9 ,11 ;"OPCION 3":10 ,0;:g$=" Esta opcion permite hacer ti-radas sucesivas sin limite ni puntuacion. Aqui solo se infor-mara del turno de tiro y del nu-mero alcanzado. Esto permite hacer otros juegos llevando vo-sotros el control de las tiradas Ej. EL RELOJ:Consiste en reco-rrer del 1 al 20 la diana. DE 15 A DIANA:Consiste en hacer 3 de cada numero valiendo el doble como 2 y el triple 3." g$ M150:#0;1,3;"Pulsa algo para continuar":0: 10,11 ;2;6;" TECLADO "  :6;16,2;"1. TECLADO / INTERFACE II " 36;18,2;"2. JOYSTICK KEMPSTON" A$=  %491Ʀ5022070 *62473 ,(A$="2") 4.5,30:: orden de salida $q(nj):100d:6:0 n=1nj:xx=196:yy=24:xs=2:ys=2:p$=j$(n):95_:15,22;" TIRO AL ";16,22;" CENTRO ";17,22;"PARA ORDEN";18,22;"DE TIRADA" ֬200:6:490:dis=dis+100d*(mult=0):1;16,23;"Dist= ";dis;0;17,22;" ":492:q(n)=dis:n band=0:l=2 j=njl-1 }q(j-1)>q(j)f=q(j-1):f$=j$(j-1):q(j-1)=q(j):j$(j-1)=j$(j):q(j)=f:j$(j)=f$:band=1 j  bandband=0:3050 #5:0:ORDEN=1: #' #(variables #2 9000(# # b~`RR/@ ?? <{ ?Hbb?Hbb"Hbb?x bb`bbOA??@>t ?x<<?>x<< x<<???x <b~<<?_' <<?<?| ρ?x0~?~ ?p!A'D @0???@O?D ?/ a?!@ ?8  ? ??!@?s? ??``!@@g}Kͭ? ?@@?=ګ3???o? @@?3?/x} @x@@G?ZspppppppppPPPPppppppppppxppppppppppppp``pppppppp``ppppppppppppppppppp``pppppppppp``ppppppppppppppppp``pppppppppppp``ppppphhhhhhhpppppppppppPPpppppppppppphhhhhhhpppppppp``pPPp``pppppppppppppppppPPpppp```pppp```ppppPPpphhhhhhhpPPppppppppppppppppppPPpphhhhhhhpPPpppPppppppppppPpppPPppppppppppPpppPPppppppppppPPpppPphhhhhhhhhppppppppppppppppppppppphhhhhhhhhppppppppppppppppppppppphhhhhhhhh`ppp``pppppppppp``ppp`pppppppppp``ppp`pppppppppp`ppp``phhhhhhhhh``pppppppppppppppppp``ppppppppppp`ppppPPPppppPPPpppp`pphhhhhhhhhpppppppPPp``pPPpppppppphhhhhhhhhpppppppppp``pppppppppppppppppppppppPPppppppppppppPPpppphhhhhhhhhpppPPPppppppppppPPPpppphhhhhhhhhppppPPPppppppppPPPppppphhppppxxxppppppppp````pppppppppphhpxxpxxxpppppppppppppppppppppppphpxxpxxxxxxxxxxxxxxxxxxxxxxxxxpppppppppp![~#"[o<&)))K6\ >2[: [2 [: [2[> 2[~#"[2[:[= 2:[= :[G: [O: [ 2 [*[32[: [G: [2 [*[P2[: [G: [2[: [O:[<2[ :[<2[ :[`@ :\G:\G:[o:[g>Xg:\w:[G@gxgxo:[Go!xO F![F(//! T]pH#p>G(W((g >G 4#p>G((_ >O 4#p>G((W >W 4#p>O((O >g 4#p>G((G >_4