MV - CPCEMU Disk-File Disk-Info ZX-Modules(Track-Info  R ( *RTrack-Info  R DISK MICRO 7 17  AA l AB +AC  AC 0 !AD "#$%&'()*+,-./01AD 42345678AE 9:;AE 0 <=BA B>?@ABCDEFBB GHBC ;IJKLMNOPBD BQRSTUVWXYBE !Z[\]^BF &_`abcBG dBG 0 efBH OghijklmnopPLUS3DOS@ @DISKEADO POR MADFOX "MICRO"  300, "17" 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;;88888887778888PLUS3DOSHHdCINTA 17 (REVISTAS 65 a 68) 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-Anoms" 7,18;"B-Poli4" & 8,3;"C-Nanodrive" 08,18;"D-Maquina" :9 ,3;"E-Print42" !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" HB$="1"100d R 500 --- MENU CARA B --- :5000:6000p 4,12 ;"CARA B" 7,3;"A-Sistemas" !7,18;"B-Variables" 8,3;"C-Floppy" $!8,18;"D-Canibales" .!9 ,3;"E-Integral 1" 8"9 ,18;"F-Integral 2" B"10 ,3;"G-Calculador" L!10 ,18;"H-Memorion" !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$="1"100d F 1000 --- CABECERA --- 51:0,4;"CINTAS MICRO N. 17" -2:0,16;"HOBBY":0 C3:1,6;"DISKEADO POR MADFOX":0:0 #3,8;"REVISTAS 65-68"  p--- PIE DE PANTALLA --- z?1:20,0;" J, siempre... ILM " ?21,0;" ELIGE UNA OPCION ":0  PLUS3DOS5k5k5q7:7:0::1;10 ,8;" PARE LA CINTA ":I=164@:.02{# =,I:I: 9***** ARROWS **** ** A. TENREIRO ** 7236099\,80P:23658j\,8:5000 #B=110 :15:B: RES=(*6)+1 .M=04:M,YD;7;" ":M 30+10 *RES: ($2,YD+2;0;" ": 2=0,YD+4;0;" ";4,YD;0;" ": <40(:502: FG502:0,YD;0;" ";4,YD+4;0;" ": P40(:70F: ZG70F:2,YD+4;0;" ";2,YD;0;" ": ffi=18-2*c h:(c/2)=c/2co=2*(v-1)+6: jco=-2*v+26: xrt=(cn-cas)+(a(cn)): pv=1:cn=cas+res 0cn>100dcn=100d-(cas+res-100d) ju=1155 Vcas=f(2,1)f(2,2)=cnpv=0:cn=100dpv=1: Vcas=f(2,2)f(2,1)=cnpv=0:cn=100dpv=1:  K(cas=f(1,1)f(1,2)=cn)CN100dpv=0: K(cas=f(1,2)f(1,1)=cn)CN100dpv=0:  ,5fi,co;1;in;pap;"";fi+1,co;"": .'ea=ju+1:ea=3ea=1 0 com=0Track-Info  R  18do=cv+st:do>100ddo=100d-(cv+st-100d) 38fjb=-1:fcb=-1:fcp=-1:fjp=-1 6fa1370r 8cv0345Y :f(ea,1)do330J <450:454 >$f(ea,1)=0:com=1 @ 410 Jf(ea,2)do340T L450:454 N/f(ea,2)=0:com=2:410 T+fjb=0:fjp=do:454:410 Yf(ea,1)do352` [451:454 ]+f(ea,1)100df(ea,1)=cv ^ 410 `f(ea,2)do360h b451:454 d+f(ea,2)100df(ea,2)=cv f 410 hfjb=cv jfjp=do:454:410 rcv0390 tf(ea,1)=do386 vf(ea,2)=do380| x+fjb=0:fjp=do:456:410 |450:456 ~/f(ea,2)=0:com=2:410 450:456 /f(ea,1)=0:com=1:410 f(ea,1)do400 451:456 +f(ea,1)100df(ea,1)=cv  410 8f(ea,2)dofjb=cv:fjp=do:456:410 451:456 +f(ea,2)199f(ea,2)=cv  410 [fjb=0fi=16+(2ju=2):co=0+(3fa=2):414 <c=((fjb-1)/10 ):v=fjb-(10 *c):100d in=ju fjb=0pap=4 #fjb0pap=a$(fjb,1)  300, fcb=-1430 <c=((fcb-1)/10 ):v=fcb-(10 *c):100d (in=ea:pap=a$(fcb,1):300, fcp=-1444 \fcp=0fi=16+(2ju=1):co=0+(3com=2):436 <c=((fcp-1)/10 ):v=fcp-(10 *c):100d in=ea fcp=0pap=4 #fcp0pap=a$(fcp,1)  300, fjp=100d <c=((fjp-1)/10 ):v=fjp-(10 *c):100d (in=ju:pap=a$(fjp,1):300,  ,fjb=0:fcb=do:fcp=0:fjp=do: -fjb=cv:fcb=do:fcb=100dfcb=-1 -fjp=do:fcp=cv:fjp=100dfcp=-1  f(ju,1)=do: f(ju,2)=do: c1=0:c2=0 "cn=f(1,1)c1=cn-cas 'cn+a(cn)=f(1,2)c2=a(cn)  8,1;1;F(1,1)+F(1,2);8,27;2;F(2,1)+F(2,2): pap=7 8c=09 :v=110 :ca=10 *c+v 100d -23675{\,88X:23676|\,255 "c=0v10 3010 >fi,co;0;pap;(((10 *c+v)/10 )+143) .fi,co;1;0;pap;(v+152) .23675{\,176:23676|\,254 pfi+1,co;0;pap;" ":a$(ca,4)" "fi+1,co;0;pap;(a$(ca,4)+79O) pfi,co+1;0;pap;" ":a$(ca,2)" "fi,co+1;0;pap;(a$(ca,2)+79O) ˀfi+1,co+1;0;pap;" ":a$(ca,3)" "fi+1,co+1;0;pap;(a$(ca,3)+79O) &pap=7pap=5:3030 pap=5pap=7 v:c  U''"ESTE JUEGO SE DESARROLLA EN UNTABLERO QUE CONSTA DE 100 CASI-LLAS NUMERADAS." D''"CADA JUGADOR (TU Y EL SPECTRUM),DISPONE DE 2 FICHAS Y UN DADO." S''"DE ALGUNAS DE LAS CASILLAS PARTEUNA FLECHA CUYO EXTREMO INDICA -OTRA CASILLA." 921,0;1;"PULSA UNA TECLA":0: 90,0;" DESARROLLO DEL JUEGO " ''"PRIMERO SE DECIDE CUAL JUGADOR MUEVE PRIMERO. PARA ELLO SE TIRAEL DADO DE CADA JUGADOR. AQUEL QUE SAQUE EL NUMERO MAYOR ES EL PRIMERO EN SALIR." ''"CADA VEZ QUE TE TOQUE DEBERAS PULSAR UNA TECLA PARA TIRAR TU DADO. UNA VEZ OBTENIDO EL RESUL-TADO EL SPECTRUM TE PREGUNTARA EN QUE CASILLA ESTA LA FICHA QUE QUIERES MOVER. SI LA CASILLAESTA EN LA SALIDA DEBES PULSAR EL 0 (CERO)." 21,0;1;"PULSA UNA TECLA":0::0,0;"ANTES DE MOVER UNA FICHA DETER- MINADA DEBES DE TENER EN CUENTA LAS SIGUIENTES NORMAS:":'"SI EN LA CASILLA EN QUE CAES HAYUNA FICHA ENEMIGA, ESTA RETROCE-DERA HASTA LA CASILLA EN LA QUE ESTABAS TU" '"SI EN LA CASILLA QUE CAES NACE UNA FLECHA, TU FICHA AVANZARA O RETROCEDERA HASTA EL EXTREMO DE LA MISMA. SI EN EL EXTREMO HAY UNA FICHA ENEMIGA, ESTA AVANZARA O RETROCEDERA HASTA EL OTrack-Info  R RIGEN DE LA FLECHA." e'"COMO YA SUPONES, EL OBJETIVO DELJUEGO CONSISTE EN LLEGAR CON LAS2 FICHAS A LA META (CASILLA 100)" ;1;'"PULSA UNA TECLA":0::"SE ME OLVIDABA... A LA META HAY QUE LLEGAR CON EL NUMERO EXACTO SI NO...... CUENTAS PARA ATRAS Y ESO ES.... PELIGROSISIMO.":21,0;1;"PULSA UNA TECLA Y... SUERTE":0::   65199 E4:0:7:10 ,6;"UN MOMENTO POR FAVOR" %A(100d):a$(100d,4) F(2,2)  5040 %N=0151:V:"A"+N,V:N 0,0,0,32 ,32 ,32 ,32 ,32 ,0,0,0,112p,16,112p,64@,112p,0,0,0,112p,16,480,16,112p,0,0,0,80P,80P,112p,16,16,0,0,0,112p,64@,112p,16,112p,0,0,0,112p,64@,112p,80P,112p,0,0,0,112p,16,16,16,16,0,0,0,112p,80P,112p,80P,112p,0,0,0,112p,80P,112p,16,112p,0,0,0,4,4,4,4,4,0,0,0,7,1,7,4,7,0,0,0,7,1,3,1,7,0,0,0,5,5,7,1,1,0,0,0,7,4,7,1,7,0,0,0,7,4,7,5,7,0,0,0,7,1,1,1,1,0,0,0,7,5,7,5,7,0,0,0,7,5,7,1,7,0,0,0,7,5,5,5,7 .23675{\,176:23676|\,254 %N=0167:V:"A"+N,V:N ~4,4,4,14,14,4,0,0,4,4,4,4,4,4,4,4,1,2,12 ,28,8,0,0,0,0,0,0,0,480,480,64@,128,0,0,0,0,480,248,480,0,0,0,0,4,14,14,4,4,4,4,14,14,10 ,0,0,0,0,0,0,0,12 ,31,12 ,0,0,0,10 ,14,14,4,4,4,4,4,4,4,4,252,0,0,4,4,4,4,4,7,0,0,0,0,0,0,0,7,4,4,0,0,0,0,0,252,4,4,0,0,0,0,0,255,0,0,0,0,0,0,568,31,568,0,1,2,12 ,12 ,0,0,0,0,0,0,0,16,568,480,64@,128,0,0,0,0,3,7,15,15,0,0,0,0,192,224,240,240,15,15,7,3,0,0,0,0,240,240,224,192,0,0,0,0 #N=1100d:V:A(N)=V:N =0,0,21,0,11 ,0,0,0,0,20,0,0,0,-7,0,0,0,0,4,0,0,0,0,0,10 ,-11 ,0,4,-21,0,0,0,15,0,0,0,0,0,0,-20,0,17,-6,0,10 ,0,0,0,0,0,0,-2,0,-20,0,0,0,0,0,0,0,0,16,0,0,3,0,0,0,0,0,-21,0,0,12 ,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-20,0,0,0,-40(,0,-18,0 n=1100d:a$(n):n  "7","5","7G","5","7G","5","7A","5 H","7BJN","5G","7BB","5BB","7","5IB","7A","5 F","7","5BB","7C","5A","7BB","5","7 LD","5 E","7G","5 I","7","5C","7 I","5 F","7","5 D","7G","5A","7 E","5 L","7 E","5BK","7","5 I","7","5G","7 I","5","7C","5","7BB","5 F","7BK","5 E" "7A","5 I","7","5 I","7 D","5"Track-Info  R ,"7A","5","7 F","5","7","5","7G","5BB","7","5 O","7 NN","5 NN","7 E","5BB","7 MN","5 O","7A","5BJN","7 O","5","7BB","5 MN","7 H","5","7P","5","7","5BB","7","5","7 F","5BB","7","5","7","5","7 I","5","7","5","7 I","5","7 Q","5" :.5,1 @"DESEA INSTRUCCIONES? (S/N): ";I$:I$(1)="S"4000  3000 |6,0;1;"PUNTOS";8,1;1;"0";6,26;2;"PUNTOS";8,27;"0"  '5140:N=18:X,Y,C$ 16,0,"R",16,1,"S",16,3,"R",16,4,"S",17,0,"T",17,1,"U",17,3,"T",17,4,"U" HX,Y;1;(C$+79O);X+2,Y;2;(C$+79O):N  m14,0;3;6;"SALIDA":0;5;0,6;"ME";1,6;"TA" dO#0;0,0;"VEAMOS QUIEN SALE";1,0;"TIRA TU DADO" n&0:yd=0:10 :j=res [;:#0;0,0;"TIRO YO":502:yd=27:10 :s=res:100d Mj>S#0;0,0;"TU SALES":80P:ju=1:5350 Mjses+1z(i,j)=pdx*x:j=j+1 k:j=j-1:j  /pdx=x*p(21,3)+p(20,3) k=191-1 'pdx=pdx*x+p(k,3):k:z(i,j)=pdx (i 2 8000@ 7:"Las fracciones son:"''' <:i=421:p(i,7)=0:i:jac=1 Fjac>sesjac>dzi7800x K&w=1x(4,jac):7050 PL(1e4'*d(jac+w-1,dzi+1)+.5)*1e-4sQX;"/(";b$;")"; Zw>1(142+w); d:w njac=jac+w-1:7750F xjac>dzi8630! }=w=12*x(4,jac)2:7050:x$=b$ 1p(1,7)=d(jac+w-1,dzi+1) )p(2,7)=d(jac+w,dzi+1) (p(3,7)=0:1200 "(";b$;")/(";x$;")"; .w>1(142+(w+1)/2); :w  8630! @7dzj=dzi+1:ddj=dzj:ddi=dzi+1:d(ddi,ddj) E dzmin=dzi J3i=1dzi:j=1dzj:d(i,j)=z(i,j):j:i T 8200 r j=j1j2j3 |d(j,j)08080 Qpas=0i=j+j3i2j3:d(i,j)0fi1=j:fi2=i:8950":8080 pas=1j:  8105 gnum2=1/d(j,j):fi2=j:fi1=j:num1=0:8970 #:i=j+j3i2j3:d(i,j)=08100 /num2=d(i,j):num1=-1:fi1=i:8970 # i:j: Cpas=0:j1=1:j2=dzmin:j3=1:i2=dzi:8050r :Hpas=1:j1=dzmin:j2=1:j3=-1:i2=1:8050r ?/det=1:i=1dzi:det=det*d(i,i):i D l:"La integral vale:"''': U:"Vamos a integrar una expresion de la forma (ax+b)/(cx";144;"+dx+e)^n"''' "Introduce a,b,c,d,e y n:"''' +"a ";a,"b ";b,"c ";c,"d ";d,"e ";e,"n ";n Gnɺnn<1"n debe ser entero y positivo":100d:8400 Tc(d*d>4*e*c)ac"Hay que descomponer la fraccion":100d:8400 7200  !c85004! ! 8300l !=n>1"-";b/d/(n-1);"/(";d;"x+";e;")^";n-1 ! "n=1b/d;"(";d;"x+";e;")" !* 8630! !4kz(2*n,2*n+1):a$="c*x*x+d*x+e":dzi=2*n:i=0dzi-1:x=i*+.123}{l !>j=12*n-2 !H[z(i+1,j)=(j-1)*x^(j-2)*a$-x^(j-1)*(n-1)*(2*c*x+d):j !R0z(i+1,j)=(2*c*x+d)*a$^(n-1) !\Cz(i+1,2*n)=(c*e-d*d/4)^.5*a$^(n-1) !f&z(i+1,2*n+1)=a*x+b !pi:8000@ !zEi=12*n-2:p(i,7)=d(i,2*n+1):i !7i=2*n-121:p(i,7)=0:i !1200:t$=b$:8300l :A=(1e4'*d(dzi-1,2*n+1)+.5)*1e-4sQX:B=(1e4'*d(dzi,2*n+1)+.5)*1e-4sQX !Gb$"0""(";b$;")/(";c;"x";144;"+";d;"x+";e;")^";n-1;"+" !6A0A;"(";c;"x";144;"+";d;"x+";e;")+" !bB0B;"arctag((";c^.5;"x+";d/2/c^.5;")/";(e-d*d/4/c)^.5;")" !?#0;" Pulsa una tecla para volver":0:7400 "%k=1ddj:d(ddi,k)=d(fi1,k):k "%k=1ddj:d(fi1,k)=d(fi2,k):k "'k=1ddj:d(fi2,k)=d(ddi,k):k: # :k=1ddj:d(fi1,k)=d(fi1,k)*num1+d(fi2,k)*num2:k: Track-Info  R PLUS3DOSxxd)A(A,B,C)=65170 Cargador de Nanodrive (0:0:7:65169 "AC.0"65170,357e #q7:7:0::1;10 ,8;" PARE LA CINTA ":I=164@:.02{# =,I:I: ( d3"Nanodrive"0:"nano"65170,357e n"Verificando" x "":"" "Ok"  PLUS3DOSe* \~n f ^V>7ʶ5>G !!+>G- %/> 7;o z( n|g>7ly0 < # >z<;>! O0ͼ0.&ͼ0>0$ 0x0yO& 0uyO~#.ͼ>ң|gz |>= >Щ (y/O7>>2H\>8 PLUS3DOSY"Y"Yjq7:7:0::1;10 ,8;" PARE LA CINTA ":I=164@:.02{# =,I:I:  8000@ $pant=1:m=0:v=2 vid=z-480 a$="" d%7000X+pant*100d-100d n9900&:7700 xx=19:y=3 o0,0;6;2;"monedas recogidas : ";m;0,24;5;1;"vidas:";vid "a=(*20):b=(*20) 620,3;1;"";21,3;"" programa principal  "a=a+(x-a)/2:b=b+(y-b)/v &(x+1,y)=71Gx=x-1 x<21x=x+1 "1""2"a$="" 8="0"(x-2,y)71Gx>2x=x-2 @="1"a$="":(x,y-1)71Gy>0y=y-1 A="2"a$="":(x,y+1)71Gy<31y=y+1 !"x=21y=24000 &(x,y)=3m=m+1:x,y;" ";0,21;6;2;m:g=2025:.01z# =,g:g:m/5=(m/5)3000 0(x,y)72000  x,y;a$ #(a,b)=7a,b;4;"" 2:.01z# =,10 x=ay=b2000  x,y;" " (a,b)=4a,b;" " l 500 vidas  Nvid=vid-1:0,30;1;5;vid:.1}L,-20 fg=010 :e=07:x,y;e;"":.01z# =,g+10 :.01z# =,e+20:e:g vid=02500 m=(pant-1)*5  :20 fin  1:6:1: L5,10 ;1;"!LO SIENTO!";10 ,9 ;"HAS FRACASADO" [g=10 0-1:e=0-20-1:.01z# =,g:.01z# =,e:e:g )15,7;"OTRA PARTIDA (S/N)?" ="s" ="n" 2540 monedas recogidas Track-Info  R           -20,3;" ";21,3;" " 1;19,0;1;2;0;"";20,0;0;6;"";21,0;"";5;1;"";0;6;""  cambio de epoca  8g=030:*7:.01z# =,*502:g gg=021:g,0;1;٥*7;"":.01z# =,g:g 8g=030:*7:.01z# =,*502:g g=0300,:g 0:g=021:1;6;1;g,0;"":g:g=0300,:g -pant=pant+1:pant=76000p  100d omision cumplida  p6:2:7: zE5,4;"Has atrapado al ladron y hasrecuperado el botin." -10 ,10 ;1;"!ENHORABUENA!" jg=01:e=030:.01z# =,e:.01z# =,e-10 :.01z# =,e+10 :e:g <g=010 :e=2025:.01z# =,e:e:g ;15,7;7;1;"OTRA PARTIDA (S/N)?"  ="s"  ="n"  6060 Wprimera epoca  Xe3:0:7::10 ,10 ;1;"EDAD DE PIEDRA":7800x::9000(# YY17,7;1;4;"";18,7;"";19,6;"" Z<6;18,13 ;"";19,13 ;"" \E5;1;18,27;"";19,27;"" ^20,3;1;"";1;"";7;21,3;"";1;"" _ 9025A# aG2;1;2,22;"";3,22;"" b/1;6;88X,152,10 d_1:2:175,16:1,70F:183,16:-1,70F f4:178,112p:-10 ,-70F,1:178,112p:10 ,-70F,-1:0:7  segunda epoca  Q3:0:7::10 ,14;1;"EGIPTO":7800x:  9040P# Я6;1;;14,11 ;"";15,11 ;"";16,11 ;"";17,11 ;"";18,11 ;"";19,11 ;"" 69080x#:19,14;6;1;"" w5;7,1;"";8,1;"";9 ,1;"";10 ,1;"" 1:2:232,88X:-64@,0:34",45-:34",-45-:10 ,20:-43+,26:0:0  tercera epoca   Y3:0:7::10 ,10 ;1;"IMPERIO ROMANO":7800x: * 9100# 4b6;1;8,15;"";9 ,15;"";10 ,15;"" >A4;1;10 ,8;"";11 ,8;"" H2:1:80P,120x:0,32 :24,0:0,-32 :-8,0:0,16:-8,0,2:0,-16:-8,0 J 7,4;5;"" Re3:39',80P:1;0,31:40(,80P:1;0,31 \7:0 z cuarta epoca  U3:0:7::10 ,12 ;1;"EDAD MEDIA":7800x:  v=1 1:1:5,1;"";6,1;"":g=713 :g,1;"":g:7,2;1;7;"";9 ,2;"";12 ,2;"";13 ,2;"" 4:5,21;"";6,21;"":g=713 :g,21;"":g:7,23;5;4;"";9 ,23;"";12 ,22;"";13 ,22;"" 6:11 ,9 ;" ";12 ,9 ;" ";13 ,9 ;"":g=1416:g,9 ;"":g 12 ,10 ;2;6;"";12 ,15;"";14,10 ;"";14,15;"";15,12 ;"";16,12 ;"" 7:0  quinta epoca  W3:0:7::10 ,11 ;1;"EDAD MODERNA":7800x:  1 yg=1521:3;g,4;"":g:g=16202:g,5;1;3;" ":g vg=17Track-Info  R         21:g,9 ;4;"":g:g=1720:4;6;g,10 ;" ":g vg=1621:2;g,16;"":g:g=1721:5;2;g,17;"":g |g=621:6;g,22;"":g:g=7193:g,23;1;6;"":g 04;1;112p,128,16 $ 0 B K!sexta epoca  LU3:0:7::10 ,12 ;1;"SIGLO XXV":7800x: V 9150# `@1:g=0100d:(*255),(*175):g jGn$="":9 ,15;6;n$;15,3;4;n$ oGn$="":5;11 ,8;n$;21,7;3;n$ t06;1;200,104h,32 y]1;1;112p,480,16:3;1;80P,136,8 ~^2;1;32 ,104h,20:2;1;128,128,4  0  !maquina del tiempo  [19,0;2;"";20,0;6;"";21,0;"" 3:3,6;"";3,19;"";8,12 ;"";12 ,6;"";12 ,19;"":7 ( s$="" 2s4,5;1;s$;4,18;s$;9 ,11 ;s$;13 ,5;s$;13 ,18;s$ F wcuenta atras  xg=9 0-1:12 ,16;g:10 :.01z# =,g:10 :.01z# =,g-10 :10 :.01z# =,g+10 :g:g=030:.005y# =,g:g: ?instrucciones  @&4:0:1:1: JG0,0;2;6;" INSTRUCCIONES " OG2,0;7;4;" *La Maquina del Tiempo* " T_4,0;5;" Tienes que atrapar al la- dron del Banco Central que,juntocon un cientifico loco ha esca- pado en La Maquina del Tiempo. Para conseguirlo debes vagar pordistintas epocas recogiendo las monedas que encuentres y cuando ya no queden mas,entrar en la maquina que te teletransportara a otra epoca. " Yo:5;" No toques nada de lo que veas en tu viaje por que podria ser peligroso. " [/:5;"Controles: 1-Izq. 2-Derc. 0-Sub." ^::3;7;" Cuantas vidas quieres (1-9)? " c0:0 hz= r#z<491z>5798040h |:g=020:.02{# =,g:.02{# =,g-20:g   #'graficos definidos  #(390102#:g=0151:a:"a"+g,a:g: #215,31,62>,63?,63?,63?,127,127,192,224,120x,248,128,248,192,128,127,127,255,255,255,255,255,255,194,230,240,0,0,128,128,128,0,128,193,103g,63?,63?,31,7,255,255,255,255,247,135,3,3,128,128,128,0,128,128,240,240 #70,1,3,3,131,199,103g,63?,0,135,207,223,255,255,255,255,0,240,248,252,255,255,255,255,63?,13 ,5,7,7,15,12 ,0,255,255,255,63?,557,25,120x,120x,255,255,254,254,204,204,30,30 #<60<,62>,230,254,255,15,7,3,0,0,0,0,0,0,128,128,3,3,1,0,0,0,0,0,192,195,255,255,255,63?,63?,31,254,255,255,255,255,255,255,255,0,192,240,240,252,252,254,255 #A29030F#:g=079O:a:"a"+g,a:g: #Ft0,3,7,14,60<,113q,227,7,126~,255,255,119w,227,193,112p,243,0,128,192,192,240,249,251,255,0,0,32 ,112p,252,254,255,223,0,0,0,0,0,0,128,192 #Kb15,28Track-Info  R         ,568,112p,224,128,0,0,63?,0,0,0,0,0,0,0,255,254,253,119w,16,28,4,7,128,0,0,128,128,224,32 ,568,224,480,0,0,0,0,0,0 #P39045U#:g=0167:a:"a"+g,a:g: #U0,0,0,0,0,0,1,2,1,7,28,480,64@,128,0,0,128,224,568,12 ,2,1,0,0,0,0,0,0,0,0,128,64@ #Z4,4,8,8,16,16,16,16,0,0,64@,76L,82R,76L,65A,65A,0,0,2,502,74J,502,130,130,32 ,32 ,16,16,8,8,8,8 #_32 ,32 ,32 ,32 ,63?,0,31,32 ,65A,67C,64@,79O,200,79O,224,32 ,130,194,2,242,19,242,7,4,4,4,4,4,252,0,248,4 #d64@,64@,64@,64@,64@,64@,64@,64@,16,8,7,0,64@,64@,64@,64@,8,16,224,0,2,2,2,2,2,2,2,2,2,2,2,2,64@,64@,64@,96`,80P,79O,64@,64@,2,2,2,6,10 ,242,2,2 #i73I,118v,546,0,0,0,0,0,64@,192,192,0,0,0,0,0,2,3,3,0,0,0,0,0 #x19085}#:g=07:a:"a"+g,a:g: #}G146,110n,108l,0,0,0,0,0 #39105#:g=0167:a:"a"+g,a:g: #R0,0,0,0,3,4,7,4,1,6,568,192,0,0,0,192,255,0,0,0,0,0,0,0,128,96`,28,3,0,0,0,3,0,0,0,0,192,32 ,224,32 #g4,4,4,4,4,4,4,4,568,6,65A,228,238,238,14,64@,0,0,255,0,68D,238,238,238,28,96`,128,4,78N,238,238,224,32 ,32 ,32 ,32 ,32 ,32 ,32 ,32 #d4,4,4,3,0,0,0,0,228,238,110n,14,192,568,6,1,0,68D,238,238,238,0,0,255,4,78N,238,232,195,28,96`,128,32 ,32 ,32 ,192,0,0,0,0 #.67C,67C,67C,65A,255,67C,67C,67C,192,192,192,128,224,208,200,200,67C,67C,67C,66B,66B,66B,66B,78N,208,224,192,64@,64@,64@,64@,112p #1,1,3,3,3,7,7,1,128,128,192,192,192,224,224,128 #29155#:g=047/:a:"a"+g,a:g: #0,0,0,0,1,15,127,127,0,0,63?,97a,255,255,255,255,127,254,252,240,252,252,240,240 #254,126~,63?,15,63?,63?,15,15,0,0,252,135,255,255,255,255,0,0,0,0,128,224,254,254 &39910&:g=0111o:a:"a"+g,a:g: &M60<,102f,223,231,247,102f,60<,0 &O126~,255,219,219,255,66B,102f,60< &60<,126~,90Z,255,165,189,36$,102f,60<,126~,122z,126~,126~,60<,72H,108l,60<,126~,94^,126~,126~,60<,18,546 &0,4,2,17,8,4,2,0,129Track-Info  R         ,66B,24,60<,126~,255,255,255,0,32 ,64@,136,16,32 ,64@,0 &7,4,5,4,5,4,5,4,255,0,85U,0,0,0,0,60<,224,32 ,32 ,32 ,160,32 ,160,32 &5,4,5,4,5,4,4,7,60<,60<,60<,60<,60<,60<,60<,255,160,32 ,160,32 ,160,32 ,32 ,224 4 888 8 8 888888<dfXdjjXdjjXdjjXdjjX`Xdh`XdhpXdjdXdjjXdjjXdjjXdjjXlf~XbfXj XnXnXbjXbdX`XdjjXdjjXdjjXlf~XjjnXdj2Xbd`Xbd`XdjjXdjjXdjhXdjhXd`hXd`hXf`<Xf`<Fyrl`xXld|Xdf`XdjhXdjjXbjXnXfX`X`X`X`X`X`XbdpXbdpXfXfXbX`X`X`X`X`XbrdXbrjXdjjXdjjXdjjXlf~Xlf~Xfb>XdjhXdjjXdjjXdjjXdjjXdjjXdjjXdjjX`XbrdXdh`Xdh`XdjdXdjdXdjhXdjjFLz`nruuDDVXuuF`XfXnXbhL60<,113q,227,7,126~,255,255,119w,227,193,112p,243,0,128,192,192,240,249,251,255,0,0,32 ,112p,252,254,255,223,0,0,0,0,0,0,128,192 #Kb15,28,568,112p,224,128,0,0,63?,0,0,0,0,0,0,0,255,254,252,119w,16,28,4,7,128,0,0,128,128,224,32 ,568,224,480,0,0,0,0,0,0 #P39050Z#:g=0167:a:"a"+g,a:g: #Z$0,0,0,0,0,0,1,2,1,7,28,480,64@,128,0,0,128,224,568,12 ,2,1,0,0,0,0,0,0,0,0,128,64@,4,4,8,8,16,16,16,16,0,0,64@,76L,82R,76L,65A,65A,0,0,2,502,74J,502,130,130,32 ,32 ,16,16,8,8r ! 'd'pAay y~|            p*   0('  y$; ``rAufqz`00y#rI76rKufSqz`00y)``@0`p3 rww "www0@'wwpTrack-Info  R         2rw7`"www'wta0@`_!!! !!!```@phdd!!!!!!!'hp`    8@@```pp@rdufqz`00ypr??p?~x~~xxor?~C@pVr[uf7qz`00yv [&r3os{3\'r?mm!3]sr?-R^3?=??$6?/?? _=r@! ? D *pPPPPPPLUS3DOS= O PRINT-42 DEMO  Ricardo Serral Wigge Caracteres EA5AKY ((1:1:9 :63609y 2 "AE.0" <DEMO F<:250:#0;0,0;:0,0; P 4;0;1;"<<<";0;"Esto es una";1;1;1;" demostracion ";0;0;0;" ";7;1;"P";2;"R";4;"I";5;"NT";4;"-";2;"4";1;"2 ";4;0;1;">>>" Z#0'4;0;1;"<<<";0;"Esto es una";1;1;1;" demostracion ";0;0;0;" ";7;1;"P";2;"R";4;"I";5;"NT";4;"-";2;"4";1;"2 ";4;0;1;">>>" dOn=041):a=n-10 *(n/10 ):2,n;a;21,n;a:n n64,0;:n=32 143:n;" ";:n x 330J 613 ,0;:n=32 143:n;" ";:n 250 om=010 :n=041):a=n-10 *(n/10 ):1;2,n;a;21,n;a:n:m :250:0,0; 4000 n=0500:n 23692\,255 330J:250 n=0500:n 60< 0 8 Inicializacion +chans=23631O\+256*2Track-Info  R 3632P\  n=chanschans+155 4nchans+10 n,156:n+1,249 n #activar nuevo juego de caracteres -236066\,88X:236077\,251 6 Conectar modo normal +chans=23631O\+256*23632P\  n=chanschans+155 2nchans+10 n,244:n+1,9 n &desactivar nuevo juego de caracteres +236066\,0:236077\,60< 6 PLUS3DOS^z![>![uFGw#0+ÖNxFO18f(^-(Z>{?\5R E>2\*\:\> !;\ˮ (E(A n(;>2\"\ F1+͛|XgZN q#ɀscroll 81DG*\*\M x!k\Fx, N > +Ö:\6W> 2\Nz+͢Ö y==Z>?l/2\ /2\*Q\s#r̀ *\W}" )DJ>)8 ON >ڟ ;  y>0k![N xF(1G͛>+_??_ \NE*\8@0)G \J!\Ow# ֥0 K{\   K6\!;\ˆ &o))) y=>+ ON(zy̢y2\:\8O>N(07:\(}(E(>G>Oz>G>OF>G>G>OF H>G>OF8888>?G>OF >G>?OF888-#=o%N :\( ( , :\#> _(->*(-28## HH((|(|((|P||`d L PP TH4  (|(|x00 @8LTTTd80P|8D8@@|8DD8(H|x@@xD88@@xDD8| 8DD8DD88DD<8 @ xx8D8DT\X@<8DD|DDDxDDxDDx8D@@@D8xDDDDDx|@@p@@||@@p@@@8D@\DD8DDD|DDD||DD8DHP`PHD@@@@@@|DlTDDDDDdTLDDD8DDDDD8xDDx@@@8DDDTL8xDDxPHD8D@8D8|DDDDDD8DDDDD(DDDDTT8DD((DDDD(|D D|< <@ xx(T~ x |8a(1)) a2=a(1)+a(2)-a1 a2 rr=a1-a2*(a1/a2) Brr=0a(1)=a(1)/a2:a(2)=a(2)/a2: a1=a2:a2=rr:430 ]#0;1,8;"pulsa una tecla":0:#0;1,8;24: XCa(1)=z(3*ii+3,1)*z(3*ii+jj,2) bPa(2)=z(3*ii+3,2)*z(3*ii+jj,1):fl1=0 l6a(1)400:7000X:"+";:fl1=1 v<z(3*ii+3-jj,1)8;" ":direccion Ga(1)=-z(3*ii+3-jj,1)*z(3*ii+jj,2) Fa(2)=z(3*ii+3-jj,2)*z(3*ii+jj,1) #a(1)<0fl18; W400:7000X:((8)ƽ(a(1)*a(2))=1);(122z-jj);   i=16:j=12:a(j)=z(i,j):j:400:a(2)=a(2)a(1):j=12:z(i,j)=a(j):j:i: ):0,0;"ax+by=c"''"dx+ey=f" w6,0;"Introduce los valores de a,b,c, d,e y f"''"Si alguno es fraccionario intro-duce antes la letra 'f'" 'z(6,2):i=16 (96`+i);"? ";a$ <a$"f"z(i,1)=a$:z(i,2)=1:1070. $2(96`+i);"? ";z(i,1);"/";z(i,2) .i::'':200 8 500: B 1150~:x(3,2) Lm=13:p,q,r,s Vta(1)=z(p,1)*z(q,1)*z(r,2)*z(s,2)-z(r,1)*z(s,1)*z(p,2)*z(q,2) `@a(2)=z(p,2)*z(q,2)*z(r,2)*z(s,2) j@400:x(m,1)=a(1):x(m,2)=a(2):m ty(2,2):m=12:a(1)=x(m+1,1)*x(1,2):a(2)=x(m+1,2)*x(1,1):400:y(m,1)=a(1):y(m,2)=a(2):m ~a1,5,4,2,3,5,2,6,1,6,3,4  100d direccion=2150f ::200 &i=01:j=12 9z(3*i+j,1)=0j=3-j:2090* j:i &i=01:j=12  Cz(3*i+j,1)/z(3*i+j,2)=12090* j:i  (i=(*2):j=(*2)+1 * ii=i:jj=j 4;8,0;"De la ecuacion ";ii+1;" tenemos:" >)10 ,10 ;(119w+jj);"="; H600X:500 Mmenu2 RU12 ,0;"Sustituyendo en la ecuacion ";2-ii;":":fl2=1:i=ii \+14,10 ;:215:500 f!17,0;"Operando: "; p 6500d ::200:direccion=a ±w(2,2):jj=1+(z(1,1)=0z(4,1)=0)+((z(2,1)/z(2,2)*z(5,2)/z(5,1))=1) Ov(6,2):i=16:j=12:v(i,j)=z(i,j):j:i Ti=01:a(i+1)=z(jj+3*i,1)/z(jj+3*i,2):i 1400:i=12:j=12 Iw(i,j)=z(jj+3*(i-1),j):i=1j=1w(i,j)=-w(i,j) j:i <a2=a2i=12:w(i,2)=w(i,2)*a2:i B6,0;"Multiplicando la ecuacion 1 por ":in=2 B3500 :" y la 2 por ";:in=1:3500 :" queda:"'' r=12:s=12:t=13:z(t+(3s=1),r)=z(t+(3s=1),r)*w(s,r):t:s:r:800 :200 /500:13 ,18;"Y sumando:"''' a(1)=z(3,1)*z(6,2)+z(3,2)*z(6,1):a(2)=z(3,2)*z(6,2):400:u(2) &Ds=12:u(s)=a(s):a(s)=a(s)*y(3-jj,3-s):s 0|15,18;:400:7000X:(122z-jj);"=";:a(1)=u(1):a(2)=u(2):7000X :^500:ii=0:i=16:j=12:z(i,j)=v(i,j):j:i:4050 Ma(1)=w(in,1):a(2)=w(in,2):400:7000X: direccion=4050  2010 >12 ,0;"Y de la ecuacion ";2-ii;":":ii=ii ?14,10 ;(119w+jj);"=";:600X:500 Yii=ii:16,0;"Igualando: ";:600Track-Info  R X:"=";:ii=ii:600X:500  18,0;"De donde ";  6500d df(122z-jj);"=";:a(1)=y(3-jj,1):a(2)=y(3-jj,2):7000X n>''"Sustituyendo en ec.";ii+1;" ";(119w+jj);"="; xVa(1)=y(jj,1):a(2)=y(jj,2):7000X:500:100d X:a(2)=1a(1)*a(2);:7130 ]X(("-")a(1)*a(2)<0);:a(1)=a(1):a(2)=a(2) b"a1=a(1):a2=a(2) llen=a1+(a2-a1)*(a2>a1) vc$(len):b$(len) Hc$(len-a1+1len)=a(1):b$(len-a2+1len)=a(2) #p2=-21+8*23689\ l=0len-1 6p1=(33!-23688\)*8+1+6*l p1,p2:6,0 La2len-la3=b$(l+1):p(p1+1-3*(len-a2),p2-7,a3) La1len-la4=c$(l+1):p(p1+1-3*(len-a1),p2+1,a4) l Gl=1̺((-1+6*len)/8)+1:1;" ";:l  @ 8050r J&i=65000650775:a:i,a:i T&i=65400x65431:a:i,a:i ^Yi=65480655274:j=02:a:i+j,a:j:i+3,0:i r205,148,30,245,205,153,30,197,205,153,30,197,225,209,123{,198,5,95_,241,229,38&,255,203 |39',203,39',198,200,111o,78N,44,,86V,44,,70F,225,96`,121y,205,120x,255,205,120x,255,122z,205,120x (255,205,120x,255,124|,205,120x,255,125},198,5,6,0,79O,205,43+,45-,1,0,0,205,43+,45-,1,1,0,197,205,43+,45-,193,201 06,4,197,203,127,40(,11 ,67C,77M,245,213,229,205,223,34",225,209,241,44,,203,7,193,16,234,79O,125},214,4,111o,121y,29,201 R105i,153,96`,38&,34",32 ,105i,36$,240,105i,41),96`,38&,111o,32 ,248,225,224,104h,233,96`,241,36$,64@,105i,105i,96`,105i,113q,96`,0,0,32 ,0,112p,0 /p(x,y ,n)=x+y*n^65000  PLUS3DOSvq7:7:0::1;10 ,8;" PARE LA CINTA ":I=164@:.02{# =,I:I: #(LECTURA VARIABLES  #2 #<2" NOMBRE "," DIRECCION ": #F*vars=23627K\+23628L\*256 #Ppaso=0 #Zvars=vars+paso #d BUCLE DE LECTURA  #n+vars65Aƾvars90Z9150# #x,vars97aƾvars122z9190# #-vars129ƾvars1549240$ #-vars161ƾvars1869280@$ #-vars193ƾvars2189360$ #-vars225ƾvars2509400$ #=vars=128:" FIN ": #,:" ERROR ": # CADENA  #(vars)+"$","> ";vars #8paso=(vars+1)+(vars+2)*256+3 # 9050Z# # NUMERICA SIMPLE  #(vars),"> ";vars $Track-Info  R paso=6 $ 9050Z# $ MATRIZ NUMERICA  $""(vars-32 );"()","> ";vars $,8paso=(vars+1)+(vars+2)*256+3 $6 9050Z# $@NUMERICA COMPUESTA  $J(vars-64@); $T paso=vars $Yvars=vars+1 $^;vars>128(vars-128),"> ";paso:9340|$ $h (vars); $r 9305Y$ $|paso=6 $ 9050Z# $ MATRIZ DE CADENA  $#(vars-96`);"$()","> ";vars $9paso=(vars+1)+ (vars+2)*256+3 $ 9050Z# $ BUCLE  $"(vars-128);"#","> ";vars $paso=19 $ 9050Z# PLUS3DOSdq7:7:0::1;10 ,8;" PARE LA CINTA ":I=164@:.02{# =,I:I:  PROGRAMA "CODESECT"  1:1:7: F$="":byte=23296[  FUNCIONES DEC-HEX  /a$(x)=(x+480+7*(x>9 )) >b$(y8)=a$((y/16))+a$(y-16*(y/16))  FUNCIONES HEX-DEC  ,a(xA)=x-480-7*(x>579) "8b(y$'z)=a(y$(1))*16+a(y$(2)) $23658j\,8 (*:" CODESECT 1.1  R. PRADES 1986 " 26,6;"C COMANDOS D.O.S.";8,6;"V VISUALIZAR SECTOR";10 ,6;"S SALVAR SECTOR";12 ,6;"B RETORNO AL BASIC";14,6;"D RETORNO AL D.O.S." <3#0;1,6;"SELECCIONA UNA OPCION" F="C"1000 P="V"2000 Z="S"3000 d ="B": n="D":15360< x 70F  COMANDOS D.O.S.  23658j\,8 *:" CODESECT 1.1  R. PRADES 1986 " 6,6;"D DIRECTORIO";8,6;"B BORRAR FICHEROS";10 ,6;"R RENOMBRAR FICHEROS";12 ,6;"O ORGANIZAR FICHEROS";14,6;"M MENU PRINCIPAL" 3#0;1,6;"SELECCIONA UNA OPCION" ="D":1100L ="B":1200 $="R":1300 .="O":1400x 8="M":36$ B 1040 L DIRECTORIO  Nerror=15363<:: V4000:1000  BORRAR  *1,0;"NOMBRE DEL FICHERO: ";  ">>> ";A$ A$=""űA$>81210 !1;A$;0;" " error=15363<::a$ 4000:1000  RENOMBRAR  %1,0;"NOMBRE ACTUAL: ";  ">>> ";A$ (A$=""űA$>81310 2!1;A$;0;" " <%3,0;"NUEVO NOMBRE : "; F ">>> ";B$ PB$=""űB$>81350F Z!1;B$;0;" " derror=15363<::B$,A$ n4000:1000 x ORGANIZAR  z$1,0;" ESPERA UN POCO" error=15363<:: 4000:1000  VISUALIZAR SECTOR  .:" CODESECT 1.1  R. PRADES 1986 "'''' "NOMBRE DEL FICHERO: ";  ">>> ";F$ F$=""űF$>82020 $1;F$;0;" "''' "NUMERO DE SECTOR : ";  ">>> ";B$ B$=""2060  N=1̱B$  !B$(n)<"0"B$(n)>"9"2060  *N 4 sector=B$ >.sector=0sector>159062060  H1;sector R&error=15363<::F$byte,sector \ 4000 ferror036$ p BUCLE PRINCIPAL  z,bloque=0:codigo=0:4100 ="S"36$ ="k"2250 ="j"2280 ="a"2300 ="h"2320 ="b"2340$ "="m"codigo=02700 "="m"codigo=12800  2180  BLOQUE SIGUIENTE  bloque=32180 @bloque=bloque+1:4100+codigo*100d:2180  BLOQUE ANTERIOR  bloque=02180 @bloque=bloque-1:4100+codigo*100d:2180  VISUAL. ASCII  codigo=12180 4200h:2180  VISUAL. HEXA.  codigo=02180 4100:2180Track-Info  R  $ EVALUACION BASES  &$:#0;1,0;"* "; .(="h"23658j\,8:2380L 8="d"2500 :5="r":#0;1,0;">":2180 B 2350. L EVAL. HEXA.  V#0;"HEX: "; ` 4300 :#0;" DEC: ";1;b(A$);0;" ASCII: "; +A$<"20"A$>"7F"#0;"":2480 A$="20"2480 #0;1;(b(A$)) 13 2480 !23658j\,0:2340$  EVAL. DECIMAL  #0;"DEC: ";:A$="" n=120:n 0:B$= 7B$=13 A$""n=115:n:2590 B$<"0"B$>"9"2520 A$=A$+B$ #0;1;B$; .A$>255:#0;"* ";:2500 A$=32590  2520 <#0;" HEX: ";1;B$(A$);0;" ASCII: "; (6A$<32 ŰA$>127#0;"":2620< *A$=32 2620< 2#0;1;(A$) <13 2620< F 2340$  MOD. BYTE HEXA.  8:#0;"BYTE: ";:23658j\,8:4300 H(b(A$)bloque*64@+63?)2710 offset=b(A$) K#0;" = ";1;B$((byte+offset));0;" >>> ";:4300 (byte+offset),b(A$) ,n=120:4100:2180  MOD. BYTE ASCII  8:#0;"BYTE: ";:23658j\,8:4300 H(b(A$)bloque*64@+63?)2810 offset=b(A$) #0;" = "; M(byte+offset)<32 ž(byte+offset)>127#0;"";:2830 &#0;1;((byte+offset)); (#0;" >>> ";:23658j\,0 <" "Ŧ>""2840 "M$=:#0;1;M$ ,(byte+offset),M$ 6/n=120:n:4200h:2180  SALVAR FICHERO  F$=""70F .:" CODESECT 1.1  R. PRADES 1986 "'''' ̕"NOMBRE DEL FICHERO: ";1;F$;0;" "'''"NUMERO DE SECTOR : ";1;sector;#0;1,4;"PULSA ENTER PARA GRABAR" 13 3030  &error=15363<::F$byte,sector 4000:36$   SUBRUTINA ERROR  ^error<0error>8#0;1,5;"!!! FALLA EL D.O.S. !!!":4050 Rerror=0#0;1,0;"  OK  PULSA ""ENTER""":4050 5000+error:z$ C#0;1,0;1;"ERROR:";error;0;" ";z$ 13 4050   SUBRUTINA VISUAL.  ,:" CODESECT 1.1  R. PRADES 1986 "'' 23658j\,0  `" FILE ";1;F$;0;" SECT ";1;sector;0;" BLOQUE ";1;bloque'''' 4n=bloque*64@bloque*64@+5688 &" ";1;b$(n);0;" "; "m=byte+nbyte+7+n ,b$(m);" "; 6 m:'':n @#0;1,0;">" Jcodigo=0: h SUBR. VIS. ASCII  j,:" CODESECT 1.1  R. PRADES 1986 "'' l23658j\,0 n`" FILE ";1;F$;0;" SECT ";1;sector;0;" BLOQUE ";1;bloque'''' r4n=bloque*64@bloque*64@+5688 |'" ";1;b$(n);0;" "; m=byte+nbyte+7+n 2(m)<32 (m)>127" ";:4260  (m);" ";  m:'':n #0;1,0;">" codigo=1:  SUBR. INPUT HEXA.  n=120:n:A$="" 0:B$= +b$<"0"(B$>"9"B$<"A")B$>"F"4320  A$=A$+B$ #0;1;B$; A$=2  4320  MENSAJES DE ERROR  "FICHERO NO EXISTENTE" "FICHERO YA EXISTENTE" "DISKETTE LLENO" "????????????????????" "REBASADO NUM. SECTOR" "????????????????????" "DISKETTE DEFECTUOSO" "SINTAXIS INCORRECTA" Track-Info  R PLUS3DOS 2 2 q7:7:0::1;10 ,8;" PARE LA CINTA ":I=164@:.02{# =,I:I: 27:7:0: d 9000(# Ȟx=2:y=7:e=1:ene=1:vi=4:x4=14:y4=10 :mi=0:cn=0:pant=1:ca=0:num=0:h=1 s$="" Hi(3):e$(2):m$(2):m$(1)="":m$(2)="" 2m=13:i(m)=(*480)+2:m 3000  MOVIMIENTO  L="q"ƫ(y-1,x)=568y=y-1:y,x;m$(h);y+1,x;" ":y=1pant=pant-10 :y=18:3000 `="a"ƫ(y+1,x)=568y=y+1:y,x;m$(h);y-1,x;" ":y=19pant=pant+10 :y=2:3000 t="o"ƫ(y,x-1)=568x=x-1:h=2:y,x;m$(h);y,x+1;" ":x=1pant=pant-1:x=28:3000 ="p"ƫ(y,x+1)=568x=x+1:h=1:y,x;m$(h);y,x-1;" ":x=29pant=pant+1:x=2:3000 $s>2pant12000 ca>0pant=1x=9 y<6cn=13,3+ca;"":mi=mi+1:.1}L,0:.1}L,10 :.1}L,-10 :cn=0:mi=34000 +pant=i(mi+1)cn=02500  1100L  ANIMALES  #ene=1ene=-ene:2030 Yene=-ene:y>y1ƫ(y1+1,x1)=568y1=y1+1:y1-1,x1;" ":2050 Oyx1ƫ(y1,x1+1)=568x1=x1+1:e=2:y1,x1-1;" ":2050 ene=-12010 y1,x1;co;e$(e) y1=yx1=x.1}L,20:.1}L,-10 :10 ,10 ;1;1;"TE COMIERON":a=1100d:a:vi=vi-1:3000  svi=0:9 ,10 ;1;1;"HAS FRACASADO";11 ,9 ;"NO TIENES VIDAS":9900&    CANIBALES  Τx>x4ƫ(y4,x4-1)=568x4=x4-1:y4,x4+1;" ";y4,x4;"":x4=1i(ca+1)=i(ca+1)-1:y4,x4;" ":x4=26:2550 ؤx2x4<282550 yy4ƫ(y4-1,x4)=568y4=y4-1:y4+1,x4;" ";y4,x4;"":y4=1i(ca+1)=i(ca+1)-10 :y4,x4;" ":y4=16:2550 x=x4y=y4.1}L,0:.1}L,-5:ca=ca+1:i(ca)=0:x4=14:y4=10 :cn=1:21,10 ;1;1;"LO HAS CAZADO"   JUNGLA  :y1=10 :x1=14 &#0;"VIDAS:";vi,"CANIBALES:";mi vi=0 Gc$=pant:c$(c$)="1"a=119:4;a,1;"":a >c$(c$)="0"a=119:4;a,29;"":a Kpant>40(4;19,1;"" Jpant10 4;1,1;"" x3=(*20)+2:y3=(*17)+2:s=(*6)+1:y3,x3;4;s$(33+s):num=num+1 num<63050 num=0 x2=(*27)+2:y2=(*16)+2:(y2,x2)=568ƫ(y2+1,x2)=568y2,x2;4;"";y2+1,x2;3;"":num=num+1 num<53060 num=0 -s=3e$(1)="":e$(2)="" -s=4e$(1)="":e$(2)="" -s=5e$(1)="":e$(2)="" -s=6e$(1)="":e$(2)="" co=(*3)+1 pant=1a=26:a,2;4;" ":a:1;4,3;"";2;5,4;"";4;6,2;"" +pant=17,2;" " 7pant=1c=1mi:3,3+c;"":c .(y1,x1)568x1=x1+1:3079 .(y4,x4)568x4=x4+Track-Info  R 1:3080 /(y,x)568x=x+(x<27):3095 (y,x)=5683099  x=x-1  y,x;m$(h)    FINAL  \a=120:.01z# =,a:.01z# =,a+1:.01z# =,a+2:.01z# =,-a:a :2,5;1;1;"LO HAS CONSEGUIDO!!"''''"HOY TE DARAS UN BUEN ATRACON"''2;0;"LOS CANIBALES YA ESTAN LISTOS PARA EL PUCHERO"''''''4;1;"!!!!QUE TE LOS COMAS BIEN!!!!" 19,0;1;" Pulsa una tecla " 0:9900& #( GRAFICOS  #2"g="a""u"+7:da:g,da:g #<(24,126~,24,26,60<,88X,20,34",24,126~,24,88X,60<,26,40(,68D,60<,66B,145,165,149,193,38&,24,24,28,28,24,568,24,60<,126~ #F60<,74J,82R,60<,24,24,24,60<,108l,568,16,80P,480,28,16,60<,38&,88X,62>,184,156,91[,60<,60< #P192,160,124|,62>,62>,38&,37%,109m,3,5,62>,124|,124|,100d,164,182,24,152,191,219,155,152,164,164 #Z255,255,255,127,63?,31,15,3,255,255,255,254,252,248,240,192 #d96`,224,64@,64@,72H,84T,85U,34",6,7,2,2,18,42*,170,68D #n189,165,189,153,126~,60<,60<,60<,74J,41),82R,85U,149,237,126~,60< #xw0,4,14,206,223,127,18,546,0,32 ,112p,115s,251,254,72H,108l,0,2,5,193,255,62>,81Q,81Q,0,64@,160,131,255,124|,138,138,153,219,189,153,126~,24,24,60< #1:1;6,7;"SOPA DE CANIBALES";2;10 ,7;"  ALBERTO TOLEDO";3;14,11 ;" 1 9 8 5 " #}0:t=-2030:.01z# =,t:.01z# =,-t:.01z# =,t+1:.01z# =,t+5:.01z# =,t-10 :t #31;"Instrucciones? ";i$:i$="s"9230$ #i$="n"200 $ 9200# $1:0,9 ;1;"INSTRUCCIONES" $" En estos tiempos tan dificilesque estamos pasando,la supervi- vencia es casi imposible.Por esto en nuestra jungla ocurre algo raro.Los misioneros son losque buscan ahora a los canibalespara echarlos al puchero." $"E'" Tu,un misionero,deberas buscar a tres canibales y echarlos a laolla que aparece al principio para lo cual solo tienes que arrimarte a ella por la derecha.Pero no todo es tan facil,pues muchos son los animales de la jungla que estan hambrientos. Los canibales no tienen nada de tontos y se escaparan nada mas " $,U"verte.Persiguelos hasta acorra- larlos."'"Pulsa una tecla para continuar":0 $6h:8,5;"Los controles son:"'" Q-arriba O-izquierda A-abajo P-derecha" $@;19,0;"Pulsa una tecla para empezar":0 % &4w=-10 20:.01z# =,w:.01z# =,-w:w &P"Otro juego (s/n)? ";j$:j$="s"1,0:1,-10 :200 &9j$="n"g=30-20-1:.01z# =,g:g: & 9910& Track-Info  R PLUS3DOStq7:7:0::1;10 ,8;" PARE LA CINTA ":I=164@:.02{# =,I:I:  7500L menu1=3:y0=0 3v(21,2):dim1=21:menu2=2  4000 k" MENU ","1- INTEGRAL DEFINIDA","2- INTEGRAL INDEFINIDA","3- DIBUJAR FUNCION","4- DIBUJAR INTEGRAL" f:3820:I=15:z$:1/(i^2),i^2:3+2*i,4;z$:i paw=0:mun=:(mun>480)*(mun<535)paw=10 ::(6120*(mun=491)+4010*(mun=502)+4500*(mun=513)+4525*(mun=524))  (3840-paw) 1tiempo=120x:inc=.1}L::grado=10 6:6:0: <v$="":w=1grado+1:v$=v$+"k(n,"+w+")+x*(":w #v$=v$+"k(n,"+(grado+2)+")" 'w=1grado+1:v$=v$+")":w  h"METE f(x)=";j$:"Origen de integracion "'"x0=";x0:"EXTREMO DEL INTERVALO DE"'"INTEGRACION x1= ";x1 '"MAXIMO ERROR DE INTEGRACION ="'ERROR  5000 3gre=grado+(ult+5-grado)*(ult+51)):clx=i(x(p)+delt/(2+1e-5p'ŬF)) p N3,0;"LA FUNCION INTEGRA ,i(x), ESTA HALLADA VUELVO AL MENU"  300,: q$=j$+"-y":7002Z  :q$="i(x)-y":7002Z: Gi(x.U)=g(x-x(((x-x0)/delt+1.5@)),((x-x0)/delt+1.5@)) g(x{]8,n)=v$ [k(x,n)=x^n*((2*(n/2)-n+1e-20><d)*(x<0)+(x0)) j(x )=(x1)+2*(x=2)+6*(x=3)+24*(x=4)+120x*(x=5)+720*(x=6)+5040*(x=7)+40320*(x=8)+36288010*(x=9 )+3628800]|*(x=10 )+39916800E@*(x=11 ) h(x)=j$ d(x')=e$ r5049:time0=time:e$=j$:w=2grado+1:i$="x":8000@:i$=(105i+w)+"$=e$":9999' /5049:time-time019)):(args-25+i),(i$(i)):i:j=14:(args-25+i+j-1),"::"(j):j:k(p,o)=t$:::b$:: Track-Info  R PLUS3DOSTT+q7:7:0::1;10 ,8;" PARE LA CINTA ":I=164@:.02{# =,I:I: @_l(x2)=x*((x>64@)*(x<91[)+(x>96`)*(x<123{)+(x>47/)*(x<58:)) Aap(xx)=3*((x=43+)+(x=45-))+2*((x=42*)+(x=47/))+(x=94^) E+d$=e$:8480 !:pvar=0e$="0": G)a$=e$:paren=0:8040h:e$=a$ Jb$="":o=1̱e$ L,e$(o)0b$=b$+e$(o):o:8024X N=np=0:i=o+1̱e$:e$(i)=40(np=np+1 P8e$(i)=41)np=np-1:np=08020T R,i:1;"numero impar de parentesis": TInuevao=i+1:a$=e$(o+2i-1):paren=0:8040h U=a$="1"b$(b$)="*"b$=b$(1̱b$-1):8023W V b$=b$+a$ Wo=nuevao:oDZe$8012L X b$=e$: Ze$=b$:8010J gparen=1 ha(25,2):b(25):ax=1:np=0:a(1,2)=0:i=1̱A$:A$(i)=40(np=np+1:np=1ax=ax+1:a(ax,1)=i:i m@A$(i)=41)np=np-1:np=0a(ax,2)=i:i o3i:np0"numero impar de parentesis !!!": ra(ax+1,1)=A$+1:a(2,1)=1a(2,2)=A$A$=A$(2(A$-1)):8039g wno=0:niv=0:b(1)=0:j=1ax:i=a(j,2)+1a(j+1,1)-1:orden=p(a$(i)):orden>nivniv=orden:no=2:b(2)=i:8062~ |0orden=nivniv>0no=no+1:b(no)=i ~!i:j:b(no+1)=A$+1 (8100+100d*niv): a$=i$a$="1": 0solo=0:a$(2̱a$)=i$solo=1 (7930+a$(1)) Ia$=""+a$(2̱a$)+"*"+0+"("+a$(2̱a$)+")":8130 Oa$="(-"+a$(2̱a$)+")"+"*"+0+"("+a$(2̱a$)+")":8130 Qa$="1/"+a$(2̱a$)+"^2"+"*"+0+"("+a$(2̱a$)+")":8130 Ua$="1/(1-"+a$(2̱a$)+"^2)"+"*"+0+"("+a$(2̱a$)+")":8130 Xa$="(-1)/(1-"+a$(2̱a$)+"^2)"+"*"+0+"("+a$(2̱a$)+")":8130 Ta$="1/(1+"+a$(2̱a$)+"^2)"+"*"+0+"("+a$(2̱a$)+")":8130 Ja$="1/"+a$(2̱a$)+"*"+0+"("+a$(2̱a$)+")":8130 8a$=a$+"*"+0+"("+a$(2̱a$)+")":8130 ?a$="1/2/"+a$+"*"+0+"("+a$(2̱a$)+")":8130 1a$=0+"("+a$(2̱a$)+")":8130 0solo=1a$=a$(1(a$-i$-4))  c$=a$(b(2)+1b(3)-1):i=3no:c$=c$+"*"+a$(b(i)+1b(i+1)-1):i:no3c$="("+c$+")" 4d$=a$(1b(2)-1):8480 !:pvar1=pvar:d$=c$:8480 !:pvar2=pvar:pvar1*pvar20a$=a$(1b(2)-1)+"^"+c$+"*("+a$(1b(2)-1)+"*"+0+"("+c$+")+"+c$+"/"+a$(1b(2)-1)+"*"+0+"("+a$(1b(2)-1)+"))": wpvar20a$=a$(1b(2)-1)+"^"+c$+"*"+a$(1b(2)-1)+"*"+0+"("+c$+")": .m(x2)=l(x)*((x<480)+(x58:)) !btra=0:i=1̱c$:tra=tra+m(c$(i)):i:tra=0c$=(c$):c$=0a$="0": #>c$="1"a$=0+"("+a$(1b(2)-1)+")": &ka$=c$+"*"+a$(1b(2)-1)+"^("+c$+"-1)*"+0+"("+a$(1b(2)-1)+")": lc$="" vai=1no:d$=a$(b(i)+1b(i+1)-1):8480 !:pvar=0i:8350 Zd$="":j=1no:jid$=d$+a$(b(j)+(j=1)b(j+1)-1):j:8340 a$(b(i)+(i=1))="/"sg=45-:d$=d$+"/("+a$(b(i)+1b(i+1)-1)+")^2*"+0+"("+a$(b(i)+1b(i+1)-1)+")":j:8340 Rsg=43+:d$=d$+"*"+0+"("+a$(b(j)+1b(j+1)-1)+")":j cTrack-Info  R $=c$+sg+d$:i S(c$(12)="+*")+(c$(12)="-*")=1c$=c$(3̱c$) %c$(1)="+"c$=c$(2̱c$) paren=1a$="("+c$+")": a$=c$: ld$=a$(b(1)+1b(2)-1):8480 !:pvar0c$=0+"("+d$+")":8410 c$="" vi=2no:d$=a$(b(i)+1b(i+1)-1):8480 !:pvAr0c$=c$+a$(b(i))+0+"("+d$+")" #i:paren=1a$="("+c$+")": a$=c$: ! d$=""pvar=0: !*pvar=0:fin=d$-i$+1:p=1fin:d$(p(p-1+i$))=i$(((l(d$(p-1+(p=1)))=0)+(p=1))*((l(d$(p+i$-(p=fin)))=0)+(p=fin)))=1pvar=p: !,p: PLUS3DOS1  "BG.0"64000 64000 q7:7:0::1;10 ,8;" PARE LA CINTA ":I=164@:.02{# =,I:I: (64000 PLUS3DOSU&>G^V00#__# <@aNR8"^^`]`]u]^t]#^#^$^A%^%^%^\ҿuXn![ @P!!88 _Ϳ!;\n( :\_8 M>n2}\>2~\{ͺ$ͺ${ͺ$ͺ$!\P!<\ˆs222͸,Ϳ!;\n(:\O.87 8Fy*8\8]8^/8_y Bֶډڕ!~ 8 !8#:\N0!v+˶ͱ! 2\;:2(Ë!P\(> 2\*]\:\wu:\ !9\^!͵(!"]\!"\!N@"\!~!\~> w !> w#!˾\!~0!f͵͎{<0!;\ˮ:s0 >x2\;0 );>-;t"t":\<2\:\ 2\:080808 08(8+#####"e\-Ͷ*!PLUS3DOS_'& & q7:7:0::1;10 ,8;" PARE LA CINTA ":I=164@:.02{# =,I:I: m1:2:1:1::20,12 ;1;6;"MEMORION";21,8;"CREADO POR V.T.C":F=190-1:.04|# =,15:.07}\(,25:F,12 ;1;6;"MEMORION";F+1,8;"CREADO PTrack-Info  R OR V.T.C";F+2,0;0;1;" ":F:RECORD=0: 3RECORD=0:9000(#:700:1000 25NIV=1:PAREJAS=0:PUNTOS=0:JUEGO <NIV>5900 =,:11 ,13 ;5;"NIVEL ";NIV ?%A(7,6):MENSAJE=0 @'N=115:F=12 AVRND1=(*6)+1:RND2=(*5)+1:A(RND1,RND2)065A FA(RND1,RND2)=N:F:N PA600X:3,7-(RECORD);2;6;RECORD RN=15:F=16:0:.05|L,25:30:N*3,F*3+9 ;P(NIV,A(F,N));F$(NIV,A(F,N),2);N*3+1,F*3+9 ;F$(NIV,A(F,N),34):F:N SW(200/NIV):"N.A:Si te parece muy rapido como para apuntarlos cambia esta linea TN=15:F=16:0:.05|L,25:N*3,F*3+9 ;0;0;" ";N*3+1,F*3+9 ;" ":30:F:40(:N ZPROG.CENTRAL d+H(3):V(3):N=12 nE"HORIZONTAL (";(N);"): ";H(N):H(N)>5H(N)<1110n sC"VERTICAL (";(N);"): ";V(N):V(N)>6V(N)<1115s xN }`H(1)=H(2)V(1)=V(2)M$="COORDENADAS REPETIDAS ":800 :100d N=12 c(H(N)*3,V(N)*3+9 )64@M$=" COORDENADA REPETIDA. ":800 :1001 N >A(V(1),H(1))=A(V(2),H(2))170 *MENSAJE=1:N=12:H(N)*3,V(N)*3+9 ;P(NIV,A(V(N),H(N)));0;F$(NIV,A(V(N),H(N)),2);H(N)*3+1,V(N)*3+9 ;F$(NIV,A(V(N),H(N)),34):N:M$="LO SIENTO, FIJATE MAS.":800 :M$=" AHORA OBSERVA ":813 - N=15:F=16:.01z# =,15:N*3,F*3+9 ;P(NIV,A(F,N));0;F$(NIV,A(F,N),2);N*3+1,F*3+9 ;F$(NIV,A(F,N),34):F:.04|# =,10 :N 6RECORD=PUNTOSM$=" MAXIMA PUNTUACION. ":813- <M$=" PULSA UNA TECLA ":813-:0:1000 N=12:.5,15+N*2:H(N)*3,V(N)*3+9 ;P(NIV,A(V(N),H(N)));0;F$(NIV,A(V(N),H(N)),2);H(N)*3+1,V(N)*3+9 ;F$(NIV,A(V(N),H(N)),34):N 1PUNTOS=PUNTOS+10 :PAREJAS=PAREJAS+1 PUNTOSRECORDRECORD=PUNTOS:3,3;6;2;1;"0000";3,7-(RECORD);2;6;1;RECORD n9 ,7-(PUNTOS);1;5;PUNTOS;20,9 -(PAREJAS);0;7;PAREJAS PAREJAS15MENSAJE=1:PAREJAS=0:M$=" PANTALLA TERMINADA. ":813-:M$=" PULSA UNA TECLA ":813-:0:NIV=NIV+1:60< 100d X PANTALLA b1:1:0: c TABLERO gWN=11817:N,10 ;2;7;" 11 22 33 44 55 66 ":N i$N=15:N*3-1,10 ;2;7;" ";N*3-1,30;" ";N*3,10 ;N;N*3,30;N;N*3+1,10 ;N;N*3+1,30;N:N:N*3-1,10 ;2;7;" ";N*3-1,30;" " lLN=217:N,11 ;0;0;" ":N ns7:N=91[23524:N,36$:0,120x:N+1,156:0,-120x:N pjN=35#15524:91[,N:145,0:235,N+1:-144,0:N q MENSAJE s>20,10 ;0;4;" MENSAJE " vRECORD RECORD 0:1,2;5;"RECORD":5;64@,164:5;3,0:5;0,-32 :5;-568,0:5;0,32 :5;3,0 7:4;20,156:4;40(,0:4;0,-16:4;-40(,0:4;0,16 +6:3,3;2;"0000" PUNTOS 0:7,2;6;"PUNTOS":6;64@,116t:6;3,0:6;0,-32 :6;-568,0:6;0,32 :6;3,0 +9 ,3;5;1;"0000" 7:3;20,108l:3;40(,0:3;0,-16Track-Info  R :3;-40(,0:3;0,16 CARAS /7:N=14:F=14 N*2+11 ,F*2-1;P(NIV,(N*4-4)+F);1;F$(NIV,(N*4-4)+F,2);N*2+12 ,F*2-1;F$(NIV,(N*4-4)+F,34)  N=4F=3685 F:N A19,7;7;0;"NP";20,7;"00"   niveles L$(6,76L) 2720:n=15:L$(n,75K):n  NIVEL 1 O"765437654376543"  NIVEL 2 O"763435435764657"  NIVEL 3 O"456756433657467"  NIVEL 4 O"563467457356473"  NIVEL 5 O"543765436743657" F$(6,16,5):P(6,16):N=15:F=115:F$(N,F,4)=L$(N,(F*5)-4((F*5)-1)):P(N,F)=(L$(N,F*5)):F:N    MENSAJES *P20,10 ;4;0;1;" MENSAJE ":0 ->20,10 ;6;0;" " /jF=121:20,31-F;6;1;0;M$(1F):.07}\(,25:F 1tF=13:N=15251.5@:.003xD,N:.005y# =,20+N:.007ye`A,25+N:N:F 4IF=121:20,10 ;1;6;M$(F21) 6.F>120,32 -F;6;" " 98.07}\(,25:F:20,10 ;6;" " >MENSAJE=1 C@20,10 ;0;4;" MENSAJE ": MENU &7:0:1:2: 0,12 ;"- MENU -" 8,6;"1. INICIAR PARTIDA.";12 ,5;"2. VER INSTRUCCIONES.";18,13 ;1;5;2;"OPCION" ="1"502:1000 ="2"4000:1000  1020 INSTRUCCIONES I0:5:5:0::0,10 ;"INSTRUCCIONES" ]5,0;" Encuentra las 15 parejas de caras que el ordenador te mos- trara." G9 ,0;" Estate atento porque la cosa no es nada facil." q13 ,0;" Si te sientes todavia opti- mista (cosa que dudo), tienes solamente una oportunidad." 117,0;" Asi que !BUENA SUERTE!!!" 820,8;1;"PULSA UNA TECLA.":0  #0,10 ;"INSTRUCCIONES" ]5,0;" Cada vez que encuentres una pareja de caras obtendras 10 puntos." n9 ,0;" El recuadro de MENSAJES se iluminara cada vez que tenga que darte algun mensaje." b14,0;" Cada vez que ocurra esto a- pretando una tecla obtendras el mensaje." 820,8;1;"PULSA UNA TECLA.":0 %:0,10 ;"INSTRUCCIONES" _8,0;" El contador 'NP' te indica el Numero de Parejas que has des- cubierto." :20,8;1;"PULSA UNA TECLA.":0: #("GDU" #2N9030F#:N=144163:F=07:GDU:(N)+F,GDU:F:N #< "DATAS GDU" #A "BOCAS" #F1,0,16,8,7,0,0,0,128,0,8,16,224,0,0,0:ALEGRE #K1,0,0,7,13 ,11 ,4,0,128,0,32 ,208,80P,224,0,0:ENFADADA #P1,0,0,7,8,16,0,0,128,0,0,224,16,8,0,0:TRISTE #Z1,0,7,15,16,3,0,0,128,0,224,240,8,192,0,0:BIGOTE #_1,0,0,1,18,1,0,0,128,0,0,128,80P,128,0,0:BOSTEZO #d1,0,0,1,0,0,0,0,128,0,0,128,0,0,0,0:PENSATIVA #i"OJOS" #n0,16,8,4,16,0,1,1,0,8,16,32 ,8,0,128,128:ENFADADA #s0,0,568,68D,16,0,1,1,0,0,28,34",8Track-Info  R ,0,128,128:NORMAL #x0,8,16,32 ,8,0,1,1,0,16,8,4,16,0,128,128:TRISTE #}0,0,568,69E,86V,568,1,1,0,0,28,162,106j,28,128,128:GAFAS # 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'''''''''