MV - CPCEMU Disk-File Disk-Info ZX-Modules(Track-Info  R ( *RTrack-Info  R DISK MICRO 7 16  AA l AB AB 0 AC - !"AD #TIPO1 $TIPO2 %AE I&'()*+,-./BA 0BB 1BC K23456789:;BD ?<=>?@ABCBE PDEFGHIJKLMBF 1NOPQRSTPLUS3DOS@ @DISKEADO POR MADFOX "MICRO"  300, "16" 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;;88888887778888PLUS3DOSAAdCINTA 16 (REVISTAS 61 a 64) 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-Laberinto" 7,18;"B-Organo" &8,3;"C-Matrices" 0 8,18;"D-Microcat" :9 ,3;"E-Alger" D!9 ,18;"F-Combinato" N!10 ,3;"G-Pantallas" !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" HB$="1"100d R 500 --- MENU CARA B --- :5000:6000p 4,12 ;"CARA B" 7,3;"A-Archivo1"  7,18;"B-Archivo2" 8,3;"C-Igloo" $8,18;"D-Represe" . 9 ,3;"E-Fontanero" 89 ,18;"F-Taylor" !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$="1"100d F 1000 --- CABECERA --- 51:0,4;"CINTAS MICRO N. 16" -2:0,16;"HOBBY":0 C3:1,6;"DISKEADO POR MADFOX":0:0 #3,8;"REVISTAS 61-64"  p--- PIE DE PANTALLA --- z?1:20,0;" J, siempre... ILM " ?21,0;" ELIGE UNA OPCION ":0  PLUS3DOS5q5q5r7:7:0::1;10 ,10 ;" PARE LA CINTA ":I=164@:.02{# =,I:I: 812 ,10 ;1;"PARA LA CINTA":200 a$=" " 9500%:G.D.U. 9000(#:PRESENTAC. INICIALIZAR VARIABLES  rec=0 tcont=1:reves=0:z=0:pun=0:sal=3:pis=0:x=20:y=11 :fin=0 PROGRAMA PRINCIPAL x,y;5;0;"":7:0:20,0;"";20,12 ;"";21,0;"";21,21;"":0:7 o="o"ƫ(x,y-1)568x,y;5;;" ":y=y-1:.01z# =,0:x,y;5;0;"" (o="p"ƫ(x,y+1)568x,y;5;;" ":y=y+1:.01z# =,0:x,y;5;0;"" -="0"2500 2}="f"ƫ(x+1,y)568.01z# =,0:x,y;5;5;" ";x+1,y;7;0;"":1000 7 30 SUBRUTINA BAJAR =pis=pis+1:pis=70F*contfin=1:2000 4,24;0;0;" ";6,24;0;0;" ";5,24;7;"SALTOS";7,27;7;sal 11 ,25;0;0;" ";13 ,25;0;0;" ";12 ,25;7;"PISOS";14Track-Info  R ,26;7;pis a=3190v 5000+reves $ SUBRUTINA FINAL &f=021:a=3190v :f fin=121004 15,10 ;"PISOS ";pis:10 :17,10 ;"SALTOS ";sal:10 :19,5;"PUNTOS TOTALES ";pis*1000+20000 N*sal:#0;"Otra partida ? s/n" %="s":1,10 :20 "n"2025  44,0;"ENHORABUENA,HAS CONSEGUIDO SALIR"''" DEL ";1;"LABERINTO DE LEMNOS"'';0;"Te atreverias ha atravesarlo al "''" R E V E S ? "''" S/N" 9d="s"z=-1:cont=cont+1:1,10 :reves=1000:y=10 ::6000p >"n"21059 C 2020 SUBRUTINA HIPERESPACIO hf=010 :.01z# =,f:f:sal=sal-1:sal<0fin=0:sal=0:2000 x,y;4;4;" " /s=*21:(x,s)=568s=y2510 og=1100d:g:f=10 0-1:.01z# =,f:f:y=s:x,y;0;5;1;""  1SUBRUTINA VISUALIZAR LABERINTO AL DERECHO \7;0;21,0;"":5001+z:b,c,d,e,f,g,h,i,j,k,l,m,n,o,p:21,b;a$;21,c;a$;21,d;a$;21,e;a$;21,f;a$;21,g;a$;21,h;a$;21,i;a$;21,j;a$;21,k;a$;21,l;a$;21,m;a$;21,n;a$;21,o;a$;21,p;a$:z=z+1: }3,7,10 ,11 ,14,18,3,3,3,3,3,3,3,3,3 ~1,3,5,7,9 ,11 ,13 ,15,18,20,1,1,1,1,1 }3,4,7,8,9 ,10 ,11 ,18,19,3,3,3,3,3,3 1,2,4,5,11 ,12 ,13 ,14,15,17,19,20,1,1,1 1,3,5,6,7,8,9 ,10 ,11 ,14,16,18,20,1,1 1,2,4,5,11 ,12 ,13 ,14,15,17,19,20,1,1,1 }3,4,7,8,9 ,10 ,11 ,18,19,3,3,3,3,3,3 ~1,3,5,7,9 ,11 ,13 ,15,18,20,1,1,1,1,1 }3,7,10 ,11 ,14,18,3,3,3,3,3,3,3,3,3 2,3,4,7,8,9 ,10 ,15,16,17,18,19,2,2,2 1,2,4,5,11 ,12 ,13 ,14,15,17,19,20,1,1,1 }3,4,7,8,9 ,10 ,11 ,18,19,3,3,3,3,3,3 }3,7,10 ,11 ,14,18,3,3,3,3,3,3,3,3,3 4,5,6,8,9 ,10 ,12 ,13 ,14,15,16,17,4,4,4 2,3,4,7,8,9 ,10 ,15,16,17,18,19,2,2,2 ~1,3,5,7,9 ,11 ,13 ,15,18,20,1,1,1,1,1 1,3,4,5,7,8,10 ,11 ,13 ,14,16,17,18,20,1 2,3,4,6,7,8,10 ,11 ,12 ,14,15,16,18,19,20 1,3,5,6,7,8,9 ,10 ,11 ,14,16,18,20,1,1 10 ,10 ,10 ,10 ,10 ,10 ,10 ,10 ,10 ,10 ,10 ,10 ,10 ,10 ,10 2,3,4,5,6,7,8,9 ,10 ,11 ,12 ,13 ,14,17,19 1,2,4,6,7,9 ,12 ,14,15,17,19,20,1,1,1 1,2,4,6,7,9 ,12 ,14,15,17,19,20,1,1,1 2,3,5,6,8,9 ,1Track-Info  R 0 ,11 ,12 ,13 ,15,16,18,19,2 1,2,4,5,7,8,9 ,12 ,13 ,14,16,17,19,20,1 1,3,4,6,7,8,10 ,11 ,13 ,14,15,17,18,20,1 2,3,5,6,7,9 ,10 ,11 ,12 ,14,15,16,18,19,2 1,2,4,5,6,8,9 ,12 ,13 ,15,16,17,19,20,1 1,3,4,5,7,8,10 ,11 ,13 ,14,16,17,18,20,1 1,2,4,6,7,9 ,10 ,11 ,12 ,14,15,17,19,20,1 1,3,5,6,8,9 ,12 ,13 ,15,16,18,20,1,1,1 1,3,5,6,8,9 ,12 ,13 ,15,16,18,20,1,1,1 1,2,4,6,7,9 ,10 ,11 ,12 ,14,15,17,19,20,1 1,3,4,5,7,8,10 ,11 ,13 ,14,16,17,18,20,1 1,2,4,5,6,8,9 ,12 ,13 ,15,16,17,19,20,1 2,3,5,6,7,9 ,10 ,11 ,12 ,14,15,16,18,19,2 1,3,4,6,7,8,10 ,11 ,13 ,14,15,17,18,20,1 1,2,4,5,7,8,9 ,12 ,13 ,14,16,17,19,20,1 2,3,5,6,8,9 ,10 ,11 ,12 ,13 ,15,16,18,19,2 y6,7,6,6,6,6,6,6,6,6,6,6,6,6,6 2,3,4,5,6,7,8,9 ,10 ,11 ,12 ,13 ,14,17,19 1,2,4,5,6,8,9 ,12 ,13 ,15,16,17,19,20,1 1,2,4,6,7,9 ,10 ,11 ,12 ,14,15,17,19,20,1 2,3,4,6,7,8,10 ,11 ,12 ,14,15,16,18,19,20 1,2,4,5,12 ,13 ,14,15,17,19,20,1,1,1,1 1,3,5,6,7,8,9 ,10 ,11 ,14,16,18,20,1,1 1,2,4,5,11 ,13 ,14,15,17,19,20,1,1,1,1 }3,7,10 ,11 ,14,18,3,3,3,3,3,3,3,3,3 ~2,4,6,8,9 ,11 ,13 ,15,17,19,2,2,2,2,2 4,5,6,7,8,9 ,10 ,11 ,12 ,13 ,14,15,16,17,18 2,4,6,8,10 ,12 ,14,16,18,20,2,2,2,2,2 2,3,4,5,7,8,9 ,11 ,12 ,13 ,15,16,19,20,2 3,6,7,9 ,10 ,11 ,13 ,15,17,19,3,3,3,3,3 2,3,4,5,7,8,12 ,14,15,16,17,18,19,20,2 1,2,4,6,8,9 ,10 ,11 ,12 ,13 ,14,16,18,20,1 ~1,3,4,5,7,11 ,15,17,18,19,1,1,1,1,1 2,3,5,6,7,8,9 ,10 ,13 ,14,15,16,17,19,20 1,2,4,6,7,8,10 ,11 ,13 ,17,18,20,1,1,1 À1,3,4,5,7Track-Info  R ,9 ,11 ,14,15,16,17,19,20,1,1 Ā2,3,5,6,8,9 ,10 ,12 ,13 ,14,16,18,20,2,2 Ł1,3,4,5,7,9 ,11 ,13 ,15,16,17,18,19,20,1 ƀ1,2,4,6,7,8,10 ,12 ,13 ,14,16,18,20,1,1 ǁ2,3,5,6,8,9 ,10 ,11 ,12 ,14,15,17,18,19,2 1,3,5,7,9 ,11 ,13 ,15,17,19,20,1,1,1,1 ɀ2,3,4,5,6,7,8,9 ,10 ,11 ,12 ,14,15,17,20 2,4,6,8,10 ,13 ,14,17,18,19,2,2,2,2,2 1,3,5,7,9 ,11 ,12 ,13 ,15,16,20,1,1,1,1 ̂2,4,6,8,10 ,11 ,13 ,14,16,17,18,19,20,2,2 ͈10 ,10 ,10 ,10 ,10 ,10 ,10 ,10 ,10 ,10 ,10 ,10 ,10 ,10 ,10 o/SUBRUTINA VISUALIZAR LABERINTO AL REVES p\7;0;21,0;"":5070+z:b,c,d,e,f,g,h,i,j,k,l,m,n,o,p:21,b;a$;21,c;a$;21,d;a$;21,e;a$;21,f;a$;21,g;a$;21,h;a$;21,i;a$;21,j;a$;21,k;a$;21,l;a$;21,m;a$;21,n;a$;21,o;a$;21,p;a$:z=z-1: #'PRESENTACION #(0:0:7: #=7;0;0,0;"EL LABERINTO DE LEMNOS" #9200#:f=021:b$:n=019:n,f;7;" ";n+1,f;7;0;b$:n:.01z# =,40(:f:20,0;1;"EL LABERINTO DE LEMNOS" #7;0;0,0;"Tu mision consiste en"''"conseguir salir del"''"laberinto."''"Para ello dispones de"''"3 saltos hiperespacia-"''"les y de las teclas:"''"O-izquierda"''"P-derecha"''"F-bajar"''"0-salto hiperespacial" #Y"E","L"," ","L","A","B","E","R","I","N","T","O"," ","D","E"," ","L","E","M","N","O","S" %K#0;" PULSA UNA TECLA PARA COMENZAR ":0:1,10 :: % G.D.U. %.9600%:f="a""d"+7:a:f,a:f: %,255,129,189,165,165,189,129,255,568,76L,568,144,124|,18,40(,72H,28,502,28,9 ,62>,72H,20,18,568,68D,568,146,124|,16,40(,68D &Ia$,b$,c$,d$,g$,d$,c$,b$,a$,e$,d$,c$,a$,f$,e$,b$:n=116:x$ '>"LEMNOS"1:"":15,10 ;1;"CORRECTO" PLUS3DOS Amando de la Puente  "AB.0" 0:0:7: r7:7:0::1;10 ,10 ;" PARE LA CINTA ":I=164@:.02{# =,I:I: D40(,20,1.5@:40(,20:10 ,0, *0,120x:20,-10 ,- -40(,-502 (40(,5,4.5 <-30,-30,2.6&fff d`125},64@:112p,0:0,568:-112p,0:0,-568 n f=13421416 x6f=166173,64@:0,568:f jf,120x:0,-34":11 ,0:0,34":f+7,64@:0,22 f f=17272 f=21230 a$:9 ,f;a$ a$:12 ,f-1;a$ f 12 ,28;"K" -"E","S","R","D","F","Y","G",Track-Info  R "U","H","I","J" "j=14 ,a$ 6f=031 @a$=" "+a$+" " Jf Th=1̱a$-31 ^$21,0;a$(hh+31) h.05|L,1 r 3 |h j 021,0;"SPACE para volver al BASIC" '#1;" Amando de la Puente 1985" 23296[  7"Este programa simula a un organo de escala natural." 9"Cada vez que pulse una tecla, esta cambiara de color." ."Se puede pulsar mas de una tecla a la vez." "Buenas melodias." PLUS3DOS4[?>OY!j̞[WY!̞[_Y!̞[gY!̞[>gY!=̞[_Y!̞[WY!W̞[>W1Y! ̞[_3Y!`̞[>g7Y!̞[_9Y!̞[W;Y!̞[>G[>x͵>PLUS3DOS. L4:4:0: 2!raro=1.23456789R:dzi=raro PL10 ,1;"Quieres ir viendo la resolucion en la pantalla ? (s/n)" R;n$=:(n$="s")+(n$="n")=1ense=(n$="s"):100d U 82R Z" MENU ","1- MATRIZ INVERSA","2- RESOLVER ECUACIONES","3- HALLAR DETERMINANTES","4- MAX. COMUN DENOMINADOR","5- ORDEN DE UNA MATRIZ","6- INPUT MATRIZ","7- INPUT ECUACIONES"," PULSA SU TECLA " dr:90Z:i=19 :.1}L,6*(i-1):u$:(i=9 );(1+2*i),4;u$:i nQMENU1=-480:(menu1>0)*(menu1<8):100d*(menu1+1) s 110n V(dzi=raro)+(dzidzj)20,1;"LA MATRZ TIENE QUE SER CUADRADA":700  Z1,20:20,0;"NO ES INVERTIBLE PORQUE ";a$:7500L:100d 150 ܆4000:DETD=01,20:20,0;"NO ES INVERTIBLE PORQUE SU DETERMINANTE ES 0.":7500L:100d 7500L::i=1dzi:j=1dzj:"I(";i;",";j;")=";d(i,dzj+j);"/";d(i,i);"=";d(i,dzj+j)/d(i,i):j:i:7500L:100d ,dzi=raro800  6<eci=(dzj-dzi-1):4000:350^+10 *eci @E20,1;"HAY INFINITAS SOLUCIONES":7500L:100d TPD(DZJ,DZJ)020,1;"NO HAY SOLUCION":7500L:100d W*ORDEN=DZJ-14250:380| Y 320@ ^DETD0380| h 320@ |20,1;"SOLUCION UNICA":7500L::i=1dzj-1:"x";i;"=";d(i,dzj);"/";d(i,i);"=";d(i,dzj)/d(i,i):i:7500L:100d 150:4000:7500L:ense=117,1;"det es igual al producto de los elementos de la diagonal porque esta matriz es triangular" h7500L::10 ,0;"DET=";sig;d$;"*";detd;"=";(sig+d$+"*"+detd):7500L:100d B2,1;"Hallo el M.C.D. de los numeros que me des."  i=1 W1;"ENTER para salir"'0;"numero= ";n$:n$0nu2=n$ :515  100d L5+2*i,2;nu2:i=i+1:i=2mcd=nu2:510 Inu1=mcd:5000:10 ,14;"MCD=";mcd;" ":510 Xdzi=raro700 bv4000:19,1;"ORDEN=";ORDEN;": PUES SOLO HAY ";ORDEN;" FILAS INDEPENDIENTES":7500L:100d "Numero de Track-Info  R filas= ";dzi 2"Numero de columnas= ";dzj:706:730 ˜o=1dzi:1;y(o),0;o;0:8,175-8*(y(o)+1):8*(x(dzj+dzi*(menu1=1))+1),0:o p=1dzj+dzi*(menu1=1):0,x(p)+1;p:8*x(p),167:0,-8*(y(dzi)+1):p: jz(dzi,dzj):i=1dzi:j=1dzj:21,0;"z(";i;",";j;")=":y(i),x(j);1;"L" mz(i,j):(z(i,j)>3):1;y(i),x(j);(z(i,j)+" ")(13):j:i:0:100d  "Numero de ecuaciones= ";dzi *E"numero de incognitas= ";dzj:dzj=dzj+1:8204:730 40p=1dzj-1:0,x(p);"x";p:p 5 706 z|x(j)=(3*j-1)*(j<11 )+29*(j>10 ):y(i)=2*i*(i<11 )+20*(i>10 ) Ed$="":sig=1:q$="":ddj=dzi+dzj:ddi=dzi+1:d(ddi,ddj) dzmin=dzi:dzj0 Hpas=1:j1=dzmin:j2=1:j3=-1:i2=1:4050  V/sig=-sig:k=1ddj:d(ddi,k)=d(fi1,k):k X%k=1ddj:d(fi1,k)=d(fi2,k):k Z'k=1ddj:d(fi2,k)=d(ddi,k):k: jKd$=d$+"/"+num1:k=1ddj:d(fi1,k)=d(fi1,k)*num1+d(fi2,k)*num2:k: num1=nu1:num2=nu2 num21)+(num21) 0num1=(nu2/mcd):num2=-(nu2*nu1)*(nu1/mcd): Xense=0 b19,2;"Cambio la fila ";1;fi1;0;" con la ";1;fi2;0;" para no tener 0 en la diagonal.";:menu1=3"Queda DET=";sig;d$;"* det" l 7500L  ense=0 "19,2;"Dejo la fila ";1;fi1;0;" =";num2;"* ";1;fi2;0;" +";num1;"* ";1;fi1;0 %>menu1=320,2;"Queda DET=";sig;d$;"* det" * 7500L ense=0 mo=i:p=1dzj+dzi*(menu1=1):(d(o,p)>3):y(o),x(p);(d(o,p)+" ")(13):p 0:711: Ly.5,10 :21,20;"ENTENDIDO ?":0:19,0;" ";:T=131:" ";:t: PLUS3DOS+  1:1:7: y10 ,2;"Para la utilizacion correcta de los programas Microcat seaconseja la consulta la rev.num.","61"  0 Track-Info  R         PLUS3DOST1>!"\2ͥ>2ͩ!O͝& :O!R>:S(:P ~)ݾ (͘͡~ ~)w 2͘,E͘C{?(--͘͟> q!\6!SE>q>q> q:OW>q!^~0=>q:c`q>$q#> q!f~+>q^#V'""d" ">q###>,q ~q#PLUS3DOST1>!"\2ͥ>2ͩ!O͝& :O!R>:S(:P ~)ݾ (͘͡~ ~)w 2͘,E͘C{?(--͘͟> q!\6!SE>q>q> q:OW>q!^~0=>q:c`q>$q#> q!f~+>q^#V'""d" ">q###>,q ~q#PLUS3DOSX$##r7:7:0::1;10 ,10 ;" PARE LA CINTA ":I=164@:.02{# =,I:I:  = ALQUER  Enrique Pascual Lopez 9 VARIABLE DE ONTROL 'A(24):P(24):W(75K) (I=1241 2P(I)=0:A(I)=0 <I A 80P FI=175K1 P0,0,0,6,18,19,15,18,19,24,18,19,9 ,15,16,15,15,16,21,15,16,12 ,12 ,13 ,15,12 ,13 ,18,12 ,13 ,6,9 ,10 ,9 ,9 ,10 ,12 ,9 ,10 ,18,9 ,10 ,21,9 ,10 ,24,9 ,10 ,12 ,6,7,15,6,7,18,6,7,9 ,3,4,15,3,4,21,3,4,6,0,1,15,0,1,24,0,1 ZW(I) dI n DIBUJO TABLERO x1;"  " } 130  17,7,17,16,17,25,14,10 ,14,16,14,22,11 ,13 ,11 ,16,11 ,19,8,6,8,9 ,8,12 ,8,18,8,21,8,24,5,12 ,5,15,5,18,2,9 ,2,15,2,21,0,4,0,13 ,0,22 I=1241 T,T1 7;1;T,T1;I I:5  NOMBRE JUGADORES I=1:240 "2,5:1,2 :21,3;Track-Info  R         "ERROR EN LOS DATOS, REPITA":75K 521,0;" " I1270 521,0;"NOMBRE JUGADOR N.1 (8 c.m.)":N$ 521,0;" " $((N$)>8)(N$="")200 521,0;"NOMBRE JUGADOR N.2 (8 c.m.)":X$ 521,0;" " ""I=0:L=0:M3=1 ,$((X$)>8)(X$="")200 6# CONTROL ENTRADA AL JUEGO @ M1=0 JM1=M1+1 T"J=1:O=4:O1=0 ^P$="":B$="" hC$=N$:Y$=X$ r 410 |"J=2:O=6:O1=0 P$="":B$="" C$=X$:Y$=N$ M1>9 620l  460 "2,5:1,2 :21,3;"ERROR EN LOS DATOS, REPITA":75K 521,0;" " 521,0;C$;",MUEVE PZA.";M1;" (CASILLA?)" M 521,0;" " %(M<1)(M>24)430 Mɺ(M)430 P(M)0430  1030   IMPR. PZAS. ENTRADA (M) T=W(3*M+1) &T1=W(3*M+2) 0T2=W(3*M+3) :O;O1;T1,T;P$ DO;O1;T2,T;B$ N 1260 XJ=1380| bJ=2330J l JUGANDO EN EL TABLERO v321,0;C$;",MUEVE DE LA CASILLA N.":M 421,0;C$;",MUEVA A LA CASILLA N. ":M3 521,0;" " &(M=0)(M3=0)1620T %(M<1)(M3<1)700 '(M>24)(M3>24)700  (Mɺ(M))(M3ɺ(M3))700  740 "2,5:1,2 :21,3;"ERROR EN LOS DATOS, REPITA":75K 521,0;" "  630v P(M)=0700 JP(M)700 P(M3)0700 CONTROL PZAS(M3)SEGUN(M  =M=24(M3=15)(M3=23)1030 KM=23(M3=20)(M3=22)(M3=24)1030  =M=22(M3=10 )(M3=23)1030 *=M=21(M3=14)(M3=20)1030 4YM=20(M3=17)(M3=19)(M3=21)(M3=23)1030 >=M=19(M3=11 )(M3=20)1030 H9M=18(M3=13 )(M3=17)1030 RGM=17(M3=16)(M3=18)(M3=20)1030 \9M=16(M3=12 )(M3=17)1030 fFM=15(M3=3)(M3=14)(M3=24)1030 pTM=14(M3=6)(M3=13 )(M3=15)(M3=21)1030 zFM=13 (M3=9 )(M3=14)(M3=18)1030 FM=12 (M3=7)(M3=11 )(M3=16)1030 TM=11 (M3=4)(M3=10 )(M3=12 )(M3=19)1030 FM=10 (M3=1)(M3=11 )(M3=22)1030 7M=9 (M3=8)(M3=13 )1030 CM=8(M3=5)(M3=7)(M3=9 )1030 7M=7(M3=8)(M3=12 )1030 7M=6(M3=5)(M3=14)1030 PM=5(M3=2)(M3=4)(M3=6)(M3=8)1030 7M=4(M3=5)(M3=11 )1030 7M=3(M3=2)(M3=15)1030 CM=2(M3=1)(M3=3)(M3=5)1030 7M=1(M3=2)(M3=10 )1030  700  CONTR.PZA. ENTRADA (M) L=11100L L=21100L $M1>9 1100L .P(M)=J 8 A(M)=P(M) B 530 L CONTROL PZAS (M) (M3) VP(M)=0 ` A(M)=P(M) jT=W(3*M+1) tT1=W(3*M+2) ~T2=W(3*M+3)  T1,T;" "  T2,T;" " L=11571#  P(M3)=J  A(M3)=P(M3) T=W(3*M3+1) T1=W(3*M3+2) T2=W(3*M3+3) O;O1;T1,T;P$ O;O1;T2,T;B$  CONTROL PZAS EN LINEA L(A(1)=A(2))(A(2)=A(3))(A(3)=J)1440 L(A(4)=A(5))(A(5)=A(6))(A(6)=J)1440  L(A(7)=A(8))(A(8)=A(9 ))(A(9 )=J)1440 Q(A(10 )=A(11 ))(A(11 )=A(12 ))Track-Info  R         (A(12 )=J)1440 Q(A(13 )=A(14))(A(14)=A(15))(A(15)=J)1440 (Q(A(16)=A(17))(A(17)=A(18))(A(18)=J)1440 2Q(A(19)=A(20))(A(20)=A(21))(A(21)=J)1440 24)1530 (Mɺ(M))1530 %(P(M)=0)(P(M)=J)1530  1570" "2,5:1,2 :21,3;"ERROR EN LOS DATOS, REPITE":75K 521,0;" "  1470 "L=1:1030 #I=1241 $J=11575' %A(I)11577) & 1580, 'A(I)21577) ( 1580, )I * 1630^ ,<21,0;C$;", MUEVE PZA. DE LA LINEA":100d 6621,0;" " @L=2:620l JL=0:600X TC$=Y$ ^.21,0;"HA GANADO ";C$:100d |>:9 ,4;" *** HASTA LA PROXIMA ***":7  FIN ** ALQUER **  PLUS3DOS r7:7:0::1;10 ,10 ;" PARE LA CINTA ":I=164@:.02{# =,I:I: N=23296[23312[  A:N,A:N 17,0,0,33!,0,0,126~,238,0,119w,35#,27,122z,179,32 ,246,201 ("DIRECCION INICIAL:";DIR 2"NUMERO DE BYTES:";NUM <"CLAVE:";CLA FN23298[,(NUM/256):23297[,(NUM-256*((NUM/256))) PN23301[,(DIR/256):23300[,(DIR-256*((DIR/256))) Z23304[,CLA d23296[  &n=40000@8484848w:¾n;:n PLUS3DOS,r7:7:0::1;10 ,10 ;" PARE LA CINTA ":I=164@:.02{# =,I:I: N=23296[23315[  A:N,A:N 17,0,0,1,0,0,33!,0,0,10 ,174,2,3,35#,27,122z,179,32 ,246,201 ("DIRECCION INCIAL:";DIR 2"NUMETrack-Info  R         RO DE BYTES:";NUM <"CLAVE:";CLA FN23298[,(NUM/256):23297[,(NUM-256*((NUM/256))) PN23301[,(DIR/256):23300[,(DIR-256*((DIR/256))) ZN23304[,(CLA/256):23303[,(CLA-256*((CLA/256))) d23296[ PLUS3DOS<%$$r7:7:0::1;10 ,10 ;" PARE LA CINTA ":I=164@:.02{# =,I:I: ! MIGUEL ANGEL GOMEZ  &0:3:5:2: 7re=0:23658j\,0:236099\,10  85004!  5000 ( 180 O Le PiLlA eL pInGuInO  PS.001wn,20:.01z# =,-30:pe=0:pu>502pu=pu-502 Z c Se AhOgA eN eL hIeLo  d'n=-20-10 :.01z# =,n:n nn=05:n;yy,xx;a$;yy+1,xx;b$;a,b;n;c$:10 :n:n=50210 -.3:.001wn,n:n:9500%:180 w CoGe Un PeZ  x.001wn,30:.01z# =,502:pe=0:20,30-p$;1;4;2;p$:p$=p$+"":pu=pu+100d:p$=11 4500:180   PoS. iNiCiAl  (.01z# =,-2:0;aa,bb;c$ Z10 :.001wn,30:.002xn,25:2;yy,xx;a$;yy+1,xx;b$ L18,30-re;1;4;7;re;20,9 ;ni in=0  MoViMiEnTo  m=23560\:m320@ F18,15-pu;4;1;7;pu:pu=pu+1 gm=112pƫ(y,x+1)40(ƫ(y+1,x+1)40(x=x+(x<29):a$="":b$="" fm=111oƫ(y,x-1)40(ƫ(y+1,x-1)40(x=x-(x>2):a$="":b$="" Fm=113qƫ(y-1,x)40(y=y-(y>2):a$="":b$="" Fm=97aƫ(y+2,x)40(y=y+(y<15):a$="":b$="" 4(y,x)=41)ū(y+1,x)=41)100d 7(yy,xx)=40(ū(yy+1,xx)=40(80P n(y,x)=43+ū(y+1,x)=43+pe=1:.01z# =,60<:.001wn,20:pu=pu+10 "#y=4x=9 pe120x ,yy,xx;" ";yy+1,xx;" " 6"2;y,x;a$;y+1,x;b$ @;ayƫ(a-1,b)=42*a=a-.73333:c$="" T3bxƫ(a,b-1)=42*b=b-.73333:c$="" raa,bb;" ":0;a,b;c$ wm=32 9500% |yy=y:xx=x:aa=a:bb=b  210  NiVeL 1  u1;5,14;d$;7,22;d$;10 ,6;d$;12 ,24;d$;13 ,14;d$ B K NiVeL 2  L1;3,22;d$;7,10 ;d$;7,24;d$;9 ,16;d$;10 ,4;d$;13 ,10 ;d$;13 ,22;d$   NiVeL 3  1;5,16;d$;6,10 ;d$;7,4;d$;7,25;d$;8,22;d$;10 ,10 ;d$;12 ,12 ;d$;12 ,18;d$;13 ,25;d$;14,3;d$    MuSiCa  n=2022:m=250-2:.05|L,n:.03{u\,m:.02{# =,n+m:m:n:n=12:.1}L,15:.2~L,23:n :  MuSiCa 2  _4510:m=19 :a,b:a,b:m:ni=ni+1:9300T$:ni=49400$ .083})l,4,.084},1&,3,.083})l,2,.25~,1,.25~,9 ,.375?,12 ,.125},14,.1}L,11 ,.30,7   PaNtAlLa  In=016:3;0;n,0;"";n,31;"":n 0,0:255,0:0,39':-8,0:0,136:-239,0:0,-136:-8,0:0,-39' 7,7:2;241,0:2;0,9 :2;-241,0:2;0,-9 7,23:2;241,0:2;0,9 :2;-241,0:2;0,-9 |15,39':225,0:2;0,129Track-Info  R         :2;-225,0:2;0,-129 C1,2;1;5;"" 74,6;0;"";5,6;"" ΂4;7;1;18,1;" PUNTOS [00000] RECORD [00000]";20,1;" NIVEL [1] PECES []" o900+(ni*100d) p  PeCeS  un=17-ni zal=*8+7:c=*13 +3:(l,c)42*ū(l,c+12 )42*6010z (l,c;3;"";l,c+12 ;"":n ]n=13:p=*5+2:q=*13 +15:(p,q)42*p=p+1 3;p,q;"":n X #(190102#:n=0167:a:"a"+n,a:n #2$24,40(,28,18,28,28,10 ,24,24,20,568,72H,568,568,80P,24,16,40(,568,40(,108l,170,568,108l,224,88X,252,88X,44,,31,4,4 #<*0,63?,64@,159,191,127,63?,15,0,252,2,249,253,255,252,192,149,255,149,16,115s,22,28,31,0,0,0,0,192,184,150,61= #F 59;,524,124|,107k,209,249,207,209,201,71G,45-,227,19,23,251,23,128,252,150,47/,255,47/,47/,255 #P0,0,568,124|,84T,108l,568,124|,122z,122z,118v,172,61=,39',161,114r #Z94^,94^,46.,535,188,228,133,78N,0,0,568,124|,124|,124|,568,124| #d190,189,191,188,36$,44,,36$,480,190,253,61=,61=,36$,524,36$,12 #n!0,0,0,64@,162,213,235,191,0,4,42*,119w,174,127,237,247,0,0,64@,64@,32 ,32 ,64@,128,0,0,0,8,16,32 ,64@,128 #x in=1 # VaRiAbLeS  #$pu=0:vi=3:ni=1 #ܥn=61-1:.05|L,-20:#1;1,0;1;7;n;" PULSA ENTER PARA COMENZAR ":.01z# =,-10 :5:n $T~pe=0:yy=4:xx=9 :y=yy:x=xx:aa=5:bb=27:a=aa:b=bb:a$="":b$="":c$="":d$="":p$="" $Win $Y#=13 4000:30 $^ 9305Y$ $ MuSiCa 3  $9410$:n=30502:.001wn,n:n:n=50220-1:.001wn,n:n:30:n=023:a,b:a,b:n $.17~.z,9 ,.17~.z,9 ,.25~,9 ,.17~.z,9 ,.17~.z,9 ,.25~,9 ,.17~.z,9 ,.17~.z,12 ,.17~.z,5,.17~.z,7,.4L,9 ,.17~.z,10 ,.17~.z,10 ,.17~.z,10 ,.12}u[,10 ,.17~.z,10 ,.17~.z,9 ,.25~,9 ,.12}u[,9 ,.17~.z,12 ,.17~.z,12 ,.353333,10 ,.8L,7,1,5,1,5 $.n=300-.5:.01z# =,n:n $ PaNtAlLa FiNaL  $֎:0:7,7:3;241,0:3;0,129:3;-241,0:3;0,-129 $0,0;7;3;" MUY BIEN ! PARA TI SE ACABARON EL FRIO Y LA NIEVE PARA SIEMPRE YA QUE TE HAS GANADO UN CRUCE- POR LAS ISLAS DEL CARIBE. " $247,557:1;-115s,0:6:35#,-47/,2:135,557:-95_,-13 ,.3 $\4:135,568:n=07:-13 +(*5),9 -n,2:n $2:22,15:0,75K,.3:30,15:0,75K,.2~L:n=1691[1.43333:24,n:5,0:n %4:30,90Z:17,-30,-1.5@:-15,35#,2:30,-31,-1.5@:-30,37%,2:21,-3,-1.5@:-23,7,2 %29,107k:-3,7,2:-3,-7,2:-15,-3,2:8,98b:7,3,-1.5@:8,89Y:6,4,-1.5@:-2,-25,1Track-Info  R .5@:10 ,25,-1 %6:n=110 .3:200,100d,n:n:2:n=45-105i1.6L:n,29:7,-17:n %e17,8;7;"":70F,40(:2,5:17,25;2;"" %]17,26;2;8;"":4:17,26;2;8;"" % FiN dE jUeGo  %&re=2:pu=9 :reREM Pulsa ENTER y adio";8;1;"'";"s";#1;"NEW ";1;"L" &13 9920& & 0 PLUS3DOSr7:7:0::1;10 ,10 ;" PARE LA CINTA ":I=164@:.02{# =,I:I: U(x(x`)=(x-origx)/unix*16+orx V(y(y @)=(y-origy)/uniy*16+ory WE(xH)=(x/10 ) X 7500L Z*dimq=0:dimw=0:dime=0 \ 7020l ]Yi=18:m$:i/(i+15),2*i:2*(i+(I1)),7;m$:i bHmenu1=-480:(menu1>0)*(menu1<8)=17025q c 7010b d"7011c+menu1+(menu1=1) e%orden=(menu1=2):7400: forden=2:7400: g htodo=1:7380: i&todo=0:7380:7019k j&todo=1:7380:7019k ktodo=0:7380: l"MENU DE ENTRAMADOS","1-PLOTEADO SIMPLE","2-PLOTEADO DOBLE","3-PLOTEADO TRIPLE","4-SIN ENTRAMADO","5-DOBLE RAYADO","6-RAYADO SIMPLE","7-PUNTO RAYA" ml"INPUT DE FUNCIONES","1- y=f(x)","2- f(x,y)=0","3-MATRIZ DE PUNTOS","4-ELCCION DE ESCALA","5- SALIR" rPASA=-1 sTq(502,2):z(502,2):w(502,2):e(502,2) v:7021m:PASA=PASA+1:i=16:m$:i*3/4/(i+10 ),20-2*i:2*(i+(I1))+(I1),8;m$:i {hmenu2=-480:(menu2>0)*(menu2<6)=1:7035{+5*menu2-(MENU2=5) | 7035{ }f(x,y ,*)=q$ *"mete f(x)=";q$:q$=q$+"-y":7060  "METE f(x,y)=";q$:7060 !"COMO SE LLAMA LA MATRIZ ? ";S$ p"CUANTOS PUNTOS HAY ? ";DIM1:v(dim1,2):I=1DIM1:j=12:V(I,J)=(s$+"(i,j)"):j:i  7060 `:"ORIGEN EN X =";origx:"UNIDAD PARA X =";unix:"ORIGEN EN Y =";ORIGY:"UNIDAD PARA Y =";UNIY  7100 menu2>27075 ~"LIMITE INFERIOR DE x = ";x0:"LIMITE SUPERIOR DE x = ";x1:dim1=21:v(21,2):"VALOR INICIAL PARA Y = ";Y0 y=y0:i=121:x=x0+(i-1)/20*(x1-x0):y0=y:7270f:cont<502v(i,1)=x:v(i,2)=y:i:7075  7030v FI=1DIM1:j=12:7080+pasa:j:i:7100 %q(i,j)=v(i,j):dimq=dimq+.5: %w(i,j)=v(i,j):dimw=dimw+.5: %e(i,j)=v(i,j):dime=dime+.5: Aorx=524:ory=11 :bor=0:7430:7012d \dim=dimq:i=1dim:j=12:z(i,j)=q(i,j):j:i:menu247300 `7200 :direc=50000P:72204:7230>:#1;"ENTER PARA CAMBIAR DE ESCALA" =0:menu2=4:(7055-25*(13 ))  rejex=1:j=010 2:num=origx+j*unix:ploy=ory-7:plox=orx+16*j:7250R:j %~ejex=0:j=010 :num=origy+j*uniy:plox=orx-2:ploy=ory+16*j-3*(j>0):7250R:j * 4ui=1dim:Track-Info  R xrt=x(z(i,1)):direc+2*i,xrt*(xrt255)*(xrt0)+255*(xrt>255):i 9}i=1dim:yrt=y(z(i,2)):direc+2*i+1,yrt*(yrt175)*(yrt0)+175*(yrt>175):i : >bor;(direc+2),(direc+3):i=2dim:bor;(direc+2*i)-(direc+2*i-2),(direc+2*i+1)-(direc+2*i-1):i: Rnum1=num:7255W SMnum1=(num/10 ^e(unix*(ejex=1)+uniy*(ejex=0))+.001wn) Wa$=num1:xp=plox-(5*(ejex=0)+2.5 *(ejex=1))*a$:i=1̱a$:xp=v(xp,ploy,((a$(i))-480)*(a$(i)"-")*(a$(i)".")+10 *(a$(i)=".")+11 *(a$(i)="-")):i \ fcont=0:y1=y0 hXCONT=CONT+1:y2=y1-f(x,y1)/(f(x,y1+1e-3wn)-f(x,y1)+1e-6m7)/1000 i<cont>502"PARA x=";x;" NO HAY SOLUCION":300,: k6(y2-y1)>y2/200+1e-3wny1=y2:7272h py=y2: exmax=z(1,1):xmin=z(1,1):ymin=z(1,2):ymax=ymin:i=1dim 3xmax=xmax+(z(i,1)-xmax)*(z(i,1)>xmax) 3xmin=xmin+(z(i,1)-xmin)*(z(i,1)ymax) i:dx=xmax-xmin:dy=ymax-ymin ,d0x=xmax:d0x=d0x+(xmin-d0x)*(d0x0.89c =-nivƥ<.1}L105i +g$="8"c=c*(c<4)+1:20 3g$="5"c=c+4*(c=1)-1:20 g$="6"70F g$="7"30  5 w1=(24+80P*(c-1))*(c<4)+8*(c=4):w2=254+1*(c=4):65522,w1:65523,w2:65521:.01z# =,20:0;y,x;"";y+1,x;"":5 c=1(y-1,x)=41)ƫ(y-1,x+1)=41)y0y=y-1:0;y,x;"";y+1,x;"";y+2,x;" ":.01z# =,0:pun=pun+1:5 (c=2(y,x+2)43+ƫ(y,x+2)44,ƫ(y+1,x+2)44,x=x+1:0;y,x-1;" ";y+1,x-1;" ":.01z# =,0:pun=pun+1:5 2c=3(y+2,x)=41)ƫ(y+2,x+1)=41)y=y+1:0;y,x;"";y+1,x;"";y-1,x;" ":.01z# =,0:pun=pun+1:5 <c=4(y,x-1)43+x0ƫ(y,x-1)44,ƫ(y+1,x-1)44,x=x-1:0;y,x;" ";y+1,x;" ":.01z# =,0:pun=pun+1:5 A 5 F/c=1(y-1,x)=16997a P7c=3(y+2,x+1)=16998b Z9c=2(y,x+2)=43+x<2099c _.c=4(y,x-1)=43+99c ` 5 ah=120:.05|L,-10 :1;y,x;"";y+1,x;"":.05|L,10 :y,x;"";y+1,x;"":5:h:s=s-.02{# =:4;0;0;y-1,x;"":pun=pun+10 :5 bh=120:.05|L,-10 :1;y,x;"";y+1,x;"":.05|L,10 :y,x;"";y+1,x;"":5:h:s=s-.02{# =:4;0;0;y+2,x+1;"":pun=pun+10 :5 c3;10 ,12 ;"";11 ,12 ;"":.01z# =,-20:y,x;"";y+1,x;"":.01z# =,-10 :n=n-0.02{# =*(n>0):5 ir=(*7):r2=*27:(r*3,r2)=44,0;1;1;r*3,r2;"":.2~L,5:.1}L,15:s=s+.02{# =:5 n 100d  FINAL P0;y,x;"";y+1,x;"":1,20:fon=0520 u=420:0;u,30;" ":u:0;2;3,30;"":fon=fon-1:0;1,30;fon:n=1:y,x;"";y+1,x;"":5 M:17,10 ;"puntos ";pun:y=61-1:pun>v(y)y (y=y+1:pun:"DESEA INTRUCCIONES(S/N) ? ",k$:k$="s"k$="S"1500 C:"ELIGE EL NIVEL DE 1 A 5",ni:ni<1ni>52510 niv=ni*.03{u\ :i=0213:y=027:4;i,y;"":y:1;i,*10 ;"";i,*12 +14;"":i:y=021:3;y,28;"":y:3,30;2;"";0;21,30;"" :3;10 ,12 ;"";11 ,12 ;"" fon=1 y=10 :x=20:c=1:n=1:s=0:pun=0:y,x;"";y+1,x;"":w1=24:w2=254:5 T GRAFICOS  )0,104h,104h,120x,480,16,513,557,524,491,39',111o,111o,39',513,0,0,22,22,30,24,8,204,236,44,,140,228,246,246,228,204,0 0,480,480,0,64@,112p,3,0,0,0,0,64@,64@,0,16,480,0,12 ,12 ,0,2,14,192,0,0,0,0,2,2,0,8,12 ,524,89Y,79O,242,95_,557,0,557,44,,154,242,232,250,236,0,236 0,24,127,71G,24,61=,124|,127,127,124|,61=,24,71G,127,24,0,0,14,222,248,14,128,160,160,160,160,128,14,248,222,14,0,0,24,128,192,0,0,0,0,0,0,0,0,192,128,24,0,0,480,40(,40(,0,0,64@,64@,64@,64@,0,0,40(,40(,480,0,0,22,161,187,22,189,188,190,190,188,189,22,187,161,22,0  0,513,39',111o,111o,39',491,524,557,513,16,480,120x,104h,104h,0,0,204,228,246,246,228,140,44,,236,204,8,24,30,22,22,0,480,16,0,64@,64@,0,0,0,0,3,112p,64@,0,480,480,0,12 ,8,0,2,2,0,0,0,0,192,14,2,0,12 ,12 ,0,557,0,557,95_,242,79O,89Y,524,236,0,236,250,232,242,154,44, 0,112p,123{,31,112p,1,3,3,3,3,1,112p,31,123{,112p,0,0,24,254,194,24,188,62>,126~,126~,62>,188,24,194,254,24,0,0,12 ,100d,100d,0,0,2,2,2,2,0,0,100d,100d,12 ,0,0,24,1,3,0,0,0,0,0,0,0,0,3,1,24,0,0,96`,133,221,104h,189,61=,125},125},61=,189,104h,221,133,96`,0 )0,104h,104h,120x,480,16,513,557,524,491,39',111o,111o,39',513,0,0,22,22,30,Track-Info  R 24,8,204,236,44,,140,228,246,246,228,204,0 ֥0,480,480,0,64@,112p,3,0,0,0,0,64@,64@,0,16,480,0,12 ,12 ,0,2,14,192,0,0,0,0,2,2,0,8,12 ,524,89Y,79O,242,95_,557,0,557,44,,154,242,232,250,236,0,236 ێ0,120x,79O,76L,121y,579,33!,47/,47/,33!,579,121y,76L,79O,120x,0,0,30,242,502,158,140,132,244,244,132,140,158,502,242,30,0,0,0,0,0,13 ,15,6,12 ,12 ,6,15,13 ,0,0,0,0,0,0,0,0,176,240,96`,480,480,96`,240,176,0,0,0,0,16,480,20,20,63?,252,88X,12 ,8 CODIGO MAQUINA p33!,24,254,17,88X,255,1,80P,0,237,176,201 MUSICA m17,19,17,19,17,16,14,14,12 ,14,16,14 PLUS3DOS^r7:7:0::1;10 ,10 ;" PARE LA CINTA ":I=164@:.02{# =,I:I: 6:6:0: Y 7500L ZX"METE f(x)=";f$:"Punto para el desarrollo "'"x0=";p$:"GRADO DEL DESARROLLO=";GRADO d tiempo=60<:inc=.01z# = if(grado+1) m 5000 x:1,0;"TERMINO"' yn$=f(1):'" 0- ";n$':j=1grado:5040:y$=f(j+1):u$=y$+"/"+fac+"*(x-"+p$+")^"+j:inv=(j-ultima>0):1/(2*j+5),2*j:'" ";j;"- ";inv;u$ {(500:n$=n$+"+"+y$+"/"+fac+o$:j }:1000 =w$="*(x-"+p$+")":o$=w$:i=1j-1:o$=o$+w$:i: ":"VALOR DEL SEMIINTEVALO=";SEMI 5menu1=3:y0=0:x0=p$-semi:x1=p$+semi tv(21,2):dim1=21:q$=f$+"-y":menu2=2:7002Z:q$=n$+"-y":menu2=4:7002Z: q(x)=n$ h(xls%)=f$ d(xlK)=e$ n5049:time0=time:f(1)=h(p$):e$=f$:i$="x":w=2grado+1:8000@:f(w)=d(p$) /5049:time-time064@)*(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$(2Track-Info  R (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$+")": &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 c$=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: 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'''''''''