MV - CPCEMU Disk-File Disk-Info ZX-Modules(Track-Info  R ( *RTrack-Info  R DISK MICRO 7 20  AA AA  AB  !"#AC $%AD &'()AD 0 *AD 1 +AE .,-./01AF ]23456789:;<=BA ~>?@ABCDEFGHIJKLMBB NOPQBC mRSTUVWXYZ[\]^_BD 4`abcdefBE ghiBF jBF 0 klPLUS3DOS@ @DISKEADO POR MADFOX "MICRO"  300, "20" 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;;88888887778888PLUS3DOSQ~dCINTA 20 (REVISTAS 77 a 80) 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,8;"A-Kratoa"  8,8;"B-Basic c/m" &9 ,8;"C-Reset" 0!10 ,8;"D-Triangulo" :11 ,8;"E-Espia" D"12 ,8;"F-Progresion" !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,8;"A-Plano afin" $8,8;"B-Base de Datos" 9 ,8;"C-Bolas" $#10 ,8;"D-Intercambio" . 11 ,8;"E-Ginatula" !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$="1"100d F 1000 --- CABECERA --- 51:0,4;"CINTAS MICRO N. 20" -2:0,16;"HOBBY":0 C3:1,6;"DISKEADO POR MADFOX":0:0 #3,8;"REVISTAS 77-80"  p--- PIE DE PANTALLA --- z?1:20,0;" J, siempre... ILM " ?21,0;" ELIGE UNA OPCION ":0  PLUS3DOSOKOKO%0:0::5,5 <6;11 ,9 ;"PARE LA CINTA":9000(# (9060d#:8000@:3000 Qa=1202:1;6;1,a;"";20,a;"":a Qa=2202:6;1;1,a;"";20,a;"":a Qa=1202:6;1;a,1;"";a,20;"":a (Qa=2202:1;6;a,1;"";a,20;"":a *l7;1;21,2;"PULSE PARA EMPEZAR":0:21,2;" " 2 2600( d vi2=24:vi=3:ter=0:ter2=491:x=7:y=0:pl=135:a$=" ":b$=" ":c$="":a=9 :b=14:c=530 n="p"c$=b$:c=500 x="o"c$=a$:c=510 ="q"c=520 ="a"c=530 t=0ve:t ter=ter+1 Xter=65Ater2=ter2+1:212,ter2:7;4,0:ter=0 ter2=89Y4000 vi=04010 &y+x=184b=185000 c ,%4;b,a;c$;b+1,a;" " 6C(b-1,a)=2ū(b-1,a+2)=27000X 7 330J @%4;b,a;c$;b-1,a;" " E;(b,a+3)=2ū(b+1,a)=27000X J3(b,a)=2ū(b,a+2)=27000Track-Info  R X Tfb=19y=y+8:215,pl:1;8,0:pl=pl-1:b=3:600X ^fb=2y=y-8:215,pl:1;8,0:pl=pl+1:b=18:600X h/a18x=x+1:a=3:600X r/a=1x=x-1:a=17:600X | 110n *4;b,a;c$:a=a+1:330J *4;b,a;c$:a=a-1:330J b=b-1:300, b=b+1:320@ X`216,pl:7;7,0:s=219:s,2;" ":s ] bv=0x+y lh$ vv {j=h$ j*100d+1000 "6","10","2","4","0","7","5","16","8","14","0","0","7","13","11","12","6","9","6","2","1","3","5","1","1","6","11","10","9","6","11","9","3","8","9","8","2","8","0","7","6","0","9","6","7","6","0","12","1","4","10","9","1","1","5","1" "8","7","13","2","8","9","13","9","6","11","11","0","10","2","8","7","13","0","7","4","14","0","2","1","13","0","9","5","1","4","10","9","13","0","7","1","3","5","8","7","1","4","9","8","10","14","0","9","8","10","0","2","1","8","0","7" "5","1","4","10","9","5","6","9","1","1","5","1","4","12","8","7","8","9","1","8","7","13","0","12","6","2","13","0","9","1","6","12","8","10","9","4","7","13","12","1","6","11","2","6","11","9","3","1","3","5","6","12","5","4","10","9" h"6","12","8","11","11","10","14","7","1","13","0","7","6","9","1","1","15","8","2","8","9","4","9","3" @z=25:2;z,2;"":z 2;6,2;"";7,2;" ";8,2;" ";9 ,9 ;"";10 ,10 ;"";11 ,11 ;"" 2;13 ,2;"";13 ,16;" ";14,2;"";14,7;"";14,13 ;" ";15,2;" ";16,2;"" Bz=1719:2;z,2;"":z K LEz=219:2;z,2;"";z,16;"":z V2;2,5;"";2,13 ;"";3,5;"";3,14;"";4,5;"";4,15;"";5,5;"";5,15;"";6,5;"";6,14;"";7,5;"";7,14;"";8,5;"";8,15;"";9 ,5;"";10 ,5;"";10 ,15;"";11 ,14;"";12 ,5;"";12 ,13 ;"" `\2;13 ,5;"";13 ,13 ;"";14,5;"";14,14;"";15,5;"";15,13 ;"";16,5;"";16,13 ;"";17,5;"";17,14;"";18,5;"";18,14;"";19,5;"";19,13 ;""  @z=24:2;z,2;"":z d2;5,2;" ";6,2;" ";6,12 ;" ";7,2;" ";7,16;"";8,2;"";8,15;"";9 ,15;"";10 ,16;"";11 ,17;"";12 ,16;"";13 ,2;"";13 ,16;""  2;14,2;"";14,16;"";15,2;" ";15,15;"";16,2;" ";16,15;"";17,2;" ";18,2;" ";19,2;""  s2;2,2;"";2,13 ;"";3,2;"";3,16;"";4,2;"";4,15;"";5,2;"";5,15;"";6,2;"";6,16;"";7,2;"";7,17;"";8,2;"";8,16;"" A2;9 ,2;"";9 ,15;"";10 ,2;"";10 ,15;"";11 ,2;"";11 ,16;"";12 ,2;"";12 ,17;"";13 ,2;"";13 ,18;"";14,2;"";14,14;" " (2;15,2;"";15,14;" ";16,2;"";16,13 ;" ";17,2;"";17,9 ;" ";18,2;"Track-Info  R ";19,2;"" w x@z=24:2;z,2;"":z 2;5,2;" ";6,2;" ";6,16;"";7,2;" ";7,16;"";8,2;"";8,16;"";9 ,2;"";10 ,2;"";11 ,2;"";12 ,2;"";13 ,2;"";13 ,16;"";14,2;"";14,10 ;"";14,16;"" {2;15,2;"";15,9 ;" ";16,2;"";16,9 ;" " Bz=1719:2;z,2;"":z  V2;2,2;"";3,2;"" 2;4,2;"";4,11 ;"";5,2;"";5,12 ;" ";6,2;"";6,16;"";7,2;"";7,16;"";8,2;"";8,17;"";9 ,2;"";9 ,18;"";10 ,2;"";10 ,17;"";11 ,2;"";11 ,16;"" >2;12 ,2;"";12 ,16;"";13 ,2;"";13 ,17;"";14,2;"";14,17;"";15,2;"";15,16;"";16,2;"";16,15;"";17,2;"";17,14;"" |2;18,2;"";18,13 ;"";19,2;"";19,13 ;"" ? @@z=25:2;z,2;"":z J2;6,2;" ";7,2;"";7,19;"";8,2;" ";8,19;"";9 ,2;"";9 ,9 ;"";10 ,2;"";10 ,11 ;"";11 ,2;"" T2;12 ,2;"";13 ,2;"";13 ,18;"";14,2;"";14,18;"";15,2;"";15,15;"";16,2;"";16,15;"";17,2;"";17,15;"";18,2;"";18,13 ;"";19,2;"";19,13 ;""  @z=25:2;z,2;"":z 2;6,2;" ";7,2;"";7,8;"";7,17;"";8,2;"";8,8;"";8,17;"";9 ,8;"";9 ,16;"" )2;10 ,15;"";11 ,15;"";12 ,16;"";13 ,2;"";13 ,17;"";14,2;"";14,18;"";15,2;"";15,15;" ";16,2;"";16,15;"" °2;17,2;"";17,15;"";18,2;"";18,13 ;"";19,2;"";19,13 ;""  2;2,2;"";2,13 ;"";3,2;"";3,13 ;"";4,2;"";4,13 ;"";5,2;"";5,13 ;"";6,2;"";6,13 ;""  2;7,2;"";7,13 ;"";8,2;"";8,15;" ";9 ,2;"";10 ,2;"";11 ,2;"";12 ,2;"";13 ,2;"";13 ,11 ;"";13 ,19;"" 2;14,2;" ";14,19;"";15,2;" ";16,2;" " &Bz=1719:2;z,2;"":z k lM2;2,2;"";2,13 ;"";3,2;"";3,13 ;"";4,2;"";4,13 ;"";5,2;"";5,13 ;"";6,2;"";6,13 ;"";7,2;" ";7,13 ;"" vi2;8,2;"";8,15;"";9 ,15;"";10 ,15;"";11 ,18;"";12 ,18;"";13 ,2Track-Info  R ;" ";13 ,17;"";14,2;" ";14,16;"";15,2;" ";15,14;"";16,2;" " Bz=1719:2;z,2;"":z  @z=25:2;z,2;"":z 2;6,2;" ";7,2;" ";8,2;" ";8,12 ;"";9 ,13 ;"";13 ,2;" ";13 ,13 ;"";13 ,18;"" Z2;14,2;" ";14,13 ;"";15,2;"";15,13 ;"";16,2;"";16,13 ;"";17,2;"";17,14;"";18,2;"";18,14;"";19,2;"";19,13 ;"" 3 42;2,2;"";2,13 ;"";3,2;"";3,13 ;"";4,2;"";4,13 ;"";5,2;"";5,13 ;"";6,2;"";6,13 ;"" >o2;7,2;"";7,13 ;" ";8,2;"";8,15;" ";9 ,15;"";12 ,11 ;"";13 ,2;"";13 ,10 ;" ";14,2;"";14,10 ;"";15,2;"";15,10 ;"";16,2;" " HBz=1719:2;z,2;"":z  2;2,2;"";2,13 ;"";3,2;"";3,13 ;"";4,2;"";4,13 ;"";5,2;"";5,14;"";6,2;" ";6,15;"";7,2;" ";7,14;"";8,2;"";8,14;"" 2;9 ,13 ;"";10 ,13 ;"";11 ,13 ;"";12 ,16;"";13 ,2;"";13 ,17;"";14,2;" ";14,13 ;" ";15,2;"";15,13 ;"" 2;16,2;"";16,13 ;"";17,2;"";17,14;"";18,2;"";18,13 ;"";19,2;"";19,13 ;""  2;2,2;"";2,13 ;"";3,2;"";3,13 ;"";4,2;"";4,13 ;"";5,2;"";5,13 ;"";6,2;"";6,15;"" S2;7,2;"";7,15;"";8,2;"";8,18;"";9 ,2;"";10 ,2;"";11 ,2;"";12 ,2;"";12 ,17;"";13 ,2;"";13 ,17;"";14,2;"";14,16;"" "2;15,2;"";15,16;"";16,2;"";16,13 ;" ";17,2;"";17,13 ;"";18,2;"";18,13 ;"";19,2;"";19,13 ;"" _ `2;2,2;"";2,13 ;"";3,2;"";3,13 ;"";4,2;"";4,13 ;"";5,2;"";5,13 ;"";6,2;" ";6,13 ;" ";7,2;"";7,16;"";8,2;"";8,19;"";9 ,2;"";9 ,19;"" jm2;13 ,6;"";14,2;"";14,16;" ";15,2;"";15,16;"";16,2;"";16,14;"";17,2;"";17,13 ;"";18,2;"";18,13 ;"";19,2;"";19,13 ;""  ĥ2;2,2;"";2,13 ;"";3,2;"";3,13 ;"";4,2;"";4,18;"" Qz=5152:2;z,2;"";z+1,2;"":z Sz=5152:2;z,1Track-Info  R 8;"";z+1,18;"":z 2;17,2;"";17,18;"";18,2;"";18,13 ;"";19,2;"" 2;8,10 ;"";9 ,9 ;"";10 ,8;"";11 ,8;"";12 ,9 ;"";13 ,10 ;"" !3;18,10 ;"" ' (2;8,9 ;"";9 ,8;" ";10 ,7;"";10 ,13 ;"";11 ,6;"";11 ,13 ;"";12 ,5;"";12 ,13 ;"";13 ,4;"";13 ,14;"" 2V2;14,3;"";14,14;"";15,2;"";15,15;"";16,2;"";16,14;"";17,2;"";17,14;"";18,2;"";18,13 ;"";19,2;"";19,13 ;""  {210,480:7;0,40(:7;8,1,-:218,480:7;0,40( @z=40(47/:208,z:7;12 ,0:z ?v=36$39':211,v:7;6,0:v &4;19,24;""  Ez=020:#0;" ":z: 04;10 ,8;"G A M E O V E R" 24;21,7;"OTRA PARTIDA? (s/n)" ="s"5  ="n"  4060 Nz=019:5;z,0;"":z Oz=2021:1;z,0;"":z 7;5;2,5;"";4,21;"";3,11 ;"";0;5;18,21;"";17,22;"";18,26;"" a5;19,12 ;"";1;20,13 ;"" Ez=2817-1:5;1;5,z;" ":z z=013 :6:5;5;5+z-1,17;" ":5;1;5+z,17;" ":z m=012 P5;18,21-m;" ";1;18,17-m;" ";0;17,22-m;" ";18,26-m;" " Zg5;19,12 -m;" ";1;20,13 -m;" " d 7:m *10 :0:0::4050 Xvi=vi-1:6;1;b,a+1;"";b+1,a+1;"":.1}L,00.4L:.01z# =,17:.01z# =,0:b,a;" ";b+1,a;" ":c=530:x=7:y=0:600X:a=9 :b=14 Y6215,pl:1;8,0:pl=135 Z93;19,vi2;"":vi2=vi2+2:110n @Iz=27:6;2;z,23;"";z,30;"":z JIz=2429:6;2;1,z;"";8,z;"":z Tk6;2;1,23;"";1,30;"";8,23;"";8,30;"" ^Cz=27:5;z,24;"";z,28;"":z h0;5;5,26;"";5,28;"";6,25;"";6,28;"";7,24;"";7,28;"":7;5;3,25;"" r0z=24:5;z,27;"":z | #(G90102#:a=144160:b=07:c:(a)+b,c:b #2*0,0,0,3,13 ,25,127,63?,7,15,30,254,95_,255,254,252,224,240,120x,127,250,255,127,63?,0,0,0,192,176,152,254,252 # 201 ' '"INS/HEXD"1 Track-Info  R         PLUS3DOS065275:cont=0 3a=6527965378b:b:cont=cont+b:a,b:a 7cont10176'5,9 ;"ERROR EN DATAS": 37%,255,62>,63?,237,71G,237,86V,201,62>,254,237,71G,237,94^,201 22,10 ,10 ,77M,73I,67C,82R,79O,72H,79O,66B,66B,89Y,22,11 ,12 ,82R,69E,83S,69E,84T,42* (245,62>,127,219,254,230,2,40(,4,241,255,237,77M,62>,127,219,254,230,1,32 ,244 242*,178,92\,43+,249,43+,43+,34",61=,92\,62>,2,205,1,22,205,107k,13 ,62>,0,502,113q,92\ <62>,2,205,1,22,17,15,255,1,22,0,205,60<,32 ,251,195,169,18 F#:"deseas activar el reset? ";r$ P*r$="s"r$="S"a=65288:100d Za=65281: du:"Te recuerdo que el RESET no fun-cionara en rutinas que desacti--ven las interrupciones,como son el ,,,,etc." nj"para activar la rutina reset,so-lo tienes que hacer 65288,y estara activa hasta que teclees 65281" x{"que la desactivara.Ahora esta activada.Para hacer que se ejecutepulsa simultaneamente las teclas ""SYMBOL"" y ""SPACE""" "Este programa lo puedes borrar, para hacer el tuyo,pero te re- cuerdo que si haces NEW,deberas hacer RANDOMIZE USR 65288 para volver a activarla" PLUS3DOS.  +ALEJANDRE '86 10:0:1:7:27935m ("AD.0"23296[:"AD.1"27936 m W23675{\,33!:23676|\,109m:23658j\,8:9000(#:5 H=0:R=1 2DIR=28000`m:COL=1:PAS=COL:400 #"(1) TECLADO O (2) KEMPSTON ";key #key1key220 2 BUCLE 14COL=14 YCOL<1COL=1 _a=20460 a!A=24R=0:60< cR=060< da=4pas=pas-col ea=8pas=pas+col n DIR=DIR+PAS s"DIR>65535DIR=28000`m t"DIR<28000`mDIR=65535 x 60<  SCREEN 0,3;"":i=114:i,3;" ":i:15,3;"" 0,22;"":1,22;" ":2,22;"":4,22;"":i=513 :i,22;" ":i:14,22;"" r18,3;"":19,3;" ":20,3;"" 7:5,23;"Start";7,23;"Color";9 ,23;"Point";11 ,23;"Load.";13 ,23;"Save." 23343/[:  MOV.JOY x=22711X:k=0 x1=x $key=19500%:510 a=223 .0007v74n,60< 0x=x1+64@*(a=4)-64@*(a=8)  a=16600X )x<22711Xx=22711X:540 )x>22967Yx=22967Y:540 k=k+(a=4)-(a=8) Ii=x1x1+4:i,71G:i:i=xx+4:i,66B:i:470 X<.1}L,30:K=0R=1:PAS=COL:502 ] MENU b1000*K  500 5S=233539[:S=70FS,112p:1200 L S,70F 23343/[:10 : _19,5;"28000 46000":2;Track-Info  R         0;1;19,4;"":F=2 *%key=19500%:2200 4a=223 ha=2F=2:1;2;0;19,4;"";19,17;0;" " ha=1F=1:19,17;1;0;2;"";19,4;0;" " `3a=4F=2DIR=28000`m:2600( 3a=4F=1DIR=46000:2600( 2090* (/19,4;0;" ": 23367G[: "Longitud?";lo 4"Nombre?";s$:s$=0űs$>10 4001  s$dir,lo: @'w=16420$@+col:ww=18436H+col }w:23385Y[,23670v\:23386Z[,23671w\:ww:23422~[,23670v\:23423[,23671w\:23381U[  #(h 6:0:1;18,21;"MICROHOBBY";20,21;" EL ESPIA ":1: %a$= %&a=16*(a$="0")+2*(a$="O")+(a$="P")+4*(a$="A")+8*(a$="Q")+17*(a$="8")+18*(a$="5")+20*(a$="6")+24*(a$="7"): PLUS3DOSF0u!$@w# B!H!$X>Fw# PLUS3DOS 0u9>Gcqx|Ǝ>|xqcG>||||||||>>>>>>>>>>BB<DHpHDB@@@@@~BfPLUS3DOS}} pas=0:x(10 ) ayuda=1.2345 ;a$()=(r(18)-9 )+"*n"+(r(18)-9 ) 6b$(2,7):a$(14,7):500 i=114:a$(i):i r(x)=1+(*x) P0" MENU ","1- SERIES","2- PROG. ARITMETICAS" U%"3- PROG. GEOMETRICAS","4- GENERAL" c 80P dMf=15:.1}L,7*f:u$:1+2*f,4;u$:f nEAQ=:aq=aq-480:(aq<1)+(aq>4)=1110n x%menu1=aq::100d+502*aq: 1000 Yda=(r(18)-9 ):ba=(r(18)-9 ):e$=da+"*n+"+ba:p$="aritmetica" f$="d*n+b":280 Lr=r(3)+1:da=r^(3.5`-r(4)):r=da:ba=r(5) :e$=da+"^n":e$=ba+"*"+e$ f$="b*r^n":p$="geometrica" Yx(1)=r(4):x(2)=5+r(4):k=x(2Track-Info  R         )-x(1)-1 0f=12:n=x(f):x(2+f)=e$:f X0,0;"La expresion general de una progresion ";p$;" es:"'" a(n)= ";f$ "menu2=r(4+(menu1=3)):3000 +1000*(menu2=3)-1000*(menu2=2)+1100L*(menu2=1) ,aq=r(3):120x "n","(n+1)","(n-1)" "(2*n)","(2*n+1)","(2*n-1)" "(2*n+2)","(2*n-2)" "n^2","(n^2-1)","(n^2+1)" "n^3","(2*n^2)","(n^2-3)" &"Elige una dificultad de 1 a 4"'dif 1005+3*dif  e$=a$(r(7)):1028 (e$=a$(7+r(7)):1028 Cp=12:b$(p)=a$(7*(dif=4)+r(7)):p ,e$=b$(1)+"/"+b$(2):1028 +1100L-70F*(r(3)=1) C0,0;"El termino general de la serie es a(n)= ";e$  +1035 +35#*(r(2)=1)  rnu=r(9 ):n=rnu H14,0;"Cual es el termino ";(rnu);" de esta progresion" "a(";(rnu);")= ";zxc 4fr=((zxc-e$)>1e-5p'ŬF):fr=01060$ 1050:1043 v.3,0:18,0;"Lo siento, pero esta mal ,prueva otra vez ": $+t=13:.1}L,10 *t:t )L18,0;"En efecto, esta bien ":1067+ +020,0;"Pulsa una tecla":0: .(q1=r(5):q2=r(4)+5 3J14,0;"Dame los terminos del ";q1;" al ";q2;" de esta serie" 8q=q1q2:n=q:rnu=q B1043:q G LN2,0;"Sabiendo que los 5 primeros terminos de la serie son" V1110V+5*dif `D5,0;:f=15:n=f:e$;",";:f:1200 jZ5,0;:n=15:b$(1);"/";b$(2);", ";:n:1200 L9 ,0;"Dime cual es el termino general (ENTER para solucion)" s$ s$=""1300 1230:mal=0  1210 Ms$:s$="ayuda"4195c:6000p:1229-162*(pas=2) 7n=37:s$ɰe$mal=1:1050: n:mal=0:1060$ =14,0;"La solucion es:"'"a(n)= ";e$:1067+ Т6,0;"Sabiendo que ";x(3);" y ";x(4);" son los terminos ";x(1);" y ";x(2);" de la progresion. Obtener la expresion general." 1229:mal=0  2050 5,0;"Sabiendo que ";x(3);" y ";x(4);" son los terminos ";x(1);" y ";x(2);" de la progresion. "; s$="la suma =" Umenu2=5"Obtener el producto desde el primero hasta el segundo.":3005 6"Obtener la suma desde el primero hasta el segundo." Tmenu1=3solu=(x(3)-x(4)*da)/(1-da+1e-6m7):3010 Fsolu=(x(3)+x(4))*(x(2)-x(1)+1)/2 cmenu2=5solu=(x(3)*x(4))^(x(2)-x(1)+1):s$="el producto = " -(s$);sum:sum=ayuda9000(#:3011 8((sum-solu))>solu/100d1050:3010 1060$ $"la diferencia es d=(b2-b1)/(k+1)" #"la razon es r=(b2/b1)^(1/(k+1))" )4000+10 *(menu1=3):o$ Ȅ4,0;"Interpolar ";k;" terminos entre ";x(3);" y ";x(4);" sabiendo que son terminos de una progresion ";p$  f=1k (f);" ";sol:n=x(1)+f #sol=ayuda4200h:4053 /(e$-sol)>1e-5p'ŬF1050:4053 f:1060$ Of=14:11 +f,0;" " f .1}L,0:.2~L,20:8,0;"Sabiendo que ";x(3);" es el termino numero ";x(1);" de la progresion. Dame el termino general"; !menu2=18000@+menu1  1229 ,mal=0 6 4120 c=b=12:.1}L,10 :.1}L,0:b: h 4195c jk12 ,0;"Si entre los numeros b1 y b2 de una progresion ";p$;" quiero interpolar k numeros"'o$ r ppas=0pas=1:14,0;"Sustituye los datos en la expre-sion general y tendras ";:7021m+menu2-2*(menu2=3) rMmal=0:pas=2:11 ,0;"La solucion es "'"a(n)=";e$: n%"una ecua-cion con una incognita": o'"dos ecuaciones con dos incognitas": B!" si la diferencia es d= ";da: C" si la razon es r=";da: #(pas=19003+# #)pas=1:14,0;"Si ad y ak son lTrack-Info  R         os terminos d y k de la progresion;";:9020<#+menu1+10 *(menu2=5) #+/11 ,0;s$;" es ";solu:1067+ #>$"la suma vale (ad+ak)*(k-d+1)/2": #?""la suma vale (ad-ak*r)/(1-r)": #P'"el producto vale (ad*ak)^(k-d+1)": PLUS3DOS5.--Z0:0:7: d 9000(# ppart=1 v:9100# xa1=1:b1=1:b2=1:c1=1:c2=1:c3=1:d1=1:d2=1:d3=1:d4=1:e1=1:e2=1:e3=0:e4=1:e5=1 }mov=1:fich=14 23658j\,8:7 gui=9 Ȯ6;0;"DESDE - ";d$:d$"00"d$"A1"d$"B1"d$"B2"d$"C1"d$"C2"d$"C3"d$"D1"d$"D2"d$"D3"d$"D4"d$"E1"d$"E2"d$"E3"d$"E4"d$"E5"200 ͵d$="00"mov8f=9 gui:f,2;" ";f,28;" ":f:9200#:part=part+1:6;0;1,8;"1 ";1,29;part:120x %.05|L,10 :gui,2;d$ ܮ6;0;"HASTA - ";h$:h$"00"h$"A1"h$"B1"h$"B2"h$"C1"h$"C2"h$"C3"h$"D1"h$"D2"h$"D3"h$"D4"h$"E1"h$"E2"h$"E3"h$"E4"h$"E5"220 h$="00"mov8f=9 gui:f,2;" ";f,28;" ":f:9200#:part=part+1:6;0;1,8;"1 ";1,29;part:120x &.05|L,10 :gui,28;h$ (d$="A1"h$="C1"a1=1b1=1c1=0)(d$="A1"h$="C3"a1=1b2=1c3=0)(d$="B1"h$="D1"b1=1c1=1d1=0)(d$="B1"h$="D3"b1=1c2=1d3=0)1100L (d$="B2"h$="D2"b2=1c2=1d2=0)(d$="B2"h$="D4"b2=1c3=1d4=0)(d$="C1"h$="E1"c1=1d1=1e1=0)(d$="C1"h$="E3"c1=1d2=1e3=0)1100L (d$="C2"h$="E2"c2=1d2=1e2=0)(d$="C2"h$="E4"c2=1d3=1e4=0)(d$="C3"h$="E3"c3=1d3=1e3=0)(d$="C3"h$="E5"c3=1d4=1e5=0)1100L (d$="C1"h$="A1"a1=0b1=1c1=1)(d$="C3"h$="A1"a1=0b2=1c3=1)(d$="D1"h$="B1"b1=0c1=1d1=1)(d$="D3"h$="B1"b1=0c2=1d3=1)1200  (d$="D2"h$="B2"b2=0c2=1d2=1)(d$="D4"h$="B2"b2=0c3=1d4=1)(d$="E1"h$="C1"c1=0d1=1e1=1)(d$="E3"h$="C1"c1=0d2=1e3=1)1200 (d$="E2"h$="C2"c2=0d2=1e2=1)(d$="E4"h$="C2"c2=0d3=1e4=1)(d$="E3"h$="C3"c3=0d3=1e3=1)(d$="E5"h$="C3"c3=0d4=1e5=1)1200 (d$="C1"h$="C3"c1=1c2=1c3=0)(d$="D1"h$="D3"d1=1d2=1d3=0)(d$="D2"h$="D4"d2=1d3=1d4=0)1300 (d$="E1"h$="E3"e1=1e2=1e3=0)(d$="E2"h$="E4"e2=1e3=1e4=0)(d$="E3"h$="E5"e3=1e4=1e5=0)1300 "(d$="C3"h$="C1"c1=0c2=1c3=1)(d$="D3"h$="D1"d1=0d2=1d3=1)(d$="D4"h$="D2"d2=0d3=1d4=1)1400x '(d$="E3"h$="E1"e1=0e2=1e3=1)(d$="E4"h$="E2"e2=0e3=1e4=1)(d$="E5"h$="E3"e3=0e4=1e5=1)1400x P5;0;4,0;"MOVIMIENTO";4,22;"INCORRECTO" if=020:.05|L,502:f:4,0;" ";4,22;" " 1gui,2;" ";gui,28;" ":200 M5d$="A1"h$="C1"a1=0:b1=0:c1=1 N5d$="A1"h$="C3"a1=0:b2=0:c3=1 P5d$="B1"h$="D1"b1=0:c1=0:d1=1 R5d$="B1"h$="D3"b1=0:c2=0:d3=1 T5d$="B2"h$="D2"b2=0:c2=0:d2=1 V5d$="B2"h$="D4"b2=0:c3=0:d4=1 X5d$="C1"h$="E1"c1=0:d1=0:e1=1 Z5d$="C1"h$="E3"c1=0:d2=0:e3=1 \5d$="C2"h$="E2"c2=0:d2=0:e2=1 ^5d$="C2"h$="E4"c2=0:d3=0Track-Info  R         :e4=1 `5d$="C3"h$="E3"c3=0:d3=0:e3=1 b5d$="C3"h$="E5"c3=0:d4=0:e5=1 5d$="C1"h$="A1"a1=1:b1=0:c1=0 5d$="C3"h$="A1"a1=1:b2=0:c3=0 5d$="D1"h$="B1"b1=1:c1=0:d1=0 5d$="D3"h$="B1"b1=1:c2=0:d3=0 5d$="D2"h$="B2"b2=1:c2=0:d2=0 5d$="D4"h$="B2"b2=1:c3=0:d4=0 5d$="E1"h$="C1"c1=1:d1=0:e1=0 5d$="E3"h$="C1"c1=1:d2=0:e3=0 5d$="E2"h$="C2"c2=1:d2=0:e2=0 5d$="E4"h$="C2"c2=1:d3=0:e4=0 5d$="E3"h$="C3"c3=1:d3=0:e3=0 5d$="E5"h$="C3"c3=1:d4=0:e5=0 5d$="C1"h$="C3"c1=0:c2=0:c3=1 5d$="D1"h$="D3"d1=0:d2=0:d3=1 5d$="D2"h$="D4"d2=0:d3=0:d4=1 5d$="E1"h$="E3"e1=0:e2=0:e3=1 5d$="E2"h$="E4"e2=0:e3=0:e4=1 5d$="E3"h$="E5"e3=0:e4=0:e5=1 y5d$="C3"h$="C1"c1=1:c2=0:c3=0 z5d$="D3"h$="D1"d1=1:d2=0:d3=0 |5d$="D4"h$="D2"d2=1:d3=0:d4=0 ~5d$="E3"h$="E1"e1=1:e2=0:e3=0 5d$="E4"h$="E2"e2=1:e3=0:e4=0 5d$="E5"h$="E3"e3=1:e4=0:e5=0 @fo=d$(1)-513*(d$(1)="E")-546*(d$(1)="D")-579*(d$(1)="C")-60<*(d$(1)="B")-63?*(d$(1)="A") Eco=7+2*(d$="D1")+4*(d$="C1"d$="E2")+6*(d$="D2"d$="B1")+8*(d$="E3"d$="C2"d$="A1")+10 *(d$="D3"d$="B2")+12 *(d$="E4"d$="C3")+14*(d$="D4")+16*(d$="E5"):d$="E1"co=7 Jkfd=fo+8*(d$(1)h$(1)):d$(1)=h$(1)fd=fo Ocd=7+2*(h$="D1")+4*(h$="C1"h$="E2")+6*(h$="D2"h$="B1")+8*(h$="E3"h$="C2"h$="A1")+10 *(h$="D3"h$="B2")+12 *(h$="E4"h$="C3")+14*(h$="D4")+16*(h$="E5"):h$="E1"cd=7 TYfi=fo+4*(d$(1)h$(1)):fo=fdfi=fo Yci=co-2*(d$(1)h$(1)d$(2)h$(2)co>cd)+2*(d$(1)h$(1)d$(2)h$(2)coh$(2)) f=110 :3;1;fo,co;"";fo+1,co;"":.005y# =,30:0;1;fo,co;"";fo+1,co;"":f:1;0;fo,co;"";fo+1,co;"" f=110 :3;1;fd,cd;"";fd+1,cd;"":.005y# =,502:0;1;fd,cd;"";fd+1,cd;"":f:1;3;fd,cd;"";fd+1,cd;"" 30;1;fi,ci;"";fi+1,ci;"" Jmov=mov+1:6;0;1,8;mov:gui=gui+1 -fich=fich-1:fich=13025 200 \6;0;1;4,0;"!!CORRECTO!";4,20;"!!CORRECTO!!" |50007W,7:j=16:f=10 25:254,f:50015_,f:50001Q,f:50000P:f:j ^6;2;"TE ATREVES OTRA VEZ ? (S/N) ";r$:r$="S":part=part+1:115s  ,]1;6;1;4,0;"PON ATENCION";4,20;"PON ATENCION" ^f=1300,:f sol=7050 sol:fo,co,fd,cd,fi,ci Xf=110 :3;1;fo,co;"";fo+1,co;"":.005y# =,30:0;1;fo,co;"";fo+1,co;"":f:1;0;fo,co;"";fo+1,co;"" bf=110 :3;1;fd,cd;"";fd+1,cd;"":.005y# =,502:0;1;fd,cd;"";fd+1,cd;"":f:1;3;fd,cd;"";fd+1,cd;"" l30;1;fi,ci;"";fi+1,ci;"" -sol=sol+5:sol<71156900 ]2;6;1;4,0;"ESTA CLARO ?";4,20;"PUES HALA!!!" f=1300,:f D4,0;" ";4,20;" ": 710 ,19,18,15,14,17 52,15,10 ,19,6,17 66,13 ,14,17,10 ,15 614,21,6,17,10 ,19Track-Info  R  514,9 ,6,13 ,10 ,11 718,11 ,10 ,15,14,13 718,15,10 ,19,14,17 66,17,14,21,10 ,19 66,13 ,14,17,10 ,15 718,23,10 ,19,14,21 710 ,19,18,15,14,17 718,19,18,11 ,18,15 618,7,18,15,18,11 #(,90102#:f="a""h"+7:n:f,n:f #-29030F#:f=50000P50024h:n:f,n:f #. #2#0,0,3,15,31,31,63?,63?,0,0,192,240,248,248,252,252,63?,63?,31,31,15,3,0,0,252,252,248,248,240,192,0,0 #3;5,0;"";5,25;"";6,0;"";6,6;"";6,25;"";6,31;"";7,0;"";7,25;"" %?F1;7;6,1;"DESDE";6,26;"HASTA" %Dypart502.5,10 :4;0;"QUIERES UNA SOLUCION ? (S/N) ";r$:r$="S"6700,:9200# %I PLUS3DOS>w>w>964999:8000@::a(2):6:6 70F :3,3;1;"MENU GENERAL":20:i=14:a$:4+3*i,6;i;")";a$:.5,3*i:i "ECUACIONES DE LA RECTA","PARALELISMO Y PERPENDICULARIDAD","CAMBIOS DE BASE","DISTANCIAS E INTERSECCIONES" (.500:<491ů>52440( 23000 +100d* FLv(2,2):m(9 ,2,2):u(2,2,2) Pfrac=7000X:d(3,2):p(2,2,2):e(2,2):i(3,2):s(2,2):c(2,2,2) U 20 Z5a()=(24-23689\,32 -23688\) d8:100d:0,4;"ECUACIONES DE LA RECTA" n3i=15:linea,d$:linea,0;d$:i xk3,"Parametrica",7Track-Info  R ,"Explicita",10 ,"Implicita",14,"Segmentaria",19,"Continua" }B100d,135:0,24:i=12:p$,ind 2*ind,13 ;p$;:a(1)=p(ind,1,1):a(2)=p(ind,1,2):a(1)frac:9990':"t"; ka(1)=p(ind,2,1):a(2)=p(ind,2,2):a(1)/a(2)>0"+"; a(1)frac i "x=",1,"y=",2 3i(2,1)*i(1,2)205 {7,12 ;"y=";:a(1)=e(1,1):a(2)=e(1,2):a(1)frac:9990':"x"; ca(1)=e(2,1):a(2)=e(2,2):a(1)/a(2)>0"+"; a(1)frac 10 ,12 ; ba(1)=i(1,1):a(2)=i(1,2):a(1)frac:9990':"x"; i(2,1)240 "+";:a(1)=i(2,1):a(2)=i(2,2):(8Ƽ(a(1)*a(2))<0);:frac:9990':"y"; ("+"i(3,1)/i(3,2)>0);:a(1)=i(3,1):a(2)=i(3,2):a(1)0frac "=0" prin=0:lug=13 Zi(1,1)*i(1,2)*i(2,1)*i(2,2)2700 e(2,1)280 [i=12:a(1)=s(i,1):a(2)=s(i,2):15,lug;:frac lon=(6*len+10 )*(a(2)1)+(8+8*a(1))*(a(2)=1)+8*(s(i,1)*s(i,2)<0):100d+prin*8,59;:lon,0:13 ,lug+(lon/16)-1;(119w+i); hprin=2+((lon+6)/8):lug=lug+prin:14,lug-2;(25+i*18);" ";  i:1 &i=12:j=12 ",c1=c(i,j,1):c2=c(i,j,2) ,d(i,j)=c1+(c2-c1)*(c2>c1)+(i=2c(i,j,1)/c(i,j,2)<0):c(i,j,2)1d(i,j)=((-1+6*d(i,j))/8)+1 6Wd(i,j)=d(i,j)+2*(i=1)+(i=2)*(c(i,j,1)*c(i,j,2)<0) @j:i Jii=12:d(3,i)=d(1,i)+(d(2,i)-d(1,i))*(d(2,i)>d(1,i)):i T100d,19:(1+d(3,1))*8,0:1;16,0:(1+d(3,2))*8,0:19,14+d(1,1);"=" ^Hi=12:j=12:k=12:a(k)=c(i,j,k) hRk:pil=13 +(3+d(3,j))*(j=2)+(d(3,j)-d(i,j))/2 rTi=118,pil;(119w+j);("+"a(1)/a(2)0);:frac |!i=220,pil;:frac j:i  2700  Ma(1)=a(1)*a(2):sgno=a(2):a(2)=a(2) 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: Xhk=1̱d$:d$(k)="/"a(1)=d$(k-1):a(2)=d$(k+1):400:620l b'k:a(1)=d$:a(2)=1 l  s(2,2)730 6p(1,1,1)=1:p(1,1,2)=1:p(1,2,1)=0:p(1,2,2)=1:p(2,2,1)=e(2,1):p(2,2,2)=e(2,2):p(2,1,1)=0:p(2,1,2)=1 кs(1,2)p(2,1,1)=e(1,1):p(2,1,2)=e(1,2):p(2,2,1)=0:p(2,2,2)=1  9p(1,1,1)=0:p(1,1,2)=1:p(1,2,1)=-e(2,1):p(1,2,2)=e(1,1):p(2,1,1)=1:p(2,1,2)=1:p(2,2,1)=0:p(2,2,2)=1: L9i=12:j=12:k=12 V<c(i,j,k)=p(j,3-i,k)*(-1(i2k=1)) ` k:j:i jflag31500 t Ns(2,1)=e(2,1):s(2,2)=e(2,2) ;s(1,1)=-e(2,1)*e(1,2) :s(1,2Track-Info  R )=e(1,1)*e(2,2) flag11400x  ;e(1,1)=-i(1,1)*i(2,2) :e(1,2)=i(1,2)*i(2,1) (;e(2,1)=-i(3,1)*i(2,2) 2:e(2,2)=i(3,2)*i(2,1) <flag41200 F xUi=12:p(1,2,i)=0:p(1,1,i)=-s(1,i) Fp(2,1,i)=s(2,i):p(2,2,i)=s(2,i) Vi:p(1,1,2)=s(1,2):p(1,2,2)=1 Ys(1,1)*s(2,1)*s(1,2)*s(2,2)700 flag51100L  qi=12:i(1,i)=c(2,2,i):i(2,i)=c(2,1,i)*(-1i=2):i i=12:a(1)=i(i,1):a(2)=i(i,2):400:i(i,1)=a(1):i(i,2)=a(2):i fa(2)=1:i=12:j=12:a(2)=a(2)*c(i,j,2):j:i a(1)=c(1,1,1)*c(2,2,1)*c(1,2,2)*c(2,1,2)-c(1,2,1)*c(2,1,1)*c(1,1,2)*c(2,2,2) I400:i(3,1)=a(1):i(3,2)=a(2) flag21300  @p:3,12 ;1;"MENU":1620T:i=14:a$:4+2*i,6;i;")";a$:i E&14,6;"5)Llamar memoria" TK"Punto y vector","Dos puntos","Punto y pendiente","Segmentos en los ejes" ^0500:<491ů>5351630^ c="5"2300 h1600@+100d* r1000+100d*flag | 100d i=21-1 2300-100d*i:p(1,i,1)=a(1):p(1,i,2)=a(2):d$=e$:600X:p(2,i,1)=a(1):p(2,i,2)=a(2) i:flag=1: i=12 21004:p(1,i,1)=a(1):p(1,i,2)=a(2):d$=e$:600X:p(2,i,1)=a(1):p(2,i,2)=a(2) i:i=12 &p(i,1,1)=p(i,1,1)*p(i,2,2)-p(i,2,1)*p(i,1,2):p(i,1,2)=p(i,1,2)*p(i,2,2) 0i:flag=1: lg"Pendiente ";d$:600X:e(1,1)=a(1):e(1,2)=a(2):21004 ve(2,1)=a(1)*e(1,1):e(2,2)=a(2)*e(1,2):d$=e$:600X:e(2,1)=a(1)*e(2,2)-a(2)*e(2,1):e(2,2)=a(2)*e(2,2):flag=2: Єi=12:"segmento sobre el eje ";((119w+i));"? ";d$:600X:s(i,1)=a(1):s(i,2)=a(2) i:flag=4: 4+"Coordenadas del punto","x ";d$,"y ";e$ > 600X: ,"Componentes del vector","x ";d$,"y ";e$  600X: 5"Introduce el numero de la"'"memoria (1 a 9) ",memo 2memo<1memo>9 memoɺmemo2300 (m(memo,1,2)m(memo,2,2)m(memo,1,1)m(memo,2,1))#0;"Memoria vacia":1,-5:1600@ 2340$ :100d $Zi=12:j=12:e(i,j)=m(memo,i,j):j:i:flag=2:1200 . 6#0;"Pulsa numero de memoria o volver":0 .>480Ư<59;memo=:2730 20 zi=12:j=12:m(memo,i,j)=e(i,j):j:i:"":#0;1;memo;" MEMORIZANDO":100d:"" 2700  1600@ v:4,2;"Opciones:"'''"1)Comprobar dos rectas"''"2)Obtener una paralela"''"3)Obtener una perpendicular"'' E500:>480Ư<524opc=:3190v +30*opc 3210 3600 m(re1,1,1)*m(re2,1,1)+m(re1,1,2)*m(re2,1,2)=0"RECTAS PERPENDICULARES":500:3245 ."NI PARALELAS NI PERPENDICULARES":500 20 "Memoria de la recta a la que es paralela ";mim:e(1,1)=m(mim,1,1):e(1,2)=m(mim,1,2):3700t Й"Memoria de la recta a la que es perpendicular ";mim:e(1,1)=-m(mim,1,2):e(1,2)=m(mim,1,1):3700t 4000 H:4Track-Info  R ,2;"Opciones:"'''"1)Distancia punto-recta"''"2)Distancia entre dos puntos"''"3)Punto de corte de dos rectas "'' RE500:>480Ư<524opc=:3390> +30*opc W 3410R \6"Memoria de la recta: ";memo:21004:z(2) azz(1)=a(1):z(2)=a(2):d$=e$:600X:y(2):y(1)=a(1):y(2)=a(2) f2340$ :dist=(i(1,1)*z(1)/i(1,2)/z(2)+i(2,1)*y(1)/i(2,2)/y(2)+i(3,1)/i(3,2)) kdist=dist/(i(1,1)*i(1,1)/i(1,2)/i(1,2)+i(2,1)*i(2,1)/i(2,2)/i(2,2)) p@17,0;"La distancia es ";dist:500:20 z}z(2,2,2):i=12:21004:z(1,i,1)=a(1):z(1,i,2)=a(2) Wd$=e$:600X:z(2,i,1)=a(1):z(2,i,2)=a(2):i }dist=(z(1,1,1)/z(1,1,2)-z(1,2,1)/z(1,2,2))^2 dist=dist+(z(2,1,1)/z(2,1,2)-z(2,2,1)/z(2,2,2))^2 Ldist=dist:17,0;"La distancia es ";dist:500:20 3600 a(1)=m(re1,1,2)*m(re2,1,2)*(m(re2,2,1)*m(re1,2,2)-m(re1,2,1)*m(re2,2,2)) a(2)=m(re1,2,2)*m(re2,2,2)*(m(re1,1,1)*m(re2,1,2)-m(re2,1,1)*m(re1,1,2)) !''"Coordenada x: ";:7000X 2a(2)1a(1)=a(1)*signo a(1)=m(re1,1,1)*a(1)*m(re1,2,2)+m(re1,2,1)*m(re1,1,2)*a(2):a(2)=a(2)*m(re1,1,2)*m(re1,2,2) 6''"Coordenada y: ";:7000X:500:20 C"Introduce las memorias de ambas","recta 1: ";re1,"recta 2: ";re2 m(re1,1,1)*m(re2,1,2)=m(re2,1,1)*m(re1,1,2)"RECTAS PARALELAS":500:3245 $ t>21004:1910v:1000+100d*flag:100d  :3,8;"Opciones:" a6,0;"1)Introducir nueva base"''"2)Cambiar un vector de base"''''" (ENTER vuelve)" _500:4020+80P*(=491)+180*(=502)-4000*(=13 ) "Componente x del primer vector","Componente y del primer vector","Componente x del segundo vector","Componente y del segundo vector"  4080 &i=12:j=12 a$:(a$),d$ "A600X:u(i,j,1)=a(1):u(i,j,2)=a(2) 6j:i:4000 h2200:v(1,1)=a(1):v(1,2)=a(2):d$=e$:600X:v(2,1)=a(1):v(2,2)=a(2) r`i=12:j=3-i:14+2*i,0;"Coordenada ";(119w+i);": "; `a(1)=(v(i,i)*v(j,j)*u(j,j,i)*u(j,i,j)-v(j,i)*v(i,j)*u(j,i,i)*u(j,j,j))*u(i,j,j)*u(i,i,j) da(2)=(u(i,i,i)*u(j,j,i)*u(j,i,j)*u(i,j,j)-u(j,i,i)*u(i,j,i)*u(i,i,j)*u(j,j,j))*v(i,j)*v(j,j) 400:frac i:500:20 Xe400:a(2)=1a(1)*a(2);:len=(a(1)*a(2)):7130 [ signo=(a(1)*a(2)) ]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,203Track-Info  R  |39',203,39',198,200,111o,78N,44,,86V,44,,70F,225,96`,121y,205,120x,255,205,120x,255,122z,205,120x (255,205,120x,255,124|,205,120x,255,125},198,5,6,0,79O,205,43+,45-,1,0,0,205,43+,45-,1,1,0,197,205,43+,45-,193,201 06,4,197,203,127,40(,11 ,67C,77M,245,213,229,205,223,34",225,209,241,44,,203,7,193,16,234,79O,125},214,4,111o,121y,29,201 R105i,153,96`,38&,34",32 ,105i,36$,240,105i,41),96`,38&,111o,32 ,248,225,224,104h,233,96`,241,36$,64@,105i,105i,96`,105i,113q,96`,0,0,32 ,0,112p,0 /p(xr,y ,n)=x+y*n^65000  'a()=4918; ' PLUS3DOSk  20:0:4:23624H\,4: <"Introduzca cartucho fichero"'"Y pulse una tecla":0  "Fichero";1;28  Menu (8linea=5::linea,5;"1. Introducir fichas" 2(linea+2,5;"2. Ver fichas" <0linea+4,5;"3. Salir del programa" F%linea+6,5;"4. Back-up" P+linea+8,5;"5. Borrar fichas" Z0linea+10 ,5;"6. Reajustar fichero" d/linea+12 ,5;"7. Trasferir fichas" nb$=:b$=""110n xb$="3"870f b$="4"840H b$="2"680 b$="1"200 b$="5"330J b$="6"430 b$="7"920 110n Entrar fichas  "Primera ficha? ";primera a$(27) primera ( a$:a$(1)13 630v ;a$(27):primera:"Texto de la ficha |"'a$  a$ %#0;"Otra ficha Menu" "b$=:b$=""290" ,3b$="O"b$="o"primera=primera+1:230 6b$="M"b$="m"30 @ 290" JBorrar fichas T(:"Cual es la primera ficha? ";primera ^"Cual es la ultima? ";ultima ha=primera ultima ra$(27) |a$(1)=13  a  a$ a  30 Reajustar o:"Esta opcion tarda bastante Ten paciencia, hay 3125 fichas"'"Pulsa 'SPACE' para dejar el reajuste" ajuste=0 a=031244 =" "610b 05,0;"Estoy ajustanto la ficha ";a a$(27)  a  a$ a$(1)=13 a $a=ajusteajuste=ajuste+1:a ! ajuste:ajuste=ajuste+1 & a$ 0 a :a$(27) Da$(1)=13 N a$ Xa b=" "610b lO::"Fichero ajustado"'"Tiene ";ajuste;" fichas.":0:0:30 vSobreescritura 8"Ficha ya escrita. Quieres sobre-escribirla (s/n)";b$ b$="s"b$="S"260 b$"n"b$"N"640  280 Ver fichas  "Cual es la primera? ";primera :a=020 !primera+a>31255 780   primera+a a$(27)  a$ ,c$=(primera+a):c$="000"(4-c$)+c$ 5a,0;c$;" ";1;a$Ưa$(1)13 a  5#0;"Otra pagina Menu Impresora" b$=:b$=""790  6b$="o"b$="O"primera=primera+21::700 *b$="m"a$="M"30 4b$="i"b$="I" > 790 H Back-up R,:"Version? ";a$:*"m";1;a$0 \ 30 f Salida p:"Pulsa 's' para salir" z 0:"s"Ʀ"S"30   0 Trasferir fichas :"Ficha origen? ";origen "Ficha destino? ";destino "Numero de fichas? ";numero desplazamiento=destino-origen !a=origen origen+numero-1  a a$(27)  a$Track-Info  R   a+desplazamiento  a$ /0,0;"Transfiero ficha numero ";a a  30 PLUS3DOSH655 .:23676|\,195:23658j\,8 ZDATAS=0:10 ,7;1;" PARA EL CASSETTE ":1,0:0 (0:0:1:6:: 26,13 ;"BRISCA" x12 ,9 ;"POR INIGO'SOFT";14,1;"CON COLABORACION DE INAKI'SOFT";16,10 ;"- EUZKADI -" 19,1;"IZQUIERDA...Z";21,1;"DERECHA.....X";19,17;"ELEGIR...ENTER";21,17;"TERMINAR.T" tDATAS=0#1;2;7;1;" UN MOMENTO, CARGANDO DATAS ":2340$ :180 0 DATAS=1  56,4;8;"INTRODUCE TUS INICIALES" J$(3) 10 ,13 ;"- - -" X=13 X<189 ,X;"" MU=50288p  0 U=12 .05|L,502:9 ,X;" ":X>13 X=X-2:240 )=13 MU=50288p:340T "<" "Ŧ>"Z"240 ,X>17250 6B$= @9 ,X;B$:X=X+2 J 240 TcJ$(1)=(9 ,13 ):J$(2)=(9 ,15):J$(3)=(9 ,17) ^9 ,X;" " hX15,2;" A CUANTAS PARTIDAS (19)":0:A$=:A$<"1"A$>"9"360h r#PART=A$:18,15;PART |'E=13:MU=50288p:E PART1=0:PART2=0 BK=40(:V(40():CK=0:DK=15:F(3):G(3):S(3):X(3):Q(2):PRIM=0:SEG=0:M(3) BARAJEANDO 57::10 ,9 ;1;" BARAJANDO "  N=140( AK=(*40()+1 #V(AK)=0V(AK)=N:500  450 N:1:1: 1,1;2;7;"PARTIDAS":3,1;"ZXS";5,1;J$:3,6;PART1:5,6;PART2:46.,143:540:46.,127:540 1,23;2;7;" PUNTOS ":3,23;"ZXS";5,23;J$:222,143:540:222,127:540  550& J26,0:0,9 :-26,0:0,-9 : &_0,0:255,0:0,175:-255,0:0,-175 0REPARTO :N=13 D F(N)=V(BK):G(N)=V(BK-1) NBK=BK-2 XN bR=13 l:Z=G(R):1190:A=80P+CK:B=8:1100L vC=1150~ {6J$=86V+69E+82RZ=F(R):1190 ~(A=80P+CK:B=120x:1100L CK=CK+32 :R MONTON Y PINTA GZ=V(1):1190:PINTA=C:A=24:B=64@:1100L w11 ,3;" ":16,568:47/,0:0,31:-47/,0:0,-31 23675{\,80P:11 ,2;"";11 ,7;"";14,2;"";14,7;"":N=36:12 ,N;"";13 ,N;"":N PROGRAMA PRINCIPAL TP=(*2)+1 P=34"2-2 /TP=21960:2120H:740 2120H:1960 8=""(31=0ſ31>25)740 /N=813 :N,12 ;" ":N :Q(1)=S(M):Q(2)=V1:SUMA=0:1290  1340<:2180 F(Track-Info  R M)=V(P):G(R)=V(P-1)  !P2870f:900 AP=4#1;1;"DOS ULTIMAS CARTAS EN EL MONTON"  P *.TP=2G(R)=V(2):F(M)=V(1) 4-N=11 14:N,2;" ":N >>Z=V(1):1190:A=24:B=64@:1100L HXTP=2870f:N=813 :N,3;" ":N:900:2220 RL900:N=813 :N,3;" ":N:870f:2220 \PONE CARTA  fFK=-32 :B=8 p N=1R:FK=FK+32 :N z1A=80P+FK:Z=G(R):1190:1100L: FK=-32 :B=120x  N=1M:FK=FK+32 :N C=1150~ 6J$=86V+69E+82RZ=F(M):1190 A=80P+FK:1100L  GANADOR PPRIM>SEG10 ,11 ;2;7;1;" YO GANO ":980 PRIM7D=Z+2: E=1D=Z: KZ<21C=1120`:E=1:Z>17D=(Z-10 )+2: E=1D=Z-10 : KZ<31C=1130j:E=1:Z>27D=(Z-20)+2: E=1D=Z-20: ,Z<38&C=1140t:D=(Z-30): (D=(Z-30)+2:C=1140t: SUMA PUNTUACION  N=12 5Q(N)>12 SUMA=SUMA+(Q(N)-3):1320( 4Q(N)>7SUMA=SUMA+(Q(N)-8):1320( (N: 2 CARTA GANADORA <&CA1=PINTAX(M)PINTAGANA=2: F&CA1PINTAX(M)=PINTAGANA=1: PCA1=X(M)1390n ZTP=1GANA=1: dGANA=2: nV1>S(M)GANA=2: xGANA=1: BORRA CARTA ELEGIDA $EK=1S=10 :1450 $EK=2S=14:1450  S=18 'N=1520:N-L,S;" ":N  ORDENADOR ELIGE CARTA N=13 S(N)=1S(N)=14 S(N)=3S(N)=13 N: CA1=PINTA1560 QV1<10 M(1)=1740:M(2)=1800:1580, GV1<12 M(1)=1620T:M(2)=1800:1580, QM(1)=1620T:M(2)=1680:M(3)=1800:1580, GV1>11 M(1)=1620T:M(2)=1800:1580, "1800: ,U=13 6M(U) @ M0 JU TLA MAYOR QUE PINTE ^KA=0:M=0 hN=13 rF(N)=01670 |(CA1=X(N)KAV1KA=S(N):M=N N: LA MENOR QUE PINTE KA=20:M=0 N=13 F(N)=01730 "X(N)=PINTAKA>S(N)KA=S(N):M=N N: #MAYOR>7 QUE PINTE IGUAL KA=0:M=0 N=1Track-Info  R 3 F(N)=01790 -CA1=X(N)S(N)>7KA14S(N)=S(N)/15 N:1870N JUGADOR ELIGE CARTA 23675{\,248 C.2~L,0:1;21,DK;2;"";4;"" MDK11 ="Z"ſ31=22030:DK=DK-4:1970 I="T"E=122:.01z# =,60<:3582 :E:30 MDK19="X"ſ31=12030:DK=DK+4:1970 P=13 ſ31=16ƫ(18,DK)5682030:2040  1980 1;21,DK;"": $DK=11 R=1:2070 $DK=15R=2:2070  R=3 bZ=G(R):1190:L=0:EK=R:1420:A=96`:B=64@:1100L:CA1=C:V1=D  V1=1V1=14 *V1=3V1=13 4 >!TIRA CARTA EL ORDENADOR H:N=13:Z=F(N):1190:S(N)=D:X(N)=C:N R0TP=11480:1800:2150f \1480:1520 fL=14:EK=M:1420 p;Z=F(M):1190:A=128:B=64@:1100L: zACTUALIZA PUNTUACION 23675{\,248 DGANA=1PRIM=PRIM+SUMA:3,28;PRIM:TP=1: 2SUMA>0E=13:50288p:E G.05|L,45-:SEG=SEG+SUMA:5,28;SEG:TP=2: TRES ULTIMAS CARTAS " " P=13 0TP=21960:2120H:2270 2120H:1960 %=""ƿ31<11 2265 8=""(31=031>25)2270 /N=813 :N,12 ;" ":N :Q(1)=S(M):Q(2)=V1:SUMA=0:1290  1340<:2180 F(M)=0 P  950  400 $ GRAFICOS & SONIDO  .N=03062 8A L50000P+N,A VN ` 0 j t0,0,0,3,0,63?,127,255,0,0,0,192,0,252,254,255,0,255,0,255,190,190 ~188,156,0,255,0,255,125},125},61=,579,156,220,94^,126~,63?,31,15,0,579,59;,122z,126~ 252,248,240,0,7,0,15,31,63?,0,255,0,224,0,240,248,252,0,255,0,0,0 3,13 ,31,557,103g,127,0,0,192,240,248,220,206,254,127,127,113q,535,535,491,31,31 254,254,238,236,228,252,248,248,31,31,31,27,11 ,11 ,15,15,248,152,184,240,240,224 224,192,15,11 ,15,31,30,38&,44,,120x,192,192,128,0,0,0,0,0,63?,64@,128,128 128,128,128,128,252,2,1,1,1,1,1,1,128,128,128,128,128,128,64@,63?,1,1 1,1,1,1,2,252,170,85U,170,85U,170,85U,170,85U,0,1,3,7,1,1,1,0 0,128,192,224,128,128,128,0,0,0,47/,41),41),41),41),47/,0,0,18,18,18,18 18,18,0,0,39',33!,39',36$,36$,39',1,3,3,3,3,3,240,255,128,192,192,192 192,192,15,255,7,7,7,7,7,7,7,7,224,224,224,224,224,224,224,Track-Info  R 224,7,7 7,3,3,1,1,1,224,224,224,192,192,128,128,128,0,7,24,32 ,67C,76L,136,144 0,224,24,4,194,502,17,9 ,144,136,76L,67C,32 ,24,7,0,9 ,17,502,194,4,24,224,0 6,255,33!,1,0,17,1,0,229,197,205,181,3,193,225,35#,16,243,201 645688:2590 &F=65338:65376`:A:F,A:F 65338: f33!,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\,33!,0,61=,17,579,252,1,208,0,237,176,201 ( :10 PLUS3DOSll[A=110 :1;10 ,10 ;"PARE LA CINTA":A/10 ,A/10 :A  5000 23658j\,8 &0:7:1:1: &0:7:1:1: KAT=71G:t=0:pant=1:pa=1:tes=0:vi=1 %dir=0:x=16:y=15 2ESCENARIO dG4;7;2,0;"" nG3;7;6,0;"" xH1;6;10 ,0;"" H5;2;14,0;"" H2;6;18,0;"" 2,5;"";3,5;"";2,12 ;"";3,12 ;"";2,22;"";3,22;"" 6,9 ;"";7,9 ;"";6,18;"";7,18;"";6,26;"";7,26;"";6,29;"";7,29;"" z5;14,28;"";4;2,13 ;"";2,18;"";1;10 ,1;"" 95;14,10 ;"";14,14;"" "2;18,29;"" 10 ,4;"";11 ,4;"";10 ,14;"";11 ,14;"";10 ,22;"";11 ,22;"" 14,5;"";15,5;"";14,21;"";15,21;"";14,27;"";15,27;"";19,24;"" ^1;6;1;2,15;"";6,10 ;"";6,23;"" z1;6;1;10 ,2;"";10 ,10 ;"";10 ,28;"";10 ,31;"" z1;6;1;14,15;"";14,7;"";18,8;"";18,25;"" ^6;2;1;1,14;"";1,16;"";5,11 ;"" Ê6;2;1;5,24;"";9 ,3;"";9 ,30;"";13 ,31;"";17,8;"" 621,0;"" k1;21,0;"VIDAS:";vi;21,9 ;"TESOROS:";tes;21,21;"PANTALLA:";pa a=1:b=-1 c=1:d=7 e=1:f=29 221:3106 SITUACION FLECHA p=(*5) p=0fle=0 p=1fle=4 p=2fle=8 p=3fle=12 p=4fle=16 '.02{# =,10 :.01z# =,0  BUCLE PRINCIPAL 68dir=dir+1:b=b+1:d=d+1:f=f-1 ;74;a,b;"";2;c,d;"";3;e,f;"" <fle,dir;"" =fle=xdir=y4000 Hx,y;"";x+1,y;"" IBOLAS CON POS. a,b Jx+1Track-Info  R =ay=b4000 Tob=5b=9 b=14b=21.01z# =,5:a=a+4:4;a-4,b;" ";a,b;"" |6b=314;a,b;" ":a=1:b=-1 BOLAS CON POS. c,d x+1=cy=d4000 qd=12 d=18d=22d=27.01z# =,8:c=c+4:2;c-4,d;" ";c,d;"" ,d=31c,d;" ":c=1:d=7 BOLAS CON POS. e,f x+1=ey=f4000 qf=22f=18f=14f=5.01z# =,-5:e=e+4:3;e-4,f;" ";e,f;"" 9f=0e=1:f=28:17,0;" "  i$= Ri$="Q"x>0(x-2,y)=atx,y;" ";x+1,y;" ":x=x-4 Oi$="A"x<21(x+2,y)=atx,y;" ";x+1,y;" ":x=x+4 Ki$="O"y>0y=y-1:x,y+1;" ";x+1,y+1;" " &Li$="P"y<31y=y+1:x,y-1;" ";x+1,y-1;" " 0Ix+1=ay=bx+1=cy=dx+1=ey=ffle=xdir=y4000  &(x+2,y)=2414000 *9dir31fle,31;" ":dir=0:221 4x,y;"";x+1,y;"" >.(x+1,y+1)=2143000 H.(x+1,y-1)=2143050 Rt=88000@ \x=206000p )fle,dir;" ";a,b;" ";c,d;" ";e,f;" "  3106 RECOGIDA DE OBJETOS 8x+1,y+1;" ":tes=tes+1:t=t+1 !21,17;1;tes '.01z# =,13 :.01z# =,1  8x+1,y-1;" ":tes=tes+1:t=t+1 !21,17;1;tes '.01z# =,13 :.01z# =,1   MUERTO tk=0502:.01z# =,(*40():ٺ(*7);x,y;"";x+1,y;"":k:x,y;" ";x+1,y;" " 'x=16:y=15:vi=vi-1 vi=-17000X 21,6;1;vi   G.D.U. f=087W s  "a"+f,s f O60<,126~,255,255,255,255,126~,60< Q195,255,255,195,195,255,255,195 M170,85U,170,85U,170,85U,170,85U K0,0,60<,126~,255,255,126~,60< K60<,60<,126~,60<,60<,24,60<,126~ N126~,189,189,165,36$,36$,36$,102f L36$,66B,189,32 ,60<,133,126~,36$ C0,0,2,255,2,0,0,0 M247,247,247,0,127,127,127,0 H255,247,119w,35#,3,1,0,0 L255,255,254,190,156,12 ,8,0  oOTRA PANTALLA p`pant=1pant=2:pa=pa+1:at=112p:0:6:2::30 z_pant=2pant=1:pa=pa+1:at=71G:7:0:1::30 WFINAL DE JUEGO 81;9 ,3;" " 91;11 ,3;" " 91;10 ,3;" QUIERES JUGAR DE NUEVO? " i$= i$="s"i$="S":17 i$="n"i$="N"  7110 ?IMPRIME SALIDA @Jt=0:18,24;"";20,22;1;"SALIDA": PLUS3DOSrrgM. Sepulveda *INTERCAMBIO* [a=110 :1;10 ,10 ;"PARE LA CINTA":a/10 ,a/10 :a %a()=((3,x*4))-32 1000 1050:100d 0r=0:1;21,23;"MUEVE" 40:x$=:x$>1x$<"0"x$>"8"12 x$="8"l,c;" - ":11 x$="0"1050:11 Track-Info  R  Hx=x$-480:r=0y=x:b=a():r=r+1:l,c;x$:12 z=x:d=a():l,c+2;x$ "b=7d7r=0: b=224 z>y+2zyr=0  d 11 nMr=021,0;"MOVIMIENTO INCORRECTO.";l,c;" - ":100d x221,0;" " 7;3,y*4-1;a$;4,y*4-1;b$;b;3,z*4-1;a$;4,z*4-1;b$ b=0:d=b <n=13:x=n:b=b+a():x=n+4:d=d+a():n 1l=l+1:l>19l=8:c=c+5 b6d0100d n=1502:6:2:6:.2~L,10 :3:7:5:.1}L,30:0:5:4:.3,20:n G0,0;"Quieres volver a intentarlo ";c$:c$="s"10  #n="a""a"+31:a:n,a:n: 3,15,31,63?,127,127,255,255, 192,240,248,252,254,254,255,255 255,255,127,127,63?,31,15,3, 255,255,254,254,252,248,240,192 0:4:7: $aa$="":b$="":0,10 ;"INTERCAMBIO";3,15;a$;4,15;b$ .@n=3274:2,n;(n/4+1):n 8|n=311 4:0;3,n;a$;4,n;b$;2;3,n+16;a$;4,n+16;b$:n B%6,10 ;"MOVIMIENTOS" L8n=819:n,13 ;"-";n,18;"-":n Vl=8:c=12 : PLUS3DOS6, DEMO "GIGANTULA" ARTICULO MICROHOBBY  = PARA DETENER LA DEMO MANTENER PULSADA CUALQUIER TECLA  29999/u "BF.0"300000u,991 300000u PLUS3DOS_0u͎uuv((&@xgxoFN~~Fuy x w$= F = !@@66D>!?v6GvVu~w@!Z6p#!gY>mw w!Y>Lw !Cv66vVu x  46  vVuvv! 5  Ԡ.(   +P@! * @C A3 !sނ -0/--E@aldfl|<,(((pp800 `@@@C?а0 ;=}vF7 nnf$ ==-++#ffeDD@` Fg0sgDć7qypp`@Track-Info  R FkaaacgDDD@0 Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R         Track-Info ! R!!!!!!!!! Track-Info " R""""""""" Track-Info # R######### Track-Info $ R$$$$$$$$$ Track-Info % R%%%%%%%%% Track-Info & R&&&&&&&&& Track-Info ' R'''''''''