FUTBOL ?:"FOOTBALL MANAGER"'" Copyright K. J. Toms 1982":300, 7:0:7:0:0:0:0::"Dime tu nombre ";m$:m$>20:"Es demasiado largo(max 20 carac.)":200:9 9000(#:8900" b+p(p )=((p-1)/8+1) cr(x)=(*x+1) d e 2000 n x$="keep"x$="KEEP"800  x 4000 8000@ 8100 8700! 100d  261 324,88X,126~,26,120x,72H,206,2,480,480,24,60<,28,568,480,40(,24,24,30,58:,24,42*,36$,32 ,24,24,24,28,60<,24,28,8,24,24,60<,90Z,90Z,60<,36$,102f,0,0,0,0,0,0,3,3,24,26,126~,88X,30,18,115s,64@,12 ,12 ,24,60<,568,28,12 ,20,24,24,120x,92\,24,84T,36$,4,24,24,24,568,60<,24,568,8,0,0,0,0,0,0,192,192,24,24,61=,90Z,568,28,20,36$,24,24,188,90Z,28,568,40(,36$,12 ,12 ,60<,91[,152,62>,64@,192,480,480,60<,218,25,124|,2,3  $i=015*8-1  q:"a"+i,q  i   06;k(2),k(1);k$(k(3)):k(3)=(1.5@/k(3))+1:r3=(d(2)>k(2)+(d(4)0))-(d(2)k(2)+(d(4)0))-(d(2)10 ):k(2)=23-k(1) 7i=23 8?f(i,1)=10 +r(20):f(i,2)=r(21) 9Wf(i,1)+f(i,2)<25f(i,1)>f(1,1)-43128 :Aj=13:(f(i,2)=f(j,2))(ji)3128 ;j:i <i=13 =?g(i,1)=10 +r(10 ):g(i,2)=r(18) >Wg(i,1)+g(i,2)<24g(i,1)>f(1,1)-4317= ?_j=13:(g(i,2)=f(j,2))((g(i,2)=g(j,2))(ji))317= @j:i Baw;f(1,2),f(1,1);f$(1):i=23:aw;f(i,2),f(i,1);f$(1+2*(f(i,2)<10 )):i Cbi=13:ho;g(i,2),g(i,1);f$(2+2*(g(i,2)<10 )):i E$1;d(2),d(1);d$ F(ho;k(2),k(1);k$(1) T:oop=0:dri=r(3)*2-1:wm=1 Ue=1dri:wm1=wm:wm=(1.5@/wm)+1:6;d(2),d(1);d$;1;d(2),d(1)-1;d$:d(1)=d(1)-1:360h:e VXj=13:6;g(j,2),g(j,1);f$(wm1+2*(g(j,2)<10 ));ho;g(j,2),g(j,1);f$(5):j:j=23:6;f(j,2),f(j,1);f$(wm+2*(f(j,2)<10 ));aw;f(j,2),f(j,1);f$(5):j:6;f(1,2),f(1,1);f$(2) Weaw;f(1,2),f(1,1);f$(1):.15~,-40(:d(4)=(d(2)<8)-(d(2)>15)+(d(2)>12 d(2)<16)*(r(2)-2):d(3)=-2:350^:350^:350^:aw;f(1,2),f(1,1);f$(1);f(1,2),f(1,1);f$(5) X#oop1350^:344X Y(d(1)+d(2)<22)(d(2)<14)(d(2)>4)(d(1)<15)(d(1)>6)(d(1)=7d(2)=13 d(4)<0)s(2)=s(2)+1:290":347[ ZM0:0;7;1,10 ;"NO GOL!":.25~,-502 [ 200 ] ^px=d(1)+d(3):py=d(2)+d(4):des=(py,px):((py+px=24)(py+px=25)(py+px=26)(py+px=27))py>7py<14270 _px+py<22py<0py>21px>31oop=1:was;d(2),d(1);d$:d(2)=py:d(1)=px:358f ` des102fd(3)=(des=96`+ho)*2+(des=96`+aw)*-2:d(4)=(d(3)=-2)*(r(2)-2)+(d(3)=2)*(r(3)-2):was;d(2),d(1);d$;(des-96`);py,px;d$;py,px;f$(5*(py+px23)+(py+px=23)*(6+k(3)));py,px;f$(6):.15~,-30:.08}# =,-40(:(des-96`);py,px;f$(6);py,px;f$(5*(py+px23)+(py+px=23)*(6+k(3))):d(2)=py:d(1)=px:359g a\was;d(2),d(1);d$;1;py,px;d$:d(2)=py:d(1)=px:359g fg(px+py<22)(py0)(py21)(px0)(px31)1;py,px;d$:359g gwas=des-96`: h,6;f(1,2),f(1,1);f$(wm1);aw;f(1,2),f(1,1)-1;f$(wm):f(1,1)=f(1,1)-1:i=23:py=f(i,2)+1*(f(i,2)<10 )-1*(f(i,2)>9 ):px=f(i,1)-1:des=(py,px) ides=102f(py+px>24)6;f(i,2),f(i,1);f$(wm1+2*(f(i,2)<10 )):aw;py,px;f$(wm+2*(py<10 )):f(i,2)=py:f(i,1)=px:363k j6;f(i,2),f(i,1);f$(wm1+2*(f(i,2)<10 ));aw;f(i,2),f(i,1);f$(wm+2*(f(i,2)<10 )) ki mi=13:py=g(i,2)+1*(g(i,2)<10 )-1*(g(i,2)>9 ):px=g(i,1)-1:des=(py,px) ndes=102f(py+px>23)6;g(i,2),g(i,1);f$(wm+2*(g(i,2)<10 )):ho;py,px;f$(wm1+2*(py<10 )):g(i,2)=py:g(i,1)=px:368p o6;g(i,2),g(i,1);f$(wm+2*(g(i,2)<10 ));ho;g(i,2),g(i,1);f$(wm1+2*(g(i,2)<10 )) pi { g7:1:6:4:was=6:f$="":d$="":k$="":k(3)=1: _184,88X:16,-8:8,-16:-24,0:247,0:-175,175:183,64@:0,24:-480,480:0,-24:191,568:-24,0:-64@,64@:24,0:223,24:-96`,0:-115s,115s:96`,0 N136,135:16,-8:8,-16:-24,0 153,126~:480,-480:94^,84T:2,0:94^,85U:2,0:557,96`:40(,-40(,2*/5  1 Kf(1,2)=3+r(18):f(1,1)=6-r(6):d(1)=f(1,1)+1:d(2)=f(1,2):d(3)=1:d(4)=0:k(1)=20-r(2)-2*(f(1,2)<11 )+2*(f(1,2)>10 ):k(2)=k(1)-8 i=23 ?f(i,1)=21-r(20):f(i,2)=r(21) Vf(i,1)-f(i,2)>6f(i,1)7g(i,1)15)+(d(2)>12 d(2)<16)*(r(2)-2):d(3)=2:450:450:450:ho;f(1,2),f(1,1);f$(1);f(1,2),f(1,1);f$(5) #oop1450:444 (d(1)-d(2)>9 )(d(2)<14)(d(2)>4)(d(1)>16)(d(1)<25)(d(1)=24d(2)=13 d(4)<0)s(1)=s(1)+1:290":447 M0:0;7;1,10 ;"NO GOL!":.25~,-502  200  §px=d(1)+d(3):py=d(2)+d(4):des=(py,px):((px-py=7)(px-py=6)(px-py=5)(px-py=4))py>7py<14280 Çpx-py>9 py<0py>21px<0oop=1:was;d(2),d(1);d$:d(2)=py:d(1)=px:458 des102fd(3)=(des=96`+ho)*2+(des=96`+aw)*-2:d(4)=(d(3)=2)*(r(2)-2)+(d(3)=-2)*(r(3)-2):was;d(2),d(1);d$;(des-96`);py,px;d$;py,px;f$(5*(px-py8)+(px-py=8)*(6+k(3)));py,px;f$(6):.15~,-30:.08}# =,-40(:(des-96`);py,px;f$(6);py,px;f$(5*(px-py8)+(px-py=8)*(6+k(3))):d(2)=py:d(1)=px:459 \was;d(2),d(1);d$;1;py,px;d$:d(2)=py:d(1)=px:459 f(px-py>9 )(py0)(py21)(px0)(px31)1;py,px;d$:459 was=des-96`: ,6;f(1,2),f(1,1);f$(wm1);ho;f(1,2),f(1,1)+1;f$(wm):f(1,1)=f(1,1)+1:i=23:py=f(i,2)+1*(f(i,2)<10 )-1*(f(i,2)>9 ):px=f(i,1)+1:des=(py,px) des=102f(px-py<7)6;f(i,2),f(i,1);f$(wm1+2*(f(i,2)<10 )):ho;py,px;f$(wm+2*(py<10 )):f(i,2)=py:f(i,1)=px:463 Γ6;f(i,2),f(i,1);f$(wm1+2*(f(i,2)<10 ));ho;f(i,2),f(i,1);f$(wm+2*(f(i,2)<10 )) i ъi=13:py=g(i,2)+1*(g(i,2)<10 )-1*(g(i,2)>9 ):px=g(i,1)+1:des=(py,px) des=102f(px-py<8)6;g(i,2),g(i,1);f$(wm+2*(g(i,2)<10 )):aw;py,px;f$(wm1+2*(py<10 )):g(i,2)=py:g(i,1)=px:468 ӓ6;g(i,2),g(i,1);f$(wm+2*(g(i,2)<10 ));aw;g(i,2),g(i,1);f$(wm1+2*(g(i,2)<10 )) i   "futbol"100d %@"Quieres jugar otra vez?"'i$:i$"s"i$"S"i$"si"i$"SI" * 100d ,,"Tienes ";m;" y debes ";l  5:'1;1;"No tienes dinero suficiente!"  A,,a$(7);t(t1-lt);13 ;"Partido de liga num.=";ml  X1180:.2~L,0:1;0;6;"Pulsa ENTER para seguir";y$ Y$="H"y$="h":1030  xz<1xz=1 xz>20xz=20   8"p = jug. escogido., i =lesionado"  8M1;0;6;"O escribe 99 para seguir":.2~L,0 < B[0;7;t$(x(1));12 ;s(1),t$(x(2));28;s(2) D L8;a$(6);d1 N ` p=0 b p1=0 er=124 jp(r)=2p=p+1 op(r)>0p1=p1+1 tr v"JUG. ESCOGIDOS=";p'' y ~"q=1100d*r(10 ) q   xz=a(i)  1040  a(i)=xz  1180:i$ i$="h"i$="H":1170 <q=1̱i$:i$(q)<480ůi$(q)>5791170 q  q=("0"+i$)  21,24;"(h=copy)"   ,"Menu ","Vender o listar "," tus jugadores"," a",,,"Imprimir puntos,etc";" - s",,,"Obtener un prestamo";" - l",,,"Pagar el prestamo";" - p"''"Cambiar tu"'" nivel de destreza";" - level"''"Cambiar equipo o"'" de jug.";" - change",,,"Grabar juego"," - keep",,,  10808 1180:x$ x$="h"x$="H":2180 'x$="a"x$="A"2400` :2000 'x$="l"x$="L"2800 :2000 'x$="s"x$="S"3000 :2000 'x$="p"x$="P"2900T :2000 =x$="change"x$="CHANGE"9400$:9500%:2000 /x$="level"x$="LEVEL"3200 :2000 42000+299+*(x$="keep"x$="KEEP"x$="99")  ` 1050 2540 n=124 p(n)=02460 pl=n 2550 n 1120` )"INTROD. EL NO. DE JUG. A VENDER" 10808 1170 i=q i=99c2539 "i<1i>242473 p(i)=02473 i=99c2539  p(i)32484 ("Esta lesionado- nadie le quiere!" 1030 2539 *o=(((*5+8)*v(i))/10 ) rt$(r(64@));" han ofrecido ";o," por ";p$(i)''"esta valorado ";v(i):1180:"aceptas?",i$ i$="h"i$="H"::2485 +i$="si"i$="SI"i$="S"i$="s"2500 2535 p(i)=0 m=m+o  p$(i);" ha sido vendido " 1030 2539 !r(3)=12539 p(i)=3  ;1;6;" NOMBRE NUM. DE DESTREZA"  ٨p(pl)-1;1;r$(((pl-1)/8+1));0;p$(pl);" ";pl;15;r(pl);20;y(pl);24;"`";v(pl);31;q$(p(pl)+(p(pl)=0))   1000 )'"Int. la cant. para el prestamo" 1170 i=q  ki+l>250000t$*d2"Perdon, tu credito es solo de-";250000t$*d2:1030:2800 m=m+i:l=l+i  1000  1030  T:1000 YA'"Escribe la cant. que quieres pagar de tu prestamo" ^ 1170 ci=q e h4i>l"NO DEBES TANTO!":1030:2900T m)i>m1010:1030:2900T rl=l-i:m=m-i w 1000 | 1030   Ft$(t1),"Colores = ";("Negro"(tco=0))+("Blanco"(tco=7)) '"Manager : ";m$' s5=03010 s1=(s/s5)*2 s1>100ds1=100d ,'"Rango del manager(Max 100)= ";s1 T'"Nivel ";l1,1;l1;9 ;l$(l1);0;" "''"Temporadas ";s5 1000 a$(2);a(2) 1020 1030   g"Tu actual nivel de destreza es:"'"Nivel ";l1,1;l1;9 ;l$(l1):''"Tus opciones son:"'' i=17 i,1;i;9 ;l$(i) i ."Introduce el numero del nivel ":1170 8q<1q>7:"1 a 7 ":300,:3200 al1=q::"Tu nuevo nivel de destreza es:"'"Nivel ";l1,1;l1;9 ;l$(l1):1030  ma=ma+1  lc=2 $ma=3ma=0:lc=1 fa=1lc=2  4100    lc14120  c=c+1 'v1=((8-c)*8+r(8)) v1=t14118 lc24140, ml=ml+1  v1=ml+lt "v1=t1v1=lt+16 ,i=15 6]lc=1u(i)=(r(16)+l1+((t1-1)/16)-((v1-1)/16+1)) 83lc=2u(i)=(r(14)+l1+(z(v1-lt)/ml)) ;xz=u(i):1040:u(i)=xz @i ^'lc=14500:h=r(2) h/lc=2h=((1.5@/h1)+1):h1=h mv=((1.5@/h)+1) rlc=14600 wlc=24700\ | x(h)=t1 ~ x(v)=v1 s(1)=0 s(2)=0 >lc=1"Partido de Copa del Rey. Jornada";c$ 3lc=2"Partido de liga ";a$(6);d1  4240  4245 P'6;t$(x(1));" v ";t$(x(2)),,,a$(5+lc);x1;20;x2   1030  6000p  5000 "Recaudacion:";x9;" ` " m=m+x9  1030 lc=24340 s(h)s(v)4340  "Partido de vuelta"  1030  h=((1.5@/h)+1) v=((1.5@/v)+1)  4210r lc=15200P lc=27000X Cs(h)>s(v)a(2)=a(2)+((20-a(2))/2) -s(h)11 6300 BA"Escribe el num. del jug. que se"'"va a unir al equipo" G 10808 H 1170 Ii=q Ji=99c6112 L@i<1i>24"ESE JUGADOR NO EXISTE!":6216H Q8p(i)1"JUGADOR NO DISPONIBLE!":6216H Vp(i)=2 ` 6142 >"Escribe el nombre del jugador "'"que sale del equipo" 1170 i=q ?i<1i>24"JUGADOR NO EXISTENTE!":6310 6p(i)2"NO ESTA EN EL EQUIPO":6310 p(i)=1  6142 c di=15 ea(i)=a(i)*(i=2) fi ii=124 np(i)26550 x"q=((i-1)/8)+3 a(q)=a(q)+r(i) a(1)=a(1)+y(i) i #a(1)=(a(1)/11 ) #10 ;t$(t1);22;t$(v1) i=15  1160 %a$(i);13 ;a(i);25;u(i) i  Xb(t1-lt)=b(t1-lt)+s(h) ]c(t1-lt)=c(t1-lt)+s(v) bb(v1-lt)=b(v1-lt)+s(v) gc(v1-lt)=c(v1-lt)+s(h) lMs(h)=s(v)z(t1-lt)=z(t1-lt)+1:z(v1-lt)=z(v1-lt)+1:7099 vhs(h)r3z(r)=z(r)+3 r2177346 2i=116 4 u$(i)=(i) 5i 6pass=1 7change=0 8i=116-pass :q=u$(i):q1=u$(i+1) >z(q)>z(q1)7800x @z(q)b(q1)-c(q1)7800x D#b(q)-c(q)b(q1)7800x F 7770Z ZGq2=(u$(i)):u$(i)=u$(i+1):u$(i+1)=(q2):change=1 xi y'pass=pass+1:change77357 z 7805} { } ~67;1;1;"EQUIPO"," F A PTS" i=116  q1=u$(i) ;t$(q1+lt);18;b(q1);22;c(q1);28;z(q1)  t(q1)=i i  1020  1030  @ T w=0 Vi=124 X%p(i)>0w=w+r(i)*100d*d2 [i `"****FACTURAS SEMANALES****"''"Salario semanal(`) =";w'"Alquiler del campo(`) = ";x'"Interes del prestamo(`)= ";(l/100d) dm=m-w-x-(l/100d) hHi=m-l-xp:"Balance semanal = ";0+(i<0)*2;"";i mxp=m-l rm08060| sl=l-m t m=0 x:"SE AUMENTA EL PRESTAMO PARA PAGAR LAS FACTURAS" |l>250000t$*d2"++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++DEBES MAS DE ";250000t$*D2'"PTS++++HAS SIDO DESPEDIDO POR EL+++++++++++++++++++++++++++CLUB!++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++":1030:  1030  $ml<15fa=084993!  $"****FIN DE TEMPORADA****"  1030  7805}  r1=17-t(t1-lt) s=s+r1+c*2*d1 m=m+r1*5000*d2 @"Beneficios de la liga =",," ";r1*5000*d2 &s5=s5+1 +i=116 0 85004! 3 8600! 6i : 8800`" D#"****Nueva temporada****" N 1100L X 1030 !3 !4t(i)>38579! !Cd1=18570z! !HPt$(lt+i);" ascienden de division*****************************************" !Rx$=t$(lt-t(i)) !\t$(lt-t(i))=t$(lt+i) !f t$(lt+i)=x$ !hlt+i=t1t1=(lt-t(i)) !p 8579! !zZt(i)=1t$(lt+i);" son los campeones de liga*********************************" ! !d1=48699! !t(i)<148699! !Pt$(lt+i);" descienden de division++++++++++++++++++++++++++++++++++++++++" !"x$=t$(d1*16+17-t(i)) !(t$(d1*16+17-t(i))=t$(lt+i) ! t$(lt+i)=x$ !'lt+i=t1t1=d1*16+17-t(i) ! !ml=08780L" !r1=r(24) "p(r1)>08700! " ")"****Mercado de fichajes****"'' "p1>15"No puedes comprar mas jugadores porque tienes ya 16,que es lo maximo permitido segun las reglas de la F.I.F.A.":8778J" " 1000 " 2540 "pl=r1 " 2550 "$&'"Escribe tu oferta"'' "& 10808 ") 1170 "*n=q ".n=99c8780L" "3mn87608" "4 1010 "5 1030 "6 8705" "8r=(r(10 )*n)/v(r1) "9 ":r58770B" ">8785Q":1030 "@ 8705" "B#p$(r1);" se ha unido a tu equipo" "Ev(r1)=r(r1)*5000*d2 "Fm=m-n "Gp(r1)=1 "J 1030 "L "Qv(r1)=(v(r1)+v(r1)/5) "R'"TU OFERTA ES RECHAZADA" "T "`'d1=(((t1-1)/16)+1) "a fa=0 "blt=(d1-1)*16 "c lc=0 "d h=1 "ed2=5-d1 "f ma=1 "g ml=0 "h y=0 "i z=0 "ji=116 "kz(i)=0 "lt(i)=0 "mb(i)=0 "nc(i)=0 "ri "s v=0 "ti=124 "x#v(i)=(5000*d2*r(5)) "{r(i)=(v(i)/(5000*d2)) "~y(i)=r(20) "i "z(17)=-1 "a(2)=10 "g=5000*d2 " c=0 "x=500*d2 " h1=2 " " d1=0 "d1=d1+1 "d1>48900" " "/1;"ELIGE EQUIPO PARA ENTRENAR" ""NUMERO","NOMBRE" "lt=(d1-1)*16 "i=lt+1lt+16 " i,t$(i) "i "b0;6;"Escribe el numero del equipo quequieres entrenar(o 99 para mas informacion)" " 1170 "t1=q "t1=99c8902" "*t1lt+168935" " d1=4 "y$=t$(64@) "t$(64@)=t$(t1) " t$(t1)=y$ " t1=64@ " "4i=17:i,1;i;9 ;l$(i):i #"Escribe tu nivel (1-7)" # 1170 #l1=q ##l1<1l1>78955" #:"Introduce el color de tu equipo (0=Negro o 7=Blanco)":1170:tco=q::tco0tco7"0 o 7 ":200:8966# # i=112 #r=r(24) #p(r)>08975# #p(r)=2 #i=12 p(r)=1 #i # 8800`" #' #( 9030F# #-i=124 #2p$(i) #<i #F"Juanito","Dani","Solsona","Gordillo","Bonet","Gallego","Agustin","Metgod","Sarabia","Quini","Stielike","Maradona","Pineda","L.Ufarte","Camacho","Carrasco","Pedraza","Senyor","Alexanco","Amarilla","Fraile","Salguero","Schuster","Argote" #a$(1)="Energia" #a$(2)="Animo" #a$(3)="Defensa" #a$(4)="Cent.Campo" #a$(5)="Delantera" #a$(6)="Division " #a$(7)="Pos.Liga " #l$(1)="Principiante":l$(2)="Novato":l$(3)="Mediano":l$(4)="Bueno":l$(5)="Experto":l$(6)="Super Experto":l$(7)="Genio" # 9230$ #i=164@ #t$(i) $i $"R.Madrid","Zaragoza","R.Sociedad","Barcelona","A.Madrid","A.Bilbao","Celta","Huelva","Valencia","Santander","Osasuna","Las Palmas","Gijon","Sevilla","Espanyol","R.Betis" $"Linares","Getafe","Jerez","Castilla","Malaga","Cadiz","Castellon","Cordoba","Hercules","Celta","Salamanca","Corunya","Sabadell","Manresa","Soria","Cuenca" $""Orihuela","Murcia","Tarrasa","Zamora","Alaves","Lugo","Cartagena","Sagunto","Mallorca","Orense","Leon","Oviedo","Aragones","Numancia","Benidorm","Almeria" $,"Gandia","Pamplona","Tarragona","Villalba","Menorca","Alicante","Mahones","Talavera","Vich","Astorga","Sanabria","Avila","Palencia","Merida","Aranjuez","Teruel" $6q$(1)=" " $7q$(2)="p" $8q$(3)="i" $9r$(1)="D" $:r$(2)="M" $;r$(3)="A" $S $ $7"Quieres cambiar algun nombre de equipo (s/n)?",i$ $-i$"s"i$"S"i$"si"i$"SI"9499% $ d3=0 $d3=d3+1 $d3>49415$ $:a$(6);d3 $2"NUMERO","NOMBRE":low=(d3-1)*16 $(i=low+1low+16:i,t$(i):i $l"Escribe nu. de equipo para cambiar o 99 para mas informa- cion " $$1170:q=99c9420$ $Gqlow+16"EQUIPO FUERA DE RANGO":9450$ $#i=q:"Tu actual equipo es ";t$(i) $2"Escribe el nombre del nuevo equipo",i$ $i$="h"i$="H":9465$ $i$=09465$ $#i$(1)169476% %Mi$(2)<0ůi$(2)>4"COLOR INVALIDO":9465$ %Qi$(3)<65Aůi$(3)>122z"EQUIPO INVALIDO":9465$ %Si$>12 "NOMBRE DE EQUIPO DEMASIADO LARGO- max. 10 carac.-":9465$ % 9478% %Qi$(1)<65Aůi$(1)>122z"EQUIPO INVALIDO":9465$ %Si$>10 "NOMBRE DE EQUIPO DEMASIADO LARGO- max. 10 carac.-":9465$ %-t$(i)=i$:"Nuevo nombre del equipo: ";t$(i) %@"Algun cambio mas (s/n)?",i$:i$="h"i$="H":9479% %-i$="s"i$="S"i$="si"i$="SI"9430$ % % %!@"Quieres cambiar el nombre de algun jugador (s/n)?",i$ %&-i$"s"i$"S"i$"si"i$"SI"9599% %+ d3=0 %,d3=d3+1 %0d3>39515+% %5:a$(d3+2) %:1"NUMERO","NOMBRE":low=(d3-1)*8 %?'i=low+1low+8:i,p$(i):i %DV6;1;"Escribe nu. del jugador para cambiar o 99 para mayor eleccion" %I$1170:q=99c9516,% %NKqlow+8"NU. DE JUG. FUERA DE RANGO":9545I% %S%i=q:"El actual jugador es: ";p$(i) %XP"Escribe el nombre del nuevo jugador",i$:i$="h"i$="H":9560X% %Yi$=09560X% %]\i$(1)<65Aůi$(1)>122z"NOMBRE DE JUGADOR INVALIDO":9560X% %bTi$>8"NOMBRE DE JUGADOR DEMASIADO LARGO-max. 8 carac.":9560X% %g!p$(i)=i$:"Nuevo nombre ";p$(i) %l@"Algun cambio mas (s/n)?";i$:i$="h"i$="H":9580l% %q-i$="s"i$="S"i$="si"i$="SI"95255% % & "FUTBOL" & 0 -#  ##  ae  uPrincipiante Novato Mediano Bueno Experto Super Experto Genio  XSSJuanito Dani Solsona GordilloBonet Gallego Agustin Metgod Sarabia Quini StielikeMaradonaPineda L.UfarteCamacho CarrascoPedraza Senyor AlexancoAmarillaFraile SalgueroSchusterArgote {@ R.Madrid Zaragoza R.SociedadBarcelona A.Madrid A.Bilbao Celta Huelva Valencia Santander Osasuna Las Palmas Linares Zamora Getafe R.Betis Sevilla Espanyol Jerez Castilla Malaga Cadiz Castello S D Energia Animo Defensa Cent.CampDelanteraDivision Pos.Liga  {{{lmCPs0 @c%hyzvgcx3 p ! ormas hang w C2X99I99YMfutbol d傑?:"FOOTBALL MANAGER"'" Copyright K. J. Toms 1982":300, 7:0:7:0:0:0:0::"Dime tu nombre ";m$:m$>20:"Es demasiado largo(max 20 carac.)":200:9 9000(#:8900" b+p(p)=((p-1)/8+1) cr(x)=(*x+1) d e 2000 n x$="keep"x$="KEEP"800  x 4000 8000@ 8100 8700! 100d  261 324,88X,126~,26,120x,72H,206,2,480,480,24,60<,28,568,480,40(,24,24,30,58:,24,42*,36$,32 ,24,24,24,28,60<,24,28,8,24,24,60<,90Z,90Z,60<,36$,102f,0,0,0,0,0,0,3,3,24,26,126~,88X,30,18,115s,64@,12 ,12 ,24,60<,568,28,12 ,20,24,24,120x,92\,24,84T,36$,4,24,24,24,568,60<,24,568,8,0,0,0,0,0,0,192,192,24,24,61=,90Z,568,28,20,36$,24,24,188,90Z,28,568,40(,36$,12 ,12 ,60<,91[,152,62>,64@,192,480,480,60<,218,25,124|,2,3  $i=015*8-1  q:"a"+i,q  i   06;k(2),k(1);k$(k(3)):k(3)=(1.5@/k(3))+1:r3=(d(2)>k(2)+(d(4)0))-(d(2)k(2)+(d(4)0))-(d(2)10 ):k(2)=23-k(1) 7i=23 8?f(i,1)=10 +r(20):f(i,2)=r(21) 9Wf(i,1)+f(i,2)<25f(i,1)>f(1,1)-43128 :Aj=13:(f(i,2)=f(j,2))(ji)3128 ;j:i <i=13 =?g(i,1)=10 +r(10 ):g(i,2)=r(18) >Wg(i,1)+g(i,2)<24g(i,1)>f(1,1)-4317= ?_j=13:(g(i,2)=f(j,2))((g(i,2)=g(j,2))(ji))317= @j:i Baw;f(1,2),f(1,1);f$(1):i=23:aw;f(i,2),f(i,1);f$(1+2*(f(i,2)<10 )):i Cbi=13:ho;g(i,2),g(i,1);f$(2+2*(g(i,2)<10 )):i E$1;d(2),d(1);d$ F(ho;k(2),k(1);k$(1) T:oop=0:dri=r(3)*2-1:wm=1 Ue=1dri:wm1=wm:wm=(1.5@/wm)+1:6;d(2),d(1);d$;1;d(2),d(1)-1;d$:d(1)=d(1)-1:360h:e VXj=13:6;g(j,2),g(j,1);f$(wm1+2*(g(j,2)<10 ));ho;g(j,2),g(j,1);f$(5):j:j=23:6;f(j,2),f(j,1);f$(wm+2*(f(j,2)<10 ));aw;f(j,2),f(j,1);f$(5):j:6;f(1,2),f(1,1);f$(2) Weaw;f(1,2),f(1,1);f$(1):.15~,-40(:d(4)=(d(2)<8)-(d(2)>15)+(d(2)>12 d(2)<16)*(r(2)-2):d(3)=-2:350^:350^:350^:aw;f(1,2),f(1,1);f$(1);f(1,2),f(1,1);f$(5) X#oop1350^:344X Y(d(1)+d(2)<22)(d(2)<14)(d(2)>4)(d(1)<15)(d(1)>6)(d(1)=7d(2)=13 d(4)<0)s(2)=s(2)+1:290":347[ ZM0:0;7;1,10 ;"NO GOL!":.25~,-502 [ 200 ] ^px=d(1)+d(3):py=d(2)+d(4):des=(py,px):((py+px=24)(py+px=25)(py+px=26)(py+px=27))py>7py<14270 _px+py<22py<0py>21px>31oop=1:was;d(2),d(1);d$:d(2)=py:d(1)=px:358f ` des102fd(3)=(des=96`+ho)*2+(des=96`+aw)*-2:d(4)=(d(3)=-2)*(r(2)-2)+(d(3)=2)*(r(3)-2):was;d(2),d(1);d$;(des-96`);py,px;d$;py,px;f$(5*(py+px23)+(py+px=23)*(6+k(3)));py,px;f$(6):.15~,-30:.08}# =,-40(:(des-96`);py,px;f$(6);py,px;f$(5*(py+px23)+(py+px=23)*(6+k(3))):d(2)=py:d(1)=px:359g a\was;d(2),d(1);d$;1;py,px;d$:d(2)=py:d(1)=px:359g fg(px+py<22)(py0)(py21)(px0)(px31)1;py,px;d$:359g gwas=des-96`: h,6;f(1,2),f(1,1);f$(wm1);aw;f(1,2),f(1,1)-1;f$(wm):f(1,1)=f(1,1)-1:i=23:py=f(i,2)+1*(f(i,2)<10 )-1*(f(i,2)>9 ):px=f(i,1)-1:des=(py,px) ides=102f(py+px>24)6;f(i,2),f(i,1);f$(wm1+2*(f(i,2)<10 )):aw;py,px;f$(wm+2*(py<10 )):f(i,2)=py:f(i,1)=px:363k j6;f(i,2),f(i,1);f$(wm1+2*(f(i,2)<10 ));aw;f(i,2),f(i,1);f$(wm+2*(f(i,2)<10 )) ki mi=13:py=g(i,2)+1*(g(i,2)<10 )-1*(g(i,2)>9 ):px=g(i,1)-1:des=(py,px) ndes=102f(py+px>23)6;g(i,2),g(i,1);f$(wm+2*(g(i,2)<10 )):ho;py,px;f$(wm1+2*(py<10 )):g(i,2)=py:g(i,1)=px:368p o6;g(i,2),g(i,1);f$(wm+2*(g(i,2)<10 ));ho;g(i,2),g(i,1);f$(wm1+2*(g(i,2)<10 )) pi { g7:1:6:4:was=6:f$="":d$="":k$="":k(3)=1: _184,88X:16,-8:8,-16:-24,0:247,0:-175,175:183,64@:0,24:-480,480:0,-24:191,568:-24,0:-64@,64@:24,0:223,24:-96`,0:-115s,115s:96`,0 N136,135:16,-8:8,-16:-24,0 153,126~:480,-480:94^,84T:2,0:94^,85U:2,0:557,96`:40(,-40(,2*/5  1 Kf(1,2)=3+r(18):f(1,1)=6-r(6):d(1)=f(1,1)+1:d(2)=f(1,2):d(3)=1:d(4)=0:k(1)=20-r(2)-2*(f(1,2)<11 )+2*(f(1,2)>10 ):k(2)=k(1)-8 i=23 ?f(i,1)=21-r(20):f(i,2)=r(21) Vf(i,1)-f(i,2)>6f(i,1)7g(i,1)15)+(d(2)>12 d(2)<16)*(r(2)-2):d(3)=2:450:450:450:ho;f(1,2),f(1,1);f$(1);f(1,2),f(1,1);f$(5) #oop1450:444 (d(1)-d(2)>9 )(d(2)<14)(d(2)>4)(d(1)>16)(d(1)<25)(d(1)=24d(2)=13 d(4)<0)s(1)=s(1)+1:290":447 M0:0;7;1,10 ;"NO GOL!":.25~,-502  200  §px=d(1)+d(3):py=d(2)+d(4):des=(py,px):((px-py=7)(px-py=6)(px-py=5)(px-py=4))py>7py<14280 Çpx-py>9 py<0py>21px<0oop=1:was;d(2),d(1);d$:d(2)=py:d(1)=px:458 des102fd(3)=(des=96`+ho)*2+(des=96`+aw)*-2:d(4)=(d(3)=2)*(r(2)-2)+(d(3)=-2)*(r(3)-2):was;d(2),d(1);d$;(des-96`);py,px;d$;py,px;f$(5*(px-py8)+(px-py=8)*(6+k(3)));py,px;f$(6):.15~,-30:.08}# =,-40(:(des-96`);py,px;f$(6);py,px;f$(5*(px-py8)+(px-py=8)*(6+k(3))):d(2)=py:d(1)=px:459 \was;d(2),d(1);d$;1;py,px;d$:d(2)=py:d(1)=px:459 f(px-py>9 )(py0)(py21)(px0)(px31)1;py,px;d$:459 was=des-96`: ,6;f(1,2),f(1,1);f$(wm1);ho;f(1,2),f(1,1)+1;f$(wm):f(1,1)=f(1,1)+1:i=23:py=f(i,2)+1*(f(i,2)<10 )-1*(f(i,2)>9 ):px=f(i,1)+1:des=(py,px) des=102f(px-py<7)6;f(i,2),f(i,1);f$(wm1+2*(f(i,2)<10 )):ho;py,px;f$(wm+2*(py<10 )):f(i,2)=py:f(i,1)=px:463 Γ6;f(i,2),f(i,1);f$(wm1+2*(f(i,2)<10 ));ho;f(i,2),f(i,1);f$(wm+2*(f(i,2)<10 )) i ъi=13:py=g(i,2)+1*(g(i,2)<10 )-1*(g(i,2)>9 ):px=g(i,1)+1:des=(py,px) des=102f(px-py<8)6;g(i,2),g(i,1);f$(wm+2*(g(i,2)<10 )):aw;py,px;f$(wm1+2*(py<10 )):g(i,2)=py:g(i,1)=px:468 ӓ6;g(i,2),g(i,1);f$(wm+2*(g(i,2)<10 ));aw;g(i,2),g(i,1);f$(wm1+2*(g(i,2)<10 )) i   "futbol"100d %@"Quieres jugar otra vez?"'i$:i$"s"i$"S"i$"si"i$"SI" * 100d ,,"Tienes ";m;" y debes ";l  5:'1;1;"No tienes dinero suficiente!"  A,,a$(7);t(t1-lt);13 ;"Partido de liga num.=";ml  X1180:.2~L,0:1;0;6;"Pulsa ENTER para seguir";y$ Y$="H"y$="h":1030  xz<1xz=1 xz>20xz=20   8"p = jug. escogido., i =lesionado"  8M1;0;6;"O escribe 99 para seguir":.2~L,0 < B[0;7;t$(x(1));12 ;s(1),t$(x(2));28;s(2) D L8;a$(6);d1 N ` p=0 b p1=0 er=124 jp(r)=2p=p+1 op(r)>0p1=p1+1 tr v"JUG. ESCOGIDOS=";p'' y ~"q=1100d*r(10 ) q   xz=a(i)  1040  a(i)=xz  1180:i$ i$="h"i$="H":1170 <q=1̱i$:i$(q)<480ůi$(q)>5791170 q  q=("0"+i$)  21,24;"(h=copy)"   ,"Menu ","Vender o listar "," tus jugadores"," a",,,"Imprimir puntos,etc";" - s",,,"Obtener un prestamo";" - l",,,"Pagar el prestamo";" - p"''"Cambiar tu"'" nivel de destreza";" - level"''"Cambiar equipo o"'" de jug.";" - change",,,"Grabar juego"," - keep",,,  10808 1180:x$ x$="h"x$="H":2180 'x$="a"x$="A"2400` :2000 'x$="l"x$="L"2800 :2000 'x$="s"x$="S"3000 :2000 'x$="p"x$="P"2900T :2000 =x$="change"x$="CHANGE"9400$:9500%:2000 /x$="level"x$="LEVEL"3200 :2000 42000+299+*(x$="keep"x$="KEEP"x$="99")  ` 1050 2540 n=124 p(n)=02460 pl=n 2550 n 1120` )"INTROD. EL NO. DE JUG. A VENDER" 10808 1170 i=q i=99c2539 "i<1i>242473 p(i)=02473 i=99c2539  p(i)32484 ("Esta lesionado- nadie le quiere!" 1030 2539 *o=(((*5+8)*v(i))/10 ) rt$(r(64@));" han ofrecido ";o," por ";p$(i)''"esta valorado ";v(i):1180:"aceptas?",i$ i$="h"i$="H"::2485 +i$="si"i$="SI"i$="S"i$="s"2500 2535 p(i)=0 m=m+o  p$(i);" ha sido vendido " 1030 2539 !r(3)=12539 p(i)=3  ;1;6;" NOMBRE NUM. DE DESTREZA"  ٨p(pl)-1;1;r$(((pl-1)/8+1));0;p$(pl);" ";pl;15;r(pl);20;y(pl);24;"`";v(pl);31;q$(p(pl)+(p(pl)=0))   1000 )'"Int. la cant. para el prestamo" 1170 i=q  ki+l>250000t$*d2"Perdon, tu credito es solo de-";250000t$*d2:1030:2800 m=m+i:l=l+i  1000  1030  T:1000 YA'"Escribe la cant. que quieres pagar de tu prestamo" ^ 1170 ci=q e h4i>l"NO DEBES TANTO!":1030:2900T m)i>m1010:1030:2900T rl=l-i:m=m-i w 1000 | 1030   Ft$(t1),"Colores = ";("Negro"(tco=0))+("Blanco"(tco=7)) '"Manager : ";m$' s5=03010 s1=(s/s5)*2 s1>100ds1=100d ,'"Rango del manager(Max 100)= ";s1 T'"Nivel ";l1,1;l1;9 ;l$(l1);0;" "''"Temporadas ";s5 1000 a$(2);a(2) 1020 1030   g"Tu actual nivel de destreza es:"'"Nivel ";l1,1;l1;9 ;l$(l1):''"Tus opciones son:"'' i=17 i,1;i;9 ;l$(i) i ."Introduce el numero del nivel ":1170 8q<1q>7:"1 a 7 ":300,:3200 al1=q::"Tu nuevo nivel de destreza es:"'"Nivel ";l1,1;l1;9 ;l$(l1):1030  ma=ma+1  lc=2 $ma=3ma=0:lc=1 fa=1lc=2  4100    lc14120  c=c+1 'v1=((8-c)*8+r(8)) v1=t14118 lc24140, ml=ml+1  v1=ml+lt "v1=t1v1=lt+16 ,i=15 6]lc=1u(i)=(r(16)+l1+((t1-1)/16)-((v1-1)/16+1)) 83lc=2u(i)=(r(14)+l1+(z(v1-lt)/ml)) ;xz=u(i):1040:u(i)=xz @i ^'lc=14500:h=r(2) h/lc=2h=((1.5@/h1)+1):h1=h mv=((1.5@/h)+1) rlc=14600 wlc=24700\ | x(h)=t1 ~ x(v)=v1 s(1)=0 s(2)=0 >lc=1"Partido de Copa del Rey. Jornada";c$ 3lc=2"Partido de liga ";a$(6);d1  4240  4245 P'6;t$(x(1));" v ";t$(x(2)),,,a$(5+lc);x1;20;x2   1030  6000p  5000 "Recaudacion:";x9;" ` " m=m+x9  1030 lc=24340 s(h)s(v)4340  "Partido de vuelta"  1030  h=((1.5@/h)+1) v=((1.5@/v)+1)  4210r lc=15200P lc=27000X Cs(h)>s(v)a(2)=a(2)+((20-a(2))/2) -s(h)11 6300 BA"Escribe el num. del jug. que se"'"va a unir al equipo" G 10808 H 1170 Ii=q Ji=99c6112 L@i<1i>24"ESE JUGADOR NO EXISTE!":6216H Q8p(i)1"JUGADOR NO DISPONIBLE!":6216H Vp(i)=2 ` 6142 >"Escribe el nombre del jugador "'"que sale del equipo" 1170 i=q ?i<1i>24"JUGADOR NO EXISTENTE!":6310 6p(i)2"NO ESTA EN EL EQUIPO":6310 p(i)=1  6142 c di=15 ea(i)=a(i)*(i=2) fi ii=124 np(i)26550 x"q=((i-1)/8)+3 a(q)=a(q)+r(i) a(1)=a(1)+y(i) i #a(1)=(a(1)/11 ) #10 ;t$(t1);22;t$(v1) i=15  1160 %a$(i);13 ;a(i);25;u(i) i  Xb(t1-lt)=b(t1-lt)+s(h) ]c(t1-lt)=c(t1-lt)+s(v) bb(v1-lt)=b(v1-lt)+s(v) gc(v1-lt)=c(v1-lt)+s(h) lMs(h)=s(v)z(t1-lt)=z(t1-lt)+1:z(v1-lt)=z(v1-lt)+1:7099 vhs(h)r3z(r)=z(r)+3 r2177346 2i=116 4 u$(i)=(i) 5i 6pass=1 7change=0 8i=116-pass :q=u$(i):q1=u$(i+1) >z(q)>z(q1)7800x @z(q)b(q1)-c(q1)7800x D#b(q)-c(q)b(q1)7800x F 7770Z ZGq2=(u$(i)):u$(i)=u$(i+1):u$(i+1)=(q2):change=1 xi y'pass=pass+1:change77357 z 7805} { } ~67;1;1;"EQUIPO"," F A PTS" i=116  q1=u$(i) ;t$(q1+lt);18;b(q1);22;c(q1);28;z(q1)  t(q1)=i i  1020  1030  @ T w=0 Vi=124 X%p(i)>0w=w+r(i)*100d*d2 [i `"****FACTURAS SEMANALES****"''"Salario semanal(`) =";w'"Alquiler del campo(`) = ";x'"Interes del prestamo(`)= ";(l/100d) dm=m-w-x-(l/100d) hHi=m-l-xp:"Balance semanal = ";0+(i<0)*2;"";i mxp=m-l rm08060| sl=l-m t m=0 x:"SE AUMENTA EL PRESTAMO PARA PAGAR LAS FACTURAS" |l>250000t$*d2"++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++DEBES MAS DE ";250000t$*D2'"PTS++++HAS SIDO DESPEDIDO POR EL+++++++++++++++++++++++++++CLUB!++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++":1030:  1030  $ml<15fa=084993!  $"****FIN DE TEMPORADA****"  1030  7805}  r1=17-t(t1-lt) s=s+r1+c*2*d1 m=m+r1*5000*d2 @"Beneficios de la liga =",," ";r1*5000*d2 &s5=s5+1 +i=116 0 85004! 3 8600! 6i : 8800`" D#"****Nueva temporada****" N 1100L X 1030 !3 !4t(i)>38579! !Cd1=18570z! !HPt$(lt+i);" ascienden de division*****************************************" !Rx$=t$(lt-t(i)) !\t$(lt-t(i))=t$(lt+i) !f t$(lt+i)=x$ !hlt+i=t1t1=(lt-t(i)) !p 8579! !zZt(i)=1t$(lt+i);" son los campeones de liga*********************************" ! !d1=48699! !t(i)<148699! !Pt$(lt+i);" descienden de division++++++++++++++++++++++++++++++++++++++++" !"x$=t$(d1*16+17-t(i)) !(t$(d1*16+17-t(i))=t$(lt+i) ! t$(lt+i)=x$ !'lt+i=t1t1=d1*16+17-t(i) ! !ml=08780L" !r1=r(24) "p(r1)>08700! " ")"****Mercado de fichajes****"'' "p1>15"No puedes comprar mas jugadores porque tienes ya 16,que es lo maximo permitido segun las reglas de la F.I.F.A.":8778J" " 1000 " 2540 "pl=r1 " 2550 "$&'"Escribe tu oferta"'' "& 10808 ") 1170 "*n=q ".n=99c8780L" "3mn87608" "4 1010 "5 1030 "6 8705" "8r=(r(10 )*n)/v(r1) "9 ":r58770B" ">8785Q":1030 "@ 8705" "B#p$(r1);" se ha unido a tu equipo" "Ev(r1)=r(r1)*5000*d2 "Fm=m-n "Gp(r1)=1 "J 1030 "L "Qv(r1)=(v(r1)+v(r1)/5) "R'"TU OFERTA ES RECHAZADA" "T "`'d1=(((t1-1)/16)+1) "a fa=0 "blt=(d1-1)*16 "c lc=0 "d h=1 "ed2=5-d1 "f ma=1 "g ml=0 "h y=0 "i z=0 "ji=116 "kz(i)=0 "lt(i)=0 "mb(i)=0 "nc(i)=0 "ri "s v=0 "ti=124 "x#v(i)=(5000*d2*r(5)) "{r(i)=(v(i)/(5000*d2)) "~y(i)=r(20) "i "z(17)=-1 "a(2)=10 "g=5000*d2 " c=0 "x=500*d2 " h1=2 " " d1=0 "d1=d1+1 "d1>48900" " "/1;"ELIGE EQUIPO PARA ENTRENAR" ""NUMERO","NOMBRE" "lt=(d1-1)*16 "i=lt+1lt+16 " i,t$(i) "i "b0;6;"Escribe el numero del equipo quequieres entrenar(o 99 para mas informacion)" " 1170 "t1=q "t1=99c8902" "*t1lt+168935" " d1=4 "y$=t$(64@) "t$(64@)=t$(t1) " t$(t1)=y$ " t1=64@ " "4i=17:i,1;i;9 ;l$(i):i #"Escribe tu nivel (1-7)" # 1170 #l1=q ##l1<1l1>78955" #:"Introduce el color de tu equipo (0=Negro o 7=Blanco)":1170:tco=q::tco0tco7"0 o 7 ":200:8966# # i=112 #r=r(24) #p(r)>08975# #p(r)=2 #i=12 p(r)=1 #i # 8800`" #' #( 9030F# #-i=124 #2p$(i) #<i #F"Juanito","Dani","Solsona","Gordillo","Bonet","Gallego","Agustin","Metgod","Sarabia","Quini","Stielike","Maradona","Pineda","L.Ufarte","Camacho","Carrasco","Pedraza","Senyor","Alexanco","Amarilla","Fraile","Salguero","Schuster","Argote" #a$(1)="Energia" #a$(2)="Animo" #a$(3)="Defensa" #a$(4)="Cent.Campo" #a$(5)="Delantera" #a$(6)="Division " #a$(7)="Pos.Liga " #l$(1)="Principiante":l$(2)="Novato":l$(3)="Mediano":l$(4)="Bueno":l$(5)="Experto":l$(6)="Super Experto":l$(7)="Genio" # 9230$ #i=164@ #t$(i) $i $"R.Madrid","Zaragoza","R.Sociedad","Barcelona","A.Madrid","A.Bilbao","Celta","Huelva","Valencia","Santander","Osasuna","Las Palmas","Gijon","Sevilla","Espanyol","R.Betis" $"Linares","Getafe","Jerez","Castilla","Malaga","Cadiz","Castellon","Cordoba","Hercules","Celta","Salamanca","Corunya","Sabadell","Manresa","Soria","Cuenca" $""Orihuela","Murcia","Tarrasa","Zamora","Alaves","Lugo","Cartagena","Sagunto","Mallorca","Orense","Leon","Oviedo","Aragones","Numancia","Benidorm","Almeria" $,"Gandia","Pamplona","Tarragona","Villalba","Menorca","Alicante","Mahones","Talavera","Vich","Astorga","Sanabria","Avila","Palencia","Merida","Aranjuez","Teruel" $6q$(1)=" " $7q$(2)="p" $8q$(3)="i" $9r$(1)="D" $:r$(2)="M" $;r$(3)="A" $S $ $7"Quieres cambiar algun nombre de equipo (s/n)?",i$ $-i$"s"i$"S"i$"si"i$"SI"9499% $ d3=0 $d3=d3+1 $d3>49415$ $:a$(6);d3 $2"NUMERO","NOMBRE":low=(d3-1)*16 $(i=low+1low+16:i,t$(i):i $l"Escribe nu. de equipo para cambiar o 99 para mas informa- cion " $$1170:q=99c9420$ $Gqlow+16"EQUIPO FUERA DE RANGO":9450$ $#i=q:"Tu actual equipo es ";t$(i) $2"Escribe el nombre del nuevo equipo",i$ $i$="h"i$="H":9465$ $i$=09465$ $#i$(1)169476% %Mi$(2)<0ůi$(2)>4"COLOR INVALIDO":9465$ %Qi$(3)<65Aůi$(3)>122z"EQUIPO INVALIDO":9465$ %Si$>12 "NOMBRE DE EQUIPO DEMASIADO LARGO- max. 10 carac.-":9465$ % 9478% %Qi$(1)<65Aůi$(1)>122z"EQUIPO INVALIDO":9465$ %Si$>10 "NOMBRE DE EQUIPO DEMASIADO LARGO- max. 10 carac.-":9465$ %-t$(i)=i$:"Nuevo nombre del equipo: ";t$(i) %@"Algun cambio mas (s/n)?",i$:i$="h"i$="H":9479% %-i$="s"i$="S"i$="si"i$="SI"9430$ % % %!@"Quieres cambiar el nombre de algun jugador (s/n)?",i$ %&-i$"s"i$"S"i$"si"i$"SI"9599% %+ d3=0 %,d3=d3+1 %0d3>39515+% %5:a$(d3+2) %:1"NUMERO","NOMBRE":low=(d3-1)*8 %?'i=low+1low+8:i,p$(i):i %DV6;1;"Escribe nu. del jugador para cambiar o 99 para mayor eleccion" %I$1170:q=99c9516,% %NKqlow+8"NU. DE JUG. FUERA DE RANGO":9545I% %S%i=q:"El actual jugador es: ";p$(i) %XP"Escribe el nombre del nuevo jugador",i$:i$="h"i$="H":9560X% %Yi$=09560X% %]\i$(1)<65Aůi$(1)>122z"NOMBRE DE JUGADOR INVALIDO":9560X% %bTi$>8"NOMBRE DE JUGADOR DEMASIADO LARGO-max. 8 carac.":9560X% %g!p$(i)=i$:"Nuevo nombre ";p$(i) %l@"Algun cambio mas (s/n)?";i$:i$="h"i$="H":9580l% %q-i$="s"i$="S"i$="si"i$="SI"95255% % & "FUTBOL" & 0 ct"#  # ! aef!    uPrincipiante Novato Mediano Bueno Experto Super Experto Genio DMA   XSSJuanito Dani Solsona GordilloBonet Gallego Agustin Metgod Sarabia Quini StielikeMaradonaPineda L.UfarteCamacho CarrascoPedraza Senyor AlexancoAmarillaFraile SalgueroSchusterArgote {@ Murcia R.Betis Mahones Santander R.SociedadLas Palmas Valencia Jerez Getafe R.Madrid A.Madrid A.Bilbao Linares Osasuna Oviedo Valladolid Barcelona Malaga Zaragoza Castilla Sevilla Cadiz Figueras Cordoba Almeria Celta Salamanca Aragones Pamplona R Gijon Espanyol Cuenca Hercules Castellon Corunya Orihuela Lugo Tarragona Cartagena Sagunto Mallorca Orense Soria Teruel Leon Alaves Tarrasa Sabadell Benidorm Zamora Manresa Villalba Menorca Alicante Astorga Talavera Vich Numancia Sanabria Avila Palencia Merida Aranjuez Gandia S D Energia Animo Defensa Cent.CampDelanteraDivision Pos.Liga  pi{      {{@@ N N N@`CP N@`@`@@ N N`@@@CP N Nlm P4~ @sccehyzvg NcxCPp  VorUmashang wZM Pedro Jimenezo CFinalI99YXkeep