MV - CPCEMU Disk-File Disk-Info ZX-Modules(Track-Info  R ( *RTrack-Info  R DISK MICRO 7 26 AA s AB  !"#$%&'()*AB +,-.AC /01AC 0 2BA 345BA 0 6BA 1 !789:;BB <BB 0 =>?@BC ABCDPLUS3DOS@ @DISKEADO POR MADFOX "MICRO"  300, "26" PLUS3DOS@UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUTrack-Info  R UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU@|#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 `UUUUUUUUUUUUUUUUUUUTrack-Info  R UUUUUUUUUUUUUUUUUUUUUUUUUUUUU88888888888888888888877777778888888888888888888888887777777788888888888888888887778888888888888888888888887777888888888888888888866666778888888888888888888888666666688888888888888888888888888666688888888888888888888888888888888888888888888888888888:8:88888888888888888=88r>=8888888888888888888:8>>>7ppp7::::::W:::::::::::Wp0p00VWWWW888888888888888888>p0007>>>88888888888888888888888>7>>888888888888888888888 888888888886888888888 88888888886668888888888888888888888888888866688888558888888888888888888866688665555888888888888888866688668855588888888887778866;;6666;;;55;;;8888888778888866;;6666555555;;88888887778888PLUS3DOS!dCINTA 26 (REVISTAS 101 a 104) 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,8;"A-Simon" 8,8;"B-Tramping" & 9 ,8;"C-Sintetiza" !15,11 ;"1 - VOLVER" B$= B$=""680 B$="A"B$="a""AA" B$="B"B$="b""AB" B$="C"B$="c""AC" HB$="1"100d R 500 --- MENU CARA B --- :5000:6000p 4,12 ;"CARA B" !7,8;"A-Planetario" 8,8;"B-Iron War" 9 ,8;"C-Cargador" !15,11 ;"1 - VOLVER" B$= B$=""1180 B$="A"B$="a""BA" B$="B"B$="b""BB" B$="C"B$="c""BC" <B$="1"100d F 1000 --- CABECERA --- 51:0,4;"CINTAS MICRO N. 26" -2:0,16;"HOBBY":0 C3:1,6;"DISKEADO POR MADFOX":0:0 %3,7;"REVISTAS 101-104"  p--- PIE DE PANTALLA --- z?1:20,0;" J, siempre... ILM " ?21,0;" ELIGE UNA OPCION ":0  PLUS3DOS:988859999_:23658j\,8:23728\,80P #ni=8:i=1:ju=1 2su=0:ssu=0:sl=0:ssl=0 7a$=" N-nivel J-juego 1-ultima 2-comienzo 3-mas larga" a$=a$+a$(33!) (flag=0:q=1 d 7500L     31 2w=0:z(n)=((n/2)=(n/2)) n=03 l=(*4) f=19 T(l*2+l);1+f+10 *(n>1),1+10 *z(n);" "  :7;10 *((n)/2)+f+1,10 ;" " f:n 27;11 ,1;" "  8 883S,83S,75K:83S,83S,30 &Nn=14:x=9 +(n>2)*105i:y=79O+z(n)*9 0.x,y:44,,0:y,x:0,44, :n D 700 N Xn=-75K75K b%l=(900-n*n)*(900n*n) lk=(5625-n*n)-l v"83S+l,83S+n:k,0 #83S-l,83S-n:-k,0 n w=4:700 -w=0:60064,126~:750 8n=03:23729\,195+3*(n+w) 72+(n>1)*10 ,1+10 *z(n); 60000` n   seed=1+(*65535)  *l6,24;2;"NIVEL";8,24;Track-Info  R 0;"";9 ,21+i;5;" | " 4l12 ,24;2;"JUEGO";14,25;0;"";15,23+ju;5;" | " 9 700 >v6;1;18,23;1;18,29;3;3;0;20,26;2 C&2,21;2;"SENALES" D&185,160:5,0 G2,28;" " HC"":#0;a$(qq+31):q=q+1:q>480q=1 I 10 JA=:A850R M 840H Ra=78N860\ Sa=74J870f Ta=491880p U_a=50223194Z,58::.3,-24:23194Z,16:"":1000*ju Va=513890z W 840H \ i=i+1 ]i=6i=1 ^ni=(58004+i) _*9 ,20+i;" ";5;" | " `%i=19 ,27;" " a 840H fju=ju+1 gju=4ju=1 h815,22+ju;" ";5;" | ";7;" " jG=115:G k 840H pse=su:s=ssu q?23127WZ,5:.2~L,-24:23127WZ,40( r 6500d zse=sl:s=ssl {?23133]Z,5:.2~L,-24:23133]Z,40( | 6500d  840H  JUEGO I s=1ni:seed:V=  x=1s  n=(*4):c=n*2+n r=n*4-(n>1)  %s>28d=.05|L:1040  -d=.4L/(1+1.5@*(S/6))  6000p Bx:seed:V= G#2,29;:k=1̱s I(144+(s)(k));:k L y=1s Vp=(*4) ` 4000 jr=n*4-(n>1) tnp5000:839G ~ d=.2~L  6100 y f=067C:f s _4000+i*100d `1,20 a 5500| b 839G  JUEGO II w(4):ex=4 &g=14:w(g)=g-1:g z=42-1 s=1ni seed  #x=1s:n=w(1+(*ex)) r=n*4-(n>1) %s>29d=.05|L:2080  -d=.4L/(1+1.5@*(s/6))  6000p *x /#2,29;:k=1̱s 1(144+(s)(k));:k 4seed > y=1s Hp=w(1+(*ex)) R 4000 \r=n*4-(n>1) a d=.15~ f\pnflag=1flag=0:ex=ex-1:w(n+1)=w(z):5000:z:839G p 6100 zy f=167C:f s H1,20 I 5500| J 839G JUEGO III m(ni) s=1ni x=1s-1 4000 m(x)n5000:839G r=n*4-(n>1) d=.15~ 6100 x  4000  d=.15~ m(s)=n r=n*4-(n>1)  6100 &#2,29;:k=1̱s +(144+(s)(k));:k 0s 01,20 1 5500| 2 839G z=1120x:u= 8(57923C+u)0n=(57923C+u)-1: z 1,-20  5500| !ju=2n=p:flag=1:  839G FELICITACIONES 72+10 *(n>1),1+10 *z(n); Jv=15:23729\,195+3*(n+4):6e4` ".05|L,15 ,-23729\,195+3*n:6e4` 6v @ h@l=12:31:f=03:m=(*4) r72+10 *(m>1),1+10 *z(m); |K23729\,195+3*(m+4-4*(l=2)):6e4` !.02{# =,m*4-(m>1) f:l:4100: @f=14:31:l=14:m=(*4) 72+10 *(m>1),1+10 *z(m); E23729\,195+3*(m+4-4*z(f)):6e4` 5.01z# =,m*4-(m>1):.01z# =,15 l:f 4100: 0&l=16:m=03 :72+10 *(m>1),1+10 *z(m); D723729\,195+3*(m+4):6e4` Im:.5,18 Nm=03 X72+10 *(m>1),1+10 *z(m); b/23729\,195+3*(m):6e4` gm:.2~L,-18 ll :1;9 ,0;" Es increible !!! Has conseguido recordar la friolera de 255 senales. " e15,4;"Asi que me despido de un genio quitandome el sombrero SHAPO " 60001a Track-Info  R  ERROR r=-20:d=1  6000p  5500|  |su=seed:ssu=s ssslssl=s:sl=seed seed=seed+s*2  p DIBUJO z72+10 *(n>1),1+10 *z(n); 723729\,195+3*(n+4):6e4` d,r -23729\,195+3*n:6e4`  72+10 *(n>1),1+10 *z(n); 723729\,195+3*(n+4):6e4` d,r CM=64000 -23729\,195+3*n:6e4`  d  i>2,29;:k=1̱s:(144+(s)(k));:k nse sl=:d=.1}L x x=1s n=(*4) r=n*4-(n>1)  6000p x  839G b1,3;"Este programa te ofrece tres juegos en los que pondra";8;21;1;"'s aprue-ba tus dotes memori";8;21;1;"'sticas" lY5,3;2;"JUEGO I-C.P.U DICE";6,4;1;"Un jugador" vT7,0;"Te reto a seguir la secuencia decolores y sonidos que te indico" p10 ,3;2;"JUEGO II-ESCOJE TU COLOR";11 ,4;1;"Dos,tres,o cuatro jugadores" n12 ,0;"Pulsa solo tu color elegido. El que falle sera";8;21;1;"' eliminado" 15,3;2;"JUEGO III-LOS JUGADORES DICEN";16,4;1;"Dos o ma";8;21;1;"'s jugadores" 17,0;"Repite la secuencia de colores jugada por tu adversario y suma uno. Cada jugador por turnos au-mentara";8;21;1;"' la longitud de la secuen";8;21;1;"_cia"  8000@ '#1;"Pulsa una tecla":0: l$=" ESCOJE EL NIVEL DE DI-FICULTAD CONLA TECLA N. HAY 5 NIVELES: - 8 SENALES- 14 "" - 20 "" - 31 "" -255 "" " D=012 C2+D,20;l$((d*12 )+1(d+1)*12 ) d %217,96`:5,0  500 )#1;"Pulsa una tecla":0:""  l$=" CON EL BO-TON 2 COMEN-ZARA LA PAR-TIDA EN EL NIVEL Y JUE-GO SELECCIO-NADOS. CON EL 1 REPETIRE LA ULTIMA SECU-ENCIA. CON EL 3 LA MAS LARGA" *d=014 4C2+D,20;l$((d*12 )+1(d+1)*12 ) >d R 600X \)#1;"Pulsa una tecla":0:"" f3q=218:q,20;" ":q jC$(4,9 ):C$(1)="AZUL":C$(2)="ROJO":C$(3)="VERDE":C$(4)="AMARILLO" 0,6;"LAS TECLAS" F4;4,1;"Q";2,1;C$(3)(5) >1;4,18;"O";2,16;c$(1) H2;18,1;"Z";20,1;c$(2)(4) @6;18,18;"M";20,15;c$(4) #1;"Pulsa una tecla" Pf=06:f;1;0,6;" ":""7370 F:7350 F700:0,6;" ";20,20;" "  800  L$7;21,0;"SIMON" V'y=16:x=138& `(x,y)=12;x*6,100d+y*10 :5,0:x*6,100d+y*10 +4:5,0 jx:y t'.1}L,12 :.2~L,-12 ~#0;"Pulsa una tecla"  0 :7000X > @J4,114r,74J,82R,34",132,120x,0 JE8,40(,72H,8,8,2,126~,0 TI4,122z,130,4,120x,2,254,0 ^J4,122z,196,26,2,132,120x,0 hF8,8,40(,72H,2,238,24,0 rI2,126~,4,250,2,132,120x,0 |J4,124|,4,122z,66B,132,120x,0 F2,250,4,8,16,16,480,0 L4,122z,132,122z,66B,132,120x,0 J4,122z,66B,130,122z,4,124|,0 M24,60<,126~,255,255,126~,60<,24 !f="a""a"+87W:a:f,a:f !41,9 ,9 ,237,67C,187,234,175,33!,33!,24,237,91[,136,92\,2Track-Info  R 37,82R,235,42*,176,92\,121y,502,189,234,120x,130,245,241,61=,186,216,60<,245,213,122z,230,24,198,64@,71G,122z,15,15,15,230,224,131,95_,80P,6,8,58:,189,234 !>T79O,213,229,121y,254,0,40(,8,26,119w,18,19,35#,13 ,24,243,225,237,91[,187,234,22,0,25,209,20,16,225,209,183,220,191,234,20,24,193 !H=t=0:f=090Z:s:60000`+f,s:t=t+s:f !Rdt11077E+1;7,4;"ERROR EN LAS LINEAS DATA:";9 ,11 ;"8500-8510" !\T58000,3:58002,1:58004,2:58013,4 !fn58005,8:58006,14:58007,20:58008,31:58009,255 !p&f=6400064007:a:f,a:f !zL205,142,2,28,200,195,0,250 ! xx?v8 xx }99exŊxvʊxvu $*'z7T=7zXa7r20uk9z7T=7zXa7r20u  |x҆uf9xR x7v8 yvu$))*"z֘)%r9%)B<"r$?$r=A<%r=b B<#r$w $r?}B<%r>=!B<#r}&r=B=!B<%r=!A=>Ϧr ?? u0f`0+qz30yrv!]uW v-D.v)uX.<^u<Azx]lzj=s c #=spA/(^u*'jr< ;   y9pv-]u  h ph[n_u  `xuf-qz0u9xy2}:d"e혇")'"& &$"" *zHqzIqzJqzNTrack-Info  R PLUS3DOSAONN'V0:0::7:23675{\,0:9000(#:9000(#:6000p jk=0:poi=1:ad=0:FIN=0:VF=8000@:ti=200:io=0:z=0:u=0::a$="":gs=2300:rip=3000 o=22:n=1 123675{\,0:mov=0:pa=2000 23658j\,0 0h=12 :v=14:mh=0:mv=0 v1=v:h1=h dNb$="":c$="" #1200:23676|\,200 pa:1100L jgs:vv1hh11;v1,h1;" ";v,h;a$(n+mov):v1=v:h1=h:mov=mov+1:mov=2mov=0 >="p"ſ211=1n=3:h=h+1:1051 >="o"ſ211=2n=5:h=h-1:1051 >="q"ſ211=8n=1:v=v-1:1051 >="a"ſ211=4n=1:v=v+1:1051 (v,h)" "1065) Uv=4pa=pa-40(:gs=gs-40(::1200:pa:v=16:1100L  Uv=17pa=pa+40(:gs=gs+40(::1200:pa:v=5:1100L !Uh=5pa=pa-10 :gs=gs-10 ::1200:pa:h=25:1100L "Uh=26pa=pa+10 :gs=gs+10 ::1200:pa:h=6:1100L # 1012 )v=v1:h=h1:1012 * 1010 M.v1=v:h1=h:v,h;7;1;a$(n+mov) N 1;5;3,4;"":f=417:1;5;f,4;"";f,27;"":f:1;5;18,4;""  +hoarriba:veizquierda:hoabajo:vederecha B0;5;1;6,7;"";7,7;"";8,7;"";9 ,7;"";12 ,9 ;"";12 ,15;"";12 ,21;"";13 ,9 ;"";13 ,15;"";13 ,21;"" =ad=114,25;" ";15,25;" " \0;7;1;15,7;" ";15,8;5;0;" " t2;0;0;8,9 ;" ";1;8,15;" ";3;8,21;" ": S hoarriba:vederecha:veizquierda:14,5;" ";15,5;" " :hoabajo:16,23;" ";17,23;" " ܩ6,9 ;1;0;"";6,21;"":f=6152:0;2;1;f,15;"";f+1,15;"":f C0;4;10 ,21;"";11 ,21;"" :u=116,7;" ";17,7;" "  hoarriba:veizquierda:hoabajo:16,15;" ";17,15;" ";16,21;" ";17,21;" " 0;5;1;6,13 ;"";7,13 ;"";6,23;"";7,23;"";8,19;"";9 ,19;"";10 ,11 ;b$(116);11 ,11 ;c$(116) 0;5;1;12 ,7;"";13 ,7;"";14,17;"";15,17;"";14,7;"";15,7;"";14,25;"";15,25;"": <hoarriba:vederecha:0;4;8,7;"";9 ,7;"";6,11 ;"";7,11 ;"";10 ,5;b$(114)+"";11 ,5;c$(114)+"";12 ,21;"";13 ,21;"";8,17;"";9 ,17;"" 0;4;12 ,9 ;"";13 ,9 ;"";14,5;"";15,5;"";16,5;"";17,5;"";16,21;"";17,21;"":  veizquierda:hoarriba:hoabajo \f=813 2:0;3;f,11 ;"";f+1,11 ;"":f T0;2;1;6,15;"";7,15;"";8,19;"";9 ,15;"";10 ,15;"";10 ,23;"";11 ,19;"";12 ,15;"";13 ,15;"";14,15;"";15,15;"" {5;8,15Track-Info  R ;" ";8,23;" ";13 ,19;" ";14,11 ;" ";15,11 ;" " g0;7;1;15,7;" ";1;0;0;15,8;" ": hoabajo:16,15;" ";17,15;" ":hoarriba:4,7;" ";5,7;" ";4,23;" ";5,23;" ":vederecha f=6152:0;3;f,9 ;"";f+1,9 ;"";f,17;"";f+1,17;"":f:io=114,9 ;" ";15,9 ;" " `0;7;1;14,21;" ";14,22;0;5;" ":  hoabajo:16,7;" ";16,15;" ";16,19;" ";17,7;" ";17,15;" ";17,19;" ":veizquierda  0;2;4,7;b$(18)+"";5,7;c$(18)+"";6,11 ;"";7,11 ;"";8,17;"";9 ,17;"";10 ,7;b$(18);11 ,7;c$(18);10 ,23;"";11 ,23;"";12 ,13 ;"";13 ,13 ;"";14,9 ;"";14,25;"";15,9 ;"";15,25;""  vederecha:f=413 2:0;7;1;f,7;"";f+1,7;"":f:0;7;1;4,13 ;"";5,13 ;"";4,21;"";5,21;"";6,13 ;b$(112 );7,13 ;c$(112 );10 ,11 ;"";11 ,11 ;"";12 ,11 ;"";13 ,11 ;"" 0;7;1;14,5;"";15,5;"";14,17;"";15,17;"";16,5;"";17,5;"";16,9 ;"";17,9 ;"":  veizquierda:vederecha:hoabajo:hoarriba:16,9 ;" ";17,9 ;" ";10 ,25;" ";11 ,25;" " !?1;6,17;" ";6,23;2;" " "23676|\,201:f=6152:0;2;f,13 ;"";f+1,13 ;"";f,19;"";f+1,19;"":f #x0;5;1;6,15;"";6,21;"";7,15;"";7,21;"" (23676|\,200: *^hoarriba:hoabajo:16,15;" ";17,15;" ":vederecha:veizquierda:10 ,5;" ";11 ,5;" ";4,15;" ";5,15;" ":0;2;1;8,13 ;b$(112 );9 ,13 ;c$(112 );7;14,7;"";15,7;"" +f=10 152:0;2;1;f,13 ;"";f+1,13 ;"":f:f=811 2:0;7;f,9 ;"";f+1,9 ;"":f /"1;11 ,11 ;" " 023676|\,202:1;0;6;10 ,16;"";11 ,15;"";12 ,15;"";7;13 ,18;"";14,17;"";15,17;"":23676|\,200 1 4veizquierda:hoabajo:16,17;" ";17,17;" ":hoarriba:4,7;" ";4,15;" ";4,19;" ";5,7;" ";5,15;" ";5,19;" " 50;3;6,9 ;"";7,9 ;"";6,21;"";7,21;"";8,9 ;"";9 ,9 ;"";10 ,9 ;"";11 ,9 ;"" 60;3;12 ,19;"";13 ,19;"";14,11 ;"";15,11 ;"": >hoarriba:4,7;" ";5,7;" ";4,19;" ";5,19;" ";4,23;" ";5,23;" ":vederecha:hoabajo:0;1;1;6,5;"";7,5;"";6,17;"";7,17;"";8,17;"";9 ,17;"";10 ,5;b$(118);11 ,5;c$(118) ? 0;1;1;12 ,5;"";13 ,5;"";12Track-Info  R          ,13 ;"";13 ,13 ;"";12 ,23;"";13 ,23;"";14,9 ;"";15,9 ;"";14,17;"";15,17;"" Fh0;7;1;15,22;" ":1;0;0;15,23;" " G H2121I:veizquierda:hoabajo:hoarriba:VF:23676|\,201:4,9 ;" ";5,9 ;" ":3010 I,g,d:g=100023676|\,200: Jk8,16,8,23,10 ,9 ,12 ,13 ,12 ,19,1000,0 K/0;4;g,d;"";g+1,d;"" L 2121I Q Rthoabajo:hoarriba:VF:23676|\,201:3010 :2131S:fin=12;7,15;" " S6y,x:y=100023676|\,200:2139[ T{7,7,8,23,8,18,11 ,12 ,13 ,7,13 ,18,1000,0 U/0;4;y,x;"";y+1,x;"" V 2131S ZTjk=14,15;" ";5,15;" ";6,15;" ": [ \uhoabajo:hoarriba:4,17;" ";5,17;" ":VF:23676|\,201:3010 :2141] ]/aa,bb:aa=100023676|\,200: ^j8,7,11 ,11 ,8,18,12 ,17,7,23,1000,0 _30;4;aa,bb;"";aa+1,bb;"" ` 2141] e fQhoabajo:vederecha:hoarriba:VF:3010 :23676|\,201:2151g g/cc,dd:cc=100023676|\,200: hj8,8,11 ,12 ,9 ,17,8,21,13 ,19,1000,0 i30;4;cc,dd;"";cc+1,dd;"" j 2151g o 23676|\,200:0;6;1;4,5;"";5,5;"": 23676|\,200:0;6;1;16,5;"";17,5;"": ~23676|\,200:f=4172:0;6;1;f,25;"";f+1,25;"":f: |23676|\,200:f=4172:0;6;1;f,5;"";f+1,5;"":f: (v,h)=2f=11 8-1:0;5;1;f,9 ;"";f+1,9 ;"";f+2,9 ;0;" ":.5,f:f:f=1502:f:6000p (v,h)=1f=11 8-1:0;5;1;f,15;"";f+1,15;"";f+2,15;0;" ":.5,f:f:f=1502:f:6000p M(v,h)=314,25;" ";15,25;" ":ad=1 B(v,h)=69Ef=40(502:.05|L,f:f:2700  E(v,h)=810 ,15;" ";11 ,15;" "  Nti=ti-1:20,10 ;"TIEMPO: ";ti;" ":ti=08900"  Nti=ti-1:20,10 ;"TIEMPO: ";ti;" ":ti=08900"  $(v,h)=5rip %M(v,h)=1io=1:f=40(502:.05|L,f:f:2702 /M(v,h)=69Eu=1:f=40(502:.05|L,f:f:2701 7 8Nti=ti-1:20,10 ;"TIEMPO: ";ti;" ":ti=08900" 9 BNti=ti-1:20,10 ;"TIEMPO: ";ti;" ":ti=08900" C L_(v,h)=25000::1200:pa:14,19;" ";15,19;" " M_(v,h)=15000::1200:pa:14,13 ;" ";15,13 ;" " N V(v,h)=13000 W]v=16h=15v=16h=16f=1502:.01z# =,f:f:85004! Xz=1rip _ `Nti=ti-1:20,10 ;"TIEMPO: ";ti;" ":ti=08900" a jNti=ti-1:20,10 ;"TIEMPO: ";ti;" ":ti=08900" k\(v,h)=1FIN=1:F=40(502:.05|L,F:F:2705 :ti=210 s t(v,h)=47900  } ~b(v,h)=24,15;" ";5,15;" ";6,15;" ":jk=1 (v,h)=47900   (v,h)=47900   (v,h)=47900  f20,9 ;"3 LOSA ARRIBA":f=0150:f:20,9 ;" ": ^20,11 ;"ZIG - ZAG":f=0150:f:20,1Track-Info  R         1 ;" ": j20,8;"CAMINO MAS CORTO":f=1150:f:20,8;" ": u20,7;"2 SALA 2 ARGOLLA":F=0150:F:20,0;" ": :1200:23676|\,200:11 ,11 ;"":0;5;1;10 ,9 ;"";11 ,9 ;"" 0;5;1;10 ,o;"";11 ,o;"":o=o-1:10 ,o+3;" ";11 ,o+3;" ":.05|L,40(:o=10 f=070F:f:6000p 3001 23676|\,201:5;1;6,11 ;"";6,15;"";6,19;"":fin=14;7,11 ;" ";7,15;" ";7,19;" " 23676|\,201: 9:1200:hoabajo:hoarriba:veizquierda:vederecha k=1:m(6) r=(*6)+1 10 ,15;r;"";11 ,15;"":.6,r:10 ,15;" ";11 ,15;" ":f=1502:f:m(k)=r:k=k+1:k=75010  5003 3k=1:21,7;"PON LA COMBINACION" -h$=:h$>480Ưh$<5685013  5011 z10 ,15;ٰh$;"";11 ,15;"":.6,h$:f=1502:f:h$m(k)1,502:10 ,15;" ";11 ,15;" ":f=1100d:7;1;8,13 ;"ERA EL";10 ,15;m(k);"";11 ,15;"";13 ,9 ;7;1;"TE EQUIVOCASTE":f=1160:f:6000p $k=k+1:k=75100  5011  pWhoarriba=2200:hoabajo=2205:vederecha=2210:veizquierda=2215 q9ji=0::hoabajo:hoarriba:veizquierda:vederecha r7;8,12 ;"TRAMPING";10 ,11 ;"POR DELFIN";11 ,8;"PARA MICROHOBBY";14,10 ;ji;"PULSA ENTER":f=13:f:ji=ji+1:ji=8ji=0:=13 2 u 6002r W1,502:f=1100d:f::hoabajo:hoarriba:veizquierda:vederecha O7;1;8,11 ;"ARGOLLA";10 ,11 ;"EQUIVOCADA" A13 ,10 ;poi;"PULSA ENTER":=13 6000p +poi=poi+1:poi=7poi=1  7902 @\fin=14;7,11 ;" ";7,15;" ";7,19;" " B !4:1200:hoabajo:hoarriba:veizquierda:vederecha:7;1;11 ,9 ;"LO CONSEGUISTE":f=1100d:f !6A13 ,10 ;poi;"PULSA ENTER":=13 6000p !9+poi=poi+1:poi=7poi=1 !> 85026! "81200:hoabajo:hoarriba:veizquierda:vederecha: "n7;1;8,11 ;"LO SIENTO";10 ,11 ;"SE ACABO";12 ,11 ;"EL TIEMPO" "@14,10 ;poi;"PULSA ENTER":=13 6000p "+poi=poi+1:poi=7poi=1 " 8906" #(f=5120051327 #) a:f,a:f #*24,24,26,60<,88X,24,8,8,24,24,88X,60<,26,24,16,16,12 ,12 ,12 ,31,44,,12 ,524,38&,12 ,12 ,12 ,60<,14,12 ,20,10 ,480,480,480,248,524,480,44,,100d,480,480,480,60<,112p,480,40(,80P #+X255,232,208,168,208,160,212,168,255,103g,65A,3,1,129,67C,1,212,168,148,170,149,194,241,255,1,23,137,1,73I,163,79O,255,255,245,170,213,170,213,170,213,255,15,1,1,1,1,1,1,170,213,170,213,170,213,250,255,1,1,1,1,1,1,15,255 #,153,90Z,60<,255,255,60<,90Z,153,24,153,90Z,60<,24,24,36$,102f #2%f=5145651456+111o #3 a:f,a:f #4#255,234,193,162,1,16,32 ,2,255,31,71G,3,35#,1,73I,1,1,160,20,64@,132,193Track-Info  R         ,240,255,17,1,17,1,65A,3,15,255 #563?,3,15,24,16,24,15,0,252,192,224,480,16,480,224,0,192,192,207,207,192,192,192,192,0,0,254,254,6,6,6,6,192,192,192,192,192,192,255,255,6,6,6,6,0,0,255,255,255,128,143,159,152,128,128,128,255,3,227,243,513,513,115s,227,129,129,129,128,129,128,255,255,195,131,131,3,131,3,255,255 #<&f=5171251799W:a:f,a:f #=255,254,254,253,253,251,248,242,85U,170,197,226,0,255,162,72H,87W,171,91[,59;,23,239,159,63?,255,255,255,255,255,255,254,247,201,151,153,213,152,149,152,183,38&,252,69E,220,4,252,6,220 #?95_,191,95_,191,223,191,221,191,253,255,247,255,255,255,255,255,152,255,251,191,255,255,255,255,4,255,253,223,127,255,255,255,247,255,253,191,255,255,255,255 '  ':***POR DELFIN CON LA COLABORACION DE PEPE***RISKY*** '"Tramping"1 PLUS3DOS   S +32479~:"AC.0"32480~,120x n=6467564706  a:n,a:n (-58:,72H,92\,31,31,31,6,255,14,254,37%,32 ,6,238,16,237,121y,38&,200,45-,32 ,244,238,16,237,121y,46.,255,16,236,201,203 2 570: <32485~,1:32492~,10 :32506~,1:32513,250:32526,1:32545!,1:32533,250:32552(,10 :325666,5:32552(,10 :325666,5:32571;,1 F="1"430 P'="2"32485~,1:430 Z'="3"32485~,2:430 d'="4"32492~,1:430 n'="5"32492~,5:430 x(="6"32492~,10 :430 (="7"32492~,15:430 (="8"32492~,20:430 '="9"32492~,3:430 (="0"32492~,17:430 ="q"440 '="w"32506~,1:440 '="e"32506~,2:440 )="r"32513,240:440 )="t"32513,250:440 )="y"32513,255:440 ="a"450 '="s"32526,1:450 '="d"32526,2:450 )="f"32533,240:450 )="g"32533,250:450 '="h"32545!,1:450 "'="j"32545!,2:450 ,'="k"32552(,1:450 6(="l"32552(,20:450 @="z"460 J'="x"325666,1:460 T'="c"325666,8:460 ^=="v"32571;,1:325666,16:460 h=="b"325666,1:32571;,30:460 r=="n"325666,8:32571;,30:460 |>="m"325666,16:32571;,30:460 ="u"480 ="i"470 ="o"550&  60< 32480~:60< 32501~:60< 32521 :60< 325611:60< 64647:60< a=14 b=15 .05|L,5 .05|L,5+a b a  60< &64675 Track-Info  R         0 60< :n=6464764674 D a:n,a:n N17,98b,100d,38&,502,58:,72H,92\,31,31,31,14,254,238 X16,237,121y,67C,16,254,37%,32 ,244,28,21,32 ,232,201 b 60< '6"Sintetiza"1:"sinteti"32480~,120x PLUS3DOSx~!͵ | !d͵|< !d͵|< !͵ | !N>= :H\A(8 #z PLUS3DOS 7 7 PLANETARIO por  Julian de la Guia  30:0:7::236099\,10 ("BA.0"60000`,608` 2"BA.1"61000H,4032 < 29999/u F INICIALIZACION  P30,0;6;0;" PLANETARIO " Z:"Declive (0";130;" a 90";130;")? ";declive d,declive<0declive>90Z90Z n7declive=90Z-declive:declive=*declive/180 x"Masa del astro? ";astro "Cuantos planetas (1/2/3)? ";p *p1p2p3130 23728\,p:p(p):x(p):y(p+1):d(p):i=1p:y(i)=87W:d(i)=20000 N+i*10000':i:y(p+1)=87W i=1p 221,0;1;1;"PLANETA ";i ;"Masa del planeta? ";p(i) !"Posicion x del planeta? ";x(i) )x(i)<10 x(i)>245190 i (21,0;0;" " i=1 127,87W,4 550&  CALCULOS  i=p+1480  530 " ax=x(i) ,Hr=((x(i)-127)*(x(i)-127)+(y(i)-87W)*(y(i)-87W)) 6!fc=(6.6S333*p(i)*astro)/(r*r) @3proyx=(127-x(i))/r:proyy=(87W-y(i))/r J6fcx=fc*proyx:fcy=fc*proyy:fc1=fc1+fcx:fc2=fc2+fcy Tx(i)=x(i)+fc1:y(i)=y(i)+fc2 ^!y=y(i)*declive:y=y+graduacion hOtamano=(declive*(y(i)-75K)/19.5)+5:tamano=10 -tamano r tamano<1tamano=1 | tamano>9 tamano=9 x(i)10 x(i)245y0y16520,23;1;2;"FUERA DE";21,23;"PANTALLA":.2~L,10 :502:470 Ad(i)=29996,u+i*10000'5600:550&:270 Bd(i),ax:d(i)+1,ay:d(i)+2,tamano:d(i)=d(i)+3  570: 'ax,ay:1;x(i),y:ax=x(i):ay=y =32 470  270  MAS ORBITAS  ;ip520:5600:502:550&:270 /:580D:60270n:0:200 6.2~L,10 :#1;"Otra orbita (s/n)? ";a$ -a$(1)="s"a$(1)="S":70F  0,12 ;0;" ";20,0;" ";21,0;" ":25: <0,12 ;1;1;" DIBUJANDO ORBITA " Z20,0;4;0;" X ";2;7;" Y ";1;" Z ": &Sfc1=0:fc2=1.5@:y=y(i)*declive:ay=87W:graduacion=87W-y: 0jd(i),0:d(i)+1,0:d(i)+2,0:i=i+1:ajuste=87W-ay:y=ay+ajuste: :Y21,1;(ax);" ";21,6;(ay);" ";21,12 ;tamano;" ": D1a=0200:*255,*175:a N Track-Info  R         PLUS3DOS``qpͪ"utut nf~w ( G^VF F nf ͸nf ut w#|($}0 o|g o$H^w@GH lK"L H0lK!N 0b M`J H00UfJIH+MJK`7DKN`pg.HH pg.HH !0u"!@"!P"s*N#F#~#"! =(v`*N#F#~ !0u"! =(`ruP:\G! N'N#F#~! =(`!agp`>2oyOxGɁ:<2(:G( ˇ2!TNFv`!agp`2!aNFv`!Tgp`!0u͇ͧ:\(!@͇ͧ:\(!P͇ͧ""""S>GPLUS3DOS@HPpp8DDD8"""@@@   8T\8*MGI.&#$ @@ @  pPh8Hpp4$p"M]2&E@C@B.@"!!`@ @ P @ hX hT4,p4*tp8D  d8 I@` K@#@$KPAGBF% P% #!h# (| hp j>Z8J{-aZ|%Z=0-|>A-@ @@G>&AxhGP' @`P AA<B\CC4# 0 d !.!! 2aOh j0'Kxfur4|5 @%<@3@:9|>C@   @M>!M@  p N@&0&B$@lZRBL%X0 D! 6ACCAA)!&R   !!ր ) V FD `@@{@J@C |h"@0 z`u=% !@U|>р4@ `=0:e *>h  hh Hp2``4`MHL8HJ0` "RFG-lC!BQ'  R)##@P@@@A@B@@@!!(r @@ ( | ! g @@ 9|TJ@ >Pm3d J @|>*@% ar (6@2%~ @>` 09hd t ? `0`JHD :r  DC0`0%HD"ZA9BO!0  +@@@`F @I@@@!) rL  z@p@@J0@#P@ $ y @&|@ = C bh %  HP<D @\|>B@y p!14$ (H"P .@ɀ>` <@ Fj$( d0`PH\w M5JHK2`0(HO$;&QD%J@%0 $'@W@(@"@B% R  x@ O @@@.H(h(A9A4  @ C<@ '  D@@D@P@$@4@AT@  @ "D  D (j  ` NdMeA ?`Ox ""Q5 U0'2&2 `?`/ 0> 8> 00 :6\o:7\gG8 !\ :{\o:|\g%p_###Z>>0 PzW>?0 Hz@W@`iz8( ZG(${8  _DMů(C~?~(>G~' =(#z8O{8_!X:\(  Z(B#w(#w+ (  Jw(#w:[@2[g:[O:[o|XW]:[[[w$S[o>:[=2[o:[<2[o:[<2[o:[<2[o= :[=2[o|$$$~$$~$> >>bd&F< $~DD|  >>> ~FJVf~~B~`~|DF~|DDD~ ~@~F~~@~FF~| <$~FF~~BB~ >>~>00~JJjjj~BBbbb~FBBB~~BB~``~BBBN~|DD~bb~@~F~|BBBbb~bbbf$<JJJjj~BB x00>||d| >"2>> 2>|Dd||D|`|8|Dd||@@|Ddd  (<$$~JJjj|DDdd|DDd||Dd|@@|Dd|< 000|@| |8DDdd|ddl(8JJjj~DD8ddddD||||`|8pp(~~=zկ_W_ժU{,4oׯ~ݯ RJJR <$$<~BZZB~>?1# ~(U0x//_R<_РX؇+V:[2[![pR:[<2[6>>>̯>̀>Bؤ:A(=2A<2A:E=2E :x\:C<2C9Õ:C=2C9Õ>2A9>2E>2A9:[@MHT_\\g.w# x !@:[(!ҡ"[:[=2[ͨ!ҡ"[!r"[ͨ!r"[:[r(!r"[:[2[:[2[:[2[:[G:[@g:[o$$$[[w$: [![ : [2[^:[=(>2[^:[<(:[:[<(2[!F"[] !I"[]ɯ2[! ͵!͵!2 ͵#͚:C???2 [:E???2 [@͈͠>>:[:[>>:[>:[=:[>>:[!PP~$!PP $P!Pz2`<A#p2[p>52[>͛">G2\6!XX6G> 2X! X6 !Z6#!!Z6 #!"6\! "[>F2[!r"[>2A>2E>22C!"{\:[=0D2[>2[> 2[:[:[! [:[! [>>2[>: [: [>>:[:[<(>22C>2E:[<2[:[<2[>!~(#>>ׯ> >>:[>ׯ>>>:[(--Õ!XX6v>v2H\>>!Ч~(#>(>(>2$8NAVES:PUNTOS: GAMEOVER SPACEJUGARIRONWAR1986JAVIERSUAREZTAMARGOPLUS3DOSLꃃ CARGADOR CM MICROHOBBY ꌌ 65535:menu=6000p n=23296[23312[ c:n,c:n 42*,75K,92\,126~,254,193,40(,6,205,184,25,235,24,245,546,65A,201 Fa$="":23658j\,8 dHa=10 :b=11 :c=12 :d=13 :e=14:f=15 li=1:6000p BUCLE PRINCIPAL  "LINEA",l$:l$=""6000p n=1̱l$ !l$(n)<"0"l$(n)>"9"1001  n:line=l$ Clineli23689\,23689\-1:5000:1000 0" DATOS ";d$ d$=""6000p Ncx=24-23689\:cx,0;d$;cx,21;138;"LINEA ";li &d$205000:1000 n=120 V w$=d$(n) ~Aw$>47/w$<58:w$>64@w$<71G1170 =cx,n-1;1;1;" ":5000:1000 n:ch=0 n=1202 0he=d$(n)*16+d$(n+1):ch=ch+he:n ct=0:"CONTROL ",ct ctch5000:1000  a$=a$+d$ li=li+1:1000 I.2~L,0:254,2:23689\,23689\+1: pMENU PRINCIPAL u?#0;7;1;" INPUT LOAD SAVE DUMP TEST " i$=:i$=""6100 8i$="I"1000 Bi$="S"7000X Li$="L"8000@ Qi$="T"7500L Vi$="D"9000(# j 6100 X SAVE Y?#0;3;7;" FUENTE(F) OBJETO(O) RETURN(R) " Z(0:"F"Ʀ"O"Ʀ"R"7002Z [="O"7250R \="R":6000p ]SAVE DATA ^a$=""9500%:6000p `li b#a$=¾23670v\+¾23671w\+a$ g5"NOMBRE (Save)",n$:n$=""űn$>10 7015g l n$a$() q#0;6;" DESEA VERIFICAR (S/N) ":0:="S"#0;7;2;" REBOBINE LA CINTA Y PULSE PLAY ":n$a$()::"CODIGO FUENTE: ";n$:200  va$=a$(3):  6000p RSAVE CODE WC3;7;"DIRECCION ";di,3;7;"N.BYTES ";nb \5"NOMBRE (Save)",n$:n$=""űn$>10 7260\ f n$di,nb k#0;6;" DESEA VERIFICAR (S/N) ":0:="S"#0;7;2;" REBOBINE LA CITrack-Info  R NTA Y PULSE PLAY ":n$di,nb::"CODIGO OBJETO: ";n$'"Inicio: ";di,"Longitud: ";nb:200  p  6000p L TEST Oa$=""9500%:6000p Q:m=1(a$)20 V@a$(mm+19);" ";138;"LINEA ";(m/20)+1 `m:6000p @ LOAD J"NOMBRE (Load)",n$ T n$a$() Y23296[ ^9li=a$(1)+256*a$(2):a$=a$(3) cW:10 ,5;"Ultima linea: ";li-1;11 ,5;"Comenzar por: ";li h 6000p #( DUMPING #+a$=""9500%:6000p #-"DIRECCION ",di: #.di<23653e\+256*23654f\(di+a$/2)>653001;5,6;"ESPACIO DE TRABAJO":n=1200:n::6000p #/\9 ,7;1;"VOLCANDO EN MEMORIA":7,5;"Direccion Inicial: ";di #0F11 ,4;"RESTAN:";11 ,17;"DIRECCIONES" #2 n=1(a$)2 #72di,a$(n)*16+a$(n+1):di=di+1 #:111 ,12 ;(a$/2-n/2);" " #<^n::10 ,8;1;"VOLCADO COMPLETO":n=1100d:n::6000p %SUBRUTINA MEMORIA VACIA %G:#0;1;" NO EXISTE NINGUN CODIGO FUENTE ":300,:: &Q:"CARGADOR"1:#0;"REBOBINE LA CINTA PARA VERIFICAR":"CARGADOR": 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'''''''''