MV - CPCEMU Disk-File Disk-Info ZX-Modules(Track-Info  R ( *RTrack-Info  R DISK MICRO 7 19  AA m AB 1 AC h!"#$%&'()*+,-AD B./0123456AE 7AF 8AF 0 9AF 1 7:;<=>?@AG ABA BCDEFGHIJKLMNOPQBA 7RSTUVWXBB YZ[BC 0\]^_`aBD RbcdefghijklBE mnoBE 1 pqBE 2 rBE 3 sTIPO1 tTIPO2 uBF &vwxyzPLUS3DOS@ @DISKEADO POR MADFOX "MICRO"  300, "19" PLUS3DOS@UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUTrack-Info  R UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU@|#A |paqx:|x>0q8 ?*WTmTŒ' PIUU@x<#A paqx88@"?A -TOmQjTZJR6UI%@@' UJ ?@x<#ap8 0paq8 @>A /ȟ' !UU@??@8<>xp_9܅۪UUUUUUUUUU 0ꪪUUUUUUv0 `8UUUUUUUUժUUUUUUUUUUUUUU `8UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU `8UUUUUUUUժUUUUUUUUUUUUUU0 `UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU0UUUUUUUUժUUUUUUUUUUUUUU0UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU0 `UUUUUUUUUUUUUժUUUUUUUUU0 `UUUUUUUUUUUUUUUUUUUTrack-Info  R UUUUUUUUUUUUUUUUUUUUUUUUUUUUU88888888888888888888877777778888888888888888888888887777777788888888888888888887778888888888888888888888887777888888888888888888866666778888888888888888888888666666688888888888888888888888888666688888888888888888888888888888888888888888888888888888:8:88888888888888888=88r>=8888888888888888888:8>>>7ppp7::::::W:::::::::::Wp0p00VWWWW888888888888888888>p0007>>>88888888888888888888888>7>>888888888888888888888 888888888886888888888 88888888886668888888888888888888888888888866688888558888888888888888888866688665555888888888888888866688668855588888888887778866;;6666;;;55;;;8888888778888866;;6666555555;;88888887778888PLUS3DOS~~dCINTA 19 (REVISTAS 73 a 76) 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-Mark"  7,18;"B-Despejar" &8,3;"C-Glotoh" 0!8,18;"D-S.Element" : 9 ,3;"E-La Biblia" D9 ,18;"F-Chequeo" 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-Snake"  7,18;"B-Biblia 4"  8,3;"C-Bolarinto" $!8,18;"D-Derivadas" .9 ,3;"E-Grafic" 8 9 ,18;"F-Mapa 1-2" B 10 ,3;"G-Combinat" !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$="1"100d F 1000 --- CABECERA --- 51:0,4;"CINTAS MICRO N. 19" -2:0,16;"HOBBY":0 C3:1,6;"DISKEADO POR MADFOX":0:0 #3,8;"REVISTAS 73-76"  p--- PIE DE PANTALLA --- z?1:20,0;" J, siempre... ILM " ?21,0;" ELIGE UNA OPCION ":0  PLUS3DOSj655WK1:0::65199:pus=8:du=0:n$=" ":m$=" ":9920&:9950&:9980&:8000@:b$="":c$="":pis=0:i$="bbbbbbbbbbbbbbbbbbbb":r$="":s$="":t$=" ":c=4:d=1 w 9700%+pis:7500L::4;0,0;r$;s$;t$:7000X:9000(#:4000+pis:2010 )i$((pis/10 )+1)="b"6  7 3;1;m,n;""  520 (="o"0.001wn,45-:225 290" d=03040 +(c+1,d-1)8250 @2000:c$="":b$="":d=d-1:2010:280 ,(c+1,d-1)=14240 S(c,d-1)=13 0.4L,30:pus=pus-2:7510V:2 (c+2,d+1)=14ū(c-1,d+1)=146;c,d+1;"";c+1,d+1;"":430 6(="p"0.001wn,45-:325E @ 390 Ed=313020 J+(c+1,d+1)8350^ T@2000:b$="":c$="":d=d+1:2010:380| ^,(c+1,d+1)=14340T rS(c,d+1)=13 0.4L,35#:pus=pus-2:7510V:2 |(c+2,d-1)=14ū(cTrack-Info  R -1,d-1)=146;c,d-1;"";c+1,d-1;"":430 ="u"Ŧ="j"500 ="0"600X pas f=02:(c+2,d)=82000:0.01z# =,35#:c=c+1:2010:f:0.5,-23:pus=pus-2:7510V:2:  100d '="u"0.01z# =,25:5600 '="j"0.01z# =,30:540 Qpas:(c+2,d+1)=12 ū(c+2,d-1)=12 420  500 M(c+2,d)=14c=c+1:2010:6;c-1,d;"" !c=193010 & 520 0M(c-1,d)=14c=c-1:2010:6;c+2,d;"" 5c=13000 : 520 X3(c+2,d)=14ū(c-1,d)=14 ]b$=""700 ^ d3 bC635{:f=072:0.01z# =,c+20:x:y q(c+x+1,d+y)=12 r9pas:(c,d)15ū(c+1,d)15755 vL2000:c=c+x:d=d+y:(c,d)8ū(c+1,d)8740 w 2010 x%(c-1,d)=139800  yf: {G-1,-1,-1,-1,1,-1,1,-1 d28 C735:f=072:0.01z# =,c+20:x:y (c+x+1,d+y)=12 9pas:(c,d)15ū(c+1,d)15755 L2000:c=c+x:d=d+y:(c,d)8ū(c+1,d)8740  2010 %(c-1,d)=139800  f: C-1,1,-1,1,1,1,1,1 f(c,d)=12 ū(c+1,d)=12 ū(c+1,d)=14c=c-x:d=d-y:2010:760 F2010:0.4L,34":7510V:pus=pus-2:2 X(c+x,d+y)=12 ū(c+1+x,d+y)=12 ū(c+1+x,d+y)=14760 :7510V:pus=pus-2:0.4L,34":2 \f=01:0.01z# =,35#:c=c+1:(c+1,d)8c=c-1: 7c=c-1:2000:c=c+1:2010:f:  fc-1,d;" ":i$((pis/10 )+1)="a":du=du+1:7030v:du=207400 * 760 c,d;" ";c+1,d;" ": $7;c,d;b$;c+1,d;c$: 'pis=pis-502:c=18:2 &pis=pis+502:c=1:2 &pis=pis+10 :d=0:2 'pis=pis-10 :d=30:2 m=4:n=15: m=13 :n=5: m=4:n=25: m=6:n=9 : m=8:n=22: m=9 :n=14: m=11 :n=11 : m=12 :n=20: m=7:n=21: m=9 :n=9 : m=8:n=17: m=5:n=25: m=5:n=14: "m=12 :n=15: ,m=10 :n=28: 6m=12 :n=20: @m=13 :n=16: Jm=5:n=2: Tm=13 :n=22: ^m=4:n=11 : 2;1,3;"";1,10 ;"";1,17;"";1,24;"";2,3;"";2,10 ;"";2,17;"";2,24;"":po=3:kl=0 op=3:pas=pas+20 po=po+1 S(c-1,d)=10 pus=pus-2:0.3,34":7510V:2 ?(po,op)8ƫ(po,op)10 op=op+7:po=3 ?kl=1po,op;" ":op>24op=3:kl=0: Hkl=02;po,op;"":op>24op=3:kl=1:  Bkl=0:po=1:op=1:pas=pas+20:5120 8kl=0:po=16:op=25:pas=pas+10 Epo=cop=d0.5,34":pus=pus-2:7510V:2 po,op;" ";po+1,op;" "  Ekl=0op=op-1:op=0ū(po,op)=14kl=1 Fkl=1op=op+1:op=30ū(po,op)=14kl=0 (5;po,op;"";po+1,op;"" (Epo=cop=d0.5,34":pus=pus-2:7510V:2 2 P7 po=5:op=1:pas=pas+20:5220d Z,po=17:op=25:pas=pas+10 dMpo=c+1op=d0.5,34":pus=pus-2:7510V:2 f po,op;" " n(op=op-1:op=0op=29 s1(po,op)8ƫ(po,op)15op=29 3;po,op;"" Npo=c+1op=d0.50,34":pus=pus-2:7510V:2  6kl=0:po=8:Track-Info  R op=6:pas=pas+10 kl=05350 kl=15340 Xpo,op+3;" ";po+9 ,op+3;" ":op=op-1:op=4kl=0:  5380 Ipo,op;" ";po+9 ,op;" ":op=op+1:op=23kl=1:  5380 @4;po,op;"";po+9 ,op;"":pas=5390: pas=5320: 6po=5:op=4:pas=pas+20:5420, "*po=5:op=5:pas=pas+10 ,7po,op;" ":po=po+1:po=20po=3 6*4;po,op;"":pas=5440@: @pas=5420,: *po=3:op=4:pas=pas+10 [po,op;" ";po,op+5;" ";po,op+10 ;" ":po=po+1:po=19po=4 >5;po,op;"";po,op+5;"";po,op+10 ;"": Xpus=07300 le#0;1,0;"VIDAS";0,7;n$(1pus);1,7;m$(1pus) v,#0;1,15;"OBJETOS ";du: S4;19,0;r$;s$;t$;17,15;"";18,15;"" Kf=016:0.1}L,f+20:4;f,0;r$;s$;t$:f e4;3,7;"SE ACABARON TUS DIAS";10 ,1;"PULSA - Q - TECLA PARA EMPEZAR" ="q"1 ""  7340 :9910&:9000(# z9990':6;14,15;"";15,15;"";16,15;"";17,15;"" f ]#0;0,10 ;"LO CONSEGUISTE";1,9 ;"-Q- OTRA PARTIDA":7340 Lox=c:oy=d: Vc=ox:d=oy: @o$=" MARK es un intrepido aventurero,ayudale a conseguir el tesoro del gran templo,para ello tienes que coger las 20 llaves Arriba...U Abajo...J Derecha...P Izquierda...O Salto...0 " J"8050r:f=05:x Ty=08 ^4;3+y,x;"" hy:f r51,7,10 ,14,17,25 |:v$="":w$="":x$="":9900&:9000(#:200 kf=1189:p=(*7):p:0.02{# =,p:p;16,0;o$(ff+31):f:0: #2>a=3:b=0:e=9300T$:h=9400$:g:pas:a$ #<.f=1g:p=a$(f):b=19200# #Zb=2e #db=3h #xa$(f)="0"a=a+1:f #a$(f)="#"b=2:f #a$(f)="$"b=3:f #+l=19 :a$(f)=l+480v=l #l #b=1:f: #4a$(f)="1"v$="":w$="":x$=" ":9260,$ #6a$(f)="2"v$="":w$="":x$=" ":9260,$ $8a$(f)="3"v$="":w$="":x$=" ":9260,$ $,a$(f)="4"v$=r$:w$=s$:x$=t$:9260,$ $"@p=p-95_:4;a,p;v$;a+1,p;w$;a+2,p;x$ $,0v=v-1:v=0b=0:a=a+1 $6f $Tu=p:e=9310^$:f $^v=p:e=9320h$:f $hrw=p:e=9300T$:v=v-95_:u=u-95_:w=w-95_:b=0:n=0u:6;v+n,w;"":n:f: $x=p:h=9410$:f $:y=p:h=9400$:x=x-95_:y=y-95_:b=0 $#9990':x09440$ $F5;y-2,x;"";y-1,x;"";y,x;"":9980&:f: $F5;y-2,x;"";y-1,x;"";y,x;"":9980&:f: %C43+,5210Z,"00021_22b21|53fkpu000000006`ejouz#col$_p$_d" %<36$,5510,"0000062_di1n01q01t32w{00009_dix3ns1|" %>38&,5010,"00000043puz1j022e23_000091mc|2_fsx#ify" &=37%,5110,"00063kpzu1001_06b2p3fk02tz000024_#ecp" & A41),5010,"00024_00000053_zu400001_#lcx#co}$~d$~k$~p" &?39',5200P,"00024_000000051h3kp002uz#gkh#gkt$_d#d_l" & <36$,5010,"00063_2g1d2kn43puz000000041clu5_hqy|" &*630,5310,"0000042_3z000000003z2_#iea#dn|" &4731,5410","0000023_01h052ru3m00008hmrw1|2_" &>?39',9980&,"00000021|1x1t1p1l1h1c01_#hjk#g_}#lf{$~g" &H024,9980&,"0000033tz00002hm#k_h#f_t" &R933!,5510,"0000052_din05{1r3v00002uy#egu#fl}" &\428,9980&,"000000024_00000032w{#h_|#dnv" &f226,5010,"000000024_00000091_w2chmr{" &p?39',5400,"000000021_002gj02nw2r{1_#k_k#e_{$~n#em}" &z933!,5310,"000043z2_00000000003_3z#kda$_e$_p" &=37%,5110,"000022_1d2is51|2nx00000007_dinsw{#h_}" &;35#,9980&,"000041vy|001_0022s1n3x1|22i1d1_#e_v" &832 ,5400,"000062hns1_1x1|000001_007h2kpu3z" &529,5210Z,"00000042_cg0000000024_#p_}$~p" &532 ,1,"5aekr|3ct|2t{3ktz2ry2sz2t{2t|2t|" &431,1Track-Info  R ,"32jp02ft02bx002bx002bx02ft002ko" &\a=110 :1;10 ,9 ;"PARA LA CINTA":a/10 ,a/10 :a: &.9930&:a="a""s"+7:b:a,b:a: &ʠ0,7,63?,60<,60<,16,16,124|,255,127,127,63?,7,7,7,3,32 ,480,24,12 ,12 ,24,480,32 ,124|,228,228,244,176,144,144,216,255,126~,124|,124|,124|,568,16,0,255,189,153,195,231,255,255,255,0,224,252,60<,60<,8,8,60<,255,254,252,248,192,192,192,128,62>,39',39',47/,13 ,9 ,9 ,27 &255,62>,28,12 ,8,0,0,0,80P,136,80P,32 ,20,8,5,2,0,32 ,97a,255,225,97a,32 ,0,129,129,129,129,129,129,129,255,8,28,62>,107k,107k,127,546,20,1,3,6,13 ,27,557,111o,223,0,0,0,0,8,28,118v,231,28,73I,107k,85U,8,85U,99c,65A,219,189,126~,255,255,255,255,255,128,192,96`,176,216,236,246,251 &\9960&:23675{\,176:23676|\,254:a="a""r"+7:b:a,b:a: &0,1,3,7,15,31,28,62>,126~,255,255,255,255,255,126~,60<,0,128,192,224,240,248,120x,252,63?,115s,237,232,233,243,252,255,153,195,255,126~,189,126~,255,255,252,208,183,23,151,207,63?,255,255,255,255,255,254,124|,124|,63?,255,255,255,73I,73I,73I,73I,255,255,255,255,255,127,62>,62>,248,24,28,12 ,7,7,3,1,0,73I,73I,73I,73I,255,255,255,126~,24,568,480,224,224,192,128,0 &248,248,252,206,206,252,248,248,240,240,248,254,238,226,224,240,248,248,192,192,200,248,240,224,31,31,63?,115s,115s,63?,31,31,15,15,31,127,119w,71G,7,15,31,31,3,3,19,31,15,7 &/23675{\,88X:23676|\,255: '023675{\,176:23676|\,254: PLUS3DOSq7:7:0::1;10 ,8;" PARE LA CINTA ":I=164@:.02{# =,I:I: r(xW =p)=asd+(*x) 26:6:0::asd=1:i$="x" 8"QUIERES QUE TE PLANTEE UN EJER- CICIO (s/ENTER) ";J$ J$""9600%:2050 -"QUE EXPRESION QUIERES QUE DESPE-JE : "'E$ 0,0;e$:.5,20:16,0;"AYUDAS :"'"P- parentesis"'"O- operaciones"'"N- ninguna"'"A- ambas dos"  Gj$=:j$""en1=(j$="p")+(j$="a"):en2=(j$="o")+(j$="a"):2070  2060  :0,0;e$  69000(#:17,0;"SOLUCION :"'I$;"=";B$ *."QUIERES LA SOLUCION NUMERICA "'"(s/n) ";j$ 49j$="s".5,10 :15,0;i$;"=";b$ > #(d$=e$:9480%:pi=pvar #2-i=1̱E$:E$(i)="="pe=i:9020 <# #7i:"NO HAY ""="" !!!": #piB$=ETrack-Info  R $((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"numero impar de parentesis !!!": #Za(ax+1,1)=A$+1:a(ax+1,2)=a$+1:a(1,1)=0:a(2,1)=1a(2,2)=A$A$=A$(2(A$-1)):pi=pi-1:a(ax,2)09035K# #\0(en1=1)*(ax>1)=19550N% #_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 #i0EN2=19560X%+10 *(NIV0) #n`(9100#+100d*niv):.2~L,30:5,0;A$;"=";B$;" ":9030F# #xaP(x4)=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$) #3I(A$(1))>0en2=19560X% #Ui(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:)) %N.5,502:10 ,0:k=1ax:a$(a(k,2)+1a(k+1,1)-1);:kax1;a$(a(k+1,1)a(k+1,2));:k %S 9590v% %Xa.4L,20:9580l%:10 ,0;1;a$(1);0;a$(2̱a$); %] 9590v% %b.3,0:9580l%:10 ,0:k=1no:a$(b(k)+1b(k+1)-1);:kno1;a$(b(k+1));:k %g 9590v% %l;10 ,0;:g=14*32 :" ";:g: %vN"=";b$:.2~L,20:.1}L,0:20,20;"CONTINUO ?" %x)""20,20;" ": %z 9592x% %.yai=0:par=0:yax=0:r$="" %"DIFICULTAD de 1 a 10 ";ldif %ldif=3*ldif:9670% %w(r(12 )>3+2*ldif/r$*(par>(ldif>3))+30*yax)=1r$=r$+"x":yax=1:9642% %r$=r$+(491+r(8)) %Jrx=r(10 ):(par>0)*(rx>3+2*ldif/r$)9650% %K9660%+20*(pAr=0)*yax*(ldif/r$3+3*par+4*yaxpar=par+1:r$=r$+"(":9672% % r$=r$+(177+r(8)) %Sr(20)>6+(3-yax+par)*(ldif/(3+1.5@*r$))9640% % 9670% %1yai=0yai=1:r$=r$+"=":9670% % e$=r$: PLUS3DOS3?3?3Oq7:7:0::1;10 ,8;" PARE LA CINTA ":I=164@:.02{# =,I:I:  A.MARANON 1985 23658j\,8 )0:0:0::6000p ,23675{\,8:23676|\,254 5000: 11 33!,100d,2,229,17,0,0,205,181,3,225,17,250,255,25,124|,60<,32 ,240,201 &n=23301[23320[:q:n,q:n (-23675{\,88X:23676|\,255 2x=x+(h-x):y=y+(z-y) 7#j=j+2:j4j=0 <1(x,y)122zh=(*16)+1:.02{# =,30:.03{u\,20:cm=23301[:.03{u\,40(:z=(*29)+1:x,y;" ":x=x+(h-x):y=y+(z-y):tar=tar+1:total=total-1:t$=total:19,27;7;t$+" ":(tar=i(g))(total=33!)1500 F<x=hy=zh=(*16)+1:z=(*29)+1 P7a,b;" ":(x,y)=0a=x:b=y:x,y;4;"" Zs="M"(l,c+2)=0(l+1,c+2)=0v=2:c=c+1:f$="":k$="":q$="" _s="N"(l,c-1)=0(l+1,c-1)=0v=1:c=c-1:f$="":k$="":q$="" dL="A"(l-1,c)=0(l-1,c+1)=0l=l-1 nK=""(l+2,c)=0(l+2,c+1)=0l=l+1 x9OLPCO,P;0;" ";O+1,P;" ":O=L:P=C }7l,c;7;k$;l+1,c;q$(j+1j+2) ="Z"(l,c+s(v))=0l,c+s(v);6;f$:cm=23301[:l,c+s(v);0;0;" ":l=xc+s(v)+w(v)=y1000 502 g=g+1:n=x16 n,y;0;0;" " 7(n+1,y)02;n,y;"":1045 /n+1,y;2;"":.02{# =,502 n tar=0:pun=pun+1 \l=1:c=1:x=13 :y=29:a=13 :b=29:o=1:p=1 Vn=116:n,1;0;0;" ":n $(23675{\,8:23676|\,254:(8000@pun=7)+(5246~pun=6)+(5010pun=2)+(5060pun=3)+(5100pun=4)+(5200Ppun=5):23675{\,88X:23676|\,255:pan=pan+1:21,27;7;pan;" ": fin tarta pantalla ,23675{\,8:23676|\,254  tar=0  8100  5  pantallas  pant. 1 13 ,23;7;0;"";15,22;0;5;"";14,22;"":n=11 12 :7;1;0;n,24;" ":n:10 ,24;2;7;1;"" 7,2;5;0;"";9 ,1;0;5;"";8,Track-Info  R         1;"":n=56:7;1;0;n,3;" ":n:4,3;3;7;1;"" n=610 :2;8;n,11 ;"":n:10 ,14;6;"";9 ,14;5;"":11 ,10 ;5;0;"";12 ,10 ;"" l4,19;5;0;"";5,19;"";3,22;6;""  pant.2 14,5;5;0;"";16,3;0;6;"";15,3;"":7;1;0;13 ,6;" ":n:12 ,6;2;7;1;"" n=273:6;0;n,11 ;"";n+1,11 ;"";n+2,11 ;"":n:7,17;7;"";7,21;5;"":8,10 ;7;0;"";9 ,10 ;"" ظ7,1;5;0;"";8,1;"";6,2;4;"";5,3;7;1;"";4,3;2;7;"" n13 ,20;5;0;"";15,20;6;"";14,20;"" 5,27;2;0;"";7,26;6;"";6,26;"";4,28;0;1;7;" ";3,28;3;""   pant.lab. 16,26;5;0;"";15,27;7;1;0;" ";14,27;3;"" D1:0::n=12:n,1;"":n -n=56:n,1;"":n .n=78:n,15;"":n /n=13 14:n,5;"":n .n=9 10 :n,5;"":n  0n=11 12 :n,19;"":n 0n=1516:n,15;"":n ,n=67:n,25;"":n %1,15;"":n (n=38:n,11 ;"":n #(n=9 12 :n,1;"":n ()n=9 14:n,15;"":n -*n=14:n,15;"":n 7)n=112 :n,25;"":n <(n=46:n,21;"":n A:n=34:n,25;0;0;" ":n B0:0 F Kpant.4 Pn=48:2;8;n,2;"":n:9 ,2;7;"";9 ,6;5;"":10 ,2;6;0;"";11 ,2;"" Z3,20;6;0;"";4,20;"";5,20;"";7;0;2,17;"";3,17;"";0;0;" ";7;"";4,17;"";0;" ";7;"";5,17;"":6,16;5;0;"";7,16;"";7;5,22;"";1;7;0;4,23;" ";2;3,23;"" d7;0;10 ,24;"";11 ,24;"";0;" ";7;"";12 ,24;"";0;" ";7;"";13 ,24;"":14,17;6;0;"";15,17;"";7;10 ,28;"";11 ,28;"";0;" ";7;"";12 ,28;"";0;" ";7;"";13 ,28;"" n~15,3;5;0;"";14,4;7;0;1;" ";13 ,4;3;"" x5,8;7;0;"";6,8;"";4,8;6;"";3,9 ;7;0;1;" ";2,9 ;3;"" z }PANT 5 ~^8,5;1;7;"":N=18:N,5;1;0;"";N,25;"":N:0;0;6,25;" ";4,25;" ";5,25;" ":N=815:5;0;N,15;"":N:8,15;5;"":N=48:5;N,12 ;"":N 13 ,2;0;6;"";14,2;"";12 ,3;4;0;"";11 ,4;3;7;1;"":7,7;7;0;"";6,8;7;0;1;" ";5,8;3;"" 13 ,18;0;5Track-Info  R         ;"";14,18;"";12 ,19;2;0;"";11 ,20;3;7;1;"":12 ,23;7;0;"" w11 ,8;5;0;"";12 ,8;"";13 ,8;"";14,8;"" 7,15;1;7;"":3,16;6;0;"";4,16;"";5,16;"";6,16;"" o ppresentacion  6410   O231,153,165,90Z,90Z,165,153,231 #n=07:q:"r"+n,q:n d%inicializar y marcadores y anagrama G0,0;0;4;"" 87;9 ,3;"ESPERA, GENERANDO GRAFICOS" H17,0;0;4;"" In=017:0;4;n,0;"";n,31;"":n  inicializar total=33!:tar=0:pun=2:f$="":w(2):w(1)=-1:w(2)=1:j=0:k$="":q$="" v=1:pan=1:g=1:i(5):i(1)=8:i(2)=11 :i(3)=2:i(4)=6:i(5)=6:l=1:c=1:o=1:p=1 5s(2):s(1)=-1:s(2)=2 Dh=12 :z=12 :x=1:y=1:a=1:b=1 -1,2;0;0;"glotoh" Le=2:s=30:N=167160-1:u=1764@ <(u,N)e,s:3,0:e,s-2:3,0  e=e+4 u e=2:s=s-3:N 18,25;3;0;"PUNTOS";19,27;6;"33";20,24;4;"PANTALLA";21,27;6;"1" 19,0;1;1;3;0;" ";20,0;5;" ";18,0;4;" " F21,7;2;1;" A.MARANON.":0:0 X 7100 R23675{\,88X:23676|\,255:n=0103g:i:"a"+n,i:n 3,7,8,8,9 ,7,3,131,192,224,224,160,224,208,104h,104h Ɨ252,223,195,193,0,0,0,0,104h,232,210,196,226,117u,502,32 Н104h,232,210,200,225,114r,480,33!,192,224,16,16,144,224,192,193 3,7,7,5,7,11 ,22,22,63?,251,195,131,0,0,0,0,22,23,75K,35#,71G,174,76L,4 G0,0,80P,8,80P,10 ,133,42* N241,138,76L,62>,25,105i,101e,131 22,23,75K,19,7,78N,172,4,0,0,0,10 ,16,74J,161,84T ***********************  ,23675{\,8:23676|\,254 17200 :n=0167:e:"a"+n,e:n  K85U,110n,85U,203,546,42*,546,28 *M85U,170,85U,170,85U,170,85U,170 4'255,192,127,127,63?,63?,31,15,255,3,254,254,252,252,248,240,6,9 ,9 ,6,0,0,0,0,24,36$,102f,153,153,102f,36$,24 >N255,255,118v,524,36$,98b,178,224 H7,61=,254,143,240,127,95_,47/,224,124|,171,227,31,254,254,252,23,11 ,5,3,1,1,1,1,248,240,224,192,128,128,128,128,1,1,1,1,6,11 ,22,63?,128,128,128,0,224,240,248,252 R0,15,16,38&,64@,255,192,127,0,240,8,4,2,255,129,255,24,255,0,0,0,255,0,255 W^80P,80P,80P,64@,8Track-Info  R         0P,80P,80P,80P,2,2,2,2,2,2,2,2,64@,80P,80P,80P,64@,79O,80P,127,2,10 ,10 ,10 ,2,242,10 ,254,0,0,0,0,0,255,0,255 200:7700 D7;9 ,8;" PULSA UNA TECLA ":0:7700  VN=116:0;0;N,1;" ":N  @@8,8;1;7;0;"EXTERMINIO TOTAL" JdKL=(*20):n=1121y:F:.2~L,F+KL:.06|u\,F-10 :n:1,11 T0:7700:1 fin tarta pantalla n=130:.2~L,(*40():10 ,10 ;0;ٺ(*7)+1;"HAS FRACASADO":n:N=115:0;0;N,1;" ":N:6800 PLUS3DOS ) ) q7:7:0::1;10 ,8;" PARE LA CINTA ":I=164@:.02{# =,I:I: '64999:8000@::a(2) 6:6: n.:3,12 ;"MENU";6,4; x150:i=14 "a$:a$''4;:.1}L,i:i f"1)INTRODUCIR ECUACIONES","2)METODO DE SUSTITUCION","3)METODO DE REDUCCION","4)METODO DE IGUALACION" a$= 6a$491Ưa$524menu=a$:1000*menu 160 5i=01:fl2=0:215:''':i: j=1 #a(1)=z(3*i+j,1) #a(2)=z(3*i+j,2) (a=a(1)/a(2):a290" *j=2"+";:((8)a<0); &7000X:((8)ƽa=1); (119w+j);:350^ "!j=1j=2:220 ,\"=";:a(1)=z(3*(i+1),1):a(2)=z(3*(i+1),2) 67000X: ^+fl2jj=j8;"(";:600X:")"; h Pa1=(a(1)ƽa(1)Ƚa(2))+(a(2)ƽa(2)>a(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=Track-Info  R         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: ";:600X:"=";: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@Track-Info  R         ,105i,105i,96`,105i,113q,96`,0,0,32 ,0,112p,0 /p(x,y ,n)=x+y*n^65000  PLUS3DOSR'R'$(pon aqui tres espacios en blanco) (otros cuantos espacios)  "Pokes? ";n 9direccion=(23635S\+256*23636T\)+5 a=direcciondireccion+n "Valor? ";b:a,b a  'z7:7:0::1;10 ,8;" PARE LA CINTA ":I=164@:.02{# =,I:I::1 PLUS3DOSl 24999a .1;10 ,8;"PARA EL CASETTE"  200 (G"Num. de Kbytes de RAM (16 o 48) ";n:n16n48040( 2n=n*1024+16383? n-50060< F71;10 ,3;"PON EL CASETTE EN MARCHA" P"AF.0"d:"AF.1"d U71;10 ,1;"PULSA UNA TECLA":0 Z16384@,1:n:d PLUS3DOS&PR;;++++#:@(/[v\![>Ry>Rr &>Rh>Ra>2X!@>7Vx()!x90^#V! >w##T;;@RDM;;&ѧRMD##bkw _{ # y {Z/~|(OGZZ Z ZZZZZYYYYzYxYvYtYPLUS3DOSP<<<, 2BBB<<<<B~B<@<<BB~Track-Info  R B>R~J~>|>@<<<<<<<<<<<B~B@f@@BBBB@BB*FB@BBBBBB(FBf@B|Z<@BBB~|$B$"B@@BBB<@B@BJZ| L ,B@B@B~BB@JB|@@~~~B@B@~R<B~R~R~~~$@BB@BBBB@JB D@BBBBBBBBBb@BB*R*B~~~~B<~<B$$$~>B>~<<<<<B><~B<t$BBB222BBBB<<<<222BBBB<<<<~JJJ<<<<JJJ~<<<<"FFFFFF""""BBBB2<<"""BBBB,p$L~~~~J~BR~~~~RHJRBBBBF"BRBBBBRDJR$$$$"<$$$$$,B|""""""""RRDJBB@@@BBBB@B@B,2<$,B<BBBBBBBBBBBBTrack-Info  R BB@<|BBBBBBBBBBBBBBBBB/////////////////////////////////''''''''''''''//''''''''''''''''''''''''''//'''''''''''''''''//'''''''''''''''''''''//'''''''''''''''''''''//''''''''''''''''''''''''//''''''''''''''''''''//''''''''''''''''''''''//''''''''''''''''''''''''''//''''''''''''''''''''''''''''''//''''''''''''''''''''''''''//''''''''''''''''''''''''''//''''''''''''''''''''''''''//''''''''''''''''''''''''''''''//''''''''''''''''''''''''''//''''''''''''''''''//''''''''''''''''''//''''''''''''''''''''''//''''''''''''''''''''''''''''''/////////////////////////////////////////////////////////////////PLUS3DOSoq7:7:0::1;10 ,8;" PARE LA CINTA ":I=164@:.02{# =,I:I: 59999_ I=0491 A (60000`+I,a:i 2"LINEA:";B;"COLUMNA:";C <60001a,C:60002b,B F60000` P Z1,0,0,38&,64@,120x,230,7,132,103g,203,568,203,568,203,568,120x,230,24,132,103g,120x,230,7,15,15,15,111o,121y,230,7,71G,203,579,203,579,203,579,121y,133,111o,4,175,557,31,16,253,182,119w,201 PLUS3DOS[ZZq7:7:0::1;10 ,8;" PARE LA CINTA ":I=164@:.02{# =,I:I:  N="A""D"+7:A:N,A:N 61,3,7,15,31,63?,127,255,128,192,224,240,248,252,254,255,151,151,155,155,83S,83S,95_,223,127,119w,119w,65A,119w,119w,546,28 G=1:HI=0 23658j\,8 INICIACION SC=0:ESCUDO=0:TIME=999:ANT=0:ESP=0:FM=10 :GAR=0:BANT=0:PORC=0:HOJA=1 YB$=" PORCENTAJE MALO ":AV=0:PAST=0:PANT=1:Y=14:X=10 &0:0:0:0: 2 PORTADA 4236077\,60< < 9800H& A>4,5;7;1;" LAS CUEVAS DE SNAKE " F3;7,5;" 5  IZQUIERDA";9 ,5;" 6  SALTO IZQUIERDA";11 ,5;" 7  SALTO DERECHA";13 ,5;" 8  DERECHA";15,5;" 0  FUERZAS MAGICAS" K)1;#0;20;"RQG 1986" M5:60<,33!:134,0:0,-11 :-134,0:0,11 :65A,34":130,0:0,-12 :60<,21:10 ,0:0Track-Info  R  OG=19000(# P14;18,8;"PULSA UNA TECLA" Q=""80P U 95_ _818,8;2;5;"!!!! SUERTE !!!!" `QN=17:.2~L,30:.1}L,30+N:N:.5,37% c d MARCADOR  i0:0:0: k1;18,0;" " n3;1;1;19,1;"ARM";21,0;"";17,0;"";18,31;"";19,31;"";20,31;"";16,0;0;"" x5;1;18,19;"";19,19;"";19,30;"";20,19;"" H5;1;1;19,20;"TIME";0;" " %7;19,12 ;"" 4:1:8,8:128,0:6,6:0,10 :-6,6:-128,0:-6,-6:0,-10 :6,-6 8,12 :568,0:3,3:0,8:-3,3:-568,0:-3,-3:0,-8:3,-3 80P,12 :568,0:3,3:0,8:-3,3:-568,0:-3,-3:0,-8:3,-3 236077\,200 *5;1;19,10 ;"L" 0 87;14,10 ;"I";13 ,10 ;"F"  PANTALLA 1  H15,0;4;1;"::::::::::::::::::::::::::::::::" D0,6;5;"";2;":::" 5;1,8;"";2,15;" ";3,28;"";4,29;"";5,29;"";6,29;"";7,30;"";8,30;"" !4;6,0;"" 2n=813 :6;n,0;"+++":n m7,0;7;"***";14,0;",,,";13 ,18;"+**+";14,18;",++," E3;12 ,5;"###";12 ,18;1;"" $L5;3,18;"";4,18;"";5,18;"" L DATAS PANTALLA  N 1110V Q5n=029:PY,PX,T,P,G:PY,PX;T;P;G:N V"0,4,0,5,66B,0,5,0,5,61=,1,7,0,5,61=,2,8,5,0,35#,2,9 ,0,5,65A,2,11 ,6,0,35#,2,14,0,5,61= `'1,16,7,5,35#,0,19,6,5,35#,1,21,7,5,33!,2,21,7,5,34",3,20,0,5,66B,3,21,0,5,61=,3,22,0,5,62> j~2,23,0,5,64@,2,24,0,5,65A,2,26,0,5,145,3,27,0,5,145,4,28,0,5,145,1,29,2,0,58:,1,30,3,0,58:,1,31,2,0,58:,1,27,7,5,35# t&7,29,0,5,61=,8,31,0,5,62>,9 ,30,5,0,35#,5,30,6,5,35#,11 ,5,4,0,38&,1,9 ,7,5,35#,3,29,6,5,35#  MOVIMIENTO  YHOJA=1;4;10 ,5;"$";9 ,5;"%";8,5;"$" 6;6,18;"!";7,18;34":N=710 :5;1;N,18;"!";N+1,18;34";N-1,18;3;" ":7000X:8000@:7000X:1517:N O5;1;10 ,18;"Q";11 ,18;"Q":1517:7000X:8000@:7000X:0;0;10 ,18;"":1517:7000X:8000@:7000X:5;1;11 ,18;"R":1517:7000X:8000@:7000X:0;0;11 ,18;""  1500 Y=11 X=6ESP=1Ʀ="0"FM=FM-1:ESP=2:ANT=1:19,6;1;" ":HOJA=Track-Info  R 0:PORC=PORC+15:Z=70-1:Z;8,5;"$";9 ,5;"%";10 ,5;"$":Z   PANTALLA N 2  H15,0;4;1;"::::::::::::::::::::::::::::::::" \2;0,0;":::::::::::::::::::::::::::::: ::::::::::::::::::::::::::::::" _7;3,26;", ,";12 ,13 ;"";11 ,15;5;"()" 4;0;9 ,5;"B=@A";3;0;4,26;"(')";10 ,26;"(')";3;0,15;"::" >BANT=0N=59 :4;N,25;"+":N 3 2120H 45N=018:PY,PX,T,P,G:PY,PX;T;P;G:N HM1,6,7,0,35#,2,5,5,0,35#,2,13 ,5,0,35#,6,0,7,5,35#,5,5,1,0,42*,2,26,6,0,43+,2,28,6,0,43+,2,27,7,0,42* R4,1,6,5,35#,2,0,7,5,33!,3,0,7,5,34",2,1,0,5,32 ,2,2,0,5,62>,3,1,0,5,32 ,4,0,0,5,32 ,5,1,0,5,32 ,5,0,0,5,32 ,6,1,0,5,144,7,0,0,5,62>  MOVIMIENTO  N=133104h-1:H=02:8000@:2600( :2700 :٥*5+2;9 ,15;"EE";10 ,15;"EE":0;220+H,N-1:7;1;220+H,N:H:N 2505 *X=15Y=8X=16Y=8Y,X;0;" ";Y-1,X;0;" ":X=8:Y=8:8,8;7;"<";7,8;"J" -X=5Y=8Ʀ="0"ANT=2BANT=0BANT=1:PORC=PORC+15:4,5;2;1;"C":A=59 :A,25;" ":A 2 ="0"BANT=1X=8Y=8FM0FM=FM-1:F=9 26::٥*5+2;7,F;"G":0;7,F;"":2800 :F  fN=115sF=26GAR=1:19,6;1;" ":ANT=3:PORC=PORC+10  0:6000p:0  PANTALLA N 3  œ4;0,15;"% $ $";1,17;"% %";2,19;"$";15,0;1;"::::::;;;;;:::::::::::";1;"::::::::::" ̰5;0,22;"";1,23;"";2,24;"";3,26;"":N=48:5;N,29;"":N 3050 5N=018:PY,PX,T,P,G:PY,PX;T;P;G:N R0,31,6,5,35#,1,25,7,5,35#,1,28,6,5,33!,2,28,6,5,34",4,30,7,5,33!,5,30,7,5,34",9 ,30,7,0,33!,10 ,30,7,0,34" (8,29,0,5,61=,5,28,0,5,61=,4,28,0,5,32 ,4,27,0,5,61=,4,26,0,5,66B,3,25,0,5,61=,1,22,0,5,145 2,23,5,0,35#,3,24,4,0,37%,4,24,4,0,36$,8,31,0,5,64@  MOVIMIENTO  CX=(*4)+6:D=1411 -(*4)-1-1:5;1;D,CX;"D":7000X:8000@:7000X:0;D,CX;0;" ":3600:D:3510 mY=14X=24ANT=1ANT=2:PORC=PORC+15:19,6;3;1;"." 7ANT=12;1;14,24;"." 9ANT=0(*5)+2;5,24;"." $  PANTALLA N 4  H1;1;15,0;"::::::::::::::::::::::::::::::::" 5;0,0;"";2,0;"";3,0;"";4,0;"";5,0;"";6,1;"" P4;0,24;"";5,24;" " 7;1,25;"** *";5;2,25;"++ +";7,21;"Track-Info  R ";12 ,14;"";10 ,18;0;5;"= @A" !8,22;3;"??"  4050 5N=044,:PY,PX,T,P,G:PY,PX;T;P;G:N ҥ3,25,5,0,43+,3,26,5,0,43+,4,25,7,0,44,,4,26,7,0,44,,3,28,3,0,77M,3,29,3,0,78N,4,28,3,0,79O,4,29,3,0,80P,4,30,7,0,44,,3,30,5,0,43+ ܜ0,6,5,0,61=,1,1,5,7,61=,1,2,5,7,62>,1,0,0,5,32 ,1,3,0,5,32 ,1,4,7,5,33!,1,5,0,5,32 ,1,6,0,5,32 ,1,7,7,5,35#,1,8,5,0,145 J2,4,7,5,34",3,1,6,5,35#,5,4,5,7,66B,5,5,5,7,61=,5,6,5,7,62>,5,7,0,5,32 ,5,8,0,5,144,6,0,4,5,33! 6,0,3,5,33!,6,7,0,5,62>,7,0,3,5,34",7,1,0,5,144,8,0,0,5,65A 7,5,4,0,58:,7,6,4,0,58:,8,5,4,0,58:,8,6,4,0,58:,9 ,5,2,0,40(,9 ,6,2,0,41),15,5,2,0,40(,15,6,2,0,41),9 ,22,3,0,40(,9 ,23,3,0,41),15,22,3,0,40(,15,23,3,0,41)  MOVIMIENTO  N=11 14:2;1;N,5;"GG";25-N,22;"GG":7000X:8000@:4600:N,5;0;0;" ";25-N,22;" ":N:4500 HGAR=2X=24Y=4Ʀ="0"PORC=PORC+20:9900&   PANTALLA N 5  H15,0;4;7;"????????????????????????????????" +15,0;1;7;":::" 14,12 ;6;",";5;",";6;",";1;"";7;",";3;"";6;",";1;"";5;",";4;"";7;",,,," E2;13 ,15;"";4;13 ,22;"" D4;7;0,3;"'''''''''''''''''''''''''''''" /N=27:6;N,4;"+":N /N=25:5;N,5;"+":N 4N=10 13 :7;N,29;"+++":N  5150 9N=018:PY,PX,T,G:PY,PX;T;0;G:N 1,4,7,42*,1,5,3,42*,1,6,7,42*,2,6,6,43+,3,6,6,43+,1,9 ,5,43+,1,10 ,7,43+,1,11 ,6,43+,2,9 ,5,43+,1,19,4,36$,1,21,4,37%,2,21,4,37%,7,31,7,43+,8,31,7,43+ (9 ,30,7,43+,9 ,31,7,43+,7,31,7,42*,9 ,30,7,42*,10 ,29,7,42* | MOVIMIENTO  7ESP=05;1;12 ,16;"-" 7GAR=12;1;12 ,23;"/" :GAR=0(*5)+2;12 ,23;"G" oX=16Y=12 ESP=0ESP=1:PORC=PORC+10 :19,6;7;1;"-" nX=23Y=12 GAR2GAR=2:19,6;3;1;;"/":PORC=PORC+15  8000@  5550 o p BORRADO  zON=015:0;N,0;" ":N  X CHOQUE  b(Y,X)=66Bū(Y-1,X)=66Bū(Y,X)=69Eū(Y-1,X)=69E7030v:L=60<0-2:Y,X;L/8;"<";Y-1,X;"J":254,*6+2:0:L:Y=14:X=11 :7;Y,X;"<";Y-1,X;"J":0Track-Info  R  l v!ESCUDO=2FM=FM-1: ESCUDO29700% L N.PANTALLA  VaX=31PANT=PANT+1:PAST=PAST+1:X=1:7;Y,X;"I";Y-1,X;"F" `aX=0PANT=PANT-1:PAST=PAST-1:X=30:7;Y,X;"K";Y-1,X;"H" ? @  RUTINA PRINCIPAL  A 0 Bo(Y+1,X)=0Y=Y+1:7;Y,X;"<";Y-1,X;"J";0;Y-2,X;" ":8001A CQFM819,16;4;"";19,11 +FM/1.5@;"" DFM=09700% ERTIME=TIME-.2~L:19,25;2;1;;0;" ";TIME;" " FTIME=09700% Jb(*1000)=88XESCUDO2ESCUDO=1:14,3;5;1;"" T^X=3Y=14ESCUDO=1ESCUDO=2:19,7;6;1;"" ="5"((Y,X-1)=0ū(Y,X-1)=66Bū(Y,X-1)=69E)X=X-1:7;Y,X;"K";Y-1,X;"H";0;Y,X+1;" ";Y-1,X+1;" " ="8"((Y,X+1)=0ū(Y,X+1)=66Bū(Y,X+1)=69E)X=X+1:7;Y,X;"I";Y-1,X;"F";0;Y,X-1;" ";Y-1,X-1;" " l-="7"((Y-3,X+1)=0ū(Y-3,X+1)=66Bū(Y-3,X+1)=69E)((Y-4,X+1)=0ū(Y-4,X+1)=66Bū(Y-4,X+1)=69E)0;Y,X;" ";Y-1,X;" ":Y=Y-3:X=X+1:7;Y,X;"I";Y-1,X;"F" +="6"((Y-3,X-1)=0ū(Y-3,X-1)=66Bū(Y-3,X-1)=69E)((Y-4,X-1)=0ū(Y-4,X-1)=66Bū(Y-4,X-1)=69E)0;Y,X;" ";Y-1,X;" ":Y=Y-3:X=X-1:7;Y,X;"K";Y-1,X;"H" !?X=31X=06000p:7500L:PANT*1000 ! #( GRAFICOS  #) G=8 #- 9070n# #087;1;18,8;"GENERANDO U.D.G." #2N=0399 #< 51464+N,(15616=+N) #FN #PN=5146451863 #Z A:N,A:N #d #n255,249,115s,118v,118v,502,502,524,524,524,60<,28,24,24,24,8,255,255,183,183,178,178,176,32 #x8,104h,120x,59;,15,14,8,8,104h,120x,59;,15,557,120x,568,8,568,24,8,8,8,62>,127,255 #255,0,255,0,255,0,255,0,255,120x,255,120x,255,120x,255,0,255,30,255,30,255,30,255,0 #255,255,126~,126~,60<,524,524,524,524,524,524,524,524,524,524,524,524,524,524,60<,126~,126~,255,255 #9 ,6,6,9 ,16,32 ,64@,128,568,111o,214,252,248,136,144,224,3,7,14,60<,120x,248,240,240 #1,126~,70F,74J,86V,102f,126~,128,0,8,24,8,24,24,24,0,0,126~,98b,14,480,70F,126~,0 #0,124|,68D,28,6,70F,126~,0,0,12 ,22,38&,126~,12 ,12 ,0,0,62>,32 ,62>,6,38&,62>,0 #0,124|,64@,126~,98b,98b,126~,0,0,126~,98b,4,8,16,480,0,0,60<,36$,126~,98b,98b,126~,0,0,62>,34",62>,6,70F,126~,0 #191,191,191,0,247,247,247,0,24,126~,60<,0,247,247,247,0,102f,36$,255,189,195,126~,0,90Z #0,128,192,240,568,220,110n,255,0,1,3,6,6,27,557,255,90Z,90Z,90Z,90Z,90Z,90Z,90Z,90Z,0,0,0,0,3,15,121y,255 #Ҝ3,7,63?,Track-Info  R 254,254,241,231,255,192,224,248,126~,127,153,252,255 #8,20,36$,90Z,579,94^,60<,0,24,46.,99c,137,131,81Q,171,222,0,32 ,4,128,44,,13 ,64@,36$ #0,28,60<,58:,250,222,152,135,0,0,0,170,85U,0,0,0,0,568,60<,92\,95_,123{,25,225 #182,140,132,248,252,231,127,126~,0,24,60<,36$,36$,255,255,102f,109m,491,33!,31,63?,231,254,62> #k0,8,12 ,254,255,254,12 ,8,0,1,7,15,1,0,0,63?,0,128,128,128,192,224,112p,248,31,0,63?,63?,0,127,127,0,248,12 ,252,252,6,254,254,0 $2,64@,16,132,81Q,0,18,64@,0,0,0,0,24,164,46.,215 % FINAL DE LA AVENTURA  % 9800H& % MUERTO  %^AV=0N=70-1:N;Y,X;"<";Y-1,X;"J":.2~L,20-N:N %:9800H& %236077\,60< %(SC=(PORC*100d+(1000-TIME)) %97;3,2;" LAS CUEVAS DE SNAKE " %SC>HIHI=SC %5;6,5;"SCORE ";SC;8,5;4;"COMPLETADO ";PORC;" %";10 ,5;6;"HISCORE ";HI %3:1:30,70F:170,0:0,12 :-170,0:0,-12 :30,69E:10 ,0:35#,83S:165,0:0,-10 %25;19,4;"___________________" %>7;16,5;"RQG SOFWARE ";3;" 1986" %^M=13:N=03:.15~,30:.15~,30+N*4:N:M %zPORC25B$="PORCENTAJE REGULAR":PORC45-B$=" PORCENTAJE NORMAL":PORC70FB$=" PORCENTAJE BUENO" %'AV=1B$="AVENTURA COMPLETADA" %HN=1̱B$:12 ,5;7;1;B$(N):10 :N %[7;3,2;" ";٥*6+2;"LAS CUEVAS DE SNAKE ";7;" " &""10 :9725% & 9725% &H  BORDE  &Os7;0,0;"";21,0;"" &R@N=020:7;N,0;"";N,31;"":N &\r7;0,0;"";0,31;"";21,0;"";21,31;"" &f &  FINAL  &A=5680-8 & 9940& &$F=23300[23300[+15 & B:F,B:F &Ԕ38&,A,1,0,88X,17,192,2,124|,2,3,27,122z,179,32 ,248,201 &23300[ &C7;A/8;3,28;"EE";4,28;"EE" &A & AV=1 & 9700% PLUS3DOSs q7:7:0::1;10 ,8;" PARE LA CINTA ":I=164@:.02{# =,I:I: 0:0:7: 6;1;"LISTADO DE PROGRAMAS"'':" SIT ";"SENT ";"LONG ";"BYTE ";"CODI o NUM"':23689\,23689\+1:1;"_____ ____ _____ ____ __________" "Primera linea listada:";a$ (.I=1̱A$:A$(I)<"0"A$(I)>"9"30 2I <"a$=""prs=10000':90Z F0a$<10000'ưa$0prs=a$:90Z P 30 Z"Ultima linea listada:";a$ d.I=1̱A$:A$(I)<"0"A$(I)>"9"90Z nI x#a$=""uls=10000':150 1a$<10000'ưa$0uls=a$:150 90Z "Direccion de comienzo? ";dir #nsc=(dir+1)+256*dir -lon=(dir+2)+256*(dir+3) )nscTrack-Info  R uls520 pun=dir+4 0dir;6;nsc;11 ;lon;17;dir' i=13 dir+i;17;(dir+i)' i 1dir=dir+lon+4:ruca=0:runu=0  peek=pun >peek=13 pun=dir-1pun;17;peek:160 5peek=34"ruca=0ruca=1:320@ "ruca=1360h ,@peek=14runu=1380|:runu=0:260 6+peek<58:peek>47/runu=1 @pun;17;peek; Jpeek<32 ""' T!peek>3121;peek' ^pun=pun+1:260 hpeek=34"ruca=0 r 320@ |&pun;17;pun':pun=pun+1 6a(5):i=15:a(i)=(pun+i-1) i a(1)=0(a(2)=0a(2)=255)a(5)=0num=(a(3)+256*a(4))*(a(2)=0)+(a(2)=255)*((a(4)-256)*256+a(3)):490  num=0 i=52-1 num=(num+a(i))/256 i :a(2)<128s=1:num=num+1/2 "a(2)128s=-1 *num=s*num*2^(a(1)-128) #pun;17;pun;21;num' i=14 pun+i;17;(pun+i)' i:pun=pun+5: 3"QUIERE CONTINUAR S/N";A$:A$="S"A$="s"1  PLUS3DOS11 8000@ S236066\,0:236077\,60<:7:7:0::0: kc,d;" ";a,b;"":c=a:d=b:e=23560\:a=a+(e=546)-(e=557):b=b+(e=568)-(e=535) w(a,b)" "ƫ(a,b)71Ga=c:b=d:t=t-5:x=10 -10 -1:.02{# =,x:x:23560\,0 p=p+5:t=t-1:1,7-p;p;1,28-t;" ";t:t0#1;"LO SIENTO,SE TERMINO EL TIEMPO":x=0200:x:9500%-(2500 *(p>hi)) $10 +(6000p*(b=31)) C5000:o=o+25-(25*(o=502)):t=t+125}-o 2:a$="":b$="":x=6228:y=115:5+y,x;a$(y);2+y,x+4;b$(y):y:x 11 ,26;"";10 ,26;"";2,3;" ";21,6;"";10 ,1;"";14,0;"";10 ,27;"";14,30;"" b$="":d$=" ":x=17:2+x,2;b$(x);10 +x,0;d$(x);14+x,30;"";2+x,26;"":x +21,30;" ":7:10 -5000:t=t+150-o:4:17,11 ;"";2,1;" ";6,4;"";7,10 ;"";10 ,1;"";10 ,17;"";14,1;"";17,4;"";17,8;"";18,4;"";18,8;"";18,11 ;"";14,21;"";14,27;"";17,25;"";18,25;"";21,0;"" U1020:w=010 :y:z:a$:x=1̱a$:y+x-1,z;a$(x):x:w 3,0,"",8,10 ,"",10 ,13 ,"",10 ,14,"",11 ,17,"",3,31,"",15,31,"",3,15,"",3,23,"",5,19,"",5,27,"" 7:10 }5000:t=t+225-o:5:2,0;" Track-Info  R  " W " " 7:10 5000:t=t+325E-o:a=a-1:c=a:6:2,0; " "  " " 7:10 a=12 :c=a:b=1:d=b:v=t:x=t1-1:p=p+10 :v=v-1:1,7-p;p;1,28-v;" ";v:.01z# =,5:x:x=0100d:x :0,2;"PUNTOS";0,24;"TIEMPO";1,7-p;p;0,11 ;x$;1,14;hi:23560\,0: o zCa,30;" ":u=u+1-(4*(u=4)):u*1000 X:22,0;10 ,5;"HA SUPERADO EL RECORD POR ";(p-hi);" PUNTOS INTRODUZCA SU NOMBRE ";1;x$ b1x=010 :x$<10 x$=" "+x$+" " gx:x$=x$(110 ) lhi=p:9500% ? @q7:7:0::1;10 ,8;" PARE LA CINTA ":I=164@:.02{# =,I:I: E?8020T:645688:x=65338:65365U:y:x,y:x J65338: T33!,0,61=,17,579,252,1,0,3,126~,203,47/,182,18,19,35#,11 ,121y,176,32 ,244,33!,579,251,34",546,92\,201 ^Hx$="J.BARREDA ":hi=1000:11 ,6;"ESPERE 20 SEGUNDOS" #% #& GRAFICOS #' #(zx(a$tP,zO)=16*(a$(z)-480-7*(a$(z)>"9"))+(a$(z+1)-480-7*(a$(z+1)>"9")) #2a$="3C66CF9FBFFF7E3CFFFF00000000FFFFC0C0C0C0C0C0FFFFC3C3C3C3C3C3C3C303070F1B3363C383FFFF060C183060C0C1C3C6CCD8F0FFFFFFFF070F1B3363C3FFFF1B3363C3FFFF" #<a$=a$+"FFFFC0C0C0C0FFFF03070F1B3363FFFFFFFFC3C7CFDBF3E3C3C3C3C3C3C3FFFF030303030303FFFFC0C0C0C0C0C0C0C0000000000000FFFFFFFF060C1830FFFFC3C7CFDBF3E3C3C3" #A:a$=a$+"FFFFC7CFDBF3FFFFC3C7CFDBF3E3FFFFFFFFC3C6CCD8FFFF" #FOz=1336P2:"a"+((z/2)-1),x(a$,z):z %c=12 :d=2:a=12 :b=2:p=0:t=150:o=0:7:1:0:0::10 ,2;"PULSE UNA TECLA PARA EMPEZAR":0::0,2;"PUNTOS";0,24;"TIEMPO" %&W0,11 ;x$;1,14;hi:23560\,0:u=1:1010 PLUS3DOS( ( (f(xJ)=f$ d(xJ)=e$ r(x )=asd+(*x) 25:5:0::asd=1:i$="x" ense=0  3000 9600%:g$=e$ =0,0;"Tienes que derivar la siguiente funcion:" !4,0;e$:9750& ,"Que funcion quieres derivar"'"f(x)= ";u$ u$""g$=u$ e$=g$:8000@ Z10 :15,0;"Niveles"''"0- Sin ayuda"'"1- Alto"'"2- Medio"'"3- Basico" j$=:j$=""2045 1ense=(j$="1")+2*(j$="2")+3*(j$="3") $21,0;"OK":10 : 0"En que punto quieres la derivada"'" x0= ";x0 515,0;"Su valor es ";d(x0):9750&  "Dime tu derivada"'f$ Wert=1.234567J:t=15:2067+((f(ert^t)-d(ert^t))<1e-6m7) K1,0:15,0;"Lo siento, es incorrecta":9750& ]Track-Info  R t:15,0;"En efecto,esta bien":.1}L,5:.2~L,20:9750& c17,0;"La funcion esta en explicitas(e)"'"y=f(x) ,o bien en implicitas(i)f(x,y)=0 ?" x(2)  '"(e/i) ";j$:jota=10 *(j$="i") #"f(x)= ","y=f(x)" $"f(x,y)= ","f(x,y)=0" %%:2083#+(j$="i"):u$:(u$);u$ *u$""g$=u$ -e$=g$ /: "Dime el punto (a,b) de la curva"'"x= ";ax1;" y= ";o$ 4o$""by1=o$:21059 7x=ax1:by1=g$ 9W2,0;"La ecuacion general de la recta"'"tangente en el punto (a,b) a la"; >." funcion ";:u$:u$;" es ":2120H+jota H29 ,8;"y-b = (f'x)*(x-a)":2140\ R18,11 ;"y-b";8,20;"x-a" T310 ,11 ;"f'x";10 ,20;"f'y" Wf9 ,16;"= -":87W,100d:25,0:160,100d:24,0 \imp=0:16,0;"Primero derivo la funcion y despues hallo su valor en el punto":9750&:2160p+4*jota ff.1}L,40(:20,0;"Derivada respecto a ";(120x+imp):p=1200:p k(e$=g$:i$=(120x+imp):8000@ p)2150f::x=ax1:fx=e$:2500 u.3,5:.2~L,30:10 ,0;"La recta es ,operando,"'"y= ";fx;" * x "; (43++2*(by1-fx*ax1<0));" ";(by1-fx*ax1):9750& Wf=01:imp=f:2150f::x=ax1:y=by1:x(f+1)=e$:2500 :f i$="x" :.3,5:.2~L,30:10 ,0;"La recta es ,operando,"'"y= ";-x(1)/x(2);" * x ";:iuy=by1+x(1)/x(2)*ax1:(43++2*(iuy<0));" ";iuy:9750& f5,0;"Esta derivada vale, en el punto (a,b), f'";(120x+imp);"= ";e$:9750& *"MENU GENERAL","1- PLANTEAR UN PROBLEMA" ,"2- OBTENER LA DERIVADA","3- APREDIZAJE ?" 6"4- DERIVADA EN UN PUNTO","5- COMPROBAR TU SOLUCION" !"6- RECTA TANGENTE EN UN PUNTO" X:2990 :t=17:z$:2*t+2,2;z$:.2~L,3*t i$="x" t /azx=:azx>546azx<4913020 2:2010+10 *(azx-480):3000 L.1}L,3:.15~,0:.1}L,20:0,0;"Funcion :"'g$;10 ,0;"Su derivada es :"'e$:9750& @_l(xx)=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^) C5:.1}L,5:0,0;"Funcion :";e$ E+d$=e$:8480 !:pvar=0e$="0": G)a$=e$:paren=0:8040h:e$=a$ H 9690% 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": TUnuevao=i+1:9700%:a$=e$(o+2i-1):paren=0:8040h UQ9690%:a$="1"b$""b$(b$)="*"b$=b$(1̱b$-1):8023W V b$=b$+a$ Wo=nuevao:oDZe$8012L Xb$=e$:7500L: Yense=197804& 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 1ense>29570b%-10 *(niv=0) (8100+100d*niv): a$=i$a$="1": A$=""+i$a$=""+i$: 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 Ra$="1/"+a$(2̱a$)+"^2"+"*"+0+"("+a$(2̱a$)+")":8130 Ta$="1/(1-"+a$(2̱a$)+"^2)"+"*"+0+"("+a$(2̱a$)+")":8130 Wa$=Track-Info  R "(-1)/(1-"+a$(2̱a$)+"^2)"+"*"+0+"("+a$(2̱a$)+")":8130 Sa$="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 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: %N.5,502:10 ,0:k=1ax:a$(a(k,2)+1a(k+1,1)-1);:kax1;a$(a(k+1,1)a(k+1,2));:k %S 9590v% %XB13 ,0;1;a$(1);0;a$(2̱a$); %] 9590v% %bo13 ,0;:k=1no:a$(b(k)+1b(k+1)-1);:kno1;a$(b(k+1));:k %g 9590v% %l;10 ,0;:g=14*32 :" ";:g: %vJ.1}L,20:.1}L,0:21,15;"C- Continuar " %xCj$=:j$""21,0;" ": %z 9592x% %.yai=0:par=0:yax=0:r$="" %"DIFICULTAD de 1 a 10 ";dif % ldif=1.5@*dif:9670% %Mr(2)>1.5@+yax*(dif<3)r$=r$+"x":yax=1:9642% %r$=r$+(491+r(8)) %]rx=r(10 ):(par>0)*((rx>3+2*ldif/r$)(dif*2dif)) %f(r(12 )>3+3*par+4)(r(3)dif)par=par+1:r$=r$+"(":9672% % r$=r$+(177+r(8)) %c(r(20)>6+(3+par)*(ldif/(3+1.5@*r$)))(dif546110n /N=1:SW=0:X=10 :Y=14 (T$*1000) MOVIMIENTO KIWI *60001a,3:60002b,2  A(6) 0A(1)=50000P:A(2)=50048 0A(3)=50096:A(4)=50144 0A(5)=50192:A(6)=50240@ $ L=6 .  7070 MOVIMIENTO ASTRONAUTA *60001a,2:60002b,3  A(4) 0A(1)=50288p:A(2)=50336 0A(3)=50384:A(4)=50432  L=4   7070 MOVIMIENTO CUCARACHA *60001a,3:60002b,2 A(2) 0A(1)=504800:A(2)=50528` L=2   7070 MOVIMIENTO BOLA *60001a,2:60002b,2  A(6) 0A(1)=50576:A(2)=50608 0A(3)=50640:A(4)=50672 0A(5)=50704:A(6)=507360  L=6  ~ 7070 MOVIMIENTO SALTA *60001a,2:60002b,3  A(3) 0A(1)=50768P:A(2)=50816 A(3)=50862  L=3  f 7070 pMOVIMIENTO PERRO z*60001a,2:60002b,2  A(4) 0A(1)=50910:A(2)=50946 0A(3)=50976 :A(4)=51008@  L=4  N 7070 XMOVIMIENTO DER.-IZQ. bT$= l'T$<79OůT$>81Q7010b v&T$=81Q61000H:40( A(N):X,Y;:6E4` N=N+1:N>LN=1 'SW=1ƯT$=79O61000H 3SW=0ƯT$=80P61012T:SW=1 1T$=79OY1SW=0:Y=Y-1 2T$=80PY28SW=1:Y=Y+1 A(N):X,Y;:6E4` A=120:A  7010b PLUS3DOSPd@`??׀/?`{@ ; -@ @@@Pd@`?׀?/`?v@6  @@d@`??׀/?`m@ -  @@ `d@`?׀?/`?m@ @ @@`@=d@`??׀/?`m@ - @t@d@`?׀?/`?u@6  !@@A r p0juO w@ pp$ > ~4 r p0juO w@ `@p(PTrack-Info  R  r p0juO w@ `  r p0juO w@   4^.  zAx,t/%̛3Of p zAx,t/%UO3b"p"x<8y>>>h/3891s~~==x p3#g|;|;| >''Oy66 03#g|;|;|x-p91s~~==Psp ?`{GX d  ?`@uK\ ` 0 ?`@{GX d :u`  `@5f 0x `:u` `0 :u` @PLUS3DOS^`C!![\R*v\y2x=0):i=1l Gc=c*(n-i+1)/((l-i+1)+(n-i+1)*(l-i+1=0)) i: p=1:i=1n  p=p*i:i: xper:nd1=0 j=1̱m$ nd1=nd1+(m$(j)=0) j:nn=n:pp=p:k=0 -j=1nd1:m$=m$(k+1):k=1 )m$(k)0k=k+1:1450 !n=m$(k-1):per:pp=pp/p  j:n=nn: nn=n:n=n+m-1  com:cr=c n=nn: 6#18,9 ;"(compruebalo)" @0#0;8;"Pulsa una tecla":0: &.1}L,15:.1}L,10 `:"Veamos...":"Cuantos elementos distintos hay?";n:1,1;"Tengo ";n;" elementos" T3,1;"-Mi problema es averiguar cuan-tos grupos puedo hacer con ellos" -"Cuantos elementos tiene cada grupo? ";m .3,0;31;" ";31;" " J3,1;"Quiero formar grupos de ";m;" ele-"'" mentos cada uno" %m>nrep=1:b$="":2050 b"Podemos repetir elementos? (s/n)";a$:rep=0:b$="No ":a$="s"a$="S"rep=1:b$="" A6,1;b$;(112p-32 *rep);"odemos repetir"; m>n", claro"  Z"Importa el orden? (s/n) ";a$:ord=0:b$="No ":a$="s"a$="S"ord=1:b$="" A8,1;b$;(105i-32 *ord);"mporta el orden"  C10 ,1;"Hay que aplicar la formula de:"''" ";:1 */ordp$="com":"Combinaciones ";:2120H 4.mnp$="per":"Permutaciones ";:2120H >p$="var":"Variaciones "; H"rep"con repeticion":p$=p$+"r" RC0:z=0:.2~L,10 :1600@:p$+3000 .:2,11 ;1;" Opciones "''' &.1}L,15:.1}L,10 ¡" 1)VARIACIONES"''" 2)VARIACIONES CON REPETICION"''" 3)PERMUTACIONES"''" 4)PERMUTACIONES CON REPETICION"''" 5)COMBINACIONES"''" 6)COMBINACIONES CON REPETICION" 1600@ %<491ů>5463030 9opc=:3050 :z=16:nl,p$:opc=znl z j4000,"var",4100,"varr",4300,"per",44000,"peTrack-Info  R rr",4200h,"com",4500,"comr" S:"VARIACIONES":.1}L,5:3,0;"V n,m=n(n-1)(n-2)...(n-m+1)" z4900$ &4970j:v:15906:100d Q:"VARIACIONES CON REPETICION":.1}L,5:3,0;"VR n,m=n^m"  z4900$ '4970j:vr:15906:100d hX:"COMBINACIONES":.1}L,5:3,0;"C n,m =n!/(m!(n-m)!) =V n,m/m!" mz4900$ r&4970j:c:15906:100d T:"PERMUTACIONES":.1}L,5:3,0;"P n=n!=n(n-1)(n-2)...3*2*1" z"Introduce n ";n &4970j:p:15906:100d 0:"PERMUTACIONES CON REPETICION":.1}L,5:3,0;"PR n,(x,y,..)=n!/(x!y!..)"'"(uno se repite x veces,otro y..)" 4z"Introduce n ";m 7"Cuantos elementos se repiten? ";h:m$="":k=1h:"Introduce cuantas veces se repi-te el elemento ";(k),a:m$=m$+a+0:k :,n=m:4970j:pp:15906:100d d:"COMBINACIONES CON REPETICION":.1}L,5:3,0;"CR n,m =(n+m-1)!/(m!(n-1)!)" z4900$ '4970j:cr:15906:100d $+"Cuanto vale n? ";n'"Cuanto vale m? ";m: j/10 ,2;"El resultado es: ";: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'''''''''