MV - CPCEMU Disk-File Disk-Info ZX-Modules(Track-Info  R ( *RTrack-Info  R DISK MICRO 7 15  AA f AB B !"AC C#$%&'()*+AD r,-./0123456789:AE ;AF <AG =AH >AI ?AJ @AK ABA jBCDEFGHIJKLMNOBB PBC BQRSTUVWXYBD =Z[\]^_`aBE .bcdefgBE 0 hiBF KjklmnopqrsPLUS3DOS@ @DISKEADO POR MADFOX "MICRO"  300, "15" 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;;88888887778888PLUS3DOSGGdCINTA 15 (REVISTAS 57 a 60) 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-Tiburcio"  7,18;"B-Planos I" & 8,3;"C-Polino II" 08,18;"D-Draco" : 9 ,3;"E-Logicos 1" D!9 ,18;"F-Logicos 2" N!10 ,3;"G-Logicos 3" X"10 ,18;"H-Logicos 4" b!11 ,3;"I-Logicos 5" l"11 ,18;"J-Logicos 6" v!12 ,3;"K-Logicos 7" !15,11 ;"1 - VOLVER" B$= B$=""680 B$="A"B$="a""AA" B$="B"B$="b""AB" B$="C"B$="c""AC" B$="D"B$="d""AD" B$="E"B$="e""AE" B$="F"B$="f""AF" B$="G"B$="g""AG" B$="H"B$="h""AH"  B$="I"B$="i""AI" B$="J"B$="j""AJ"  B$="K"B$="k""AK" HB$="1"100d R 500 --- MENU CARA B --- :5000:6000p 4,12 ;"CARA B" 7,3;"A-Bismarck"  7,18;"B-Ficheros"  8,3;"C-Regresion" $ 8,18;"D-Fire Fox" . 9 ,3;"E-Generador" 8"9 ,18;"F-Polino III" !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. 15" -2:0,16;"HOBBY":0 C3:1,6;"DISKEADO POR MADFOX":0:0 #3,8;"REVISTAS 57-60"  p--- PIE DE PANTALLA --- z?1:20,0;" J, siempre... ILM " ?21,0;" ELIGE UNA OPCION ":0  PLUS3DOS2*2*2 r7:7:0::1;10 ,10 ;" PARE LA CINTA ":I=164@:.02{# =,I:I: ^23658j\,8:PUNTOS=0:M=0:U=0:RECORD=0:PANTALLAS=1  5 0  N="A""I"+7 DATOS ( N,DATOS 2N ,28,8 pI28,62>,42*,62>,62>,85U,85U,85U qQ255,247,243,249,248,252,255,255 rO255,239,207,159,31,63?,255,255 s 600X x 800  PANTALLAS=63000 @2;1;20,29;"";20,1;"" )2;1;13 ,3;"" R=0 C1=(*16)+14 #(1,C1)568140 #1;2;1,C1;"" C2=(*30)+1 %1;6;4,C2;"" 2D=(*30)+1:N=(*16)+5 (N,D)568160 1;6;N,D;"" 2E=(*11 )+18:Z=(*6)+8 (Z,E)568170 1;2;Z,E;"" 2F=(*16)+5:H=(*30)+1 (F,H)568180 2;1;F,H;"" R=R+1 R<4140 R=0 2B=(*13 )+4:V=(*30)+1 (B,V)568240 )PANTALLAS=2B=1:V=7 2J=(*17)+4:K=(*30)+1 (J,K)568250 )PANTALLAS=1J=1:K=7 Y=1:Z=30 "4;Y,Z;"" &PANTALLAS=5U=0 ' 880p 6I$= @I$="5"1500 JI$="6"1520 TI$="7"1540 ^I$="8"1560 c2PANTALLAS=3M=M+.5:M=M458 hPANTALLAS=3385 r U=U+1 u?PANTALLAS=5U=5U=0:U=0458 vPANTALLAS=5376x w,U=3U=0:U=0458 zPANTALLAS=2440 R02000 `Y>B(B+1,V)58:ƫ(B+1,V)579B=B+1:B-1,V;" ":430 `YV(B,V+1)58:ƫ(B,V+1)579V=V+1:B,V-1;" ":430 `ZK(J,K+1)58:ƫ(J,K+1)579K=K+1:J,K-1;" ":452 `YJ(J+1,K)58:ƫ(J+1,K)579J=J+1:J-1,K;" ":452  1700 21;1;0;6;J,K;"" Y=JZ=K500 Y=BZ=V500 `PANTALLAS*360h=PUNTOSPANTALLAS=PANTALLAS+1:Y,Z;" ";B,V;" ";J,K;" ":125}  295' &K=07:P=07 P;Y,Z;"":P:K ?:10 ,10 ;1;4;6;"HAS PERDIDO" 'A=13:B=131 $.02{# =,B-A:.02{# =,A-B:B:A TPANTALLAS=1:PUNTOS=0:2,4;"QUIERES JUGAR OTRA VEZ?(S/N)"  0 "N"Ʀ"S"515  ="N"  ="S" bA6,2;"DESEAS VER LAS INSTRUCCIONES? (S/N)":0 l="N":120x q v2,2;"EN ESTE JUEGO DEBES COMER Y BEBER EL MAYOR NUMERO POSIBLE DE ALIMENTOS,DANDOTE 20 PTOS. POR CADA ALIMENTO QUE TOMES" 7,2;"TEN CUIDADO CON LOS JINETES DE LA ANEMIA(,),QUE TRATARAN DE IMPEDIR TU MISION,COMIENDO LOS ALIMENTOS A FIN DE QUE PASES HAMBRE(SI TOMAN DEMASIADOS, QUEDARAS VAGANDO EN LA ETERNIDAD)" 14,2;"LOS ALIMENTOS NO SE ACABARAN HASTA QUE HAGAS 5 PANTALLAS,QUE ES CUANDO HAS VENCIDO.LAS PANTALLAS VAN SIENDO CADA VEZ MAS DIFICILES.PIERDES SI ALGUN JINETE TE COME O SI ":900: :6,2;"LOS PROTAGONISTAS SON: . . .PEPE EL HAMBRIENTO (TIBURCIO PARA LOS AMIGOS) . . .PEDR0 EL CABEZON Track-Info  R  . . .LUIS EL PATAS (YA AVERIGUARAS EL PORQUE DE ESTE MOTE) "  550&: 8,2;"MANDOS: 5-IZQUIERDA 6-ABAJO 7-ARRIBA 8-DERECHA " ?#0;1;"PULSA UNA TECLA PARA CONTINUAR":0:  120x 42:C$="" >MA=031:0,A;C$:A:A=031:21,A;C$:A H5A=120:A,31;C$;A,0;C$:A R&A=113 :3,A;C$:A \71,13 ;C$;2,13 ;C$:1000 f 130 z1,1;"PUNTOS" 2,1;"RECORD"  CPUNTOS=PUNTOS+20:1;4;1,8;PUNTOS PUNTOS>RECORDRECORD=PUNTOS +1;4;2,8;RECORD  01:B$="" )2,15;B$(1529) )3,15;B$(1529) '5,2;B$(211 ) '6,2;B$(211 ) Q7,10 ;B$(11 12 );7,17;B$(1728) $8,2;B$(25);8,7;B$(78);8,10 ;B$(10 11 );8,17;B$(1);8,28;B$(1) .9 ,2;B$(25);9 ,7;B$(78);9 ,17;B$(1);9 ,28;B$(1) 810 ,2;B$(25);10 ,7;B$(715);10 ,22;B$(2223);10 ,28;B$(6) B11 ,2;B$(1);11 ,17;B$(1);11 ,28;B$(1);11 ,22;B$(2223) L12 ,2;B$(1);12 ,17;B$(1);12 ,28;B$(9 );12 ,4;B$(45);12 ,7;B$(712 ) V13 ,2;B$(3);13 ,17;B$(5);13 ,28;B$(2);13 ,4;B$(45);13 ,7;B$(712 ) `14,2;B$(25);14,7;B$(712 );14,17;B$(1723);14,25;B$(2528) jN16,2;B$(25);16,7;B$(730) tN17,2;B$(25);17,7;B$(730) ~z19,1;B$(110 );19,12 ;B$(12 24);19,26;B$(2630)  0  3(Y,Z-1)=58:ū(Y,Z-1)=579 .01z# =,.01z# =  z=z-1 .(Y,Z)=122zū(Y,Z)=126~910 Y,Z+1;" ":1580, 3(Y+1,Z)=58:ū(Y+1,Z)=579 .01z# =,.01z# =  Y=Y+1 .(Y,Z)=122zū(Y,Z)=126~910 Y-1,Z;" ":1580, 3(Y-1,Z)=58:ū(Y-1,Z)=579 .01z# =,.01z# =  Y=Y-1  .(Y,Z)=122zū(Y,Z)=126~910 Y+1,Z;" ":1580, 3(Y,Z+1)=58:ū(Y,Z+1)=579 .01z# =,.01z# =  Z=Z+1 .(Y,Z)=122zū(Y,Z)=126~910 "Y,Z-1;" " ,4;Y,Z;"":  J,K;" " Y>J1730 YK1750 ZR=7R=0 H 430 :70F B10 ,12 ;1;4;1;6;"GANASTE" 250  %0,16:255,0 /A$="" 3;19,10 ;A$;3;18,10 ;A$;3;17,10 ;A$;3;16,14;A$(4);3;15,14;A$(4);3;14,14;A$(4) *P$(4,4):Q$(4,4) P$(1)="":P$(2)="":P$(3)="":P$(4)="":Q$(1)=" ":Q$(2)=" ":Q$(3)="":Q$(4)="" 2:0:1:1:13 ,10 ;P$(1);14,10 ;P$(2);15,10 ;P$(3);16,10 ;P$(4) 6:13 ,18;Q$(1);14,18;Q$(2);15,18;Q$(3);16,18;Q$(4) $0:7:0:4 *M$(4,4):N$(4,8) OM$(1)=" ":M$(2)="":M$(3)="":M$(4)="" O$=" " &[N$(1)=" ":N$(2)=" ":N$(3)="":N$(4)=" " 0}10 ,14;M$(1);11 ,14;M$(2);12 ,14;M$(3);13 ,14;M$(4) 5 502 :!13 ,14;O$(4) D|9 ,14;M$(1);10 ,14;M$(2);11 ,14;M$(3);12 ,14;M$(4) I 5 N12 ,14;O$ X{8,14;M$(1);9 ,14;M$(2);10 ,14;M$(3);11 ,14;M$(4) b11 ,14;O$ lz7,12 ;N$(1);8,12 ;N$(2);9 ,12 ;N$(3);10 ,12 ;N$(4) m3190v :A=18 nN o0.30,N pA r(A=170F:N:0.15~,N:A vB11 ,9 ,7,9 ,9 ,7,5,7 xn4,0,4,7,4,7,4,7,11 ,12 ,14,16,17 z4,2,4,5,7,9 ,11 ,12 ,14,16,17,14,12 ,11 ,9 ,11 ,12 ,7,12 ,12 |7,5,4,5,7,4,2,4,5,2,4,5,7,9 ,17,16,14,14,17,11 ,12 ~5,2,9 ,14,17,16,14,12 ,11 ,12 ,9 ,17,16,17,19,19 @7,12 ;O$;8,12 ;O$;9 ,12 ;O$ {8,14;M$(1);9 ,14;M$(2);10 ,14;M$(3);11 ,14;M$(4) 8,14;O$ |9 ,14;M$(1);10 ,14;M$(2);11 ,14;M$(3);12 ,14;M$(4) 9 ,14;O$ }10 ,14;M$(1);11 ,14;M$(2);12 ,14;M$(3);13 ,14;M$(4) 0 509 PLUS3DOS n n r7:7:0::1;10 ,10 ;" PARE LA CINTA ":I=164@:.02{# =,I:I: g=10 :cat=1:5:5:0::u1=1:u2=.2~L:5000:linea=0:z$(15,6):v0=0 (20:i=114:z$(i):i @"h1s u1","h2s u2","x1s u1","x2s u2","v a s ","s a t ","v a t " @"a F1Tc","a F2Tc","a F1F2","N1m1u1","N2m2u2","F1w1N1","F2w2N2" -W502:B$="1.23456789":raro=B$:k=115:I$:9999':k:k=2 2H"s","N1","N2","f2","f1","w1","w2","a","tc","v","t","h1","h2","x1","x2" d1"Mete los datos del cuerpo 1"'"m1=";m1'"u1=";u1 n1"Mete los datos del cuerpo 2"'"m2=";m2'"u2=";u2 ws:5000:3010 :1;20,0;" LA ECUACION 10 SE OBTIENE SUMANDO LA 8 Y LA 9":2000 x_"CUAL ES LA INCOGNITA ? ";Y$:y$=(y$+" ")(12Track-Info  R ):linea,18;" " ""Algun dato mas?,sino ENTER"'E$ e$=""150 #8980#:9999':130 "h1=s*u1" "h2=-s*u2" "x1=s*u1" "x2=s*u2" "v=v0+2*a*s" "s=a/2*t^2+v0*t" "v=v0+a*t" "m1*a=m1*g*u1-F1-Tc" "m2*a=-m2*g*u2-F2+Tc" %"(m1+m2)*a=m1*g*u1-m2*g*u2-F1-F2" "N1=m1*g*u1" "N2=m2*g*u2" "F1=w1*N1" "F2=w2*N2" "v=v0+a*t" ,Ek$=y$:500:linea,18;1 ;" RESUELTO ":120x  y$raro: Xp(3):z=cat14:m=152:z$(z,mm+1)=k$520 m:z:525  dincog=0:itas=0:m=152:z$(z,mm+1)=raroitas=itas+1  %z$(z,mm+1)=y$incog=(k$y$)  >m:itas0p(itas)=p(itas)-(p(itas)-z)*(incog=0)  z  4z=13:p(z)0z=p(z):530 z D(z7)*(con=14)+(z>7)*(con=7)3000 +z )550&+502*(p(1)=0) &i$=k$(11+(k$(2)" ")):(200+p(1)):e$:9000(#:9999':e$=i$+"="+b$:20,0;"DE ";p(1);" TENGO ";E$:2000:.3,5:1;linea,18;i$;"=";i$:linea=linea+1: X4pr=p(2)+p(3)*(p(2)=0):700:;20,0;"NO PUEDO DESPEJAR ";k$;" DIRECTAMENTE":2000:20,0;" Hallo primero ";z$(pr,mm+1);" para obtener ";k$;" de (";pr;")":2000:k$=z$(pr,mm+1):(k$="a ")*(w1raro)*(w2raro)=1cat=8 Z*500:cat=1:k$=y$:500 rm=152:(z$(pr,mm+1)y$)*(z$(pr,mm+1)k$)*(z$(pr,mm+1)=raro)=1: m: Ж.5,502:21,21;"ENTENDIDO ?":0:20,0;" ": acon=7:3020 :q=17:200+q:x$:10 +q,16;q;" ";x$:q: ƥcon=14:3020 :q=814:200+q:x$:q*(q11 )+(7+q)*(q<11 ),16-16*(q<11 );1;q;;0;x$:q: aq=14:10 +q,15;" ":q:q=1128:" ";:q : anp=(+u1-u2)/2 aag=u1-.001wn:sg=-1:5100:ag=u2-.001wn:sg=1:5100:5180< @z=71G-(71G-59;/ag)*(ag>(59;/71G)) o72H,127:sg*(z/2+12 *ag),-(z/2+12 *ag)*ag:sg*(24*ag),24*ag ?-sg*24*ag,24*ag:-sg*24*ag,-24*ag sg*(z/2+12 *ag),-(z/2+12 *ag)*ag:72H+sg*(z/2+12 *ag),127-z/2*ag+12 *ag:sg*18*(2*ag),36$*ag*ag &nor=1:5200P:nor=0  d-sg*36$*(2*ag),-72H*ag*ag:2;sg*18*(2*ag),-36$*ag*ag b2;sg*18*(2*ag),36$*ag*ag:-sg*18*(2*ag),36$*ag*ag 72H+sg*(z/2+12 *ag),127-z/2*ag+12 *ag:0,-36$:2,4:-4,0:2,-4:0,36$:2;25*ag,-sg*25*ag:5200P (h72H+sg*(z/2+13 *ag),127-z/2*ag+13 *ag:-sg*z/2,z/2*ag 2 47/)*(e$(i+1)<58:)):9000(# #.i:2,10 :"EXPRESI0N NO VALIDA": #Jq(i$~)=(i$>64@)*(i$<91[)+(i$>96`)*(i$<123{) #(d$=e$:9480%:pi=pvar #2-i=1̱E$:E$(i)="="pe=i:9020 <# #7i:"NO HAY ""="" !!!": #piB$=E$((pe+1)̱E$):A$=E$(1(pe-1)):9030F# #A6B$=E$(1(pe-1)):A$=E$((pe+1)̱E$) #Fd$=a$:9480%:pi=pvar #K A$=I$: #Pcuenta=0:a(25,2):b(25):ax=1:np=0:a(1,2)=0:i=1̱A$:A$(i)=40(cuenta=cuenta+1:np=np+1:np=1ax=ax+1:a(ax,1)=i:i #UWA$(i)=41)np=np-1:cuenta=cuenta-1:np=0a(ax,2)=i:i #W7i:cuenta0"numeTrack-Info  R ro impar de parentesis !!!": #Za(ax+1,1)=A$+1:a(2,1)=1a(2,2)=A$A$=A$(2(A$-1)):pi=pi-1:a(ax,2)09035K# #_no=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:9062f# #d0orden=nivniv>0no=no+1:b(no)=i #f!i:j:b(no+1)=A$+1 #n((9100#+100d*niv):9030F# #xaP(xs)=3*((x=43+)+(x=45-))+2*((x=42*)+(x=47/))+(x=94^) #@A$(1)=187A$=A$(2̱A$):B$="("+B$+")^2": #<I(x*)=189*(x=189)+45-*(x=43+)+43+*(x=45-)+178*(x=181)+181*(x=178)+179*(x=182)+182*(x=179)+180*(x=183)+183*(x=180)+184*(x=185)+185*(x=184)+42**(x=47/)+47/*(x=42*) #5B$=¨I(A$(1))+"("+B$+")":A$=A$(2̱A$) #SI(A$(1))>0B$=¨I(A$(1))+B$:A$=A$(2̱A$):9115# # #i=1no:b(i)1A$=(42*+(niv=3))+A$:i=1no+1:b(i)=b(i)+1:i:pi=pi+1:9410$ $3i=1no:b(i)=b(i+1):i:no=no-1 $i=1no:b(i)64@)*(x<91[)+(x>96`)*(x<123{)+(x>47/)*(x<58:)) 'args=23627K\+256*23628L\:i=1(i$+(15-i$)*(i$>15)):(args-25+i),(i$(i)):i:j=18:(args-25+i+j-1),"=b$::"(j):j:s=b$::klmno=b$:: PLUS3DOS!  r7:7:0::1;10 ,10 ;" PARE LA CINTA ":I=164@:.02{# =,I:I: o$="":flm=1 &U4000:col=3:der=0:gru=1:4100:jae=gra3:4240 +,:10 ,10 ;1;"CALCULANDO" 0?der=1:col=4:4240:1800:gru=5 :Bder=0:col=4:4220|:col1=1:col2=3 Dr4260:1700:col1=7:col2=3:4260:gru=4:col=7:4220|:4100 NYn=120:p(n,4)=p(n+1,3)*n:n:p(21,4)=0 Xd(1,3,4)=p(gra3,3):d(2,3,4)=p(gra3-1,4):flm=1:o$=gra3+(gra3-1) b1800:flm=0:n=1̱o$:d(n,2,4)=d(n,3,4)*(1-2*(((o$(n)-1)/2Track-Info  R         )(o$(n)-1)/2)):n:c(3) ln=1̱o$-1:m=23:c(m)=c(m)+(d(n,m,4)ɼd(n+1,m,4)):m:n:nz=(c(3)-c(2)) vdem=gra3:gru=5:4100:nzr=gra3-1:y(15,em*2-1)::nz=0 {@0,0;"el polinomio tiene ";nz;" ceros dis- tintos" cn=1em:d(n,1,4)=d(n,1,4)+1e-6m7*(d(n,1,4)=0) rn:n=1em-2:y(1,2*n+1)=d(em-n-1,1,4)/d(em-n,1,4):n Vy(1,2)=-d(em-1,1,4)/d(em,1,4):nd2=2 &n=22*em-22 Py(nd2,n)=y(nd2-1,n)+y(nd2-1,n+1)-y(nd2-1,n-1):n &n=32*em-32 y(nd2,n-1)=y(nd2,n-1)+1e-6m7*(y(nd2,n-1)=0):y(nd2,n)=y(nd2-1,n)*y(nd2,n+1)/y(nd2,n-1):n +nd2<15nd2=nd2+1:3230 F:10 ,10 ;1;"CALCULANDO":nd3=1:pas=1 8n=1em-1:d(n,deriv+1,3)=:n Лj$="":n=1jae-2:j$=j$+"(x*":n:k$=j$:a$=d(jae,1,1):j$=j$+"(x*"+a$:a$=(a$*(jae-1)):k$=k$+a$:n=1jae-2 `a$=d(jae-n,1,1):j$=j$+"+"+a$+")":a$=(a$*(jae-n-1)):k$=k$+"+"+a$+")":n 2a$=d(1,1,1):j$=j$+"+"+a$+")" n=1em-1 sx=y(10 ,2*n):3800:m=1nd3:(x-d(m,deriv+1,3))<1e-4sQXm=nd3:3340 6m=nd3d(m,deriv+1,3)=x:nd3=nd3+1 nd3nz+1 m:n nd3nz+1 -i=121:p(i,4)=0:i Hp(2,4)=1:gru=1:4240:o=pasnd3-1 *l4260:p(1,4)=-d(o,deriv+1,3):1700:o:4220|:pas=nd3:3280 0dx=j$/k$:x=x-dx:dx1e-4sQX3800   #n=1̱p$:p$(n)=d$p$(n)=w$ &n:n=1̱q$:q$(n)=d$q$(n)=w$ n: <*5:5:0::ope=5 Fj16,17:0,105i:217,0:0,-105i:-217,0:1 P4,0;"Selecciona opcion:";8,4;"7) DERIVAR p o q";11 ,4;"8) DERIVAR p/q";14,4;"9) CEROS POR RUFFINI";17,3;"10) CEROS POR ITERACION" Z<a$=:a$"7"a$"8"a$"9"a$"0"Ưa$13 3930Z da$=13 190 nYlu=a$+10 *(a$="0"):3*lu-13 ,27;2;1;"":502 x#502:3900<+100d*lu n=120:p(n,7)=n*p(n+1,pol+2):d(n,1,gru)=p(n,pol+2):d(n,2,gru)=p(n,7) Bn2d(n-1,3,gru)=(n-1)*d(n,2,gru) 4n:d(21,1,gru)=p(21,pol+2)  gra3=21:n=22 'n=n-1:gra3=04130" =d(n,der+1,gru)=0gra3=gra3-1:4110 " rHn=121:d(n,der1+1,gru1)=d(n,der2+1,gru2):n: :n=121:d(n,der+1,gru)=p(n,col):n: 8n=121:p(n,col)=d(n,der+1,gru):n: .n=121:p(n,col2)=p(n,col1):n: !d(gra3,1,5)=0 an=gra31-1:d(n,der+1,4)=d(n,der+1,gru)+d(n,der+1,5) Jn2d(n-1,der+1,5)=ruf*d(n,der+1,4) n: :8"Que polinomio? (p/q) ";a$:a$"p"a$"q"4410: D<col=3:pol=1:a$="q"col=4:pol=2 N(der=0:gru=1:4220|: lE3,3;"p(";d$;")= ";p$;6,3;"q(";d$;")= ";q$ v .1}L,10 3#0;"Pulsa una tecla para volver":0: 5n=gra31-1:m=13:fil:gr 74550:fil,4+cam*(gra3-n+1)-jj;jj ^m:4560:n:24,92\:0,568:16,108l:239,0 7,0;ruf: 5jj=d(n,der+1,gr):jjcamjj=((jj)(cam))  14,1,7,5,9 ,4 opcion 7 44000::4000 1200:r$=b$  F4450b:10 ,3;"DERIVADA";12 ,3;r$:v$=r$ *4480:3900< \opcion 8 a3col=3:der=0:gru=1:4220| f3col=4:der=0:gru=2:4220| p0i=12:pol=i:gru=i:4000:i uITrack-Info  R         :4450b:9 ,3;"d/d";d$;"(p/q)= (p'q+pq')/q";144 zder=1:gru=2:col=4:4240:1600@:2,0;"Esto es pq'":col1=7:col2=6:4260:der=0:col=4 |?4240:der=1:gru=1:col=3:4240 t1600@:2,0;"Esto es p'q":n=121:d(n,2,5)=-p(n,6)+p(n,7):n der=0:gru=2:4240:1600@:2,0;"Esto es q";144:col=7:der=2:gru=5:4220|:der=0:gru=1:col=3:4240 -:4450b:10 ,3;"DERIVADA"; 1200:o$=b$ ?col=7:der=1:gru=5:4240:1200 .14,0;"(";b$;")/(";o$;")":v$=b$ 4480:3900< opcion 9 :4450b 44000:noc=1 =d(noc,1,1)=0noc=noc+1:4803 ycue=0:n=1̽d(noc,1,1):d(noc,1,1)/n=(d(noc,1,1)/n)cue=cue+1 n:z(2*cue+(noc1)):cue=1+(noc1):n=1̽d(noc,1,1):d(noc,1,1)/n=(d(noc,1,1)/n)z(cue)=n:z(cue+1)=-n:cue=cue+2 n:cue=cue-1 :1,0;"El termino de menor grado es ";d(noc,1,1);3,1;"Los ceros enteros del polinomioson los divisores del termino demenor grado; ";:n=1cue:z(n);", ";:n ;12 ,1;"(Vamos a probarlos todos)":4480 <der=0:gru=1:4100:cam=(29/gra3) @nd1=0:k=1cue::ruf=z(k):4300:4500 d(1,der+1,4)<1e-4sQXnd1=nd1+1:d(nd1,der+1,3)=ruf:14,0;ruf;" es un cero":4850 (14,0;ruf;" no es un cero" 4480:k Ond1=0:5,0;"No memos conseguido ningun cero":4890 e:"Hemos sacado ";nd1;" ceros";2,0;"El polinomio es divisible por:";4,15; Jn=1nd1:32 ;"(";d$;:d(n,der+1,3)0"+"; #-d(n,der+1,3);")";:n 4480::3900< $opcion 10 .Z:4450b:44000:col=3:gru=5:der=1:4220|:der=2 8Acol=4:4220|:deriv=0:gru=1:3100 ;Ygru=5:der=1:col=3:4240:der=2:col=4:4240 =2nz=0:"No hay raices reales":4950V Bg:"-Raices reales diferentes: ";nz''"-Total raices reales: ";nz+nzr;5,12 ;"RAICES":v$="" LXo=1nz:14;(d(o,deriv+1,3)*1e2d+.5)*1e-2z# =:o V4480:3900< PLUS3DOS8 8 8r7:7:0::1;10 ,10 ;" PARE LA CINTA ":I=164@:.02{# =,I:I: g0:0:7:59999_:10 ,0;1;" ESPERA. CARGANDO LINEAS DATA " Yn=60000`:l=305022:c=0:a$,a:i=1252 mb=16*(a$(i)-480-(7a$(i)>"9"))+a$(i+1)-480-(7a$(i+1)>"9"):c=c+b <n,b:n=n+1:i:ca" ERROR EN DATA EN LINEA ";l: l )"ED5F6F2600110058010003EDB0",1003 ("21005816000100037EFE00280A",577A ")"16FF353E10D3FEAFD3FE0B2378",1679 $)"B120EBBA20E021004011014036",1119_ &)"00010018EDB0C93E002AD4EA77",1308 ()"2B772B22D4EAC6102AD6EA7723",1543 *)"772322D6EA01E0022100581120",1033  ,)"58EDB0F5CDD8EAF1FE8020D621",2303 .)"0F5822D4EA2322D6EAC36DEA0F",1Track-Info  R         653u 0("5810582100000E0016017EE618",642 2)"D3FE4110FE231520F40C20EFC9",1616P 4GRAFICOS 6 n="a""m"+7:a:n,a:n 8060<,254,86V,66B,34",28,62>,114r,115s,115s,102f,38&,60<,58:,161,243,60<,127,106j,66B,68D,568,124|,78N,206,194,66B,126~,60<,93],135,206 :62>,127,65A,85U,73I,34",28,127,221,221,93],126~,60<,36$,102f,239,62>,127,0,127,127,62>,28,127 L60<,24,24,153,255,153,24,24 d:a$=" VILLALBA SOFT PRESENTA: " fx=5:4000 iK8,8;1;" S -- INSTUCCIONES"'''" OTRA TECLA -- JUGAR" n=""110n x"s"400 :a$=" DRACO ES UN VAMPIRO QUE VIVE EN UN TETRICO CASTILLO. TU MISION ES LA DE DESTRUIR EL MALEFICIO DE LOS VAMPIROS QUE YA FUERON VICTIMAS DE DRACO... " a$=a$+" PARA ELLO DEBERAS ENCONTRAR LA CRUZ CON LA QUE PODRAS LUCHAR CARA A CARA CON DRACO. PERO PARA LLEGAR A DRACO DEBERAS COGER UNO A UNO LOS CINCO CANDELABROS Y DEJARLOS EN LAS HABITACIONES OSCURAS POR LAS QUE NO SE PUEDE PASAR SIN ELLOS. " x=13 :4000 a$=" EL CASTILLO TIENE 125 HABITA- CIONES Y CUATRO PISOS DE ALTURA. EN EL PRIMER PISO ESTA LA CRUZ SAGRADA, ES UNA ZONA DE VAMPI-ROS Y TIENE 50 SALAS. EL SEGUNDOES LA ZONA DONDE SE REPARTEN LOS" a$=a$+"CANDELABROS Y TIENE COMO LOS DEMAS PISOS 25 SALAS. EL PISO 3 ES TAMBIEN DE VAMPIROS. Y EL PISO 4 ES EL DE LAS HABITACIONES OSCURAS Y DONDE REPOSA DRACO EN SU ATAUD. SUERTE VALIENTE... " x=12 :4000 a$=" ....COMIENZAS TU AVENTURA EN LA PUERTA DE ENTRADA AL CASTILLO Y TU MISION ACABARA CUANDO EL CONTADOR DE TUS LITROS DE SANGRE SE AGOTE A MEDIDA QUE TE ALCAN-ZAN LOS VAMPIROS. " a$=a$+" LAS TECLAS SON: Q- ARRIBA A- ABAJOO- IZQUIERDA P- DERECHAM- SOLTAR CANDELABROS EN LAS HABITACIONES CON ESCA- LERAS HACIA ARRIBA O CON VAMPI- ROS NO PODRAS SOLTAR CANDELABROS" x=13 :4000 *60059::r=(*502)+76L 2d=5:b$="" s=12 :v=1:h=1:c=0:b=150:x=16:y=18:z=123{:17,8;1;1;"ESPERA UN MOMENTO"  460 =u$(125},3):n=1125}:a$:u$(n)=a$:n ̊"14","33","13","34","43","13","31","42","43","42","11","24","31","12","31","43","14","23","31","43","11","24","21","24","31":PISO 1 э"13","33","140","33","430","42","42","13","31","42","42","42","11","24","31","420","11","24","23","33","11","24","24","21","31":PISO 2 ֋"43","13","24","23","34","42","410","43","42","44","11","23","22","21","33","13","31","11","33","42","11","24","24","21","31":PISO 3 ۍ"430","13","24","24","33","42","11","24","33","410","12","24","33","410","43","41","43","11","23","32","13","22","33","42","41":PISO 4 "12","32","11","22","33","42","11","23","32","42","11","24","22","22","31","13","24","32","11","33","41","14","21","24","31":PISO 5 n=15 7a=(*24)+2:u$(a,3)" "483 u$(a,3)="6":n n=15 8a=(*25)+513:u$(a,3)" "487 u$(a,3)="3":n n=18 8a=(*25)+26:u$(a,3)" "490 u$(a,3)="2":n n=112 8a=(*502)+76L:u$(a,3)" "495 u$(a,3)="2":n 60000`:60059 b0:7-(u$(z,3)="6"c=0)::n=1921:n,0;6;b$:n 20,0;1;6;"SANGRE.";1;2;b$(s);5;b$(12 -s):r=020,29;Track-Info  R         4;6;"";21,29;"" Lc=120,26;3;6;"";21,26;"" U6:0,24:0,151:255,0:0,-151 0u$(z,3)="5"u$(z,3)="6"515 6:0,24:568,104h:143,0:568,-104h:0:568,175:0,-47/:143,0:0,47/:1 #u$(z,1)=4535 u$(z,1)228,76L:0,42*:11 ,13 :0,-35#:-11 ,-20:10 ,4;1;0;" ";11 ,4;" ":40(,98b:-11 ,0:IZQUI u$(z,1)2227,76L:0,42*:-11 ,13 :0,-35#:11 ,-20:10 ,27;1;0;" ";11 ,27;" ":215,98b:11 ,0:DERECHA #u$(z,2)=4551' u$(z,2)2118v,128:19,0:0,24:-19,0:0,-24:5,15;7;" ":4,15;0;" ":ARRIBA &u$(z,2)27:111o,24:0,40(:33!,0:0,-40(:18,14;0;" ":ABAJO +0u$(z,3)="5"u$(z,3)="6"700 00:u$(z)/3=(u$(z)/3)z:n=1̰u$(z,2):6:480+*120x,32 +*90Z:31,0:-3,7:-24,0:-4,-7:5,0:4:0,-8:0,7:3,0:0,-4:0,4:15,0:0,-4:0,4:3,0:0,-7:n 52u$(z,1)+u$(z,2)5572< :z:n=1̰u$(z+11 -(15z>99c),2):6:480+*148,32 +*90Z:15,0:-2,7:-10 ,0:0,13 :-3,-8:0,-12 :2,0 ;4:0,-8:0,7:3,0:0,-4:0,4:5,0:0,-4:0,4:3,0:0,-7:n D6z/2=(z/2)(7-u$(z,1)):n=01:163+2*n,138+2*n:17-4*n,0:0,20-4*n:-17+4*n,0:0,-20+4*n:n:3,21;7;1;(144+(4ưu$(z,2)>2)) N8:u$(z+25-(502z>100d),1)="1"88X+2*(u$(z)ưu$(z)<100d),100d+(u$(z)ưu$(z)<100d):0,-20:-6,-4:15,0:-6,4:0,30:-2,0:-1,-10 :-8,4:0,3:2,0:0,-3:8,-3:8,4:0,3:2,0:0,-3:-8,-4 r5u$(z,1)2u$(z,2)="1"633y t5n=813 :n,24;" ":n:6 v230,70F:-25,0:-6,12 :0,10 :-5,12 :0,-14:-3,9 :0,12 :10 ,0:20,25 x-20,-30:7,-14:20,35#:0,-35#:2,-4:0,-18:0,17:-25,0:0,-17 u$(z,1)=1ưu$(z,2)<3n=812 :n,3;" ":n:6:41),72H:6,12 :0,40(:-3,8:-3,-16:0,-44,:-15,0:0,45-:15,0:3,5:0,-30:0,30:2,5:-3,8:-15,0:-3,-16 u$(z,3)"0"755 7:n=111 :n,4;" ":n:n=26:n,4;6;" ";n+5,3;" ":n:0,5;0;" " 568,79O:n=16:0,8:3,6:-24,0:-3,-6:0,-8:25,0:0,8:2,6:n:6:0,-36$:-16,-491 z>100d759 u$(z+25,3)="0"6:480,24:4,23:7:-36$,0:0,-8:31,0:0;-31,0:-4,-7:34",Track-Info  R         0:18,1;0;" " u$(z+25)/2=(u$(z+25)/2)(6-u$(z,2)):101e,145:2,8:-7,8:-7,-8:2,-8:5,-4:5,4:107k,138:-24,28:85U,138:24,28  <z=1d=060<,106j:0,-5:5,-3:25,3:0,8:-25,3:-5,-3:0,-3:5,-3:25,3:8,8;1;"+";9 ,6;" ";8,6;" ";7,6;" " "Vz=123{13 ,14;"":n=1418:n,14;" ":n $fu$(z,3)="3"u$(z,3)="5"16,27;5;1;"";17,27;"" *z=rn=9 12 :n,14;" ":n:10 ,15;5;1;"";11 ,15;"":0,0;1;" ENCONTRASTE LA CRUZ. YA PUEDES ENFRENTARTE CON DRACO. SUERTE!. " ,_Z=rn=112 :.05|L,n:n:0:0:r=0:60059:500 z1:7:y,x;8;(b+1-(2b=150));y-1,x;b:u$(z,3)="2"v,h;8;"" ="p"ƫ(y,x+1)62000:x=x+1:8;y,x;"";y-1,x;"":b=146:(y,x)=1x=5:z=z+1:500 ="o"ƫ(y,x-1)62000:x=x-1:8;y,x;"";y-1,x;"":b=144:(y,x)=1x=26:z=z-1:500 ="q"ƫ(y-1,x)62000:y=y-1:y,x;8;"";y-1,x;"":b=150:(y-1,x)=0y=17:x=x+(4-xx<9 ):z=z-5-(20x<9 ):500 ="a"ƫ(y+1,x)62000:y=y+1:y,x;8;"";y-1,x;"":b=148:(y,x)=0y=6-(4x<8):x=x+(7-xx<8):z=z+5+(20x<8):500 1="m"c=1u$(z,3)=" "u$(z,3)="6"c=0:20,26;6;0;"";21,26;"";16,27;5;1;"";17,27;"":60120:u$(z)=u$(z)(2)+("3"u$(z,3)=" ")+("5"u$(z,3)="6"):d=d-(u$(z,3)="5") B SUCESOS Lu$(z,3)="2"8;v,h;"":v=v+1-(2y1)-(4v>20):h=h-1+(2x>h):v,h;8;"":x=hy=v3000 `c=0x*y=442u$(z,3)="3"u$(z,3)="5"c=1:60120:16,27;0;" ";17,27;" ";20,26;3;6;"";21,26;"":u$(z)=u$(z)(2)+("6"u$(z,3)="5"):d=d+(u$(z,3)="6") j0d=0r=0x*y=81Q5000  1000 Dy,x;8;(b+1-(2b=150));y-1,x;b: a60120:60000`:v=1:h=1:s=s-1:500+(3000 s=0) 0,0;1;" TERMINASTE TU MISION Y SERAS UN VAMPIRO MAS EN EL MUNDO DE LAS TINIEBLAS. PULSA ENTER " 13 3510 100d 618,0;"" m=1x:19,0;0;a$(32 ):a$=a$(33!):20,0;5,,:n=031:19,n;1;7;" ";5;" ":.005y# =,9 :n:3582 :m 19,0;"":3582 :n=117-x:19,0;0,,5,,:3582 :n =""4010 60000`: I12 ,11 ;1;"";13 ,11 ;"":1,7 ln=817:n-1,9 ;0;" ";n,9 ;"";n+1,9 ;"":60120:n ăn=115:60120::17,9 ;1;(32 +*99c);18,9 ;(32 +*99c):n Ι60000`:2,0;1;" POR FIN. CONSEGUISTE ACABAR CON LA MALDICION DEL CASTILLO DE ",,,"D R A C O.",:''" P U L S A E N T E R." =""5080  100d Track-Info  R PLUS3DOS::r7:7:0::1;10 ,10 ;" PARE LA CINTA ":I=164@:.02{# =,I:I: da= n'(a=81Q)(a=113q)200 x&(a=65A)(a=97a)300, '(a=79O)(a=111o)400 '(a=80P)(a=112p)500 100d PLUS3DOSJr7:7:0::1;10 ,10 ;" PARE LA CINTA ":I=164@:.02{# =,I:I: da= n100d+100d*(a=81Qa=113q)+200*(a=65Aa=97a)+300,*(a=79Oa=111o)+400*(a=80Pa=112p) PLUS3DOSyr7:7:0::1;10 ,10 ;" PARE LA CINTA ":I=164@:.02{# =,I:I: "Numero entre 1 y 22 ?";a: n=122 +n;:a=n" < Este es su numero":502 ( 2n < 10 PLUS3DOSfr7:7:0::1;10 ,10 ;" PARE LA CINTA ":I=164@:.02{# =,I:I: "Numero entre 1 y 22 ?";a: n=122 n;" < Este es su numero"a=n (n 2 10 Track-Info  R PLUS3DOSAr7:7:0::1;10 ,10 ;" PARE LA CINTA ":I=164@:.02{# =,I:I: !"Valor de a ? (entre 1 y 5) ";a a=1"a=1" a=2"a=2" (a=3"a=3" 2a=4"a=4" <a=5"a=5" F 10 PLUS3DOSXr7:7:0::1;10 ,10 ;" PARE LA CINTA ":I=164@:.02{# =,I:I: !"Valor de a ? (entre 1 y 5) ";a n=15  a=n"a=";n (n 2 10 PLUS3DOS~r7:7:0::1;10 ,10 ;" PARE LA CINTA ":I=164@:.02{# =,I:I: !"Valor de a ? (entre 1 y 5) ";a Q"a=1"a=1;"a=2"a=2;"a=3"a=3;"a=4"a=4;"a=5"a=5  10 PLUS3DOS444q7:7:0::1;10 ,8;" PARE LA CINTA ":I=164@:.02{# =,I:I: 50000P:23658j\,8:52500,201:0:0:5:1::1;12 ,10 ;"M.C. CARGANDO" # UDG Y MC c: <M(2):M(1)=50000P:M(2)=55000 I=12 (K=024 2 A:M(I)+K,A <K:I F33!,0,72H,229,6,32 ,203,30,35#,16,251,62>,0,203,31,227,182,119w,225,62>,80P,172,200,24,234 P33!,255,79O,229,6,32 ,203,22,43+,16,251,62>,0,203,23,227,182,119w,225,62>,71G,172,200,24,234 ZJ=60000`60025y dA:J,A nJ x6,5,197,33!,0,8,17,1,0,229,205,181,3,225,17,16,0,167,237,82R,32 ,240,193,16,233,201 $n=015*8-1 a:"a"+n,a n 0,0,0,0,8,28,255,126~,0,0,0,0,1,15,255,127,0,0Track-Info  R ,0,64@,192,224,255,252 0,0,0,0,0,3,255,63?,64@,64@,64@,224,224,252,255,255,0,0,0,0,0,64@,255,248 0,12 ,62>,126~,255,255,255,255,0,0,96`,242,251,255,255,255,0,0,24,24,124|,252,254,255 255,255,255,124|,124|,568,0,0,255,255,255,252,568,16,0,0,254,252,252,124|,24,0,0,0 0,1,15,31,63?,127,255,255,0,195,239,255,255,255,255,255,0,128,240,248,252,254,255,255 # MENU #  ,(5,7;"* B I S M A R C K *" 610 ,4;"Q/ NORTE","X/ INMERSION";12 ,4;"A/ SUR","S/ ASCENSION";14,4;"P/ ESTE","L/ PERIS. DCHA.";16,4;"O/ OESTE","K/ PERIS. IZQ.";18,4;"SP/ FUEGO","M/ PAUSA" @a24,16:225,0:0,128:-225,0:0,-128 T0:1:1: ^# LA PANTALLA # cv1::9 ,0;"    " ex#0,1;"UN MOMENTO":14,8;"":I=1128:50000P:I:"" h1:1:8,8;1;5;" ";9 ,8;5;7;" ";10 ,8;7;5;" ":i=03:11 +i,8;5;0;" ":I m=7;15,0;" " rXi=06:j=272:8+i,j;0;0;" ":j:i |ai=06:j=162:8+i,24+j;0;0;" ":j:i r4:16,175:112p,0:0,-568:-112p,0:0,568:7 f4;6,2;" Skaguerrak";5,2;" " a136,160:100d,0:0,-24:-100d,0:0,24 U2;1;7;0,17;"POSICION:";6,17;"PERIS:" =I=13:64@*I,524:0,-8:I I15,0:0,47/:33!,0:0,-47/ sI=52-1:21-I,2;I;0;"____":I:21,2;0;0;"____" 0:17,7;2;"PROF.":74J,0:24,0:0,24:-24,0:0,-24:86V,12 ,12 :1 u17,16;"":I=13:17+I,16;"":I:21,16;"" I2;7;17,19;"FUEL:";20,19;"TORP:" ֶ220,20:10 ,0:220,20:0,10 :220,20:-10 ,0:220,20:0,-10 :220,20,8 ]17,27;"N";21,27;"S";19,29;"E";19,25;"W"  # EL PROGRAMA # 16,0;"{}" !60000`:.1}L,40( XB=0:PB=0:TC=0:O=0:AT=0:MB=3:RBY=1:RBX=1:M$="":PF=00:B=1:TP=10 :CB=2000:P1=128:MGI1=1:P=128:R$="":X=502:Y=25:BX=10 :BY=24:3500 :3600 !4;X+16,Y+120x A$= )A$="P"A$="O"A$="Q"A$="A"3000 A$="L"2000 A$="K"2030 A$=" "PF=01000 &A$="S"A$="X"4000 +A$="M"6000p 03500 :5000 :(AT>0AT=AT-1::590N D 520 NAB=(*5+PF)+1 XRAB=3C$="El Bismarck contraataco y no te sumergiste a tiempo":9000(# b 580D  # TORPEDO # 63000 :0;3,18;" " 5#1;1;" MARCA EL RUMBO DEL TORPEDO " ;A$=:A$="Q"A$="P"A$="A"A$="O"3000 :1028  1025 "" H1;7;2;#1;" ENTER: DTrack-Info  R ISPARO * B: ABANDONAR "  |0:120x,58::-10 ,0:136,58::10 ,0:128,66B:0,10  7 :I=04:1;17+I,16;" ":I *60001a,6:60005e,4 .jPB=15O=1:0;3,18;1;2;7;" FUEGO !!!":60000` Gr0;2;7;3,18;"V= ";(Y-BY);" ";3,24;2;7;"H= ";(X-BX) L#=13 O=11120` V6=13 O=0TP=TP-1:60001a,1:"":8:8:60005e,32 :120x,58::-10 ,0:136,58::10 ,0:128,66B:0,10 :i=04:0;17+I,16;" ":I:7:1:60000`: W="B""":8:8:120x,58::-10 ,0:136,58::10 ,0:128,66B:0,10 :i=04:0;17+I,16;" ":I:7:1: [5000:1070. ` O=0 e"" t960001a,1:60005e,32 :60000` y30;1;3,18;"!!TOCADO!! " ~,I=1502:.001wn,60<:I kX$(4,3):X$(1)="":X$(2)="":X$(3)="":X$(4)="" 'K=110 :I=14 J=12 &2;5;14,PB;X$(I) .04|# =,502 /J:I:K:5;0;14,PB;" " BTP=TP-1:AT=8:TC=TC+1:TC=59500% 9TP=0TC5C$="NO HAY TORPEDOS":9000(# |0:120x,58::-10 ,0:136,58::10 ,0:128,66B:0,10  7 :I=04:0;17+I,16;" ":I  # PERISCOPIO # `A$=:A$="L"0;6,24;P:P=P+1:P25650000P:2010 :P>256P=0:0;6,24;"0 " bP/8ɺ(P/8)50000P:P=P+1:0;6,24;P;" ":2025 cA$=:A$="K"P=P-1:0;6,24;P;" ":P055000:2030 P<0P=256 bP/8ɺ(P/8)55000:P=P-1:0;6,24;P;" ":2040  # RUMBO # XB8000@ J=12 DR$="Q"Y=Y+1:1;17,27;"":P1=128 BR$="A"Y=Y-1:1;21,27;"":P1=0 CR$="P"X=X+1:1;19,29;"":P1=64@ DR$="O"X=X-1:1;19,25;"":P1=192 R$=A$:J :P=256P=0:0;6,24;"0 " P1=P3080 >50000P:P=P+1:0;6,24;P;" "  3072 7Y<40(MGI=2:M$="SKAGUERRAK ":7000X %Y<24MGI=3:7000X 5Y<16C$="Colision en Skaguerrak":9000(# &%Y>40(MGI=1:7000X 03500 :8000@ 5CB=CB-10 N # DISPLAY # 10:1;7;3,18;M$ 18,19;CB;" " 20,10 ;PF 21,19;TP;" " 6,24;P;" " 1:  * MAPA * X112pY=112p $X1X=1 )Y557Y=557 8*1;4;16+X,120x+Y B,1;4;BX+16,BY+120x L,1;4;BX+16,BY+119w V # INMERSION # &16+(PF/10 ),0;"{}" #A$="S"PF>0PF=PF-10 A$="X"PF=PF+10 4PF>502C$="Excesiva profundidad":9000(# [PF>0I=06:0;0;8+I,8;" ":I  PF=01:8,8;1;5;" ";9 ,8;5;7;" ";10 ,8;7;5;" ":i=03:11 +i,8;5;0;" ":I &16+(PF/10 ),0;"{}"   # ENEMIGO # 3600:XB8000@ BX=RBX+BX:BY=RBY+BY #BX=112pBX=0RBX=-RBX #BY=557BY=17RBY=-RBY  8000@  3600  p # PAUSA # zI=12000 I ]0:8:8 b MGI1=MGI lMGI=1R$="A"14,8;"Track-Info  R ";13 ,8;" ";12 ,8;" " vMGI=1R$="Q"14,24;"";14,0;"";13 ,24;" ";12 ,24;" ";13 ,0;" ";12 ,0;" " MGI=2R$="Q"13 ,24;" ";13 ,0;" ";14,24;"";14,0;"";12 ,0;" ";12 ,24;" " MGI=2R$="A"13 ,8;"  ";14,8;"";12 ,8;" " MGI=3R$="A"12 ,8;" ";13 ,8;"  ";14,8;"" MGI=3R$="Q"12 ,24;" ";12 ,0;" ";13 ,24;" ";13 ,0;" ";14,24;"";14,0;"" '1:1:7:MGI1=MGI: @# el Bismarck # ANB$(3,3):B$(1)="":B$(2)=" ":B$(3)=" " E>X=BXY=BYPF=0C$="Colision con Bismarck":9000(# J9(BX-X)8ƽ(BY-Y)8MB=1:8050r T;(BX-X)16ƽ(BY-Y)16MB=2:8050r ^;(BX-X)<24ƽ(BY-Y)<24MB=3:8050r h rQBXXBY>YPB=P/8-((X-BX)/3):PB>29PB<08200 : |FBX>XBYYPB=P/8+((BX-X)/3):PB>298200 : \BXXBY29PB<08200 : \BX298200 : /XB=XB:8;8;14,PB;B$(MB)  PB=32 PB=0: PB>32 PB=PB-32 PB<0PB=31+PB 8:8 wPB=31XB=XB:14,PB;B$(MB)(1);14,0;B$(MB)(2);14,1;B$(MB)(3) xPB=30XB=XB:14,PB;B$(MB)(1);14,31;B$(MB)(2);14,0;B$(MB)(3) &1:7: #( # DERROTA # #2u50002R,64@:50020d,88X:I=120:50000P:(*7):.01z# =,*502:I #8 0 #Z #d12 ,3;C$ #n 10000' %# VICTORIA # %! 9535?% %&I=19 %0D,T %:D,T:I %?.3,7,.3,7,.33(,12 ,.25~,7,.32# =,10 ,.25~,9 ,.27 =p,7,.27 =p,5,.5,7 %D"Otra vez? (S/N) ";v$ %N V$="S" PLUS3DOSppOr7:7:0::1;10 ,10 ;" PARE LA CINTA ":I=164@:.02{# =,I:I: 1:1:7: N255,0:0,175:-255,0:0,-175 (3,6;"TITULO DEL CARTUCHO" (>X:A=87+X:A$:A,11 ;A-7;". ";A$:A 28#1;1;" PULSA EL NUMERO DEL PROGRAMA " <&K$=:K$<491ůK$>X60< F?6,"Titulo","Titulo","Titulo","titulo","titulo","titulo" P:x:A=1̰K$:A$:A Z"a$(1)>96`110n d*"m";1;a$ n*"m";1;a$ Track-Info  R PLUS3DOS k k Nfix=3:dim=100d:fin=1:z(20):x(dim):y(dim):f(dim) f(x=(xx)=(x*10 ^fix+.5)/10 ^fix:x(x=(x-x)=(x-xm)*136/dmax+71G:y(y=(y-y)=(y-ym)*136/dmax+103g ,me=4:me:0:me::ink=0 U1;10 ,10 ;" PARE LA CINTA ":I=164@:.02{# =,I:I: 3000 ch" MENU"," ","1 DIBUJAR","2 BORRAR","3 y ESTIMADA","4 x ESTIMADA","5 MENU GENERAL","","PULSA SU TECLA" dR99c:w=19 :t$:12 +w,18;t$:.04|# =,5*w:w nvcode=:(code>480)*(code<546)=1menu1=code-480:.5,20:110n+10 *menu1 o 110n x)2000:1,10 :110n )2499 :1,10 :110n e"valor de x=";x:1,10 :10 ,20;"x=";x;11 ,20;"y=";y$:110n 4000 e"valor de y=";y:1,10 :10 ,20;"y=";y;11 ,20;"x=";x$:110n 3000 y$="a1+b1*x" x$="(y-a1)/b1" 2,20;"y=a+b*x" c4,19;"a=";a1;5,19;"b=";b1;7,19;1;"r=";r1:100d y$="a2*(b2*x)-c2" x$="((y+c2)/a2)/b2" #2,19;"y=a*E^(b*x)-c"  }4,19;"a=";a2;5,19;"b=";b2;6,19;"c=";c2;8,19;1;"r=";r2:100d ,y$="a3+b3*(x+d3)" 1x$="((y-a3)/b3)-d3" 6#2,19;"y=a+b*LN(x+c)" @}4,19;"a=";a3;5,19;"b=";b3;6,19;"c=";d3;8,19;1;"r=";r3:100d ^y$="a4*(x+d4)^b4-c4" c?x$="((y+c4)/a4)^(1/b4)-d4":2,19;"y=a*(x+d)^b-c" m4,19;"a=";a4;5,19;"b=";b4;6,19;"c=";c4;7,19;"d=";d4;9 ,19;"r=";r4 r 100d y$="k2*x*x+k1*x+k0" *x$="(-k1+sg1*(k1*k1-4*k2*(k0-y)))/2/k2" |2,19;"y=a*x^2+b*x+c";4,19;"a=";k2;5,19;"b=";k1;6,19;"c=";k0:100d *y$="(-l1+sg2*(l1*l1-4*l2*(l0-x)))/2/l2" x$="l2*y*y+l1*y+l0" |2,19;"x=a*y^2+b*y+c";4,19;"a=";l2;5,19;"b=";l1;6,19;"c=";l0:100d ini=fin:550& X"x(";fin;")= ";x,1;"ENTER para salir"'0;"y(";fin;")*f(";fin;")= ";m$ m$=01000 ck=1̱m$:m$(k)="*"y=m$(1k-1):f=m$(k+1̱m$):539-(fin=1) .k:y=m$:f=1:539-(fin=1) Lini=fin:f=1:inic=fin:"f(x)=";s$'"intervalo: x1=";xx1;" x2=";xx2 fin>iniC+201000 9x=xx1+(fin-iniC)*(xx2-xx1)/20:y=s$:f=1 539-(fin=1)  minx=x:miny=y:maxx=x:maxy=y Dx(fin)=x:minx=minx+(x-minx)*(xmaxx) Ny(fin)=y:miny=miny+(y-miny)*(ymaxy):f(fin)=f P1;lin,18;fin;lin,20;x;lin,25;f(y);lin,30;f !Sfin=fin+1:lin=lin+1:lin<21501+32 *(menu=8) "2999 :pas=1 &lin=1:159,0:0,167:199,0:0,167:239,0:0,167:1;0,22;"x y f":502+(29+(pas=1))*(menu=8) W150+502*mejor X=sa=ta/na:ba=(va-sa*ua)/(wa-sa*ta):aa=(ua-ba*ta)/na:ca=aa l"620l+10 *pa:670 v  660   aa=ca: ,qa=ua*ua/na:ra=(ca*ua+ba*va-qa)/(za-qa):  u850R:l=14:pa=l:ka:ta=z(ka):ka:ua=z(ka):ka:va=z(ka):ka:wa=z(ka):ka:za=z(ka):600X *]i$="a"+l:b$=aa:9999':i$="b"+l:b$=ba:9999':i$="r"+l:b$=ra:9999' 4Yl:mejor=1:l=24:mejor=mejor+(l-mejor)*(("r"+l)>("r"+mejor)):l R1,5,9 ,2,6,1,7,10 ,2,8,3,5,11 ,4,6,3,7,12 ,4,8 xxx=z(2)-z(1)*z(1)/z(19):xxy=z(9 )-z(1)*z(5)/z(19):xxx2=z(13 )-z(1)*z(2)/z(19):xx2y=z(15)-z(2)*z(5)/z(19):xx2x2=z(14)-z(2)*z(2)/z(19) ;den=xxx*xx2x2-xxx2*xxx2:den=den+1e-4sQX*(den=0) sk2=(xx2y*xxx-xxy*xxx2)/den:k1=(xxy*xx2x2-Track-Info  R xx2y*xxx2)/den:k0=(z(5)-k1*z(1)-k2*z(2))/z(19) yy=z(6)-z(5)*z(5)/z(19):yx=xxy:yy2=z(16)-z(5)*z(6)/z(19):y2x=z(18)-z(6)*z(1)/z(19):y2y2=z(17)-z(6)*z(6)/z(19) deny=yy*y2y2-yy2*yy2:deny=deny+1e-4sQX*(deny=0):l2=(y2x*yy-yx*yy2)/deny:l1=(yx*y2y2-y2x*yy2)/deny:l0=(z(1)-l1*z(5)-l2*z(6))/z(19) Jsg1=(x(fin-2)+k1/2/k2):sg2=(y(fin-2)+l1/l2/2)  rdmax=(maxx-minx):dmi=maxy-miny:dmax=dmax+(dmi-dmax)*(dmi>dmax):xm=(maxx+minx)/2:ym=(maxy+miny)/2 z(20):mix=(minx-1)*(minx0):miy=(miny-1)*(miny0):k=1fin-1:f=f(k):x=x(k):y=y(k):xa=(x-mix):ya=(y-miy)  c2=-miy:c4=c2:d3=-mix:d4=d3 *41000(+k,x(x):42000+k,y(y) sz(1)=z(1)+f*x:z(2)=z(2)+f*x*x:z(3)=z(3)+f*xa:z(4)=z(4)+f*xa*xa sz(5)=z(5)+f*y:z(6)=z(6)+f*y*y:z(7)=z(7)+f*ya:z(8)=z(8)+f*ya*ya z(9 )=z(9 )+f*x*y:z(10 )=z(10 )+f*x*ya:z(11 )=z(11 )+f*y*xa::z(12 )=z(12 )+f*xa*ya z(13 )=f*x*x*x+z(13 ):z(14)=z(14)+f*x*x*x*x:z(15)=z(15)+f*y*x*x:z(16)=z(16)+f*y*y*y:z(18)=z(18)+f*x*y*y:z(17)=z(17)+f*y*y*y*y z(19)=z(19)+f Ak:na=z(19):2499 :800 :900:3000 Њq=117:x=minx+q/18*(maxx-minx):40000@+q,x(x):405004+q,y(y$)+(175-y(y$))*(17547/)*(cod<58:)=1menu=cod-480:2999 :.5,502:.6,0:149+502*menu 3010 " MENU GENERAL","","0 MEDIAS,DES-"," VIACIONES,..","1y=a+b*x","2y=a*E^(b*x)-c","3y=a+b*LN(x+c)","4y=a*(x+d)^b-c","5y=a*x^2+b*x+c","6x=a*y^2+b*y+c","7 INPUT datos","8 INPUT f(x)","9 MAYOR r","","PULSA SU TECLA" "Mx",z(1)/z(19),"My",z(5)/z(19),"Sx",((z(2)-z(1)*z(1)/z(19))/z(19)),"Sy",((z(6)-z(5)*z(5)/z(19))/z(19)) N"sx",((z(2)-z(1)*z(1)/z(19))/(z(19)-1)) N"sy",((z(6)-z(5)*z(5)/z(19))/(z(19)-1)) "n",z(19),"x",z(1),"x^2",z(2),"x^3",z(13 ),"x^4",z(14),"y",z(5),"y^2",z(6),"y^3",z(16),"y^4",z(17),"x*y",z(9 ),"x^2*y",z(15),"x*y^2",z(18) 3990:w=017:t$:t:1+w,18;t$;"=";f(t):w:21,19;1;"pulsa ENTER":1,20 %4010-1010*(=13 ) 'args=23627K\+256*23628L\:i=1(i$+(15-i$)*(i$>15)):(args-25+i),(i$(i)):i:j=18:(args-25+i+j-1),"=b$::"(j):j:r4=b$::klmno=b$:: Track-Info  R PLUS3DOS r7:7:0::1;10 ,10 ;" PARE LA CINTA ":I=164@:.02{# =,I:I: 3:5:0: 2 9000(# c***frente = q a  d q$=" " f a$="__" i***izquie = w s  j w$=" " l s$=" " m u$=" " n***derech = e d  p e$=" " r d$=" " s y$=" " t***arriba = r f v u r$=" | " v f$=" " x v$="__" y*** abajo = t g b z t$=" " | g$=" " } b$=" | "   $z$=" . ":x$=" ":c$=" __ " a0,175:255,0:0,-119w:-255,0:0,119w a2,173:251,0:0,-115s:-251,0:0,115s Pn=1521:n,0;3;" ":n z20,5:0,40(,-3:215,0,-.2~L:0,-40(,-3:-215,0 z20,3:0,40(,-3:215,0,-.2~L:0,-40(,-3:-215,0 ]30,25:35#,0:0,-19:-35#,0:0,19 ]94^,25:42*,0:0,-19:-42*,0:0,19 ^158,25:35#,0:0,-19:-35#,0:0,19 ú119w,40(:491,0:0,-9 :-491,0:0,9 :207,25:35#,0:0,-11 :-35#,0:0,11 Ȃcanti=0:imter=0:meda=15:color=0:puntos=0:km=200:nu=5:ve=5:fuel=299+ ,17,15;" ";20,4;" ";20,12 ;" ";20,20;" ";19,26;" " 3,3;0;" ";4,3;" ";5,3;" ";6,3;" ";7,3;" ";8,3;" " 9 ,3;0;"__ >>>>> ~FIRE FOX~";10 ,3;z$;" ..... 300";11 ,3;x$;" ..... 150 aprox.";12 ,3;c$;" ..... 75" &cn=113 :n,1;1;2;" ":.01z# =,n:n 0ln=13 1-1:n,1;1;5;" ":.01z# =,n:n D\13 ,13 ;1;"PULSE":"".9ffff,10 :.5,20:700 X1.9ffff,-10 :.5,0:550& Mn=113 :n,1;5;" ":n o$=q$:k$=a$:m$="" Knume=0:ene=10 -(*9 ):mi=25-(*24):n$=z$ pnu,ve;5;7;" ";nu+1,ve;" ";nu+2,ve;" ";nu+3,ve;" " L ene,mi;n$ )5,15;1;1;" " 117,24;imter;0;3;"" x&nume=nume+1:fuel=fuel-1 nume=3n$=x$ nume=7n$=c$ +nume=13 ene,mi;" ":910 10 ,13 ;o$ 11 ,13 ;k$ 12 ,13 ;m$ o$=q$:k$=a$:m$=" " fuel03000 519,4;"FUEL";20,4;fuel;" " 719,12 ;" ALT.";20,12 ;km;" " "519,20;"SCOR";20,20;puntos ,19,26;"-";canti @c="q"Ŧ="7"km=km+20:o$=r$:k$=f$:m$=v$:nu=nu+.1}L:ene,mi;" ":ene=ene+1 E="a"Ŧ="6"km=km-20:o$=t$:k$=g$:m$=b$:nu=nu-.1}L:ene,mi;" ":ene=ene-1:104h,95_:38&,0 JB="o"Ŧ="5"o$=w$:k$=s$:m$=u$:ve=ve+.15~:mi=mi+1 OB="p"Ŧ="8"o$=e$:k$=d$:m$=y$:ve=ve-.15~:mi=mi-1 T="m"Ŧ="0"fuel=fuel-5:121y,90Z:2,40(:126~,90Z:-2,40(:n=10 5-1:255,10 :.01z# =,-10 :n,15;5;" ":200,100d:n:3:ene=5mi=13 2010 >nu10 n=nunu+3:n,ve;" ":n:nu=2 =nu1n=nunu+3:n,ve;" ":n:nu=9 >ve1n=nunu+3:n,ve;" ":n:ve=22 >ve23n=nunu+3:n,ve;" ":n:ve=2 Track-Info  R Lene13 ene1mi1mi25ene,mi;" ":900 (ene=5mi=13 imter=1 (ene5mi13 imter=0 'km20km10003000  1000 DI S P A RO n$=z$xz=300, n$=x$xz=150 n$=c$xz=75K Sn=puntospuntos+xz5:20,20;n:.01z# =,30:n:puntos=n  5,14;" "  {17,5;0;3;"HONOR : ";17,meda;color;7;"":meda=meda+1:color=color+1 *color=6.5,0:puntos=puntos+300,:meda=15:17,15;" ":color=0:fuel=fuel+502:canti=canti+1 4 910  THE END  /11 ,13 ;"\";12 ,13 p12 ,1;2;" ";13 ,1;"" n=0502:.001wn,*30:155-(*60<),95_-(*25):0,9 ;٥*6;1;" T H E E N D ":n:0 45,4;"PUNTOS:";6,4;puntos X2,11 ;1;0;1;"O T R A ? ":0:.2~L,-30 ="s".1}L,1: ="n"  3060  #'10 ,1: #(G.DEFINIDOS #2g="a""u"+7 #7dato #<g,dato #Ag #I0,0,24,60<,36$,60<,255,255 #G0,0,0,0,0,225,163,255 #G0,0,0,0,0,135,197,255 #P524,118v,126~,102f,219,219,231,153 #Q157,252,203,183,119w,110n,158,111o #M128,192,96`,112p,120x,60<,62>,25 #B15,7,3,1,0,0,0,0 #I240,224,192,128,0,0,0,0 #L128,192,32 ,32 ,240,120x,28,6 #H1,3,4,12 ,31,62>,120x,192 #G1,2,6,14,28,60<,88X,152 #E0,0,0,24,24,255,0,0 #K568,16,16,568,568,124|,124|,568 #L126~,60<,24,60<,36$,102f,126~,60< #K20,44,,94^,131,151,110n,60<,0 #F0,0,0,0,1,79O,255,191 #I0,0,0,0,128,242,255,253 #N24,24,36$,102f,255,231,219,165 #L36$,36$,60<,126~,126~,189,24,24 #K125},255,250,224,128,0,0,0 #F190,255,95_,7,1,0,0,0 & '&"FIRE FOX"1:6,30 PLUS3DOS[[L431999|:10 ,8;"NO PARES LA CINTA"  "BE.0" r7:7:0::1;10 ,10 ;" PARE LA CINTA ":I=164@:.02{# =,I:I: m$(19,2):n(19,2):k(19,2):c$(19,2):x=1:p$="OR TP D.COM D.FIN N.BY A TM C TC":12 :20 n=119:m$(n)=" ":c$(n)=" ":n(n,1)=0:n(n,2)=0:k(n,1)=0:k(n,2)=0:n x=1:d=32000}: 0,0;p$ n=1x-1:n,0;n;3;m$(n);6;n(n,1);12 ;n(n,2);18;n(n,2)-n(n,1);23;c$(n,1);25;k(n,1);28;c$(n,2);30;k(n,2):n  7:0::2,9 ;"MENU PRINCIPAL"'''"1- Crear pantallas de rotulos"''"2- Introducir texto"Track-Info  R ''"3- Preparar salida por pantalla"''"4- Ejecucion de lo preparado"''"5- Limpiar memoria"''"6- Informacion de lo creado"''"7- Salir del programa" 0:a$=: (a$"1"400 210,0;"Cuantas pantallas quiere ";pt <n=1pt FE0,0;"Color del PAPER ";p;0,10 ;"BORDER ";b Pb:p: Z=0,0;"Lo quiere en 3-D ";a$:a$="s"250 d0,0;"Num. del scan(0 a 168) ";ns:0,0;"Altura del caracter ";al;0,0;"Anchura del caracter ";an;0,0;"Separacion entre caracteres ";sp n!0,0;"Rotulo: ";b$ x^0,0;"INK= ";i;" BRIGHT= ";b;" FLASH= ";f:at=i+p*8+b*64@+f*128 65280,al:65281,an:65282,sp:65283,((256-(sp*(b$-1)+an*8))/2):65284,ns:65285,at:65286,b$:65287,((sp*b$)/8+.9ffff) (z=1̱b$:65293 +z,b$(z):z 64195 >#1;0,0;"M=Menu R=Reponer S=Salvar C=Cont" 0:a$= a$="m"20 a$="r"70F a$="c"90Z a$"s"160 Ҋ#1;0,0;" ":n(x,1)=d:d:d=63830V:n(x,2)=d:m$(x)="RO":x=x+1 n:20 I0,0;"Num. del scan (0 a 130) ";ns:ns>130250 V0,0;"Rotulo en 3D (max. 7) ";b$:t=b$:t<1t>7260  -m=((256-t*32 )/2-4) p;21,0;b$ 0z=0t*8-1:y=07 "(z,y)z*4+m,y*4+138-ns:4,0:0,4:-4,0:0,-3:3,0:0,2:-2,0:0,-1:2,0:-2,-2:5,5:0,4:0,-4:4,0:0,4:0,-4:-5,-5:0,4:5,5:-4,0:-5,-5 ,y:z 121,0;" " 6 150 a$"2"500 ~n(x,1)=d:0,0;"BORDER= ";b;" PAPER= ";p;" INK= ";i:d,b:d+1,p:d+2,i:d=d+3:b:p:i: \0,0;"Margen izquierdo ";mi;0,7;" derecho ";md:md=31-md 23692\,255:21,0;" ":li=mi:#1;0,0;"DEL=Borra caracter EDIT=Finaliza" 2z=0mi-1:d,32 :d=d+1:z !21,li;"":0:a$= Ma$=12 li>mid=d-1:21,li;" ":li=li-1:430 ‚a$=7d,13 :d+1,13 :d+2,255:d=d+3:n(x,2)=d:m$(x)="TE":x=x+1:20 Fa$=13 d,13 :d=d+1:21,li;" "::420 a21,li;a$:d,a$:d=d+1:li=li+1:li>md:d,13 :d=d+1:420  430 a$"3"650  15 621,0;"V=Ver. H=Hor. C=Cir. O=Lh. E=Lv." &z0,0;"Numero de orden= ";k:kx21,0;"PARA VOLVER AL MENU PULSE ENTER ":0:20 +1m$(k)="TE"d$="t":c$(k,1)=d$:590N 0\0,0;"Codigo de abertura= ";d$:d$"v"d$"h"d$"c"d$"o"d$"e"5600 :Xc$(k,1)=d$:0,0;"Tiempo de presentacion= ";t:t>99c570: Dqk(k,1)=t:0,0;"Codigo de cierre= ";d$:d$"v"d$"h"d$"c"d$"o"d$"e"d$"d"580D NRc$(k,2)=d$:0,0;"Tiempo de cierre= ";t:t>99c590N X|k(k,2)=t:k,23;c$(k,1);25;k(k,1);28;c$(k,2);30;k(k,2):550& a$"4"750 0:0:0: n=1x-1 c$(n,1)=" "730 .z=n(n,1):c$(n,1)"t"680 /z:ھ(z+1):پ(z+2)::z=z+3 z:z=64027:719 z:z=63970 ,c$(n,1)="v"63599o:700 ,c$(n,1)="h"63442:700 ,c$(n,1)="c"63754 :700 ,c$(n,1)="o"63626:700 63487 k(n,1)*502 ,c$(n,2)="v"635382:720 ,c$(n,2)="h"63392:720 ,c$(n,2)="c"63704:720 ,c$(n,2)="o"63552@:720 ,c$(n,2)="e"63416:720 1z=1176:64121y:z:0: Track-Info  R k(n,2)*502  n:20 a$="5"12 :20 a$"6"800   15 M21,0;"PARA VOLVER AL MENU PULSE ENTER ":0:20  a$"7"20 * PLUS3DOST!XZ  w# !XZw## !``Y!__Y>   = !!X!Z~w~####++ ! "m X !@"m @X!W#wKm  ! "m!!!XX!@"m!@!!@XW ++#~w~Km  !W  #wAw +wARw  !jjY ~#A~ BB ~+yA~   [v\!@Su>Wx!X>ZxKu"s8~# 2wx y0 x( *uz(BK[sp#q#x( xw#q#:ww#"u0*u6#"u*v\@#~G#N# 888~#bkw>(= *v\f~# ![yW  o&)))K6\ ~#{ _![[6Z! @@>͸! = ͸>$k= !!!FZ~#o&)))K6\ ~#:_6Z*:2 KC xͱ"( = 6 F5 ͖5 (,:O: 2 K 0 ܖ// ܖ5(:O:2xͱ"|XgKF: w, OFyw($| } o(|g#PLUS3DOSw%$$Kr7:7:0::1;10 ,10 ;" PARE LA CINTA ":I=164@:.02{# =,I:I: i1fml=0:i=023:a:"j"+i,a:i s0,0,16,16,124|,16,124|,0,0,0,102f,153,153,153,102f,0,0,0,8,4,126~,4,8,0 <fml=1jae=1j$=d(1,1,1): fml=1 da$=13 5000 flm=1 s:2:0,121y:0,-35#:255,0:0,35#:-255,0:1 l5,2;"Opcion:";8,0;"11)REPRESENTACION DE POLINOMIOS Y COCIENTES DE POLINOMIOS" >17,1;"(Si quieres la opcion pulsa s)" :0 "s"Ʀ"S"190 fml=25600 *g(21,3,2):flm=1 @" Polinomio o cociente? (p/c) ";a$:a$"p"a$"c"5040 coc=a$="c":coc44000 %cocpol=1s$=p$:5120 cocs$=q$:5120 s$="("+p$+")/("+q$+")"  |5::#0;"-La funcion es:"'" f(";d$;")=";s$''"-Ahora voy a calcular las deri- vadas (te aviso cuando termine)"  2#0;7,11 ;1;"CALCULANDO" coc5200P (X4000:i=121:j=13:g(i,j,1)=d(i,j,1):j:i 2qcol=7:der=1:4240:1200:t$=b$:der=2:4240:1200:u$=b$:5500| P'flm=1:ope=5:nd5=1 Uki=121:j=12:d(i,1,j)=p(i,j+2):g(i,1,j)=d(i,1,j):j:i ZG4700\:der=2:gru=5:4100:col1=7:o$="" d@i=21gra3-1:p(i,7)<1e-4sQX5240x ni x$col2=3+(igra3):4260  zcol=3+(i0i=2z1+1:"Introduce un cero: ";a(i):i c"Cuantos ceros tiene f'? ";z2:z2>0i=1z2:"Introduce un cero: ";b(i+z1+1):i g"Cuantos ceros tiene f''? ";z3:z3>0i=1z3:"Introduce un cero: ";c(i+1+z1+z2):i coc"Cuantos ceros tiene el denomi- nador de f? ";z4:z4>0i=1z4:"Introduce un cero: ";e(i+1+z1+z2+z3):i wder=0:gru=1:i=1coc+1:j=13:k=121:d(k,1,1)=g(k,j,i) Fk:4100:jae=gra3+(gra3=0):3279 :9999':j:i  4:6650:4480::6500d:4480 ?der=0:gru=1 D8#0;"Vamos a hacer un cuadro..(pulsa)":0: XF"Intervalo valor valor valor"'"o punto: de f de f' de f''" b0,156:255,0:92\,0:0,175:148,0:0,175:204,0:0,175 l(zz=z1+z2+z3+z4:zz=05800 vBf(zz):i=2zz+1:f(i-1)=a(i)+b(i)+c(i)+e(i):i dk=1zz-1:i=1zz-k:f(i)>f(i+1)j=f(i):f(i)=f(i+1):f(i+1)=j i:k ri=1zz-1:f(i)=f(i+1)j=i+1zz-1:f(j)=f(j+1):j:zz=zz-1:5773 i cocl$="1":m$=l$:n$=l$ N3,0;"-";154;5;155;:emi=f(1)-1 /a()=((f$/l$)*100d+.5)/100d /b()=((g$/m$)*100d+.5)/100d /c()=((h$/n$)*100d+.5)/100d пi=1zz:x=(f(i)+emi*)/(1+):f(i);14;(43++2*(a()<0));21;(43++2*(b()<0));28;(43++2*(c()<0)):x=f(i) E2;x;12 ;:6950&:x;5;155;:emi=f(i) i:"+";154; x=f(zz)+1:14;(43++2*(a()<0));21;(43++2*(b()<0));28;(43++2*(c()<0)) 1#0;"Comprueba este cuadro...":4480 ox(x)=((256*x)/(3*max)+128)*(2*x<3*max)+255*(2*x3*max)  ~y(x )=((256*z(x))/(3*max)+88X)*(32 *z(x)<33!*max)+175*(32 *z(x)33!*max) max=4:i=1zz  f(i)>maxmax=f(i) %ei:i=1z2:z(b(i+1+z1))>max*5/6max=z(b(i+1+z1))*6/5 *i:aa>maxmax=aa 4"bbɧ(cc/bb)>maxmax=(cc/bb) >D:"Vamos a dibujar maximos, minimosceros y asintotas":100d: HW6800:z1i=1z1:بx(a(i+1)),88X,2:.1}L,15:i RXz2i=1z2:بx(b(i+z1+1)),y(b(i+1+z1)),1:.1}L,9 :i \Abbɧ6900:x1Track-Info  R ,y1:2;x2-x1,y2-y1:.2~L,0 f_aaɧ0,256*aa/3/max+88X:2;255,0:.2~L,0 k`z4i=1z4:x(e(i+1+zz-z4)),0:2;0,175:.2~L,0 pE4480:#0;1,0;"Ahora dibujamos la funcion:" z#6750^:4480:200 d?:"ASINTOTAS";3,2;"-Horizontales: ";:i=21 nG(g(i,1,1)g(i,1,2))i=i-1:6510n xng(i,1,1)*g(i,1,2)aa=g(i,1,1)/g(i,1,2):"y=";aa:6540 "NO HAY":aa= !6,2;"-Oblicuas: "; _g(i,1,1)0aa=i>1g(i-1,1,2)06570 bb=:"NO HAY":6590 bb=g(i,1,1)/g(i-1,1,2):cc=0:dd=g(i-1,1,1)/g(i-1,1,2):i>2cc=dd-bb*g(i-2,1,2) 4bb;d$;:cc(43++2*(cc<0));:cc E9 ,2;"-Verticales: ";:z4=0"NO HAY":6610 :i=1z4:d$;"=";e(i+1+z1+z2+z3)'15;:i  *:"PARIDAD E IMPARIDAD:"'':cocl$="1" #x=:y1=f$/l$:x=-:y2=f$/l$ I(y1-y2)<1e-6m7"f(";d$;")=f(-";d$;"), luego f es par":67106 "L(y1+y2)<1e-6m7"f(";d$;")=-f(-";d$;"), luego f es impar":67106 ,$"La funcion no es ni par ni impar" 6X'9 ;"(compruebalo)"'':x=0:"Corte con el eje vertical:"'9 ;"f(0)="; @l$=0154: J f$/l$: hCa$="("+f$+")/("+l$+")/x":i=0255:.01z# =,20 rqx=(i-128)*max/85.3*:x0ưl$0y=(i-128)*a$+88X:y0y175i,y |i: /z(x )=f$/(l$+(l$=0)*1e-3wn) K0,87W:255,0:127,0:0,175 ue=10 ^((max/7.3333jd)):n=(-3*max/2/ue+1)3*max/2/ue:x(n*ue),90Z:0,-4:n ?20,21;"UNIDAD";21,21;"ESCALA ";ue: \6900:h(5,2):i=14:j=12:a$:h(i,j)=a$:j:i ;"3*max/2","bb*3*max/2+cc","(33*max/32-cc)/bb","33*max/32" ?"-3*max/2","-bb*3*max/2+cc","(-33*max/32-cc)/bb","-33*max/32" 4560:k=13:i=14-k:h(i,1)>h(i+1,1)j=12:h(5,j)=h(i,j):h(i,j)=h(i+1,j):h(i+1,j)=h(5,j):j ti:k:x1=x(h(2,1)):y1=y(h(2,2)):x2=x(h(3,1)):y2=y(h(3,2)): &&l$=0154;:69655 0a(); 5 19; :&m$=0154;:6985I Db(); I 26; Nn$=0154: Sc(): 'Tvar=23627K\+256*23628L\:var-8,95_+6*i+j:n$=j$: 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'''''''''