MV - CPCEMU Disk-File Disk-Info ZX-ModulesPTrack-Info  R P *RTrack-Info  R DISK MICRO 707  AA n AB |AC AD  !"#AD $%AF R&'()*+AG -,-.AH '/01AI /234BA 95678BB ,9:;BC )<=>BD ?@ABCDEFBD GBE HIBF 7JKLMBG SNOPQRSBH TUVWXYZ[BH \BI X]^_`abTrack-Info  R PLUS3DOS@ @DISKEADO POR MADFOX "MICRO"  300, "07" Track-Info  R PLUS3DOS@UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU@|#A |paqx:|x>0q8 ?*WTmTŒ' PIUU@x<#A paqx88@"?A -TOmQjTZJR6UI%@@' UJ ?@x<#ap8 0paq8 @>A /ȟ' !UU@??@8<>xp_9܅۪UUUUUUUUUU 0ꪪUUUUUUv0 `8UUUUUUUUժUUUUUUUUUUUUUU `8UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU `8UUUUUUUUժUUUUUUUUUUUUUU0 `UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU0UUUUUUUUժUUUUUUUUUUUUUU0UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU0 `UUUUUUUUUUUUUժUUUUUUUUU0 `UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU88888888888888888888877777778888888888888888888888887777777788888888888888888887778888888888888888888888887777888888888888888888866666778888888888888888888888666666688888888888888888888888888666688888888888888888888888888888888888888888888888888888:8:88888888888888888=88r>=8888888888888888888:8>>>7ppp7::::::W:::::::::::Wp0p00VWWWW888888888888888888>p0007>>>88888888888888888888888>7>>888888888888888888888 888888888886888888888 88888888886668888888888888888888888888888866688888558888888888888888888866688665555888888888888888866688668855588888888887778866;;6666;;;55;;;8888888778888866;;6666555555;;88888887778888Track-Info  R PLUS3DOS66dCINTA 07 (REVISTAS 25 a 28) n4:0:7: x5000:6000p 8,10 ;"A - CARA A" 9 ,10 ;"B - CARA B" A$= A$=""150 A$="A"A$="a"500 A$="B"A$="b"1000 100d --- MENU CARA A --- :5000:6000p 4,12 ;"CARA A" 7,3;"A-Monopoly" 7,18;"B-Labmat" &8,3;"C-Puzzle" 08,18;"D-Rubik" :9 ,3;"E-Eagle" D9 ,18;"F-SopaL" N 10 ,3;"G-Buscapar" X#10 ,18;"H-Submarinos" !15,11 ;"1 - VOLVER" B$= B$=""680 B$="A"B$="a""AA" B$="B"B$="b""AB" B$="C"B$="c""AC" B$="D"B$="d""AD" B$="E"B$="e""AE" B$="F"B$="f""AF" B$="G"B$="g""AG" B$="H"B$="h""AH" HB$="1"100d R 500 --- MENU CARA B --- :5000:6000p 4,12 ;"CARA B" !7,3;"A-Calculador" "7,18;"B-Ultratumba"  8,3;"C-Adivinalo" $!8,18;"D-Grandprix" .9 ,3;"E-Caleido" 89 ,18;"F-Stone" B 10 ,3;"G-Intruder" L!10 ,18;"H-Spacewar" V!11 ,3;"I-Camionero" !15,11 ;"1 - VOLVER" B$= B$=""1180 B$="A"B$="a""BA" B$="B"B$="b""BB" B$="C"B$="c""BC" B$="D"B$="d""BD" B$="E"B$="e""BE" B$="F"B$="f""BF" B$="G"B$="g""BG" B$="H"B$="h""BH" B$="I"B$="i""BI" <B$="1"100d F 1000 --- CABECERA --- 51:0,4;"CINTAS MICRO N. 07" -2:0,16;"HOBBY":0 C3:1,6;"DISKEADO POR MADFOX":0:0 #3,8;"REVISTAS 25-28"  p--- PIE DE PANTALLA --- z?1:20,0;" J, siempre... ILM " ?21,0;" ELIGE UNA OPCION ":0  ""BG" B$="H"B$="h""BH" B$="I"B$="i""BI"  $IF B$="J" OR B$="j" THEN LOAD "BJ" $IF B$="K" OR B$="k" THEN LOAD "BK" $IF B$="L" OR B$="l" THEN LOAD "BL" ($IF B$="M" OR B$="m" THEN LOAD "BM" 2$IF B$="N" OR B$="n" THEN LOAD "BN" <B$="1"100d F 1000 --- CABECERA --- 51:0,4;"CINTAS MICRO N. 07" -2:0,16;"HOBBY":0 C3:1,6;"DISKEADO POR MADFOX":0:0 #3,8;"REVISTAS 25-28"  p--- PIE DE PANTALLA --- z?1:20,0;" J, siempre... ILM " ?21,0;" ELIGE UNA OPCION ":0  PLUS3DOS6G6G6p' Alberto Lopez Navarro 1985 m1:1:7::1;10 ,10 ;"PARE LA CINTA":I=115:.5,I:I  5000  "Numero de jugadores? ";nj !nj<2nj>610 j$(nj,3):c(nj,3) ("Recuerden sus numeros." 2a=1nj 3340T 1100L "c(f,1)<03700t ."Es el turno del jug. no. ";f;"(";j$(f);")." d=0 d1=(*5.9<)+1 d2=(*5.9<)+1 #d1=d2d=1:dob=dob+1 dad=d1+d2 dob=33600 ,,"DADOS " Qa=1d1:2;6;2,8;a;:.1}L,10 :a:" +" Za=1d2:2;6;2,12 ;a;:.1}L,22:a:" = ";dad,,, Pc(f,3)=c(f,3)-c(f,3):c(f,3)d100d:340T Dc(f,3)d" Queda libre de la carcel.":c(f,3)=0 c(f,2)=c(f,2)+dad c(f,2)>39',,"Cobras 20000 Pts. (Cas. Salida)":c(f,2)=c(f,2)-40(:c(f,1)=c(f,1)+20000 N:c(f,2)250 :c(f,2)11 ;"Salida":1000:340T n=c(f,2)  2540  o$  1000 t$="vc"3600 t$="cr"t$="pg"340T t$="cc"3400H 3t$="im"pfpc(p+p,3)<42900T p=f340T , c=-1 6o$=a$(n,12 ) ; 3200 @ 1220 Tf Y.f=f-d*(f1)+(nj-1)*(df=1) ^ 115s ï1000 z$= 1005  L1:7:1: N61;5;" Menu Principal " Q5,,,," 0 .-Continuar el juego",,," 1 .-Compra/Venta Propiedades",,," 2 .-Compra/Venta Casas",,," 3 .-Hipotecas",,,," 4 .-Deshipotecas",,," 5 .-Informacion de Calles",,," 6 .-Graficos de Capital",,," 7 .-Grabar datos del juego",,," 8 .-Cargar datos de otro juego",,,5;"________________________________" R c=-1 Sv=c To$="-" V 1000 W1:1:5: [z$<"1"z$>"8" `z$"8"1200+400*(z$="2")+800 *(z$="3")+1100L*(z$="4")+1400x*(z$="5")+2900T *(z$="6")+2700 *(z$="7") bz$="8"4000 e 1000 j 1100L COMPRA VENTA  3200  2645U v=p h" Propiedad Hipotecada.": ,cons" En esta propiedad hay edificios": prc=v(cas,7) '"Ha habido cambio de precio?(S/N)";z$  z$="s"z$="S"" Precio?";prc "vc(v,1)=c(v,1)+prc "cc(c,1)=c(c,1)-prc (*c" Capital de ";j$(c);":";c(c,1) 2*v" Capital de ";j$(v);":";c(v,1) 3 ajc=0 4 1000 8 aj=-1 9 3000 :a$(n,6)=c ; aj=1 <p=c F 3000 @ COMPRA/VENTA CASAS J " Primera calle del grupo?";o$ ^ 2500 h o$:c=p r*ncgncj" No tiene el grupo de color": |%t$"ca"" Terreno no edificable": "Compra o venta? (C/V)";z$ z$="V"z$="v" z$="C"z$="c"  " Numero de construcciones?";q 7q+cons>5z$="c"" Demasiadas construcciones": >q>consz$="v"" No tiene tantas construcciones":1710 ;prc=((n/10 )+1)*5000/(1+(z$="v")) z$="c"12 ;"COMPRA" z$="v"12 ;"VENTA" h,," Precio unitario:";prc,,," No. Calles:";ncg,,,," Total casas:";ncg*q,,,," Precio total:";prc*ncg*q Bc(c,1)=c(c,1)-prc*ncg*q*-(-1+2*(z$="v")) G"________________________________ Capital de ";j$(c);":";c(c,1)  aj=0 "ajc=q*(1-2*(z$="v"))  3000 12 ;"HIPOTECAS" " Propiedad?";o$  2500 *cons " No puede hipotecar con casas": !h" Propiedad ya hipotecada": ,,,,"Propiedad:",,o$  ,,"Propietario:";j$(p) prc=v(cas,7)/2  ,," Valor hipotecario:";prc %c(p,1)=c(p,1)+prc *),," Capital de ";j$(p);":";c(p,1) /a$(n,7)="1" 4aj=-1:ajc=0 9 1000 > 3000 10 ;"DESHIPOTECA" "Propiedad?";o$  2500 ,,,," Propiedad:",,o$ ,," Propietario:";j$(p) $"h" Propiedad no hipotecada": .4prc=v(cas,7)/2+v(cas,7)/20 8,," Importe:";prc Bc(p,1)=c(p,1)-prc L(,,"Capital de ";j$(p);":";c(p,1) Qa$(n,7)="0" Vaj=1:ajc=0 ` 3000 BUSCA CALLES n=140( Z(o$=a$(n,9 10 )o$=a$(n,9 11 )o$=a$(n,12 11 +o$))n &n=40(" Calle no localizada": t$=a$(n,2) o$=a$(n,12 ) cons=a$(n,8) ncg=a$(n,3) nTrack-Info  R cj=a$(n,4) h=a$(n,7) col=a$(n,5) cas=a$(n,9 10 ) p=a$(n,6)  2(7;1;"INFORMACION CALLES" <'" Propiedad(1) o propietario(2)? ";z$ Fz$="2"4200h K<"No. Propiedad?(2 cifras)";o$:o$<"01"o$>"39"2635K P 2500 Qn=40( U0:0:7: Zo$ _Ucolٰc$(col*2-1);ڰc$(col*2);"" d%,," Casilla:";cas,," Propietario:"; x pj$(p) p"Banca" C" No. calles del grupo:";ncg," Calles del grupo del jugador:";ncj h" HIPOTECADO" 8conscons<52,2;4;s$(cons) -cons=52,2;2;"" 78,0;"-----------ALQUILERES-----------",, t$="co"" Con una compaia, el alquiler es 400 veces el numero salido en los dados.",,,," Con dos compaias, el alquileres 1000 veces el numero salido en los dados.":2820 _t$="es"j=14:" Con ";j;" estacion(es)....";1250*2^j:j:2820 '" T. sin edificar....";v(cas,1) j=25 -" Con ";j-1;" casas........";v(cas,j) j '" Con hotel..........";v(cas,6) >"-------------------------------- Precio:";v(cas,7): T ALQUILER ^t$"im"2640P `3prc=(t$="im")*10000'+10000'*(n=4) h<t$="ca"prc=v(cas,cons+1)*(1+(consncg=ncj)) mt$="ca"t$="es"10 -(t$="es")+cons*(t$="ca")+ncj*(t$="es"),0;1;1;"":const$="ca"ncg=ncj1;1;10 ,25;"x2" r%t$="es"prc=1250*2^ncj |2t$="co"prc=dad*(400+600X*(ncj=ncg)) 5t$="co"t$="im"21,0;" Alquiler:";prc c(f,1)=c(f,1)-prc (t$"im"c(p,1)=c(p,1)+prc 919,0;" Capital de ";j$(f);":";c(f,1) 0t$"im"" Capital de ";j$(p);":";c(p,1) 1000 340T Wg=((n-4)*((n<4))+1)*(t$="ca")+5*(t$="es")+12 *(t$="co") dk=((n+3)*(n<36$)+39'*(n>35#))*(t$="ca")+35#*(t$="es")+28*(t$="co") 0s=1+4*(t$="es")+15*(t$="co") p a=p:ncj=0 ;j=gks:ncj=ncj+(a$(j,5)=cola$(j,6)=a):j j=gks ^a$(j,5)=cola$(j,6)=aa$(j,8)=(a$(j,8)+ajc):a$(j,4)=ncj j  C/v 9c=-1" Comprador?";c:c<0c>nj3210 " Comprador:"; c" Banca" cj$(c) Do$="-""No. Propiedad?(2 cifras)";o$:o$<"01"o$>"39"2635K 2500 v=p " Propiedad:",,o$ 1000: H Ro$ \" Saque una tarjeta y pulse la tecla correspondiente. ________________________________",," 1 .-Pagos",,,," 2 .-Cobros",,,," 3 .-Ir a casilla",,," 4 .-Reformas en construcciones ",," 5 .-Vaya a la carcel","________________________________" p 1000 rz$="5"3600 uz$="4"rf=0:n=139':rf=rf+(a$(n,8)-(a$(n,8)="5"))*2500 *(a$(n,6)=f):n:c(f,1)=c(f,1)-rf:" Pagas ";rf;" Pts.":3510 z!z$="1"z$="2"" Cantidad:";prc <z$"3"c(f,1)=c(f,1)+(-(z$="1")+(z$="2"))*prc -z$="3"" Casilla?";o$:o$"00"2500 o$"00"c(f,2)=n z$="3"241 '" Capital de ";j$(f);":";c(f,1) 1000:340T  5;j$(f);" a la carcel." c(f,2)=10 " Tienes tarjeta?(s/n)" $ 1000 )z$="s"340T ." Pagas fianza?(s/n)" B 1000 Gc(f,3)=3*(z$"s") L/c(f,1)=c(f,1)-5000*(z$="s") V 340T t ~;j$(f);" tiene un saldo negativo de",,-c(f,1);" Pts."," Intenta arreglarlo antes de que sea demasiado tarde.":1000  1100L Yc(f,1)>0" Has pagado tus deudas. Puedes continuar el juego.":3740 :" Te hemos dado una oportunidad y no has conseguido nada."," Estas eliminado del juego,";j$(f);".Tus posesiones pasan a la banca.":c(f,3)=500000t$:d=0:dob=d  n=139':2540 5p=fa$(n,4)="0":a$(n,68)="000" n 1000:340T <SALVAR ESTADO DEL JUEGO F%" Fecha o nombre?(10 car. max.)";n$ P1a$(2,3)=f:a$(2,4)=nj Z&n$+"1"a$():n$+"2"j$():n$+"3"c() dz" Rebobine la cinta y pulse cual-quier tecla para verificar lTrack-Info  R a grabacion.",," Si falla, teclee GOTO 3900.":1000 n&n$+"1"a$():n$+"2"n$():n$+"3"c() x9,,"Perfecto.Pulse una tecla para continuar el juego." 1000: CARGA 4" Situe la cinta al comienzo del bloque de datos." /" Pulse una tecla para comenzar.":1000  .n$a$():n$j$():n$c():"Puede continuar." <nj=a$(2,4):f=a$(2,3):110n 0:7:0::" GRAFICOS DE CAPITAL 0 250 500 750 1000! ! ! ! !"  _0,0:255,0:0,159:-255,0:0,-159 bx=1nj:x*3,1;2;j$(x);x*3+1,0;7;c(x,1) by=0c(x,1)/3906B:y,175-x*24:1;2;0,-7:y "x: h PROPIETARIO r0:7:0: |."Propietario?";p$:p$>njp$<"1"4220| Ij$(p$);" posee las siguientes calles:________________________________" n=139' #p$=a$(n,6)a$(n,12 ) )n:"________________________________": 6dob=0:d=dob:s$="":c$="3355122622664411" 0:5::0:5,5;1;"MONOPOLY esta cargado.";10 ,7;1;"Espere un momento." ,a$(39',42*):v(28,7) 3z$="ca20100001 Ronda de Valencia=cc00000001bCaja de Comunidad=ca20100002 Plaza de Lavapies=im00000002bImpuesto sobre Reintegros=es40000003 Estacion de Goya=ca30200004 Glorieta de Cuatro Caminos=cc00000004bSuerte=ca30200005 Avenida de la Reina Victoria=ca30200006 Calle de Bravo Murillo=cr00000006bCarcel=" Lz$=z$+"ca30300007 Glorieta de Bilbao=co20000008 Cia. distribucion Electricidad=ca30300009 Calle de Alberto Aguilera=ca30300010 Calle de Fuencarral=es40000011 Estacion de las Delicias=ca30400012 Avenida de Felipe II=cc00000012bCaja de Comunidad=ca30400013 Calle de Velazquez=ca30400014 Calle de Serrano=pg00000014bParque Gratuito=" Bz$=z$+"ca30500015 Avenida de America=cc00000015bSuerte=ca30500016 Calle de Maria de Molina=ca30500017 Calle de Cea Bermudez=es40000018 Estacion del Mediodia=ca30600019 Avenida de los Reyes Catolicos=ca30600020 Calle de Bailen=co20000021 Cia. Distribucion de Aguas=ca30600022 Plaza de Espaa=vc00000022bVaya a la Carcel=" z$=z$+"ca30700023 Puerta del Sol=ca30700024 Calle de Alcala=cc00000024bCaja de Comunidad=ca30700025 Gran Via=es40000026 Estacion del Norte=cc00000026bSuerte=ca20800027 Paseo de la Castellana=im00000027bTasa de Lujo=ca20800028 Paseo del Prado="  n=0 a=139' n$=""  n=n+1  $z$(n)="="a$(a)=n$:a:5150  n$=n$+z$(n)  5120 8z$="2l10l30l90l160l250l60l4l20l60l180l320l450l60lllllll200l6l30l90l270l400l550l100l6l30l90l270l400l550l100l8l40l100l300l450l600l120l10l50l150l450l625l750l140lllllll150l10l50l150l450l625l750l140l12l60l180l500l700l900l160lllllll200l14l70l200l550l750l950l180l14l70l200l550l750l950l180l16l80l220l600l800l1000l200l" (cz$=z$+"18l90l250l700l875l1050l220l18l90l250l700l875l1050l220l20l100l300l750l925l1100l240lllllll200l22l110l330l800l975l1150l260l22l110l330l800l975l1150l260lllllll150l22l120l360l850l1025l1200l280l26l130l390l900l1100l1275l300l26l130l390l900l1100l1275l300l28l150l450l1000l1200l1400l320lllllll200l35l175l500l1100l1300l1500l350l50l200l600l1400l1700l2000l400l" Z n=0 da=128 nb=17 xn$="0"  n=n+1 >z$(n)="l"v(a,b)=(n$+"00"):b:a:z$="":n$="":5320 n$=n$+z$(n):5250 a="a""d"+7 b a,b a &124|,0,124|,66B,66B,66B,66B,0,0,0,8,28,62>,62>,62>,62>,8,28,62>,127,127,127,127,127,85U,170,85U,170,85U,170,85U,170  ',:x$="NOTAS GRAFICAS":y$="--------------" 'E0,16-x$/2;x$;1,16-y$/2;y$: '-3,12 ;:I="A"̯"D":I;" ";:I ' 14,12 ;:I=""̯"":I;" ";:I:: ' *"borro udg? (s/n)";x$:x$(1)="n" ' #i="a""u"+7:i,0:i '"monopoly"5 Track-Info  R PLUS3DOS=C=C=y LABERINTO MATEMATICO V.S(1985) o1:1:7::10 ,10 ;1;"PARE LA CINTA":i=115:.5,i:i: 1:7:4: :k=7:l=0:p=0::236099\,120x 3000 2500 :6000p 800 :8000@ # 200 i:(k1,l1)=128ū(k1+1,l1)=128150 k;(k1,l1)>128ū(k1+1,l1)>1281000 nMZ=1k=8l=31Z=2::k=8:l=0:30 sOZ=2k=19l=31Z=3::k=19:l=0:30 x+Z=3k=9 l=03600 y-(k1+1,l1)=6ƫ(k1,l1)=7 z,(k1,l)=6ƫ(k1-1,l1)=7 {-(k1+1,l1)=6ƫ(k1,l1)=6 |-(k1,l1)=6ƫ(k1+1,l1)=7 }.01z# =,2:210 "m=(22528X+l1+(k1*32 )) l1>lm,6:m+1,6:m+2,6:m+3,6:m+32 ,6:m+33!,6:m+34",6:m+35#,6:n=115:.01z# =,3:.1}L,n:n:1000 l13) +l1=l+(="p"l<31)-(="o"l>0) c100d:i=i+1:k1,l1;7;A$(i);k1+1,l1;7;B$(i):i=3i=1 k,l;" ";k+1,l;" " k=k1:l=l1 210  0:6:0: $M2,0;ٺ((*3)+2);"" %20,5;4;"LABERINTO MATEMATICO" *12,0;6;1;" PUNTOS " /*2,8;6;1;" ";p 42,18;"RECORD " 9(2,26;6;1;re >  Cuentas o=(*4) o=01100L o=11180 o=21260 o=31340<  1005 LSUMA V 2000 [(8,10 ;4;"S U M A S" `x=110 2 e 21004 j%10 +x,3;s1;" + ";s2;"=" o$"RESPONDE A LA SUMA = ";s$:s3=s$ t10 +x,11 ;s3 y\s3(s1+s2)10 +x,15;1;2;"MAL":0:p=p-2:1155 ~E10 +x,15;1;4;"BIEN":0:p=p+7 10 +x,20;s1+s2  1500 x 921,0;"PULSA UN TECLA PARA SEGUIR":0 l21,0;" ":2010:40013M:2,9 ;p:235 Resta  2000 *8,10 ;4;"R E S T A S" x=110 2  21004 %10 +x,3;s1;" - ";s2;"=" %"RESPONDE A LA RESTA = ";s$:s3=s$ 10 +x,11 ;s3 \s3(s1-s2)10 +x,15;1;2;"MAL":0:p=p-2:1230 E10 +x,15;1;4;"BIEN":0:p=p+7 10 +x,20;s1-s2  1500 x :21,0;"PULSA UNA TECLA PARA SEGUIR":0 k21,0;" ":2010:40013M:2,9 ;p:235 Multiplicacion  2000 98,2;4;"M U L T I P L I C A C I O N" x=182  21004 %10 +x,3;s1;" ";s2;"="  ,"RESPONDE A LA MULTIPLICACION=";s$:s3=s$ 10 +x,11 ;s3 \s3(s1*s2)10 +x,15;1;2;"MAL":0:p=p-2:1310 F10 +x,15;1;4;"BIEN":0:p=p+10 10 +x,20;s1*s2 # 1500 (x -:21,0;"PULSA UNA TECLA PARA SEGUIR":0 2l21,0;" ":2010:40013M:2,9 ;p:235 < Division A 2000 F-8,7;4;"D I V I S I O N" Kx=182 P 21004 U%10 +x,3;s1;" : ";s2;"=" Z("RESPONDE A LA DIVISION = ";s$:s3=s$ _10 +x,11 ;s3 dts3 ((s1/s2)*100d)/100d10 +x,15;1;2;"MAL":0:p=p-2:1390n iF1Track-Info  R 0 +x,15;1;4;"BIEN":0:p=p+15 n510 +x,20;((s1/s2)*100d)/100d s 1500 xx }:21,0;"PULSA UNA TECLA PARA SEGUIR":0 k21,0;" ":2010:40013M:2,9 ;p:235 Puntuacion y record &2,9 ;1;6;p  Limpia pantalla 40000@ Cx=321:x,0;" " x /6,7;3;"P R E G U N T A S"  4 Calculo >s1=(*10 )+10 *dif Cs2=(*10 )+2*dif Hs1s22115C M Asignacion de variables 4Z=1:m=10 :n=0:re=100d*dif (A$="":B$="":k=7:l=0  Introduccion ;2,6;1;6;"LABERINTO MATEMATICO" C10 ,0;"QUIERES LAS INSTRUCCIONES(S/N)":0:q$= q$="s"q$="S"3022 q$="n"q$="N"3035 410 ,0;" " a0:4,10 ;"Tienes que recorrer el laberinto acumulando el maximo de puntos." ׍8,2;"Te encontraras con operaciones de suma,resta,multiplicacion,division y cinco niveles. Los errores descuentan" e14,4;"Cuando superes el RECORD te encontraras con una ";1;1;" SORPRESA " <18,3;"Para moverse usar las teclas (O,P,Q,A)" 4#0;"PULSAR UNA TECLA PARA SEGUIR":0: F10 ,0;6;" NIVEL DE DIFICULTAD ?(1-5)":0 i$=:i$=" "3040 0i$="1"i$="2"i$="3"i$="4"i$="5"3055 3035 dif=i$:: Final c=1557 -254,c:.1}L,1+c/10 :c $>20::4,6;6;"LABERINTO MATEMATICO" &)7,6;"LLEGASTE A LA SALIDA" )D10 ,5;4;1;"TU PUNTUACION ES ";p:0 +p>re3670V .,13 ,4;"LO SIENTO NO SUPERASTE" 3815,5;1;"EL RECORD DE ";re:0 8'"QUIERES INTENTARLO DE NUEVO(S/N)";k$ =%k$=115sůk$=83S5 B(k$=110nůk$=78N3695o G 36408 V'x=1255:254,x:x: [X2,3;1;1;3;" S O R P R E S A ":0:0 `K6,5;"PUNTUACION ";p:8,2;"EL RECORD ERA DE ";re e10 ,0;1;4;1;"COMUNICA A TU PAPA QUE SUPERASTE EL RECORD Y QUIERES OTRO JUEGO ":0:0 j100d:36408 o:1:1:x=07:10 ,4;x;" A D I O S A M I G O ":.1}L,1+x:x:0:0 o Graficos p!6005u:I="A""O"+7 q J:I,J:I u0112p,154,159,61=,93],117u,124|,568,8,62>,93],157,21,116t,119w,7,14,89Y,249,188,186,174,62>,28,16,124|,18,185,168,46.,238,224 z239,239,239,0,254,254,254,0,126~,66B,126~,66B,126~,66B,126~,66B,255,255,255,252,240,240,224,224 255,231,255,0,0,0,0,0,255,255,255,63?,15,15,7,7,255,255,183,221,107k,170,84T,0 O60<,126~,219,255,195,195,126~,60< I0,100d,40(,20,126~,44,,88X,0 60<,126~,255,255,255,255,255,159,0,0,195,36$,66B,36$,66B,60< G0,66B,36$,568,16,36$,66B,0 F=40000@40024X  h:F,h:F 33!,0,64@,17,200,175,1,0,27,237,176,201,0,33!,200,175,17,0,64@,1,0,27,237,176,201  @ Pantallas EZ4Z=1 L?21,0;2;"" O8000@+100d*Z TX,Y:X=99c8050r Y;ٺ((*3)+2);6;X,Y;"":8020T rX,Y:X=99c8061} |8ٺ((*3)+2);6;Track-Info  R X,Y;"":8050r ~X,Y:X=99c8065 <ٺ((*3)+2);6;X,Y;"":8062~ X,Y:X=99c8072 2ٺ((*3)+2);X,Y;"":8070 X,Y:X=99c8074 9ٺ((*3)+2);6;X,Y;"":8072 X,Y:X=99c8076 7ٺ((*3)+2);6;X,Y;"":8074 8Z=10;14,17;1;1;"";15,17;0;0;"";19,14;1;1;"";20,14;0;0;"";3,5;"";3,7;"";4,5;1;"";11 ,5;"";12 ,5;"" \Z=20;7,6;1;1;"";4,16;"";5,15;"";10 ,10 ;"";11 ,10 ;"";16,19;"";17,16;0;0;"";19,14;1;1;"";20,13 ;0;"";13 ,28;"";14,27;"" EZ=30;20,17;"";19,17;1;1;"";15,22;"";16,22;"";5,26;"";5,28;"";6,26;"";5,15;"";4,17;"";8,5;"";0;8,4;"";9 ,4;"" "Z=1c=2:8400 "Z=2c=3:8400 "Z=3c=4:8400  9 ,8,10 ,8,3,15,3,20,5,4,6,4,10 ,24,11 ,24,10 ,27,11 ,27,18,15,18,20,99c,0 3,0,3,11 ,3,24,4,0,5,0,6,0,9 ,0,10 ,0,11 ,0,12 ,0,13 ,0,14,0,15,0,16,0,17,0,9 ,4,10 ,4,4,11 ,5,11 ,6,24,7,24,18,0,19,0,20,0,19,27,20,27,20,27,14,27,15,27,16,27,99c,0 6,11 ,6,16,7,15,7,16,8,15,8,16,9 ,15,9 ,15,9 ,16,12 ,18,13 ,18,12 ,19,13 ,19,99c,0 i16,20,17,20,13 ,5,14,5,15,5,99c,0 13 ,12 ,14,12 ,15,12 ,16,12 ,17,12 ,18,2,19,2,20,2,16,7,17,7,18,7,99c,0 Y13 ,15,14,15,15,15,16,15,17,15,15,6,13 ,12 ,14,12 ,15,12 ,16,12 ,17,12 ,3,31,4,31,5,31,6,31,7,31,12 ,31,13 ,31,14,31,15,31,16,31,17,31,18,31,19,31,20,31,5,28,6,28,10 ,15,11 ,15,12 ,15,13 ,4,14,4,15,4,99c,0 3,9 ,3,2,3,14,12 ,16,12 ,22,15,7,15,26,99c,0 7,0,10 ,0,3,30,4,30,5,30,6,30,7,30,8,30,9 ,30,10 ,30,11 ,30,12 ,30,13 ,30,14,30,15,30,16,30,17,30,17,0,18,0,19,0,20,0,3,8,9 ,6,9 ,17,9 ,23,9 ,25,12 ,5,12 ,7,15,23,99c,0 z18,26,12 ,24,3,20,3,26,9 ,11 ,15,1,99c,0 6,11 ,6,20,18,20,18,0,6,16,15,13 ,18,13 ,18,19,99c,0 i3,1,3,19,10 ,2,18,5,18,0,18,25,3,6,6,6,6,21,9 ,27,12 ,15,15,12 ,15Track-Info  R ,18,18,12 ,18,18,18,24,99c,0,8,18,8,29,2,7,2,18 ld3,16,7,17,3,0,4,0,5,0,6,0,11 ,0,12 ,0,13 ,0,14,0,15,0,16,0,6,12 ,6,14,9 ,9 ,9 ,15,15,12 ,15,14,18,5,18,23,99c,0 mF14,28,6,0,7,0,8,0,11 ,0,14,0,4,30,5,30,6,30,19,30,20,30,6,2,6,5,6,20,12 ,16,12 ,21,15,19,15,26,99c,0 nV9 ,26,12 ,1,12 ,8,15,6,99c,0 og3,8,3,22,3,27,18,0,18,11 ,99c,0 p13 ,6,18,20,3,7,3,13 ,3,21,6,10 ,9 ,18,12 ,23,15,8,15,30,18,16,99c,0 q18,10 ,5,5,14,30,2,11 ,8,30,11 ,10 ,14,6,17,0 v3,5,3,6,12 ,0,13 ,0,15,0,16,0,7,31,8,31,9 ,31,10 ,31,11 ,31,12 ,31,13 ,31,14,31,15,31,16,31,17,31,18,31,3,26,9 ,13 ,12 ,4,12 ,8,12 ,17,12 ,20,99c,0 'n=1c:k2=(*17)+3 l2=(*25)+3 (k2,l2)68405 4;1;k2,l2;"" n  PLUS3DOSccO  %%%%%%%%%%%%%%%%%%%%%  R. Hornos 1984  P U Z Z L E %%%%%%%%%%%%%%%%%%%%%    q1:1:7::1;10 ,10 ;"PARE LA CINTA":i=115:.5,i:i:: "b$(3):a$(6,6) 4:7: (n=07 2 a:"a"+n,a <n F#"Televisor B/n o Color (b/c)";f$ Pf$"b"f$"c"70F Zf$="b"1000 dPt()=((65536*23674z\+256*23673y\+23672x\)/502) n@7,1;2;"R"'" H"''" 1"'" 9"'" 8"'" 4"'''" " xf$="c"2000 P0,0;1;6;1;" P U Z Z L E " 36$,28 0,110n 110n,0 0,-110n -110n,0 25,7;1;7;"1 2 3 4 5 6" 4000:n=16 0n*2+5,5;1;7;n n=6250 3(n*2+5)+1,5;1;" " n "Tu Nombre ? (Max. 8) ";m$ Dm$<1űm$>8.3,-10 :4000:250 ;2,2;2;"Jugador:";2;7;m$ c7,20;4;7;"Y ";9 ,20;"X ";11 ,20;"Color " "?23674z\,0:23673y\,0:23672x\,0 ,{14,20;" ":7,25;7;0;" ";9 ,25;" ";11 ,25;" " 6.2~L,40( @a=13 J<5+a*2,26;1;7;1;"?" T0:b$(a)= ^ b$(a)<"0"b$(a)>"6"340T h*b$(a)="0".1}L,-30:300, r.01z# =,30 |&5+(a*2),26;b$(a) a c=b$(1) d=b$(2) color=b$(3) y=c*2+5 x=d*2+5 Track-Info  R %b$(1)=b$(2)3000  a$(d,c)="" ,f$="b"y,x;color;b$(3):490 y,x;color;"" +14,20;1;"Comprobando" n=517 n=y530 .(n,x)=(y,x).1}L,-30:730 n n=517 &n=xn 0.(y,n)=(y,x).1}L,-30:730 :n Da=16 Nb=16 Xa$(a,b)""300, bb:a ln=040( v .01z# =,n .01z# =,n+10 n  tiempo=t() "14,20;" " .16,20;4;"Tiempo=";tiempo E20,1;2;7;"Lograste acabar el puzzle. " H#1;6;1;1;" Pulsa una tecla para repetir. " "":860\  710 "14,20;" " x=05 n=70-1 n .005y# =,n+x  .005y# =,n+20 n:x  4 * tiempo=t() 4?20,1;2;"Solo duraste ";tiempo;" segundos" >?#2;1;6;" Pulsa una tecla para repetir. " H"":860\ R 840H \a=16 fb=16 p a$(a,b)="" zb:a  90Z n=16 a=(*6)+1 /(n*2)+5,(n*2)+5;a;a  a$(n,n)="" n  n=16 D(n*2)+5,(n*2)+5;ٺ(*6)+1;""  a$(n,n)="" n  >14,20;"Jugada ";15,20;"Invalidada" .4L,-10 >14,20;" ";15,20;" " 300, 0,167:0,-167:255,0:0,167:3,167:0,-165:249,0:0,165 M3,167:0,-165:249,0:0,165  O24,126~,102f,195,195,102f,126~,24 PLUS3DOSJJJ1*********************** * ANTONIO FDZ- MADRID * *  1985 SOFWARING Ltd* *********************** 1:1:7::10 ,10 ;1;"PARE LA CINTA":I=115:.5,I:I::2:0:0:1:  100d =10 ,5;2;6;" C U B O R U B I C " 0;7;1;8,3;"";9 ,27;"";10 ,27;"";11 ,27;"";12 ,3;"";11 ,3;"";10 ,3;"";9 ,3;"" 10;5;;15,13 ;"3 D" ,#1;"Deseas instrucciones s/n?" (a$=:a$=""40( 2a$="s"9600% <a$"n"40( F 3438n Z mo=0 [ mn=0 _ 200 di="a""u"+7 na:a>255 xi,a:i '0,0,0,0,1,7,31,127,1,7,31,127,255,255,255,255,128,224,248,254,255,255,255,255,0,0,0,0,128,224,248,254 M128,128,128,132,76L,58:,17,63? F112p,136,5,7,9 ,25,5,3 H1,1,1,33!,502,92\,136,252 O14,17,160,224,144,152,160,192 L64@,136,140,138,121y,10 ,12 ,8 I2,17,491,81Q,158,80P,480,16 O102f,204,153,513,102f,204,153,513 300, f=0212 7f+1,0;""  /f,0;"" f  400 ,m(9 ,30):h(9 ,2):i(9 ,2):d(20):x(6,9 ):y(6,9 ):c(6,9 ) 1 400 6i=16 @j=19 Ea,b Jx(i,j)=a:y(i,j)=b Tj ^i h 460 ri=16 wz | j=19 :c(i,j)=z:j i 2,4,4,3,6,2,2,6,4,5,6,4,2,8,4,7,6,6 10 ,5Track-Info  R ,12 ,6,14,7,10 ,7,12 ,8,14,9 ,10 ,9 ,12 ,10 ,14,11 16,7,18,6,20,5,16,9 ,18,8,20,7,16,11 ,18,10 ,20,9 24,2,26,3,28,4,24,4,26,5,28,6,24,6,26,7,28,8 15,1,17,2,19,3,13 ,2,15,3,17,4,11 ,3,13 ,4,15,5 £15,15,17,16,19,17,13 ,16,15,17,17,18,11 ,17,13 ,18,15,19 colores de las 6 caras 14,2,1,3,6,7  490 i=19 Ia,b,c,d:h(i,1)=a:h(i,2)=c:i(i,1)=b:i(i,2)=d i 610 ,2,17,13 ,21,2,14,13 ,17,0,10 ,11 ,9 ,4,22,4,14,0,21,11 ,9 ,8,22,8,19,1,12 ,12 ,12 ,1,19,12 ,9 ,6,22,6 c$="" c$="HGFEFEIJHGIJFEHGIJ" i=16 j=19 515:650 c=c(i,j):x=x(i,j):y=y(i,j)  550&+(502i5) &1;c;c;y,x;" " 0(1;8;c;y-1,x;" " 5(1;c;8;y+1,x;" " : 620l X*1;8;c;y,x-1;" " b21;8;c;y+1,x-1;" " l j i .1}L,40(  2  Gmo=121,0;0;7;1;"RUTINA ";fn  0  n=0  1 ]mn=3021,0;"RUTINA LLENA ":1,502:502:735 a$= 8a$="0".1}L,0:.15~,5:360h a$="q"n=1 a$"c"740 m21,0;" ":mo=mo:mn>1mn=mn+1:m(fn,mn)=300,:m(fn,1)=1  mn=1 Smo=1"N de la rutina creada:";fn:fn<1fn>9 fnɺfn737 #mo=1m(fn,1)=0 25:700 a$="3"n=2 a$="o"6000p a$="1"n=3 a$="i"6500d a$="a"n=4 a$="n"9300T$ a$="e"n=5  a$="d"n=6 a$="2"n=7 a$="m"9000(#:700  a$="w"n=8 %a$="f"7200  *a$="s"n=9 /a$="r"7000X 11mo=1n0mn=mn+1:m(fn,mn)=n 4*n=0.5,-10 :700 >.05|L,502 H 0 M s=2 Ra$= \a$="k"s=0 fa$="j"s=1 k4a$="l".3,0:mn=mn-1:700 p*s=2.5,-10 :840H r+mo=1s=1m(fn,mn)=-m(fn,mn) s 885u t 700 u#m=20:n7m=12 wJ7;0;i(n,s+1),h(n,s+1);c$(2*n-1+s) z.05|L,502 1000+(500*n)  d(20)  i=1m a,b  d(i)=c(a,b) i (1100L+(500*n)+(100d*s)  h=1m i,j:c(i,j)=d(h)  515 h J0;0;i(n,s+1),h(n,s+1);c$(2*n-1+s)  1SIGUE FIEL LA NUMERACION DE LAS LINEAS DATA A5,9 ,5,8,5,7,1,1,1,4,1,7,6,7,6,8,6,9 ,3,7,3,4,3,1,2,3,2,2,2,1,2,4,2,7,2,8,2,9 ,2,6 @A1,1,1,4,1,7,6,7,6,8,6,9 ,3,7,3,4,3,1,5,9 ,5,8,5,7,2,1,2,4,2,7,2,8,2,9 ,2,6,2,3,2,2 A3,7,3,4,3,1,5,9 ,5,8,5,7,1,1,1,4,1,7,6,7,6,8,6,9 ,2,9 ,2,6,2,3,2,2,2,1,2,4,2,7,2,8 A5,9 Track-Info  R ,5,6,5,3,4,3,4,6,4,9 ,6,3,6,6,6,9 ,2,9 ,2,6,2,3,3,1,3,2,3,3,3,6,3,9 ,3,8,3,7,3,4 4A4,3,4,6,4,9 ,6,3,6,6,6,9 ,2,9 ,2,6,2,3,5,9 ,5,6,5,3,3,3,3,6,3,9 ,3,8,3,7,3,4,3,1,3,2 A2,9 ,2,6,2,3,5,9 ,5,6,5,3,4,3,4,6,4,9 ,6,3,6,6,6,9 ,3,7,3,4,3,1,3,2,3,3,3,6,3,9 ,3,8 A5,7,5,4,5,1,4,1,4,4,4,7,6,1,6,4,6,7,2,7,2,4,2,1,1,1,1,2,1,3,1,6,1,9 ,1,8,1,7,1,4 (A4,1,4,4,4,7,6,1,6,4,6,7,2,7,2,4,2,1,5,7,5,4,5,1,1,3,1,6,1,9 ,1,8,1,7,1,4,1,1,1,2 A2,7,2,4,2,1,5,7,5,4,5,1,4,1,4,4,4,7,6,1,6,4,6,7,1,7,1,4,1,1,1,2,1,3,1,6,1,9 ,1,8 A2,1,2,2,2,3,3,1,3,2,3,3,4,3,4,2,4,1,1,3,1,2,1,1,5,7,5,8,5,9 ,5,6,5,3,5,2,5,1,5,4 A3,1,3,2,3,3,4,3,4,2,4,1,1,3,1,2,1,1,2,1,2,2,2,3,5,9 ,5,6,5,3,5,2,5,1,5,4,5,7,5,8 A1,3,1,2,1,1,2,1,2,2,2,3,3,1,3,2,3,3,4,3,4,2,4,1,5,1,5,4,5,7,5,8,5,9 ,5,6,5,3,5,2 A5,3,5,2,5,1,1,3,1,6,1,9 ,6,1,6,2,6,3,3,9 ,3,6,3,3,4,3,4,2,4,1,4,4,4,7,4,8,4,9 ,4,6 A1,3,1,6,1,9 ,6,1,6,2,6,3,3,9 ,3,6,3,3,5,3,5,2,5,1,4,1,4,4,4,7,4,8,4,9 ,4,6,4,3,4,2 tA3,9 ,3,6,3,3,5,3,5,2,5,1,1,3,1,6,1,9 ,6,1,6,2,6,3,4,9 ,4,6,4,3,4,2,4,1,4,4,4,7,4,8 debajo A3,7,3,8,3,9 ,4,9 ,4,8,4,7,1,9 ,1,8,1,7,2,7,2,8,2,9 ,6,9 ,6,6,6,3,6,2,6,1,6,4,6,7,6,8 A4,9 ,4,8,4,7,1,9 ,1,8,1,7,2,7,2,8,2,9 ,3,7,3,8,3,9 ,6,3,6,2,6,1,6,4,6,7,6,8,6,9 ,6,6 hA2,7,2,8,2,9 ,3,7Track-Info  R ,3,8,3,9 ,4,9 ,4,8,4,7,1,9 ,1,8,1,7,6,7,6,8,6,9 ,6,6,6,3,6,2,6,1,6,4 5,8,5,5,5,2,4,2,4,5,4,8,6,2,6,5,6,8,2,8,2,5,2,2 4,2,4,5,4,8,6,2,6,5,6,8,2,8,2,5,2,2,5,8,5,5,5,2 \2,8,2,5,2,2,5,8,5,5,5,2,4,2,4,5,4,8,6,2,6,5,6,8 n=8:capa transversal 5,6,5,5,5,4,1,2,1,5,1,8,6,4,6,5,6,6,3,8,3,5,3,2 1,2,1,5,1,8,6,4,6,5,6,6,3,8,3,5,3,2,5,6,5,5,5,4 P3,8,3,5,3,2,5,6,5,5,5,4,1,2,1,5,1,8,6,4,6,5,6,6 |3,4,3,5,3,6,4,6,4,5,4,4,1,6,1,5,1,4,2,4,2,5,2,6 4,6,4,5,4,4,1,6,1,5,1,4,2,4,2,5,2,6,3,4,3,5,3,6 D2,4,2,5,2,6,3,4,3,5,3,6,4,6,4,5,4,4,1,6,1,5,1,4 pSAVE CUBO z!"?Deseas grabar el cubo s/n";r$ r$(1)="n"700 1r$(1)"s".1}L,-10 :6010z "Nombre para grabar:";n$ &n$>10 űn$<16040 n$c() &20,0;0;0; "Deseas verificar s/n?";r$ r$(1)="n"700 1r$(1)"s".1}L,-10 :6070 n$c()  700 dLOAD CUBO n"?Deseas cargar s/n?";r$ xr$(1)="n"700 r$(1)"s"6510n "Nombre para cargar:";n$ n$>10 6540 &20,0;0;0; n$c()  500 Xdescolocacion bt=110 l(n=(*9 )+1:s=(*2) v 885u t  700  figuras  "?N de la figura (110)? ";nu =nu>10 nu<1nuɺnu.5,0:7300 "?Desea pausas s/n ";r$ -r$(1)"s"r$(1)"n"7315 7400+(100d*nu)  e(30) u=130 n,s n>10 7400 e(u)=n*(s-.5) u v=1u-1 .r$(1)="s".1}L,-20:0 -n=e(v):s=1-(1Ƽe(v)=-1)  885u v  700 LS7,1,9 ,1,7,0,9 ,0,20,20 s7,0,7,0,9 ,0,7,0,7,0,9 ,1,20,20 7,0,7,0,6,0,6,0,7,0,7,0,6,1,7,0,7,0,6,1,4,0,8,1,8,1,4,0,20,20 x3,1,2,0,4,1,6,0,3,1,2,0,4,1,6,0,3,1,2,0,4,1,6,0,20,20 4,0,6,1,3,1,2,0,4,0,6,1,3,1,2,0,4,0,6,1,3,1,2,0,20,20 @6,0,6,0,2,0,2,0,3,0,3,0,4,0,4,0,2,0,2,0,4,0,4,0,6,0,6,0,2,0,2,0,20,20 6,0,6,0,2,0,2,0,3,0,3,0,4,0Track-Info  R ,4,0,2,0,2,0,4,0,4,0,6,0,6,0,3,0,3,0,20,20 5,0,3,0,6,0,6,0,3,1,6,0,1,0,6,0,6,0,1,1,6,1,5,1,1,0,2,0,4,0,4,0,2,1,4,0,5,0,4,0,4,0,5,1,4,1,1,1,20,20 ls7,1,7,1,9 ,1,9 ,1,8,1,8,1,20,20 2,0,3,1,1,1,5,0,4,1,6,0,2,0,3,1,1,1,5,0,4,1,6,0,20,20 #('ejecutacion de una rutina predefinida #2"N de rutina a ejecutar:";nb #4*nb>9 nb<1nbɺnb90102# #7m(nb,1)=06;21,0;"RUTINA NO DEFINIDA":1,0:30:21,0;" ":9100# #<p=230 #F5n=m(nb,p):s=0:m(nb,p)=-1s=1 #Kn>10 9100# #P 885u #d-mo=1mn=mn+1:m(fn,mn)=m(nb,p) #xp # $T!DEFINIR CUBO POR EL USUARIO $^,#1;"PULSE EL N DEL COLOR QUE DESEA" $hi=16 $rj=19 $|c(i,j)=0:515 $a$= $"a$<"1"a$>"7"a$="5"9350$ $c(i,j)=a$-480 $ 515 $j $i $ 3438n % 700 % :6 %7.3,0:.5,5:.6,11 %1,0;" Teclas para el movimiento:"'''"(1,2,3) Planos verticales izq."''"(q,w,e) Planos verticales dcha." %g'"(a,s,d) Planos horizontales"''"j:mov. negativo k:mov. positivo"''" l: anulacion" %L'"0:Pone cubo en estado original"''"f: Realiza figuras artisticas" %U'"r: Realiza 10 movim. aleatorios"''"PULSA UNA TECLA PARA CONTINUAR":0: %0,0;"c: Permite crear una rutina definida por el usuario con un maximo de 30 movimienos. Pulsar c para finalizar la rutina. Se pueden mezclar rutinas ya creadas." %w''"m: Permite ejecutar una rutina ya creada."''"n: Permite que el usuario defina los colores de cada cuadro" %t'"o: Graba en cassette el estado del cubo"''"i: Permite cargar un cubo ya grabado anteriormente" &4[''"Pulsa una tecla para comenzar":.5,0:0:0:0:1: &H 80P PLUS3DOS({( {( 0:0:2: $6;4,13 ;"EAGLE";10 ,10 ;1;"PARE LA CINTA";0;18,10 ;"1985 J-MPP":100d: *2,13 ;"TECLAS:" 47,0;"Arriba.....Q.....P.";9 ,0;"Abajo......A.....L.";11 ,0;"Derecha....X.....M.";13 ,0;"Izquierda..Z.....N.";15,0Track-Info  R         ;"Fuego......1.....0." > 200 i=65368X65495  n:i,n:i 191,136,61=,255,33!,191,138,12 ,131,7,255,249,255,254,4,0,193,224,255,159,255,127,32 ,0 253,17,188,255,132,253,81Q,480,107k,8,61=,45-,239,237,41),61=,61=,60<,60<,60<,60<,118v,557,31 248,236,110n,60<,60<,60<,60<,188,188,150,181,247,180,188,16,212,0,0,204,0,513,0,0,0 4,4,16,16,4,4,16,16,106j,148,65A,160,128,72H,107k,148,46.,233,18,129,66B,129,106j,149 .2,7,47/,127,255,255,255,255,0,192,248,252,253,255,255,255,0,0,0,1,131,195,231,255,0,33!,99c,247,255,255,255,255 &5:5:3:0: ?0;21,0;"" ux=20:y=0:m=0:n=0:a=20:b=31:r=0:s=0:der=2:izq=0 ,f=0:g=0:j=0:k=0 izq=221004 izq=32200 izq=42300  m=x:n=y ="q"2050 ="a"2075 "1"2025 y>252025 xaxr2019 A(b-y6b-y>0)(s-y6s-y>0)2020 Yz=16:3;x,y+z;"":z:z=16:x,y+z;" ":z:2025 %di=b-y:dis=s-y:di31ū(x,y)45-7100 2;m,n;"";x,y;""  f,g;" "  f=m:g=n  2500 4x=x-1:x<0ū(x,y)45-7100  2;m,n;"";x,y;""  f,g;" "  f=m:g=n izq=3:2500 5x=x+1:x>21ū(x,y)45-7100  2;m,n;"";x,y;"" " f,g;" " % f=m:g=n *izq=4:2500 4 m=x:n=y >="q"2150f @="a"2175 A"1"2130R By<62130R Dxaxr2118F EA(y-b6y-b>0)(y-s6y-s>0)2120H FYz=16:3;x,y-z;"":z:z=16:x,y-z;" ":z:2130R H%di=y-b:dis=y-s:di21ū(x,y)45-7100 2;m,n;"";x,y;""  f,g;" "  f=m:g=n izq=4:2500  m=x:n=y ="z"2250 ="x"2275 "1"2230 x<62230 ybys2219 A(x-a6x-a>0)(x-r6x-r>0)2220 Yz=16:3;x-z,y;"":z:z=16:x-z,y;" ":z:2230 %di=x-a:dis=x-r:di31ū(x,y)45-7100 2;m,n;"Track-Info  R          ";x,y;""  f,g;" "  f=m:g=n izq=1:2500  m=x:n=y ="z"2350. ="x"2375G "1"2330 x>152330 ybys2320 A(a-x6a-x>0)(r-x6r-x>0)2321 Yz=16:3;x+z,y;"":z:z=16:x+z,y;" ":z:2330 %di=a-x:dis=r-x:di21ū(x,y)45-7100 $2;m,n;"";x,y;"" % f,g;" " & f=m:g=n ) 2500 .4y=y-1:y<0ū(x,y)45-7100 82;m,n;"";x,y;"" : f,g;" " = f=m:g=n Bizq=2:2500 G5y=y+1:y>31ū(x,y)45-7100 L2;m,n;"";x,y;"" N f,g;" " Q f=m:g=n Vizq=1:2500 der=23100 der=33200 der=43300 r=a:s=b ="p"3050 ="l"3075 "0"3028 b>253028 axam3018 A(y-b6y-b>0)(n-b6n-b>0)3020 Yz=16:3;a,b+z;"":z:z=16:a,b+z;" ":z:3028 %di=y-b:dis=m-b:di31ū(a,b)45-7200  1;r,s;"";a,b;"" j,k;" " j=r:k=s 1500 4a=a-1:a<0ū(a,b)45-7200  1;r,s;"";a,b;"" j,k;" " j=r:k=s der=3:1500 5a=a+1:a>21ū(a,b)45-7200  1;r,s;"";a,b;"" j,k;" " j=r:k=s der=4:1500  r=a:s=b &="p"3150N '="l"3175g ("0"3130: *b<63130: ,axam3118. -A(b-y6b-y>0)(b-n6b-n>0)31200 .Yz=16:3;a,b-z;"":z:z=16:a,b-z;" ":z:3130: 0%di=b-y:dis=b-n:di21ū(a,b)45-7200  l1;r,s;"";a,b;"" n j,k;" " q j=r:k=s vder=4:1500 r=a:s=b ="n"3250 ="m"3275 "0"3230 a<63230 bybn3218 A(a-x6a-x>0)(a-n6a-n>0)3220 Yz=16:3;a-z,b;"":z:z=16:a-z,b;" ":z:3230 %di=a-x:dis=a-m:di31ū(a,b)45-7200  1;r,s;"";a,b;"" j,k;" " j=r:k=s der=1:1500 r=a:s=b ="n"3350 ="m"3375/ "0"3330 a>153330 bybn3318 A(x-a6x-a>0)(m-a6m-a>0)3320 Yz=16:3;a+z,b;"":z:z=16:a+z,b;"":z:3330 %di=x-a:dis=m-a:di31ū(a,b)45-7200  1;r,s;"";a,b;"" j,k;" "  j=r:k=s  1500 4b=b-1:b<0ū(a,b)45-7200  1;r,s;"";a,b;"" " j,k;" " % j=r:k=s *der=2:1500 /5b=b+1:b>31ū(a,b)45-7200  41;r,s;"";a,b;"" 6 j,k;" " 9 j=r:k=s >der=1:1500 X22;0;#0;"OTRA PARTIDA? (s/n)" b="s"1000 l ="n" v"s"Ŧ"n"7010b (2;f,g;"";m,n;"":7000X  (1;j,k;"";r,s;"":7000X PLUS3DOSA%o1:1:7::i=115:1;10 ,10 ;"PARE LA CINTA":.5,i:i:  ?8,2;"NUMERO DE SOPAS POR PARTIDA?":a$:num=a$ $r(11 ):r$(11 ,10 ) #e=07:c:"a"+e,c:e m=20000 N:7:7:0::8,11 ;"COMENZAMOS":100d:j=1num::8,9 ;"SOPA NUMERO ";j:a$(1,6):m$(10 ,10 ) !1500:d$(6,6) Mc=16:b=1+(*15):n=115:a$(1) n=bd$(c)=a$(1) n:c +b=1+(6*):a$(1)=d$(b) al=(10 *):al>4f$(1,6):n=16:f$(1,n)=a$(1,7-n):n:a$(1)=f$(1) ,al1=(4*) @1840H+20*al1:e$,b,c$,d:e=e$:c=c$ T s1=e:s2=c hn=05 |'m$(e+b*n,c+d*n)=a$(1,n+1) n ,al>4s1=e+b*5:s2=c+d*5 e=110 c=110 0m$(c,e)=" "m$(c,e)=(65A+(26*)) c e  940 06=""m=m-1:3,1;m;" ":5600 De=110 :c=110 :1+2*e,11 +2*c;" ":c:e:10 ;"(f,c) ? ";x;", ";y Xs1=xs2=y700 b0:0: e$1560:k=11 :1200 l30:7:6,10 ;" FALLO USTED ":70F:12 ,3;" PENALIZACION DE 2000 PUNTOS ":70F:17,5;" Y ADJUDIQUESE UN CAPON ":100d vm=m-2000 (al>4d=d*-1:b=b*-1 7:7:0::940:20:1:n=05:1+2*(s1+b*n),11 +2*(s2+d*n);5;"":10 :n:0:200 :j=j-1:j n=13:.2~L,20:.15~Track-Info  R          ,15:.12}u[,20:n:.1}L,20:.2~L,17:30:.1}L,23:j :5,8;"MUY BUENO LO TUYO":1570":k=20:1200:12 ,7;"Tu puntuacion es de";16,10 ;m;" puntos":200 !C:8;"- LOS MEJORES -":f=0:mr(10 )f=1 "n=10 1-1 #mr(n)f=0f=f+1:1;6+n,6;n+1;:.3,10 :"NOMBRE ? ";r$(n+1):1;10 ;m;16;r$(n+1):r(n+1)=m:805% $m>r(n)n<10 r(n+1)=r(n):r$(n+1)=r$(n):6+n,0;6;n+1;10 ;r(n+1);16;r$(n+1):806& %>5+n,0;6;n;10 ;r(n);16;r$(n) &.2~L,0:n 'f=01;6,6;1;:.3,10 :"NOMBRE ? ";r$(1):1;10 ;m;16;r$(1):r(1)=m (@#1;" PULSAR UNA TECLA PARA EMPEZAR":0:240 4G0,76L,82R,82R,82R,82R,76L,0 H("1+(10*)",0,"1+(5*)",1 \("1+(5*)",1,"1+(10*)",0 p'"1+(5*)",1,"1+(5*)",1 ("1+(5*)",1,"6+(5*)",-1 s:7,152:502,0:0,-10 :-502,0:0,10 :3,1;m e=19 a84T+16*e,0:0,175:80P,-4+16*e:175,0 >0,11 +2*e;e:1+2*e,10 ;e e M244,0:0,175:80P,156:175,0 10,31;" ":21,10 ;" " 8e=16:6+2*e,1;d$(e):e $e=110 8c=110 L/1+2*e,11 +2*c;m$(e,c) `c te  140(:n=1k:f,g,h:g,f:h0h n  ܈"AXIOMA","ABRAZO","ADEPTO","AGALLA","ALAZAN","ALMENA","BOSQUE","BASURA","BUITRE","BLOQUE","BOTIJO","BOVEDA","BRECHA","BALADA","BATIDO" "CORONA","CHACAL","CABEZA","CARBON","CIERVO","DIGITO","DIENTE","DEBATE","******","DIBUJO","DRAGON","DONCEL","ENIGMA","ESCAMA","ELIPSE" "FLUIDO","FAROLA","FIGURA","FISICA","GACELA","GALERA","GOTERA","HIEDRA","HELADO","HUELLA","HUERTA","IRIDIO","INUTIL","ISLOTE","IRONIA" "JOROBA","JARABE","JIRAFA","LAGUNA","LEGION","LIEBRE","LOCION","LLUVIA","MALETA","MECHON","MEDULA","MUERMO","MUEBLE","ZAPATA","ZAHORI" "NAUSEA","NUMERO","NOMBRE","NERVIO","OBELIX","OBJETO","OFIDIO","ORILLA","PITUFO","POSTAL","POSTRE","PIEDRA","VIBORA","VIENTO","VITOLA" "ROTULO","RACIMO","RAPOSA","RULETA","SIRENA","SATIRA","SEISMO","SUEGRA","TURRON","TRONCO","TRACIO","TREGUA","URANIO","URRACA","UTOPIA" (-10 ,.5,4,-10 ,.5,4,-10 ,.2~L,0,-10 ,.5,20,-7,.5,4,-8,.2~L,0,-8,.5,4,-10 ,.2~L,0,-10 ,.5,10 ,-10 ,.1}L,2,-10 ,1,0 " 10 ,.1}L,5,10 ,.1}L,2.5 ,10 ,.05|L,0,11 ,.1}L,0,10 ,.1}L,1,8,.1}L,0,6,.1}L,0,10 ,.2~L,10 ,6,.1}L,0,13 ,.15~,2,13 ,.1}L,0,13 ,.1}L,0,15,.1}L,1,13 ,.1}L,0,11 ,.1}L,2,10 ,.1}L,0,10 ,.1}L,5,11 ,.1}L,0,8,.2~L,0,6,.2~L,0 PLUS3DOS***BUSCANDO PAREJAS*** ***  F. Molina *** *********************** :1:1:7::1;10 ,10 ;"PARE LA CINTA":i=115:.5,i:i::6:6:0:: Ta$(6,5):b$(6,5):c$(6,5):d$(6,5) 6,6;"MEMORIZA LA POSICION";8,9 Track-Info  R         ;"DE CADA DIBUJO";10 ,16;"Y";12 ,12 ;"SU DOBLE" !b=0:c=0:d=0 a=115 x=1+(6*) y=1+(5*) (a$(x,y)" "20 2?a=1a$(x,y)="":b$(x,y)="":c$(x,y)="":d$(x,y)="" 54 6k$(2)>535k$(1)<491k$(2)<491380| es$(1)>54 6s$(2)>535s$(1)<491s$(2)<491380|  x=k$(1):y=k$(2)  z=s$(1):v=s$(2) k$=" ":s$=" " $a$(x,y)=" "a$(z,v)=" "380| a$(x,y)a$(z,v)b$(x,y)b$(z,v)c$(x,y)c$(z,v)d$(x,y)d$(z,v)d=d+1:a=110 :.02{# =,20-a:a:.1}L,-20:600X:0,19;d:380|  c=c+1 9.5,10 :.25~,5:.5,20 0,9 ;c i(y),j(x);a$(x,y);b$(x,y) $i(y)+1,j(x);c$(x,y);d$(x,y) i(v),j(z);a$(z,v);b$(z,v) $i(v)+1,j(z);c$(z,v);d$(z,v) a$(x,y)=" ":a$(z,v)=" " >a=16:q=15:a$(a,q)" "380| q a 90,27;1;((d/c*100d))/100d ""Deseas continuar ? (s/n) : ";e$ e$=115s4  Xi(y),j(x);a$(x,y);b$(x,y) b$i(y)+1,j(x);c$(x,y);d$(x,y) li(v),j(z);a$(z,v);b$(z,v) v$i(v)+1,j(z);c$(z,v);d$(z,v) Aa=110 :.02{# =,20-a:a:.1}L,-20 i(y),j(x);" " i(y)+1,j(x);" " i(v),j(z);" " i(v)+1,j(z);" "   X0,0;"ACIERTOS:";c;0,12 ;"FALLOS:";d;0,22;"COEF:" *a=1174 40a,5;2;"" >8a+1,5;2;" " H8a+2,5;2;" " R8a+3,5;2;"" \a f p=6 ph=3194 z p=p-1 h,4;1;p h 19,2;"Y" J21,5;"X";21,7;1;"1 2 3 4 5 6"  i(5):j(6) l=22:m=2 +a=15:l=l-4:i(a)=l:a +t=16:m=m+4:j(t)=m:t f=51-1 g=16 i(f),j(g);a$(g,f);b$(g,f) $i(f)+1,j(g);c$(g,f);d$(g,f) g f  Track-Info  R          PLUS3DOSo1:1:7::1;10 ,10 ;"PARE LA CINTA":i=115:.5,i:i:  9000(#  9950& .p=0:xx=3:a=5:b=12 a1=0:b1=0  i=0 c1=0:d1=0 e1=0:f1=0 g1=0:h1=0 0:5:1: ,}z=621:1;z,0;"":z:j=0:k=0:ll=0:zz=0 1H4;1;21,0;"________________________________" 6)5;5;5,0; %c=(*6)+10 :d=30 %e=(*6)+14:f=15 %g=(*10 )+11 :h=0 X>5;a,b;" ";1;c,d;" ";e,f;" ";g,h;" " ]32;0,0;"PUNTOS:";p,"VIDAS:";xx b="x"b<27b=b+1 gxx=09900& l="z"b>0b=b-1 v)j=j+1:k=k+1:ll=ll+1 =" "i=0i=1 H6;1;21,0;"________________________________" >d=d-.8L:d<0d=30:c=(*6)+10 >f=f-.5:f<0f=30:e=(*6)+14 @h=h+1.5@:h>31h=0:g=(*10 )+11 P0;5;a,b;"";6;1;c,d;"";e,f;"";g,h;"" gi>1ƫ(a1,b1)=142;1;a1,b1;"":.8L,5:p=p+100d:i=0 wi=1a1=a+1:b1=b+2:1;1;a1,b1;"";7;1;a1+1,b1;"":i=i+1 Ƶi>11;1;a1,b1;" ":a1=a1+1:7;1;a1,b1;"":a1=216;1;a1,b1;"":.2~L,-15:1;a1,b1;" ":i=0 Jj=1c1=c-1:d1=d:7;1;c1,d1;"":j=j+1 bj>11;1;c1,d1;"":c1=c1-1:7;1;c1,d1;"":8010J  Jk=1e1=e-1:f1=f:7;1;e1,f1;"":k=k+1 *bk>11;1;e1,f1;"":e1=e1-1:7;1;e1,f1;"":8100 Mll=1g1=g-1:h1=h:7;1;g1,h1;"":ll=ll+1 cll>11;1;g1,h1;"":g1=g1-1:7;1;g1,h1;"":8200 @ 600X Jc1=6ƫ(5,d1)=40(1;c1,d1;"";2;0;5,d1;"":1,-15:zz=1:xx=xx-1:xx09900& Lzz=1300, Oc1=61;c1,d1;"":2;5;5,d1;"":.2~L,3:5;5,d1;"":c1=0:d1=0:j=0 T e1=6ƫ(5,f1)=40(1;e1,f1;"";2;0;5,f1;"":1,-15:zz=1:xx=xx-1:xx09900& zz=1300, e1=61;e1,f1;"":2;5;5,f1;"":.2~L,3:5;5,f1;"":e1=0:f1=0:k=0  g1=6ƫ(5,h1)=40(1;g1,h1;"";2;0;5,h1;"":1,-15:zz=1:xx=xx-1:xx09900& zz=1300, g1=61;g1,h1;"":2;5;5,h1;"":.2~L,3:5;5,h1;"":g1=0:h1=0:ll=0  #(kz=07:x:"a"+z,x:z:0,0Track-Info  R         ,1,1,31,127,255,127 #2nz=07:x:"b"+z,x:z:0,0,0,128,226,250,255,128 #,255,255,255 #Ppz=07:x:"e"+z,x:z:16,16,524,62>,254,255,255,255 #Zlz=07:x:"f"+z,x:z:0,0,0,0,128,160,255,255 #diz=07:x:"g"+z,x:z:0,0,0,0,0,72H,255,254 #nfz=07:x:"h"+z,x:z:0,0,0,60<,60<,0,0,0 #xqz=07:x:"i"+z,x:z:66B,66B,41),186,244,126~,127,255 #fz=07:x:"j"+z,x:z:8,8,8,8,8,8,20,34" #hz=07:x:"k"+z,x:z:0,0,0,1,71G,95_,255,1 #pz=07:x:"l"+z,x:z:0,0,128,128,248,254,255,254 #mz=07:x:"m"+z,x:z:1,11 ,15,14,60<,568,240,224 #pz=07:x:"n"+z,x:z:16,20,84T,84T,124|,124|,126~,255 # &2;5;0,22;"0":0;5;2;a,b;" ";0;" ":z=60-1:.07}\(,16:z:z:7;1;12 ,10 ;"GAME OVER";20,3;"PULSA S PARA VOLVER A JUGAR" &!="s"2,2:4 & ="n" & 9910& &1:1:7:0:0:0:23658j\,0::7;1;4,12 ;"SUBMARINO";12 ,0;" ":1;7;21,0;" Por PABLO TABERNA  1985":1,-1:.2~L,-6:.2~L,-1:1,3:7;1;15,9 ;"Z_____IZQUIERDA";17,9 ;"X_______DERECHA";19,9 ;"SPACE___DISPARO":250 ' PLUS3DOS- XAVIER ALAMAN - o1:1:7::1;10 ,10 ;"PARE LA CINTA":i=115:.5,i:i: I23658j\,8:c(26):l$(32 ):m(10 ):p(6) s127,32 ,88X,46.,65A,76L,65A,77M,65A,78N,2600( ,2500 ,500,2900T ,3100 ,500,500,2500 ,500,2500 ,2500 ,3100 ,500,4600,3020 ,4100,3100 ,3100 ,2800 ,500,500,2500 ,3100 ,3000 ,5000,3100 +d$="":i=110 :v:d$=d$+v:i i=126:c(i):i %i=110 :m(i)=0:i 2n$="QWERAHJKVBMZQWEHXM":w$="-^-+/*." $i=16:p(i)=0:i (*ord=0:s=0:corrpila=0 d$1000:2700 :1710 1500 Lord=0b$=a$:1760:3,3;b$:s=0:2000 ,a:200   pantalla 0:6: "1:l$;21,0;l$ 1i=021:j=03131  i,j;" " j:i i0:15,135:0,25:105i,0:0,-25:-105i,0 $i=2314324 .T23,i:0,9 :89Y,0:0,-9 :-89Y,0 8i Bb127,33!:0,127:113q,0:0,-127:-113q,0 L2:2,2;l$(13 );4,2;l$(13 );3,2;" ";3,14;" ";2,17;l$(13 );4,17;l$(13 );17,17;l$(13 ) V2i=217:j=162913 ` i,j;" " jj:i t;i=516:7;i,17;l$(12 ):i ~Bi=3183:i,3;7;lTrack-Info  R          $(11 ):i =3,19;6;"MEMORIAS";19,18;d$ ?i=09 :i+6,16;2;7;i:i  7:  tecla =""1500 a$= .05|L,20 =a$1510 a$"9"a$"0"ord=0: 1a$"A"a$"Z"ord=1:a=c(a$-64@): +a$=13 ord=1:a=1600@:  1500 6 enter @$1700:1720:1760 Jcorrpila=0:  push pila Hi=62-1:p(i)=p(i-1):i:p(1)=0:  pinta pila fi=26:q$=p(i):4000:3*i,3;l$(11 );3*i,3;q$:i:  pop pila ?i=25:p(i)=p(i+1):i:p(6)=0:  borra display "3,3;l$(11 ):  coge cifra "corrpila1700:1720 corrpila=1  1500 ord2070 -b$9 +s1,30:2020 b$=b$+a$:3,3;b$  2020 !a$"M"a$"E"p(1)=b$:  a$="E"2160p * b$=b$+".":3,3;b$ 4 1500 >%orda$"M"a$"E"p(1)=b$: Ha$="E"2160p R5a$="M"űb$10 +s1,30:21004 \b$=b$+a$:3,3;b$ f 21004 pAb$=b$+"E":q$=b$:4000:3,3;q$:flag=0 z 1500 fordflag=0a$="A"b$=b$+"-":q$=b$:4000:3,3;q$:flag=1:2170z ord 2170z 2b$=b$+a$:q$=b$:4000:3,3;q$ /1500:ord1,30:2220 2b$=b$+a$:q$=b$:4000:3,3;q$ 01500:ord1,30:2240 p(1)=b$: - rutina error - v3,3;"Error ":2,30:1760:q$=p(1):4000:3,3;q$:  operac. binarias )a$="H"p(2)<02300: *a$="H"p(1)=p(2)^p(1) *a$="J"p(1)=p(2)-p(1) *a$="K"p(1)=p(2)+p(1) )a$="V"p(1)=02300: *a$="V"p(1)=p(2)/p(1) *a$="B"p(1)=p(1)*p(2) icorrpila=1:1760:q$=p(1):4000:3,3;q$:1740:1720:  signo (4s=1:b$="-":1760:3,3;b$ 2 2000 <a:  pinta memorias ii=110 :q$=m(i):4000:5+i,18;l$(11 );5+i,18;q$:i:  mete en memoria +5,21;0;7;"STO" 1500:ord2810 m(1+a$)=p(1)  2700 5,21;" " " J saca de memoria T+5,21;0;7;"DTA" ^1500:ord2910^ h"corrpila1700:1720 rcorrpila=1 |p(1)=m(1+a$) =1760:q$=p(1):4000:3,3;q$ 5,21;" "  clear 4p(1)=0:corrpila=0:1760: off "Estas seguro ?";a$ a$="S"10   operac. monarias ?a$="Z"p(1)>0p(1)=p(1):3300 &,a$="Q"p(1)=p(1):3300 0,a$="E"p(1)=p(1):3300 :,a$="W"p(1)=p(1):3300 D,a$="R"p(1)=p(1):3300 N[a$=d$(6)p(1)>0p(1)=.434294481933^[ة*p(1):3300 81760:3,3;"Error":2,30 ?1760:q$=p(1):4000:3,3;q$:  CONTROL DISPLAY q$11 l=1̱q$ q$(l)="E"4050 l !q$=q$(l+10 -q$)+q$(l):  funcion segunda 1490:ord4110 4200h+a$ "Pq$=p(1):4000:3,3;l$(11 );3,3;q$ , h rutinas segundas  p(1)=p(1)  ,p(1)0p(1)=p(1)  &1700:1710:p(1)=  -p(1)1p(1)=p(1)  /p(1)1p(1)=p(1): p(1)=p(1)   rotacion pila v=p(6):1690:p(1)=v:1710:q$=p(1):4000:3,3;l$(11 );3,3;q$    ayuda :6:i=120:i,1;l$(30):Track-Info  R         i ;i=112 :2+i,5;n$(i);"=";w$(i):i !15,5;"X=CLEAR";16,5;"L=LOG";17,5;"Y=AYUDA";18,5;"N=NEXT";3,19;"O=OFF";4,19;"S=STORE";5,19;"D=DATA";6,19;"P=FUNC.2";9 ,19;5;"FUNCIONES";10 ,19;"SEGUNDAS" 5i=13 18:i,19;n$(i);"=";w$(i):i =""5050 U1000:1710:q$=p(1):4000:3,3;q$:2700  PLUS3DOS  V{1:1:7::1;10 ,10 ;"PARE LA CINTA":i=115:.5,i:i::9900& 4:2:1: 7;2,1;"El tio TOMAS se ha perdido en el CEMENTERIO";5,1;"trata de encontrarlo levantando las tumbas";7,1;"Hay tumbas encima de otras tum- bas" 6;10 ,1;"Hay un monstruito que con el brazo te indica la direccion en que se encuentra el escondite del tio TOMAS" Y6;15,0;"El monstruito pude morirse antes de decir algo":0:  9000(# d'ju=ju+1:ju>2ju=1 g"ju=2nu=1300, iB(n$(ju));"Que tumba mueves ?";n:n<0n>99c105i n&p$(1,n+1)="#"105i x!x=(n/10 ):y=n-x*10 }r=(*5) Cr=1a$="":b$="":v=0:S=4:Z=S:190 n=d500 p$(1,n+1)="#" nda$="" S=2:Z=S:V=30 *r=2a$="":v=0:S=0 b$="" t1;z;2+x*2,6+y*2;b$;0;1+x*2,6+y*2;"":.5,v l1;S;1+x*2,6+y*2;a$;Z;2+x*2,6+Y*2;b$:.1}L,v a$=""manma=n-1 a$=""minmi=n+1 100d +julai ,Mnx=(*(ma-mi+1)):n=nx+mi:.3,n-502:nma300, 6&p$(1,n+1)="#"300, @ 120x a$="":b$="" u1;7;2;1;1+x*2,6+y*2;a$;2+X*2,6+Y*2;b$ :ju=1p1=p1+1:1;19,2;p1 &;ju=2p2=p2+1:1;19,29;p2 0a0.3,15:0.3,10 :0.1}L,8:0.1}L,8:0.1}L,8 1a0.3,15:0.3,10 :0.1}L,8:0.1}L,8:0.1}L,8 2t0.3,15:0.3,10 :0.2~L,8:0.2~L,7:0.2~L,8:0.5,5 :An=210-1:7;1;n,0;t$:n Dp1fip2fi9960& N 9100# #(l7;10 ,5;"UNO O DOS JUGADORES ?":nu:nu1nu22,0:9000(# #223658j\,9 :236099\,10 :n$(2,11 ):m=1nu:6;10 ,5;1;" TECLEE EL NOMBRE DEL ";12 ,12 ;" VALIENTE ";m:n$(m):1,8:m:n$(1)=n$(2)90102# #7'nu=1n$(2)="THE CPU Z80" #<$ju=1:p1=0:p2=0 #F&"Cuantas veces nos arriesgamos ?";fi #Z 0 #;6:6:1:2:p$(1,100d) #?n=021:n,0;"";n,27;"":n #1,1;"VAL";1,28;"VATrack-Info  R          L";3,2;"1";3,29;"2":m=12:n=1̱n$(m):1;n+4,2+(27m=2);n$(m,n):n:m #n=09 $W1;7;0,n*2+6;" ";n;21,n*2+6;" ";n $1;7;n*2+1,5;" ";n*2+2,5;n;n*2+1,26;" ";n*2+2,26;n $6;0;1;n*2+1,6;"";n*2+2,6;"" $,n $6lju=ju-1:17,1;"PTS";19,2;p1;17,28;"PTS";19,29;p2 $@ma=99c:mi=0 $Td=(*100d) % 10 &n=0119w &b:"a"+n,b:n &M15,23,47/,94^,190,176,176,190 &O224,224,240,124|,124|,12 ,12 ,124| &J254,94^,94^,46.,47/,23,23,31 &Q124|,120x,120x,112p,240,224,224,192 &E1,3,5,3,65A,35#,20,15 &B1,3,5,3,1,3,4,15 &C8,1,3,4,8,16,40(,0 &M128,192,80P,192,128,0,224,16 &M128,192,80P,192,130,4,232,16 &J240,128,192,32 ,26,8,20,0 &M0,249,137,249,209,201,197,0 &M0,159,145,159,152,152,152,0 &I165,0,165,0,0,165,0,165 &G140,546,59;,28,30,6,7,0 &M125},108l,220,480,112p,64@,192,0 &#i=07:x:"p"+i,x:i &O0,160,240,248,140,173,143,255 &#j=07:y:"q"+j,y:j &J0,5,15,31,491,181,241,255 &'t$="* * * !CEMENTERIO! * * *" & 2 &F1;8,11 ;" LO ENCONTRO ";10 ,11 ;n$(ju) &!#1;"Otra partida ? (S/N)" &!r$=:r$"S"r$"N"9975& &r$="S"9020<# ' '"ULTRATUMBA"1 PLUS3DOS]  "spectrad-7"  F.J.Carrion (1984) 2"Memoria utilizada: 10376 bytes." o1:1:7::i=115:1;10 ,10 ;"PARE LA CINTA":.5,i:i:  540 (7:0::7 2Id(21):a(7):b(7):c(7):e(7):f(7) d(i)=((*42*+1)/2):d(i)=080P Z5i1k=1i-1:d(i)=d(k)80P di1k ni s Instrucciones  xq=0:4:2::0:20,2;"Pulsa-Tecla para continuar":7:1:7,1;"Fijate en una carta, la";10 ,6;"retienes en tu memoria";13 ,2;"y me dices en que monton esta":0:0: q=q+1:2:4 'q1:0:20,2;"Pulsa-Tecla para continuar":7:1:5,1;"Vuelve a fijarte en las cartas";8,3;"de la pantalla, y dime en que";11 ,1;"monton esta la CARTA que";14,11 ;"MEMORIZASTE":0:4:0:  Define montones  a:z=17:a(z)=d(z*3-2):b(z)=d(z*3-1):c(z)=d(z*3):z  Dibuja baTrack-Info  R raja  1,1;7;1;"MONTON";;4,4;"1";10 ,4;"2";16,4;"3":0:2:7:i=48:i,26;"":i:0:4 Define carta a dibujar {z=17:30:a=a(z):t=1:440:a=b(z):t=7:440:a=c(z):t=13 :440:z  Elige monton  q=4380| S1;12 ,24;0;"Elige";14,25;"Monton":0 q$=:q$=""200 Dm=q$-480:m<1m>3.3,-10 :200 .1}L,30 =m=316,4;1;7;m:300, =m=210 ,4;1;7;m:320@ &4,4;1;7;m   Baraja montones  ,i=17:e(i)=a(i):f(i)=b(i):i ,i=17:b(i)=e(i):a(i)=f(i):i " 320@ ,,i=17:e(i)=c(i):f(i)=b(i):i 6,i=17:b(i)=e(i):c(i)=f(i):i @ s=0 J7z=71-1:s=s+1:d(s)=a(z):z T7z=71-1:s=s+1:d(s)=b(z):z ^7z=71-1:s=s+1:d(s)=c(z):z hq=3380| r 130 w Carta adivinada  |Y4:a=d(11 ):q=5:440::1:c:7;9 ,11 ;b$;" ";10 ,11 ;a$;" ";11 ,11 ;" ";12 ,11 ;" ";a$;13 ,11 ;" ";b$;0;3,5;"(Si no me has mentido):";6,3;"ESTA ES LA CARTA QUE HABIAS";9 ,16;"MEMORIZADO":0 I18,5;0;1;"Jugamos otra vez ? (s/n)":0 Zn=16:z$=:z$=""n:.03{u\,(n+25)*2-20:n:400 z$="s"z$="S"120x  2000  630v  Define palo y numero  ya$=(""(a>0a5))+(""(a>5a10 ))+(""(a>10 a15))+(""(a>15a21)) !a>0a10 c=2 "a>10 a21c=0 (a>1a<10 b$=a:500 :a>13 a<22b=a:b$=(b-12 ):500 Xb$=(""a=10 )+("J"a=11 )+("Q"a=12 )+("K"a=13 )+("A"a=1) a=18b$="" a=20b$="Q"  q=5  630v  Define graficos  L0,16,568,124|,254,254,214,16 &K0,568,568,16,214,254,214,16 0M0,108l,254,254,124|,124|,568,16 :G0,76L,82R,82R,82R,82R,76L,0 DA2,2,2,2,2,2,2,2 NM153,90Z,60<,255,255,60<,90Z,153 XK0,16,568,124|,254,124|,568,16 b$n=0557:r:"a"+n,r:n l q Dibuja cartas  v.05|L,15 sz=11:7:;t+1,6+(z*2);c;b$;" ";t+2,6+(z*2);c;a$;" " z=1t+3,6+z*2;" ";t+4,6+z*2;c;" ";a$;t+5,6+z*2;c;" ";b$:0: 1:0:7:t+1,5+(z*2);0;"";c;b$;" ";t+2,5+(z*2);0;"";c;a$;" " 0:7:t+3,5+z*2;0;"";" ";t+4,5+z*2;0;"";7;c;" ";a$;t+5,5+z*2;0;"";7;c;" ";b$ 0:4  Track-Info  R PLUS3DOSAAA23658j\,8 o1:1:7::i=115:1;10 ,10 ;"PARE LA CINTA":.5,I:I: R(3):P(2):T$(3,6):R(1)=0:R(2)=0:R(3)=0:O$="000000":T$(1)="000000":T$(2)="000000":T$(3)="000000" gO(2):I(2):G$(4,6):E$=" ":G$(1)="":G$(2)="":G$(3)="" A=144157 "B=07:C:A+B,C:B (A 2***PRESENTACION*** <C$(7,20) F4:0:0: Pt64@,144:-32 ,0:0,-16,:28,0:0,8,:-26,0 Z80P,128:0,16:32 ,0:0,-8,-:-32 ,0:112p,136:6,-8,-/4 d136,128:0,8:4,8,-/2:28,0:4,-8,-/2:0,-8:172,136:-36$,0 nM192,128:0,16:40(,-16:0,16 x_24,96`:0,16:32 ,0:0,-8,-:-32 ,0 80P,96`:0,16:32 ,0:0,-8,-:-32 ,0:112p,104h:6,-8,-/4 s136,96`:40(,0:136,112p:40(,0:156,96`:0,16 P192,96`:40(,16:192,112p:40(,-16 25 "B=06:C$(B+1) EA=06:15+B,A;3;1;" ":5:A zA=726:3;1;15+B,A;"":7;0;15+B,A-1;C$(B+1,A-6) 2:A jA=2630:3;1;15+B,A;" ":2:A=3015+B,31;" " 2:A:B +A=012 :6*:7:A 0 %5;12 ,0;"PULSA " -5;12 ,18;" PARA EMPEZAR" 55;1;12 ,6;" E N T E R " /T=170F:T:13 246 P=0:VC=.5 CR=3220  \V=0:IV=.075}:CO=1:MV=5:SV=MV:TI=0:K=0:K2=0 ***CIRCUITOS*** 0:6: "CR 'B=022 )XO,YO:7;XO,YO ,6A=119+B:XC,YC,AC:7;XC,YC,AC:A 1B 6EYS,XS,YL,XL,YCV,XCV,YB,XB,P(1),P(2),A1,F,Y,X,MA,MF,R,NB @CR-1720 J 4 AA=02:7;1;YS+A,XS;(152+A):A I3;1;P(1),P(2);"";7;1;Y,X;"" -2;0;1;YL,XL;"" <0;7;YCV,XCV;MV;YCV,XCV+2;3;SV kA=01:7;0;YB+A,XB;"":A:CR=3220 7;0;YB+2,XB;"" ֘1,0;3;O$(6-P)+P;1,14;2;T$(1);1,26;7;"1";1,30;6;V [0,3;"PUNTOS";14;2;"RECORD";0,26;6;"VELOC."  R:A,Z,B ***SALIDA*** A=14:YL+2,XL+2;1;7;1;"BOXES";YL+1,XL+4;1;7;"^":T=1502:T:YL+2,XL+2;1;"BOXES";YL+1,XL+4;1;"^":T=1502:T:A tYL+2,XB+1;1;"ATENCION!!":T=1250:T:YL+2,XB+1;1;"ATENCION!!" YS,XS;2;1;"":.05|L,20:T=1100d:T:YS+1,XS;2;1;"":.05|L,20:T=1100d:T:YS+2,XS;4;1;"":1,20 BYB,XB;" ";YB+1,XB;" ":CR=3220 YB+2,XB;" " ***CARRERA*** I(1)=VC*A1 I(2)=VC*A1 F=A1/*4+144 &.O(1)=P(1):O(2)=P(2) 0-1;3;P(1),P(2);F 5CO=NBR:CO=1 :FO(1),O(2);" ":P(Z)=BA1,Z,B:CO=CO+1:520 D.O(1)=P(1):O(2)=P(2) NDP(1)=P(1)-I(1):P(2)=P(2)+I(2) X="B"MA=MA-/4 b="V"MA=MA+/4 l%="Q"V=V+(IVV(.075}Track-Info  R /IV)) v="A"V=V-(IVV>.05|L) +="S"V=V-.2~L:V<0V=0 <="1"IV=.075}:7;1,26;"1" ;="2"IV=.04|# =:7;1,26;"2" OMF=MF UMF=((MA-2**(MA/2/))/*4)+144:MF>151MF=144  OX=X:OY=Y X=X+V*MA:Y=Y-V*MA X<0X=0 X>31X=31 Y<2Y=2 Y>21Y=21 +(Y,X)=7V=V-(.1}LV.1}L) 'V>1IV=.075}V=V-.1}L ;(Y,X)7ƫ(Y,X)6ƫ(Y,X)71G2400` 1K2=0Y,X;1;1;7;MF 4K2=01;1;7;OY,OX;OMF 9P=P+(10 *V):1,3;O$(6-P)+P J6;1,28;E$(3-(150*V))+(150*V)  &X<(XB-2)Y>16K=1 >X>(XB-2)X<(XB+1)Y>16MV=MV-K:K=0  'X>(XB+1)Y>16K=-1 %TP(2)=(XB-1-(1CR=3250 ))P(1)>16SV=SV-1 *47;YCV,XCV;MV:3;YCV,XCV+2;SV 4MV=0850R > SV=00:900 H 5600 M***FINAL CARRERA*** R.1;7;0,14;"TIEMPO" W6V=0:K2=01,0:OY,OX;" " Y K2=1 \TI=TI+1 f/1,14;" "(6-TI)+TI z }MV0:5;2;11 ,11 ;"FIN DEL JUEGO":R=0-20-1:.05|L,R:R:950 BO=TI*10 :MV=0 1;7;1;4,6;"FELICITACIONES !!";11 ,11 ;0;"PUNTOS";12 ,11 ;O$(6-P)+P;14,11 ;2;"BONOS";15,12 ;" "(4-BO)+BO IBO=BO-10 :P=P+10 :.01z# =,20:BO>0915 DMV=0CR=3310 VC=VC+(.5VC<1.5@):260 CR=CR+30:265  ***FINAL DE JUEGO*** 2A=13:P>T$(A)T$(A)=P:990 A ***RECORD*** >A=13:P>T$(A)G$(A)=G$(4):990:A  1060$ ޕCT=0:2:7::3,8;"GRAN PUNTUACION ";5,4;"INTRODUCE TUS INICIALES";10 ,13 ;1;"******" ""1000 =""1010 1CT=CT+1:CT=7502:1040 ?G$(A,CT)=:5;10 ,12 +CT;1;G$(A,CT);  1000 $0:7: ..E=12 14:E,13 ;"":E B#15,13 ;"" L9E=1618:E,7;"":E V]1;11 ,13 ;"";14,19;"";15,7;"" `&3,7;"***LOS MEJORES***" j\9 ,13 ;G$(1);12 ,19;G$(2);14,7;G$(3) tq10 ,13 ;T$(1);13 ,19;T$(2);14,7;T$(3):0:250 DA=816:4;A,6;" ":A 87;9 ;1;11 ,14;" TEST "  1A=79 :4;A,17;" ":A >A=10 18:4;A,12 ;" ":A 5A=1516:4;A,7;" ":A ;7;0;1;13 ,14;" LE MANS "  AA=28:4;A,14;" ":A ;A=9 12 :4;A,21;" ":A "5A=11 14:4;A,6;" ":A '<A=1516:4;A,6;" ":A ,87;0;1;5,19;" MONZA " 1 6<A=27:4;A,0;" ":A ;4A=27:4;A,27;" ":A @7A=12 14:4;A,10 ;" ":A E<A=1518:4;A,4;" ":A J87;0;4,3;1;" JARAMA "  `K2=1 %6;8;1;Y,X;"" OY,OX;" " +T=15:.05|L,-40(:T V=0 .2;1;8;1;Y,X;MF T=1502:T %6;8;1;Y,X;"" T=1502:T .2;8;1;1;Y,X;"" T=1502:T &7;8;;1;Y,X;"" T=1502:T 7;1;OY,OX;OMF Y=OY:X=OX:MF=OMF  O22Track-Info  R 4,230,64@,126~,126~,64@,230,224 L102f,238,220,568,16,12 ,28,24 K0,90Z,90Z,24,24,219,255,195 M0,192,230,119w,59;,208,224,96` I7,103g,2,126~,126~,2,103g,7 M96`,224,208,59;,119w,230,192,0 K195,255,219,24,24,90Z,90Z,0 L24,28,12 ,16,568,220,238,102f Q255,129,129,153,189,189,153,129 Q129,129,153,189,189,153,129,129 &Q129,153,189,189,153,129,129,255 0G36$,36$,36$,0,36$,36$,36$,0 :N12 ,64@,127,126~,254,255,126~,480 DM12 ,94^,14,68D,113q,255,254,124| N"B......DERECHA " X"V......IZQUIERDA " b"Q......ACELERADOR " l"A......DESACELERADOR" v"S......FRENO " "1......MARCHA CORTA " "2......MARCHA LARGA " 568,34",144,0,0,22,22,/2,0,42*,0,-20,20,/2,-144,0,0,-20,-20,/2,0,-42*,0,22,-22,/2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 &568,6,146,0,0,502,502,/2,0,40(,0,-46.,502,/2,-146,0,0,-502,-502,/2,0,-42*,0,502,-480,/2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 14,13 ,16,18,16,9 ,18,16,18,15,0,144,20,15,0,144,3340 ,7 +212,24,0,28,3*/4,0,24,-/4,-4,12 ,/2,-20,20,0,-12 ,3,/4,-16,0,0,-8,7,-/2,-8,8,/2,-12 ,0,0,-20,-22,-/2,-8,0,0,-16,-16,/2,-12 ,-12 ,-/4,-26,-26,0,-4,-10 ,/4,22,0,0,24,-10 ,-/2,8,-6,/2,112p,0,0 Z232,4,20,28,/6,0,8,0,-8,16,/4,0,8,-/2,0,16,0,-8,16,/2,-32 ,32 ,0,-8,8,/2,-16,0,0,-8,8,-/2,-8,8,/2,-40(,0,0,-16,-8,/2,-16,-8,-3*/4,-24,-16,/2,-16,-24,-/4,-480,-480,0,8,-28,/2,502,0,0,12 ,-16,0,158,0,0 Ƥ16,16,18,20,18,12 ,19,18,20,16,0,144,19,17,0,144,3350 ,8 (208,34",8,4,/4,4,8,3*/4,-524,0,0,-24,8,-/4,-24,8,/4,-12 ,8,-/4,-480,480,0,-8,8,-/4,0,8,/2,-14,0,0,6,-16,3*/4,4,-28,-/4,0,-524,0,16,0,3*/4,24,-5,-/4,120x,0,0,0,0,0,0,0,0,0,0,0 f222,12 ,8,8,/4,16,16,0,-16,32 ,5*/6,-568,0,0,-16,8,-/4,-Track-Info  R 20,8,/4,-16,8,-/2,-40(,40(,0,-8,8,-/4,-16,16,/2,-36$,0,0,-8,-44,,3*/4,8,-16,-/2,0,-68D,0,8,-16,/3,16,-8,0,16,8,2*/3,16,0,-/3,146,0,0,0,0,0,0,0,0 15,11 ,17,19,17,13 ,18,16,18,15,0,144,19,14,0,144,3360 ,9 168,24,24,16,/2,26,24,0,-8,8,,-32 ,-32 ,0,-40(,40(,-,16,16,/3,24,32 ,-/3,-2,8,,-40(,-40(,0,-14,-10 ,-3*/4,-40(,0,0,-8,-14,/8,-28,-20,-/2,-12 ,4,,0,-32 ,0,28,0,0,106j,0,0,0,0,0,0,0,0 >180,2,40(,32 ,/4,24,24,0,-38&,40(,,-480,-480,0,0,16,-,22,24,/3,18,24,-/12 ,16,32 ,/4,-20,20,0,-24,0,/2,-480,-480,0,-8,-8,-/4,-40(,0,0,-24,-24,3*/4,0,-8,-,-40(,-8,,0,-524,0,32 ,-16,/2,138,0,0,0,0,0,0,0,0 16,13 ,18,15,18,9 ,19,12 ,19,11 ,0,144,20,10 ,0,144,3370* ,15 0,2,27,/4,1,15,/2,1,9 ,3*/4,2,27,,2,3,3*/2,1,18,0,2,12 0,2,28,/2,1,11 ,3*/4,2,22,,2,13 ,5*/4,1,17,0,2,7,7*/4,2,10 ,0,2,16 0,2,27,/4,1,15,,2,21,3*/4,1,12 ,,2,15,3*/4,1,3,,2,3,3*/2,1,18,0,2,15 *0,2,23,/4,1,13 ,3*/4,2,26,5*/4,2,20,,2,17,/2,1,13 ,/4,1,7,/2,1,4,,2,20,5*/4,2,14,,2,8,5*/4,2,5,,2,2,3*/2,1,19,0,2,11 Track-Info  R PLUS3DOSzz***********************  A.F.C. 1985 Madrid ***********************  "z=-1:d=6:v=6 o1:1:7::10 ,10 ;1;"PARE LA CINTA":I=115:.5,I:I:   i="a""g"+7:a:i,a:i 0,119w,65A,65A,0,65A,65A,119w,36$,36$,231,0,0,231,36$,36$,66B,165,90Z,36$,36$,90Z,165,66B !0,36$,66B,0,0,66B,36$,0,36$,36$,255,36$,36$,255,36$,36$,24,36$,66B,129,129,66B,36$,24,60<,60<,60<,60<,60<,60<,60<,60< Ci=021:i,22;6;1;" ":i J2;6;0,23;"CALEIDO";1,25;"SCOPIO" N3,23;5;"Opciones":184,140:62>,0 5,23;"0: ";7,23;"1: ";9 ,23;"2: ";11 ,23;"3: ";13 ,23;"4: ";15,23;"5: ";17,23;"6: AUTO";19,23;"P: Pausa" ! 502 (=""280 2a$= 7a$="p".5,0:1;19,23;2;6;1;" ":0:0:0;7;1;1;19,23;" ":502 <4a$"0"a$"6"v=a$-480:.1}L,v*10 FE1;7;1;0;2*d+5,23;" " Pd=v ZE1;2;6;1;2*d+5,23;" " "d=6v=(*6) ,x=(*11 )+1 @y=(*11 )+1 ^#z=z+1:z=8z=0 |z 500+100d*v i=x11 .005y# =,20-i :z;-1+x,-1+i;"";-1+x,22-i;"" :z;22-x,-1+i;"";22-x,22-i;"" :z;-1+i,-1+x;"";22-i,22-x;"" :z;22-i,-1+x;"";-1+i,22-x;"" Di N 35# Xi=x11 ].005y# =,10 +i b:z;11 -x,11 -i;"";11 -x,10 +i;"" l:z;10 +x,11 -i;"";10 +x,10 +i;"" v:z;11 -i,11 -x;"";11 -i,10 +x;"" :z;10 +i,11 -x;"";10 +i,10 +x;"" i  35# i=x11 .005y# =,10 +i >z;11 -i,10 -i+x;"";11 -i,11 +i-x;"" >z;10 +i,10 -i+x;"";10 +i,11 +i-x;"" >z;10 -i+x,11 -i;"";10 -i+x,10 +i;"" >z;11 +i-x,11 -i;"";11 +i-x,10 +i;""  i  35#  :z;11 -x,11 -y;"";11 -y,11 -x;"" %.005y# =,10 +x *:z;11 -x,10 +y;"";11 -y,10 +x;"" 4:z;10 +y,11 -x;"";10 +x,11 -y;"" >:z;10 +y,10 +x;"";10 +x,10 +y;"" z 35# i=021 .005y# =,10 +i 10 +x,i;z;"" i,11 -x;z;"" z;11 -x,21-i;"" z;21-i,10 +x;"" i  35# y<51050 i=0(x/2) .005y# =,10 +i*2 z 10 -i,11 -x+i;"" 11 -x+i,10 -i;"" ;11 -x+i,11 +i;"";10 -i,10 +x-i;"" ;11 +i,11 -x+i;"";11 +i,10 +x-i;""  ;10 +x-i,10 -i;"";10 +x-i,11 +i;"" i i=0(x/2) .005y# =,10 +i*2 z $'x-1-i,i;"";i,x-1-i;"" )1i,22-x+i;"";x-i-1,21-i;"" .122-x+i,i;"";21-i,x-1-i;"" 8;21-i,22-x+i;"";22-x+i,21-i;"" Bi K 35# PLUS3DOSA Carlos Mena P. Presentacion (170:0:5:0: p10 ,8;"";4;11 ,8;"";6;12 ,8;" " 16,4;" ";4;17,4;" ";6;18,4;" " 15,13 ;" " >0;6Track-Info  R ;1;5,10 ;" S T O N E " 121,10 ;"Pulsa una tecla":0: O3;5,5;"";6,5;"";7,5;" " Y7:5,11 ;"Mueve a STONE con";7,11 ;"las teclas de cursor" 11 ,0;"Lanza los bloques de piedra en";12 ,9 ;"la ultima direccion";13 ,9 ;"en que se movio ( 0 )" #R6;12 ,5;"";13 ,5;"";14,5;"" (N16,13 ;"Intentando destruir";18,13 ;"a tus enemigos" -R5;16,5;"";17,5;"";18,5;"" F2#0;"Pulsa una tecla para empezar":0 Z 210 S"o",255,255,63?,31,143,207,255,255 U"m",255,255,252,248,241,243,255,255 Q"n",255,255,0,0,255,255,255,255 M"l",0,0,24,24,60<,60<,126~,126~ O"k",129,66B,36$,24,24,36$,66B,129 U"j",255,255,254,254,252,248,240,192 P"i",255,255,127,127,63?,31,15,3 J"h",0,0,80P,80P,80P,80P,28,1 M"g",0,0,10 ,10 ,10 ,10 ,114r,128 U"f",255,231,195,207,207,195,231,255 U"e",255,231,195,243,243,195,231,255 U"d",255,231,195,195,219,219,231,255 U"c",255,231,219,219,195,195,231,255 U"b",192,240,248,252,254,254,255,255 P"a",3,15,31,63?,127,127,255,255 ?a=115:a$:b=07:c:a$+b,c:b:a: re=0 ,pu=0:vi=5 8.1}L,9 :.1}L,10 :.1}L,11 0:0::0:0;7;0,0;"";21,0;"";19,0;"" Ia=120:0;7;a,0;"";a,31;"":a q=7:a=115  z=(*6)*3+1 !y=(*10 )*3+1 A6;z,y;"";z+1,y;"";z+2,y;"" &a 0a=16:b=28 L x=(*6)*3+1 N!y=(*10 )*3+1 QU3;16,28;"";17,28;"";18,28;" " Vt=100d1-1 ~(a,b-1)=0Ʀ="5".01z# =,11 :q=5:a,b;" ";a+1,b;" ";a+2,b;" ":b=b-3:3;a,b;"";a+1,b;"";a+2,b;" " (a,b+3)=0Ʀ="8".01z# =,10 :q=8:a,b;" ";a+1,b;" ";a+2,b;" ":b=b+3:3;a,b;"";a+1,b;"";a+2,b;" " (a+3,b)=0Ʀ="6".01z# =,9 :q=6:a,b;" ";a+1,b;" ";a+2,b;" ":a=a+3:3;a,b;"";a+1,b;"";a+2,b;" " (a-1,b)=0Ʀ="7".01z# =,8:q=7:a,b;" ";a+1,b;" ";a+2,b;" ":a=a-3:3;a,b;"";a+1,b;"";a+2,b;" " u=(*4)+5 (x,y+3)<4u=8x,y;" ";x+1,y;" ";x+2,y;" ":y=y+3:5;x,y;"";x+1,y;"";x+2,y;"" Ĝ(x,y-1)<4u=5x,y;" ";x+1,y;" ";x+2,y;" ":y=y-3:5;x,y;"";x+1,y;"";x+2,y;"" Μ(x+3,y)<4u=6x,y;" ";x+1,y;" ";x+2,y;" ":x=x+3:5;x,y;"";x+1,y;"";x+2,y;"" ؜(x-1,y)<4u=7x,y;" ";x+1,y;" ";x+2,y;" ":x=x-3:5;x,y;"";x+1,y;"";x+2,y;"" &="0".2~L,20:8000@ a=xb=y9000(#  1 ƛ4;20,1;" ";20,1;"Tiempo:";t;20,10 ;" Puntos:";pu;20,23;"Vidas:";vi t  9000(# 14;1;20,1Track-Info  R ;"TIEMPO:";t $n=50260<:.1}L,n:n 0::pu=pu+t  500 @.q=5ƫ(a,b-1)=68100 J.q=8ƫ(a,b+3)=68200 T.q=6ƫ(a+3,b)=68300l ^.q=7ƫ(a-1,b)=68400 r1,-20 | 1150~ z=b-31-3 A2;a,z;"";a+1,z;"";a+2,z;"" $(a,z-1)=54000  4 2a,z;" ";a+1,z;" ";a+2,z;" " z  1300 z=b+3283 A2;a,z;"";a+1,z;"";a+2,z;"" $(a,z+3)=54000 & 4 +2a,z;" ";a+1,z;" ";a+2,z;" " 0z D 1300 lz=a+3163 v=2;z,b;"";z+1,b;"";z+2,b;"" $(z+3,b)=54000 4 2z,b;" ";z+1,b;" ";z+2,b;" " z 1300 z=a-31-3 A2;z,b;"";z+1,b;"";z+2,b;"" $(z-1,b)=54000 4 2z,b;" ";z+1,b;" ";z+2,b;" " z ! 1300 #(wa,b;" ";a+1,b;" ";a+2,b;" ";x,y;" ";x+1,y;" ";x+2,y;" ":m=020 #20:1 #<.1}L,-m+4 #F1:0 #P.1}L,-m+7 #Zm #dvi=vi-1 #n:4;1;0;20,1;"Tiempo:";t #x pu=pu-t #vi=09200# #0:0:0 # 520 #6::0:0 ##8,5;"Puntos:";pu $pu>rere=pu $$12 ,8;"Record:";re $%20,1;"PULSE UNA TECLA" $" 0 $, 300, PLUS3DOSd)((o1:1:7::1;10 ,10 ;"PARE LA CINTA":i=115:.5,i:i: 365159:q=6516065356L:c:q,c:q g2,175,8,8,1,1,0,0,0,0,0,221,42*,178,92\,221,35#,42*,123{,92\,221,94^,5,29,203,35#,203,35#,203,35#,22,0,25,235,221,78N,0,221,70F,1 B221,126~,3,245,197,221,126~,2,221,119w,6,205,170,34",221,119w,7,221,524,7,47/,230,7,60<,221,119w,8,213,229,205,219,11 ,225,209 221,203,4,70F,32 ,5,1,0,0,24,5,235,70F,35#,78N,235,221,546,9 ,8,221,546,10 ,9 ,126~,221,535,7,40(,9 ,7,221,535,10 ,221,535,7,32 ,247,203,33!,203,16,23,221,535,10 ,221,535 T6,32 ,19,221,535,10 ,40(,6,7,221,535Track-Info  R ,10 ,32 ,250,119w,193,241,5,61=,32 ,155,201,221,535,9 ,32 ,10 ,221,203,4,70F,40(,4,235,35#,78N,235 X221,535,8,32 ,204,221,535,10 ,40(,6,7,221,535,10 ,32 ,250,119w,35#,213,229,245,205,219,11 ,241,225,209,221,546,8,8,221,546,7,1,24,153 a(4,2) !n="a""a"+82R:f:n,f:n  34" !n="k""k"+39':f:n,f:n 1,128,1,128,00100001!,10000100,001110019,10011100,00111111?,11111100,001110019,10011100,001110019,10011100,00111011;,11011100,00111011;,11011100 00111011;,11011100,00111011;,11011100,001110008,00011100,00111111?,11111100,00010000,00001000,0,0,0,0 0,00011000,10100010,10000110,00011010,01000100D,001110008,0,01100000`,10001110,00100001!,00100100$,10110101,10001010,01100010b,0 0,0,0,0,00010000,00001000,00111111?,11111100,001110008,00011100,00111011;,11011100,00111011;,11011100,00111011;,11011100,00111011;,11011100 !001110019,10011100,001110019,10011100,00111111?,11111100,001110019,10011100,00010001,10001000,1,128,1,128,1,128,1,128 "00001100 ,001100113,00100000 ,01001000H,01010001Q,10100001,10100001,10100110,11100000,00011000,000000110,001110019,01000101E,1,00010010,00100001! #128,10010100,10100100,10100011,01010000P,10001001,01111010z,00000111,00100001!,11000001,00001001 ,01001010J,001100102,11000010,00101100,,11110000 $L24,24,60<,60<,118v,114r,114r,60< (A65162,16:65163,16:65165,1 @pun=0:fu=100d:mu=40(:ti=0:po=0  9900& ty=174 x=79O:y=18 ty2=174 po=po+6.7Vfff "muerto1=0:muerto2=0 65164,1 ="a"x=x-2 ="0"4000 ="s"x=x+2 H="l"y<105imu>0fu=fu-1:mu=mu-1:9000(#  y=y+2  $y>1739900&:430  5000  2,22;fu;" "  fu=fu-.73333:fu<1"No tienes fuel.":"Eres un inepto":"El alto mando nunca":"Debio encomendarte esta":"mision.": ti=ti+.2~L 8,22;ti 65160,x:65161,y  9 65171 ! 7500L & 7000X X 500 *** Demo mode **** Gg=115:9959&+g:9800H&:9900&:502:g  *** Cogida de fuel 9fy=(21-f1)*8+1:fx=f2*8+4 c(y+2=fyy+3=fy)x+8>fx-3x+892\y<100dy=173:9960& #dh.01z# =,20:.01z# =,10 :.05|L,0:cy,cx;"":.05|L,0:cy,cx;" " #nx>pos-5x73Ity-y<87Wmuerto1=1:pun=pun+100d:14,22;pun:65160,pos:65161,ty:65164,0:65171:65164,1 #xx>pos2-5x73Ity2-y<87Wmuerto2=1:pun=pun+100d:14,22;pun:65160,pos2:65161,ty2:65164,0:65171:65164,1 # &H*** Indicadores *** &M0:in:0: &R1,22;2;"Fuel: ";4,22;4;"Municion: ";7,22;5;"Tiempo: ";10 ,22;3;"Porcentaje:";13 ,22;6;"Puntuacion:" &\7:2,22;fu;5,22;mu;8,22;ti;11 ,22;po;14,22;pun;16,22;4;"Zona: ";17,22;col;9 ;a$ &fin & &*** Crea Pantallas *** &f1,f2,a$,col,in,pos,pos2 &%9800H&:col09990' &col=06000p &f1,f2;9 ;"" &Ōw=14:a(w,1),a(w,2):a(w,1),a(w,2);9 ;"";a(w,1)+1,a(w,2);9 ;"":w &5,9 ,"Desierto 1",6,2,502,85U,4,4,10 ,16,16,13 ,12 ,4 &2,16,"Desierto 2",6,1,105i,60<,6,4,12 ,5,10 ,16,18,4 &4,6,"Tropico 1",4,2,100d,70F,10 ,5,18,4,5,15,8,16 &1,5,"Tropico 2",4,1,88X,110n,11 ,5,13 ,6,15,7,5,16 &9 ,6,"Helada 1",5,1,60<,100d,9 ,15,13 ,16,5,5,18,16 &9 ,5,"Helada 2",5,7,60<,90Z,11 ,15,5,5,5,16,19,5 &21,30,"Inferno 1",2,6,90Z,70F,3,5,5,16,12 ,6,15,14 &6,11 ,"Inferno 2",2,7,67C,120x,2,11 ,6,5,14,12 ,19,6 &10 ,6,"Atlantis 1",1,4,60<,80P,2,14,6,16,13 ,13 ,19,5 &5,14,"Atlantis 2",1,2,502,90Z,4,16,10 ,14,16,9 ,14,15 &2,8,"Intruder 1",2,6,90Z,75K,4,5,4,16,9 ,7,9 ,14 &3,9 ,"Intruder 2",2,0,90Z,90Z,5,5,5,8,16,15,5,14 &3,8,"Alien 1 ",7,2,110n,115s,4,5,6,8,8,11 ,8,17 &8,8,"Alien 2 ",7,3,80P,80P,2,7,2,13 ,8,5,8,15 &0,0,"Alien Base",0,6,1,155,4,10 ,6,10 ,11 ,6,11 ,13 ' '**** Montanas **** 'n=021:n,0;col;" ":n:0,0:175,0:0,175:-175,0:0,-175 ' lo=20 ' n=0175 ' 3lo=lo+(*2)-1:lo<2lo=2 ' 0,n:lo,0 ' 175,n:-lo,0 ' n 'col:0 ' Track-Info  R PLUS3DOS@|@|@1***********************  SPACE WAR  Dylan Hoffman Javaloyes *********************** 9000(# 20:7:0::c=0500 Ca=(255*)+1:b=(175*)+1:estrellas d=(7*)+1 (d:a,b 2c 102fp>302.p>602Zp>902p>1102Np>1302p>1602Bp>1902np>21026p>2302p>2602* p>2902V p1=p:p2=p1+2:p2=p >mi=(*4)+1 Hmi=12500 Rmi=22750 \mi=33000 fmi=43250  =posicion superior izquierda del defensor  -7,17;" ";8,17;" " /11 ,13 ;" ";12 ,13 ;" " 011 ,17;" ";12 ,17;" " 67:7,13 ;"";8,13 ;"" O="1"7,8;2;"":25:7,8;7;" "  8204  =posicion superior derecha del defensor  -7,13 ;" ";8,13 ;" " /11 ,13 ;" ";12 ,13 ;" " /11 ,17;" ";12 ,17;" " 67:7,17;"";8,17;"" Q="0"7,22;2;"":25:7,22;7;" "  8204  =posicion inferior izquierda del defensor  -7,13 ;" ";8,13 ;" " -7,17;" ";8,17;" " /11 ,17;" ";12 ,17;" " 87:11 ,13 ;"";12 ,13 ;""  Q="q"12 ,8;2;"":25:12 ,8;7;" "  8204  =posicion inferior derecha del defensor  -7,13 ;" ";8,13 ;" " -7,17;" ";8,17;" " /11 ,13 ;" ";12 ,13 ;" " 87:11 ,17;"";12 ,17;"" S="p"12 ,22;2;"":25:12 ,22;7;" " 8204  m. superior izquierda  p0z=35#/502 !p24z=30/502 !p502z=25/502 !p74Jz=20/502 "p100dz=15/502 "p124|z=10 /502 !p150z=5/502 !p174z=0/502 b=22545 b=32555 b=42565 b=52575 b=62585 b=72595# b=82600( a=2:b=a 6:a,b;"":z,-5 !a=3:b=3:780  86:a-1,b-1;" ";a,b;"":z,-5 !a=4:b=4:780  86:a-1,b-1;" ";a,b;"":z,-5 !a=5:b=5:780  86:a-1,b-1;" ";a,b;"":z,-5 !a=6:b=6:780  86:a-1,b-1;" ";a,b;"":z,-5 !a=7:b=7:780  #86:a-1,b-1;" ";a,b;"":z,-5 %?="1"a,b;" ":p=p+2:a=2:b=2:780  (a=7:b=8 -%6:a,b-1;" ";a,b;"" 2`(a,b+1)=32,15:v=v-1:a,b;7;" ":a=2:b=2 <`v=010 ,8;9 ;1;"JUEGO TERMINADO":3,40(:4000 780   m. superior derecha  p0z=35#/502 !p24z=30/502 !p502z=25/502 !p74Jz=20/502 "Track-Info  R p100dz=15/502 "p124|z=10 /502 !p150z=5/502 !p174z=0/502 d=292835 d=282845 d=272855' d=2628651 d=252875; d=242885E d=232895O c=2:d=29 6:c,d;"":z,-5 "c=3:d=28:780  86:c-1,d+1;" ";c,d;"":z,-5 ""c=4:d=27:780  '86:c-1,d+1;" ";c,d;"":z,-5 ,"c=5:d=26:780  186:c-1,d+1;" ";c,d;"":z,-5 6"c=6:d=25:780  ;86:c-1,d+1;" ";c,d;"":z,-5 @"c=7:d=24:780  E86:c-1,d+1;" ";c,d;"":z,-5 J"c=7:d=23:780  O06:c,d+1;" ";c,d;"":z,-5 T@="0"c,d;" ":p=p+2:c=2:d=29:780  Yc=7:d=22 ^$6:c,d+1;" ";c,d;"" ca(c,d-1)=32,15:v=v-1:c,d;7;" ":c=2:d=29 h`v=010 ,8;9 ;1;"JUEGO TERMINADO":3,40(:4000 780   m. inferior izquierda  p0z=35#/502 !p24z=30/502 !p502z=25/502 !p74Jz=20/502 "p100dz=15/502 "p124|z=10 /502 !p150z=5/502 !p174z=0/502 e=183085 e=173095 e=163105! e=153115+ e=1431255 e=13 3135? e=12 3145I e=18:f=2 4:e,f;"":z,-4 "e=17:f=2:780  04:e+1,f;" ";e,f;"":z,-4 "e=16:f=3:780  !84:e+1,f-1;" ";e,f;"":z,-4 &"e=15:f=4:780  +84:e+1,f-1;" ";e,f;"":z,-4 0"e=14:f=5:780  584:e+1,f-1;" ";e,f;"":z,-4 :"e=13 :f=6:780  ?84:e+1,f-1;" ";e,f;"":z,-4 D"e=12 :f=7:780  I84:e+1,f-1;" ";e,f;"":z,-4 S@="q"e,f;" ":p=p+2:e=18:f=2:780  X$4:e,f;" ";e,f+1;"" ]i(e,f+2)=32,15:v=v-1:e,f+1;7;" ":e=18:f=2 b`v=010 ,8;9 ;1;"JUEGO TERMINADO":3,40(:4000 780   m. inferior derecha  p0z=35#/502 !p24z=30/502 !p502z=25/502 !p74Jz=20/502 "p100dz=15/502 "p124|z=10 /502 !p150z=5/502 !p174z=0/502 h=303335 h=293345 h=283355 h=273365% h=263375/ h=2533859 h=243395C h=233405M g=18:h=30 4:g,h;"":z,-4 #g=17:h=29:780  84:g+1,h+1;" ";g,h;"":z,-4 #g=16:h=28:780  84:g+1,h+1;" ";g,h;"":z,-4 #g=15:h=27:780  %84:g+1,h+1;" ";g,h;"":z,-4 *#g=14:h=26:780  /84:g+1,h+1;" ";g,h;"":z,-4 4#g=13 :h=25:780  984:g+1,h+1;" ";g,h;"":z,-4 >#g=12 :h=24:780  C84:g+1,h+1;" ";g,h;"":z,-4 H#g=12 :h=23:780  M04:g,h+1;" ";g,h;"":z,-4 WA="p"g,h;" ":p=p+2:g=18:h=30:780  \$4:g,h;" ";g,h-1;"" aj(g,h-2)=32,15:v=v-1:g,h-1;7;" ":g=18:h=30 f`v=010 ,8;9 ;1;"JUEGO TERMINADO":3,40(:4000 780   !"Quiere otra partida? (s/n)";n$  n$="n"  15         " Track-Info  R  , 6 ? @creacion de caracteres  Jmissiles izquierda  O 8060| ^n=07 hm r "a"+n,m wn |O0,224,176,254,189,254,176,224 missiles derecha   8140 n=07 o  "b"+n,o n I0,7,13 ,127,189,127,13 ,7 h. izquierda; tronco   8220 n=07 q  "c"+n,q n I0,568,60<,95_,93],121y,29,39' &parte inferior  0 8300l Dn=07 Nr X "d"+n,r bn lK 47/,247,39',60<,24,40(,40(,40( vh. derecha; tronco  8380 n=07 s "e"+n,s n M0,28,60<,250,186,158,184,228 parte inferior  8460 ! n=07 t "f"+n,t !n ! L244,239,228,60<,24,20,20,20 !rayo laser superior  ! 8540\! !4n=07 !>u !H "g"+n,u !Rn !\C0,0,0,0,0,0,255,0 !frayo laser inferior  !p 8620! !n=07 !w ! "h"+n,w !n !D 0,255,0,0,0,0,0,0 ! # #(principio,presentacion  #-236099\,502 #2A10 ,8;9 ;1;"PARE LA CINTA":8000@ #<7:0:0: #As=0100d #FPesh=(31*)+1:esv=(20*)+1:ces=(7*)+1 #Zesv,esh;ces;"*" #_0.07}\(,5 #ds #nV6:0.5,30:0,2;" ":5 #xJ0.5,30:1,2;" ":5 #J0.5,30:2,2;" ":5 #J0.5,30:3,2;" ":5 #L0.5,30:4,2;" ":5 #J0.5,30:5,2;" ":5 #J0.5,30:6,2;" ":5 #J0.5,30:7,2;" ":5 #M0.5,30:8,2;" ":5 #L4:0.5,30:11 ,9 ;" ":5 #D0.5,30:12 ,9 ;" ":5 #D0.5,30:13 ,9 ;" ":5 #D0.5,30:14,9 ;" ":5 #C0.5,30:15,9 ;" ":5 #C0.5,30:16,9 ;" ":5 $D0.5,30:17,9 ;" ":5 $D0.5,30:18,9 ;" ":5 $D0.5,30:19,9 ;" ":5 $"@2;21,8;"GUERRA ESPACIAL":2,40( $,500::7 $6;10 ,3;1;"Quieres instrucciones? (s/n)" $@="s"9350$ $J="n"15 $T=" "92706$ $^ 9280@$ $h $e:::" Descripcion: Hay una nave espacial en el centro de la pantalla, que es donde esta situado el defensor que tu manejas.El defensor puedesituarse en cuatro puntos dife-rentes de la nave.En cada esqui-na de la pantalla hay una nave enemiga que lanza cohetes contrati. Tu objetivo es destruirlos antes de que te alcancen.": $6'';" Pulsa una tecla para continuar ":0: $';" Instrucciones: Debes destruir los cohetes cuando se encuentren delante mismo del rayo: -. Las teclas son las siguentes:(1):posicion superior izquierda (0):posicion superior derecha (q):posicion inferior izquierda (p):posicion inferior derecha. Para disparar debes pulsar latecla correspondiente a la posi-cion en que te hayes. Pulsa una tecla para empezar": $ 0 $ '  '"SPACE WAR"10  ' "SPACE WAR" Track-Info  R PLUS3DOS+;+;+/o1:1:7::1;10 ,10 ;"PARE LA CINTA":i=115:.5,i:i: 8000@:3000 #re=0:3170b :770 :2000:9000(# (480:380| 2da=0cu=cm90Z <da=1cu=ce210 F 40( d:y=06:1;y,0;c$;" ":y nQ6;0,0;"BRAVO ! Ya tienes":"la mercancia en":"tu poder." xq$=" ":1;9 ,0;q$;13 ,0;q$;14,0;q$;15,0;q$;16,0;q$;7;1;16,21;" " ;p=140(:.005y# =,p:.007ye`A,p+2:p S6;3,0;"Ahora la tienes":"que llevar al":"punto de destino." Dp=40(1-1:.005y# =,p:.007ye`A,p+2:p ;p=140(:.005y# =,p:.007ye`A,p+2:p da=1  6:6:1: 54,0;"Fenomenal !!! Lo has conseguido." ?p=120:.02{# =,20:.01z# =,25:p ]:"Has llevado la mercancia desde ":w=618:w>10 a$(cm,w)=" "290" a$(cm,w);:w "" hasta ";:a$(ce)(6) 6#:"Has necesitado ";pu;" viajes." @,:"Has recorrido ";(re*18.4333);" Km." J`gas=(6000p-re*18.4333)/100d:gas0:"Han sobrado ";gas;" l. de gasoleo." T.::"Juegas otra vez ? ( s  o  n )" ^ ="n" h="s"15 r 350^ |' Introduce ciudad a la que se va  K1;7;21,0;" A que ciudad quieres ir ? "; L"Numero de ciudad ? ";j:j>47/j<1.73333,0:400 p1;21,0;" ":ban=0:xac=z(j,5):yac=z(j,6) +k=14:z(cu,k)=jban=1 k eban=021,0;"No hay carretera a ";a$(j)(6):1.5@,25:380| cu=j  7000X  ( Calculo de direccion y distancia  da=06;0,0;"Tienes que localizar":"la mercancia que":"esta en alguna de":"las capitales de la":"peninsula. " =7;1;9 ,0;a$(cu)(518) d12 ,0:q=14:1500:ci=1z(cu,q)>00;a$(z(cu,q)) q 1;" " &1;" " 0da=1660 :fl=0::mp=(((z(cu,5)-z(cm,5)))^2+((z(cu,6)-z(cm,6)))^2)^.5:mp=(18.4333*mp):mp150fl=1 X[da=07;2;1;fl;16,21;" ";mp;" ";0;" Km. " bes=500/mp lHx=es*(z(cm,5)-z(cu,5)):y=es*(z(cm,6)-z(cu,6)) v7o=511 :6;o,23;" ":o Track-Info  R #212,108l:1;x,y  fl=0:sp=(((z(cu,5)-z(ce,5)))^2+((z(cu,6)-z(ce,6)))^2)^.5:sp=(18.4333*sp):sp150fl=1 [da=116,21;7;3;1;fl;" ";sp;" ";0;" Km. " es=500/sp Hx=es*(z(ce,5)-z(cu,5)):y=es*(z(ce,6)-z(cu,6)) 7o=511 :6;o,23;" ":o #212,108l:1;x,y   Datos de las capitales   6000p  ,a$(47/,18):z(47/,6) *5900:h=147/:b$:b:c:d:e:f:g Hja$(h)=b$:z(h,1)=b:z(h,2)=c:z(h,3)=d:z(h,4)=e:z(h,5)=f:z(h,6)=g \h f da=0 z: #" 1 - Albacete",b(1),28,14,a(1),42*,20," 2 - Alicante",43+,a(2),14,b(2),513,16," 3 - Almeria",16,a(3),28,b(3),38&,2," 4 - Avila",34",8,b(4),a(4),26,34" $" 5 - Badajoz",12 ,19,a(5),b(5),12 ,19," 6 - Barcelona",15,23,a(6),b(6),66B,41)," 7 - Bilbao",b(7),35#,a(7),36$,35#,546," 8 - Burgos",4,44,,a(8),b(8),32 ,47/ -" 9 - Caceres",a(9 ),b(9 ),34",0,17,25,"10 - Cadiz",38&,27,a(10 ),b(10 ),17,1,"11 - Castellon",43+,40(,a(11 ),b(11 ),535,27,"12 - Ciudad Real",20,42*,a(12 ),b(12 ),30,20 %"13 - Cordoba",20,5,a(13 ),b(13 ),25,13 ,"14 - Cuenca",1,a(14),2,b(14),41),29,"15 - Gerona",19,6,a(15),b(15),69E,45-,"16 - Granada",3,27,a(16),b(16),33!,6 )"17 - Guadalajara",b(17),41),a(17),0,35#,34","18 - Huelva",a(18),5,b(18),38&,12 ,8,"19 - Huesca",47/,15,a(19),b(19),513,44,,"20 - Jaen",b(20),13 ,12 ,a(20),31,11 )"21 - La Corua",33!,25,b(21),a(21),5,557,"22 - Leon",31,46.,a(22),b(22),22,491,"23 - Lerida",6,40(,a(23),b(23),568,40(,"24 - Logroo",45-,39',b(24),a(24),39',47/ m"25 - Lugo",21,46.,a(25),b(25),11 ,535,"26 - Madrid",b(26),37%,a(26),42*,32 ,32 ,"27 - Malaga",16,a(27),10 ,b(27),27,3,"28 - Murcia",1,3,b(28),a(28),47/,12 ,"29 - Orense",b(29),33!,a(29),30,8,47/ 0"30 - Oviedo",29,36$,a(30),b(30),20,557,"31 - Palencia",a(31),44,,22,b(31),27,45-,"32 - Pamplona",35#,45-,a(32 ),b(32 ),44,,502,"33 - Pontevedra",21,29,a(33!),b(33!),4,491 3"34 - Salamanca",4,9 ,a(34"),b(34"),20,35#,"35 - San Sebastian",7,32 ,a(35#),b(35#),41),546,"36 - Santander",30,7,a(36$),b(36$),30,557,"37 - Segovia",b(37%),39',26,a(37%),29,35# u"38 - Sevilla",10 ,b(38&),18,a(38&),18,8,"39 - Soria",24,37%,b(39'),a(39'),39',42*,"40 - Tarragona",23,11 ,b(40(),a(40(),62>,39',"41 - Teruel",47/,b(41)),17,a(41)),47/,31,"42 - Toledo",26,12 ,a(42*),b(42*),29,28 $z"43 - Valencia",a(43+),2,b(43+),11 ,513,23,"44 - Valladolid",31,8,b(44,),a(44,),26,42*,"45 - Vitoria",b(45-),24,a(45-),32 ,38&,502,"46 - Zamora",25,a(46.),22,b(46.),20,39',"47 - Zaragoza",a(47/),19,41),b(47/),480,41) +ci=1:z(cu,q)=0ci=0: Nz(cu,1)0q=2a$(z(cu,q))=a$(z(cu,1))ci=0: q=3z(cu,1)0z(cu,2)0(a$(z(cu,q))=a$(z(cu,1))a$(z(cu,q))=a$(z(cu,2)))ci=0: Track-Info  R q=4z(cu,3)0z(cu,1)0z(cu,2)0(a$(z(cu,q))=a$(z(cu,3))a$(z(cu,q))=a$(z(cu,1))a$(z(cu,q))=a$(z(cu,2)))ci=0: @ ! Situa mercancia y destino  &pu=0:cm=(46.*+1)  ce=(46.*+1) ce=cm2060   cu=(46.*+1) *cu=cm2080  4(xan=z(cu,5):yan=z(cu,6):  Instrucciones  0,11 ;"CAMIONERO" 2,1;"Te encuentras en una ciudad de la Espaa peninsular y tienes que recoger una mercancia en unaciudad que desconoces y llevarlaa otra, tambien desconocida." &8,1;"En el cuadro de instrumentos detu camion aparecen todos los da-tos que necesitas y solo tienes que introducir el numero de la ciudad a la que quieres ir." 014,1;"El mapa de carreteras es un tanto original y no se parece en nada al del MOPU, por lo que te recomiendo que te vayas haciendo el tuyo propio." N>n=0:21,0;"PULSA UNA TECLA PARA EMPEZAR." X!n=n+1:=""3160X : b8:11 ,5;1;" UN MOMENTO, POR FAVOR " v p Trazado de carreteras  z.b(47/):a(47/):s=147/ b(s)=0:a(s)=0:s s=147/ x=(46.*+1) xs6080 >.55 6080 'a(x)0a(s)06080 a(s)=x:a(x)=s s s=147/ x=(46.*+1) xs6180$ >.75@6180$ 'b(x)0b(s)06180$ b(s)=x:b(x)=s $s . X& Calculo de distancia y gasoleo  l:dis=(((xac-xan))^2+((yac-yan))^2)^.5 v re=re+dis xan=xac:yan=yac pu=pu+1 0w=255(255-re*.268 7K)-1 /1;w,16:1;0,7 w &re*18.43336000p9500%  @ Rotulo y define  J6:6: TU8,12 ;1;"CAMIONERO";12 ,9 ;2;"JOSE LUIS SELVI" ^ 8055w r#w=07:g:"n"+w,g:w |F0,60<,0,44,,502,34",34",0 C1:w=140(:.05|L,w:.008zn,w+3:w y=0175:7-y/25:6:0,y:2:y,-y:6:0,175-y:y,y:2:255,y:-y,-y:6:255,175-y:-y,y:2:y:7:7:1  0:  #(/ Dibujo del cuadro de control del camion  #Z/1:1:6::c$=" " #ny=044, #x#m=(1936-y^2)^.5 #,211-m,108l+y:2*m,0 #,211-m,108l-y:2*m,0 #y #l6;1;3,26;"N";13 ,26;"S";8,21;"O";8,31;"E" #37;2;1,21;" R A D A R " #44;0;15,21;"DISTANCIA :" #55;01;18,21;" GASOLEO : " #35;1;7,0;" ESTAS EN : " #<7;3;11 ,0;"TIENES CARRETERAS A:" #)7;1;16,21;c$ #)7;1;19,21;c$ # %6:6:1: %&41;5,0;" Agotaste el gasoleo. " %03:" La mercancia estaba":" en ";a$(cm)(6) %:':" El destino era ";a$(ce)(6) %D :320@ Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R         Track-Info  R          Track-Info ! R!!!!!!!!! Track-Info ! R!!!!!!!!! Track-Info " R""""""""" Track-Info " R""""""""" Track-Info # R######### Track-Info # R######### Track-Info $ R$$$$$$$$$ Track-Info $ R$$$$$$$$$ Track-Info % R%%%%%%%%% Track-Info % R%%%%%%%%% Track-Info & R&&&&&&&&& Track-Info & R&&&&&&&&& Track-Info ' R''''''''' Track-Info ' R''''''''' Track-Info ( R((((((((( Track-Info ( R((((((((( Track-Info ) R))))))))) Track-Info ) R))))))))) Track-Info * R********* Track-Info * R********* Track-Info + R+++++++++ Track-Info + R+++++++++ Track-Info , R,,,,,,,,, Track-Info , R,,,,,,,,, Track-Info - R--------- Track-Info - R--------- Track-Info . R......... Track-Info . R......... Track-Info / R///////// Track-Info / R///////// Track-Info 0 R000000000 Track-Info 0 R000000000 Track-Info 1 R111111111 Track-Info 1 R111111111 Track-Info 2 R222222222 Track-Info 2 R222222222 Track-Info 3 R333333333 Track-Info 3 R333333333 Track-Info 4 R444444444 Track-Info 4 R444444444 Track-Info 5 R555555555 Track-Info 5 R555555555 Track-Info 6 R666666666 Track-Info 6 R666666666 Track-Info 7 R777777777 Track-Info 7 R777777777 Track-Info 8 R888888888 Track-Info 8 R888888888 Track-Info 9 R999999999 Track-Info 9 R999999999 Track-Info : R::::::::: Track-Info : R::::::::: Track-Info ; R;;;;;;;;; Track-Info ; R;;;;;;;;; Track-Info < R<<<<<<<<< Track-Info < R<<<<<<<<< Track-Info = R========= Track-Info = R========= Track-Info > R>>>>>>>>> Track-Info > R>>>>>>>>> Track-Info ? R????????? Track-Info ? R????????? Track-Info @ R@@@@@@@@@ Track-Info @ R@@@@@@@@@ Track-Info A RAAAAAAAAA Track-Info A RAAAAAAAAA Track-Info B RBBBBBBBBB Track-Info B RBBBBBBBBB Track-Info C RCCCCCCCCC Track-Info C RCCCCCCCCC Track-Info D RDDDDDDDDD Track-Info D RDDDDDDDDD Track-Info E REEEEEEEEE Track-Info E REEEEEEEEE Track-Info F RFFFFFFFFF Track-Info F RFFFFFFFFF Track-Info G RGGGGGGGGG Track-Info G RGGGGGGGGG Track-Info H RHHHHHHHHH Track-Info H RHHHHHHHHH Track-Info I RIIIIIIIII Track-Info I RIIIIIIIII Track-Info J RJJJJJJJJJ Track-Info J RJJJJJJJJJ Track-Info K RKKKKKKKKK Track-Info K RKKKKKKKKK Track-Info L RLLLLLLLLL Track-Info L RLLLLLLLLL Track-Info M RMMMMMMMMM Track-Info M RMMMMMMMMM Track-Info N RNNNNNNNNN Track-Info N RNNNNNNNNN Track-Info O ROOOOOOOOO Track-Info O ROOOOOOOOO