MV - CPCEMU Disk-File Disk-Info ZX-Modules(Track-Info  R ( *RTrack-Info  R DISK MICRO 7 04  AA ; AA 0 AA 1 AB AC D !"#$%&AD N'()*+,-./0AE t123456789:;<=>?AF @@ABCDEFGAG HIJAH !KLMNOAI PQRSBA BTUVWXYZ[\BB ]^BC Z_`abcdefghijBD klmBE nopBF 2qrstuvwBG 5xyz{|}~BH !BI BJ =BK ;PLUS3DOS@ @DISKEADO POR MADFOX "MICRO"  300, "04" 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;;88888887778888PLUS3DOSd dCINTA 04 (REVISTAS 13 a 16) 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-Editext"  7,18;"B-Pingpong" &8,3;"C-Help" 0!8,18;"D-Omegatron" : 9 ,3;"E-Barquitos" D9 ,18;"F-Test" N10 ,3;"G-Lineas" X 10 ,18;"H-Moviles" b"11 ,3;"I-Bombardero" !15,11 ;"1 - VOLVER" B$= B$=""680 B$="A"B$="a""AA" B$="B"B$="b""AB" B$="C"B$="c""AC" B$="D"B$="d""AD" B$="E"B$="e""AE" B$="F"B$="f""AF" B$="G"B$="g""AG" B$="H"B$="h""AH"  B$="I"B$="i""AI" HB$="1"100d R 500 --- MENU CARA B --- :5000:6000p 4,12 ;"CARA B" 7,3;"A-Campos" 7,18;"B-Chrom" 8,3;"C-Torres" $ 8,18;"D-Geometra" .9 ,3;"E-Dados" 89 ,18;"F-Laber3d" B 10 ,3;"G-Momentos" L!10 ,18;"H-Ahorcado" V"11 ,3;"I-Polinomios" `"11 ,18;"J-Boyerland" j12 ,3;"K-Verbos" !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$="K"B$="k""BK" <B$="1"100d F 1000 --- CABECERA --- 51:0,4;"CINTAS MICRO N. 04" -2:0,16;"HOBBY":0 C3:1,6;"DISKEADO POR MADFOX":0:0 #3,8;"REVISTAS 13-16"  p--- PIE DE PANTALLA --- z?1:20,0;" J, siempre... ILM " ?21,0;" ELIGE UNA OPCION ":0  OR B$="m" THEN LOAD "BM" 2$IF B$="N" OR B$="n" THEN LOAD "BN" <B$="1"100d F 1000 --- CABECERA --- 51:0,4;"CINTAS MICRO N. 04" -2:0,16;"HOBBY":0 C3:1,6;"DISKEADO POR MADFOX":0:0 #3,8;"REVISTAS 13-16"  p--- PIE DE PANTALLA --- z?1:20,0;" J, siempre... ILM " ?21,0;" ELIGE UNA OPCION ":0  PLUS3DOSD(# 8000@ d3236066\,194:236077\,126~:b=a n3a;8;1;"";8;:cr=cr+1 x-236066\,0:236077\,60<: <236066\,194:236077\,126~:b;8; .236066\,194:236077\,129 51;a;"";8;:cr=cr+1:120x cr=01100L [m=m-1Track-Info  R :a=(m-1):cr=cr-2:" ";8;8;:100d:1300 X7m=m-1:cr=cr-1:"";8;:1100L .c=0:#1;0,28;" " a=13 " ":1600@ +a=112pa=80Ppa=cr:1100L /a=98ba=66Bpa=0:1100L 0a=579t(4):ct=1:1100L a=4917000X $a=116ta=84T7400 a=123{*(a=97a)+124|*(a=101e)+125}*(a=105i)+126~*(a=111o)+127*(a=117u):a=01100L  1170  .c=0:#1;0,28;" " *ua=13 236066\,194:236077\,126~:b:236066\,0:236077\,60<:1600@ 4+a=112pa=80Ppa=cr:1300 >/a=98ba=66Bpa=0:1300 H0a=579t(4):ct=0:1300 Ja=4911300 L$a=116ta=84T7420 Ra=123{*(a=97a)+124|*(a=101e)+125}*(a=105i)+126~*(a=111o)+127*(a=117u):a=01300 \ 1370Z (:"INTRODUZCA ZONA DE AJUSTE (0-8)";za #za<0za>81000 uza=64@-za:c=0:pa=0:cr=0:m=34242…:0,0;"";8;:.01z# =,0 L"0:a=:.01z# =,0 Qa=61700 Va<12 1100L `c=1700 ja=12 500 ta=13 1200 ~Fa=14c=1:#1;0,28;"EXT.":1100L m,a:m=m+1:100d cr=za.05|L,40( +(a=32 a=45-)crza1400x  1300 "23689\=21600@ " ":cr=64@1220 m,13 :m=m+1  cr=0 pa=cr1260 )a=32 :m,a:m=m+1:100d pa=cr1300 5a=32 :m,a:m=m+1:200:1225 "";8;:1100L "0:a=:.01z# =,0 a=61700 a<12 1300 (c=1800  2a=12 600X <a=13 1400x FFa=14c=1:#1;0,28;"EXT.":1300 Zm,a:m=m+1:200 _cr=za.05|L,40( d+(a=32 a=45-)crza1200 n 1500 x"23689\=21600@ v236066\,194:236077\,126~:b:236066\,0:236077\,60<:cr=64@1220 %m,13 :m=m+1:1220 "23689\=21600@  1100L @}m,255:.5,20:#1;0,0;"FIN DE PAGINA"'"PULSE PARA IR A OPCIONES":0::8000@ .23658j\,8*(23658j\=0): @:p$="2-ALMACENAR LA PAGINA EN CURSO":yy=64@:9300T$ "NUMERO DE PAGINA? (1-21)";np 632680,a(np):32681,b(np):32679  8000@ ?:p$="3-IMPRIMIR LA PAGINA EN CURSO":yy=80P:9300T$ 502: M1:32595S:0:236066\,0:236077\,60<: 8000@ 3:p$="4-SALVAR EN CINTA":yy=96`:9300T$ "DESDE QUE PAGINA? (1-21)";np $np<1np>214010 ""CUANTAS PAGINAS? (MAX. 21)";npp D(34242…+np*1408+npp*1408)>652184030 @#1;0,0;"Cinta en ""REC"" , pulse una tecla" 2"texto"34242…+np*1408,npp*1408 "DESEA VERIFICAR? (s/n)";r$ -r$(1)="n"r$(1)="N"8000@ >"texto"34242…+np*1408,npp*1408:8000@ 4:p$="5-CARGAR DE CINTA":yy=112p:9300T$ M18,0;"EL TEXTO EN CINTA SE CARGARA A PARTIR DE LA PAGINA 1" I#1;0,0;"Cinta en ""PLAY"", pulse una tecla":0 >#1;0,0;" " "texto"35650B  8000@ pA:p$="6-LEER LAS PAGINAS ALMACENADAS":yy=128:9300T$ z%"A PARTIR DE QUE PAGINA? (1-21)";np $np<1np>216010z u:32692,a(np):32693,b(np):1:32691:0:236066\,0:236077\,60< [#1;0,0;"PAGINA ";np;1,0;"S:Seguir P:Imprimir: O:Opciones" 0:rp= &rp=79Orp=111o8000@ (rp=80Prp=112p:6050 &rp83Srp115s6050 (np=np+1:np>218000@  6030Track-Info  R  Xcr>01100L bt(4):ct=1 l0:a= v#a=32 100d:7070 =a=116ta=84Tt(ct)=cr:ct=ct+1:7070 a=13 7200   7020l ct=57206& 0:a= #a=32 200:7150 =a=116ta=84Tt(ct)=cr:ct=ct+1:7150 a=13 7200   7100 ct=57200   7020l  J" ";24-23689\,0;"";8;:cr=0:1100L )a=32 :m,a:m=m+1:100d Ecr=t(1)cr=t(2)cr=t(3)cr=t(4)1300 cr=64@cr=0 )a=32 :m,a:m=m+1:200 Ecr=t(1)cr=t(2)cr=t(3)cr=t(4)1100L  cr=64@cr=0  7400 @:65218 J%xx=16:xs=1:ys=2 T t(4) Ya(x)=(34242…+x*1408)-256*((34242…+x*1408)/256) 4b(x)=((34242…+x*1408)/256) ?0:op=:8100+10 *(op>480op<557) (op-480)*1000 #( 32255} #20:1: #765;10 ,4;"CARGANDO CODIGO MAQUINA" #8 0 #<"AA.0"32256~,3394B #A"AA.1"65218,292$ #F:5:2:1 #PEp$="PARE LA CINTA":xs=2:ys=3:yy=64@:9200# #Z 100d #d&0:0::3:7 #n2p$="EDITOR":xs=3:yy=16:9200# #x&p$=" DE ":yy=40(:9200# #&p$="TEXTOS":yy=64@:9200# #0:6 #=p$=" J. Alonso 1984":xs=2:yy=104h:9200# #5:2:1 #,p$="MICRO-HOBBY":yy=144:9200# #1250:5:1:7:0: #1:32595S #+236066\,0:236077\,60< #0:0: #'xx=(256-8*xs*p$)/2 $Ti=23306 [:i,xx:i+1,yy:i+2,xs:i+3,ys:i+4,8:i=i+4:w=p$:n=1w:i+n,p$(n):n:i+w+1,255:w=32256~: &"Editext"9000(# &"AA.0"32256~,3394B &"AA.1"65218,292$ & "editext" &"AA.0"32256~,3394B &"AA.1"65218,292$ PLUS3DOS B ~![~#"[o<&)))K6\ >2[: [2 [: [2[> 2[~#"[2[:[= 2:[= :[G: [O: [ 2 [*[~2[: [G: [2 [*[ ~2[: [G: [2[: [Oͤ~:[<2[ :[<2[ :[0~@ :\G:\G:[o:[g>Xg:\w:[G@gxgxo:[Go!~xO F![F(// P> #>!…>26\>~27\~(<~ (~(*>#>27\~(#~ (~(#!B7?B( > > !…!…S@@@@@@@@@` @ @`а @ @@ @ @@@@ @  @ࠠ ` ࠠࠠ @@ @ @@ @  @ @@`ࠠࠠࠀࠠ@@@@@@ ࠠа@@@`ࠀ@ @@@@@@@@@@@ @@ @@@@@@@@@@@@@@ ࠠ ࠠ`@@@@ࠠ ࠠ@@@@` @@@@@ࠠࠠࠠ ࠠ `@ @@@@@`@@@ @ @ @ @@@@` @ࠠ @            Track-Info  R                                                        C O M A N D O S D E L E D I T E X T COMANDOS EN MODO NORMAL * COMANDOS EN MODO EXT. * CAPS SHIFT + 2 = CAPS LOCK * 1 = FIJAR TABULADORES * CAPS SHIFT + 0 = BORRADO * 9 = BORRAR TABULADORES * ENTER = NUEVA LINEA * T = TABULADOR * SIMBOL SHIFT + 2 = @ * P = FIJA PARRAFO ADENTRADO * SIMBOL SHIFT + 6 = & * B = BORRA PARRAFO ADENTRADO * CAPS + SIMBOL = MODO EXT. * ENTER = FIN DE PAGINA * * VOCAL = VOCAL ACENTUADA * * * PULSE CUALQUIER TECLA PARA EMPEZAR * *PLUS3DOS$!% [~!3 [~!L [$~!p [#~! [~! [~! [$~@OPCIONES01-ESCRIBIR UN TEXTO@2-ALMACENAR LA PAGINA EN CURSOP3-IMPRIMIR LA PAGINA EN CURSO`4-SALVAR EN CINTAp5-CARGAR DE CINTA6-LEER LAS PAGINAS ALMACENADASDPLUS3DOS V V "1:1:7::1;10 ,10 ;"PARE LA CINTA":200::8000@:9000(#: Julia perez Serrano 1984 o0:0:7::lado=(*2):0,0;"Jugador N1";2,0;"Tantos.-";"0" A0,21;"Jugador N2";2,21;"Tantos.-";"0" 6iz=13 :der=13 :piz=0:pder=0 Sq=64510:a=65022:p=57342:l=49150:x=1:y=15 .pp=3+25*lado:lado=1x=-x C.05|L,15:.05|L,5:.05|L,15:incv= r4,4:247,0:0,128:-247,0:0,-128:118v+8,4:0,128:120x+8,4:0,128:122z+8,4:0,128:568+8,4:0,128:184+8,4Track-Info  R :0,128:568+8,68D:128,0 #iz,2;"";der,29;"" y,pp;1;7;"" #(qinſain)=11000 #(pinſlin)=11100L ((iz+1,3)=6ū(iz-1,3)=6ū(iz,3)=6ū(der,28)=6ū(der+1,28)=6ū(der-1,28)=6)=1x=-x:.01z# =,5 (B(y=20źy=5)=1incv=-incv:.01z# =,10 20y,pp;1;7;"":pp=pp+x:y=y+incv <.(pp>29pp<2)=13000 Fy,pp;1;6;"" d 20 `iz,2;" ":iz=iz+(1ƿainiz<20)-(1ƿqiniz>6):iz,2;""  Lhder,29;" ":der=der+(1ƿlinder<20)-(1ƿpinder>6):der,29;"" M pp>15piz=piz+1 pp>15lado=1 pp<5pder=pder+1 pp<5lado=0 -2,8;piz;2,29;pder 2(piz=21pder=21)=15000 7 011 ,10 ;1;1;"TACHING" .5,0  .5,10 011 ,10 ;1;1;"TACHING"  .5,0 ;piz>pder13 ,0;"El ganador es el jugador N1" ;piz op=23000 op=10 2000 op=9 2080  op=52500 op=61180 35# ! DETERMINANTES  " DETERMINANTES" ind=0 $"ORDEN DEL DETERMINANTE 2,3,4 ";d 54,0;" " ^d<2d>44,0;1;"NO ESTOY PROGRAMADO PARA HACERLO":180 a(d,d) i=1d j=1d "A(";(i);",";(j);") ";a(i,j) j i d=2Track-Info  R 280 d=3350^  431 F6,6;"| ";a(1,1);" ";a(1,2);" |" "F7,6;"| ";a(2,1);" ";a(2,2);" |" 'OB=a(1,1)*a(2,2)-a(1,2)*a(2,1) (ind=1 ,&12 ,6;"DETERMINANTE= ";b 6/16,4;"OTRO DETERMINANTE ? (s/n)" @ 0 J="s"Ŧ="S":170 T ^]6,6;"| ";a(1,1);" ";a(1,2);" ";a(1,3);" |" h]7,6;"| ";a(2,1);" ";a(2,2);" ";a(2,3);" |" r]8,6;"| ";a(3,1);" ";a(3,2);" ";a(3,3);" |" |]B=(a(1,1)*a(2,2)*a(3,3)+a(1,2)*a(2,3)*a(3,1)+a(2,1)*a(3,2)*a(1,3))-(a(1,3)*a(2,2)*a(3,1)+a(1,1)*a(2,3)*a(3,2)+a(3,3)*a(1,2)*a(2,1)) ind=1 &12 ,4;"DETERMINANTE= ";B /16,4;"OTRO DETERMINANTE ? (s/n)"  0 ="s"Ŧ="S":170  t6,6;"| ";a(1,1);" ";a(1,2);" ";a(1,3);" ";a(1,4);" |" t7,6;"| ";a(2,1);" ";a(2,2);" ";a(2,3);" ";a(2,4);" |" t8,6;"| ";a(3,1);" ";a(3,2);" ";a(3,3);" ";a(3,4);" |" t9 ,6;"| ";a(4,1);" ";a(4,2);" ";a(4,3);" ";a(4,4);" |"  b=0 7o=1:p=2:q=3:r=4:520 7o=3:p=1:q=2:r=4:520 7o=1:p=4:q=2:r=3:520 7o=2:p=3:q=1:r=4:520 7o=4:p=2:q=1:r=3:520 7o=3:p=4:q=1:r=2:520 ind=1 &12 ,4;"DETERMINANTE= ";b  550& 7a=a(1,o)*a(2,p)-a(1,p)*a(2,o) =b=a*(a(3,q)*a(4,r)-a(3,r)*a(4,q))+b  &/16,4;"OTRO DETERMINANTE ? (s/n)" 0 0 :="s"Ŧ="S":170 D I! ECUACIONES N  N+2,2;" ECUACIONES ORDEN N" X"ECUACION (X)= ";e$ b"INTERVALO ";a;" ";b l"=";e v x=abe {23692\,3 s=e$ s,x Hs<.001wns>-.001wn1;"solucion pres cont...":0 x "OTRA ECUACION ? (s/n)"  0 ="s"Ŧ="S":590N : ! PRODUCTO VECTORIAL  +2,2;" PRODUCTO VECTORIAL" 16,0;"(ai + bj +ck)x(di + ej + fk)" +"a=";a,"b=";b,"c=";c,"d=";d,"e=";e,"f=";f K6,0;"(";a;"i + ";b;"j + ";c;"k)x(";d;"i + ";e;"j + ";f;"k)="  i=b*f-c*e  j=c*d-a*f  k=a*e-b*d  /7,4;"= ";i;"i + ";j;"j + ";k;"k" +10 ,4;"otro producto ? (s/n)"  0 *="s"Ŧ="S":710 4: 9 OPERAR  >" para parar" Co$ H o$="" Ro$, \ 835C   ECUACIONES 2  #:7,10 ;"ax^2+bx+c=0" (4,7;"teclee coeficientes" "a=";a,"b=";b,"c=";c d=(b)^2-4*a*c $,12 ,4;a;"x^2+(";b;")x+(";c;")" .d<0d=d:1140t 8.17,4;"x=";(-b+(d))/(2*a) B.19,4;"x=";(-b-(d))/(2*a) L%21,4;"otra ecuacion ?" Q 0 V="s"Ŧ="S"1000 j t,14,4;"SOLUCIONES IMAGINARIAS" ~@16,4;"X=";-b/(2*a);"+";(d)/(2*a);"i" @18,4;"X=";-b/(2*a);"-";(d)/(2*a);"i"  1100L  INTEGRAR  "funcion (x) ";f$ "limites=? (2) ";a;" ";b "particion ";c:c=2*c x=a:1350F:i=y d=(b-a)/c:o=c/2  "x=x+d:1350F:i=i+y*4 "x=x+d:1350F:i=i+y*2 $o=o-1:o01290  (x=b:1350F:i=i-y 2d:10 ,4;f$;14,4;"limites= ";a;" , ";b;17,4;"I= ";d*i/3 < 1370Z Fy=f$ P ZG19,4;"OTRA INTEGRAL ?":0:="s"Ŧ="S"1180 d l  MODULO DE VECTORES  :" MODULO DE VECTORES" &10 ,4;"v= aiTrack-Info  R          + bj + ck" "a= ";a,"b= ";b,"c= ";c 112 ,4;"v= ";a;"i + ";b;"j + ";c;"k" mdl=(a*a+b*b+c*c) 16,6;"[v]= ";mdl  K20,5;"otro modulo ? (s/n)":0:="s"Ŧ="S"2000    PRODUCTO ESCALAR   )2,2;" PRODUCTO ESCALAR" *16,0;"(ai + bj +ck)x(di + ej + fk)" 4+"a=";a,"b=";b,"c=";c,"d=";d,"e=";e,"f=";f >K6,0;"(";a;"i + ";b;"j + ";c;"k)*(";d;"i + ";e;"j + ";f;"k)=" Hpe=a*d+b*e+c*f R7,4;"= ";pe \*8,8;"otro producto ? (s/n)" f 0 p="s"Ŧ="S"2080  z  GRAFICAS   "X(t) ";X$ "Y(t) ";Y$ f=1:rd=1 "INTERVALO DE T (-t,t) ";a &127,0:0,175 %0,87W:255,0 t=-a/rda/rd.1}L/f ym=(y$*f)+87W xm=(x$*f)+127 (xm<02640P 2xm>2552640P <ym<02640P Fym>1272640P Kxm,ym Pt Z*#0;"PRESS 1-AMPL. 2-NEW LIMITS" d 0 nR="1""FACTOR ";f:#0;" REDUZCO LIMITES ?":2800 ::2540 x="2":2530 },#0;" OTRA CURVA ? " 0 ="s"Ŧ="S"2500 : 0:="s"Ŧ="S"rd=f  SISTEMAS DE ECUACIONES  :"N DE INCOGNITAS (2,3,4) ";N:C(N,N):I(N):A(N,N):R(N) N=N:N>43010 N<23010 F15,0;"INTRODUZCA COEFICIENTE DE LA INCOGNITA" J=1N 16,18;J I=1N "DE ECUACION ";(I);" ";C(I,J) I J  &615,0;"INTRODUZCA TERMINO INDEPENDIENTE" 0 I=1N :"DE ECUACION ";(I);" ";I(I) DI N PJ=1N:I=1N QA(I,J)=C(I,J) SI:J X&IND=1:N=2DI=295' ]N=3DI=380| `N=4DI=435 bDI l}CO=B:CO=010 ,0;1;" NO FORMA SISTEMA LA MATRIZ DE COEFICIENTES VALE 0 ":3350 v V=1N J=1N I=1N A(I,J)=C(I,J) I J J=1N A(J,V)=I(J) J DI R(V)=B V J=1N R(J)=R(J)/CO B10 +(2*J),2;"SOLUCION INCOGNITA ";J;" = ";R(J) J  #0;" OTRO SISTEMA ?" 0 *="S"Ŧ="s"3000 4 PLUS3DOS& & &6 Adolfo Maranon Espinar c/ OLORIZ n.2 13-C .GRANADA N7::0:1;10 ,10 ;"PARE LA CINTA":200: <OMEGA.  A.Maranon.1984***********************************  4000 a$(4,3):b$(4,3):a$(4)="":b$(4)="":a$(1)=" ":b$(1)="":a$(3)="":b$(3)="":a$(2)=" ":b$(2)="":i=5 ddecorado******************* e0:0: fWn=180P:6;(*248)+4,(*130)+42*:n:n=13:1;2;1;210,155,n:n:n=18:3;1;1;502,120x,n:n:35#,126~:1;3;31,-14:n=15:1;1;170,80P,n:n i20,22;6;1;1;"O";19,22;"O"::87W,29:4;1;0,-29:0,2:4;1;255,0:227,5:4;1;28,0:189,29:4;1;0,-29:227,29:4;1;0,-29:557,29:4;1;0,-29 m4:1:0,175:255,0:0,-175:-255,0:0,175:19,15;"URANIO" n#punto miTrack-Info  R         ra======================= x@1;7;127,87W,12 :1;7;127,87W,20:127,87W:1;7;0,32 :127,87W:7;1;32 ,0:127,87W:7;1;-32 ,0:127,87W:7;1;0,-32 e0,31:7;1;255,0:0,32 :7;255,0 7;72H,18,9 :7;72H,18,11 :19,8;7;1;1;".+":7;103g,18,9 :7;103g,18,11 :7;1;19,12 ;"::" 19,1;4;0;1;"QQ";20,1;1;1;6;1;1;"@#";19,4;2;5;1;"^Q";20,4;1;1;6;1;1;"TV" 73I,168:4;1;108l,0:0,95_:4;1;75K,72H:255,95_:4;1;-75K,72H:0,97a:4;1;73I,72H:255,97a:4;1;-73I,72H s0,127:4;1;45-,47/:255,127:4;1;-45-,47/ p120x,26:4:1:502,0:0,-20:-502,0:0,20 !19,24;2;6;1;"";19,25;1;1;"";19,26;6;1;"Y";19,27;3;"";20,24;1;"";20,25;3;1;1;7;"O";20,26;4;"" p480,39':4;1;158,0:480,37%:4;1;158,0 @1;17,5;2;"";17,26;"" $graficos++++++++++++++++++++++++++ 24,24,24,24,24,24,255,24,0,0,0,255,255,0,0,0,0,0,0,255,255,0,0,0,60<,126~,255,231,195,255,0,0 J24,568,124|,60<,24,16,0,200 ԩ0,0,0,0,0,1,3,15,0,0,24,60<,126~,255,60<,255,0,0,0,0,0,128,192,240,63?,234,127,4,2,1,0,0,255,189,255,60<,36$,195,0,0,252,87W,254,32 ,64@,128,0,0 $24,24,24,24,24,24,24,24,0,0,0,128,129,255,128,128,255,60<,126~,255,231,231,126~,0,0,0,0,1,129,255,1,1 ֧8,16,32 ,64@,128,128,192,255,0,0,0,0,60<,126~,255,255,16,8,4,2,1,1,3,255,192,192,128,128,64@,32 ,16,8,255,102f,60<,0,0,0,0,0,3,3,1,1,2,4,8,16  %n=0167:q:"a"+n,q:n ,+rutina principal************************* 1]qe=0:q=0:qw=0:v=0:d=0:p=0:f=0:t=1000 6:x=1:r=19:s=1:l=10 :c=15 @vl=l+(2*)-(2*)+(="6"ſ223=8)-(="7"ſ223=4):l16l1l=1 Av=v+10 :7;1;1;120x+v,87W+v:1;7;120x+(v-10 ),87W+(v-10 ) B[7;1;1;120x,87W+v:1;120x,87W+(v+10 ) Cl7;1;1;120x+v,-87W+v:1;120x+(v-10 ),-87W+(v-10 ) Dl7;1;1;-120x+v,87W+v:1;-120x+(v-10 ),87W+(v-10 ) En7;1;1;-120x+v,-87W+v:1;-120x+(v-10 ),-87W+(v-10 ) Iv70Fv=0 Jwc=c+(*2)-(*2)+(="8"ſ223=2)-(="5"ſ223=1):c1c29c=29 Or,s;1Track-Info  R         ;b$(x);r-1,s;a$(x);r+1,s+1;"":r=l:s=c:l,c;1;i;b$(x);l-1,c;a$(x);l+1,c+1;ٺ(*7);1;"" Pq=q+1:qw20019,1;7;0;1;1;"";20,1;(600X-qw)+" ":qw=300,qw=400qw=500qw=520qw=530qw=540qw550&1,20 QPq=10 qe=qe+1:7;1;190,100d,qe:q=0 Rqw=qw+1:qw600Xn=110 :.008zn,n:(*7):.01z# =,-20-n:n:65A,27:1;120x,120x,59;^3*:10 ,0;0;7;1;1;"LA NAVE OMEGA HA SIDO DESTRUIDA ":0:: T223=16Ŧ="y"t=t-10 :480,39':3;1;1;80P,480:.01z# =,10 :207,39':3,1;1;-80P,480:n=5205:.007ye`A,n:n:480,39':1;80P,480:207,39':1;-80P,480:l=10 c=14f=1:n=20-20-5:.007ye`A,n:(*6):1;(*6)+1;l,c;"";l-1,c+1;"":f=1 Uf=1x=(*4)+1:i=(*6)+2:d=1:f=0:p=p+1:20,29;4;1;7;1;p;+"";18,29;"";19,29;4;7;"KO":1;l,c;"";l-1,c+1;"":0:n=-20-55:.007ye`A,n:127,87W:ٺ(*7)+1;1;6,24:127,87W:.008zn,-20:(*7)+1:ٺ(*7)+1;1;-7,35#:127,87W:ٺ(*7)+1;1;20,0:127,87W:ٺ(*7)+1;1;8,-20:127,87W:ٺ(*7)+1;1;-18,0:n V!0:p=10 2000 Wd=1r=19:s=1:d=0:10 ,14;0;" ";9 ,14;0;" ";11 ,15;0;" ":4:1:127,87W,12 :127,87W,20:127,87W:0,32 :127,87W:32 ,0:127,87W:-32 ,0:127,87W:0,-32 :l=(*12 )+1:c=(*28)+1:320@ h:t=t-1:20,16;7;1;t+" " rt03000 | 320@ n=110 :(*7):.008zn,n:.01z# =,20-n:n:n=516:n,2;2;7;1;1;"LA MISION HA SIDO CUMPLIDA":#0;"pulsa enter para otra mision ":0::10  Kn=110 :(*7):׺(*4)/10 ,(*20):n: 10 ,10 ;6;1;1;1;"EL TIEMPO ACABO":#0;"Pulse enter para otra mision ":0::10 2:0::2;7;1;1;"  A. M A R A N O N. _ 1984 ":n=515:n,10 ;ٺ(*6)+1;"O M E G A":.01z# =,n:n:300,: g16,10 ;7;"TAMBIEN:":17,0;9 ;" Funciona con stick KEMPSTON " o3,0;7;" INSTRUCCIONES ":::6;1;"El interceptor OMEGA ha de cazar enemigos con 10 impactos.":6;1;"Para ello dispone de los contro les de cursor y la tecla ~Y~ para disparar el laser.":3;1;"EL Laser consume tambien uranio.":#0;"pulsa enter para comenzar ":0:: PLUS3DOS9M9M9 2 K:2:2:6:1;8,7;"PARE EL CASSETTE" Ea$(10 ,10 ):b$(10 ,10 ):r$(20,25) 2 8000@ 4045 x2:2::6:1;11 ,6;"AGUARDE POR FAVOR":21,12 ;" J.M.RODRIGUEZ 1984" ;n=110 :m=110 :a$(n,Track-Info  R         m)="":m:n  8040h F:a4=(*2):b4=(*6+1):c4=(*10 +1) (a4=160< 2Hy4=c4:n=14:x4=b4+n-1:a$(x4,y4)="":n:200 dis=0:dia=0:fa=0:v=3:vv=20 3;3,18;"DISPARO";5,18;"LETRA";7,18;"NUMERO";9 ,18;"DIANAS";11 ,18;"FALLOS":4;13 ,18;"AUTOCORRECTOR";14,18;" M ABANDONO "  CORRECTOR .07}\(,7:.07}\(,7:0;3,28;dis:0;9 ,28;dia:0;11 ,28;fa:1;16,2;r$(v);18,2;r$(vv) dia=203900< controlador de errores fl$=" ":n$=" ":1;5,28;"?":0:l$=:.07}\(,7:l$="m"3500 l5,28;l$:1;7,28;"?":0:n$=:.07}\(,7:l$="m"3500 7,28;n$ nn=0:no=0 l$="a"nn=1 l$="b"nn=2 l$="c"nn=3 l$="d"nn=4 l$="e"nn=5 l$="f"nn=6 l$="g"nn=7 l$="h"nn=8 l$="i"nn=9 l$="j"nn=10 nn=0420 n$="1"no=1 n$="2"no=2 n$="3"no=3 n$="4"no=4 n$="5"no=5 n$="6"no=6 n$="7"no=7 n$="8"no=8 n$="9"no=9 n$="0"no=10 no=0420 b$(no,nn)=""501 b$(no,nn)=""501  510 /i=(*8+1):i=15000 i=25001 i=35002 i=45003 i=55004 i=65005 i=75006 i=85007 O16,2;r$(v);18,2;r$(vv):.73333,7:420 a$(no,nn)=""600X 0i=(*27+1):i=15010 i=25011 i=35012 i=45013 i=55014 i=65015  i=75016  i=85017  i=9 5018  i=10 5019  i=11 5020 i=12 5021 i=13 5022 i=145023 i=155024 i=165025 i=175026 i=185027 i=195028 i=205029 i=215030 i=225031 i=235032 i=245033 i=255034 i=2650Track-Info  R         35 &b$(no,nn)="":dis=dis+1:fa=fa+1:5;3+no,3+nn;b$(no,nn):16,2;r$(v);18,2;r$(vv):.8L,8:.8L,7:.8L,6:420 X`dis=dis+1:dia=dia+1:xx=no-1:yy=nn-1:xxx=no+1:yyy=nn+1 ]:b$(no,nn)="":0;3+no,3+nn;b$(no,nn) bcorreccion normal-submarinos l"xx=0yy=0640 v:b$(xx,yy)="":5;3+xx,3+yy;b$(xx,yy) $xx=0yyy=11 660 =b$(xx,yyy)="":5;3+xx,3+yyy;b$(xx,yyy) $yy=0xxx=11 680 =b$(xxx,yy)="":5;3+xxx,3+yy;b$(xxx,yy) &xxx=11 yyy=11 700 @b$(xxx,yyy)="":5;3+xxx,3+yyy;b$(xxx,yyy) xx=0720 a$(xx,nn)=""900 yy=0740 a$(no,yy)=""1200 xxx=11 760 a$(xxx,nn)=""900 yyy=11 780  a$(no,yyy)=""1200  xx=0800  :b$(xx,nn)="":5;xx+3,nn+3;b$(xx,nn)  yy=08204 *:b$(no,yy)="":5;no+3,yy+3;b$(no,yy) 4xxx=11 840H >=b$(xxx,nn)="":5;xxx+3,nn+3;b$(xxx,nn) Hyyy=11 3000 R=b$(no,yyy)="":5;no+3,yyy+3;b$(no,yyy) \ 3000 z verticales xx=0980 a$(xx,nn)=""980 xx-1=0990 "a$(xx-1,nn)=""990  xx-2=01000 #a$(xx-2,nn)=""1000 !d=xx-2:dd=no:1110V d=no:1010 d=xx:1010 d=xx-1 xxx=11 10808 a$(xxx,nn)=""10808 "xxx+1=11 1090B $a$(xxx+1,nn)=""1090B "xxx+2=11 1100L $$a$(xxx+2,nn)=""1100L .dd=xxx+2:1110V 8dd=no:1110V Bdd=xxx:1110V Ldd=xxx+1 Vn=ddd `b$(n,nn)=""3000 jn td-1=01160 ~Gb$(d-1,nn)="":5;d+2,nn+3;b$(d-1,nn) !dd+1=11 3000 Jb$(dd+1,nn)="":5;dd+4,nn+3;b$(dd+1,nn)  3000 horizontales yy=01280 a$(no,yy)=""1280  yy-1=01290  #a$(no,yy-1)=""1290   yy-2=01300 #a$(no,yy-2)=""1300 !d=yy-2:dd=nn:1310 d=nn:1310  d=yy:1310 d=yy-1 yyy=11 1380d (a$(no,yyy)=""1380d 2"yyy+1=11 1390n <$a$(no,yyy+1)=""1390n F"yyy+2=11 1400x P$a$(no,yyy+2)=""1400x Zdd=yyy+2:1410 ddd=nn:1410 ndd=yyy:1410 xdd=yyy+1:1410 n=ddd b$(no,n)=""3000 n d-1=01460 Gb$(no,d-1)="":5;no+3,d+2;b$(no,d-1) !dd+1=11 3000 Jb$(no,dd+1)="":5;no+3,dd+4;b$(no,dd+1) i=(*27+1) i=15040 i=25041 i=35042 i=45043 i=55044 i=65045 i=75046 i=85047 i=9 5048 i=10 5049 i=11 5050 i=12 5051 i=13 5052 i=145053 i=155054 i=165055 i=175056 i=185057 i=195058 i=205059 i=215060 i=225061 i=235062 i=245063 i=255064 i=265065 i=275066 ;1;16,2;r$(v);18,2;r$(vv) <n=14:.08}# =,1:.08}# =,7:n 420 s0,0;" ";1,0;" ABANDONASTE ":4020 Kv=19:vv=20:18,2;r$(v);16,2;r$(vv) g0,0;" ";1,0;" RESULTADO FINAL " qn=110 :m=110 :1:.03{u\,8:1Track-Info  R ;n+3,m+3;a$(n,m):m:n vn=15:.07}\(,7:.09}8Q,9 :.015zu\,7:.06|u\,2:.09}8Q,7:n ȍ4:1;16,2;" PRESIONA UNA TECLA ";18,2;" TE HAS DIVERTIDO ? ":0:.07}\(,7  5 :3;1,1;"BARCOS":.05|L,5:4;1,7;"BARCOS":.05|L,5:2;1,13 ;"BARCOS":.05|L,5:7;1,19;"BARCOS":.05|L,5:1;1,25;"BARCOS":.05|L,5 l2:1;5,3;"1";7,3;"2";15,3;" CUALQUIER OTRA TECLA " 3;5,5;"GRABAR EL JUEGO";7,5;"DESTRUIR EL PROGRAMA";12 ,3;" JUGAR A LOS BARCOS":0 j$=:.07}\(,7 j$="1"4500 j$="2"44000  14 0 1: :6:1;10 ,0;" ESTE PROGRAMA SE AUTODESTRUIRA ";11 ,0;" ";9 ,0;" ";13 ,0;" ";12 ,0;" EN UNOS 25 SEGUNDOS " ?;n=120:.6,7:.6,5:n D e:10 ,3;" DESCONECTE ## EAR ## Y";12 ,3;" PULSE CUALQUIER TECLA ":0 "BARCOS"9999' :10 ,1;" CONECTE ## EAR ## QUE VAMOS";12 ,2;" A VERIFICAR LA GRABACION ";14,1;" REBOBINE LA CINTA , PULSE";16,3;" PLAY Y CUALQUIER TECLA":0  "BARCOS" ;:10 ,8;" ES CORRECTA":60<:4045 v=1:vv=10 : v=1:vv=3: v=1:vv=8: v=1:vv=9 : v=1:vv=12 : v=1:vv=15: v=1:vv=18: v=1:vv=20: v=2:vv=20: v=2:vv=7: v=2:vv=9 : v=2:vv=10 : v=5:vv=6: v=5:vv=8: v=5:vv=9 : v=5:vv=10 : v=5:vv=12 : v=5:vv=15: v=5:vv=18: v=6:vv=8: v=6:vv=5: v=6:vv=10 : v=6:vv=20: v=7:vv=20: v=7:vv=9 : v=8:vv=6: v=4:vv=6: v=4:vv=8: v=4:vv=9 : v=4:vv=12 : v=4:vv=14: v=4:vv=15: v=4:vv=18: v=9 :vv=6: v=9 :vv=2: v=11 :vv=12 : v=11 :vv=14: v=11 :vv=16: v=11 :vv=18: v=13 :vv=11 : v=13 :vv=14: v=13 :vv=15: v=13 :vv=16: v=13 :vv=18: v=14:vv=11 : v=14:vv=12 : v=14:vv=15: v=14:vv=16: v=14:vv=17: v=14:vv=18: v=15:vv=11 : v=16:vv=20: v=16:vv=12 : v=16:vv=14: v=16:vv=18: v=17:vv=11 : v=17:vv=12 : v=17:vv=14: v=17:vv=15: v=17:vv=16: v=17:vv=17: v=17:vv=18: , GRAFICOS 6u255,10000001,10000001,10000001,10000001,10000001,10000001,255 ?u255,11000011,10100101,10011001,10011001,10100101,11000011,255 @:n=07 J#.07}\(,7:n:a:""+n,a T""+n,255 ^n cBn=07:.07}\(,7:n:b:""+n,b:n:2 d 8050r hHn=110 :m=110 :a$(n,m)="":b$(n,m)="":m:n i r(r$(20)=" " s+r$(1)="DISPARADO ANTERIORMENTE " t-r$(2)="AGUA DE MANAGUA, QUE RICA " u,r$(3)="COMENZAMOS YA ? " v(r$(4)="LE HAS DADO A UN TIBURON" w*r$(5)="CASI CASI ...PERO NO " x)r$(6)="NO DAS NI UNA " y)r$(7)="QUE NO !! QUE NO !! " z+r$(8)="OYE ME ABURRES " {.r$(9 )="VAS DE CRANEO " |+r$(10 )="LO TIENETrack-Info  R S CLARO " }+r$(11 )="GUAY DEL PARAGUAY " ~,r$(12 )="JA!! JA!! JA!! JE!! JE!! " +r$(13 )="DIANA DE PURA SUERTE " ,r$(14)="QUE PUNTERIA ! " +r$(15)="TE MEJORAS ? " +r$(16)="MARINERITOS AL AGUA " -r$(17)="LE DIO!! LE DIO!! " ,r$(18)="COMO LO HACES? " ,r$(19)="HUNDISTE LA FLOTA "  ' PLUS3DOS))F=0:PREG=0 U1:1:7::1;10 ,10 ;"PARE LA CINTA":200 ,23658j\,8:236099\,100d f=06000p ******* MENU PRINCIPAL **** .:1;" T E S T " (63,3;1;" 1 - ELABORAR TEST " )65,3;1;" 2 - EJECUTAR EL TEST " *67,3;1;" 3 - SALVAR EL TEST " +69 ,3;1;" 4 - CAMBIAR VELOCIDAD " -711 ,3;1;" 5 - SELECCIONAR TEST " /713 ,3;1;" 6 - MODIFICAR LOS TEST " 1715,3;1;" 7 - TERMINAR " 2021,0;"SELECCIONA OPCION":0 7="1"100d 8="3"2000 9="2"365m :="4"1000 ;="5"3000 :30 <="6"4000 A ="7" P 557 c********** ELABORAR TEST ** d e3000 : f4M$=" ELABORAR TEST: ":N$="PREG: ":O$="RESP: " g 8000@ i%"NOMBRE DEL TEST: ";X$:Z$(TEST)=X$ j 8000@ m:"Dime el numero de preguntas de que consta el test ";x$ n!520:c=1100d x%x$>502Űx$<1100d preg=x$ 8000@ 0"Dime el numero de respuestas posibles ";x$ !520:c=1140 $x$>4Űx$<1140 res=x$ 8TEST=1A$(preg,60<):B$(preg,res,25) 8TEST=2E$(preg,60<):F$(preg,res,25) 8TEST=3G$(preg,60<):H$(preg,res,25) 8TEST=4I$(preg,60<):J$(preg,res,25) i=1preg 8000@:x$=" " -"Dame el texto de pregunta ";(i);" ";x$ x$>60<x$=x$(60<) /4,0;1;" ";i;" - ";x$;" " #TEST=1A$(i)=x$:250 #TEST=2E$(i)=x$:250 #TEST=3G$(i)=x$:250 TEST=4I$(i)=x$ j=1res 8"Dame texto respuesta ";(j);';"de la Preg ";(i);" ";x$ ''5;j;" - ";x$  x$>24x$=x$(24) "%TEST=1B$(i,j)=x$:300, #%TEST=2F$(i,j)=x$:300, $%TEST=3H$(i,j)=x$:300, %TEST=4J$(i,j)=x$ ,j 60"Dime el numero de la respuesta correcta ";x$ @!520:c=13106 J x$>resŰx$<13106 T2TEST=1B$(i,x$)(25)="*":360h U2TEST=2F$(i,x$)(25)="*":360h V2TEST=3H$(i,x$)(25)="*":360h W'TEST=4J$(i,x$)(25)="*" hi i'5000:Z(TEST)=PREG:Y(TEST)=RES j 30 m******** PROBAR EL TEST++ nM$=" T E S T : " rBIEN=0:i=1preg w:8007G |ETEST=12,2-i;1;i;" ";A$(i):390 }ETEST=22,2-i;1;i;" ";E$(i):390 ~ETEST=32,2-i;1;i;" ";G$(i):390 :TEST=42,2-i;1;i;" ";I$(i) :j=1res ?TEST=1'3;j;" - ";B$(i,j)(24):410 ?TEST=2'3;j;" - ";F$(i,j)(24):410 ?TEST=3'3;j;" - ";H$(i,j)(24):410 4TEST=4'3;j;" - ";J$(i,j)(24) j ,21,0;"Cual es la correcta ? "  K=1T ""439 =k:.15~,14Track-Info  R :.15~,8:.5,16  475 =""0430 ="M"30 'x$=:520:c=1440 !x$>resŰx$<10430 TEST1463 8B$(i,x$)(2525)="*"490:475  500 TEST2466 8F$(i,x$)(2525)="*"490:475  500 TEST3469 8H$(i,x$)(2525)="*"490:475  500 TEST4472 8J$(i,x$)(2525)="*"490:475  500 I x:10 ,0;BIEN;" RESPUESTAS ACERTADAS DE ";PREG:21,0;"PULSA UNA TECLA PARA CONTINUAR":0  30 R:9 ,10 ;1;" BIEN !!! ":150:BIEN=BIEN+1:: >:9 ,10 ;1;" MAL **** ":150::  x$=""c=1: h=1̱x$ .x$(h)<480ůx$(h)>579c=1: &h 0 c=0 : ,:10 ,5;"VELOCIDAD ACTUAL: ";T "NUEVA VELOCIDAD: ";X$ "520:C01000 T=X$ *12 ,5;"NUEVA VELOCIDAD : ";T  150  30 :"NOMBRE: ";X$  X$>10 X$=X$(10 )  X$10 3:10 ,5;"REBOBINA PARA VERIFICAR":""  30 ****** SELECCIONAR TEST**  +1;" SELECCION DE TEST " @I=14:I*2+2,6;I;".- ";Z$(I):I ?21,0;"NO. DE TEST A PROBAR O CAMBIAR: ":0 X$= "520:C03020 %X$<1ŰX$>43020  TEST=X$ X=X$ preg=z(test):res=y(test) < modificar test **********  3000 m$=" MODIFICAR TEST: "  8000@ bPREG=01;12 ,0;" ANTES DEBES ELABORAR EL TEST ":250:30 4"NO. DE PREGUNTA ? (M=MENU) ";X$:X$="M"30 "520:C04040 "X$<1ŰX$>PREG4040 P=X$ FTEST=14,2-P;P;" ";1;A$(P):4070 FTEST=24,2-P;P;" ";1;E$(P):4070 FTEST=34,2-P;P;" ";1;G$(P):4070 FTEST=44,2-P;P;" ";1;I$(P):4070 "CORRECTO ? ";X$ X$(1)="S"4100 X$(1)="N"4080  4070 "NUEVO TEXTO:";X$ TEST=1A$(P)=X$ TEST=2E$(P)=X$ TEST=3G$(P)=X$ TEST=4I$(P)=X$  4060 $I=1RES:';4;I;" - ";  TEST=1B$(P,I)  TEST=2F$(P,I)  TEST=3H$(P,I)  TEST=4J$(P,I) I "CORRECTO ?";X$ X$(1)="S"4200h X$(1)="N"4120  4115 ?"PREGUNTA ? (0 = FIN) ";X$:520:C04120  X$>RES4120 "X$="0"4020 'R=X$ ,"NUEVO TEXTO: ";X$ 6TEST=1B$(P,R)=X$ 7TEST=2F$(P,R)=X$ 8TEST=3H$(P,R)=X$ 9TEST=4J$(P,R)=X$ :.8000@:5,0;" ":4100 hI=1RES mTEST14210r n(B$(P,I)(25)="*"B=I:4250 rTEST24220| s(F$(P,I)(25)="*"B=I:4250 |TEST34230 }(H$(P,I)(25)="*"B=I:4250 TEST44240 (J$(P,I)(25)="*"B=I:4250 I 8"RESPUETA CORRECTA LA NO. ";(B);" CORRECTO ? ";X$ X$(1)="S"4300 X$(1)="N"4260  4250 B"NO. RESPUESTA CORRECTA ? ";X$:520:C04260 !X$<1ŰX$>RES4260 >TEST=1B$(P,B)(25)=" ":B$(P,X$)(25)="*" >TEST=2F$(P,B)(25)=" ":F$(P,X$)(25)="*" >TEST=3H$(P,B)(25)=" ":H$(P,X$)(25)="*" >TEST=4J$(P,B)(25)=" ":J$(P,X$)(25)="*" B=X$:4250  4020 ****** CARGAR MATRICES **  p****** inicializar ****** z#Z$(4,10 ):NOMBRE TEST Z(4):PREGUNTAS TEST Y(4):RESPUESTAS TEST  F=1 *T=400:1:1:7: 236099\,200  @ E(2,20;1;N$;PREG;" " F'3,20;1;O$;RES;" " G+0,0;1;M$;" ";Z$(TEST) J '65561 -7962 Track-Info  R PLUS3DOS-  W1:1:7::1;10 ,10 ;"PARE LA CINTA":200: 270  H=H+(V*C)  M=M+(V*D) ( P=P+1 2="0"C=1:D=0 <="O"C=-1:D=0 F="X"D=1:C=0 P="Z"D=-1:C=0 Z(M,H)=1120x dM,H i6;0,8;P n 20 x.01z# =,2 z K=K+1 |+6;0,29;502-K;" " }K=502170 M>247M=245: H>158H=158: H<9 H=9 : M<9 M=9 : -C=1C=-C:H=H-1:M=M+1: .C=-1C=-C:H=H+1:M=M-1: -D=1D=-D:H=H+1:M=M-1: .D=-1D=-D:H=H+1:M=M+1:  J=2040( $"" .005y# =,J J  10 ,10 ;P;" PUNTOS" @1;21,0;" PULSE UNA TECLA PARA EMPEZAR " 0 6:3:1: 1;"INSTRUCCIONES" "l'" DEBES MANTENER LA LINEA EN PANTALLA EL MAYOR TIEMPO POSIBLEPERO SOLO PUEDES COMETER 30 ERRORES" ,Y" NO IMPORTA EL CAMINO QUE SIGAS PERO TU PROPIA ESTELA TE DIFICULTARA LAS COSAS" 1'''" 0 ARRIBA" 6" O ABAJO" ;" Z IZQUIERDA" @" X DERECHA" E?1;21,0;" PULSE UNA TECLA PARA EMPEZAR " r 0 |D=0:C=1 1:0: "ESCOGE VELOCIDAD DE 1 A 3" V  V0V>3410 0:4:1: 2,15;"" 20,15;"" N=519 G=3278  N,G;"" G N .6,1;"";6,29;"" N=313 0N,7;"";N,15;"";N,23;"" N 19,29;"" F=0205 60<,45-,F &190,45-,F 0F :B=08 DB,0:0,167 N0,B:255,0 X(0,159+B:255,0 b(247+B,0:0,167 lB v10 ,12 ;"" 23658j\,8 M=15:H=10 K=0:P=0 T0;7;0,20;" CHOQUES 50";0,0;"PUNTOS ";P;" " <1;4;3;0,10 ;"" Y=5254  N=58  N,Y;"" N:Y N=14173 J=1619  J,N;"" J:N d1;12 ,5;"";12 ,9 ;"";12 ,21;"";12 ,26;""   PLUS3DOS 1:1:7::1;10 ,10 ;"PARE LA CINTA":200::r$="Pulsa cualquier tecla para continuar" a$="espacio/(e)" b$="velocidad/(v)" c$="tiempo/(t)" d$="aceleracion/(a)" e$="espacio inicial/(eo)" f$="velocidad inicial/(vo)" 8"necesitas instrucciones?(s/n)",l$:l$="s"500 "1.-Mov. rectilineo uniforme","2.-Uniformemente acelerado","3.-Uniformemente retardado","4.-Circular uniforme","5.-Circular u.acelerado","6.-Circular u.retardado","7.-Caida libre" !"que clase de movimiento es?",m m=1110n (m=2170 2m=3700 <m=4110n Fm=5170 Pm=6700 Um=7600X Z :10 n :a$,b$,c$ x"Que incognita falta?",i$: oi$="e""introduce velocidad y tiempo",v,t::e=v*t:"el espacio es de ";e;" metros":r$:0::10 ri$="v""introduce el espacio y el tiempo",e,t::v=e/t:"la velocidad es de ";v;" m/s":r$:0::10 wi$="t""introduce el espacio y la velocidad",e,v::t=e/v:"el tiempo es de ";t;" segundos":r$:0::10 10 !:a$,"",b$,"",c$,"",d$,"",e$,f$ "que incognita falta?",i$: i$="v"220 i$="t"250 i$="a"280 i$="eo"3106 i$="vo"330J ai$="e""1.- e=eo+vo*t+(Track-Info  R a*(t^2)/2)","2.- e=((v^2)-(vo^2))/(2*a)":"Que formula quieres usar?",h ȏh=1"introduce v,t,a,eo,vo",v,t,a,eo,vo::e=eo+vo*t+(a*(t^2)/2):"el espacio es de ";e;" metros":r$:0::10 Ғh=2"introduce v,a,eo,vo",v,a,eo,vo::e=((v^2)-(vo^2))/(2*a):"el espacio es de ";e;" metros":r$:0::10 I"v=vo+a*t","","v=((vo^2)+(2*a*e))^(1*2)":"Que formula quieres usar?",h kh=1"introduce t,a,vo",t,a,vo::v=vo+a*t:"la velocidad es de ";v;" m/s":r$:0::10 h=2"introduce vo,a,e",vo,a,e::v=((vo^2)+(2*a*e))^(1/2):"la velocidad es de ";v;" m/s":r$:0::10 "1.- t=(v-vo)/a" d"introduce v,vo,a",v,vo,a::t=(v-vo)/a:"el tiempo es de ";t;" segundos":r$:0::10 h"1.- a=(v-vo)/(t-to)","2.- a=(e-eo-vo*t)/((t^2)/2)","to=tiempo inicial":"Que formula quieres usar?",h "|h=1"introduce v,vo,t,to",v,vo,t,to::a=(v-vo)/(t-to):"la aceleracion es de ";a;" m/s^2":r$:0::10 ,h=2"introduce e,eo,vo,t",e,eo,vo,t::a=(e-eo-vo*t)/((t^2)/2):"la aceleracion es de ";a;" m/s^2":r$:0::10 6""eo=(-1)*(vo*t+((a*(t^2))/2))+e" @"introduce vo,t,a,e",vo,t,a,e::eo=(-1)*(vo*t+((a*(t^2))/2))+e:"el eo es de ";eo;" metros":r$:0::10 J1"vo=(-1)*(a*t)+v","","vo=((v^2)-(2*a*e))^(1/2)" T"Que formula quieres usar?",h ^nh=1"introduce a,t,v",a,t,v::vo=(-1)*(a*t)+v:"la vo es de ";vo;" m/s":r$:0:10 hh=2"introduce v,a,e",v,a,e::vo=((v^2)-(2*a*e))^(1/2):"la vo es de ";vo;" m/s":r$:0::10 "el programa te hace una serie depreguntas y tu las tienes que contestar.Primero te pregunta que tipo de movimiento es el delproblema.Lo tienes que contestar" "del 1 al 7.Luego te pregunta queincognita te falta(en M.R.U.solo puede ser una.En los demas dos.Para ello debes elegir la formula que solo tenga una y luego la que tiene la otra.) o sea la que desconoces.Luego tienes que introducir los datos de las otras que te pida,siempre en orden.Para que funcione bien el programa los datos los debes introducir en el sistema internacional.Pulsa una tecla..." 0::10 XI:"introduce a=9.8 o a=10 segun te convenga":r$:0:170 :"introduce la aceleracion como negativa.Si la incognita es la aceleracion el ordenador te darael valor absoluto,tu debes multiplicar por -1",r$:0::170 PLUS3DOS-  "U1:1:7::1;10 ,10 ;"PARE LA CINTA":200 23624H\,502 ;"TIENES QUE CONSEGUIR ATERRIZAR, PARA ELLO TIENES QUE DESTRUIR LOS EDIFICIOS ";"PULSANDO ""0"""'"SOLO DISPONES DE 3 DISPAROS POR PASADA.";"SUERTE"  0 P pp=0 Z 3000 d 300, n 2000 x=20-a:disparo t=0x |5;a,b;"":5;a+t,b;"":2:0.03{u\,0.0002tQX:a+t,b;" ":a,b;" ":4;20,b;"" B(a+t+1,b)=7pp=pp+1:pt=pp+pp:" Puntos ";pt t  ,graficos avion 6"s", 00000111 @"s"+1,01000011C J"s"+2,01000001A T"s"+3,11111111 ^"s"+4,01111111 h"s"+5,00000001 r"s"+6,00000011 |"s"+7,00000111 "Track-Info  R u" ,00000000 "u"+1,10000000 "u"+2,11000000 "u"+3,11111000 "u"+4,00111111? "u"+5,11000000 "u"+6,10000000 "u"+7,00000000 "t" ,00001000 "t"+1,00001000 "t"+2,00001110 "t"+3,00010000 "t"+4,01110000p "t"+5,01110000p "t"+6,01110000p "t"+7,10000000 &graficos ambulancia 0#n=17:x:"o"+n,x:n :=3,3,2,62>,63?,63?,24 Dn N#n=17:x:"l"+n,x:n XC0,252,108l,70F,238,252,24 bn l sd=20 vm=131 4;sd,m;"" m  edificios c=230 !v=(7*)+12 19 0;v,c;"" %1;7;0;v,c;"" v c r=0:i=0 movimiento avion a=0202  y2=1  b=030  35;a,b;"":0.001wn,40(:1 R1:5;a,b;" " ?(a+i,b+r+3)=7r=r-2:a=a:a=a1000 }a=20b=301;10 ,10 ;"M U Y B I E N":pt=pt*5:20,0;" puntos totales";pt y24920 !="0"y2=y2+1:200  a=a:b=b b a d=a20:caida avion 0.05|L,0.05|L a,b;"#":2:a,b;" " d 20,b;"#"   ambulancia  f=20 g=30b+2-1 D5:3;1;f,g;"":5:4;f,g;"" [3;f,g;"":0.5,0.5:0.3,0.5:1:5;f,g;" " g 3;f,g+1;"" "otra vez ";s$  s$="s"  'n=1255:254,n:n: presentacion G5:10 ,1;"PULSE UNA TECLA PARA COMENZAR":0    25: PLUS3DOS a a |a 0:0:0:7::1;10 ,10 ;"PARE LA CINTA":200: F  q$="?????"  9800H&  9840p&  h=0 8000@  9000(# 0,23;q$;": ";h  1 #3;y,x;"" 'li17000X (Yp=p-.05|L:0;0,0;s:g=1:((*4)+1)*100d 9 x<221200 x>242000 -x>29y<2y>192000 3q=219:3;q,27;" ":q T.03{u\,-10 :.03{u\,-13 :.03{u\,-15:.03{u\,-10 $3q=219:0;q,27;" ":q )a42000 .s=s+20 8 g=0 B L,x<1y<2y>192000 V2q=219:3;q,2;" ":q `T.03{u\,-10 :.03{u\,-13 :.03{u\,-15:.03{u\,-10 j2q=219:0;q,2;" ":q oa32000 ts=s+20 ~ g=0  y>10 1300 !y<1y>32000 Oq=11 20:3;1,q;" ";2,q;" ";3,q;" ":q T.03{u\,-10 :.03{u\,-13 :.03{u\,-15:.03{u\,-10 Oq=11 20:0;1,q;" ";2,q;" ";3,q;" ":q a22000 s=s+20  g=0  #y>20y<182000 Rq=11 20:3;18,q;" ";19,q;" ";20,q;" ":q (T.03{u\,-10 :.03{u\,-13 :.03{u\,-15:.03{u\,-10 2Rq=11 20:0;18,q;" ";19,q;" ";20,q;" ":q 7a12000 <s=s+20 F g=0 P  y,x;"" r=y21 r,x-1;5;"" .001wn,r r,x-1;"" r  Mli=li-1:0;21,27;li;" ":li17000X  y,x;""  Xjf=160<:0;10 ,8;f/9 ;1;"G A M E O V E R":.001wn,f:f ]Es>hh=s:"RECORD:INTRODUCE TU NOMBRE (4 Letras maximo)",q$ 0;18,4;1;"PULSE CUALQUIER TECLA";20,5;1;"PARA VOLVER A EMPEZAR";21,0;0;6;"RECORD ";q$  ""::1:10  7200  @f="a""j"+7 J x:f,x:f Te40(,01010100T,10111010,124|,10111010,01010100T,40(,0 ^M0,16,40(,01010100T,40(,16,0,0 hC0,0,0,24,24,0,0,0 rB0,0,0,16,0,0,0,0 |Q255,195,189,189,189,189,195,255 F0,62>,546,42*,546,62>,0,0 D0,0,28,28,28,0,0,0 M96`,240,249,239,249,240,96`,0 I6,15,159,247,159,15,6,0 f11011010,33!,76L,195,24,0110Track-Info  R 0101e,10010011,01100100d :x=1:y=1 l a$="" b$="" s=0 li=8:p=5 !4 #(0:126~,93]:4,0:0,-4:4,0:0,-4:-4,0:0,-4:-4,0:0,4:-4,0:0,4:4,0:0,4 #2-40(,77M:84T,0:0,-25:-84T,0:0,25:86V,145:40(,-524:4,0 #<:40(,524:0,25:-40(,-77M #F126~,81Q:-40(,-77M:84T,0:0,25:-84T,0:0,-25:0,25:40(,524:4,0:40(,-524:0,-25:-40(,77M #P122z,89Y:-107k,71G:30,0:0,-146:-30,0:0,146:30,0:77M,-71G: 0,-4:-107k,-71G:30,0:77M,71G #Z134,89Y:107k,71G:-30,0:0,-146:30,0:0,146:-30,0:-77M,-71G:0,-4:107k,-71G:-30,0:-77M,71G % &HXf=17:g=1f:g;f,f*2;"CAMPOS DE ENERGIA":.03{u\,g:g:f &k &p10 ,0;"Defiende el tubo con tu nave construyendo campos de energia al final de los cuatro finales abiertos del sistema.Si intentasponer los campos en otro sitio que no sean los finales resul- taras destruido" &z"Si pones un campo de energia sinenemigo dentro,seras destruido":21,4;"Por Francisco Lorca.":150:21,4;" Pulsa una tecla " &0::9800H& &9 ,0;"Mueve con:1(arriba)y 2(abajo), pero recuerda que te mueves pa- ra la derecha al mismo tiempo y si te sales por un lado de la pantalla llegas al otro." &"Instale un campo de energia en la boca de un tubo con (0). Si dejas pasar un enemigo o te autodestruyes pierdes energia, si la perdida es muy grande el juego termina."; 1;1;"Pulse una tecla":0: & PLUS3DOSu us carga tabla caracteres W1:1:7::1;10 ,10 ;"PARE LA CINTA":200: ,31823O|:"Espere un momento,por favor" a=0768  31824P|+a,(15616=+a) (a 2"Numero de codigo del primer ca- racter a cambiar? ";k1'"Num. codigo del ultimo? ";k2:k1>255k1<32 k2>255k1<32 k220600X D;PFN,1;A$(1);PFN+1,1;B$(1) N XV=1NM ]*PFN+1=F(V)C(V)=1650 bV l+1;6;PFN+1,4;D$ v+1;6;PFN+1,4;D$  DESTRUCCION TANQUE APFN+1,4;6;1;D$(1P(V)-5) .001wn,40( APFN+1,4;6;1;D$(1P(V)-5) u7:F(V),P(V);"*":.005y# =,8:F(V),P(V);"":.005y# =,6:F(V),P(V);" ":.005y# =,4 7C(V)=0:NMM=NMM+1:PUNTOS=PUNTOS+10 -#0;0,19;"PUNTOS:";PUNTOS  NMM#D$="" C(E$="---------------------------------" D$F$="___" R9000(#:9000(# W;FUEL=99c:PUNTOS=0:PANT=1:PFN=11 \=""2140\ a7FUEL=99c:NMM=0:3000 +PANT*100d f1:0: l,V=222:G$(V)="":V mV=1NM nGG$(F(V)+1)=N$(1P(V)-20)+M$(P(V)-1911 ) oV pNV=122:V-1,21;0;Track-Info  R 6;21;G$(V):V u121,0;7;F$(121) z*V=1NM:4;F(V),P(V);"":V D7:PFN,1;A$(1);PFN+1,1;B$(1) t#0;0,1;"NAVES:";NAVES;0,10 ;1;AF;0,19;0;"PUNTOS:";PUNTOS +V=1PANT:0,V-1;"":V  0,13 ;"FUEL:";FUEL  1500 DEFINICION PANTALLAS  1 PANT $NM=9 :FT=2:31200 !+V=1NM:C(V)=1:F(V):P(V):V 02,24,4,29,6,21,8,26,11 ,23,13 ,28,14,26,18,26,19,22 X  2 PANT $NM=9 :FT=4:3220 +V=1NM:C(V)=1:F(V):P(V):V 4,25,6,23,8,24,10 ,26,13 ,24,15,25,16,22,18,24,20,26  3 PANT %NM=10 :FT=4:3320 +V=1NM:C(V)=1:F(V):P(V):V 2,28,4,23,6,25,8,22,10 ,27,12 ,24,14,25,16,29,18,26,20,23 * G 4 PANT H%NM=10 :FT=5:3420\ M+V=1NM:C(V)=1:F(V):P(V):V \2,28,5,25,8,23,10 ,27,12 ,25,13 ,24,14,23,15,22,19,26,20,30  5 PANT %NM=11 :FT=5:3520 +V=1NM:C(V)=1:F(V):P(V):V 2,26,3,21,5,30,7,25,9 ,24,11 ,23,13 ,23,15,23,17,27,18,25,19,23   6 PANT %NM=12 :FT=5:3620$ 1V=1NM:C(V)=1:F(V):P(V):V $2,24,4,30,5,29,6,28,8,30,9 ,29,10 ,28,12 ,30,13 ,29,14,28,17,27,19,21 L s 7 PANT t%NM=13 :FT=6:3720 ~+V=1NM:C(V)=1:F(V):P(V):V 2,23,3,22,5,23,6,22,6,23,9 ,22,11 ,23,12 ,22,14,23,15,22,16,23,17,22,18,23   8 PANT %NM=14:FT=6:3820 +V=1NM:C(V)=1:F(V):P(V):V g3,29,4,29,6,29,7,29,8,27,9 ,27 11 ,27,12 ,27,13 ,25,14,25,16,25,17,25,18,23,19,22  ; 9 PANT <%NM=15:FT=7:3920P F+V=1NM:C(V)=1:F(V):P(V):V PV2,27,3,26,4,25,5,24,6,23 UY8,27,9 ,26,10 ,25,11 ,24,12 ,23 Z[14,27,15,26,16,25,17,24,18,23 d  10 PANT %NM=16:FT=8:4020 +V=1NM:C(V)=1:F(V):P(V):V g2,22,3,23,4,22,6,22,7,23,8,22 [10 ,30,11 ,29,12 ,28,13 ,27,14,26 [15,25,16,24,17,23,18,22,19,21   11 PANT &NM=16:FT=10 :4120 +V=1NM:C(V)=1:F(V):P(V):V x3,23,4,24,5,25,6,26,7,27,8,28,9 ,29 10 ,30,11 ,29,12 ,28,13 ,27,14,26,15,25,16,24,17,23 " g 12 PANT h&NM=16:FT=12 :4220| r+V=1NM:C(V)=1:F(V):P(V):V |2,23,3,23,4,23,5,23,6,23,7,23,8,23,10 ,25 11 ,25,12 ,25,13 ,25,14,25,15,22,16,22,17,22,18,22  o pRUTINA EXPLOSION zPFN>20PFN=20 V=26 /PFN,Track-Info  R 1;A$(V);PFN+1,1;B$(V) .04|# =,20-V 'V:FUEL=99c:NAVES=NAVES-1 )NAVES>0PFN=11 :2145a :7:7000X dV=PFN20 n7V,1;A$(1);V+1,1;B$(1) x.11}aG,20 }7V,1;A$(6);V+1,1;B$(6) v PFN=20:6000p X:K$="HAS CONSEGUIDO LA MEJOR PUNTUA- CION.GRABA TU NOMBRE PULSANDO LAS TECLAS CORRESPONDIENTES (MAXIMO 12 LETRAS)PULSA 0 PARA CONTINUAR" bPUNTOSAF7070 l.V=1̱K$:K$(V);:.05|L,40(:V v?T$=:7,2;PUNTOS;7,10 ;T$:AF=PUNTOS N=111 =""7045 ="0"7070 T$=T$+:7,10 ;T$ ""7055 N H7,2;AF;7,10 ;T$;6,12 ;"EL MEJOR:" 420,0;"**PULSA UNA TECLA PARA JUGAR**" v=0100d:v 1=""V=1NM:C(V)=1:V:7090 NAVES=3  2135W #'CEACCION GRAFICOS #( v="a""u"+7:c:v,c:v #2F8,20,34",65A,128,0,0,0 #7C0,0,0,255,0,0,0,0 #,85U,62> #KJ0,2,128,192,127,65A,128,0 #PI0,171,1,15,255,255,63?,1 #UM0,171,0,240,136,132,194,254 #ZC1,0,15,15,0,0,0,0 #_I252,144,252,255,0,0,0,0 #dE0,0,32 ,16,12 ,14,7,7 #iI0,0,0,16,568,185,251,255 #nL0,4,40(,112p,224,224,192,192 #sD7,7,14,12 ,16,0,0,0 #xK255,255,126~,62>,60<,28,24,8 #}J240,252,224,96`,32 ,16,8,0 #I133,16,66B,20,1,68D,16,66B #H17,68D,144,0,66B,16,65A,4 #M119w,119w,0,238,238,0,119w,119w #C0,0,0,0,0,0,24,60< #C60<,24,0,0,0,0,0,0 # PLUS3DOS  5 programa creado por... ******** *P.G.C.* ******** g1:1:7::1;10 ,10 ;"PARE LA CINTA":"color fondo ";c:c:c::c 1"figura giratoria? (s/n)";o$:o$="s"200 2"poligono de hilos? (s/n)";o$:o$="s"400 7"figura de semicirculos? (s/n)";o$:o$="s"600X (0"figura de circulos s/n";o$:o$="s"800  23"elige una opcion, pulsa s ";o$:o$="s"10 7 <&"paso a impresora s/n ";i$:i$="s" F$"borro? (s/n)";o$:o$="s"5 P 10 ="color de la tinta (0-7)";t:t>7t<0205 !"coordenadas (x,y)";f;" , ";g L"radio ";r:f-r<0f+r>255g-r<0g+r>175210 *"n. lados ";n:n<3źnn215 "densidad ";d #a=02Track-Info  R *(2*)/d ax=f+a*r:ay=g+a*r ax,ay b=1n 4x=f+(a+b*2*/n)*r:y=g+(a+b*2*/n)*r t;x-ax,y-ay  ax=x:ay=y b a " 60< ;"color de la tinta 0-7";t:t>7t<0405 ""coordenadas (x-y) ";f;" , ";g  "radio ";r @f-r<0f+r>255g-r<0g+r>175410 ,"no. lados ";n:n<3 źnn440 !a=02*2*/n x=(f+a*r):y=(g+a*r)  b=1n 6k=(f+(b*2*/n)*r):l=(g+(b*2*/n)*r) x,y:t;k-x,l-y b a  60< ]:"color tinta (0-7)";ti:ti<0ti>7605] b!"coordenadas (x,y)";f;" , ";g l "radio ";r v@f-r<0f+r>255g-r<0g+r>175610b "densidad ";d 9"angulo entre puntos (0-)";a:a>a<0650 8"angulo del trazado (0-)";t:t>t<0660 !b=02*2*/d 4x1=f+b*r:y1=g+b*r:x2=f+(b+a)*r:y2=g+(b+a)*r x1,y1:ti;x2-x1,y2-y1,-t b  60< %7"color tinta (0-7)";t:t<0t>7805% *!"coordenadas (x,y)";f;" , ";g 4"distancia al centro ";d > "radio ";r HHf-d-r<0f+d+r>255g-d-r<0g+d+r>175810* R"densidad ";i \!a=02*2*/i fx=f+d*a:y=g+d*a p t;x,y,r za  60< PLUS3DOS::Dados  Carlos Quintero c1:1:7::1;10 ,10 ;"PARE LA CINTA":200::9000(#  30 4:4:0: Sp(6):n=16:p(n)=7-n:n:d(5):a$(6,1) $n=16:b$:a$(n)=b$:n "","K","Q","J","r","n" f=9 :"solitarios? ";d$ #:d$="s"f=4:a(6):count=0:2000 % 7 (n=332 6 25f,n;"";f+1,n;" ";f+2,n;"":n <6n=15:f-2,n*6-2;n:n >'0,0;4;"Jugadas:0" Aj=13 Fc$ H0,8;4;j Jc$=""130 Ka=1̱c$ M c=c$(a) Nj=1c065A Pc=0500 Zn=120 dJrnd=(*6+1):f+1,c*6-2;a$(rnd):d(c)=rnd i.01z# =,0 nn xa j d$="s"3000 65A n=120 m=15 Jrnd=(*6+1):f+1,m*6-2;a$(rnd):d(m)=rnd m:.01z# =,0:n  130 p=0:n=16 6n*2+7,7;a$(n);":______________ 0" a(n)=-1 n  9"cual eliges? ";e$:n=16:e$=a$(n)ind=n n .a(ind)-11,0:3000 a(ind)=0 n=15 -d(n)=indd(n)=1a(ind)=a(ind)+p(ind) n /ind*2+7,24;4;a(ind) &.1}L,10 :.1}L,20 {count=count+1:count<6n=15:5,n*6-2;" ":n:0,8;4;"0": 7count=0:n=16:count=count+a(n):n ?4;21,10 ;"TOTAL:";21,24;count C502:.1}L,10 :.1}L,10 :.1}L,10 "otra vez? ";d$:d$="s" : #(/90102#:n=07:i:"a"+n,i:n #2I0,24,60<,126~,126~,60<,24,0 #< Track-Info  R PLUS3DOS(( Laberinto      Manuel Freire     Inicializacion  W0:0:7::1;10 ,10 ;"PARE LA CINTA":200: H8200 :n=14:a$:m=07:a:a$+m,a:m:n *5,10 ;1;" LABERINTO " 9a(20,30):p(2):s(2):t=0 a$="111111111111110111111111111111":n =130:a(1,n)=1:a(2,n)=a$(n):a(18,n)=a$(n):a(19,n)=1:n Dn=119:a(n,1)=1:a(n,30)=1:n #N16,2;" Si no quieres ver el plano, "'" pulsa la N " (n=4162:m=229:a(n,m)=1:m:m=17:a(n,(*26)+2)=0:m:n:.05|L,-10 -="n"Ŧ="N"70F 2W:n=120:m=130:n,m;7*(a(n,m));" ":m:n:100d F[p(1)=18:p(2)=15:p$="n":s(1)=1:s(2)=15 P0:0:7: Z 1000 d Dibujo  i`7,0;:n=115:7;0;" ":n j 0 k 2000 nd(3,2):s=0 x 8100 a$:a$=p$150 $n=16:a:n:130 4n=13:m=12:d(n,m):m:n pv=p(1):ph=p(2) Gn=16:pv=pv+d(1,1):ph=ph+d(1,2) 8pv=s(1)ph=s(2)f=n:s=1:200 "a(pv,ph)=1f=n:200 n:f=6 Dpv=p(1)+d(2,1):ph=p(2)+d(2,2) 8010J:q n=1f f=6n=15 p=q:q ia(pv,ph)=1p,p/2:q-p,q/2-p/2:0,128-q:-(q-p),q/2-p/2 a(pv,ph)=0a(pv+d(1,1),ph+d(1,2))=1p,q/2:q-p,0:0,128-q:-(q-p),0 4pv=pv+d(1,1):ph=ph+d(1,2) n !f=6f=5:320@ "'8020T:n=1f+1:p:n ,Wq,q/2:p-q,0:0,128-q:-(p-q),0:0,-(128-q) 6s=1q+(128-q)/2,q/2:0,3*((64@-q/2)/2):128-q,0:0,-3*((64@-q/2)/2) @Dpv=p(1)+d(3,1):ph=p(2)+d(3,2) J8020T:q T n=1f ^p=q:q ha(pv,ph)=1p,p/2:-(p-q),(q-128)/2-(p-128)/2:0,128-q:p-q,q/2-p/2 ra(pv,ph)=0a(pv+d(1,1),ph+d(1,2))=1p,q/2:-(p-q),0:0,128-q:(p-q),0 |4pv=pv+d(1,1):ph=ph+d(1,2) n  7  Movimiento  Ft=t+.1}L:2,0;7;0;" TIEMPO : ";t;" " (="7"ſ10000'=8)a(p(1)+d(1,1),p(2)+d(1,2))=0p(1)=p(1)+d(1,1):p(2)=p(2)+d(1,2):.02{# =,10 :600X |(="7"ſ10000'=8)p(1)+d(1,1)=s(1)p(2)+d(1,2)=s(2)2500 (="7"ſ10000'=8)a(p(1)+d(1,1),p(2)+d(1,2))=112 ,1;0;1;"No puedes atravesar paredes !!":n=1500:n:100d ;="5"ſ10000'=2.01z# =,20:460 ;="8"ſ10000'=1.01z# =,20:510 ;="6"ſ10000'=4.01z# =,20:5600  400 p$="n"p$="o":600X p$="o"p$="s":600X p$="s"p$="e":600X p$="e"p$="n":600X  600X p$="nTrack-Info  R "p$="e":600X p$="e"p$="s":600X p$="s"p$="o":600X p$="o"p$="n":600X & 600X 0p$="n"p$="s":600X :p$="s"p$="n":600X Dp$="e"p$="o":600X Np$="o"p$="e" X t=t+3 b 100d   Plano  _248,130:0,37%:-60<,0:0,-37%:60<,0 f1:218,130:217,130:218,167:217,167:0 -0,27;"^";6,27;"^" @y=168-2*p(1):x=188+2*p(2) 4x,y:x-1,y:x,y+1:x-1,y+1  xx=x:yy=y L Brujula  V155,147,22 `Y1,19;"N";3,17;"O ";(p$+47/);" E";5,19;"S" ~  Renovacion plano  7:0 @y=168-2*p(1):x=188+2*p(2) N1:xx,yy:xx-1,yy:xx,yy+1:xx-1,yy+1:0 4x,y:x-1,y:x,y+1:x-1,y+1  xx=x:yy=y #3,19;(p$+47/) 0:7    Llegada  Φ6,5;1;7;0;" LLEGASTE ":m=12:n=16:n-1:.1}L,10 :n:.1}L,0:n+1:n:m I20,0;" Pulsa una tecla para empezar ":1:0: @  3D  J920,38&,69E,93],110n,120x T=235,218,187,163,146,136  Direccion  7"o",0,-1,1,0,-1,0 6"e",0,1,-1,0,1,0 6"s",1,0,0,1,0,-1 7"n",-1,0,0,-1,0,1  Caracteres graficos  O"n",24,60<,126~,255,24,24,24,24 O"s",24,24,24,24,255,126~,60<,24 &M"e",8,12 ,14,255,255,14,12 ,8 0Q"o",16,480,112p,255,255,112p,480,16 #( 9000(# PLUS3DOSS9 MOMENTOS ELECTRICOS LUIS AMADO REGO y MICROHOBBY W7:7:0::1;10 ,10 ;"PARE LA CINTA":200: (0,7;"MOMENTOS ELECTRICOS" (1,7;"*******************" (236099\,255 2TRAMOS A PROCESAR 2300, 6V=1tens=220 @V=2tens=380| J7:7:0: T(0,7;"MOMENTOS ELECTRICOS" ^(1,7;"*******************" hCONDUCTOR EN EL TRAMO r4,10 ;"SELECCIONE:Track-Info  R "''''"1 - CONDUCTOR COBRE AISLADO"''"2 - CONDUCTOR ALUMINIO AISLADO"''"3 - CONDUCTOR COBRE DESCUBIERTO"''"4 - CONDUCTOR ALUM. DESCUBIERTO" | 6000p )nat:nat<1nat>4390 LLAMADA SUBRUTINAS nat*1000 COBRE AISLADO I:0,0;1;2;"-- CONDUCTOR DE COBRE AISLADO --" t5,0;1;"SELECCIONE SECCION:"''''19;3;"1 - 4 mm2"''19;"2 - 6 mm2"  6000p *sca:sca<1sca>21040 VALORES DE M1 $6sca=1tens=220m1=.09}8Q:7010b .6sca=2tens=220m1=.14~\(:7010b 8sca=1m1=.28\( Bsca=2m1=.41Q L 7010b ALUMINIO AISLADO 7:7:0: >0,0;1;"- CONDUCTOR DE ALUMINIO AISLADO " ''"SELECCIONE SECCION:"'''18;"3 - RZ 25 mm2"''18;"4 - RZ 50 mm2"''18;"5 - RZ 95 mm2"''18;"6 - RZ 150 mm2"  6000p 32;18,6;"Seleccione un numero"  sca:sca<3sca>616,6;" POR FAVOR,REPITA ":f=130:.1}L,16:f:2050 VALORES DE M1  6sca=3tens=220m1=.34.z:7010b *6sca=4tens=220m1=.61(:7010b 47sca=5tens=220m1=1.12\(:7010b >7sca=6tens=220m1=1.58J=p:7010b Hsca=3m1=1.02\) Rsca=4m1=1.82h \sca=5m1=3.33UR fsca=6m1=4.72 =p p 7010b COBRE DESCUBIERTO  =0,0;1;" CONDUCTOR DE COBRE DESCUBIERTO" ֑'''"SELECCIONE SECCION:"'''20;" 7 - 3 mm2"''20;" 8 - 7 mm2"''20;" 9 - 10 mm2"''20;"10 - 35 mm2" 6000p 316,6;3;"Seleccione su numero" sca:sca<7sca>10 16,6;" POR FAVOR,REPITA ":f=115:.1}L,12 :.1}L,16:f:3050 VALORES DE M1 6sca=7tens=220m1=.09}8Q:7010b 6sca=8tens=220m1=.18~8Q:7010b 6sca=9 tens=220m1=.39Gz:7010b &+sca=10 tens=220m1=.65&fff 0sca=7m1=.26R :sca=8m1=.55 Dsca=9 m1=1.16zH Nsca=10 m1=1.93w =p X 7010b "ALUMINIO DESCUBIERTO  >0,0;1;" CONDUCTOR ALUMINIO DESCUBIERTO " r'''"SELECCIONE CONDUCTOR"'''20;"11 - LC 28"''20;"12 - LC 56"''20;"13 - LC 80"  6000p 316,6;1;"Seleccione su numero" ܛsca:sca<11 sca>13 16,6;" POR FAVOR,REPITA ":f=115:.1}L,12 :.1}L,16:f:4050 VALORES DE M1 7sca=11 tens=220m1=.43\(:7010b 7sca=12 tens=220m1=.690 :7010b 7sca=13 tens=220m1=.84W =p:7010b sca=11 m1=1.28# > sca=12 m1=2.06 = "sca=13 m1=2.51 , 7010b CARACTERISTICAS CONDUCT 5020+sca*10  t$(sca) "cu 4 -aisl" "cu 6 -aisl"  "RZ 25"  "RZ 50"  "RZ 95"  "RZ 150" "cu 3" "cu 7"  "cu 10"  "cu 35"  "LC 28"  "LC 56"  "LC 80" ( pSUBR IMPRESION TRAMOS zM4;1;2;6;'''" TRAMO A CALCULAR * (";a$(n);") * "  XLONGITUD EN mts b7:5010:"Longitud en mts ";mt:km=mt/1000 l."Potencia en vatios ";vat:kw=vat/1000 vPOTENCIA,EN vatios  m=km*kw IMPRESION VARIABLES p1;'"Tension ............. ";22;tens;" V";2;0;"M1 .................. ";22;m1 53;"Conductor ........... ";22;t$(sca) t1;"Potencia ............ ";22;kw;" Kw";0;0;"Longitud ............ ";22;km;" Km" CALCULO cdt  c(n)=m/m1 SOLO DOS DECIMALES Jc(n)=c(n)*100d:c(n)=c(n)+.5:c(n)=c(n):c(n)=c(n)/100d  cdtP=c(n) cdt POR TRAMOS n=1tot=cdtP n2tot=tot+cdtp IMPRESION TRAMOS Y cdt  ''2;"TRAMO";a$(n) !'2;"% CDT ";cdtp;" volt"  ,0''"% CDT acumulada (";tot;" volt)" *Q21,0;1Track-Info  R ;1;"** PULSE UNA TECLA PARA OTRA ***":0 4n @ RESULTADOS J1:1:7: T70,11 ;"RESULTADOS"'11 ;"----------" ^' h8 a$(f) - TRAMO c(f) - cdt en V% rf=1n-1 |B5;5;"TRAMO";a$(f);6;c(f);21;" VOLTS" f 21;''4;"% CDT TOTAL= ";tot;" VOLTS" repeticion o salida H21,0;1;1;" QUIERE REPETIR CALCULO (S/N) " p$= p$"s"p$"n"8110  p$="s" 0:0:0: PLUS3DOS6:6:0 <:1;10 ,10 ;"PARE LA CINTA":200: 7000X 23658j\,8  7500L #s=0:n=0 (4;a$: )y=a$ * u=1y ,[a$(u)=32 2,5;2;"NO DEJE ESPACIOS VACIOS":100d:30 .u 0\y<12,0;2;" SU PALABRA NO TIENE LETRAS ":100d:30 2}y>10 2,2;2;"SU PALABRA ES DEMASIADO LARGA"'" EL MAXIMO SON 10 LETRAS ":100d:30 <z$(y) A*j=1y:12 ,j;5;"":j K;e$="1234567890":13 ,1;4;e$(1y) Z?0,2;"ESCRIBA LA LETRA Y PULSE ";3;"ENTER" _K"La letra";b$:0,2;6;"" `b$10,2;2;"ENTRE LAS LETRAS DE 1 EN 1":100d:0,2;6;"":95_ d p=0 l=1y 2a$(l)=b$11 ,l;a$(l):z$(l)=b$:p=1 l a$=z$9000(# p=195_ -p=08000@:6000p:95_ lu21,-3,4,-2,0,2,2,0,0,-9 ,-2,0,0,9 ,0,-8,-8,-2,3,1,-2,-25,-29,0,-2,25,3,-1,-8,2,0,8,-2,0,0,-9 ,2,0,0,7,4,2,21,3 143,127 80P,0  n<2 6,22;"" 183,127 0,-21  n<3 183,98b,8 *180,100d:181,100d *187,100d:186,100d 0180,94^:7,0,-/2  n<4 180,89Y z=021:a,b a,b:z  c183,83S:2,-30:181,78N:181,68D:182,58:  n<5 111 ,18;"";11 ,26;""  n<6 $171,524:-1,-12 :12 ,0:1,6:1,-6:12 ,0:-1,12 )Ih=03:17+h,22;"";17+h,23;"":h B n<7 L121,21;"";21,23;"" `>n>63,2;" !!!TE HAS AHORCADO!!! " t s=1 ~s=08300l :0:0,4;"LA PALABRA ERA: ";3;a$ <0:21,2;"? DESEA SEGUIR JUGANDO (S/N)?" ="S"30 ="N"9990'  6380 Xa10 ,10 ;1;"EL AHORCADO";11 ,9 ;5;"":100d b:4,13 ;3;"UTILICE"'';2;" PALABRAS DE MAXIMO 10 LETRAS";12 ,0;"DISPONDRA DE 6 FALLOS PARA DESCU"''"BRIR LA PALABRA OCULTA":.5,2:20,0;"APRIETE UNA TECLA PARA CONTINUAR":0 v L]:10 ,2;"ESCRIBA LA PALABRA A ADIVINAR"''" Y DESPUES PULSE ";3;"ENTER." V @ n=n+1 J(19,0;3;"FALLOS=";n OA3,2;"Letras erroneas{";3,18+n;b$;" }" ^ l&1:1:2:s=1 v6000p:85004! 0:0:6000p: !4-m=030.3Track-Info  R :.02{# =,m:m !> #(9 1:90102#+10 *n:9700%:6350 #2W3,0;" !!EXTRAORDINARIO!! "'" LO HAS LOGRADO SIN FALLOS" : #3::"NO SE DESCOMPONERLO,LO SIENTO":1,7 :1,6 : UAG<0"El grado debe ser >0" :.5,5:70 F VAK<0"El grado debe ser >0" :.5,5:70 F WCK>20"El grado debe ser <20" :.5,8:70 F ZZ"Dame los coeficientes del poli-" :"nomio denominador,de menor a" :"mayor exponente" ] dENTRADA DEL NUMERADOR n I=1G+1 ("Z<";I-1;"";:Z(I) :Z(I);" "; I   5ENTRADA DEL DENOMINADOR EN FORMA DE POLOS COMPLEJOS  :: Z"Parte REAL e IMAGINARIA de los" :"polos(dar solo un miembro de" :"cada par complejo:" U=1K <" POLO ";U;" (X,Y)=";:P(U),Q(U) :"(";P(U);",";Q(U);")" Q(U)=0280  2SI EL POLO ES COMPLEJO ANADE EL CONJUGADO EN U+1  5Q(U)=(Q(U)):P(U+1)=P(U):Q(U+1)=-Q(U)  U=U+1 U " , U=1K 6Q(U)<0710 @P=P(U) J Q=Q(U) O T *NUMERADOR* Y ^N1=Z(1) h$X1=1:N2=0:X2=0 rV=2G+1 |AX3=X1*P-X2*Q:X2=X1*Q+X2*P:X1=X3:N1=N1+X1*Z(V):N2=N2+X2*Z(V) V  *DENOMINADOR*  D1=1:D2=0  V=1K V=U450 =Y1=P-P(V):Y2=Q-Q(V):D3=D1*Y1-D2*Y2:D2=D1*Y2+D2*Y1:D1=D3 V   *COCIENTE*  D=D1*D1+D2*D2 D=0700 ;R1=(N1*D1+N2*D2)/D:R2=(N2*D1-N1*D2)/D :R=(R1*R1+R2*R2) *R1=0F=(R2)*/2:520  F=(R2/R1) R1>0540 F=F+ Q>0610b ! &*SALIDA POLO REAL : + 04"POLO REAL -A=";P;(16);" RESIDUO R=";N1/D1 D N 710 S X*SALIDA PAR COMPLEJO * ] b,"PAR COMPLEJO -A";"";"j*B =";P;"";"j*";Q v&Q1=2*R1:Q2=-Q1*P-2*R2*Q +"SUMANDO Q1*S+Q2:" :" Q1=";Q1,"Q2=";Q2 ="RESIDUO R*EXP(-J*)" :" R=";R,"=";F*180/;"" TTrack-Info  R "TRANSF. A*EXP(-J*";"";")" :" A=";2*R,"";"=";F*180/+90Z;"" :  710  * AVISO POLO MULTIPLE *  s"POLO MULTIPLE. (";P(U);",";Q(U);")":"EL PROGRAMA NO SIRVE PARA ELLOS.EL RESTO DE LOS RESULTADOS SON CORRECTOS" U  OPCION FINAL  0"Quieres hacer otra descomposicion (si/no)";T$ T$="SI"502 T$="si"502 ꏏ    DEFINICION DE CARACTERES   E0,73I,73I,42*,28,8,8,8 *J96`,19,12 ,24,40(,40(,40(,24  4K224,19,12 ,24,40(,72H,72H,56 8 >I16,16,124|,16,16,0,124|,0 HA6,9 ,9 ,6,0,0,0,0 PLUS3DOSwb7:7:0::1;10 ,10 ;"PARE LA CINTA":200::500 &h=0a$="":r$=" ":220 a$="$":r$=" " 13 ,x;" ";14,x;r$ x=x+vel Vx<2h=0h=1:x=2:nb,0;" ":nb=nb+1:280 !x<2x=2:280 x>29x=29 sx=29h=1h=0:k=k+1:k>1ns,31;"$":ns=ns-1:nb=167000X 13 ,x;b$;14,x;a$ Cnb=1615,0;4;"";14,1;" " "x=mix=md8000@ & yp1=13 xp1=x7600 ( yp2=13 xp2=x7600 * yp3=13 xp3=x7600 ,#((*3)*10 )+400 6 695 @-yp1-1,xp1-1;" ";yp1,xp1;" " E-yp2-1,xp2-1;" ";yp2,xp2;" " J-yp3-1,xp3-1;" ";yp3,xp3;" " O3yp1=yp1+1:yp2=yp2+1:yp3=yp3+1 T?yp1-1,xp1-1;2;"";yp1,xp1;2;"" Y-yp2-1,xp2-1;"";yp2,xp2;"" ^?yp3-1,xp3-1;3;"";yp3,xp3;3;"" c yp1=13 xp1=x7600 h yp2=13 xp2=x7600 m yp3=13 xp3=x7600 rsyp1=1413 ,xp1-1;" ";14,xp1;" ":xp1=(*6)+5:yp1=(*4)+5 wryp2=1413 ,xp2-1;" ";14,xp2;" ":xp2=(*6)+13 :yp2=(*4)+5 |ryp3=1413 ,xp3-1;" ";14,xp3;" ":xp3=(*6)+21:yp3=(*4)+5  -yp1-1,xp1-1;" ";yp1,xp1;" " yp1=yp1+1 ?yp1-1,xp1-1;2;"";yp1,xp1;2;""  yp1=13 xp1=x7600 syp1=1413 ,xp1-1;" ";14,xp1;" ":xp1=(*6)+5:yp1=(*4)+5  -yp2-1,xp2-1;" ";yp2,xp2;" " yp2=yp2+1 -yp2-1,xp2-1;"";yp2,xp2;""  yp2=13 xp2=x7600 ryp2=1413 ,xp2-1;" ";14,xp2;" ":xp2=(*6)+13 :yp2=(*4)+5  -yp3-1,xp3-1;" ";yp3,xp3;" " yp3=yp3+1 ?yp3-1,xp3-1;3;"";yp3,xp3;3;""  yp3=13 xp3=x7600 ryp3=1413 ,xp3-1;" ";14,xp3;" ":xp3=(*6)+21:yp3=(*4)+5   9000(#  7700 75:5,0;"";5,30;"" %n=613 :n,0;"$" n,30;"":n &E13 ,1;"";13 ,30;"";14,0;"$$" 0P15,0;4;"" :616,0;"" D(19,1;"PRESION FISCAL: 0%" N>3,0;"BOYERLAND";3,21;"SWITZERLAND" Pl7,2;"B";8,2;"A";9 ,2;"N";10 ,2;"C";11 ,2;"O" R^14,120x:11 ,0:0,-41):-11 ,0:0,41) T[8,29;"B";9 ,29;"A";10 ,29;"N";11 ,29;"K" V_241,112p:-11 ,0:0,-33!:11 ,0:0,33! WTpu=0:no=0:nb=6:ns=14:k=0Track-Info  R         :in=0:vi=5 Xmi=(*26)+3 bmd=(*26)+3 l.md=mimd=mi+1md=mi-1610b v515,mi;4;"";15,md;4;"" x=(*24)+4 x=mix=md640 !13 ,x;"";14,x;"" 218,24;"VIDAS";19,26;vi h=0:b$="" no=1693 4xp1=(*6)+5:yp1=(*4)+6 5xp2=(*6)+13 :yp2=(*4)+6 5xp3=(*6)+21:yp3=(*4)+6 ?yp1-1,xp1-1;2;"";yp1,xp1;2;"" -yp2-1,xp2-1;"";yp2,xp2;"" ?yp3-1,xp3-1;3;"";yp3,xp3;3;""  0 Ein=in+1:19,17;in;"%":in=10007500L  ="i"vel=-1:200  ="I"vel=-3:200 ="o"vel=1:200 ="O"vel=3:200  ="k"vel=-2:200  ="K"vel=-4:200 ="l"vel=2:200 ="L"vel=4:200  320@  695 X$n=613 :n,0;"$" bn,31;" " ln v014,0;"$$";14,30;" " -pu=pu+k:k=0:nb=6:ns=14  700 Lj1,7;1;1;"FIN DE LA PARTIDA";5,10 ;1;1;"Otra? (s/n)" VG18,24;1;"PUNTOS";19,26;1;pu+k `="s"Ŧ="S"520 j="n"Ŧ="N" t 7520` 2h=1nb=nb-1:nb=57610 nb,0;"$" /h=0:14,x-1;1;"PAF" .08}# =,-7 14,x-1;" " &vi=vi-1:19,26;vi vi=07500L -x=12 :13 ,x;b$;14,x;" "  *:3,11 ;1;"BOYERLAND" ::3;"Boyerland es un pais donde noconviene guardar dinero, y no esque se lo vayan a robar, sino que los impuestos suben y suben continuamente y como se descuidese queda Ud. sin un centavo." (:3;"Asi que lo mejor que puede hacer es llevarse el dinero a Switzerland, antes de que la presion fiscal llegue al 1000%" 2020,7;"PULSE UNA TECLA":0: <3;"Pero no crea que va a ser fa-cil: tendra que esquivar las minas explosivas que protegen la frontera y a los feroces 'Boyermen', malvados inspecto- res de hacienda que caeran so- bre Ud. con todo el peso de la Ley." F:"TECLAS:" P:"I para ir a izquierda de 1 en 1":"K para ir a izquierda de 2 en 2":"O para ir a derecha de 1 en 1":"L para ir a derecha de 2 en 2" U#" CAPS SHIFT para ir mas deprisa" Z}::"NOTA: Cualquier parecido de esteprograma con personas, paises o situaciones reales es pura coin-cidencia, que conste." d9#0;8;"PULSE UNA TECLA":0:520 n @Q13 ,x;1;1;"|";14,x-1;1;1;"\*/" J.5,0 O+13 ,x;" ";14,x-1;" " T&vi=vi-1:19,26;vi ^vi=07500L h515,mi;4;"";15,md;4;"" rno=1:600X #((aa=11111111:bb=001110008 #2w=18 #<x$:j=07:z #F x$+j,z #Pj:w #ZK"a",0,00011000,01111110~,aa,aa,0,0,0 #dx"b",00010000,01111111,10111000,10111000,bb,00101000(,00101000(,01101100l #n6"c",0,0,0,0,0,bb,bb,bb #xx"f",00010000,01111100|,10111010,10111010,bb,00101000(,00101000(,01101100l #}"g",00000001,00000011,00000111,00000111,00000100,00000010,00000001,0 #Q"h",aa,aa,aa,aa,00010000,00010000,00000001,10111010 #m"i",0,10000000,11000000,11000000,01000000@,10000000,0,0 #^"j",bb,10111010,10010010,11111110,bb,bb,10111010,11111110 # Track-Info ! R!!!!!!!!! PLUS3DOS~H AUTOR......JUAN PAMOS NAVAS PROGRAMA...VERBO ORDENADOR..ZX-SPECTRUM MODELO.....16 & 48K FECHA......OCTUBRE 1984 1:1:7::1;10 ,10 ;"PARE LA CINTA":200::9000(#:6:7:0:w=0:23658j\,0:236099\,90Z E1;21,0;"Teclea el verbo en infinitivo. ":x$: a$=x$(̱x$-2) z$=x$(x$-1) z$="ar"w=1 z$="er"w=2 z$="ir"w=3 #w=w*1e3:w=03 &:0,12 ;1;"MODOS" '"formas no personales.........0 modo indicativo..............1 modo subjuntivo..............2 modo imperativo..............3" <1;"elige modo (del 0 al 3) ";m:m>312 :(14+(m*2)) %700:formas no personales 0,8;1;"MODO INDICATIVO":':"presente.....................0 pret. imperfecto.............1 pret. indefinido.............2 futuro imperfecto............3 pret. perfecto...............4 pret. pluscuamperfecto.......5 pret. anterior...............6 futuro perfecto..............7 condicional simple...........8 condicional compuesto........9":1;"elige tiempo (del 0 al 9) ";s:s>9 s<015:28   28 X:0,11 ;1;"SUBJUNTIVO":'"presente....................0 pret. imperfecto............1 preterito perfecto..........2 pret. pluscuamperfecto......3 futuro......................4 futuro perfecto.............5":1;"elige tiempo (del 0 al 5) ";f:f>5f<018:500:subjuntivo  500 *:0,9 ;1;"IMPERATIVO" '1;"PRESENTE:" /b$="a":c$="ad":w2e3b$="e":c$="ed" w=3e3 c$="id" 7'';" ";a$;b$;" ";''" ";a$;c$;" "  8e3@   155 &4000+(s*10 ):w$ '00,5;1;1;1;w$ /up2=(s=4)+(s=5)+(s=6)+(s=7)+(s=9 ):p2>0200:formas indicativas perfectas 00,0 1w+(s*10 ) 2f=49 df$ nf,6;a$;f$ xf 8000@ subrutina :3,0 a=16 z$ z$:a   0,0 5000+s f=49 f$ !h$="ado":w2e3h$="ido" p$=a$+h$ f,5;f$;f,15;p$ f:8000@ SUBJUNTIVO :5500|+f +S$:0,5;1;1;S$  155  6000p !h$="ado":w2e3h$="ido" ! p$=a$+h$ 9570:+(f*10 ) ?i$="e":w2e3i$="a" Ax=49 :y$ B%x,10 ;a$+i$+y$:x:8000@ E7i$="ase":o$="ara":w2e3i$="iese":o$="iera" Fx=49 :y$ I2x,4;a$+i$+y$;" ";a$+o$+y$:x:8000@ Qx=49 :y$ R4x,8;"haya";y$;x,16;p$:x:8000@ Zt$="hubiese":r$="hubiera" [y$ \*4,5;t$;y$;" ";r$;y$;" ";p$ ]x=59 :y$ ^=x,5;t$;y$;" ";r$;y$;x,28;"""":x:8000@ d"t$="are":w2e3t$="iere" fx=49 :y$ g%x,10 ;a$;t$;y$:x:8000@ qt$="hubiere" vx=49 :y$ {0x,8;t$;y$;x,20;p$:x:8000@ formas no personales 20,5;1;"FORMAS NO PERSONALES" 1;' "SIMPLES:" ' "INFINITIVO";" ";x$ 8t$="ando":h$="ado":w2e3t$="iendo":h$="ido" ' "GERUNDIO";" ";A$;t$ ' "PARTICIPIO";" ";A$;h$ 1;' "COMPUESTAS:" '' "INFINITIVO";" ";"haber ";a$;h$ '' "GERUNDIO";" ";"habiendo ";a$;h$ 8000@:desea otra opcion !"","","","","",""  "o","as","a","amos","ais","an" ,"aba","abas","aba","abamos","abais","aban" '"e","aste","o","amos","asteis","aron" ,"are","aras","ara","aremos","areis","aran" 82"aria","arias","aria","ariamos","ariais","arian"  "o","es","e","emos","eis","en" &"ia","ias","ia","iamos","iais","ian" )"i","iste","io","imos","isteis","ieron" ,"ere","eras","era","eremos","ereis","eran"  2"eria","erias","eria","eriamos","eriais","erian" "o","Track-Info " R""""""""" es","e","imos","is","en" &"ia","ias","ia","iamos","iais","ian" )"i","iste","io","imos","isteis","ieron" ,"ire","iras","ira","iremos","ireis","iran" 2"iria","irias","iria","iriamos","iriais","irian" cabeceras  "PRESENTE" "PRET. IMPERFECTO" "PRET. INDEFINIDO" "FUTURO IMPERFECTO" "PRET. PERFECTO" "PRET. PLUSCUAMPERFECTO" "PRET. ANTERIOR" "FUTURO PERFECTO" "CONDICIONAL SIMPLE" "CONDICIONAL COMPUESTO" $formas personales (indicativo) ("he","has","ha","hemos","habeis","han" 8"habia","habias","habia","habiamos","habiais","habian" :"hube","hubiste","hubo","hubimos","hubisteis","hubieron" 8"habre","habras","habra","habremos","habreis","habran" >"habria","habrias","habria","habriamos","habriais","habrian" {cabecera subjuntivo | "PRESENTE" }"PRET. PERFECTO" ~"PRET. IMPERFECTO" "PRET. PLUSCUAMPERFECTO"  "FUTURO" "FUTURO PERFECTO" oSUBJUNTIVO p"","s","","mos","is","n" @desea otra opcion? A J'1;"DESEA OTRO VERBO (s/n)?";Q$ OQ$="s"3 P(1;"DESEA OTRO TIEMPO (s/n)?";Q$ TQ$="s"10 Y 1e4' #( GDU #-:9020<# #2$a=087W:n:"a"+a,n:a #<0,151,213,181,149,149,151,0,0,39',85U,69E,37%,21,103g,0 #F0,119w,37%,39',38&,37%,37%,0,0,114r,85U,84T,82R,81Q,118v,0 #P0,151,149,149,149,165,71G,0,0,232,136,232,136,136,238,0 #Z0,142,138,138,138,138,238,0,0,64@,160,128,64@,32 ,192,0 #d0,174,170,234,42*,42*,238,0,0,234,74J,74J,74J,74J,78N,0,0,96`,144,144,144,144,96`,0 #PRESENTACION #&0,0;1;"PROGRAMA" ##4,0;1;"AUTOR" #"8,0;1;"PARA" #c=02 # W$,P,x,y # 9990' #C #a=10 12 #3a,15;1;2;" ":a #H19,0;1;1;" SOLO VERBOS REGULARES " #-z=010 .4L:.05|L,z:z #.z=10 0-.4L:.05|L,z:z % %m"VERBOS",-10 ,3,2,"J.PAMOS",20,2,2,"MICROHOBBY",64@,3,3 ':CABECERA '0a=2*(w$):7;21,0;w$ ' 0f=14*a-1:n=16 ' (f,n)=09996 ' ' ]f*x,n*y+(135-p):2,0:0,2:-2,0:0,-2 ' n:f '  Track-Info # R######### Track-Info $ R$$$$$$$$$ Track-Info % R%%%%%%%%% Track-Info & R&&&&&&&&& Track-Info ' R'''''''''