MV - CPCEMU Disk-File Disk-Info ZX-Modules(Track-Info  R ( *RTrack-Info  R DISK MICRO 7 14  AA + AB 4AC AD  !"#$%&'()*+,-AD .AE %/0123AF <456789:;BA <=BB Y>?@ABCDEFGHIBC JKLMNOPQRSTUVWXYBC 0Z[\]^_BC 0 `aBD bBD 0 cBE deBE 0 fBF gBF 0 hBG iBH jBI kBJ =lmnopqrsPLUS3DOS@ @DISKEADO POR MADFOX "MICRO"  300, "14" 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 14 (REVISTAS 53 a 56) 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-Le mans" 7,18;"B-Polino1" &8,3;"C-Loteria" 08,18;"D-Pinky" :9 ,3;"E-Integral" D 9 ,18;"F-Complejo" !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" HB$="1"100d R 500 --- MENU CARA B --- :5000:6000p 4,12 ;"CARA B" 7,3;"A-Frecuen" "7,18;"B-Montecarlo" 8,3;"C-Almacen" $ 8,18;"D-Cirujano" . 9 ,3;"E-Compresor" 8"9 ,18;"F-Descompres" B"10 ,3;"G-Microfile1" L#10 ,18;"H-Mocrofile2" V"11 ,3;"I-Microfile3" `#11 ,18;"J-Resolucion" !15,11 ;"1 - VOLVER" B$= B$=""1180 B$="A"B$="a""BA" B$="B"B$="b""BB" B$="C"B$="c""BC" B$="D"B$="d""BD" B$="E"B$="e""BE" B$="F"B$="f""BF" B$="G"B$="g""BG" B$="H"B$="h""BH" B$="I"B$="i""BI"  B$="J"B$="j""BJ" <B$="1"100d F 1000 --- CABECERA --- 51:0,4;"CINTAS MICRO N. XX" -2:0,16;"HOBBY":0 C3:1,6;"DISKEADO POR MADFOX":0:0 #3,8;"REVISTAS XX-XX"  p--- PIE DE PANTALLA --- z?1:20,0;" J, siempre... ILM " ?21,0;" ELIGE UNA OPCION ":0  PLUS3DOSur7:7:0::1;10 ,10 ;" PARE LA CINTA ":I=164@:.02{# =,I:I: 80:0:7:0:0:1: 2 8000@ d 9000(#  RUTINA PRINCIPAL V+="p"a$e$a$=d$:x=1:y=0 `,="o"a$d$a$=e$:x=-1:y=0 j,="q"a$c$a$=b$:x=0:y=-1 t+Track-Info  R ="a"a$b$a$=c$:x=0:y=1  a,b;" " a=a+(y):b=b+(x) a=21a=0 a=-1a=20 (a,b)=68D4200h 5(a,b)="@"h$="@":4500: Este es el 64 5(a,b)="&"h$="&":4500: Este es el 38 x5;a,b;a$ (bo=bo-10 :bo<0bo=0 21,10 ;bo;" "  bi,-5  1000 hpu=pu+20:.5,30:ba=ba+1:ba=9 pu=pu+bo:ni=ni+1::5,9 ;"BONUS ";bo;8,9 ;"NIVEL ";ni:200:6900 |#0;0,10 ;pu  Lg=04:f=144147:a,b;f:.04|# =,0:f:g cf=010 :a,b;6;0;"":10 :2;0;a,b;"":10 :f >vi=vi-1:21,24;vi:vi=085004! )bo=bo-300,:bo0bo=0 21,10 ;bo =a,b;h$:a=12 :b=9 :x=1:y=0:a$=d$   TABLERO W:0:f=02:l=(*3):7000X+(l*100d):f:7250R bG"@@ && &&&&& &&&&&&& &&& &&&& @";"@@ @" lG"@@ @@@ @ @";"@@&&& @&&&& @ &&&&& &@& @" vj"@@ @ @ & @";"@@ @@ @ @@@ @";"@@ @@ @@@@@ @@@@@@@ @@@ @@@@ @"  G"@& @@ &&&&& @@@&&&& &&& &&&& @";"@ @@ @@& @" G"@ @@@&& &&&@& @@ @@ @@ @";"@ &&&& @ && && && &&& @" j"@ & @";"@ @ @@ @";"@@ @@ @@@@@ @@@@@@@ @@@ @@@@ @"  *I"@& && @&&&@ @&&&&&& &&& &&&& @";"@ @ @ @ @" 4G"@ @ @ @ & &@& @@@@@ @@@";"@ && & @ & & &&&&& &&@" >j"@ @ @ @";"@ @ @ @";"@@ @@ @@@@@ @@@@@@@ @@@ @@@@ @" H K4;1,7;"";5,13 ;"";2,28;"" M4;8,8;"";10 ,15;"";11 ,29;"" O4;15,16;"";17,11 ;"";19,22;"" Obo=2000:ba=0:x=1:y=0:a=12 :b=9 :a$=d$ A21,2;"BONUS ";bo;21,17;"VIDAS ";vi F#0;1,2;"RECORD ";re;1,17;"POR ";r$ M#0;0,2;"PUNTOS ";pu;0,17;"NIVEL ";ni;" " ,bi=bi-.02{# =:bi0bi=.001wn  1000  GRAFICOS @M8030^:645688:f=65338:65365U:a:f,a:f:65338: E08010J:f=0557:a:"a"+f,a:f J724,153,255,165,36$,165,255,189,189,255,165,36$,165,255,153,24,238,68D,252,199,199,252,68D,038,119w,34",63?,227,227,63?,34",119w T32 ,568,62>,60<,480,32 ,32 ,32 ,1,16,66B,64@,9 ,178,76L,246,0,0,0,0,16,20,44,,118v ^33!,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 h68043k:f=07:a:648259+f,a:f kQ255,129,189,129,255,255,255,255 m68048p:f=07:a:64617i+f,a:f pO255,129,189,129,255,85U,170,85U r:re=500:r$="CESAR":b$="":c$="":d$="":e$=""  100d !4>10 ,11 ;1;"GAME OVER":1.5@,0: !>zpurere=pu:7,11 ;"!!RECORD!!";9 ,14;pu;11 ,4;"ESCRIBE TU NOMBRE (max.9)":r$ !Cr$>9 8510>! !H!.6,30::9000(# "  MENU #($2,12 ;" MENU " #2b6,10 ;"1.-JUGAR";8,10 ;"2.-INSTUCCIONES";10 ,10 ;"3.-RESETEO" #"4"9020<# #FD="1"bi=.2~L:vi=3:ni=1:pu=0:6900 #P="2"9500% #Z="3"0 %%:3,10 ;" LE MANS " %&5,0;"Debes conducir tu coche por el recorrido,procurando no chocartecontra los muros y recogienTrack-Info  R do las banderas en el menor tiempo posible." %011 ,10 ;"TECLAS:";14,3;"O.-Izquierda P.-Derecha";16,3;"Q.-Arriba A.-Abajo" %:`18,10 ;"RECUERDA:";19,0;1;"NO HAY FRENOS NI MARCHA ATRAS!" %D,#0;" PULSA UNA TECLA":0: % 9000(# '" LE MANS "1 PLUS3DOSm mr7:7:0::1;10 ,10 ;" PARE LA CINTA ":I=164@:.02{# =,I:I: Rflm=0:v$="":100d:142:d(21,3,5):200 v5:5:1::3,3;"OPERACIONES CON POLINOMIOS";6,0;"Selecciona opcion:" 10 ,7;"1)SUMA";12 ,7;"2)RESTA";14,7;"3)PRODUCTO";16,7;"4)COCIENTE";18,7;"5)M.C.D.";20,7;"6)NUEVO.POL." r2:45-,0:0,102f:120x,0:0,-102f:-120x,0:1 #=13 3900< (#<491ů>54635# 2Sope=:8+2*ope,18;1;2;"":502:502: dFfix=3:p(21,7):i="a""a"+71G:i,0:i n:i="a""i"8:j=04:a:i+j,a:j:i: x96`,144,32 ,64@,240,96`,144,32 ,144,96`,16,480,80P,248,16 240,128,224,16,224,96`,128,224,144,96`,240,16,32 ,64@,64@ 96`,144,96`,144,96`,96`,144,112p,16,96`,76L,210,82R,82R,76L p$="1":q$=p$:d$="x" ]"Nombre de la variable? ";w$:.02{# =,10 :w$""w$=w$(1):3850 :d$=w$ O:17,0;"Introduce el primer polinomio:":pol=1:1300 3r$""185:b$=r$:1000:p$=b$:x$=m$ P:17,0;"Introduce el segundo polinomio:":pol=2:1300 3r$""185:b$=r$:1000:q$=b$:y$=m$  Yn=121:m=12:p(n,pol+2)=0:p(n,m)=0:m:n: 10 : D10 ,10 ;1;"CALCULANDO":1300+100d*ope 900:800  0#0;"Pulse una tecla":0:200  ?0,0;"p(x)= ";p$;2,0;"q(x)= ";q$'': z$="":v=121 !p(v,7)=0930 1z$=z$+"+"+p(v,7)+"*"+d$+"^"+(v-1) v: obtencion del polinomio +i=1:n$="":w=1̱b$:a$=b$(w) ,a$d$((a$"+"a$"-")n$="")n$=n$+a$:w n$=""n$="+"n$="1" n$="-"n$="-1" p(i,1)=n$:n$="" $)w>b$p(i,2)=0:1150~ .(a$="+"a$="-"i=i+1:1020 8/a$=d$w=b$p(i,2)=1:1150~ B<b$(w+1)<144p(i,2)=1:1150~ L'p(i,2)=b$(w+1)-142 V w=w+1 ~i=i+1:w v=1:m$="" m$=m$+"+"+p(v,1)+"*"+d$+"^"+p(v,2):p(p(v,2)+1,pol+2)=p(p(v,2)+1,pol+2)+p(v,1) :v=v+1:v12 p(v,1)01170  b$="" =i=213-1:1290 :a$="0"1250 .i11 b$=b$+(141+i):1250 b$=b$+"^"+(i-1) i:i=2  1290  -i=1:1290 :b$=b$(̱b$-(a$"0")) b$=""b$="0" "b$(1)="+"b$=b$(2)   ca$=((p(i,7)*10 ^fix+.5)/10 ^fix):p(i,7)=1i1a$="" Ub$=b$+(43++2*(p(i,7)<0))+a$+d$:a$="0"b$=b$(̱b$-3)  Entrada de daTrack-Info  R tos C#0;1;"L":r$=" ":shift=0:pr=0:0 (=""1320( 2Q="^"shift=94^:#0;1,pr;"^":.02{# =,15:1390n <=12 pr=(pr-(shift=0))*(pr>0):shift=0:#0;1,pr;" ":r$=r$(pr+1):.02{# =,-10 :1390n F-=13 .02{# =,15:1395s Zdat=shift+(shift0Ʀ="0")*10 +:#0;1,pr;dat:r$=r$+dat:.02{# =,9 :shift=0:pr=pr+1 nO#0;1,pr+(shift0);1;"L":1390n-(="")*70F s8#0;1,0;31:r$=r$(2): x|k=121:p(k,7)=p(k,3)+p(k,4):k:1200::5,0;"suma(";d$;")= ";b$:v$=b$: }k=121:p(k,7)=p(k,3)-p(k,4):k:1200::5,0;"resta(";d$;")= ";b$:v$=b$: @-l=111 :p(l,7)=0:l J(l=111 :m=111 TOp(l+m-1,7)=p(l+m-1,7)+p(l,3)*p(m,4):m:l ^A1200::5,0;"producto(";d$;")= ";b$:v$=b$: In=121:p(n,5)=p(n,3):p(n,7)=0::n gra1=21:gra2=21 8p(gra2,4)=0gra2=gra2-1:1720 Fgra10p(gra1,5)=0gra1=gra1-1:1730 gra2>gra11785 kp(gra1-gra2+1,7)=p(gra1,5)/p(gra2,4):n=121:p(n,6)=0:n Un=1gra2:p(n+gra1-gra2,6)=p(n,4)*p(gra1-gra2+1,7):n on=1gra1:p(n,5)=p(n,5)-p(n,6):p(n,5)=p(n,5)ƽp(n,5)>1e-5p'ŬF:n  1730 ope=5 1200:c$=b$:v$=b$:n=121:p(n,7)=p(n,5):n:1200::5,0;"cociente(";d$;")= ";c$''"resto(";d$;")= ";b$: Mn=121:p(n,1)=p(n,3):p(n,2)=p(n,4):n  1700 res=0:n=121:p(n,5)=p(n,5)(p(n,5)>1e-5p'ŬF):res=(res=1)(p(n,5)0):n %flm=0res=01830& !nh=211-1:p(h,5)0o$=o$+h:d(o$,3,4)=-p(h,5):h=1 #h &gres=1n=121:p(n,3)=p(n,4):p(n,4)=-p(n,5):n:1810 +flm=1 0n=121:p(n,7)=p(n,4):p(n,3)=p(n,1):p(n,4)=p(n,2):n:1200::5,0;"Max.Comun.Divisor= ";b$:v$=b$: lF:145::800 :5,0;"(La variable es ";d$;")" v8,0;"El ultimo resultado fue :"''" ";v$''"Si desea introducirlo en p o q pulsa esa tecla. En caso contra-rio pulsa cualquier otra":0 G="p"r$=v$:b$=r$:pol=1:185:1000:p$=v$:x$=m$ G="q"r$=v$:b$=r$:pol=2:185:1000:q$=v$:y$=n$ :   < 35# PLUS3DOStr7:7:0::1;10 ,10 ;" PARE LA CINTA ":I=164@:.02{# =,I:I: y=0 g(6) f(6) q=0  w=5 2 a(12 ) 3 7000X 4 85004! 6 7 2000 83:17,2;"Cuantos bloques a rellenar?" 9 c1=2 :j ; < s=1j F u=1 dt=1a2 ea(t)=0 ft x 4931C b=1a2 y=(1+*491) r=1u y=a(r)190 r w,5;" " w,5;y a(u)=y u=u+1 w=w+c1 7940 ,b 6 w=5 T+21,1;"Pulsar para continuar" ^ 5000 ca2>6401 s "OTRA?(s/n)";s$  s$="s"2000 s$"s"9999'  k3,2;"Introduzca los 6 num. de la";4,1Track-Info  R ;"combinacion";5,1;"ganadora"  4933E d=16 "Numero:";g(d) y=g(d) $ 7940 .d 3 40( 8r3,2;"Introduzca los num. ";4,1;" de su bloque";5,1;" " Bo=16 L"Numero:";f(o) Vo `o=16 jd=16 tf(o)=g(d)q=q+1 ~d o +19,2;"Tiene ";q;"! aciertos" '21,2;"Otro bloque?(s/n)" p$ mp$="s"19,2;" ";21,2;" ":q=0:10808   9999' y:10 ,3;"Tipo de boleto:";11 ,7;"1-Apuestas sencillas";12 ,7;"2-Apuestas multiples" k !k=1a2=6:568 k=22050  2010 M:12 ,2;"De cuantos num. quiere el";13 ,6;"bloque?"  a2 a2=7b3=a2  a2=8b3=28 *a2=9 b3=84T 4a2=10 b3=210 >a2=11 b3=462 Ha2=12 b3=924 I$a2<7a2>12 2050 Mb4=b3*25 R8:12 ,1;"Esas apuestas son ";b4;" pesetas" \ 120x a j=1 b c1=1 f :59; C D2,10 ;"BLOQUE ";s E 3 L v=1 Vn=15272 `m=5172  m,n;" " m,n;v  v=v+1 m n  h=120x23216 h,28:0,111o h l=2814416  120x,l:112p,0 l  7  X$a=0 7:b:"r"+a,b:a ]$a=0 7:b:"k"+a,b:a b192,480,12 ,3,3,12 ,480,192,3,12 ,480,192,192,480,12 ,3 j z=y/7:z=zi=17 )z=(y-6)/7:z=zi=15 )z=(y-5)/7:z=zi=13 ")z=(y-4)/7:z=zi=11 ,(z=(y-3)/7:z=zi=9 6(z=(y-2)/7:z=zi=7 @(z=(y-1)/7:z=zi=5 ,c=2*(8+((y-1)/7)) i,c-1;""  !44:7:0 !5 !6.3,7:.3,7:.3,7:2,3:.3,5:.3,5:.3,5:2,2 !9&2,7;"LOTERIA PRIMITIVA" !>125},110n,20 !H)113q,110n:24,0, !RQ111o,110n:3,1,:136,111o:3,-1, !\t15,2;"Indique opcion:";16,7;"1-Rellenar boleto";17,7;"2-Comprobar aciertos" !]d !^0:1:7 !_d=1546 !`d=21000 !a 8541]! !fj !p0:1:7 !q '10 ,14;"FIN" PLUS3DOSBBBo7:7:0::1;10 ,10 ;"PARE LA CINTA":I=115:.5,I:I: ALUIS MIGUEL LACOSTA JIMENEZ C/ BATALLA DE PAVIA,10,5,B ZARAGOZA 64903:4040  4000 cp=p+1:ep=p+1+(1ƥ>(p/7)):dp=1:sa=0:4010:4060 (~ex=(*15)*2+1:ey=(*9 )*2+1:m$(ey,ex)"0"Ž(py-ey)<6Ž(px-ex)<640( 2Nex1=ex:ey1=ey:inke=(*4)+3:inke;ey,ex;g$;ey+1,ex;h$ <.5,2:.5,7:.25~,2:.25~,3:.5,7:.5,3:.65&fff,2 Fj$=:160-(80Pj$="5"px>1)-(60<j$="6"py<19)-(40(j$="7"py>1)-(20j$="8"px<29)+(290"j$="9") PNdp=0:px1=px-1:m$(py,px1)"0"m$(py+1,px1)"0"155 Zsa=1sa=0:sc=sc+2:py,px;i$;py+1,px;i$:k=1+dp*4+sa*2:px=px1:7;py,px;a$(kk+1);py+1,px;b$(kk+1);#0;8;1,4;sc:160 d^dp=1:py1=py+1:m$(py1+1,px)"0"m$(py1+1,px+1)"0"155 nsa=1sa=0:sc=sc+2:py,px;i$;py+1,px;i$:k=1+dp*4+sa*2:py=py1:7;py,px;a$(kk+1);py+1,px;b$(kk+1Track-Info  R );#0;8;1,4;sc:160 xNdp=2:py1=py-1:m$(py1,px)"0"m$(py1,px+1)"0"155 sa=1sa=0:sc=sc+2:py,px;i$;py+1,px;i$:k=1+dp*4+sa*2:py=py1:7;py,px;a$(kk+1);py+1,px;b$(kk+1);#0;8;1,4;sc:160 ^dp=3:px1=px+1:m$(py,px1+1)"0"m$(py+1,px1+1)"0"155 sa=1sa=0:sc=sc+2:py,px;i$;py+1,px;i$:k=1+dp*4+sa*2:px=px1:7;py,px;a$(kk+1);py+1,px;b$(kk+1);#0;8;1,4;sc:160 ak=1+dp*4+sa*2:7;py,px;a$(kk+1);py+1,px;b$(kk+1) *pru=0:>.5px=ex260 +pru=1:(ex-px)=-1220 Rex1=ex-1:m$(ey,ex1)"0"m$(ey+1,ex1)"0"m$(ey,ex1)"2"260 %200+(10 m$(ey,ex1)="2") Tey,ex;i$;ey+1,ex;i$;inke;ey,ex1;g$;ey+1,ex1;h$:ex=ex1:380| f=111 2:ey,ex-2;c$(ff+1);ey+1,ex-2;d$(ff+1):.001wn,3:f:ey,ex;i$;ey+1,ex;i$;inke;ey,ex1;g$;ey+1,ex1;h$:ex=ex1:m$(ey,ex-1ex)="00":m$(ey+1,ex-1ex)="00":380| jex1=ex+1:m$(ey,ex1+1)"0"m$(ey+1,ex1+1)"0"m$(ey,ex1+1)"1"260 -240+(10 m$(ey,ex1+1)="1") Tey,ex;i$;ey+1,ex;i$;inke;ey,ex1;g$;ey+1,ex1;h$:ex=ex1:380| f=37%47/2:ey,ex+2;c$(ff+1);ey+1,ex+2;d$(ff+1):.001wn,3:f:ey,ex;i$;ey+1,ex;i$;inke;ey,ex1;g$;ey+1,ex1;h$:ex=ex1:m$(ey,ex+1ex+2)="00":m$(ey+1,ex+1ex+2)="00":380| py=ey360h (ey-py)=-1320@ Rey1=ey-1:m$(ey1,ex)"0"m$(ey1,ex+1)"0"m$(ey1,ex)"3"360h "%300,+(10 m$(ey1,ex)="3") ,Tey,ex;i$;ey+1,ex;i$;inke;ey1,ex;g$;ey1+1,ex;h$:ey=ey1:380| 6f=2535#2:ey-2,ex;c$(ff+1);ey-1,ex;d$(ff+1):.001wn,3:f:ey,ex;i$;ey+1,ex;i$;inke;ey1,ex;g$;ey1+1,ex;h$:ey=ey1:m$(ey-1,exex+1)="00":m$(ey,exex+1)="00":380| @jey1=ey+1:m$(ey1+1,ex)"0"m$(ey1+1,ex+1)"0"m$(ey1+1,ex)"1"360h J-340T+(10 m$(ey1+1,ex)="1") TTey,ex;i$;ey+1,ex;i$;inke;ey1,ex;g$;ey1+1,ex;h$:ey=ey1:380| ^f=13 232:ey1+1,ex;c$(ff+1);ey1+2,ex;d$(ff+1):.001wn,3:f:ey,ex;i$;ey+1,ex;i$;inke;ey1,ex;g$;ey1+1,ex;h$:ey=ey1:m$(ey1+1,exex+1)="00":m$(ey1+2,exex+1)="00":380| hpru=0170 r 70F |-(ex-px)>1Ž(ey-py)>170F k=1+dp*4+sa*2:f=70-1:.005y# =,f:f;py,px;a$(kk+1);py+1,px;b$(kk+1);inke;ey,ex;g$;ey+1,ex;h$:f y0.9ffff,-14:.9ffff,-12 :.4L,-14:.4L,-12 :.4L,-10 :.5,-12 :236066\,0:236077\,60<:3,0;4;" PINKY PINKY ";19,0;1;" OTRA PARTIDA? (S/N) ";6;6,8;"CUANTO LO SIENTO";8,9 ;"TE HA DEVORADO":sc>hs14,4;"PERO SUPERASTE EL RECORD";16,8;"EN1"+21+1+8;sc;21+0+" PUNTOS":hs=sc j$=:j$="S"j$="s"20 j$"N"j$"n"420  10000' 460+110n*dp :px=1m$(py,px-(1px>1))"2"160 ֡m$(py,px-2px-1)="00":m$(py+1,px-2px-1)="00":by=py:r=px-21-1:(ex-r)=2ƽ(ey-by)1520 7r=1m$(by,r-(1r>1))="2"510 4by,r-1;":; ";by+1,r-1;"<= ":r 5600:70F (ey-by)=1510 Ur=r-21-1:r=1m$(by,r-(1r>1))="2"550& eby,r-1;inke;g$;by+1,r-1;h$:by,r+1;":; ";by+1,r+1;"<= ":r &by,r;" :; ";by+1,r;" <= ":f=inke0-.5:f;by,r;"L";by+1,r;"M":.005y# =,f:f:by,r;":; ";by+1,r;"<= "Track-Info  R         :m$(by,rr+1)="12":m$(by+1,rr+1)="34":2000 0jf=111 2:by,r;c$(ff+1);by+1,r;d$(ff+1):.001wn,3:f: :<py=19m$(py+(2py<19),px)"1"160 Dm$(py+2,pxpx+1)="00":m$(py+3,pxpx+1)="00":bx=px:r=py+219:(ey-r)=2ƽ(ex-bx)1630v X9r=19m$(r+(2r<19),bx)="1"620l b/r+2,bx;f$;r+1,bx;e$;r,bx;i$:r l670:70F v(ex-bx)=1620l Or=r+219:r=19m$(r+(2r<19),bx)="1"660 Xinke;r+2,bx;h$;r+1,bx;g$:r,bx;f$;r-1,bx;e$;r-2,bx;i$:r r+1,bx;i$;r,bx;f$;r-1,bx;e$;r-2,bx;i$:f=inke0-.5:f;r+1,bx;"JK":.005y# =,f:f:r+1,bx;f$;r,bx;e$;r-1,bx;i$:m$(r+1,bxbx+1)="34":m$(r,bxbx+1)="12":2000 kf=13 232:r,bx;c$(ff+1);r+1,bx;d$(ff+1):.001wn,3:f: :py=1m$(py-(1py>1),px)"3"160 m$(py-2,pxpx+1)="00":m$(py-1,pxpx+1)="00":bx=px:r=py-21-1:(ey-r)=2ƽ(ex-bx)1740 7r=1m$(r-(1r>1),bx)="3"730 /r-1,bx;e$;r,bx;f$;r+1,bx;i$:r 780 :70F (ex-bx)=1730 Ur=r-21-1:r=1m$(r-(1r>1),bx)="3"770 Xinke;r-1,bx;g$;r,bx;h$:r+1,bx;e$;r+2,bx;f$;r+3,bx;i$:r inke;r,bx;i$;r+1,bx;e$:r+2,bx;f$;r+3,bx;i$:f=inke0-.5:f;r,bx;"JK":.005y# =,f:f:r,bx;e$;r+1,bx;f$;r+2,bx;i$:m$(r,bxbx+1)="12":m$(r+1,bxbx+1)="34":2000  kf=2535#2:r,bx;c$(ff+1);r+1,bx;d$(ff+1):.001wn,3:f: >px=29m$(py,px+(2px<29))"1"160  m$(py,px+2px+3)="00":m$(py+1,px+2px+3)="00":by=py:r=px+229:(ex-r)=2ƽ(ey-by)1850R 49r=29m$(by,r+(2r<29))="1"840H >$by,r;" :;";by+1,r;" <=":r H890z:70F R(ey-by)=1840H \Or=r+229:r=29m$(by,r+(2r<29))="1"880p fdby,r-2;" :;";by+1,r-2;" <=";inke;by,r+1;g$;by+1,r+1;h$:r pby,r-2;" :; ";by+1,r-2;" <= ":f=inke0-.5:f;by,r+1;"L";by+1,r+1;"M":.005y# =,f:f:by,r-1;" :;";by+1,r-1;" <=":m$(by,rr+1)="12":m$(by+1,rr+1)="34":2000 zkf=37%47/2:by,r;c$(ff+1);by+1,r;d$(ff+1):.001wn,3:f: Дsc=sc+250:#0;1,4;8;sc:ep=ep-1:ep=0236066\,0:236077\,60<:3000 :30  40( /9000(#:f=128:n,m:n,m:f: -:1,0;2;" REGLAS DEL JUEGO ":4:4,8;"5......IZQUIERDA";6,8;"8........DERECHA";8,8;"6..........ABAJO";10 ,8;"7.........ARRIBA";12 ,8;"9........EMPUJAR";15,4;5;1;"PINKY SE HA METIDO EN LA NEVERA;EVITA QUE EL MONSTRUO DE LAS TINIEBLAS LE DEVORE PARA ELLO DEBERAS APLASTARLO CON LOS CUBITOS DE HIELO";21,0;2;" PULSE UNA TECLA PARA JUGAR ":0:sc=1000000t$:p=0: +:#0;3;0,5;"PUNTOS";0,21;"RECORD":236066\,136:236077\,252:1:1:0,0;"NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN";21,0;"NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN":f=120:f,0;"N";f,31;"N":f  5:f=1192:f,1;":;:;:;:;:;:;:;:;:;:;:;:;:;:;:;";f+1,1;"<=<=<=<=<=<=<=<=<=<=<=<=<=<=<=":m$(f)="121212121212121212121212121212":m$(f+1)="343434343434343434343434343434":f:23268Z,0:23284Z,0 {f=23269Z23274Z:f,6:f+16,6:f:#0;8;1,4;sc;1,20;hs: :0:7:0:0:0:0:0::10 ,9 ;"ESPERE UN POCO":8000@:f=15616=15823=:f+49288,Track-Info  R         f:f:f=65112X65535:a:f,a:f m$(20,30):a$="fgjgOPSTWX[\_`_c":b$="hiklQRUVYZ]^abde":c$=":?>?>CBCB >?>?BCBC :;>?>?BCBC >;>?B?BC C ":d$="x106j,"aebececdcfcccgcbdgdbchebcifbcjgbckhbclhacmhcbmhdbnhedmiedndieneifnfifmfhflghfkhhgnihhniginfehmeehldehkijhj" !H118v,"ajbjbicjbkbhdjblbgejclbmbffjdlbnbegjelcnbdhjdnbchiijenbbhhikfnbaghihilgncaggfhhlhndagfehglineageffdhfagdefgagcdfhagbia" !R116t,"fadofbdnfcdmecdldcelccflcbfmgcfnhcgnhbgmibhmfdimfecleegebldehebmdfhfbncfifbkcgjfckchdkbhhgdjahhhcjdhhibjehcifhgidifi" !\124|,"achebcgeccfedceeecdefccegcbehcbficbgjccgbhjddgbijeegbjjffgbkjgggbljhhgbmjibnjjcnjkdnjlenjmfnjngninhnhmhlhkhjhigifieididjdkdl" !f128,"abjnbbincbhndbgnebfnfbengbdnhbcnibbnicbmidbliebkifbjigbiihbhhhchghdhfhehgddlfdeledflddglcdhlbdilbejlbfjkcfjjdfijefhjffgjgffjejdj" !p114r,"baiabbibbcicbdidcdbeieddbfifedbgigfdbhihgdbiiihhbjijbkcjikghblildjbmhlfhbnglejcngmehcmhmfjdmimdhdningjenhnemgnfmfn" #(.9ffff,4,.5,5,.5,7,.5,7,.5,5,.5,4,.5,2,.5,0,.5,0,.5,2,.5,4,.9ffff,4,.3,2,.9ffff,2,.9ffff,4,.5,5,.5,7,.5,7,.5,5,.5,4,.5,2,.5,0,.5,0,.5,2,.5,4,.9ffff,2,.3,0,1,0 &RUTINA GRAVACION  &"PINKY"10 :10000' 'RUTINA RESTAURAR  'Z0:0:7:0:7::236077\,60<:236066\,0 PLUS3DOSHr7:7:0::1;10 ,10 ;" PARE LA CINTA ":I=164@:.02{# =,I:I: !i="a""a"+23:a:i,a:i l0,14,22,22,16,16,16,16,16,16,24,24 h24,24,24,24,8,8,8,8,8,72H,72H,480 6:6  W0:2,0;" NOTA:EL ERROR DE INTEGRA- CION PUEDE SER APRECIABLE SI EL NUMERO-PRECISION ES BAJO ,SIN EMBARGO,EL TIEMPO DE EJECUCION CRECE SI LO HACE ESTE. 4 O 5 SON BUENAS SOLUCIONES SI LAS FUNCIONES A INTEGRAR SON SENCILLAS. EL ERROR DE INTEGRACION ES MENOR O IGUAL QUE LA AMPLITUD DEL INTERVOLO DIVIDIDO POR 180 YPOR 16^(NUM-PRECISION) Y TODO MULTIPLICADO POR EL VALOR MAXIMO DE LA DERIVADA CUARTA DE LA FUNCION INTEGRADA EN EL INTERVALO. PULSA UNA TECLA PARA CONTI-NUAR." N18,4;" INCLUYE SIEMPRE ""ABS"" EN LA BASE DE LAS POTENCIAS (^)" 621,0;" PULSA UNA TECLA PARA CONTINUAR"  0  d"Mete f(x)=";c$ nf(x)=c$ xQd(xp)=(1+((f(x+1e-5p'ŬF)-f(x-1e-5p'ŬF))/2e-5q'ŬF)^2) "Limite inferior a=";a "Limite superior b=";b "Precision(de 3 a 9)=";j ?0:14,22;"b=";b:13 ,22;"a=";a 17,0;"f(x)=";c$ M0:i=016:i,0;" ":i:6 F5:151,107k:-127,0:0,60< z2,5:1:18,1;"INTEGRAL:":20,1;"I=":2000:20,6;"f(x) dx" d=(b-a)/2^j Qi=f(a):l=d(a):v=*f(a)^2:ar=2**f(a)*d(a):max=i:xmax=a ȓx=a+2*db2*d:f=f(x):e=d(x):i=i+2*f:l=l+2*e:v=v+2**f^2:ar=ar+4**e*f:f>maxmax=f:xmax=x x 7i=i-f:l=l-e:v=v-*f^2:ar=ar-2**f *e x=a+db2*d:f=f(x):e=d(x):i=i+4*f:l=l+4*e:v=v+4**f^2:ar=ar+8**e*f:f>maxmax=f:xmax=x x f(b)>maxmax=f(b):xmax=b =i=i*d/3:l=l*d/3:v=v*d/3:s=ar*d/3 8f(xmax)>015,22;"max=":280 15,22;"min=" Track-Info  R         16,22;f(xmax) ,5:32 ,104h:0,8:143,104h:0,8:5;0;9 ,4;"a":5;0;9 ,18;"b" 6 5:f0=1:500 @Q1,5:1:1,22;"I=":2,22;i:502 E""QUIERES SU LONGITUD? (S/N)";t$ Jt$="n"360h T2,10 :18,1;"LONGITUD: ":20,1;"L=":2000:2500 :" dx":200:1,10 :4,22;"L=":5,22;l:100d w2,20:2:18,1;"VOLUMEN DE REVOLUCION:":20,1;"V=":2000:19,5;" ":20,5;"*f(x)^2 dx " z0;9 ,4;" ":0;9 ,18;" ":5:24,107k:-24,-24:f0=-1:500:550&:1,20:2:7,22;"V=":8,22;v:502 |$"QUIERES LA SUPERFICIE? (S/N)";T$ t$="n"450 2,40(:2:18,1;"SUPERFICIE LATERAL: ":20,1;"S=":6;20,5;" ":2000:2500 :"*2*f(x) dx" L200:1,40(:10 ,22;"s=":11 ,22;s  :502: Px=a:f=f(a)*f0:1550:x=ab(b-a)/22:f=f(x)*f0:1500:x: ')x0=b:y0=f(b):y0>01000 ()x0=a:y0=f(a):y0>01000 )=((xmax-a)*(xmax-b))>0x0=xmax:y0=max:1000: * |x=x0:f=y0:1550:t=02*2*/30:x=x0-(y0/max*t)*(b-a)/5.50:f=y0*t:1500:t: +x(xkY)=(x-a)*111o/(b-a)+32 & y(fzg)=f*63?/max+107k 'x(x)-x1,y(f)-y1:x1=x(x):y1=y(f) x1=x(x):y1=y(f):x1,y1: u20,3;"":19,3;"":21,3;"":21,4;"a":19,4;"b": j40(,12 :4,-4:4,10 :63?,0:20,6;"1+[f]'^2";: ("INTEGRAL"1 PLUS3DOS,,r7:7:0::1;10 ,10 ;" PARE LA CINTA ":I=164@:.02{# =,I:I: 5:5: +k=17:a,b,c,dd:100d:k !i="a""a"+15:a:i,a:i ~0,1,0,31,4,4,2,11 ,7,7,2,11 ,10 ,10 ,2,11 ,13 ,13 ,2,11 ,16,16,2,11 ,4,21,14,31,64@,64@,64@,64@,64@,64@,127,127,0,24,36$,36$,24,0,0,0 _ 130 di=ab:j=cdd ni,j;7;" " xj:i: 4d=0:z(10 ,4):r(5,5) v7:4,0;"u";7,0;"v";10 ,0;"x";13 ,0;"y";16,0;"z" 6:183,0:0,144:255,72H:-144,0:1:183,72H,72H:0 +6;19,0;" Xmax " +6;21,0;" fix " 75;4,1;"*":a1=1:a4=4 950:960 )502:b$="":pr=0:1000 Қborra=0:w(2):M(15,3):o$(15):P(10 ):n$="":ind=1:jnd=1:knd=2:p(1)=1:num=0 Jw=1̱b$:a$=b$(w) O0a$="("p(knd)=ind:knd=knd+1:500 TOa$="."(a$480Ưa$579)n$=n$+a$:num=n$:jnd=1:500 Yn$="" Z2a$="-"w=1n$=a$:num=-1:500 [xw1a$="-"(b$(w-1)480Ưb$(w-1)579)b$(w-1)")"n$=a$:num=-1:500 ^Ka$="^"a$="+"a$="-"a$="*"a$="/"600X:ind=ind+1:500 h5a$="i"num=numnum=0:jnd=2:500 r@a$=""m(ind,2)=num:jnd=2:4900Track-Info  R         $:500 |'a$=""m(ind,1)=num:500 >600X:knd=knd-1:p(knd)=0:w=b$510 .b$(w+1)=")"num=m(ind,jnd):500 ua$=b$(w+1):o$(ind)=a$:m(ind,3)=1+(a$="*"a$="/")+2*(a$="^"):ind=ind+1:w=w+1 w:a$="":600X am(2,1)0Űm(2,2)0num=m(ind,jnd):600X:510 G900:rp1=m(1,1):rp2=m(1,2):3300 D0,pr+1;"=";c$:.1}L,10 ::.1}L,5:w(1)=m(1,1):w(2)=m(1,2):800 :3000 NAi=031:0,i;" ";1,i;" ":i:200 Xbm(ind,jnd)=num:o$(ind)=a$:m(ind,3)=1+(a$="*"a$="/")+2*(a$="^"):num=0 bind1m(ind,3)m(ind-1,3)p(knd-1)ind100d*o$(ind-1)-5400*(o$(ind-1)="^"):630v l v^m(ind-1,3)=m(ind,3):o$(ind-1)=o$(ind):ind=ind-1:610b:  k=1d z(k,3)=(z(k,2)-z(k,1))*(z(k,2)>z(k,1))+z(k,1):z(k,3)=(z(k,3)/71G)(z(k,3)71G):z(k,4)=(z(k,3)>1) k183,72H:borra;z(k,4)+1;z(k,1)/z(k,3),z(k,2)/z(k,3):k: ;k=1d:j=12:w(j)=z(k,j):j:810*  $d=d+1:k=dd:lastx=71G *9j=12:z(k,j)=w(j)*lastx/xmax:j:705 _k=12:m(1,k)=(((m(1,k)*10 ^fix)+.5)/10 ^fix):k: A"fix ";fix:.01z# =,9 :6;21,7;fix: `"Xmax ";xmax:.02{# =,9 :6;19,7;12 ;19,7;xmax: =""1000 !a$=:=""a$="":1050 =""a$="":1050 ia$"."a$"^"a$"+"a$"-"a$"*"a$"/"a$"("a$")"a$"i"(a$480Ưa$579)1055 <b$=b$+a$:pr=pr+1:.02{# =,9 :0,pr;a$ Da$=12 pr1b$="":0,pr;" ":a$="":pr=0 $^a$=12 pr>1pr=pr-1:a$="":0,pr+1;" ":b$=b$(pr):502 .,a$=13 .5,5:1100L 8a$=ů14410808 B 1000 L 210 3000 +("")*10 a$= a$=13 590N a$="f"950 ִa$="b"borra=1:700:d=0:z(10 ,4):.5,9 :6:183,0:0,144:255,72H:-144,0:0 Sa$="e"lastx=xmax:960:borra=1:700:borra=0:750 a$="m"r(a1,1)=m(1,1):r(a1,2)=m(1,2):4950V:900:r(a1,3)=m(1,1):r(a1,4)=m(1,2):4900$:900:3200 ;a$="c"r(a1,5)=(r(a1,5)=0):3200 ia$="r"w(1)=r(a1,1):w(2)=r(a1,2):borra=0:800 :.2~L,15 ia$=11 5:a4,1;" ":a1=a1-(a11):a4=a4-3*(a44):a4,1;"*" ja$=10 5:a4,1;" ":a1=a1+(a15):a4=a4+3*(a416):a4,1;"*" 7:3000 y=15:3*y+1,3;" ":rp1=r(y,1+2*r(y,5)):rp2=r(y,2+2*r(y,5)):r(y,5)=03300 :3*y+1,2;c$:3220 <c$=rp1:d$=rp2:3*y+1,2;c$;"";d$;"" .1}L,20:y: c$=rp1:rp1=0c$="" !rp1=0rp2=0c$="0" rp2=03360 $rp2>0rp10c$=c$+"+" !rp21d$=rp2:c$=c$+d$ rp2=-1c$=c$+"-"  c$=c$+"i"  x ]ind=ind-(ind1):4950V:m(1,1)=m(1,1):m(1,2)=m(1,2)*/180:ind=ind+1:4200h:m(1,1)=m(1,1):m(1,2)=m(1,2)*180/:ind=ind-1:4900$:ind=ind+1:m(ind,1)=0:m(ind,2)=0::^ h74950V:ind=ind-1:4950V:producto rm(ind,1)=m(ind,1)*m(ind+1,1):m(ind,2)=m(ind,2)+m(ind+1,2):m(ind+1,1)=0:m(ind+1,2)=0 |4900$:ind=ind+1: `i=12:m(ind-1,i)=m(ind-1,i)+m(ind,i):m(ind,i)=0:i:Track-Info  R :suma bi=12:m(ind-1,i)=m(ind-1,i)-m(ind,i):m(ind,i)=0:i::rest \74950V:ind=ind-1:4950V:division fm(ind,1)=m(ind,1)/m(ind+1,1):m(ind,2)=m(ind,2)-m(ind+1,2):m(ind+1,1)=0:m(ind+1,2)=0 p4900$:ind=ind+1: $radio=m(ind,1):m(ind,1)=radio*(*m(ind,2)/180):m(ind,2)=radio*(*m(ind,2)/180):num=m(ind,jnd) . VFradio=(m(ind,1)*m(ind,1)+m(ind,2)*m(ind,2)) [Mm(ind,1)=0m(ind,2)=m(ind,2)*90Z:4970j `m(ind,2)=(m(ind,2)/m(ind,1))*180/-180*(m(ind,1)<0)+360h*(m(ind,2)>0m(ind,1)<0) jm(ind,1)=radio: t"c$=""c$="i"ind=ind-1: ~m(ind,1)=num: PLUS3DOS|r7:7:0::1;10 ,10 ;" PARE LA CINTA ":I=164@:.02{# =,I:I: ----------V&A---------- ----FRECUENCIMETRO----- --------DIGITAL--------  c2=7 0::0 c2;13 ,3;"" i7:70F,100d:100d,0:0,-502:-100d,0:0,502 (,12 ,2;"ON":.01z# =,45- 2W2;1;3,5;"FRECUENCIMETRO DIGITAL";4,13 ;"V & A" , l1="a" 33!,59;,92\,203,110n,40(,252,33!,0,0,1,0,0,219,254,203,119w,32 ,250,219,254,0,203,119w,40(,249,3,219,254,203,119w,32 ,249,35#,219,254,203,119w,40(,249,237,67C,244,126~,34",246,126~,201 N=l1l1+47/:D:N,D:N:  0 'c2=7:c2;13 ,3;"" A;1;8,8;"Presione ENTER":.01z# =,45- l1 (bc=32500~+256*32501~ (hl=32502~+256*32503~  nu=hl+bc  <t=1.052*(546+(nu-2)*36$)/3.5e6U y10 ,10 ;"FRECUENCIA": 4;12 ,10 ;(1/t);" Hz ":4;13 ,10 ;"+/- 1%" 'c2=2:c2;13 ,3;"" .1}L,40(:445 PLUS3DOSb,++!o7:7:0::1;10 ,10 ;"PARE LA CINTA":I=115:.5,I:I: ***********************  RULETA ZX  Matti Hemmi 1985  'LOECHE 6,7,B MADRID 28007 :23658j\,8 7:0:0: tot=200:total=tot:gi=0:n=112 :11 ,n-2;" ":n:.03{u\,2*n:11 ,n;" RULETA ZX";n-2,13 ;" ";n-1,13 ;"RULETA ZX":n:40( Ja1=0:a2=0:a3=0:a4=0:a5=0:a6=0:a7=0:a8=0:p1=0:p2=0:p3=0:p4=0:p5=0:p6=0:p7=0:p8=0:h=0:ko=0:m=0:n=0:pa=.5:s=0:t=0:x=20:y=2:con=0:gi=117 k1=119w:k=:x$="Track-Info  R  PRUEBA TU SUERTE EN LA RULETA ZX.PULSA ""P"" PARA EMPEZAR A JUGAR,""I"" PARA INSTRUCCIONES. " 2#ç;2;ç,ç;x$(kk+31):k=k1k= ="P"17 ="I":16 $.1}L,2:k=k+:11  8000@ @gi=1:7:4:4::tot=total::19  200 ***TABLERO APUESTAS*** a156,163:96`,0:0,-128:-96`,0:0,128 Jl=17:156,163-(l*16):96`,0:l Lk=13:156+(k*24),163:0,-128:k Kn=282:m=21303:k$:n,m;k$:m:n "a:n=10 162:m=21303:k$:4;7;n,m;k$:m:n #S0,21;"1 2 3 4":m=2162:s$:m,18;s$:m $ 6060 %***DIBUJO RULETA*** (:72H,102f,72H:72H,102f,557 289040P#:i=18:p:q:r:s:p,q:r,s:i <*i=132 :n:m:v$:n,m;v$:i F ***MOVIMIENTO AGUJA*** *t=164@+(*32 )2 a=t/16* sx=72H*a:sy=72H*a 9.03{u\,003:72H,102f:1;sx,sy %h=6pa=pa+2:h=0 pa $72H,102f:1;sx,sy h=h+1 t J72H,102f:1;sx,sy:.3,24:.45ffff,4 T**COMPROBANDO ACIERTO** &t67Ct=t-64@:2997 t34"t=t-32 k=t n$=(k/2-.5) n$="10"n$="A" n$="11"n$="B" n$="12"n$="C" n$="13"n$="D" n$="14"n$="E" n$="15"n$="F" n$="16"n$="G" n$>"9"c$="LA":3050 c$="EL" 19,3;"LA AGUJA SE DETUVO EN ";c$;" ";n$;20,6;"PARA SABER SU COLOR";21,8;"PULSA UNA TECLA":0:19,3;" " 6az=(*2):az=1t$="BLANCO":3067 az=0:t$="VERDE" j=k/2-.5 az=1po=j:3074 po=j+16 (po=a1)(po=a2)(po=a3)(po=a4)(po=a5)(po=a6)(po=a7)(po=a8)1;20,6;" HAS TENIDO SUERTE";21,2;"UNA DE TUS APUESTAS ACERTO":#0;" PULSA UNA TECLA":0:3100 19,3;"EL PREMIO RECAYO EN ";c$;" ";n$;20,6;"DE COLOR ";t$:#0;" PULSA UNA TECLA":0::3190v ***REPARTO PREMIO*** ipre=(p1po=a1)+(p2po=a2)+(p3po=a3)+(p4po=a4)+(p5po=a5)+(p6po=a6)+(p7po=a7)+(p8po=a8):3110& &total=tot+3*pre 0:2,0;"TENIAS ";tot;" FICHAS TRAS LA ULTIMA";3,0;" APUESTA.AHORA TIENES ";total;" FICHAS":3200 vtot=03290 xV2,3;"TRAS LAS ULTIMAS APUESTAS";';" TIENES ";tot;" FICHAS":total=tot }6,3;"SI NO QUIERES VOLVER A PROBAR";';" SUERTE PULSA LA ""N"" SI NO";';" PULSA CUALQUIER TECLA":0: "N"9 :3220 :15,0;" SE ACABO.YA NO TIENES DINERO."'''"SI TE QUIERES ARRIESGAR A JUGAR"'"OTRA PARTIDA,PULSA CUALQUIER"'"TECLA,DE LO CONTRARIO PULSA"'"LA ""N"".":0:"N"total=200::9 :3295 ***APUESTAS*** Z0,0;"RECUERDA:";2,0;"""5"" IZQUIERDA";3,0;"""8"" DERECHA";4,0;"""P"" APOSTAR";5,0;"""C"" CAMBIAR";6,0;"""R"" EMPEZAR";9 ,4;"FICHAS";10 ,3;"APOSTADAS":18,83S:80P,0:0,26:-80P,0:0,-26 v19,23;"TIENES ";20,22-tot;" ";20,24-tot;tot;20,24;" FICHAS" i(8):f$(8) y=2:x=20  y,x;"*" 9o=4:u=7:e=x:d=y:con=86800 ="5"6160 ="8"6190. $="P"con=con+1:6215G ="R"6800  6110  ="C"tot=tot+apu:6310  6110 ;x20y2x=29:y=y-2:6205= "y=2x=206110 $x=x-3:6205= .<x29y16x=20:y=y+2:6205= 8#y=16x=296110 9 x=x+3 = d,e;" " B1;y,x;"*":6110 GN(y,x+1Track-Info  R )=23ū(y,x+1)=20con=con-1:6110 L;"CUANTO APUESTAS ? ";apu:apu<0apu>tot6220L O tot=tot-apu Q19,23;"TIENES ";20,22-tot;" ";20,24-tot;tot;20,24;" FICHAS":ko=1ko=0:6320 Ry10 6230V Ti(con)=(1y=2x=20)+(2y=2x=23)+(3y=2x=26)+(4y=2x=29)+(5y=4x=20)+(6y=4x=23)+(7y=4x=26)+(8y=4x=29)+(9 y=6x=20)+(10 y=6x=23)+(11 y=6x=26)+(12 y=6x=29)+(13 y=8x=20)+(14y=8x=23)+(15y=8x=26)+(16y=8x=29) U 6231W VDi(con)=(17y=10 x=20)+(18y=10 x=23)+(19y=10 x=26)+(20y=10 x=29)+(21y=12 x=20)+(22y=12 x=23)+(23y=12 x=26)+(24y=12 x=29)+(25y=14x=20)+(26y=14x=23)+(27y=14x=26)+(28y=14x=29)+(29y=16x=20)+(30y=16x=23)+(31y=16x=26)+(32 y=16x=29) W3i(con)>16o=7:u=4:6235[ Yo=4:u=7 [con=1a1=i(con):p1=apu:12 ,0;" ";12 ,3-p1;p1;" FICHAS A ";o;u;(y,x+1):f$(1)=(y,x+1) \con=2a2=i(con):p2=apu:13 ,0;" ";13 ,3-p2;p2;" FICHAS A ";o;u;(y,x+1):f$(2)=(y,x+1) ]con=3a3=i(con):p3=apu:14,0;" ";14,3-p3;p3;" FICHAS A ";o;u;(y,x+1):f$(3)=(y,x+1) ^con=4a4=i(con):p4=apu:15,0;" ";15,3-p4;p4;" FICHAS A ";o;u;(y,x+1):f$(4)=(y,x+1) _con=5a5=i(con):p5=apu:16,0;" ";16,3-p5;p5;" FICHAS A ";o;u;(y,x+1):f$(5)=(y,x+1) `con=6a6=i(con):p6=apu:17,0;" ";17,3-p6;p6;" FICHAS A ";o;u;(y,x+1):f$(6)=(y,x+1) acon=7a7=i(con):p7=apu:18,0;" ";18,3-p7;p7;" FICHAS A ";o;u;(y,x+1):f$(7)=(y,x+1) bcon=8a8=i(con):p8=apu:19,0;" ";19,3-p8;p8;" FICHAS A ";o;u;(y,x+1):f$(8)=(y,x+1) e1;y,x+1;" " j(0:tot=0Ʀ"C"6800 o 6154  I"CUANTO QUIERES APOSTAR AHORA ? ";apu:apu<0apu>tot6310 ko=1:6223O  6235[ ***FICHAS APOSTADAS*** :163,130:80P,0:0,26:-80P,0:0,-26:3,22;"FICHAS";4,21;"APOSTADAS":k=1con:z 1i(k)>16o=7:u=4:6810 o=4:u=7 46+k,21-z;z;" FICHAS A ";o;u;f$(k) k  @***INSTRUCCIONES*** Ja$="ESTE JUEGO CONSISTE EN APOSTAR*FICHAS A LOS NUMEROS Y LETRAS*QUE APARECERAN EN LA RULETA ZX.*SI LA AGUJA SE PARASE EN ALGUN*NUMERO O LETRA DE LOS QUE HAS*APOSTADO,GANARAS EL TRIPLE DE*LO APOSTADO.PERO SI NO OCURRE*ASI,GANARA LA BANCA ZX.*SE PUEDEN HACER COMO MAXIMO UN*TOTAL DE OCHO APUESTAS;PODRAS*APOSTAR TANTAS FICHAS COMO*TENGAS.CUANDO NO DESEES APOSTAR*MAS,PULSA LA ""R""." Kw$="PARA APOSTAR DEBERAS MOVER EL*ASTERISCO SITUADO EN LA PARTE*SUPERIOR DERECHA DEL RECUADRO*QUE APARECERA AHORA.*PARA ELLO USA LAS TECLAS ""5""*Y ""8"".CUANDO TENGAS COLOCADO*EL ASTERISCO JUNTO A LA CASILLA*QUE QUIERAS APOSTAR PULSA LA*""P"" Y A CONTINUACION INDICA*LA CANTIDAD QUE QUIERAS APOSTAR*PERO SI DESEAS CAMBIAR ALGUNA*APUESTA PULSA LA ""C"".*SOLO PODRAS CAMBIAR LA APUESTA*INMEDIATAMENTE DESPUES DE HACER*CADA UNA." Ng=1375w O/a$(g)="*"m=m+1:n=0:8025Y Q n=n+1 T .02{# =,03:m,n;a$(g) Yg [$#0;" PULSA UNA TECLA" ^ 0: hr=1414 r/w$(r)="*"t=t+1:s=0:8080 | s=s+1  .02{# =,03:t,s;w$(r) r $#0;" PULSA UNA TECLA"  0:: #(A"1","2","3","4","5","6","7","8","9","A","B","C","D","E","F","G" #2!"A","B","C",Track-Info  R "D","E","F","G","H" #<p1,p2,p3,p4,p5,p6,p7,p8 #P@72H,174,0,-144,101e,168,-579,-131,122z,154,-100d,-101e,137,131,-131,-579,144,102f,-143,0,137,74J,-131,579,122z,524,-100d,101e,101e,37%,-579,131 #Z1,10 ,"1",3,10 ,"1",2,13 ,"2",4,12 ,"2",4,15,"3",5,13 ,"3",7,16,"4",8,14,"4",10 ,16,"5",10 ,14,"5",13 ,15,"6",12 ,13 ,"6",15,13 ,"7",14,12 ,"7",17,10 ,"8",14,10 ,"8",17,7,"9",14,7,"9",15,4,"A",14,5,"A",13 ,2,"B",12 ,4,"B",10 ,1,"C",10 ,3,"C",7,1,"D",8,3,"D",4,2,"E",5,4,"E",2,4,"F",4,5,"F",1,7,"G",3,7,"G" PLUS3DOSW3W '3Wrec2=0:rec=0 c(4):cam=0:mas1=32 :col=1:mas=32 :p1=0:p2=0:c2=2:ca=0:cs=0:p=0:c1=0:c=1:m=2:l=3:mi=0:ct=0 Uc(3)=-18:c(4)=-25:c(1)=1:c(2)=-3 5:6:0::f=1921:f,0;5;"";f-19,0;"":f 1,13 ;"P$:0000";#0;"RECORD= P$: ";"00000"(4-rec);rec;" CAMIONES: ";rec2:f=23264Z23295Z:f,22:f 3:15,5;"":f=07:11 ,f;"":f:f=10 6-1:f,7;"":f:6,8;"":11 ,8;"":0:17,0;"";17,5;"";16,5;"" 15,148:-14,0:3,3:1,148:4,-4:236066\,95_:236077\,248:16,8;3;"NO";17,8;"PQ":14,0;2;5;"0"'"1"'"":7,8;0;"$%" 3,0;1;1;7;" ":6,11 ;"!""";8,12 ;"!""";10 ,11 ;"!""";12 ,12 ;"!""";14,11 ;"!""" a=16:3;3,a-1;"3' '4";4,a-1;"87 65";5,a;", C";6,a;"9 :";7,a;", -";8,a;"= >";9 ,a;"@ ?";10 ,a;"A B";11 ,a;"D C";12 ,a;"E F";13 ,a;"G -";14,a;"J H";15,a;"K L" 0;16,15;"00000";17,15;"00000";18,0;"00000000000000000000000000000000":f=318:f,17;0;"0":f 6,19;"""#";8,19;"""#";10 ,19;"""#";12 ,19;"""#";14,19;"""#" 16,12 ;3;"NO";17,12 ;"PQ";15,12 ;"PQ";15,20;"NO";16,20;"PQ";17,20;"NO" m0;3,27;"&''(";4,27;"-";1;"./";0;",";5,27;")**+" 3;8,25;"";12 ,25;"";4;"";2;9 ,31;"0";10 ,31;"2";11 ,31;"" 13 ,30;2;4;"RS";14Track-Info  R ,30;"TU";15,28;6;"VWX";4;"Y";16,28;"\" 17,28;"0000" T17,24;3;"NO";16,24;"":14,28;"!""" 6:5,3;"pqpq";6,2;"^pqpq";7,1;"_`pqpq";8,0;"abpqpq";9 ,0;"cdeffgh";10 ,1;"ij";10 ,5;"kl":6,30;4;"Z[";7,30;"\]" (236066\,119w:236077\,251:13 ,1;"ST";8,29;"ST";14,1;"EF[\";15,1;"GHWX";16,1;"IJYZ";9 ,27;"cdQR";10 ,27;"abOP";11 ,27;"_`MN" )~6,25;"";:236077\,254:" ":236077\,251:7,25;"}~";13 ,8;"yz";14,8;"{|";4,9 ;"yz";5,9 ;"{|";9 ,8;"yz";10 ,8;"{|":13 ,5;"ef";14,5;"ghi";10 ,25;"";:236077\,254:" ":236077\,251:11 ,25;"}~" *_10 ,0;";";10 ,3;"<=":6;3,20;"12";6;"RRR" +I13 ,25;"o";14,24;"pqr";15,24;"st" ,236077\,254:3,6;"+,";4,6;"-./";5,7;"0":5,25;"#$";8,8;")*";3,9 ;"%&";12 ,8;"!""";9 ,25;"'(" -E236066\,95_:236077\,248:11 ,19;"mmmm";9 ,19;"mmmm";9 ,12 ;"nnnn";7,12 ;"nnnn";7,19;"oooo";5,19;"oooo";5,12 ;"pqpq";11 ,12 ;"mm";13 ,12 ;"mm";13 ,27;"";13 ,19;"" ._10 ,23;"vw";11 ,23;"tx";6,23;"rs";7,23;"tu" /236066\,119w:236077\,251:12 ,10 ;"# ";13 ,10 ;"$.";8,10 ;"'&";9 ,10 ;"(." 03,3;"/0";4,3;"-.";3,11 ;")*";4,11 ;"+,";16,10 ;"34";17,10 ;"56";16,22;"34";17,22;"56";16,26;"78";17,26;"9:" 2+236066\,0:236077\,60< <7;1;21,12 ;"CAMIONES: ";cam:19,2;0;8;1;"PULSA UNA TECLA PARA EMPEZAR" A=""63781%:65A BF5:19,2;8;"" C0:1;4,0;" ";5,0;" ";6,0;" ";7,0;" ";8,0;" ";9 ,0;" ";10 ,1;" ";10 ,5;" " D`l=13,9 ;1;0;" ";4,9 ;" ";5,9 ;" " Eal=28,8;1;0;" ";9 ,8;" ";10 ,8;" " Fcl=312 ,8;1;0;" ";13 ,8;" ";14,8;" " Gcm=15,25;1;0;" ";6,25;" ";7,25;" " Hem=29 ,25;1;0;" ";10 ,25;" ";11 ,25;" " Ihm=313 ,24;1;0;" ";14,24;" ";15,24;" " d=""140 e4="q".02{# =,40(:l=l-(1l>1) n4="a".02{# =,40(:l=l+(1l<3) o?="l".02{# =,40(:m=m+(1m<3):130 p?="p".02{# =,40(:m=m-(1m>1):130 z3,9 ;1;6;" ";4,9 ;" ";5,9 ;" ";8,8;" ";9 ,8;" ";10 ,8;" ";12 ,8;" ";13 ,8;" ";14,8;" " {`l=13,9 ;1;0;" ";4,9 ;" ";5,9 ;" " |al=28,8;1;0;" ";9 ,8;" ";10 ,8;" " }cl=312 ,8;1;0;" ";13 ,8;" ";14,8;" " ~ 140 5,25;1;6;" ";6,25;" ";7,25;" ";9 ,25;" ";10 ,25;" ";11 ,25;" ";13 ,24;" ";14,24;" ";15,24;" " cm=15,25;1;0;" ";6,25;" ";7,25;" " em=29 ,25;1;0Track-Info  R ;" ";10 ,25;" ";11 ,25;" " hm=313 ,24;1;0;" ";14,24;" ";15,24;" " c1=c2c1=0 c1=c1+1 4c(c1)=c(c1)+1:c=c(c1):c>masc(c1)=0 5c=113 ,29;2;1;" " 6c=213 ,28;2;1;" " yc=313 ,27;2;1;" ";6;13 ,29;" ":2000:m35215_ !c=3m=33000 lc=4.004yn,60<:13 ,21;1;2;" ";6;13 ,27;" " lc=5.004yn,60<:13 ,19;1;2;" ";6;13 ,21;" " lc=6.004yn,60<:13 ,14;1;2;" ";6;13 ,19;" " lc=7.004yn,60<:13 ,12 ;1;2;" ";6;13 ,14;" " c=8.004yn,60<:12 ,10 ;1;2;" ";13 ,10 ;" ";13 ,12 ;6;" ":2000:l3c=12 :5100 c=9 .004yn,60<:11 ,12 ;1;2;" ";6;12 ,10 ;" ";13 ,10 ;" " mc=10 .004yn,60<:11 ,14;1;2;" ";6;11 ,12 ;" " mc=11 .004yn,60<:11 ,19;1;2;" ";11 ,14;6;" " mc=12 .004yn,60<:11 ,21;1;2;" ";6;11 ,19;" " c=13 .004yn,60<:10 ,23;1;2;" ";11 ,23;" ";11 ,21;6;" ":2000:m2c=10 :5200P c=14.004yn,60<:9 ,21;1;2;" ";6;10 ,23;" ";11 ,23;" " kc=15.004yn,60<:9 ,19;1;2;" ";6;9 ,21;" " kc=16.004yn,60<:9 ,14;1;2;" ";6;9 ,19;" " kc=17.004yn,60<:9 ,12 ;1;2;" ";6;9 ,14;" " c=18.004yn,60<:8,10 ;1;2;" ";9 ,10 ;" ";9 ,12 ;6;" ":2000:l2c=8:5100 "c=19.004yn,60<:7,12 ;1;2;" ";6;8,10 ;" ";9 ,10 ;" " ,kc=20.004yn,60<:7,14;1;2;" ";6;7,12 ;" " 6kc=21.004yn,60<:7,19;1;2;" ";6;7,14;" " @kc=22.004yn,60<:7,21;1;2;" ";6;7,19;" " Jc=23.004yn,60<:6,23;1;2;" ";7,23;" ";7,21;6;" ":2000:m1c=6:5200P Tc=24.004yn,60<:5,21;1;2;" ";6;6,23;" ";7,23;" " ^kc=25.004yn,60<:5,19;1;2;" ";5,21;6;" " hkc=26.004yn,60<:5,14;1;2;" ";6;5,19;" " rkc=27.004yn,60<:5,12 ;1;2;" ";6;5,14;" " |c=28.004yn,60<:3,11 ;1;2;" ";4,11 ;" ";5,12 ;6;" ":2000:l1c=3:5100 }c<28100d ~col=1500 Ic=mas1mas=mas-.5:mas1=mas1-1:col=1:ca=ca+1 ca=64900$ c=28l=1mas=mas-.5:1;6;3,11 ;" ";4,11 ;" ";3,9 ;" ";4,9 ;" ";5,9 ;" ";0;3,6;" ";4,6;" ";5,7;" ":.2~L,60<:3,6;1;6;3,6;" ";4,6;" ";;5,7;" ";0;3,9 ;" ";4,9 ;" ";5,9 ;" " Jc=29.004yn,60<:5,5;1;2;" " ic=30.004yn,60<:6,5;1;2;" ";5,5;6;" " ic=31.004yn,60recrec=p:rec2=cam J63784(,126~:63788,,6:637920,2:2 p)6070:7:0:7: 210 ,2;"PULSA UNA TECLA PARA EMPEZAR" 1:0: 46080:f=63781%638019:a:f,a:f: 33!,0,64@,126~,211,254,62>,6,211,254,62>,2,211,254,35#,124|,254,91[,32 ,239,201 ' |0:0:7:63780$:12 ,0;1;"ESPERA UN MOMENTO,CARGANDO EL CM":"BC.0":6000p 'k236066\,0:236077\,60<:DEVUELVEN LOS CARACTERES ORIGINALES DEL SPECTRUM  PLUS3DOSgww ? ? ={wo_?Ξ>իիիxp`@c33cÃßc3  3cذÃc3?yÃ0,/30000: 00017.(0zյݍ>|<~y?9yǃ?C#C@ ? ??s>>>~``DDUU|}~}_?_/w}>|p   q|>@0p @p p|>  q|>@2p p߾|>}w/@0 >| cG>|@0>| L(cG7{}>0<^p \ $?~H ||8 DD$%&`D(`xx0|O=?9xڛߟx #<q` x0<0o[8Lh$$R%&&?wppd`/_7c@? 1%4 / 0?1_`00HA,@x>vx>8~0`p 88 |~`|n?sqΎ/o? x@8?@ xp@p<8x g0088PLUS3DOSD D O1;10 ,10 ;"PARE LA CINTA":A=07:.5,A:A 1:1:7: 10 ,10 ;"CIRUJANO" ({12 ,2;"Para utilizar correctamente elprograma cargar el code en la direccion 23296 y activarlo con 23296" 2 500 < "BD.0" F23296[ Track-Info  R PLUS3DOSA[X!"[*S\"[F#N*[B0!'B8C[#N#F ~ #[[SK\*Y\+PLUS3DOSr7:7:0::1;10 ,10 ;" PARE LA CINTA ":I=164@:.02{# =,I:I: I25999e:"Direccion donde se almacena los archivos comprimidos= ";m $"Num. de pantallas a comprimir ";n <z(20):dm=m+n*2+2:m,n:i=m:m=m+1 (<"BE.0"23300[,116t:carga la rutina de comprimir 2:12 ,5;"PONGA CINTA CON SCREENS";14,5;"A COMPRIMIR Y PULSE EL";16,8;"PLAY DEL CASSETE" < x=1n F"" PIdm:m,23671w\:m+1,23670v\:m=m+2:l=23300[ Zdm=dm+l:z(x)=l dx nm,0:dm=dm-1 x7:1;1,5;"LONGITUD DE LOS SCREENS" X=1n O1;2;6;x+3,4;"SCREEN ";x;" = ";z(x);" BYTES" x Lw$(10 ):"Nombre con el que quiere salvar el bloque de screens= ";w$ w$i,dm  PLUS3DOSt0u!@[v\S$\""\|[0~# 2&\x y0 *$\z(BK["\p#q#x( xw#q#:&\w#"$\|[8*$\6[v\RDMPLUS3DOSir7:7:0::1;10 ,10 ;" PARE LA CINTA ":I=164@:.02{# =,I:I: [25999e:11 ,3;"CARGA LA RUTINA DE EXPANDIR":"BF.0"23300[,38& B"Direccion donde se ha cargado el bloque= ";m:n=m:m=m+1 Y:11 ,7;"CARGA EL BLOQUE DE ";13 ,6;"ARCHIVOS COMPRIMIDOS":"" 2 X=1Track-Info  R n <*d=256*m+(m+1):m=m+2 Fd:l=23300[ P 10 Zx n PLUS3DOS&G*v\@~G#N# 888~#bkwPLUS3DOS'r7:7:0::1;10 ,10 ;" PARE LA CINTA ":I=164@:.02{# =,I:I: ""0= BASIC 3= CODIGO MAQUINA ";X "LONGITUD= ";i E11 ,0;("BASIC"X)+("CODIGO MAQUINA"X);",LONGITUD= ";I (#H=(I/256):L=I-256*H 2&I=300000u30030Nu:N:I,N:I <6#0;"ARRANQUE CINTA Y PULSE UNA TECLA":0 F0:30018Bu PX,70F,65A,76L,83S,65A,67C,65A,66B,69E,90Z,L,H,0,128,0,0,0,221,33!,480,117u,17,17,0,175,557,205,194,4,201 PLUS3DOS99r7:7:0::1;10 ,10 ;" PARE LA CINTA ":I=164@:.02{# =,I:I: BL(X=X-2X)=X-256*(X/256):H(X=(xX)=(x/256) "Origen actual= ";oa "Longitud= ";lo ("Origen final= ";of 2"Direccion ejecucion= ";de < p=oa+lo Fi=pp+13 :j:i,j:i P>16,0;"Grabar con SAVE CODE ";oa;",";lo+14 Z:"Ejecutar con USR ";p d33!,L(oa),H(oa),1,L(lo),H(lo),17,L(of),H(of),237,176,195+6*(de=0),L(de),H(de) PLUS3DOS*r7:7:0::1;10 ,10 ;" PARE LA CINTA ":I=164@:.02{# =,I:I: 'n=23760\ 'ni=n̾23641Y\+256*23642Z\:i=205ƾ(i+1)=86Vƾ(i+2)=59995 ' '$i:n=23760\"NO HAY DATOS": ' D"Direccion de ejecucion= ";:j=nn+8:j195j:"?": ' '(j+1)+256*(j+2): ' Z"Origen= ";:j=i-4i-20-1:j221ž(j+1)33!j:"?" ' %(j+2)+256*(j+3) ' E"Longitud= ";:j=i-3i-20-1:j17j:"?" '@(j+1)+256*(j+2)::n=i+3:9991' Track-Info  R PLUS3DOSLr7:7:0::1;10 ,10 ;" PARE LA CINTA ":I=164@:.02{# =,I:I: 6:6:0  z$(11 ,3) )211:i=110 :z$(i):i +30:i="a""a"+39':u:i,u:i F0,0,59;,68D,68D,76L,557,0 H0,12 ,18,36$,46.,66B,68D,64@ #H0,4,104h,16,40(,68D,68D,568 (G0,12 ,16,16,8,524,36$,24 2H96`,144,32 ,64@,240,0,0,0 d10 ,24;"a":9 ,20;"":9 ,27;"":9 ,29;"b":5,31;"h":6,27;"d":4,24;"c":2,29;"":3,30;"" n143,96`:105i,0:0,71G:-105i,-71G:207,96`:41),71G:143,87W:105i,0:140,84T:8,8:244,84T:8,8 x152,96`:-2,6,0.63!G:216,96`:-4,7,1.1 :248,158:-7,4,-0.94p :248,151:-8,2,-0.47 p }=i=018:;0;i,0;" ":i Wi=110 :E$:;0;7;2*i-2,0;"(";i;")";E$:i a"=/2-","=h/c","=a/c","=h/a","a+h=c","=/2-","=h/d","=b/d","=h/b","b+h=d" W150:B$="1.23456789":raro=B$:k=19 :I$:9999':k:k=2 %"a","b","c","d","h","t","u","v","w" 0.5,10 :#1;1;6;",,, estan en a,b,c,d en modo GRAFICO,respectivamente. ":2,20:150 ("METE LOS DATOS "'L$;" "'M$;" "'N$ linea=12 p1:0,15;"DATOS:":1,15;L$:2,15;m$:3,15;N$:0 poi=0:.5,10 :#1;1;6;"RECUERDA: CUANDO TE PREGUNTE ""ENTENDIDO?"" PULSA UNA TECLA ":2,20:100d T"CUAL ES LA INCOGNITA ? ";Y$:linea,14;" ":poi=poi+1 y$="" &datos =3:n$=""datos=2 G186:z=1datos:e$:1500:8980#:9999':z l$,m$,n$ e$=y$:1500:y$=e$ $k=raro+2*((y$="v")+(y$="w")) d$(i$S{)=((i$-28)*(i$>143)*(i$<148)+(i$+28)*(i$>115s)*(i$<120x)+i$*((i$<116t)+(i$>119w))*((i$<144)+(i$>147))) o=1datos:poi=1((z$(11 ,o)="v")+(z$(11 ,o)="w"))=1k$=((z$(11 ,o)="v")*117u+116t*(z$(11 ,o)="w")):k2=k:k=2:500:k=k2 o "w=/2-t" "t=h/c" "t=a/c" "t=h/a" "a^2+h^2=c^2" "v=/2-u" "u=h/d" "u=b/d" "u=h/b" "b^2+h^2=d^2" ="wtk","thc","tac","tha","ahc","vuk","uhd","ubd","uhb","bhd" ,fk$=y$:500:.5,25:1;1;linea,14;"FIN DEL PROBLEMA":180  y$raro: Vp3=0:p2=0:z=110 :m=13:z$(z,m)=k$520 m:z:600X Citas=0:m=13:z$(z,m)=raroitas=itas+1  m:itas=1i$=k$:(200+z):e$:9000(#:9999':e$=i$+"="+b$:1500:20,1;"DE (";z;") TENGO ";E$:2000:.5,502:linea,13 ;" ";:2;linea,16;d$(i$);"=";i$:linea=linea+1: "itas=2p2=z:z:600X !p3=z:z:600X X!700:2;20,0;"NO PUEDO DESPEJAR ";d$(k$);" DIRECTAMENTE":2000:20,0;" Hallo primero ";d$(z$(p2+p3*(p2=0),m));" para obtener ";d$(k$);" de (";p2+p3*(p2=0);")":2000:k$=z$(p2+p3*(p2=0),m):500:k$=y$:500 |m=13:(z$(p2+p3*(p2=0),m)y$)*(z$(p2+p3*(p2=0),m)k$)*(z$(p2+p3*(p2=0),m)=raro)=1: m: Bs$=d$(e$(1)):i=2̱e$:s$=s$+d$(e$(i)):i:e$=s$: Е.5,10 :21,20;"ENTENDIDO ?":0:20,0;" ": #Ki=1̱e$:q(e$(i))=1i$=e$(i):z$(11 ,z)=i$:9000(# #.i:2,10Track-Info  R  :"EXPRESI0N NO VALIDA": #Jq(i$&{)=(i$>64@)*(i$<91[)+(i$>96`)*(i$<123{) #(< i=1̱E$:E$(i(i+i$-1))=I$pi=i:90102# #-i #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$) #F;i=1̱A$:A$(i(i+I$-1))=I$pi=i:9035K# #Hi #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(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(xd)=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)