whodunit F= =CH= 152 d 44500ԭ i 5000 n%a=6524065240+125} xn a,n a Q10 ,0;0;6;1;" WHODUIT ES CARGANDO " 19,0:"" 19,0:"" 1:6:0: 1000 9.8L,11 :.2~L,13 :.8L,14 &.2~L,13 :.3,11 &.2~L,13 :.3,11 &.2~L,13 :.3,14 &.2~L,13 :.3,14 &&.2~L,19:.8L,17 +z=110 :z 0r.1}L,19:.1}L,17:.1}L,16:.1}L,14:.1}L,12 :.1}L,11 5.1}L,10 X  1 l=65261 'v$="...PULSA.UNA.TECLA.PARA.JUGAR..." U9 ,10 ;5;0;" BIENVENIDO";10 ,11 ;" A WHODUNIT"  500 z=1502:z !.05|L,(*30)+1 '0,0;0;5;v$ !.05|L,(*30)+1 v$=v$(2)+v$(1) =""1012 a=130 .01z# =,a:a  l=65261  8100 .9 ,9 ;1;"POR FAVOR ESPERE"   4500  100d  85004! l=65303  8200 !q$="":s$="" " ani=0 )Xx=x+(="a"x<14ƫ(x+1,y)7)-(="q"x>2ƫ(x-1,y)7) .Xy=y+(="p"y<30ƫ(x,y+1)7)-(="o"y>2ƫ(x,y-1)7) /B="q"x>2ƫ(x-1,y)=41)x=x-3:1300 0C="a"x<14ƫ(x+2,y)=41)x=x+3:1400x 1$x,y;8;8;1;q$ 3wog=(*30)+1 8sw=1con=con+1 ?&wog=10 con=07000X C(con>0t,u;8;8;s$ D(con>0t,u;8;8;s$ E&con=ski*13 +47200  Gx=ty=u7400 I$x,y;8;8;1;q$ L6ani=0q$="":s$="":ani=1:1200 V*ani=1q$="":s$="":ani=0  1060$  door routines  #$x+2,y;8;8;"" ( .05,-10 )z=110 :z -$x+2,y;8;8;"" 2 .05,-10 3z=110 :z 7$x+2,y;8;8;"" w x door routine 2  $x-1,y;8;8;"" z=110 :z $x-1,y;8;8;"" z=110 :z $x-1,y;8;8;""  gosh=gosh+39' l=65345A 618,0;"TECLAS... 4 BORRAR GENTE " ߠ19,0;"1 NOMBRE GENTE 5 BORRAR ARMA ";20,0;"2 NOMBRE ARMA 6 BORRAR HORAS ";21,0;"3 PARA HORAS 7 PARA CONTINUAR" z=1100d:z w.02{# =,5:.02{# =,10 :.02{# =,15:.02{# =,20:.02{# =,25:.02{# =,30  0 5="1".4L,10 :lin=200:21004 5="2".4L,15:lin=205:21004 5="3".4L,15:lin=210:21004 ="4"v=6:2250 ="5"v=11 :2250 ="6"v=16:2250  ="7"7455 / 2020 5l=65345A 7619,0;".....TECLAS A-J..Q PARAP QUITAR." 9 0 :="q"2000 >a=-96` C"a>10 a<12106: H2000+lin R 0 SD20,0;8;8;" " W 2106: -21,7;6;8;a$(a): -21,4;6;8;b$(a): @21,4;6;8;"las ";c$(a);" EN PUNTO":  w=2 9.3,10 :.3,30:.3,20 l=65345A 619,0;"TECLA S PARA BORRAR.OTRA CONT..." z=110 7v,w;8;8;1;1;"":0 %v,w;8;8;1;"" ,="s"v,w;0;7;1;"" w=w+3:z  100d H19,0;6;1;" " l=65324,  2000 not=ski*3 mon=mon-1 clu=(*not)+1 8400 clu22600( 2570 ret=(*10 )+1 z=1ret:p$:z 018,6;a$(tni);20,3;p$ 8300l 8400  7440 f"HUYE DE TI","QUE TE MUERDA EL PERRO","DISELO A TU MADRE","TE PEGA EN LA NARIZ","TE DA UN GRAN BESO" "TE PALMEA LA CARA","COGE TU MONEDA Y MARCHA","COGE TU MONEDA Y SE LA DA AL PERRO","TE HABLA EN FRANCES","TE CANTA UNA OSCENA CANCION" -7hint=(*11 )+1:per=(*10 )+1 T3000 +(hint*10 ) 7440 TNI=mur2600( .TNImur20,1;"[YO NO LO MATE!" z=1300,:z 7440 tim=per2600( hr=per2600( ftimper18,1;"VI AL MUERTO VIVO A LAS .......";20,10 ;c$(per);" EN PUNTO." z=1300,:z 7440 per=wep2600( gun=per2600( hwepper18,10 ;"DE MARCAS DE ";i$(per);20 ,5;"NO HABIA RASTRO EN EL CUERPO." z=1300,:z 7440 per=wep2600( gun=per2600( Twepper18,7;b$(per);20,1;" ESTABA CERRADO BAJO LLAVE." z=1300,:z 7440 per=mur2600( klr=per2600( Amurper20,1;a$(per);" NO ESTABA CUANDO OCURRIO." z=1300,:z 7440 per=tim2600( hr=per2600( atimper18,1;"EL MUERTO NO LA PALMO A LAS";20,5;c$(per);" EN PUNTO." z=1300,:z 7440 per=mur2600( klr=per2600( 5murper20,1;a$(per);" EL NO LO HIZO" z=1300,:z  7440 per=rom2600( oom=per2600( @romper20,1;"EL NO MURIO EN LA HABITACION ";per z=1300,:z  7440 per=rom2600( oom=per2600( Bromper20,1;"LA HABITACION ";per;" ESTA CERRADA." z=1300,:z  7440 per=wep2600( gun=per2600( Swepper18,4;b$(per);20,1;" NO ES EL ARMA DEL CRIMEN." "z=1300,:z $ 7440 'oom=per2600( (per=rom2600( *Gromper20,1;"EL MUERTO NUNCA USABA LA HABITACION ";per ,z=1300,:z . 7440  8600! 413 ,0;"SAVES EL NOMBRE DE ASESINO S/N"  0 "s"7485= =""4020 H13 ,0;6;1;" "  85004! Û10 ,16;"ASESINO ";13 ,16;" ARMA ";16,16;" HORA ";19,16;"HABITAC.";8,0;"TUS RESPUESTA." ō10 ,0;" ";13 ,0;" ";16,0;" ";19,0;" " 310 ,25;1;"A to J ":44000  10 ,0;a$(a):rum=a 313 ,25;1;"A to J ":44000  13 ,0;b$(a):pew=a 316,25;1;"A to J ":44000 +16,0;c$(a);"EN PUNTO":mit=a C19,25;1;"1 a 10";21,25;" : = 10"  0 a=-480 "a>10 a<14073 &19,0;"HABIT. ";a:mor=a  4490 10 ,25;6;1;" ";13 ,25;" ";16,25;" ";19,25;" ";21,25;" " 8300l :85004!  sc=0:mark=0 rum=murmark=1  4300 )10 ,28;h$:.8L,0 pew=wepmark=1  4300 "*13 ,28;h$:.8L,10 'mit=timmark=1 ) 4300 ,*16,28;h$:.8L,20 1mor=rommark=1 3 4300 6*19,28;h$:.8L,30 9 500 ;z=210-1 @Oz,0;2;" ":.01z# =,20:z hsc=46800 mgo=go+1 rsc<46500d  mark=1sc=sc+1 mark=1h$="" mark=0h$="X" mark=0 & 0 0 5a=-96` :"a<1a>10 44000 b z=1130:z   4600 %x=9 :y=16:gosh=0 a$(11 ,10 ) a=111 z$:a$(a)=z$:a b$(10 ,14) a=110 z$:b$(a)=z$:a c$(10 ,6) a=110 z$:c$(a)=z$:a z"MR SNIPE","PUNK","NORA BUTTY","REV SMITH","MRS SNARG","POLI PLODDS","MARINERO SAM","HILDA","PEQUE\O JOE","LECHERO","TU" y"LA PISTOLA","EL CUCHILLO","EL HACHA","LA CUERDA","EL ARCO ","LA LIMA","LA LANZA","EL CALAMBRAZO","LA PALA","LA CADENA" J"DOCE","UNA","DOS","TRES","CUATRO","CINCO","SEIS","SIETE","OCHO","NUEVE" mur=(*10 )+1  klr=mur  wep=(*10 )+1  gun=wep tim=(*10 )+1 hr=tim rom=(*10 )+1  oom=rom sw=0:con=0  t=0:u=0 %6mon=ski*15+10 :sus=ski*20+10 *i$(10 ,13 ) /a=110 4z$:i$(a)=z$:a >Z"BALA","CUCHILADA","HACHA","AHOGADO","FLECHA","LIMA","LANZA","CALAMBRES","PALA","CADENA" C go=0 Hwins=0 ~ 17,215,227,33!,0,64@,6,27,197,6,0,126~,18,19,35#,16,249,193,16,244,201 17,0,64@,33!,215,227,6,27,197,6,0,126~,18,19,35#,16,249,193,16,244,201 17,214,200,33!,0,64@,6,27,197,6,0,126~,18,19,35#,16,249,193,16,244,201 17,0,64@,33!,214,200,6,27,197,6,0,126~,18,19,35#,16,249,193,16,244,201 17,213,173,33!,0,64@,6,27,197,6,0,126~,18,19,35#,16,249,193,16,244,201 17,0,64@,33!,213,173,6,27,197,6,0,126~,18,19,35#,16,249,193,16,244,201 rz=1100d:z ul=65261 z>0,0;1;" " =mon00,0;1;"NO TE QUEDA DINERO" @sus00,16;1;"NO TIENES SOSPECHOSO" #8,9 ;a$(mur);" " 9 ,9 ;b$(wep);" " (10 ,9 ;c$(tim);" EN PUNTO" ,11 ,9 ;"HABITACION ";rom;" " wins=6*(sus+mon) f6,0;1;" ";6,10 ;"TU PUNTUACION ";wins  6830 i=go=ski9 ,0;" HAS FALLADO COMO DETECTIVE " ngo=ski6000p 7go3a<18107 ski=a 9.1}L,10 :.1}L,20:.1}L,30 710 ,10 ;8;8;" "  618,0;"TECLAS o,p,q,a PARA PREGUNTAR " H20,0;"MONEDAS ";mon;20,15;"SOSPECHOSOS ";sus M21,0;1;" " g q+z=120:.01z# =,32 :z v+z=120:.01z# =,25:z {+z=120:.01z# =,18:z  k18,0;" ";20,0;" " k21,0;" ";19,0;" " !  !9.5,11 :.5,13 :.5,14:.5,23:.73333,18:.2~L,23:.2~L,18:.2~L,16:.2~L,14:.2~L,13 :.8L,11 ! !l=65261 !(9 ,12 ;1;"WHODUNIT?" ! 85004! !z=721 !Xz,0;6;1;" ":.01z# =,20:z ! ' "whodunit"10 '$"whodunit"44501խ,25000a '""whodunit""a",21*8 lV ...PULSA.UNA.TECLA.PARA.JUGAR...dwhodunit aխ=a ́AUIǁ1A AA}0A A U f၆} D 9  (AAAAH!1IA "cI}><|<x~~<B> a<0zAAEA!84!$!a EA9a6 0aDTBBBD@@BB0<T~H!AQ")!B}A㡉IAȂ$Aက8A 518B|@B||@~xA$A! ~=1<| G!1fa$=%!AAAABxAр@ J"Dy~B@B@@NBBx!BA qBIB~ a=A"($A"!"<AA I!yBBBD@@BBBx!BA0 2 fa= 4aq]B"1!@!A!01B|<x~@<B><xBA%2AUqπ!!!}A %((ɀ>?ɐ8|1A!01 x&ABA?x?! B~H!!<   Q@03A B?`(A!<<`<|<x~~<B>   1@<|<x~~<B>HB@( A<ABBBD@@BB<<<<<<<<<<!!!!!!!!!!BBBD@@BB~HB  <! B|@B||@~B|@B||@~~`H  $  <" ~B@B@@NBB~B@B@@NBB<H0 O >BBBD@@BBB!!!!!!!!!! <<<<<<<<<<BBBD@@BBB<HA<$aB|<x~@<B><Q    @ B|<x~@<B><H<   ?000(((000(((000(((000(((000(((000(((000(((000(((000(((000(((000(((000(((000(((000(((000(((000(((000(((000(((000(((000(((888888888888888888888888888888(((000(((000(((000(((000(((000(((000(((000(((000(((000(((000(((000(((000(((000(((000(((000888888888888888888888888888888000(((000(((000(((000(((000(((000(((000(((000(((000(((000(((000(((000(((000(((000(((000(((888888888888888888888888888888@@@@@@  ?|    @@@~~~~pzzzz ~~~~ <<<< @@ ?   ~~~~zzzz~~~~<<<<??~@z~?<<())))(())(()))))((())))))(((((((((((((((((((((()(((()(((((()((((()(((((((()(((((()((((()(((((()(((((((((((((())))))))))))))))))))))))))))))))~~~~~~~~~~~~~~~|~~~~~~~~~~~~~~~~~~~~~~~~~|~~~~~~~~~~~~~~~~~~~~~~~~|~~~~~~~~?~~~~~~~~~~~~|~~~~~~~~~??~~8~~~~?~~~~~~|~~~~~~~~~~~|~~~~?~~~~~~|~~~?~~~~~~~~~|~~~~~~~~~~~~~|~~~?~~~~~~~~~|~~~~~~~~~~~~~~~~|~~~~~~~~~~~8~x< ~~<0??~??????? a`?` |BH?"<BBBF@BB~<|<<<8888888822222222222222222222222222222222$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$222211112221111122211111222111112222111121211111212111112221111122221111222111112221111122211111$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$22222222222222222222222222222222  ((((((((((((((((  (((((((((((((((( !!!!!! (((((((((((((((( !!!!!! (((((((((((((((( !!!!!! !!!!!! !!!!!! !!!!!! !!!!!! ))))))) ))))))) )))))))  !@~#@!~#!@~#@!~#խ!@~#@!խ~#>888T(DB$$Bd NN$d 88/`:Ψҩ./x/(g}<0S_ -8z<({ZW͎!\~ #5+ 6}!\ !\(.!\('~ ~_w#6#: \w#NV3w2\#6#5: \w#~B{' x!~7{:8/ O(O!(!~!)@(Z( 0^ ƥ0  !Th(80 6!09(0(ƀh!0 "( >_>@}==/O! :H\8 ?DOg z( yMM 1'4l8!\~ ^#N#Fx T# Px<%l 0 !n4ʹ38w18͔ 0"4CU45q8͙͙PYzõ  `uA$Sʉ.68I>CjsOT\i$v$:;\+bk !?!(! +>G- %/> 7;oz( n|g>7%lyx0B> <#1>z<;:H\8>8 >!? O0!+| 00>Ƹ0$ 0x0yO& 0uyO~#.>˸|gz |>= >Щ (y/O7:t\2t\͌0%(<:t\(" > 6+! 0:t\ x(  # I:t\ʊͲ(0 !:t\=(Š0%(#~w #~w #q>q(6R~ݾ 0 ! ~< yO#  y > ~( :t\=ʶnf^ V |( R8&(~ | n f:t\7 >V^ V |  nf7R8 DM~(>|(+F+N+"_\*_\*Y\+N F ~U#w#s#r#7>*Y\+"_\N F U*_\#NF "K\f| n "B\6 7>N F 67>[S\~ # +0͸, ~O*K\~(%(͸ # 0><7,  "_\͸*_\͸"_\*S\8+U#U#SS\[_\> 2v^ V >PREPARE LA CINTA Y PULSE INTRO PROGRAMA: MATRIZ NUM.: MATRIZ LITERAL: BYTES:  8i0e! _^ NW)TSR7PO_^]\[ZTS >" N > ! :\6W> e 2\N!U   y==Z>?l 2\ m  2\*Q\s#r ̀ *\W}" )DJ>8 ON >ڟ ;  $ N F C\"\C\C\"\qE"\N K\*\FK\*\NE*\8=0&G8  \G!\> Ow# ~:K{\   K6\!;\ˆ &o))) y=>! ON(yU :\8O>N(078#= %N #> _|Xg[\~Wv(W 8Wf(o w&A 8 > F; ; 0H(z> <~#(= AN xF 18f(^-(Z>{?\5R E>2\*\:\> !;\ˮ (E(A n(;>2\"\ F1!͛|XgZN q#ɀ]MAS? 81DG*\*\M x!k\Fx*Q\ s#r#?8!*!"}\0͔ >M D*Q\ s#r6R!![N xF(1G͛>!_ ͛xx ! =!GOx $ ͈!͛xOx T]6=G $ ͈bk:\F(:H\w !|=Pgah)))))DM>Woz@g!@$| } o?g ![>![uFGw#0! xWT8 > 0 ^#0z *=\!s=\^!͵!8018-8:W8 7~_*[\U#pwhodunit X888T(DB$$Bd NN$d 8819:3106 , 150 6)6,11 ;1;"GAME OVER": @8,11 ;"PUNTOS=";s;10 ,8;502-c;" Disp. usados";21,0;1;" PULSA UNA TECLA PARA JUGAR " J@s=18s=1915,7;"[Casi la consigues!" T]s=2015,2;"Has consguido destruir esta plaga.]Te atreves con otra?" ^>s<615,2;"[[Destruido por derrochador!!" hLf=-10 10 :.1}L,f:*7:f:2,-17:7 r=""370r |120x:90Z 2e=29:21,17;"[SPRAY GASTADO!"  e=e-1 2;18,e;" ";17,e+1;" ";16,e+2;" ":i=16:.015zu\,-12 :12 :i {e=22184,25:-108l,-20:3:1;184,25:1;-108l,-20 We=2120,9 ;"";19,9 ;"";21,10 ;"" .015zu\,-12 Ce=21i=120:.01z# =,i/4:i/3:i {e=12 104h,25:-104h,-20:3:1;104h,25:1;-104h,-20 Se=11 20,0;"";19,0;"";21,0;"" Ce=11 i=120:.01z# =,i/4:i/3:i e=6:3106  400 5f=07+8*9 :cg:"a"+f,cg:f 1,2,4,7,63?,513,192,0,480,64@,128,224,240,240,144,0 130,16,0,66B,0,36$,0,72H,65A,8,0,66B,0,36$,0,18 3,7,14,60<,248,248,240,240,0,32 ,0,4,64@,0,16,0 &128,32 ,12 ,30,255,6,0,1,0,0,60<,126~,255,124|,0,64@ 0 :255,255,255,24,24,24,24,24,0,0,0,0,255,255,255,24 HANOI  k 1:5:1: (2,8;"* Torres de Hanoi *" "DIFICULTAD (2-9)?";d (d<2d>9 30 - 2B4,4;"numero minimo de jugadas ";2^(d-1) 7h(3):c(3,d) 8*f=1d:c(1,f)=d+1-f:f 96h(1)=d:h(2)=0:h(3)=0 : j=0 <a$="" dU3;18,2;"";12 ;"";22;"" n319,2;"1";12 ;"2";22;"3" s 320@ "desde ";o;" hasta ";i 4o>3o<1i>3i<1200 h(o)=0200 h(i)=0230 &c(o, h(o) ) > c(i, h(i) )200 j=j+1:.2~L,23 c(i,h(i)+1)=c(o,h(o)) c(o,h(o)) =0 h(o)=h(o)-1 h(i)=h(i)+1 b17-h(o),1+1*(o=1)+11 *(o=2)+21*(o=3);" "  320@ ,&h(2)=dh(3)=d500 6 200 @ w=-1 Jf=1d:w=w+1:17-w,2;a$(c(1,f));17-w,12 ;a$(c(2,f));17-w,22;a$(c(3,f)):f T!21,10 ;"Jugadas ";j ^ 321,0;"FENOMENO LO HAS LOGRADO EN ";j Gf=112 :n=08:.05|L,n:.05|L,f:n:f d0::"Si quieres jugar pulsa una teclarapidamente o el programa hara PLUF! en 10 segundos" $f=0720:""1 f: BARON R.  Vn=095_:q:"a"+n,q:n:2000:0:5:1:0: 20,0;4;0;4;"";:0,0;7;2;"ALEAsoft & Hardware corporation.":800  |63?,128,185,191,159,4,24,24,224,3,135,255,255,0,0,0,252,1,157,253,249,32 ,24,24,7,192,225,255,255,0,0,0,4,14,31,63?,127,255,255,255,0,0,14,63?,255,255,255,255,0,0,0,224,241,255,255,255,23,106j,132,66B,33!,89Y,101e,6,140,34",78N,90Z,220,140,568,45-,63?,127,251,127,63?,0,0,0,255,255,109m,255,255,34",255,127,252,254,159,254,252,0,0,0 :19,0;4;1;"";1;"";4;"" {v=0:k=0:r=5:a=2:b=2:q=0:l=10 :x=8:c=30:f=0:p=0 0k$="":a$="" .n=(*8)+1:n=1k=1 Fk=1c=c-j:a,b;5;" ":a=l:b=c:l,c;1;v;k$ (c2l,c;5;" ":v=(*7):k$="":g=(*2)+1:k=0:l=(*15)+2:c=29:b=31:f=f+1:g=2k$="" )v=5v=4 27x=x+(="q"Ŧ="Q")-(="a"Ŧ="A"):x2x=2 v=5v=7 A"(x,8)=104h90Z F(l,c-1)=106jr,8;5;" ":n=16:.02{# =,-20: (*7):x,8;ٺ(*7);5;"":n:x,8;5;" ":500 K(x,8)=105in=15:.02{# =,-25:x-1,8;ٺ(*7);5;"":(*7):n:x,8;5;" ":500 ZKr,8;5;" ":r=x:x,8;1;2;5;"" ds=" "x,10 ;1;2;5;"..........":.01z# =,10 :x,10 ;5;" " n=" "l=xc17.03{u\,-30:n=18:(*7):l,c;1;ٺ(*7);5;"":n:0:l,c;5;" ":c=31:k=0:l=(*15)+2:p=p+1 xB1,1;"HUIDOS "+f;1,16;"DESTRUIDOS "+p }f20700 ~p=40(900 15 H20,0;6;1;" .INTERCEPTOR DESTRUIDO. KAPUT. " #n=1700:n::2  <"velocidad enemigo(1/5)";j:j<1j>5800  * 4'd$=" E L B A R O N R O J O " n=160 <:d$=d$(2)+d$(1):19,0;2;1;6;;d$:.01z# =,(*70F)-40(:n: 2,1;1;"Usted es el baron Von Riftofen, y su mision es penetrar al la caza de aviones y dirigibles enemigos.Si logra levar a cabo su mision sera condecorado." ( 0: &SNAKE '&' 1992 Alvaro Alea B39941=0"SNAKE1"65368X:"SNAKE2"39941 30:0:7:1::39940 Ve=40061}:23658j\,8: 236066\,236: 236077\,156 INICIALIZACION  RECORD=250:N$="AAF" 8000@ 5000:  740 A$="":B$="":C$=B$ #PUNT=0 -'VIDAS=3:CP=0:CN=0 . S=6 /"DIR=50000P:DOR=50001Q 2COME=0:PANT=1100L 7?X=8:Y=14:INDX=-1:INDY=0:I=0 < 600X iBUCLE PRINCIPAL n[INDY=0=D$C$="":I=INDX:INDY=1:indx=0:a$="":b$="":500 x\INDY=0=i$C$="":I=INDX:INDY=-1:indx=0:a$="":b$="":530 \INDX=0=s$C$="":I=INDy:INDx=-1:indy=0:a$="":b$="":5600 [INDX=0=l$C$="":I=INDy:INDx=1:indy=0:a$="":b$="":590N !32766=1890 dir,x:dor,y +dir-s50000P(dir-s),(dor-s);" " "dir=dir+2:dor=dor+2 x=x+indx:y=y+indy (x,y)=66B 2159o (x,y)=67C2155k  (x,y)=22170z . (x,y)=68Dū(x,y)=70F2179 -1;x,y;a$;3;x-indx,y-indy;b$ come=nivel600X b$=c$  110n GIROS i=-1b$="" i=1b$=""  i=-1b$="" i=1b$="" & 0i=-1b$="" :i=1b$="" D Ni=-1b$="" Oi=1b$="" P XPASO DE PANTALLA ] ^cn=1700 b;cp=cp+1:10 ,10 ;1;"PANTALLA ";CP lF=1200:F q vPANT sINDX=-1:INDY=0:S=6:DIR=50000P:DOR=50001Q:COME=0:A$="":B$="":110n CAMBIO DE NIVEL w4;10 ,0;" [HAS CONSEGUIDO PASAR LAS 8 PANTALLAS,AHORA EMPIEZA OTRA VEZ Y LOGRA MAS PUNTOS!" F=1800 :F &5;21,0;"PUNTOS:" P=PUNT ԌF=0500025:40018R:6;21,7;P+F:F:40000@:PUNT=PUNT+5000:F=1100d:F CN=-  45-  ELIGE NIVEL  86;10 ,10 ;"]NIVEL?";4;"(1-3)"  0 $>513ů<491750 >40018R:2;21,0;"NIVEL ";4; NIVEL1=4- F=1502:F   >2;0,0;"" ?2;20,0;"" AA=119:2; A,0;"";A,31;"":A 41;21,0;"PUNTOS:";6;PUNT 51;21,17;"VIDAS:";6;VIDAS  L PANTALLA 1 Q*X=8:Y=14:X,Y;1;"X" V(1000:NIVEL=10 :2000 X#EPANT=1100L:PANT=1120` [ ` PANTALLA 2 e*X=8:Y=14:X,Y;1;"X" j 1000 twA=119:2;A,10 ;"":A:10 ,10 ;" ";11 ,10 ;" ";12 ,10 ;" " ~ANIVEL=16:2000:EPANT=1120`:PANT=1160:  PANTALLA 3 *X=8:Y=14:X,Y;1;"X" zA=119:2;A,11 ;"";A,21;"":A:A=10 12 :A,11 ;" ";A,21;" ":A  1000 NIVEL=20:2000 $ PANT=1200:EPANT=1160   PANTALLA 4 *X=8:Y=14:X,Y;1;"X" F2;0;11 ,4;"";11 ,24;"" zA=119:2;A,11 ;"";A,21;"":A:A=10 12 :A,11 ;" ";A,21;" ":A  1000 NIVEL=30:2000 #EPANT=1200:PANT=1250   PANTALLA 5 +X=14:Y=15:X,Y;1;"X"  1000 _A=119 :2;A,5;"";:A:17,5;" ";18,5;" " ]A=630:2;7,A;"":A:7,29;" ";7,30;" "  NIVEL=30:2000  #EPANT=1250:PANT=1300    PANTALLA 6 +X=14:Y=13 :X,Y;1;"X"  1000 ^A=119 :2;A,5;"":A:17,5;" ";18,5;" "  ]A=630:2;7,A;"":A:7,29;" ";7,30;" " (A=119 :2;A,10 ;"":A: 1,10 ;" ";12 ,9 ;" ";2;0;12 ,5;"";10 ,2;"";1,15;"" 2NIVEL=34":2000 7#PANT=1350F:EPANT=1300 < F PANTALLA 7 K+X=14:Y=15:X,Y;1;"X" P 1000 Z/A=15:2;6,A;"":A d0A=328:2;6,A;"":A nBA=10 19:2;A,11 ;"";A,20;"":A qNIVEL=40(:2000 r#PANT=1400x:EPANT=1350F s x PANTALLA 8 }+X=15:Y=23:X,Y;1;"X"  1000 /A=17:2;A,5;"":A 1A=119:2;11 ,A;"":a 2a=1530 :2;8,a;"":a 2a=1519:2;a,15;"":a nivel=44,:2000 EPANT=1400x:cn=1  COMIDA &F$="":COLOR=4:SENAL=0 4F=1NIVEL/2 >2A=(*20)+1:B=(*30)+1 H(A,B)" "2110> RCOLOR;A,B;F$ \F aSENAL=1 f2F$="":COLOR=6:SENAL=1:21004 kMUERTE AL MORDERSE lFe=40018R:g=68:40003C,g:e= 40000@:g m 2165u oMUERTE EN MUROS p e=40037e:e=40037e u8vidas=vidas-1:6;21,23;vidas vvidas=02250 w'pant=epant:cp=cp-1:cn=0 xO:1;10 ,12 ;"VIDAS:";6;vidas:f=1100d:f y 600X zMUERTE EN EXPLOSIONES {indx=1x=x-1 |indy=1y=y-1 }42;x,y;"";x+1,y;"":39941 ~ 2165u COME 0e=40018R:s=s+2:come=come+1 5punt=punt+25:21,7;6;punt come/nivel1ɺ(come/nivel1) 2a=(*20)+1:b=(*30)+1 (a,b)" "2200 2;0;a,b;"": FIN K:1;10 ,7;"ACABASTE TUS VIDAS":f=1100d:f  71;0,8;"PUNTUACION:";6;punt .15,8;"RECORD:";record;" de ";n$ punt>recordrecord=punt:1;5,4;"HAS CONSEGUIDO UN RECORD.";6,4;"ESCRIBE TUS INCIALES:":2280  2298 n$="" 6,26; a=13  0 %<65Aů>90Z2286 a+1;;  n$=n$+ a f=040(:f p=07 G.002xn,p*2:p;15,8;"RECORD:";record;" DE ";n$ k""p040000@:40000@:40000@:40018R:f=1502:f::10 p  2298  OPCIONES 2;4,4:2;248,0:3;0,168:4 ;-248,0:5;0,-168 2;0,0:2;255,0:3;0,175:4 ;-255,0:5;0,-174 ?s=5:d=10 :c=6:o$="-OPCIONES-":5020 ?s=10 :d=11 :c=5:o$="CURSORES.":5020 3s=13 :d=11 :o$="TECLADO.":5020 5s=16:d=11 :o$="REDEFINIR.":5020  5050 s,d; f=1̱o$ .001wn,40(  c;o$(f); f  ,#1;"6&7 PARA MOVER.ENTER PARA SALIR" Lh=10 :3;h,8;"";h+1,8;"":tono=40( =h>10 ="7"inch=-3:inct=.5:5100 =h<16="6"inch=3:inct=-.5:5100 ɀ=13 3;1;h,10 ;" ":e=40018R:e=40000@:f=150 2:f:5150+h  5055 f=hh+inchinch/3 "tono =tono+inct:.002xn,tono y3;f,8;"";;f+1,8;"";f-1,8;" ";f+2,8;" ";f+1,9 ;" "  f h=f-inch/3  ("d$="8":i$="5":s$="7":l$="6": +"d$="P":i$="O":s$="Q":l$="A": .S:4;5,10 ;"DERECHA:";:0:d$=:2;:40018R /S4;7,10 ;"IZQUIERDA:";:0:i$=:2;:40018R 0P4;9 ,10 ;"ARRIBA:";:0:s$=:2;:40018R 1P4;11 ,10 ;"ABAJO:";:0:l$=:2;:40018R 2f=1502:f: @MUSICA B2;4,4:2;248,0:3;0,168:4 ;-248,0:5;0,-168 C2;0,0:2;255,0:3;0,175:4 ;-255,0:5;0,-174 EU4;10 ,7;"ALEAsoft PRESENTA:";6;12 ,13 ;"SNAKE" Jg=12 4-4 Twr=10 :c=5:d=15:8040h:c=10 :d=20:8040h:c=15:d=25:8040h ^g c: h5f=1g:a=cdr:40003C,a:e=40000@ m"":15 na:f r 'S"SNAKE"1:"SNAKE1"65368X,168:"SNAKE2" 39941,487 eeecorNAAF lr cd l sO REDEFINIR.hPonncncDPIOSQLAivelunidai`oaomanxyndndiiveoloenabpanCFABSNAKE1 Xw$BBBB$DD"XX"fÙflǓl7kk6۽Yc>lx|ƚg<,^~,|޾|( 88888!DJ.$ѨT/%@rT}wSNAKE2 ! N>= :H\A(8 #z !͵ | 2! ͵2!d͵#d!n͵+}o!=!kX<~fBf~<8xfff> >>&& 3,0;1;" CAMPEONATO DE ARTES MARCIALES " f=03 L.05|L,3:.07}\(,7:.05|L,9 :.05|L,1 f (9 ,0;1;"Introduce:" W11 ,7;2;"-Edicion(numero)";12 ,7;0;"-Modalidad" e,o$ combate=1  =0,0;6;0;e;"o. CAMPEONATO DE ";o$ >1,0;2;"" ?g=27:h=010 :g,h;ٺ(*8);"0" h:g Fg=27:h=13 23:g,h;ٺ(*8);"0":h:g Fg=27:h=2631:g,h;ٺ(*8);"0":h:g  @g=031:8,g;1;"_";10 ,g;"_":g 9 ,0;2;6;"Spectrum":9 ,9 ;1;"HOBBY";9 ,15;0;2;"Sinclair":9 ,24;0;"ZX-ZX-ZX" +12 ,10 ;5;"" ",13 ,9 ;5;"" ,.14,8;5;"" 6015,7;5;"" @216,6;5;"" J417,5;5;"" T618,4;5;"" ^n=01:.05|L,12 :.05|L,7:.05|L,34":.05|L,8:.05|L,13 :.05|L,23:n _620,3;0;1;"]Que cinturon?" `i a! i<0i>7352` b-12 ,1;0;"cint.";i;"" cu d$20,3;" " fr=0:t=0 g.12 ,23;0;"cint.";u;"" h+13 ,12 ;5;0;"" r+14,12 ;5;0;"" w!14,14;5;" " |+15,12 ;5;0;"" +16,12 ;5;0;"" +13 ,15;5;0;"" +14,15;5;0;"" +15,15;5;0;"" +16,15;5;0;"" !15,14;5;" " -20,3;7;" " 19,12 ;t,r 0D502:.05|L,8:.05|L,12 :.05|L,4 :921,8;2;1;" TURNO:-> " ? 502 Xl=(*5) ]l=0600X btl=1l=215,14;0;5;"":.05|L,9 :16,15;5;" " Sl=3l=414,14;0;5;"-/":.05|L,9 621,8;2;1;"[[ TU TURNO !!"  0 O="z"Ŧ="x"15,13 ;5;0;"";16,13 ;" " 8="q"Ŧ="w"14,13 ;5;0;"" (="z"l=1)(="x"l=2)(="q"l=3)( ="w"l=4).05|L,10 :.05|L,12 :.05|L,14:21,8;1;0;"[ LO HAS PARADO !":780  ("z"l=1)("x"l=2)("q"l=3)("w"l=4)1,1:21,8;1;0;"[[TE HA DADO!!":r=r+1:19,16;r r=10 5000  502 s21,8;1;1;"[[[ ATACAS TU !!!":.05|L,8:.05|L,12 :.05|L,4 0;5;13 ,12 ;"";14,12 ;"";15,12 ;"";16,12 ;"";16,15;" ";15,14;" " 40;5;13 ,15;"";14,15;"";15,15;"";16,15;"";14,14;" " R 0 \m="z"Ŧ="x"15,13 ;0;5;"";16,13 ;" ":.05|L,9 :872h f="q"Ŧ="w"1350F g 850R ps21,8;2;1;" TURNO:-> ":.05|L,8:.05|L,12 :.05|L,4 L 557 'y=(*3):y=01200 U15,14;0;5;15,14;"";16,15;" " Uy=121,8;2;1;"[TE LO HA PARADO!":1,1 y=221,8;1;1;"[[[ LE DISTE !!!":.05|L,12 :.05|L,8:.05|L,4:.05|L,8:t=t+1:19,12 ;t "t=10 70F:4500 - 360h Fs14,13 ;0;5;"":.05|L,9 :40(:14,14;0;5;"-/" _x=(*3) bx=01375_ dKx=121,8;2;"TE LO HA PARADO ":1,1 ix=221,8;1;"[[LE HAS DADO!!":.05|L,10 :.05|L,12 :.05|L,14:t=t+1:19,12 ;t n"t=10 70F:4500 x20:360h #-%.8L,10 :"]TU nonbre?";a$ #2.8L,1:.8L,3:.8L,1:4,16-(a$/2);1;a$;6,15;"Vs";8,13 ;2;"LING-CHU";10 ,10 ;1;"Pulsa una tecla":0:: $df=040(:.001wn,15:.001wn,20:.005y# =,f:.001wn,40(:f aeOholaombat   ^iur tlyADEMORATON w I63915:63918243"RATON.BIN"63916,1302 7:7:9 : ()2;7;"SIMULADOR DE RATON", 2-5,4;"DEFINIR UN CURSOR NUEVO?" <(10 ,9 ;"SI";21 ;"NO" F]64@,80P:31,0:0,23:-31,0:0,-23 P^160,80P:31,0:0,23:-31,0:0,-23 Zrf=0:9700% d%rf=13 :rs=3:9700% n/rf=3:9700%:rb=0110n xrf=2:9700% Erx>63?rx<96`ry<104hry>79Or$="S":160 Grx>159rx<192ry<104hry>79Or$="N":160 x17,1;"PULSA EN UNO DE LOS RECUARDOS":i=1250:i:17,0,,:rf=1:9700% 5,0,,,,,,,,,,,,,, r$="N"240 Zrf=7:rx=3:ry=3:r(24):i=124:r(i):i:9700% 0,24,36$,66B,66B,36$,24,0,0,0,0,231,99c,129,24,24,129,99c,231,255,255,255,255 _10 ,4;"ESTE ES EL NUEVO CURSOR";13 ,1;"Boton (tecla 0)para finalizar" rf=1:9700% /rf=3:9700%:rb=0220 (10 ,0,,13 ,0,, rf=15:9700% ,10 ,5;"Fin de la demostracion"  %$rf<0rf>159930& %ud=65318&:d+23,14:raton=63918:rf=14(rf=0ƾ( d+24)=0)9900& &rf=0 & +(d+24)=0error=63916 &yrf=3rb=(d+5):rx=(d+6):ry=175-(d+7):rux=(d+3):ruy=175-(d+4): & 6rf=4d+24,rx:d+25,ry:9900& &*rf59930& &4rmin>rmax9930& &> d+8,rmin:d+9 ,rmax &H 9900& &Rrf69860& &\*rmin=175-rmin:rmax=175-rmax &frmin>rmax9930& &p+rmin>191rmax>1919930& &z.d+10 ,rmax:d+11 ,rmin:9900& &`rf=7d+24,rx:d+25,ry:z=124:d+25+z,r(z):Z:9900& &'RF=9 D+24,RC:9900& &RF=13 D+24,RS &D+23,RF &4RATON =63918:RF=14RR=(D+24) & &error=64012 pantalla ! 300000u &a=31000y31049Iy:b:a,b:a 243,33!,255,87W,62>,239,219,254,230,1,32 ,12 ,62>,255,221,33!,0,64@,17,0,27,195,194,4 175,219,254,22,31,162,170,32 ,247,126~,60<,119w,254,0,32 ,220,43+,126~,60<,119w,254,0,40(,248,24,207 (&a=31050Jy31063Wy:b:a,b:a 2557,62>,255,221,33!,0,64@,17,0,27,205,86V,5,201 < :"s/n";c$ F!c$(1)="s"d=31000y Pe=31000y Z 80P upant @3C%888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888ROTEX 3l3 _39999?:23658j\,8:0:6:0::""56100$:""64984 2wt$(1 ,1000):a$(7,1000):f$(1,1000):m$(7,12 ):c$="":menu =100d F.v=17:m$(v,1)=0:v P6color= 7:ve =1:col= 4:c=6 i n:9000(#:v=17:n$:6+v,7;n$ s5 :V; 0;1,8;"R";1,11 ;"O";1,14;"T";1,17;"E";1,20;"X" x.01z# =,502-V:V _568,557:5;128,0::568,535:1;128,0 A1;6;1;;5,7;" * M E N U * " 90;5;16,7;"ELIGA UNA OPCION " #ME=0:8110 :MEMENU 1000*C  8000@  MEMENU e4;0;0,0;"INTRUCUCE EL NOMBRE:";N$:N$>10 N$=N$(110 ) N$="M"MENU 5N$<10 V=110  -N$:N$=N$+".":V !5;6+C,11 ;N$ -M$(C,110 )=N$(110 ) $A#0;1;5;0,7;"{C}inta {T}eclado" )Z$=:Z$="M"MENU .Z$="C"10797 0Z$"T"1065) 3O:L=1:#0;0,6;3;0;"INTRODUCE EL TEXTO" 4Z$=:Z$=""10764 5l.005y# =,40(:N=1Z$13 :Z$=12 8;" ";8;:L=L-1:10764 6zZ$;:T$(1,L)=Z$:L=L+(L<967):10764:N:T$(1,L)=0:A$(C,31)=T$(1):1096H 7>5;0;21,5;"PON EN MARCHA LA CINTA" 8:L=9 :0,0;:N$F$():A$(C)=F$(1) BL<81096H GM$(C)=N$+".." L:MENU  8000@  MEMENU  N$=M$(C,110 ) T$(1)=A$(C) * N$T$() 4MENU 73;0;5,7;" * GRAFICOS * " uN=17:6+N,7;" ":N:3;0;16,7;"^ELIGE UN NUMERO" ֮4;8,7;"1...";6;"CIRCULOS....";4;10 ,7;"2...";6;"PUNTOS......";4;12 ,7;"3...";6;"RAYAS......." 4ME=0:8070:C>3ME=1MENU qN=0127:65368X+N,(64984+128*(C-1)+N):.003xD,N/4:254,N:N .05|L,0:MENU \5;1;5,7;" * COLOR * ";16,7;"^ELIGE UN NUMERO" =V=17:V;6+V,11 ;" ":V "8070:C>7C=7 :COL=C:MENU %.05|L,0:8000@:MENU z\5;1;5,7;" * VELOCIDAD * ";16,7;"^ELIGE UN NUMERO" N=17:6+N,11 ;"............";6+N,11 ;("RAPIDO......"N=1);("LENTO......."N=7) N 8110:MEMENU  VE=C:MENU b*ME=0:8000@:ME=1MENU l!1:COL:T$(1)=A$(C) 4DIRTEX=23627K\+256*23628L\+8 !561153,(DIRTEX/256) 756004,1:56005,(VE-1)*2 :56100$ +0:.01z# =,0:6:MENU J\4;0;5,7;" * TEXTOS * ";16,7;"^ELIGE UN NUMERO" TAN=17:M$(N,1)=0M$(N)="VACIO......." r6+N,11 ;M$(N):N  ME=0 50:Z$=:C=Z$-480:Z$="M"ME=1: !C<1C>78110  #("1-..CARGAR.TEXTO","2-..GRABAR.TEXTO","3-..SET.GRAFICOS","4-..SET.COLOR...","5-..SET.TEXTOS..","6-..VELOCIDAD...","7-..ROTULOS....." 'S"ROTEX"1:"ROTEX.C/M"56100$,330J:"GRA-3"64984,512 'L"ROTEX":"ROTEX.C/M"56100$,330J: "GRA-3"64984,512  ALVARO ALEA ] ALVARO ALEA  Y NOMBRE......VACIO.......VACIO.......VACIO.......VACIO.......VACIO.......VACIO.......CendnoloocTl N7-..ROTULOS.....Z1irte?l.ROTEX.C/M J$l L!@6A>!\l"!"*@~(W#K6\&o))) !~'0'0w#~'0'0wy#*#"Kx y@H!@ ~X&o)))~#z=W {_#! "*@)) ~X&o))) #!@H ' +$ K x *#"*[|8 {0!">/ۖGRA-3 l`` ff`````` ``ff`` ``   ff ff``ff ffffff``ff````````ff````ffff``ffffffffPP  VVPPPPPP  PPVVPP  PP      VV  VVPPVV  VVVVVV`` ff`````` ``ff`` ``   ff ff``ff ffffffBASICO } 63999:A=64000 F=120  'A;" : "; (B$ 2N=1̱B$2 64@))+B$(N+1)-480-7*(B$(N+1)>64@) FA,B PB$(NN+1); Z A=A+1 dN nF x 480 M=64161 M,128:M=M+1 F=191[: '(F+164);"-."; A$ L=A$ N=1L-1 M,A$(N) A$(N); M=M+1 N M,A$(L)+128 A$(L);  M=M+1 F "3E02CD01162A535C" ""ED5B4B5CE5AFED52" ,"E1D056235EE5CD5D" 6"FAE1234E23462378" @"B128E50B7EFE0E20" J"071606230B1520FB" T"7EFEA53803CD3BFA" ^"D718E3F53E20D7F1" h"D6A44711A1FA1A13" r"CB7F28FA10F81ACB" |"7F2004D71318F7D6" "80D73E20C9EB0E00" "11E803CD85FACD8F" "FA116400CD85FACD" "8FFA110A00CD85FA" "CD8FFA110100CD85" "FACD8FFAC906FF04" "AFED5230FA19C9AF" "B92007B820043E20" "D7C90C3E3080D7C9" d"AZAR","TECLA$","PI","FUN","PUNTO","PANTALLA$","ATRIBUTOS","EN","ESPACIOS","VAL$","CODIGO","VALOR" &"LARGO","SEN","COS","TAN","ASN","ACN","ATN","LN","EXP","ENTERO","RCUA","SGN","ABS","MIRA","ENTRADA","CODMAQ","CADENA$","CARACTER$","NO","BIN","O","Y","=<","=>","DISTINTO","LINEA","ENTONCES","HASTA","PASOS","DEF FUN","CAT","FORMAT","MUEVE","BORRA","ABRE#","CIERRA#","MEZCLA","VERIFICA","SUENA" "CIRCULO","TINTA","PAPEL","PARPADEO","BRILLO","INVERSO","SOBRE","SALIDA","ESCRIBE","LLISTA","PARA","LEE","DATOS","PUNTERO EN","NUEVO","BORDE","CONTINUA","MATRIZ","COMENTARIO","DESDE","VE A","VE A SUB","PREGUNTA","CARGA","LISTA","SEA","PAUSA","SIGUIENTE","PON EN" j"INPRIME","COORDENADA","FUNCIONA","GRABA","PON AZAR","SI","BORRA PANT","TRAZA","LIMPIA","VUELVE","COPIA" L()=64000 L=L()  &Fsalvar con save "noun" code 64000,f-64000(despues de haber echo run) a\[bBD7C90C3E3080D7C9mlACOPIA|64 col *^ *, cargador 64 columnas v=(23733 \< 255)  v+1 (%62641-31658{*(v=1) 2v=23670v\-1 <1000:bl=1 Fd,l:"ESPERE UN MINUTO" PA$="":CS=0 Z'F=18:B$:A$=A$+B$:F:S dN=1̱A$-12 nA=A$(N):B=A$(N+1):AA=A-480*(A>47/)-7*(A>64@):BB=B-480*(B>47/)-7*(B>64@):A=AA*16+BB:CS=CS+A x`B=A+86V*(V=1(N=37%N=87W))-124|*(V=1(N=47/N=97a)) 1D-31658{*(V=1)+(N-1)/2,B N CSS400 BL=2 :D,L A$="":CS=0 'F=18:B$:A$=A$+B$:F:S n=1̱a$ EA=A$(N):AA=A-480*(A>47/)-7*(A>64@):CS=CS+AA [D-31658{*(V=1)+N-1,AA:D-31658{*(V=1)+N-769,AA*16 N CSS400 500 '"ERROR EN BLOQUE ";BL;" REVISA DATAS" .5,0:100d BL*1000: ;"64 CHARS"62642-31658{*(V=1),1616P #"CINTA EN ~PLAY~ PAPRA VERIFICAR" ;"64 CHARS"62642-31658{*(V=1),1616P  :800  N=113 & XX,YY,P$ 0 9990' :N D  2,2,"TODO HA IDO CORRECTAMENTE",4,2,"Como su version es de",4,13 ,(480-32 *(v=1)),4,14,"K. El c~odigo se ha cargado" *6,2,"a partir de",6,8,(62642-31658{*(v=1)),8,2,"Para utilizarlo, copie en sus listados la linea 9990" 410 ,2,"Cargue las variables xx e yy con el punto de impresion",12 ,2,"y la variable p$ con el texto a inprimir" >14,2,"luego haga gosub 9990",16,2,"Este es el juego de caract|res: !#$%'()*+,-./0123456789:;",17,2,">?@ABCDEFGHIJKLMNOPQRSTUVWXYZ^_`abcdefghijklmnopqrstuvwxyz{|}~[\]"  bloque 1 62642,80P "3E02CD0116210A5B0603" "C57ED723C110F93E0232" "365C3EF432375C7EFEFF" "28227EF600281DD73E08" $"D7233E0232365C3EF732" ."375C7EFEFF28097EF600" 8"2804D72318CF3E003236" B"5C3E3C32375CC9000000" L 7039 M : N : O : P : Q : R : S : T : U :  BLOQUE 2 63490,768 d"00000000044440400AA00000004E4E404E8C62E400924900E0EAAAA0240000002488884284222248000A4A000004E400" d"000022400000E00000000020001248000EAAAAE0026A22200E22E8E00E22E2E00AAE22200E8E22E00C88EAE00E222220" d"0EAAEAE00EAAE220004004000200224001248421000E0E00084212480EA24040060CAAA00EAAEAA00CACAAC00EA88AE0" d"0CAAAAC00E8C88E00E8C88800E88AAE00AAAEAA00444444002222AE00ACCAAA0088888E00AEEAAA00EAAAAA004AAAA40"  d"0EAE888004AAAE610CAACA900EA842E00E4444400AAAAAE00AAAAA400AAAEEA00AA44AA00AAA44400E2448E00C8888C0" d"008421000622226004A04440000000F004A8C8E000E2EAF088EAAAE000E888E022EAAAE000EAE8E00064E44400EAAE2E"  d"88EAAAA0040444600202222E88ACCAA0C44444E000AEEAA000CAAAA000EAAAE000EAAE8802EAAE220068888000E842E0" *d"44E4446000AAAAF000AAAA4000AAEEA000AA44A000AAAE2E00E248E024E2EAF024EAE8E02404446024EAAAE024AAAAF0" 4 4340 '23306 [,22:23307 [,xx:23308 [,yy:w=p$:z=1w:23308 [+z,p$(z):z:23309 [+w,255:1:w=(62642-31658{*(v=1)):0: vdl saFbB`44E4446000AAAAF000AAAA4000AAEEA000AA44A000AAAE2E00E248E024E2EAF024EAE8E02404446024EAAAE024AAAAF0A00000000044440400AA00000004E4E404E8C62E400924900E0EAAAA0240000002488884284222248000A4A000004E400000022400000E00000000020001248000EAAAAE0026A22200E22E8E00E22E2E00AAE22200E8E22E00C88EAE00E2222200EAAEAE00EAAE220004004000200224001248421000E0E00084212480EA24040060CAAA00EAAEAA00CACAAC00EA88AE00CAAAAC00E8C88E00E8C88800E88AAE00AAAEAA00444444002222AE00ACCAAA0088888E00AEEAAA00EAAAAA004AAAA400EAE888004AAAE610CAACA900EA842E00E4444400AAAAAE00AAAAA400AAAEEA00AA44AA00AAA44400E2448E00C8888C0008421000622226004A04440000000F004A8C8E000E2EAF088EAAAE000E888E022EAAAE000EAE8E00064E44400EAAE2E88EAAAA0040444600202222E88ACCAA0C44444E000AEEAA000CAAAA000EAAAE000EAAE8802EAAE220068888000E842E044E4446000AAAAF000AAAA4000AAEEA000AA44A000AAAE2E00E248E024E2EAF024EAE8E02404446024EAAAE024AAAAF0V64 CHARS PR>! [~#>26\>27\~("~(>#>26\>27\~( ~(#>26\><27\@@@@@@@@@` @ @ࠠ @ @@ @ @@@@ @  @ࠠ ` ࠠࠠ @@ @ @@ @  @ @@`ࠠࠠࠀࠠ@@@@@@ ࠠࠠ@@@`ࠀ@ @@@@@@@@@@@ @@@ ` `@@@@@ ࠠ ࠠ`@@@@ࠠ ࠠ@@@@` @@@@@ࠠࠠࠠ ࠠ `@ @@@@@`@@@ @ @ @ @@@@` @ࠠ @                                                                    VARILETRA `޷ ( 08 [\!!RI[6\&o)))*\w:\(>x0&0&:\(~?w$[\!!R{ 8z8 z_z@WS\!!R"\*O\^#VS\`r+s*O\[\s#rɵDEMOVARILEzT(| 502  59990V "" (60145 223681\,1 <71,3 ;#3;"ESTO ES UNA DEMOSTRACION" F23681\,2 P83,2;#3;"DE LO QUE PUEDE HACER ESTE" Z23681\,3 d'5,10 ;#3;"PROGRAMA" n$' "USE POKE 23681,X Y EL CANAL #3" xA=13 1000 A .21,0'#3;"PULSE UNA TECLA" 0: 1500  '"CON ";A;" :" 23681\,A $B=33!128:#3;B; B  ***********************  LA RUTINA ANULA LA  INPRESORA. LA RUTINA SE ACTIVA CON RANDOMIZE USR 60145 Y SE DESACTIVA CON RANDOMIZE USR 60166 0UNA VEZ DESACTIVADA SE PUEDE USAR LA IMPRESORA "LFILTRA TODOS LOS CODI- GOS POR DEBAJO DE 32 Y POR ENCIMA DE 128 ESCEPTO 13 ,LA RUTINA DE IMPRESION ESTAPUESTA A PARTIR DE LA DIRECION 60000 E INPRIME ELCODIGO ASCII DEL ACUMULADORACTUALIZANDO LOS VALORES CONBENIENTES Y HACIENDO SCROLL SI ES NECESARIO Y SIN PREGUNTAR SI SIGUE 6*********************** xLMODCHANS >a9 @[S\SS\[K\SK\[Y\SY\KS\Bw +x PROGDEMO  0:7::40( 24999a:"" 50000P 50000P 50000P 50000P 50000P 40000@ (60000` 2 <45000ȯ F 0 P25000a Z d 21 n 0 x 40( "PROGDEMO"20:"R.car"50000P,48 0:"vol1"40000@,46.:"vol2"45000ȯ,69E:"cls"60000`,20:"cls^V"25000a,18:45000ȯ:"pant" <R.car 0P2![>7!?l*[[[>7!?l(vol1 .@0P>\= !XP>ͬ" ~#Ɉvol2 EȯGP>=  = !XP w#v >ͬ" w#cls `H!KL>= w+zX cls^V a!@>#&#>X gpant @38888888888888888888888888888888888888888888888888888888888888888Indy T.D. = [粧:"23624",:"23693",:"24999":L="23631"+"256"*"23632"+"5":K=L:L,"111" """:"""25000":L,K:"25000" '"Indy T.D."ʲ:"saver" FgEgW$ @~ h`:>>{w?>?>~ }_{v|_ x |@[>>>>>>{ a6 m۰>p>0```?>s{w~ {_{o>|> { a ml_ns`0ww{wpw8pw{{w~6@n4ݷwwwwww{6 <|6lö߾@0o0ynx|{l>w|a7h;vp6 `6l0<v>?p~ڃ|}vw ǁ? ~7 ;om`6`~o`l_~~ gn?o~؃o}}M wo ~0X`?<~}<o }w{>_y36~ |6l~7h~[|n:x0`z | }{퀁y_=| }<mn?}?}h:xo`~x0@~6 >@/:/^ ~ m_n<Xo_.`~n_p`lpw^@  @0@[m ~~o| ~0~>n> Pv`[ ^o@@?n _z?} .zn 0~0A x@/@^/|n?w^~~0> l[ <@/w:~@oT>?'pv~k@n: -oz`.<@ ~ ?.X.p?}~~ >6^ K|_6^ o`~wx^?~_~n6_~Fb~//ZzZ zs `7n8 wa7~m^ t|/o^ m{_ n^o01z[`|vP݀^vm 08}-n׿{ wA>`>?~xdzk[< y0x~ ^w{vݽ=Kcy~| ;`;jzKV.ÀNwz|V 0>>ﶷ~-wmwy߿<[?o>m~[ߺ ^;/+XT@~v?qo~>>>z^V@0xnw.[m~=o~_Vw߿^~1zzo_~m5`>; k_m{}^0?||v<^~߷{{{w^[;z рQ.^o<z[~7;0@/~~[01@m~#pv^߷?_ oz|n w(Q^o|z[`zw ٰ@>>xc)o.[m|w~~n0 GGOGGGGGGGB LDGDDGGGGGGGOGGGGGGGGGGGGGGGGGGGG ELIZA.BAS $$$ doctor B0 :0:0:7:0:0:0: 1040:INICIALIZA (8:6;1;"--------------------------------" 2'23658j\,200:">";:x$:x$' <X$=""40( F P+x$=z$"POR FAVOR,NO SE REPITA":40( ZZ$=X$:X$=" "+X$+" " d7X$(5)="ADIOS""ADIOS,ESPERO VERLE DE NUEVO": n* BUSQUEDA DE "MI " * xa=1̱x$-2 "x$(aa+2)="MI "150 a:160 5T$=x$ (a+3):3500 :K$=T$(̱T$-1) /**BUSQUEDA DE PALABRAS CLAVES DENTRO DE X$ ** A=1LONP T$=Q$(A):3500 X$3T=1"]QUE LE SUGUIERE A USTED?":40( HGT=2"NO ESTOY SEGURO DE COMPRENDER ESO POR COMPLETO":40( RKT=3"]NO SEA TAN ESCUETO,POR FAVOR,ACLARELO UN POCO MAS":40( \/T=4"ESO ES MUY INTERESANTE":40( f:T=5"BIEN,BIEN...POR FAVOR,CONTINUE...":40( p"T=6"]POR QUE?":40( z%T=7"]Y ENTONCES?":40( BT=8"YA VEO...POR FAVOR,SIGA HABLANDO DE ELLO.":40( UTILIZACION DE MIFLAG T=(*3)+1 (T=1"HABLEMOS MAS SOBRE SU ";K$ =T=2"ANTES ME HABLO DE SU ";K$;".CUENTEME ALGO MAS." (T=3"TIENE QUE VER ALGO SU ";K$ 5T=4"] EXISTEALGUNA COMEXION CON SU ";K$;"?" HT=5"]POR QUE NO RETROCEDEMOS UN POCO Y HABLAMOS DE SU ";K$;"?" LT=6"]LE SUGUIERE QUE EXISTA ALGUNACONEXION ENTRE ESO Y SU ";K$;"?" 2T=7"]PREFERIRIA HABLAR SOBRE SU ";K$;"?" FT=8"CREO QUE EL PREOCUPARSE POR SU ";K$;" NO CONDUCE A NADA" >.73333K$=""  40( *********************** *** INICIALIZACION ****  $ `F''" EL DOCTOR ESTA EN CONSULTA... POR FAVOR ESPERE " jk$="":z$="" tlonc=13 :lonp=491 ~Ic$(lonc,2,10 ):q$(lonp,18):p$(lonp,3,80P) 1360P:a=1lonc c$(a,1),c$(a,2) a 1400x:a=1lonp 1q$(a),p$(a,1),p$(a,2),p$(a,3) a   "BIENVENIDO A OTRA SESION" "CON EL DOCTOR..."  '"HOLA..." ( 2 *********** < ** DATOS ** F** CONGUGACIONES ** P;"SOY","ES","ERA","ERA","YO","USTED","MI","SU","MIS","SUS" Z9"USTED TIENE","YO TENGO","SU","MI","ES","SOY","ME","LE" dL"USTED ESTA","YO ESTOY","SUYO","MIO","USTED","MI","MI","USTED","***","***" n$PALABRAS CLAVE/FRASES DE RESPUESTA x" NECESITO " "POR QUE NECESITA*" +"NO SERIA REALMENTE PROVECHOSO SI USTED*"  "ESTA SEGURO DE QUE NECESITA*" " POR QUE NO " "PIENSA REALMENTE QUE YO NO*" "QUIZA FINALMENTE YO*" "REALMENTE QUIERE QUE YO*" " POR QUE NO PUEDO " ""CREE QUE USTED SERIA CAPAZ DE*" "POR QUE NO PUEDE*" )"QUIZA NO LO HAYA INTENTADO SUFICIENTE" " ES USTED " 4"POR QUE ESTA INTERESADO EN SAVER SI YO SOY O NO*" "LO PREFERIRIA SI NO FUERA*" &"QUIZA ALGUNAS VECES SUENE QUE SOY*" " NO PUEDO " ""COMO SABE QUE NO PUEDE*" ,"]LO HA INTENTADO?" 6"QUIZA,AHORA,USTED PUEDA" @" YO ESTOY " J"ACUDIO A MI PORQUE ESTA*" T"CUANTO TIEMPO HA ESTADO*" ^"CREE QUE ES NORMAL ESTAR*" h " SOY " r"DISFRUTA SIENDO*" |"POR QUE ME DICE QUE ES*" "POR QUE ES USTED*"  " QUIERO " #"QUE SIGNIFICARIA PARA USTED SI*" "POR QUE QUIERE*" 5"QUE SIGNIFICARIA EN SU VIDA SI USTED CONSIGUIERA*"  "]QUE " "]POR QUE PREGUNTA ESO?" #"]QUE RESPONDERIA PARA AYUDARSE?" "]QUE PIENSA USTED?"  "]COMO " "]COMO AREGLARIA ESO?" 5"LO MEJOR SERIA QUE RESPONDIESE HA ESO USTED MISMO" ."]QUE ES LO QUE REALMENTE ESTA PREGUNTANDO?"  "]QUIEN " %"]SE HACE A MENUDO ESAS PREGUNTAS?" ("]QUE RESPUESTA LE DEJARIA TRANQUILO?" &"QUIEN CREE USTED QUE*" 0 "]DONDE " :("ESA ES UNA PREGUNTA BASTANTE INGENUA" D$"]NECESITA REALMENTE SABER DONDE?" N3"QUE SUPONDRIA PARA USTED SI YO LE DIJERA DONDE*" X "]CUANDO " b"COMO PODRIA SAVER CUNADO*" l1"NO ESTAMOS AQUI PARA DISCUTIR SOBRE EL TIEMPO" v?"LAS COSAS SUELEN OCURIR CASI SIEMPRE EN EL MOMENTO OPORTUNO"  "]POR QUE " 5"POR QUE NO ME DICE LA VERDADERA RAZON POR LA QUE*" ="QUE ES LO QUE HA DICHO QUE ME AYUDARIA A DECIRLE POR QUE*" %"NECESITA REALMENTE SABER POR QUE*"  " PORQUE " "]ES ESA LA VERDADERA RAZON?"  "]QUE OTRAS RAZONES RECUERDA?"  "]QUE MAS PUEDE EXPLICAR ESO?" " LO SIENTO " ,"]EN QUE OTRAS CIRCUSTANCIAS SE DISCULPA?" ?"HAY MUCHAS OCASIONES EN LAS QUE NO ES NECESARIO DISCULPARSE" ;"]QUE SENSACION EXPERIMENTA CUANDO TIENE QUE DISCULPARSE"  " HOLA " "HOLA... ME ALEGRO DE VERLE"  6"HOLA ME ALEGRO DE QUE SE HAYA DEJADO CAER POR AQUI" ?"]COMO ESTA USTED?...TENIA GANAS DE QUE CHARLASEMOS DE NUEVO"  "[OIGA!" *#"ME ALEGRO DE VERLE HOY POR AQUI" 4M"ME ALEGRO DE QUE HAYA VENIDE TENEMOS UN MONTON DE COSAS DE LAS QUE HABLAR" >C"ATIENDAME AHORA.RELAGESE...Y HABLEMOS UN POCOSOBRE SU SITUACION" H" PUEDE SER " R"PARECE VACILAR UN POCO" \"PARECE BASTANTE INDECISO" f4"]EN QUE OTRAS CIRCUSTANCIAS SE MUESTRA INDECISO?" p" NO " z."]POR QUE SE MUESTRA TAN NEGATIVO SOBRE ESO" 2"ESTA USTED DICIENDE QUE ESO NO ES SER NEGATIVO" 5"ES USTED BASTANTE INPULSIVO.]QUE LE SUGUIERE ESO?"  " SIEMPRE " &"POR FAVOR,DEME UN EJEMPLO CONCRETO" 5"NO LE PARECE QUE ""SIEMPRE"" ES UN POCO EXAGERADO"  "]CUANDO?"  " CREO "  "DUDA*" "]PIENSA REALMENTE ESO?" "PERO NO ESTA SEGURO*"  " AMIGO " ."]POR QUE TOCA AHORA EL TEMA DE LOS AMIGOS?" *"]CUAL ES EL MEJOR RECUERDO DE UN AMIGO" #"HABLEME MAS DE SUS AMISTADES..."  " AMIGOS " 9"]EN QUE MODO LE AFECTAN LAS US AMIGOS?" $D"]QUE LE HIZO COMENZAR A HABLAR DE LOS AMIGOS,PRECISAMENTE AHORA?" .0"]DE QUE MODO LE AYUDAN O ENGA\AN SUS AMIGOS?" 8" SI " B&"]QUE TIPO DE MENTIRAS LE MOLESTAN?" L"ES USTED BASTANTE POSITIVO" V"PARECE MUY SEGURO DE QUE*" `" ORDENADOR " jG"]QUE ES LO QUE SE SIENTE SENTADO HAY HABLADOME COMO HA UNA PERSONA?" t&"]LO PIENSA SOBRE MI EN PARTICULAR?" ~6"]QUE ASPECTOS DE LOS ORDENADORES LE INTERESAN MAS?" " ESTAR " "PIENSA QUE ESTAR*" !"EN QUE CIRCUSTANCIAS ESTARIA*" "BIEN PODRIA ESTAR*" " ES " 9"QUE GADO DE CERTEZA DEPOSITARIA USTED EN ELLO SIENDO*" "ESTA USTED SEGURO DE QUE ES*" H"QUE SENSACIONES EXPERIMENTARIA SI LE DIGERA QUE,PROBABLEMENTE NO ES*" " PUEDE " !"QUE LE HACE PENSAR QUE PUEDO*" "MO PIENSA QUE PUEDO*" )"QUIZA LE GUSTARIA QUE FUERA CAPAZ DE*" " PUEDO " "TAL VEZ NO QUIERA*" "LE GUSTARIA SER CAPAZ DE*"  "LO DUDO" ( " SOY " 2"POR QUE PIENSA QUE ES*" <"LE COMPLACE CREER QUE SE*" F"TAL VEZ LE GUSTARIA SER*" P " ESTA " Z"POR QUE PIENSA QUE ESTOY*" d "LE COMPLACE CREER QUE ESTOY*" n"POR QUE DICE QUE ESTOY*" x " YO NO " "REALMENTE NO*" "POR QUE NO*" "LE GUSTARIA SER CAPAZ DE*" " ME SIENTO " '"HABLEME MAS SOBRE ESOS SEMTIMIENTOS" "SIENTE A MENUDO QUE*" "DISFRUTA SINTIENDOSE*" " SIENTO " 6"VAMOS HA EXAMINAR ESA AFIRMACION MAS DETENIDAMENTE" '"]SE SIENTE NORMALMENTE DE ESE MODO?" 3"]QUE EMOCIONES LE DESPIERTAN ESOS SENTIMIENTOS?" " TENGO " "POR QUE ME DICE QUE TIENE*" !"PARA MI ESTA CLARO QUE TIENE*" "COMO PODRIA AYUDARLE CON*"  " PODRIA " "$"PODRIA EXPLICARME POR QUE SERIA*" ,-"A QUIEN MAS LE HA DICHO QUE USTED PODRIA*" 6&"QUE SEGURIDAD TIENE DE QUE PODRIA*" @ " HAY " J"POR SUPUESTO QUE HAY*" T"ES COMO SI HUBIERA*" ^"LE GUSTARIA QUE HUBIERA*" h" MI " r"SU*" |"YA VEO,SU*" $"QUE SIGNIFICA PARA USTED QUE SU*" " USTED " 3"ESTA SESION ES PARA AYUDARLE...NO PARA DISCUTIR" )"]QUE LE INPULSO A DECIR ESO SOBRE MI?" A"RECUERDE QUE ANOTO TODO CUANTO DICE,PARA LUEGO PODER AYUDARLE" " YO" "REALMENTE*" "POR QUE*" "CREE DE VERDAD QUE*" " COMO " "COMO CREE USTED QUE ES" "EN VERDAD CREE QUE*" ""  " DONDE " "ESTA SEGURO" "Y SI NO LE CREYERA" &)"ESO ES ALGO QUE NO LE PUEDO RESPONDER" 0 " CUANDO " :#"SIEMPRE HAY UNA EPOCA PARA TODO" D!"AHORA,NUNCA,SOLO DIOS LO SABE" N&"ES ALGO A LO QUE NO SE RESPONDERLE" X " QUE " b"EN VERDAD CREE QUE ESO EN*" l"ESTA SEGURO DE QUE*" v""ESO ES ALGO QUE ME CUESTA CREE" " DIOS " "CREE EN DIOS" "QUE LE HACE CREEN QUE DIOS*" "HAY MAS DIOSES PARA USTED" " OSCENO " &"A QUE SE REFIERE CON QUE ES OSCENO" -"HAY MUCHO TABU SOBRE ESO,QUE PIENSA USTED" "PIENSA HA MENUDO EN EL SEXO" " JUEGO " $"QUE CLASE DE JUEGOS LE GUSTA MAS" "HABLEME MAS SOBRE ESE JUEGO*" 6"CREE QUE EL JUEGO ES UN VICIO Y COMO TAL CREA MONO" "*","*","*","*" Z=T$1-1 T$(Z)=" "Z T$=T$(Z+1)   Z=X$̱T$  X$=X$+" " $Z . ':"ELIZA.BAS"0 EDITEXTBCM""$ 32255} 1000:bl=1 d,l #0,0;BL (d=0500 2a$="" 7f=18 <b$ A a$=a$+b$ Ff Ks P#200+100d*(l=768) Z cs=0 dn=dd+l-1 n cs=cs+n s2,0;N xn css400 bl=bl+1 30 n=1̱a$-12 Ґa=a$(n):b=a$(n+1):aa=a-480*(a>47/)-7*(a>64@):bb=B-480*(b>47/)-7*(b>64@):a=aa*16+bb 21,0;D+(N-1)/2;",";A;" " d+(n-1)/2,a n  ,n=1̱a$ 6;a=a$(n):aa=a-480*(a>47/)-7*(a>64@) @+d+n-1,aa:d+n-769,aa*16 E)1,0;D+N-1;",";AA;" " Jn T +"error en bloque ";bl;" revisa los datos" .5,0:100d bl*1000  "cm"32256~,1986 "cmp"65218,292$ ""cinta en 'PLAY' para verificar" "cm"32256~,1986 "cmp"65218,292$ &.:"corecto"'"haga 'new' y teclee el basic":  BLOQUE 1 32256~,277 J"210F5B7E2322005B6F3CC82600292929ED4B365C093E0832045B3A0B5B32095B3A0A5B" J"32085B3E0932055B7E2322025B0732065B3A055B3D20323A045B3D20183A0E5B473A0C" J"5B4F3A0A5B810520FC320A5B2A005BC3037E32045B3A0D5B473A095B8032095B2A025B" J"C3207E32055B3A0C5B473A095B32075B3A0D5B4FC5CDA47EC13A075B3C32075B0D20F1" J"3A085B3C32085B0520DD3A065BC3307E80402010080402013A8E5CEEFF473A8D5CA047" $J"3A085BE6F86F3A075BFEC0D01F1F1FE61F67CB1CCB1DCB1CCB1DCB1CCB1D3E58B4673A" .J"8E5CA6B0773A075B47E607F64067781F1F1FE618B467781717E6E06F3A085B471F1F1F" 8D"E61FB56FEB219C7E78E6074F060009461A21065BCB462803B012C92FB02F12C9" B 21932U  BLOQUE 2 32589M,117u ""3E0DD72318083E02CD011621C2853E" ""C232365C3E7E32375C7EFEFF283C7E" ""FE0D28DE7EF600282AD73E08D7233E" ""8132375C7EFEFF28237EFE0D28C57E" ""F6002815D723E521428BC1373FED42"  ""280CC5E118BD3E2018D23E2018E7C9" ""1142F921C285018005EDB0C92142F9"  "11C285018005EDB0CD537FC9" * 12577!1 BLOQUE 3 33474‚,768 d"00000000044440400AA00000004E4E404E8C62E400924900609DB990240000002488884284222248000A4A000004E400" d"000022400000E00000000020001248000EAAAAE0026A22200E22E8E00E22E2E00AAE22200E8E22E00C88EAE00E222220" d"0EAAEAE00EAAE220004004000200224001248421000E0E00084212480EA24040060CAAA00EAAEAA00CACAAC00EA88AE0" d"0CAAAAC00E8C88E00E8C88800E88AAE00AAEEAA00444444002222AE00ACCAAA0088888E00AEEAAA009DB999004AAAA40" d"0EAE888004AAAE610CAACA900EA842E00E4444400AAAAAE00AAAAA400AAAEEA00AA44AA00AAA44400E2448E002222A40" d"008444400044448004A04440000000F004A8C8E000E2EAF088EAAAE000E888E022EAAAE000EAE8E00064E44400EAAE2E" d"88EAAAA0040444600202222E88ACCAA0C44444E000AEEAA000CAAAA000EAAAE000EAAE8802EAAE220068888000E842E0" d"44E4446000AAAAF000AAAA4000AAAEA000AA44A000AAAE2E00E248E024E2EAF024EAE8E02404446024EAAAE024AAAAF0" (4304:EL VALOR VERDADERO ES:4300  BLOQUE 4 65218,291# N"2125FF110A5B010E00EDB0CD007E2133FF110A5B011900EDB0CD007E214CFF110A5B012400" N"EDB0CD007E2170FF110A5B012300EDB0CD007E2193FF110A5B011700EDB0CD007E21AAFF11" N"0A5B011700EDB0CD007E21C1FF110A5B012400EDB0CD007EC940080203084F5043494F4E45" N"53FF1030010208312D455343524942495220554E20544558544FFF1040010208322D414C4D" N"4143454E4152204C4120504147494E4120454E20435552534FFF1050010208332D494D5052" N"494D4952204C4120504147494E4120454E20435552534FFF1060010208342D53414C564152" N"20454E2043494E5441FF1070010208352D4341524741522044452043494E5441FF10800102" D"08362D4C454552204C415320504147494E415320414C4D4143454E41444153FF"  21902U 0,0 h7 PROGRAMA TARDA EN EJECUTARSE DOS MINUTOS !PACIENCIA! 5cm ~6![~#"[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(//> #>!…>26\>~27\~(<~ (~(*>#>27\~(#~ (~(#!B7?B( > > B!…!B…S@@@@@@@@@` @ @`а @ @@ @ @@@@ @  @ࠠ ` ࠠࠠ @@ @ @@ @  @ @@`ࠠࠠࠀࠠ@@@@@@ ࠠа@@@`ࠀ@ @@@@@@@@@@@ @@ @@@@@@@@@@@@@@ ࠠ ࠠ`@@@@ࠠ ࠠ@@@@` @@@@@ࠠࠠࠠ ࠠ `@ @@@@@`@@@ @ @ @ @@@@` @ࠠ @                                                                  cmp $&!% [~!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 ALMACENADASDeditexbas + 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 Um=mj1:a=(m-1):cr=cr-2:" ";8;8;:100d:1300 X8m=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=60<pa=cr:1300 >0a=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 (A=1800  2A=12 600X <A=13 1400x FFA=14C=1:#1;28,0;"EXT.":1300 ZM,A:M=M+1:200 _ZA=CR.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-ALMAZENAR LA PAGINA EN CURSO":YY=64@:9300T$ "NUMERO DE PAGINA? (1-21)";NP 623680\,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? (MAX. 21)";NP $NP<1NP>214010 1"CUANTAS PAGINAS? (MAX. ";(22-NP);")";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$ 8r$=r$+" ":r$(1)"S"r$(1)"s"8000@ >"texto"34242…+np*1408,npp*1408:8000@ 3:p$="5-CARGAR DE CINTA":y=112p:9300T$ M18,0;"EL TEXTO EN CINTA SE CARGARA APARTIR DE LA PAGINA 1" H#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:23692\,a(np):23693\,b(np):1:32691:0:236066\,0:236077\,60< Z#1;0,0;"PAGINA ";np;1,0;"S:seguir P:inprimir O:opciones" 0:rp= &rp=79Orp=111o8000@ (rp=80Prp=112p:6050 &rp83Srp115s6050 (np=np+1:np>218000@  6030 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=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) Za(x=(34x)=(34242…+x*1408)-256*( (34342&+x*1408)/256) 4b(x=((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 #<"cm"32256~,3394B #A"cmp"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$="s-15":yy=144:9200# #1250:5:1:7:0: #1:32595S #+236066\,0:236077\,60< #0:0: #'xx=(256-8*sx*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:n+i,p$(n):n:i+w+1,255:w=32256~: &"EDITEXT"9000(# &"cm"32256~,3394B &"cmp"65218,292$ & "EDITEXT" &"cm"32256~,3394B &"cmp"65218,292$ EDITEXT (#~ 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-1:a=(m-1):cr=cr-2:" ";8;8;:100d:1300 X8m=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=60<pa=cr:1300 >0a=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 _ZA=CR.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? (MAX. 21)";NP $NP<1NP>214010 1"CUANTAS PAGINAS? (MAX. ";(22-NP);")";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$ 9r$=r$+" ":r$(1)"S"r$(1)"s"8000@ >"texto"34242…+np*1408,npp*1408:8000@ 4:p$="5-CARGAR DE CINTA":yy=112p:9300T$ "NOMBRE:";n$ M18,0;"EL TEXTO EN CINTA SE CARGARA APARTIR DE LA PAGINA 1" H#1;0,0;"Cinta en ""PLAY"",pulse una tecla":0 ?#1;0,0;" " n$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< Z#1;0,0;"PAGINA ";np;1,0;"S:seguir P:inprimir O:opciones" 0:rp= &rp=79Orp=111o8000@ (rp=80Prp=112p:6050 &rp83Srp115s6050 (np=np+1:np>218000@  6030 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=57200  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:1100L )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:1100L  7400 @:65218 J%xx=16:xs=1:ys=2 T t(4) Za(x)=(34242…+x*1408)-256*( (34342&+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 #<"cm"32256~,3394B #A"cmp"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$="s-15":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:n+i,p$(n):n:i+w+1,255:w=32256~: &"EDITEXT"9000(# &"cm"32256~,3394B &"cmp"65218,292$ & "EDITEXT" &"cm"32256~,3394B &"cmp"65218,292$ dcm B ~+D ![~#"[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(//> #>!…>26\>~27\~(<~ (~(*>#>27\~(#~ (~(#!B7?B( > > B!…!B…S@@@@@@@@@` @ @`а @ @@ @ @@@@ @  @ࠠ ` ࠠࠠ @@ @ @@ @  @ @@`ࠠࠠࠀࠠ@@@@@@ ࠠа@@@`ࠀ@ @@@@@@@@@@@ @@ @@@@@@@@@@@@@@ ࠠ ࠠ`@@@@ࠠ ࠠ@@@@` @@@@@ࠠࠠࠠ ࠠ `@ @@@@@`@@@ @ @ @ @@@@` @ࠠ @                                                                   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. * MAYUSCULAS + 2 = BLOQ MAYS * 1 = FIJAR TABULADORES * MAYUSCULAS + 0 = BORRAR * 9 = BORRAR TABULADORES * INTRO = NUEVA LINEA * T = TABULADOR * SIMBOL SHIFT + 2 = @ * P = FIJA PARRAFO ADENTRADO * SIMBOL SHIFT + 6 = & * B = BORRA PARRAFO ADENTRADO * EXTRA = MODO EXT. * INTRO = FIN DE PAGINA * * VOCAL = VOCAL ACENTUADA * * * PULSE QUALQUIER TECLA PARA EMPEZAR * *cmp $S&!% [~!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 ALMACENADASDCARLEN XNXZ A(2) A(1)=101e A(2)=64@ (#A$(A(1),2,A(2)) 2B=1A(1) <A$(B,1),A$(B,2) FB PN$="LENGUA " ZN$(9 )+"1"A() dN$(9 )+"2"A$() n :"CARLEN" >"QUE ESTILO HAY EN EL 17 APARTE DE CULTERANISMO","CONCEPTIS" >"QUE ESTILO HAY EN EL 17 APARTE DE CONCEPTISMO","CULTERANIS" *"EN QUE SE FIJA EL CULTERANISMO","FORMA" -"EN QUE SE FIJA EL CONCEPTISMO","CONTENIDO" /"QUE ESTILO SE FIJA EN LA FORMA","CULTERANIS" 2"QUE ESTILO SE FIJA EN EL CONTENIDO","CONCEPTIS" ,"EN QUE ESCRIBEN LOS COMCEPTISTAS","PROSA" +"QUE ESTILO ESCRIBE EN PROSA","CONCEPTIS" +"EN QUE ESCRIBEN LOS CULTERANOS","POESIA" -"QUE ESTILO ESCRIBE EN POESIA","CULTERANIS" )"QUE ESTILO TENIA GONGORA","CULTERANIS" 2"MAXIMO REPRESENTANTE DE CULTERANISMO","GONGORA" *"QUE ESTILO TENIA QUEVEDO","CONCEPTISMO" 1"MAXIMO REPRESENTANTE DE CONCEPTISMO","QUEVEDO" -"QUE FUNDO LOPE DE VEGA","COMEDIA ESPANOLA" *"QUIEN FUNDO LA COMEDIA ESPANOLA","LOPE" !"DONDE NACIO GONGORA","CORDOBA" $"QUIEN NACIO EN CORDOBA","GONGORA" #"QUIEN ESTUDIO DERECHO","GONGORA" !"QUE ESTUDIO GONGORA","DERECHO" %"DONDE ESTUDIO GONGORA","SALAMANCA" ("QUIEN ESTUDIO EN SALAMANCA","GONGORA" !"QUIEN FUE SACERDOTE","GONGORA" 3"A QUE SE METIO GONGORA SIN VOCACION","SACERDOTE" )"QUIEN TENIA CARACTER ASPERO","GONGORA" 7"DE QUIEN SUS OBRAS SE DIBIDEN EN 2 EPOCAS","GONGORA" >"EN CUANTAS EPOCAS SE DIBIDE LA OBRA DE GONGORA(NUMERO)","2" ?"A QUIEN SE CONOCE POR ~PRINCIPE DE LAS TINIEBLAS~","GONGORA" 8"A QUIEN SE CONOCE POR ~PRINCIPE DE LA LUZ~","GONGORA" 9"QUE EPOCA SE LLAMA PRIN. DE LUZ HA GONGO.(NUMERO)","1" <"QUE EPOCA SE LLAMA PRIN. DE TINIE. HA GONGO.(NUMERO)","2" 4"DE QUE ERA PRINCIPE GONGORA EN SU 1' EPOCA","LUZ" 9"DE QUE ERA PRINCIPE GONGORA EN SU 2' EPOCA","TINIEBLA"  1"QUIEN BASA SU INSPIRACION EN BURLAS","GONGORA"  *"QUIEN ESCRIBIO LAS SOLEDADES","GONGORA"  ,"LAS SOLEDADES ES POESIA O PROSA","POESIA"  <"QUIEN ESCRIBIO LA FABULA DE POLIFEMO Y GALATEA","GONGORA"  >"LA FABULA DE POLIFEMO Y GALATEA ES POESIA O PROSA","POESIA" 5"DE QUIEN ES LA FABULA DE PIRAMO Y TISBE","GONGORA" :"LA FABULA DE PIRAMO Y TISBE ES POESIA O PROSA","POESIA" M"QUE TIENE DE ESPECIAL LA FABULA DE POLIFEMO Y GALATEA","ASPECTO CULTERANO" F"QUE OBRA ES LA DE MAS CLARO ASPECTO CULTERANO","FABULA DE POLIFEMO" )"QUIEN ESTUDIO EN VALLADOLID","QUEVEDO" %"QUIEN ESTUDIO EN ALCALA","QUEVEDO" 7"DONDE ESTUDIO QUEVEDO APARTE DE ALCALA","VALLADOLID" 7"DONDE ESTUDIO QUEVEDO APARTE DE VALLADOLID","ALCALA" *"QUIEN FUE HA SERBIR A ITALIA","QUEVEDO" /"QUIEN FUE HA SERBIR A UN POLITICO","QUEVEDO" ("DONDE FUE HA SERVIR QUEVEDO","ITALIA" ,"A QUIEN FUE HA SERVIR QUEVEDO","POLITICO" #"QUIEN FUE A LA CARCEL","QUEVEDO" 5"QUE ES EL PARNASO ESPANOL POESIA O PROSA","POESIA" /"QUIEN ESCRIBIO EL PARNASO ESPANOL","QUEVEDO" '"QUIEN ESCRIBIO LOS SUENOS","QUEVEDO" 3"QUIEN ESCRIBIO EL MUNDO POR DE DENTRO","QUEVEDO" -"QUIEN ESCRIBIO LA HORA DE TODOS","QUEVEDO"  /"CUAL ES LA UNICA NOVELA DE QUEVEDO","BUSCON" !-"QUE OBRA DE QUEVEDO ES PICARESCA","BUSCON" "&" QUIEN ESCRIBIO EL BUSCO","QUEVEDO" ##"EL BUSCON ES POESIA SI O NO","N" $3"OBRA ASCETICA DE QUEVEDO ","CUNA Y LA SEPULTURA" %8"DE QUIEN ES LA OBRA LA CUNA Y LA SEPULTURA","QUEVEDO" &*"OBRA POLITICA DE QUEVEDO","MARCO BRUTO" '1"DE QUIEN ERA LA OBRA EL MARCO BRUTO","QUEVEDO" (+"DONDE NACIO BALTASAR GRACIAN","ZARAGOZA" ),"QUIEN TUBO PRIBILEGIOS DEL REY","QUEVEDO" *$"QUIEN SE CASO DE MAYOR","QUEVEDO" +5"QUIEN SE INSTALO EN MADzRID CON 50 ANOS","GONGORA" ,C"QUIEN REGRESA HA CORDOBA PRESEGIDO POR LOS ACREEDORES","GONGORA" -+"QUIEN ERA AFICIONADO AL JUEGO","GONGORA" .0"QUIEN SE SEPARA PRONTO DE SU MUJER","QUEVEDO" /A"QUIEN TUBO RECHAZADA PARTE DE SU OBRA VARIOS SIGLOS","GONGORA" 05"QUIEN TIENE UN PAR DE PEQUENAS COMEDIAS","GONGORA" 1&"QUIEN NACIO EN ZARAGOZA","BALTASAR" 2'"QUIEN FUE FRAILE JESUITA","BALTASAR" 3%"QUE FUE BALTASAR GRACIAN","FRAILE" 4*"QUIEN FIRMABA CON SEUDONIMO","BALTASAR" 50"CON QUE FIRMABA BALTASAR GRACIAN","SEUDONIMO" 6C"QUIEN PROHIBIA A BALTASAR ESCRIBIR LIBROS NO RELIGIOSOS","ORDEN" 7<"QUIEN ES PRINCIPALMENTE UN ESCRITOR DIDACTICO","BALTASAR" 8&"QUIEN ESCRIBIO EL HEROE","BALTASAR" 90"HA QUIEN IVA DIRIJIDO EL HEROE","GOBERNANTES" :)"QUIEN ESCRIBIO EL DISCRETO","BALTASAR" ;*"PARA QUIEN ERA EL DISCRETOS","DISCRETO" <6"QUIEN ESCRIBIO EL POLITICO DON FERNANDO","BALTASAR" =6"PARA QUIEN ERA EL POLITICO DON FERNANDO","POLITICO" >@"QUIEN ESCRIBIO ORACULO MANUAL Y ARTE DE PRUDENCIA","BALTASAR" ?D"PARA QUIEN ERA EL ORACULO MANUAL Y ARTE DE PRUDENCIA","INGENIOSO" @7"QUIEN ESCRIBIO AGUDEZA Y ARTE DE INGENIO","BALTASAR" A)"QUIEN ESCRIBIO EL CRITICON","BALTASAR" B-"QUIEN ESCRIBIO EL COMULGATORIO","BALTASAR" C:"UNICA OBRA RELIGIOSA DE BALTASAR GRACIA","COMULGATORIO" DA"NOVELA DE BALTASAR GRACIAN DIBIDIDA EN TRES TROZOS","CRITICON" E;"OBRA DE BALTASAR GRACIAN DIRIGIDA A GOBERNANTES","HEROE" F;"OBRA DE BALTASAR GRACIA DIRIJIDA A DISCRETOS","DISCRETO" GJ"OBRA DE BALTASAR GRACIAN DIRIJIDA HA POLITICOS","POLITICO DON FERNANDO" HW"OBRA DE BALTASAR GRACIAN DIRIGIDA A INGENIOSOS","ORACULO MANUAL Y ARTE DE PRUDENCIA" II"QUE ENSENA EL CRITICON DE BALTASAR EN SU 1'PARTE","PASO POR LA TIERRA" J?"QUE ENSENA EL CRITICON DE BALTASAR EN SU 2'PARTE","VIRTUDES" KD"QUE ENSENA EL CRITICON DE BALTASAR EN SU 3'PARTE","DESTINO FINAL" L5"QUIEN QUISO CANBIAR DE ORDEN RELIGIOSA","BALTASAR" demoraton E I63915:63918243"RATON.BIN"63916,1302 7:7:9 : ()2;7;"SIMULADOR DE RATON", 2-5,4;"DEFINIR UN CURSOR NUEVO?" <(10 ,9 ;"SI";21 ;"NO" F]64@,80P:31,0:0,23:-31,0:0,-23 P^160,80P:31,0:0,23:-31,0:0,-23 Zrf=0:9700% d%rf=13 :rs=3:9700% n/rf=3:9700%:rb=0110n xrf=2:9700% Erx>63?rx<96`ry<104hry>79Or$="S":160 Grx>159rx<192ry<104hry>79Or$="N":160 17,1;"PULSA EN UNO DE LOS RECUARDOS":i=1250:i:17,0,,:rf=1:9700%:110n 5,0,,,,,,,,,,,,,, r$="N"240 Zrf=7:rx=3:ry=3:r(24):i=124:r(i):i:9700% 0,24,36$,66B,66B,36$,24,0,0,0,0,0,231,99c,129,24,24,129,99c,231,255,255,255,255 _10 ,4;"ESTE ES EL NUEVO CURSOR";13 ,1;"Boton (tecla 0)para finalizar" rf=1:9700% /rf=3:9700%:rb=0220 (10 ,0,,13 ,0,, rf=15:9700% ,10 ,5;"Fin de la demostracion"  %$rf<0rf>159930& %ud=65318&:d+23,14:raton=63918:rf=14(rf=0ƾ( d+24)=0)9900& &rf=0 & +(d+24)=0error=63916 &yrf=3rb=(d+5):rx=(d+6):ry=175-(d+7):rux=(d+3):ruy=175-(d+4): & 6rf=4d+24,rx:d+25,ry:9900& &*rf59810R& &4rmin>rmax9930& &> d+8,rmin:d+9 ,rmax &H 9900& &Rrf69860& &\*rmin=175-rmin:rmax=175-rmax &frmin>rmax9930& &p+rmin>191rmax>1919930& &z.d+10 ,rmax:d+11 ,rmin:9900& &`rf=7d+24,rx:d+25,ry:z=124:d+25+z,r(z):Z:9900& &'RF=9 D+24,RC:9900& &RF=13 D+24,RS &D+23,RF &4RATON =63918:RF=14RR=(D+24) & &error=64012 RATON.BIN @N!&n&)^#V,VîV:>ݾ8&G:/8x2,:?ݾ 8G:18 x2-Vç :,ݾ0:.2, :/ݾ02,Vç:-ݾ 0:02-:1ݾ02-:>02':? 02(V!@VîV>2'2(!:>28V@çV@:>2;2<>2;2<:>292:ɯ2&/2$̈́|VC,C.C0AC; C9:G^î:GW 66>?GVVA8!&Vnħ6>/G>/G:$ 5 :;2<4 :92::;2:,2):-2*6V= V< N%|} o/|gɯ2%K,x=8yݾ0xͱ"FͶ)F(= F +>"" !>2% ̈́*"> F(#} +$| } o(|g|X([= ! ^*"|@0&WXg2Nf(|[0W #~q#}(~q ~ WwGNx:%(y#@*"  F(͆͆#}(͆+$| } o(|g|X(^*"|@0&WXg2f(|[0W # w#}(w w2O}`px|~xlL0ICA1.BAS mmoBY SALVA ESPA\A BOQUERA  SOSENT SOFT. 1989 PARA BREAK: POKE 50441,200 "":50000P ICA1.BIN XP[Z! X#~ 6 6(>ݾ >ݾ 6 ##>ݾ >ݾ 66ݾ(->ݾ(&>ݾ (ݾ ݾ >ݾ( ݾ >ݾ 6SALVA ESPA\A!X6T]2:ķ(>2!Xzȯ#(6UC\C GURCPC!X :G:_":w>g :(=2>GW :(<2X :(=2` :(<2"~2>O W _ g Ox2OA R>G S"~2O >! X,W 7>! XV_ g >Gv"68v7k ïGW< >< !X6#6>7Y/CLS U/CLEAR I/LOAD O/SAVE P/EXZ/BOTTOM X/ROAD C/HEAD V/TAIL TURING.BAS;;m="" F:"Emulador de la maquina de turingPor Salva Espa|a SOSENT Soft."'' >"esto se suponen las instruciones pero tu miras la revista."  max=0  b=4e4@ (=""40( -c$= 2c$="r"170 <+c$="i"max=max+1:q=max:230 A$c$="I"max=max+1:435 Bc$="U"460 F/c$="u"max=max-1:"OK. Fecho y quitao" Pc$="l"400 Zc$="e"220 d c$="c" xTc$="s"39999?,max:"nombre";n$:n$39998>,3*max+3:40( 4c$="g"""39998>:max=39999?:40( c$="?"410 c$="C""cad:";a$:420 40( "Con > ";l ejecutor [65370Z,159:65371[,96`:40799_,3:40801a+a$,3 %65374^,l:65372\,15 /65368X:"OK/LIMITE DE CADENA":40( "linea >";q:320@ "datos ";m$,n$,cp m=m$:n=n$ m$="`"m=0 n$="<"n=1 n$=">"n=2 n$="!"n=3 "S(39997=+3*q),m:(399998CO+3*q),n:(39999?+3*q),cp ,320@:40( @5(39997=+3*q)=0m$="`":340T Jm$=¾(39997=+3*q) T5(39998>+3*q)=1n$="<":380| ^5(39998>+3*q)=2n$=">":380| h5(39998>+3*q)=3n$="!":380| rn$=¾(39999?+3*q) |@7;q;11 ;m$;" ";n$;" ";(39999?+3*q)  8q=1max:320@:q:7 ;"fin":40( 6q=40800`̱a$+40799_:(q);:q::40( Iq=1̱a$:40799_+q,a$(q):q:40800`+q,3:40( U"linea?";n:q=4e4@+3*max39997=+3*n-1:q+3,q:q /q=40002B40002B+3*max3 qnq,1+q q:q=n:230 N"linea?";n:q=39997=+3*n4e4@+3*max:q,(q+3):q /q=40002B40002B+3*max3 q>nq,(p)-1 q:max=max-1:40( @TURING.BINPD g=:^<2^:^o&DM) :\W:]_:ZW:[_Ⱦ( #~   z2Z{2[#~2^@@@@@~BfZBBBBbRJFB,239,219,254,230,1,32 ,12 ,62>,255,221,33!,0,64@,17,0,27,195,194,4 175,219,254,22,31,162,170,32 ,247,126~,60<,119w,254,0,32 ,220,43+,126~,60<,119w,254,0,40(,248,24,207 (&a=31050Jy31063Wy:b:a,b:a 2557,62>,255,221,33!,0,64@,17,0,27,205,86V,5,201 < :"s/n";c$ F&c$(1)="s""":d=31000y Pe=31000y Z 80P ROTEX lltn _39999?:23658j\,8:0:6:0::""56100$:""64984 2wt$(1 ,1000):a$(7,1000):f$(1,1000):m$(7,12 ):c$="":menu =100d F.v=17:m$(v,1)=0:v P6color= 7:ve =1:col= 4:c=6 i n:9000(#:v=17:n$:6+v,7;n$ s5 :V; 0;1,8;"R";1,11 ;"O";1,14;"T";1,17;"E";1,20;"X" x.01z# =,502-V:V _568,557:5;128,0::568,535:1;128,0 A1;6;1;;5,7;" * M E N U * " 90;5;16,7;"ELIGA UNA OPCION " #ME=0:8110 :MEMENU 1000*C  8000@  MEMENU e4;0;0,0;"INTRUCUCE EL NOMBRE:";N$:N$>10 N$=N$(110 ) N$="M"MENU 5N$<10 V=110  -N$:N$=N$+".":V !5;6+C,11 ;N$ -M$(C,110 )=N$(110 ) $A#0;1;5;0,7;"{C}inta {T}eclado" )Z$=:Z$="M"MENU .Z$="C"10797 0Z$"T"1065) 3O:L=1:#0;0,6;3;0;"INTRODUCE EL TEXTO" 4Z$=:Z$=""10764 5l.005y# =,40(:N=1Z$13 :Z$=12 8;" ";8;:L=L-1:10764 6zZ$;:T$(1,L)=Z$:L=L+(L<967):10764:N:T$(1,L)=0:A$(C,31)=T$(1):1096H 7>5;0;21,5;"PON EN MARCHA LA CINTA" 8:L=9 :0,0;:N$F$():A$(C)=F$(1) BL<81096H GM$(C)=N$+".." L:MENU  8000@  MEMENU  N$=M$(C,110 ) T$(1)=A$(C) * N$T$() 4MENU 73;0;5,7;" * GRAFICOS * " uN=17:6+N,7;" ":N:3;0;16,7;"^ELIGE UN NUMERO" ֮4;8,7;"1...";6;"CIRCULOS....";4;10 ,7;"2...";6;"PUNTOS......";4;12 ,7;"3...";6;"RAYAS......." 4ME=0:8070:C>3ME=1MENU qN=0127:65368X+N,(64984+128*(C-1)+N):.003xD,N/4:254,N:N .05|L,0:MENU \5;1;5,7;" * COLOR * ";16,7;"^ELIGE UN NUMERO" =V=17:V;6+V,11 ;" ":V "8070:C>7C=7 :COL=C:MENU %.05|L,0:8000@:MENU z\5;1;5,7;" * VELOCIDAD * ";16,7;"^ELIGE UN NUMERO" N=17:6+N,11 ;"............";6+N,11 ;("RAPIDO......"N=1);("LENTO......."N=7) N 8110:MEMENU  VE=C:MENU b*ME=0:8000@:ME=1MENU l!1:COL:T$(1)=A$(C) 4DIRTEX=23627K\+256*23628L\+8 !561153,(DIRTEX/256) 756004,1:56005,(VE-1)*2 :56100$ +0:.01z# =,0:6:MENU J\4;0;5,7;" * TEXTOS * ";16,7;"^ELIGE UN NUMERO" TAN=17:M$(N,1)=0M$(N)="VACIO......." r6+N,11 ;M$(N):N  ME=0 50:Z$=:C=Z$-480:Z$="M"ME=1: !C<1C>78110  #("1-..CARGAR.TEXTO","2-..GRABAR.TEXTO","3-..SET.GRAFICOS","4-..SET.COLOR...","5-..SET.TEXTOS..","6-..VELOCIDAD...","7-..ROTULOS....." 'S"ROTEX"1:"ROTEX.C/M"56100$,330J:"GRA-3"64984,512 'L"ROTEX":"ROTEX.C/M"56100$,330J: "GRA-3"64984,512 ROTEX.C/M J$l L!@6A>!\l"!"*@~(W#K6\&o))) !~'0'0w#~'0'0wy#*#"Kx y@H!@ ~X&o)))~#z=W {_#! "*@)) ~X&o))) #!@H ' +$ K x *#"*[|8 {0!">/ۖGRA-3 l`` ff`````` ``ff`` ``   ff ff``ff ffffff``ff````````ff````ffff``ffffffffPP  VVPPPPPP  PPVVPP  PP      VV  VVPPVV  VVVVVV`` ff`````` ``ff`` ``   ff ff``ff ffffffbasic.o  63999:A=64000 F=120  'A;" : "; (B$ 2N=1̱B$2 64@))+B$(N+1)-480-7*(B$(N+1)>64@) FA,B PB$(NN+1); Z A=A+1 dN nF x 480 M=64161 M,128:M=M+1 F=191[: '(F+164);"-."; A$ L=A$ N=1L-1 M,A$(N) A$(N); M=M+1 N M,A$(L)+128 A$(L);  M=M+1 F "3E02CD01162A535C" ""ED5B4B5CE5AFED52" ,"E1D056235EE5CD5D" 6"FAE1234E23462378" @"B128E50B7EFE0E20" J"071606230B1520FB" T"7EFEA53803CD3BFA" ^"D718E3F53E20D7F1" h"D6A44711A1FA1A13" r"CB7F28FA10F81ACB" |"7F2004D71318F7D6" "80D73E20C9EB0E00" "11E803CD85FACD8F" "FA116400CD85FACD" "8FFA110A00CD85FA" "CD8FFA110100CD85" "FACD8FFAC906FF04" "AFED5230FA19C9AF" "B92007B820043E20" "D7C90C3E3080D7C9" d"AZAR","TECLA$","PI","FUN","PUNTO","PANTALLA$","ATRIBUTOS","EN","ESPACIOS","VAL$","CODIGO","VALOR" &"LARGO","SEN","COS","TAN","ASN","ACN","ATN","LN","EXP","ENTERO","RCUA","SGN","ABS","MIRA","ENTRADA","CODMAQ","CADENA$","CARACTER$","NO","BIN","O","Y","=<","=>","DISTINTO","LINEA","ENTONCES","HASTA","PASOS","DEF FUN","CAT","FORMAT","MUEVE","BORRA","ABRE#","CIERRA#","MEZCLA","VERIFICA","SUENA" "CIRCULO","TINTA","PAPEL","PARPADEO","BRILLO","INVERSO","SOBRE","SALIDA","ESCRIBE","LLISTA","PARA","LEE","DATOS","PUNTERO EN","NUEVO","BORDE","CONTINUA","MATRIZ","COMENTARIO","DESDE","VE A","VE A SUB","PREGUNTA","CARGA","LISTA","SEA","PAUSA","SIGUIENTE","PON EN" j"INPRIME","COORDENADA","FUNCIONA","GRABA","PON AZAR","SI","BORRA PANT","TRAZA","LIMPIA","VUELVE","COPIA" L()=64000 L=L()  &Fsalvar con save "noun" code 64000,f-64000(despues de haber echo run) 64CAR.BAS ^ ^ ` cargador 64 columnas v=(23733 \< 255)  v+1 (%62641-31658{*(v=1) 2v=23670v\-1 <1000:bl=1 Fd,l:"ESPERE UN MINUTO" PA$="":CS=0 Z'F=18:B$:A$=A$+B$:F:S dN=1̱A$-12 nA=A$(N):B=A$(N+1):AA=A-480*(A>47/)-7*(A>64@):BB=B-480*(B>47/)-7*(B>64@):A=AA*16+BB:CS=CS+A x`B=A+86V*(V=1(N=37%N=87W))-124|*(V=1(N=47/N=97a)) 1D-31658{*(V=1)+(N-1)/2,B N CSS400 BL=2 :D,L A$="":CS=0 'F=18:B$:A$=A$+B$:F:S n=1̱a$ EA=A$(N):AA=A-480*(A>47/)-7*(A>64@):CS=CS+AA [D-31658{*(V=1)+N-1,AA:D-31658{*(V=1)+N-769,AA*16 N CSS400 500 '"ERROR EN BLOQUE ";BL;" REVISA DATAS" .5,0:100d BL*1000: ;"64 CHARS"62642-31658{*(V=1),1616P #"CINTA EN ~PLAY~ PAPRA VERIFICAR" ;"64 CHARS"62642-31658{*(V=1),1616P  :800  N=112 & XX,YY,P$ 0 9990' :N D  2,2,"TODO HA IDO CORRECTAMENTE",4,2,"Como su version es de",4,13 ,(480-32 *(v=1)),4,14,"K. El c~odigo se ha cargado" *6,2,"a partir de",6,8,(62642-31658{*(v=1)),8,2,"Para utilizarlo, copie en sus listados la linea 9990" 410 ,2,"Cargue las variables xx e yy con el punto de impresion",12 ,2,"y la variable p$ con el texto a inprimir" >14,2,"luego haga gosub 9990",16,2,"Este es el juego de caract|res: !#$%'()*+,-./0123456789:;",17,2,">?@ABCDEFGHIJKLMNOPQRSTUVWXYZ^_`abcdefghijklmnopqrstuvwxyz{|}~[\]"  bloque 1 62642,80P "3E02CD0116210A5B0603" "C57ED723C110F93E0232" "365C3EF432375C7EFEFF" "28227EF600281DD73E08" $"D7233E0232365C3EF732" ."375C7EFEFF28097EF600" 8"2804D72318CF3E003236" B"5C3E3C32375CC9000000" L 7039 M : N : O : P : Q : R : S : T : U :  BLOQUE 2 63490,768 d"00000000044440400AA00000004E4E404E8C62E400924900E0EAAAA0240000002488884284222248000A4A000004E400" d"000022400000E00000000020001248000EAAAAE0026A22200E22E8E00E22E2E00AAE22200E8E22E00C88EAE00E222220" d"0EAAEAE00EAAE220004004000200224001248421000E0E00084212480EA24040060CAAA00EAAEAA00CACAAC00EA88AE0" d"0CAAAAC00E8C88E00E8C88800E88AAE00AAAEAA00444444002222AE00ACCAAA0088888E00AEEAAA00EAAAAA004AAAA40"  d"0EAE888004AAAE610CAACA900EA842E00E4444400AAAAAE00AAAAA400AAAEEA00AA44AA00AAA44400E2448E00C8888C0" d"008421000622226004A04440000000F004A8C8E000E2EAF088EAAAE000E888E022EAAAE000EAE8E00064E44400EAAE2E"  d"88EAAAA0040444600202222E88ACCAA0C44444E000AEEAA000CAAAA000EAAAE000EAAE8802EAAE220068888000E842E0" *d"44E4446000AAAAF000AAAA4000AAEEA000AA44A000AAAE2E00E248E024E2EAF024EAE8E02404446024EAAAE024AAAAF0" 4 4340 '23306 [,22:23307 [,xx:23308 [,yy:w=p$:z=1w:23308 [+z,p$(z):z:23309 [+w,255:1:w=(62642-31658{*(v=1)):0: 64 CHARS PR>! [~#>26\>27\~("~(>#>26\>27\~( ~(#>26\><27\@@@@@@@@@` @ @ࠠ @ @@ @ @@@@ @  @ࠠ ` ࠠࠠ @@ @ @@ @  @ @@`ࠠࠠࠀࠠ@@@@@@ ࠠࠠ@@@`ࠀ@ @@@@@@@@@@@ @@@ ` `@@@@@ ࠠ ࠠ`@@@@ࠠ ࠠ@@@@` @@@@@ࠠࠠࠠ ࠠ `@ @@@@@`@@@ @ @ @ @@@@` @ࠠ @                                                                    DEMOVARILEVVX 502  59990V "" (60145 2:23681\,1 <71,3 ;#3;"ESTO ES UNA DEMOSTRACION" F23681\,2 P83,2;#3;"DE LO QUE PUEDE HACER ESTE" Z23681\,3 d'5,10 ;#3;"PROGRAMA" n$' "USE POKE 23681,X Y EL CANAL #3" xA=13 1000 A .21,0'#3;"PULSE UNA TECLA" 0: 1500  '"CON ";A;" :" 23681\,A $B=33!128:#3;B; B  ***********************  LA RUTINA ANULA LA  INPRESORA. LA RUTINA SE ACTIVA CON RANDOMIZE USR 60145 Y SE DESACTIVA CON RANDOMIZE USR 60166 0UNA VEZ DESACTIVADA SE PUEDE USAR LA IMPRESORA "LFILTRA TODOS LOS CODI- GOS POR DEBAJO DE 32 Y POR ENCIMA DE 128 ESCEPTO 13 ,LA RUTINA DE IMPRESION ESTAPUESTA A PARTIR DE LA DIRECION 60000 E INPRIME ELCODIGO ASCII DEL ACUMULADORACTUALIZANDO LOS VALORES CONBENIENTES Y HACIENDO SCROLL SI ES NECESARIO Y SIN PREGUNTAR SI SIGUE 6*********************** VARILETRA `T ( 08 [\!!RI[6\&o)))*\w:\(>x0&0&:\(~?w$[\!!R{ 8z8 z_z@WS\!!R"\*O\^#VS\`r+s*O\[\s#rɵPELOTA.FUE\ :;ESTE PROGRAMA IMPRIME UNA PELO- ;TA QUE IRA REBOTANDO POR TODA ;LA PANTALLA HASTA QUE SE PULSE ;ESPACIO,MOMENTO EN QUE VOLVERA ;AL BASIC. LIST + ORG 50000 EXX PUSH HL EXX INI LD A,(DIR) BIT 0,A JP NZ,ARRIBA LD A,(POSL) DEC A LD (POSL),A JP COL ARRIBA LD A,(POSL) INC A LD (POSL),A COL LD A,(DIR) BIT 1,A JP NZ,IZQ LD A,(POSC) DEC A LD (POSC),A JP COM IZQ LD A,(POSC) INC A LD (POSC),A COM LD A,(POSC) CP 32 JP NZ,COC2 LD A,(DIR) SET 1,A LD (DIR),A JP COL1 COC2 CP 0 JP NZ,COL1 LD A,(DIR) RES 1,A LD A,(DIR) COL1 LD A,(POSL) CP 22 JP NZ,COL2 LD A,(DIR) SET 0,A LD (DIR),A JP IMP COL2 CP 0 JP NZ,IMP LD A,(DIR) RES 0,A LD (DIR),A IMP LD A,22 RST 16 LD A,(POSC) RST 16 LD A,(POSL) RST 16 LD A,79 RST 16 LD A,22 RST 16 LD A,(POSCA) RST 16 LD A,(POSLA) RST 16 LD A,32 RST 16 LD A,(POSC) LD (POSCA),A LD A,(POSL) LD (POSLA),A LD A,(IY-50) CP 33 RET Z JP INI POSC DEFB 16 POSL DEFB 12 POSLA DEFB 17 POSCA DEFB 13 DIR DEFB 0 PRESP.CON UU W 7 Dpx=0:py=0:ang=:r=200:c=80P:d=502 7:0:0  2,6;"*PRESPECTIVA CONICA*";7,8;"1 - CUBO";8,8;"2 - PIRAMIDE";9 ,8;"3 - PRISMA" (Q="1"2,6;" ESPERE ":7,7;">":100d 2Q="2"2,6;" ESPERE ":8,7;">":250 ":400 FQ="4"2,6;" ESPERE ":9 ,7;">":550& Z 40( d&125}:pt=10 :cu=190 nx(pt):t=1pt sx(t) xt }]-502,-502,502,502,-502,-502,502,502,0,0 y(pt):t=1pt y(t) t a-502,502,502,-502,-502,502,502,-502,150,150 z(pt):t=1pt z(t) t [0,0,0,0,100d,100d,100d,100d,0,125} 0:7:1 1000  00,c:5;0;255,0 225:t=113 v,w *128+m(v),n(v):m(w)-m(v),n(w)-n(v) t 1,2,2,3,3,4,4,1,1,5,2,6,3,7,4,8,8,5,5,6,6,7,7,8,9 ,10 g128+m(10 ),n(10 )+(n(10 )-n(9 ))/10 ,(n(10 )-n(9 ))/10 1100L :270:pt=9 :cu=320@:ang=2.7488936/l x(pt):t=1pt x(t)  t O-502,-502,502,502,0,0,0,0,0 y(pt):t=1pt y(t) t "W-502,502,502,-502,0,150,150,170,150 'z(pt):t=1pt ,z(t) 1t 6N0,0,0,0,100d,0,502,40(,30 90:7:1 ; 1000 @ E00,c:5;0;255,0 J370r:t=111 Tv,w ^*128+m(v),n(v):m(w)-m(v),n(w)-n(v) ht r1,2,2,3,3,4,4,1,1,5,2,5,3,5,4,5,6,7,7,8,8,9 | 1100L C420:pt=12 :cu =475:ang=/2:c=100d x(pt):t=1pt x(t) t -100d,-100d,-100d,-100d,-100d,-100d,100d,100d,100d,100d,100d,100d  y(pt):t=1pt y(t) t s25,502,25,-25,-502,-25,25,502,25,-25,-502,-25 z(pt):t=1pt z(t) t y0,43.3-333,86.6-333,86.6-333,43.3-333,0,0,43.3-333,86.6-333,86.6-333,43.3-333,0 0:7:1  1000  00,c:5;0;255,0 505:t=118 v,w *128+m(v),n(v):m(w)-m(v),n(w)-n(v) t *1,2,2,3,3,4,4,5,5,6,6,1,7,8,8,9 ,9 ,10 ,10 ,11 ,11 ,12 ,12 ,7,1,7,2,8,3,9 ,4,10 ,5,11 ,6,12  1100L )a=r*ang:b=r*ang:m(pt):t=1pt .a=pxm(t)=d*((x(t)-a)/(y(t)-b)):1030 *a=x(t)x(t)pxr=r+20:1000 1m(t)=d*(((py-b)/(px-a))-((y(t)-b)/(x(t)-a))) a128+m(t)>255128+m(t)<01,5;"DEMASIADO CERCA":1100L t n(pt):t=1pt $~n(t)=z(t)+((c-z(t))/((a-x(t))*(a-x(t))+(b-y(t))*(b-y(t)))) *(((a-x(t))*(a-x(t))+(b-y(t))*(b-y(t)))-(m(t)*m(t)+d^2)) .Mn(t)>175n(t)<01,5;"DEMASIADO CERCA":1100L 8t Bcu L'="p"ang=ang+/16:1000 V'="o"ang=ang-/16:1000 `!="a"r=r+20:1000 j!="q"r=r-20:1000 t6="w"c+20175c=c+20:1000 ~4="s"c-200c=c-20:1000 +="m"7:0:0:5  1100L GRABAD.VOZ~ F40999':1000:n=1557:a:(40999'+n),a:n -n=145-:a:(41199+n),a:n ;:''"A grabar"''"B reproducir"''"c ver grafica"'''"ELIGE" (="a"100d 2="b"200 <="c"400 F 40( d*:"PREPARATE Y PULSA {INTRO}":300, f!41000(:7:30 R:41200:"Si no se oye bien vuelve ha gra-bar con otro volumen":30 ,13 300, . cu=42000 :0,0;cu;"(M menu)(A avance)":p=1255:p,89Y:0,cu/3:cu=cu+1:0,87W:0, -cu/3:cu=cu+1 (p:300,:cu<62000030  30  175,211,254,33!,16,164,17,16,39',243,219,254,203,119w,40(,250,14,255,12 ,62>,255,185,40(,6,219,254,203,119w 32 ,244,113q,35#,14,255,12 ,62>,255,185,40(,6,219,254,203,119w,40(,244,113q,35#,27,122z,179,32 ,219,251,201 33!,16,164,17,16,39',243,70F,120x,167,40(,9 ,62>,17,211,254,205,28,161,16,247,35#,70F 120x,167,40(,9 ,62>,7,211,254,205,28,161,16,247,35#,27,122z,179,32 ,221,251,201,201 |VUMETE.BASd ""49152,171 010 ,3;"PREPARA LA CINTA DE MUSICA" 12 ,15;"Y" (%14,8;"PULSA UNA TECLA" 2 0 <49152 VUMETE.BINDݭ> !X6 # x !@6# x !w(w #w(FR85 R88!!Zo ~ R 6 R  !Z ~ (6 R#T8:H\???k S.VU.FUE e3E09D3FE210058010003661 3609230B78B120F82100719 40010018361F230B78B1517 20F80E1E210000DBFECB10337728FADBFECB7720FA231521DBFECB7728F9114600AF1346ED523835AF110C00ED52951 3806C60118F818D2D61F101238021821C61F21805A85728 6F112000060E7EFE0A20602 07AFED5210F618090606808 360AAFED5210F90D20AA1038112000DD21805A0620DD780 E5E17EFE0A2805193609977 1805AFED5218F1DD23101060EACD541F38B03A485CCB12113FCB3FCB3FD3FECD6B0D1385C9000000000000000000201 FRACTA.BAS}  q0 :d1=0.1}L:d2=2:e1=0:e2=2.55#333: i(jt)=j,t=(jt)=(j*10 ^t)/(10 ^t) -g=0:f=0:h=0:z=3: ,z=z-1:zo=2^(z-1):jo=zo 2[st =0.04|# =/zo:c1=25*zo:ax=100d/zo:x0=0:y0=0 :xo=x0:yo=y0 Fx=0:y=0 P d=d1d2st Zd$=d d#d$5z=5:120x nz=d$ e=e1e2st  e$=e #e$5q=5:170 q=e$ ?a=(e-2)*(e-2)-(d-1)*(d-1)+(e-2) /b=(d-1)+2*(e-2)*(d-1) od=a*a+b*b od4350^ c=1c1 w=2*a*b a=a*a-b*b+(e-2) b=(d-1)+w  od=a*a+b*b od4350^ c "xx0=x+x0:yy0=y+y0: ,x+xo>255xx0=255 6x+x0<0xx0=0 @y+y0>175yy0=175 Jy+y0<0yy0=0 T xx0,yy0 ^ x=x+1 re |x=0:y=y+1 d  "fractal" dPAIS3D.BASBBD /1:1:7::1:7 (x(21,21):n=020:m=020:x(m+1,n+1)=(45568-850R*m+5202R*n)/(356d+17*(m+n)):m:n:9910& F 0 P Z"z=f(x,y)";a$ d f()=a$ nz(22,22) x"xmin";xi:"xfin";xf xi=xf120x "ymin";yi:"yfin";yf yi=yf140 ?23674z\,0:23673y\,0:23672x\,0 4m=1:n=1:x=xi:y=yi:zi=f():zf=f() ?x=xixf(xf-xi)/20.9999'˓:y =yiyf(yf-yi)/20.9999'˓ !m=2n=19800H& C z(m,n)=f()*(x(m,n)+502)/(178+17*(m+n-2)) z(m,n)>zfzf=z(m,n) z(m,n)1x(m,n-1)-x,178*(17*m-128+x(m,n-1))/(178+17*m)+a*(z(m,n-1)-zi)-y:x,y @m>1x(m-1,n)-x,178*(17*(m-1)-128+x(m-1,n))/(178+17*(m-1))+a*(z(m-1,n)-zi)-y Tn:m ^ 70F &HZseg=(.4L*23672x\+102.4L*23673y\+26214.4L*23674z\-5) &RImin=0:seg>60<min=(seg/60<):seg=seg-(min*60<) &WIhor=0:min>60<hor=(min/60<):min=min-(hor*60<) &\(0,0;hor;":";min;":";seg: &(n=-2020:.01z# =,n:n: \VOCALE.BASl 60000` 71000:n=043+:a:n+63000,a:n 7n=15:a=1000+100d*n:a:v,b,c (&m=1b:a+20:p=1c 2d:v,d:v=v+1:p:m:n Fa$= Pa$="0"110n Z 200 d 70F nLn=15:a=232+2*n:10 :210:n:70F wa=235*(a$="a")+237*(a$="e")+239*(a$="i")+241*(a$="o")+243*(a$="u"):a=070F 63002,a:63000: e33!,0,164,17,0,1,243,70F,120x,167,40( h9 ,62>,23,211,254,205,67C,246,16,247,35# g70F,120x,167,40(,9 ,62>,7,211,254,205,67C k246,16,247,35#,27,122z,179,32 ,221,251,201 V60160,19,14 `~19,32 ,22,33!,7,74J,19,42*,28,557,22,43+,17,14 50672,16,22 j5,84T,13 ,5,23,100d,7,17,6,17,10 ,12 `22,13 ,8,16,7,20,9 ,10 ,22,11 ,0 61184,17,14 ({10 ,174,19,2,20,73I,3,12 ,6,99c,10 ,5,16,8 61694,16,6 :25,109m,32 ,146,30,180 62208,22,4 '30,150,37%,127 SPEDLO.OBJ\ O; **** CARGA Y GRABACION **** LIST + ORG 60000 LD HL,(23645) LD A,(HL) CP 234 JR NZ,ERRORA INC HL LD A,(HL) CP ":" JR NZ,ERRORA INC HL LD A,(HL) CP 248 JR Z,TSAVE CP 239 JP Z,TLOAD CP 214 JP Z,TVERIF CP 213 JR Z,TMERGE JR ERRORA ERROR6 RST 8 DEFB 5 ERRORA RST 8 DEFB 9 ERRORB RST 8 DEFB 10 ERRORC RST 8 DEFB 11 ERRORF RST 8 DEFB 14 ERRORR RST 8 DEFB 26 TSAVE CALL BAUDIO CALL NAME JR C,ERRORF CALL SINTAX PUSH AF LD A,#FD W CALL #1601 XOR A LD DE,#9A1 CALL #C0A SET 5,(IY+2) CALL #15D4 LD IX,CABEC LD DE,17 XOR A CALL SAVE LD B,#32 PSAV HALT DJNZ PSAV POP AF LD DE,(LONT) LD A,#FF LD IX,(23635) JR C,FSAV LD IX,(DIRT) FSAV CALL SAVE RET TMERGE CALL BAUDIO CALL NAME CALL C,CPNAME INC HL LD A,(HL) CP 13 JR NZ,ERRORC CALL RELOAD LD BC,(LONBUF) PUSH BC INC BC RST 48 LD (HL),#80 EX DE,HL POP DE PUSH HL PUSH HL POP IX LD A,#FF CALL LMBYT JP 2253 TVERIF CALL LDPREV RES 0,(IY+37) JR NC,LDBYTE JR CPROG LDPREV CALL BAUDIO CALL NAME CALL C,CPNAME CALL NSINT PUSH AF CALL RELOAD POP AF RET TLOAD CALL LDPREV SET 0,(IY+37) JR NC,LDBYTE LD DE,(LONBUF) LD HL,(23641) ADD HL,DE EX DE,HL LD HL,(23641) SCF SBC HL,DE JR C,ADDS JR Z,ADDS LD B,H LD C,L EX DE,HL CALL #19E8 JR PPL ADDS ADD HL,DE AND A SBC HL,DE LD B,H LD C,L EX DE,HL CALL #1655 PPL LD HL,(23635) LD BC,(INFBUF) ADD HL,BC LD (23627),HL LD HL,(DIBUF) LD A,H AND #C0 JR NZ,CPROG LD (23618),HL LD (IY+10),0 CPROG LD DE,(LONBUF) LD IX,(23635) CARGA LD A,#FF BIT 0,(IY+37) JR Z,VBYT LMBYT SCF VBYT CALL LOAD RET C JP ERRORR LDBYTE AND A JR NZ,INDEF LD IX,16384 LD DE,(LONT) AND A SBC HL,DE JP NZ,ERRORR JR CARGA INDEF CP 2 JR NC,DIDEF LD IX,(DIBUF) DEFLO LD DE,(LONBUF) JR CARGA DIDEF LD IX,(DIRT) JR NZ,TODEF JR DEFLO TODEF LD DE,(LONT) JR CARGA RELOAD LD IX,BUFCAB LD DE,17 XOR A SCF CALL LOAD JR NC,RELOAD RES 0,(IY+2) LD (IY+82),3 LD HL,CABEC LD C,128 LD A,(BUFCAB) CP (HL) JR NZ,LDTIP LD C,246 LDTIP CP 4 JR NC,RELOAD LD DE,#9C0 PUSH BC CALL #C0A POP BC LD DE,BUFNAM LD HL,NOMBRE LD B,10 LD A,(HL) INC A JR NZ,LDNAME LD A,C ADD A,B LD C,A LDNAME LD A,(DE) CP (HL) INC HL INC DE JR NZ,LDPR INC C LDPR RST 16 DJNZ LDNAME BIT 7,C JR NZ,RELOAD LD A,13 RST 16 RET BAUDIO CALL NUMERO PUSH HL CP ";" JP NZ,ERRORC LD HL,799 SBC HL,DE JP NC,ERRORB AND A LD HL,5000 SBC HL,DE JP C,ERROR6 LD DE,(PRES) LD (BAUD),DE CALL INVAL POP HL INC HL LD A,(HL) CP """ JP NZ,ERRORA INC HL RET ; NAME LD B,10 LD DE,NOMBRE PNAME LD A,(HL) CP """ JR Z,CMP LD (DE),A INC HL INC DE DJNZ PNAME LD A,(HL) CP """ RET Z SCF RET CMP LD A,9 CP B LD A,32 LLENA LD (DE),A INC DE DJNZ LLENA RET ; CPNAME LD A,(HL) CP """ JP NZ,ERRORF LD A,#FF LD (NOMBRE),A ; SINTAX INC HL LD A,(HL) CP 13 JR Z,PPROG CP 202 JR Z,PROGL CP 170 JR Z,SPANT CP 175 JR Z,CODE JP ERRORC ; PPROG LD HL,#8000 LD (DIRT),HL TIPO XOR A LD (CABEC),A LD DE,(23635) LD HL,(23627) SBC HL,DE LD (INFC),HL LD HL,(23641) SCF SBC HL,DE LD (LONT),HL SCF RET PROGL CALL ENUM LD HL,9999 SBC HL,DE JP C,ERRORB LD (DIRT),DE CALL TIPO RET ; SPANT INC HL LD A,(HL) CP 13 JP NZ,ERRORC LD HL,16384 LD (DIRT),HL LD HL,6912 LD (LONT),HL INSA LD HL,#8000 LD (INFC),HL LD A,3 LD (CABEC),A RET ; CODE CALL NUMERO LD (DIRT),DE CALL COMDAT DEFLON LD A,(HL) CP "," JP NZ,ERRORC CALL ENUM LD (LONT),DE CALL COMDAT JR INSA ; COMDAT LD A,D OR E RET NZ DEC HL LD A,(HL) CP "0" JP NZ,ERRORC INC HL RET ; ENUM CALL NUMERO CP 13 JP NZ,ERRORC RET ; NSINT XOR A LD (CABEC),A INC HL LD A,(HL) CP 13 SCF RET Z LD A,3 LD (CABEC),A LD A,(HL) CP 170 JR Z,LPANT CP 175 JR Z,LCODE JP ERRORC ; LPANT CALL SPANT XOR A RET ; LCODE INC HL LD A,(HL) CP 13 LD A,1 RET Z DEC HL CALL NUMERO LD (DIRT),DE CALL COMDAT LD A,(HL) CP 13 LD A,2 RET Z JR DEFLON ; NUMERO LD DE,0 CRNUM INC HL LD A,(HL) CP 58 RET NC CP 48 RET C SUB 48 PUSH HL LD (PRES),DE EX DE,HL CALL MULT LD D,0 LD E,A ADD HL,DE JP C,ERRORB EX DE,HL POP HL JR CRNUM ; PRES DEFW 0 ; MULT ADD HL,HL JP C,ERRORB LD D,H LD E,L ADD HL,HL JP C,ERRORB ADD HL,DE JP C,ERRORB RET ; INVAL LD DE,DATSAV CALL CALCUL LD HL,BUFFER LD A,(HL) LD (DS1+2),A INC HL LD A,(HL) LD (DS2+1),A INC HL LD A,(HL) LD (DS3+1),A INC HL LD A,(HL) LD (DS4+1),A LD DE,DATLOA CALL CALCUL LD HL,BUFFER LD A,(HL) NEG LD (DL1),A INC HL LD A,(HL) NEG LD (DL2+1),A INC HL LD A,(HL) NEG LD (DL3+1),A INC HL LD A,(HL) NEG LD (DL4+1),A RET ; CALCUL LD B,4 LD HL,BUFFER LD (DDAT),HL NCALC PUSH BC LD A,(DE) PUSH DE LD HL,150 LD D,0 LD E,A CALL #30A9 LD B,H LD C,L PUSH BC LD BC,(BAUD) CALL #2D2B POP BC PUSH HL CALL #2D2B POP DE CALL #31AF CALL #2DA2 LD HL,(DDAT) LD (HL),A INC HL LD (DDAT),HL POP DE INC DE POP BC DJNZ NCALC RET ; DDAT DEFW 0 BUFFER DEFB 0,0,0,0 ; BAUD DEFW 150 ; DATSAV DEFB 59,66,62,49 DATLOA DEFB 80,78,53,80 ; CABEC DEFB 0 NOMBRE DEFB 127 DEFM "M.HOBBY" LONT DEFW 0 DIRT DEFW 0 INFC DEFW 0 ; BUFCAB DEFB 0 BUFNAM DEFS 10 LONBUF DEFW 0 DIBUF DEFW 0 INFBUF DEFW 0 ; LOAD INC D EX AF,AF' DEC D DI LD A,#0F OUT (#FE),A LD HL,#053F PUSH HL IN A,(#FE) RRA AND #20 OR #02 LD C,A CP A LBREAK RET NZ LSTART CALL #05E7 JR NC,LBREAK LD HL,#0415 LDWAIT DJNZ LDWAIT DEC HL LD A,H OR L JR NZ,LDWAIT CALL #05E3 JR NC,LBREAK LEADER LD B,#9C CALL #05E3 JR NC,LBREAK LD A,#C6 CP B JR NC,LSTART INC H JR NZ,LEADER LDSYNC LD B,#C9 CALL #05E7 JR NC,LBREAK LD A,B CP #D4 JR NC,LDSYNC CALL #05E7 RET NC LD A,C XOR #03 LD C,A LD H,#00 DL1 LD B,#B0 JR MARKER LDLOOP EX AF,AF' JR NZ,LDFLAG JR NC,VERIFY LD (IX+0),L JR LDNEXT LDFLAG RL C XOR L RET NZ LD A,C RRA LD C,A INC DE JR LDDEC VERIFY LD A,(IX+0) XOR L RET NZ LDNEXT INC IX LDDEC DEC DE EX AF,AF' DL2 LD B,#B2 MARKER LD L,#01 LDBITS CALL #05E3 RET NC DL3 LD A,#CB CP B RL L DL4 LD B,#B0 JP NC,LDBITS LD A,H XOR L LD H,A LD A,D OR E JR NZ,LDLOOP LD A,H CP #01 RET ; SAVE LD HL,#053F PUSH HL LD HL,#1F80 BIT 7,A JR Z,SAFLAG LD HL,#0C98 SAFLAG EX AF,AF' INC DE DEC IX DI LD A,#02 LD B,A SLEAD DJNZ SLEAD OUT (#FE),A XOR #0F LD B,#A4 DEC L JR NZ,SLEAD DEC B DEC H JP P,SLEAD LD B,#2F SSINC1 DJNZ SSINC1 OUT (#FE),A LD A,#0D LD B,#37 SSINC2 DJNZ SSINC2 OUT (#FE),A DS1 LD BC,#3B0E EX AF,AF' LD L,A JP SSTART SALOOP LD A,D OR E JR Z,SPARTY LD L,(IX+0) LPARTY LD A,H XOR L SSTART LD H,A LD A,#01 SCF JP SABITS SPARTY LD L,H JR LPARTY SABIT2 LD A,C BIT 7,B SABIT1 DJNZ SABIT1 JR NC,SAOUT DS2 LD B,#42 SASET DJNZ SASET SAOUT OUT (#FE),A DS3 LD B,#3E JR NZ,SABIT2 DEC B XOR A INC A SABITS RL L JP NZ,SABIT1 DEC DE INC IX DS4 LD B,#31 LD A,#FF IN A,(#FE) RRA RET NC LD A,D INC A JP NZ,SALOOP LD B,#3B SDELAY DJNZ SDELAY RET ; PRU3.OBJ \ w; **** CARGA Y GRABACION **** ; LIST + ORG 60000 LD HL,(23645) LD A,(HL) CP ":" JR NZ,ERRORA INC HL LD A,(HL) CP 234 JR NZ,ERRORA INC HL LD A,(HL) CP ":" JR NZ,ERRORA INC HL LD A,(HL) CP 248 JR Z,TSAVE CP 239 JP Z,TLOAD CP 214 JP Z,TVERIF CP 213 JR Z,TMERGE JR ERRORA ERROR6 RST 8 DEFB 5 ERRORA RST 8 DEFB 9 ERRORB RST 8 DEFB 10 ERRORC RST 8 DEFB 11 ERRORF RST 8 DEFB 14 ERRORR RST 8 DEFB 26 TSAVE CALL BAUDIO CALL NAME JR C,ERRORF CALL SINTAX PUSH AF LD A,#FD W CALL #1601 XOR A LD DE,#9A1 CALL #C0A SET 5,(IY+2) CALL #15D4 LD IX,CABEC LD DE,17 XOR A CALL SAVE LD B,#32 PSAV HALT DJNZ PSAV POP AF LD DE,(LONT) LD A,#FF LD IX,(23635) JR C,FSAV LD IX,(DIRT) FSAV CALL SAVE RET TMERGE CALL BAUDIO CALL NAME CALL C,CPNAME INC HL LD A,(HL) CP 13 JR NZ,ERRORC CALL RELOAD LD BC,(LONBUF) PUSH BC INC BC RST 48 LD (HL),#80 EX DE,HL POP DE PUSH HL PUSH HL POP IX LD A,#FF CALL LMBYT JP 2253 TVERIF CALL LDPREV RES 0,(IY+37) JR NC,LDBYTE JR CPROG LDPREV CALL BAUDIO CALL NAME CALL C,CPNAME CALL NSINT PUSH AF CALL RELOAD POP AF RET TLOAD CALL LDPREV SET 0,(IY+37) JR NC,LDBYTE LD DE,(LONBUF) LD HL,(23641) ADD HL,DE EX DE,HL LD HL,(23641) SCF SBC HL,DE JR C,ADDS JR Z,ADDS LD B,H LD C,L EX DE,HL CALL #19E8 JR PPL ADDS ADD HL,DE AND A SBC HL,DE LD B,H LD C,L EX DE,HL CALL #1655 PPL LD HL,(23635) LD BC,(INFBUF) ADD HL,BC LD (23627),HL LD HL,(DIBUF) LD A,H AND #C0 JR NZ,CPROG LD (23618),HL LD (IY+10),0 CPROG LD DE,(LONBUF) LD IX,(23635) CARGA LD A,#FF BIT 0,(IY+37) JR Z,VBYT LMBYT SCF VBYT CALL LOAD RET C JP ERRORR LDBYTE AND A JR NZ,INDEF LD IX,16384 LD DE,(LONT) AND A SBC HL,DE JP NZ,ERRORR JR CARGA INDEF CP 2 JR NC,DIDEF LD IX,(DIBUF) DEFLO LD DE,(LONBUF) JR CARGA DIDEF LD IX,(DIRT) JR NZ,TODEF JR DEFLO TODEF LD DE,(LONT) JR CARGA RELOAD LD IX,BUFCAB LD DE,17 XOR A SCF CALL LOAD JR NC,RELOAD RES 0,(IY+2) LD (IY+82),3 LD HL,CABEC LD C,128 LD A,(BUFCAB) CP (HL) JR NZ,LDTIP LD C,246 LDTIP CP 4 JR NC,RELOAD LD DE,#9C0 PUSH BC CALL #C0A POP BC LD DE,BUFNAM LD HL,NOMBRE LD B,10 LD A,(HL) INC A JR NZ,LDNAME LD A,C ADD A,B LD C,A LDNAME LD A,(DE) CP (HL) INC HL INC DE JR NZ,LDPR INC C LDPR RST 16 DJNZ LDNAME BIT 7,C JR NZ,RELOAD LD A,13 RST 16 RET BAUDIO CALL NUMERO PUSH HL CP ";" JP NZ,ERRORC LD HL,799 SBC HL,DE JP NC,ERRORB AND A LD HL,5000 SBC HL,DE JP C,ERROR6 LD DE,(PRES) LD (BAUD),DE CALL INVAL POP HL INC HL LD A,(HL) CP """ JP NZ,ERRORA INC HL RET ; NAME LD B,10 LD DE,NOMBRE PNAME LD A,(HL) CP """ JR Z,CMP LD (DE),A INC HL INC DE DJNZ PNAME LD A,(HL) CP """ RET Z SCF RET CMP LD A,9 CP B LD A,32 LLENA LD (DE),A INC DE DJNZ LLENA RET ; CPNAME LD A,(HL) CP """ JP NZ,ERRORF LD A,#FF LD (NOMBRE),A ; SINTAX INC HL LD A,(HL) CP 13 JR Z,PPROG CP 202 JR Z,PROGL CP 170 JR Z,SPANT CP 175 JR Z,CODE JP ERRORC ; PPROG LD HL,#8000 LD (DIRT),HL TIPO XOR A LD (CABEC),A LD DE,(23635) LD HL,(23627) SBC HL,DE LD (INFC),HL LD HL,(23641) SCF SBC HL,DE LD (LONT),HL SCF RET PROGL CALL ENUM LD HL,9999 SBC HL,DE JP C,ERRORB LD (DIRT),DE CALL TIPO RET ; SPANT INC HL LD A,(HL) CP 13 JP NZ,ERRORC LD HL,16384 LD (DIRT),HL LD HL,6912 LD (LONT),HL INSA LD HL,#8000 LD (INFC),HL LD A,3 LD (CABEC),A RET ; CODE CALL NUMERO LD (DIRT),DE CALL COMDAT DEFLON LD A,(HL) CP "," JP NZ,ERRORC CALL ENUM LD (LONT),DE CALL COMDAT JR INSA ; COMDAT LD A,D OR E RET NZ DEC HL LD A,(HL) CP "0" JP NZ,ERRORC INC HL RET ; ENUM CALL NUMERO CP 13 JP NZ,ERRORC RET ; NSINT XOR A LD (CABEC),A INC HL LD A,(HL) CP 13 SCF RET Z LD A,3 LD (CABEC),A LD A,(HL) CP 170 JR Z,LPANT CP 175 JR Z,LCODE JP ERRORC ; LPANT CALL SPANT XOR A RET ; LCODE INC HL LD A,(HL) CP 13 LD A,1 RET Z DEC HL CALL NUMERO LD (DIRT),DE CALL COMDAT LD A,(HL) CP 13 LD A,2 RET Z JR DEFLON ; NUMERO LD DE,0 CRNUM INC HL LD A,(HL) CP 58 RET NC CP 48 RET C SUB 48 PUSH HL LD (PRES),DE EX DE,HL CALL MULT LD D,0 LD E,A ADD HL,DE JP C,ERRORB EX DE,HL POP HL JR CRNUM ; PRES DEFW 0 ; MULT ADD HL,HL JP C,ERRORB LD D,H LD E,L ADD HL,HL JP C,ERRORB ADD HL,HL JP C,ERRORB ADD HL,DE JP C,ERRORB RET ; INVAL LD DE,DATSAV CALL CALCUL LD HL,BUFFER LD A,(HL) LD (DS1+2),A INC HL LD A,(HL) LD (DS2+1),A INC HL LD A,(HL) LD (DS3+1),A INC HL LD A,(HL) LD (DS4+1),A LD DE,DATLOA CALL CALCUL LD HL,BUFFER LD A,(HL) NEG LD (DL1),A INC HL LD A,(HL) NEG LD (DL2+1),A INC HL LD A,(HL) NEG LD (DL3+1),A INC HL LD A,(HL) NEG LD (DL4+1),A RET ; CALCUL LD B,4 LD HL,BUFFER LD (DDAT),HL NCALC PUSH BC LD A,(DE) PUSH DE LD HL,150 LD D,0 LD E,A CALL #30A9 LD B,H LD C,L PUSH BC LD BC,(BAUD) CALL #2D2B POP BC PUSH HL CALL #2D2B POP DE CALL #31AF CALL #2DA2 LD HL,(DDAT) LD (HL),A INC HL LD (DDAT),HL POP DE INC DE POP BC DJNZ NCALC RET ; DDAT DEFW 0 BUFFER DEFB 0,0,0,0 ; BAUD DEFW 150 ; DATSAV DEFB 59,66,62,49 DATLOA DEFB 80,78,53,80 ; CABEC DEFB 0 NOMBRE DEFB 127 DEFM "MICROHOBBY" LONT DEFW 0 DIRT DEFW 0 INFC DEFW 0 ; BUFCAB DEFB 0 BUFNAM DEFS 10 LONBUF DEFW 0 DIBUF DEFW 0 INFBUF DEFW 0 ; LOAD INC D EX AF,AF' DEC D DI LD A,#0F OUT (#FE),A LD HL,#053F PUSH HL IN A,(#FE) RRA AND #20 OR #02 LD C,A CP A LBREAK RET NZ LSTART CALL #05E7 JR NC,LBREAK LD HL,#0415 LDWAIT DJNZ LDWAIT DEC HL LD A,H OR L JR NZ,LDWAIT CALL #05E3 JR NC,LBREAK LEADER LD B,#9C CALL #05E3 JR NC,LBREAK LD A,#C6 CP B JR NC,LSTART INC H JR NZ,LEADER LDSYNC LD B,#C9 CALL #05E7 JR NC,LBREAK LD A,B CP #D4 JR NC,LDSYNC CALL #05E7 RET NC LD A,C XOR #03 LD C,A LD H,#00 DL1 LD B,#B0 JR MARKER LDLOOP EX AF,AF' JR NZ,LDFLAG JR NC,VERIFY LD (IX+0),L JR LDNEXT LDFLAG RL C XOR L RET NZ LD A,C RRA LD C,A INC DE JR LDDEC VERIFY LD A,(IX+0) XOR L RET NZ LDNEXT INC IX LDDEC DEC DE EX AF,AF' DL2 LD B,#B2 MARKER LD L,#01 LDBITS CALL #05E3 RET NC DL3 LD A,#CB CP B RL L DL4 LD B,#B0 JP NC,LDBITS LD A,H XOR L LD H,A LD A,D OR E JR NZ,LDLOOP LD A,H CP #01 RET ; SAVE LD HL,#053F PUSH HL LD HL,#1F80 BIT 7,A JR Z,SAFLAG LD HL,#0C98 SAFLAG EX AF,AF' INC DE DEC IX DI LD A,#02 LD B,A SLEAD DJNZ SLEAD OUT (#FE),A XOR #0F LD B,#A4 DEC L JR NZ,SLEAD DEC B DEC H JP P,SLEAD LD B,#2F SSINC1 DJNZ SSINC1 OUT (#FE),A LD A,#0D LD B,#37 SSINC2 DJNZ SSINC2 OUT (#FE),A DS1 LD BC,#3B0E EX AF,AF' LD L,A JP SSTART SALOOP LD A,D OR E JR Z,SPARTY LD L,(IX+0) LPARTY LD A,H XOR L SSTART LD H,A LD A,#01 SCF JP SABITS SPARTY LD L,H JR LPARTY SABIT2 LD A,C BIT 7,B SABIT1 DJNZ SABIT1 JR NC,SAOUT DS2 LD B,#42 SASET DJNZ SASET SAOUT OUT (#FE),A DS3 LD B,#3E JR NZ,SABIT2 DEC B XOR A INC A SABITS RL L JP NZ,SABIT1 DEC DE INC IX DS4 LD B,#31 LD A,#FF IN A,(#FE) RRA RET NC LD A,D INC A JP NZ,SALOOP LD B,#3B SDELAY DJNZ SDELAY RET ; COLORALTA d (0:0:7:54999 "DEMO"55000,222 "CODE"59650,551' (:55000: DEMO P2!"!#"!*"!#1"!*8"*"*"*"!c!m2v< $|2 !XX6>2>?GV!# 2vv!# vv!˾# >!˶# v!# v= CODE '@)K!+"!"b-mp!:\!X'si1!Z!Z1>>!9!9=G=D{iɴd>2!!z^+w+w^##>o0$>2~ >2|ݵ}vWGO^v!"!yOzGR}yOzG! Ƽ_"I|("><22>2>2S!"w!~"'!="'>=2>2S>2>2!H"wh!6>2>G!~6e!|{k{iM8>?GVsi1x><=ºK[**K[**sk~CODEF @eBF3CD4BEA212BE922FDFC1605FBCDC0E9F321A3EA22FD1841FCCD62EACD2DE9CD6DE91819CD70EAFD213A5C2158271147D9FBC9ED7369E931B6FC1842DD21FE5AFD21F05A11E01455FF01D9313E18083E08DD907 E5C521F9FF39F9FDE5C5194821F9FF39F93DC247E9081410DD19FD193DC244E9ED7B144069E9C98C6164EB3E12321241A3E9DD2100FD2148EC0E1258CF16C57A0604DD5E00AB1044A1AB2B77CB03CB0310F511670603ABA1AB2B77CB03CB10830310F5DD5E01DD23DD2310923E12856F3001243E1232539 A3E9CB7E20053E1332A31056E9DD7CDDB5C27DE9FBC9198476AF57474F1E1CED5E76103721DAE922FDFC21D3E9791621834F7A8847E9D908E1111239000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000EC000000000000000000236 CODE '@)K!+"!"b-mp!:\!X'si1!Z!Z1>>!9!9=G=D{iɌad>2!!Hz^+w+w^##>o0$>2~ >2|ݵ}vWGO^v!"!yOzGR}yOzG! Ƽ_"I|("><22>2>2S!"w!~"'!="'>=2>2S>2>2!H"wl!6>2>G!~6e!|{k{iM8>?GVsi1x>==ºK[**K[**sk=GDU_.BAS hhjJ****************** *DEMO GDU_SCREEN$* ****************** &59999_:""60000`,81Q !S(x ,y)=60000` 1000 0,0;1;"DEMO GDU_SCREEN$ ";1,0;"PULSA ""0"" PARA DISPARAR ";2,0;"PULSA ""ENTER"" PARA SALIR" 54,0;"********************************" (8,12 ;" " 2f=19 6553560< F8C1:300066u,23670v\:300077u,23671w\ PO4;"]SEGUNDA CLAVE? (0-65535) ";C2:C2<0C2>6553580P Z8C2:300088u,23670v\:300099u,23671w\ dn#0;3;"INSERTA EL DISCO A ";("DES"A$="D");"PROTEGER"'"EN EL DRIVE A Y PULSA UNA TECLA":0 n:#0;"MODIFICANDO PISTA ";:BC=300000u::BC#0;2;"ERROR EN DISCO";23681\'"PULSA UNA TECLA":0:40( xQ#0;6;"OPERACIONES TERMINADAS"'"PULSA UNA TECLA":0:40( PROT.BIN E0uKGBuPvsu!uvuuu*6u[8u:\(|c_}jW"6uS8uS@u*\*\Ju"\"\!c-v!y*6u[8u~w# x [@u!f-v[@u>( 7{*>uuN+--C:uN#F#Cv:\[˧2\[yK:u:\[2\[y"Bv !y!uvucu$$!=v~# x !u"6\!xRq#ɤMU128K.BAS 9a$="Y1T100O2(((1CCg$b))(($E$E$b$D))((FFC$E))((GGDF))))" b$="Y2O5N&&&&C$bfG)" Ec$="Y3O4((3C&)C&1CCDD(3$E&)$E&1$E$EEE(3F&)F&1FF$G$G(3G&)G&1GG$EC))" (d$="Y4N9&&&&&&&&(9EGF7b5CD))" 2 a$,b$,c$,d$ 7RANA.BAS   * PROGRAMA 2 * 80 P:DEFIN.GRAF. 210:INICIALIZAC (130:CALC.FUERZA 2270:SALTO < 40( F RUTINAS PDEFINICION DE GRAFICOS Z@:A=14:A$:B=07:C:A$+B,C:B:A: dO"A" ,568,108l,123{,255,255,0,0,0 nK"B",6,9 ,31,38&,200,16,96`,0 xL"C",0,24,36$,60<,24,36$,66B,36$ }U"D",128,128,128,128,128,128,128,128  CALCULO DE FUERZA FUERZA=0 W0,0;5;" ";4;" ";3;" ";2;" ";0;"" " "160 FUERZA=FUERZA+1:" " xFUERZA>60<0,0;5;" ";4;" ";3;" ";2;" ";0;"":FUERZA=0 58;FUERZA,168:8;0,7 170  INICIALIZACION 1:1:7: 6;5,7;"";5,11 ;"";5,13 ;"";5,16;"";5,20;"";5,22;"";5,25;"" C1=7 4 ;4,C1;""   RUTINA DE SALTO 'LONGITUD=((FUERZA+8)/16) "4,C1;" " ,Y=C1C1+LONGITUD 1!4;3,Y-2;" " 6!4;3,Y-1;"" @Y=26390 :FIN J 3:Y T!C1=C1+LONGITUD:3,C1;" " Y"4;3,C1-1;" " ^4;4,C1;"" hTEST DE CAIDA r#(5,C1)140: | FIN <8,0;" BIEN HECHO,PULSA UNA TECLA":0: ZZcADuerz<ANIMACION2  * PROGRAMA 3 *  0 "]NIVEL?(1-3)";N ("V=10 :D=0:A=0 2120x:AVANCE <,23560\ɯ"M"V=V-1V:502 F V=V+2 P120x:AVANCE Z*23560\ɯ"N"V=V-1:80P d V=V+2 n 502 x AVANCE 0,0;V, D=D+V )D/300,>254210:GANAR 'D/300,,80P:0,8 A>254240 A=A+(.3*N) A,502:0,8  GANAR 44,0;"BIEN HECHO FORASTERO HAS GANADO" 260 PERDER ,4,0;"OTRA VEZ SERA FORASTERO"  INICIALIZAR "]OTRA VEZ?(S/N)";A$ A$(1)="S" "A$( 1)="N" , 270 n}Lvda=fANANIMACION4Z\  * programa 4 * 100 d:DEFI.AVION  MOVIMIENTO (C1=16:C2=C1 20,C1;"" <I$= F=I$="O"C2=C1-(C1>0):0,C1;" ";0,C2;"" P>I$="P"C2=C1+(C1<31):0,C1;" ";0,C2;"" ZC1=C2:60< dDEFINICION DE AVION n@:A=12:A$:B=07:C:A$+B,C:B:A: xQ"A",480,152,204,123{,126~,12 ,24,480 O"B",12 ,25,513,222,126~,480,24,12 nnc AB IANIMACION5H  * PROGRAMA 5 * 120x:GRAFICOS &124|,0:0,175 ( L1=20 2.L2=L1+(="A"L1<20)-(="Q"L1>0) <2L1L2L1,15;"";L1+1,15;"" F+L2,15;"";L2+1,15;"" PYL1L2.08}# =,0:L2,15;"";L2+1,15;"":.09}8Q,10 ZL1=L2:502 d n GRAFICOS x<A=15:A$:B=07:C:A$+B,C:B:A q"A" ,8,8,62>,93],93],62>,28,28,"B",28,28,42*,42*,42*,42*,8,8,"C",8,14,579,93],93],73I,62>,28,"D",28,28,28,63?,93],73I,40(,40(,"E",8,8,8,8,8,8,8,8  xxcAEANIMACION6b_  * PROGRAMA 6 * 60<:DEFIN.AVION 90Z:INTRO.RUMBO (120x:MOVIMIENTO 2 RUTINA <DEFINICION DEL AVION F':A=07:C:"A"+A,C:A: PL144,152,248,116t,62>,240,0,0 ZINTRODUCION DEL RUMBO d;"CORDENADAS DEL RUMBO ?","LINEA=";LI;" ";"COLUMNA=";CI n LI,CI;"*" x MOVIMIENTO L1=0:C1=0 I=1LI+CI "INCL=LI/(LI+CI):INCC=CI/(LI+CI) L2=L1+INCL:C2=C1+INCC L1L2C1C2L1,C1;" " L2,C2;"" 5 L1=L2:C1=C2 I 0: Fc`(ncnc@`(0ANIMACION7  * PROGRAMA 7 * L=10 :C=10 4L=L+(*3-1):C=C+(*3-1) (L-1,C;" " 2 L,C;" * " <L+1,C;" " F 10 P 30 Z lcANIMACION8> * PRAGRAMA 8 *  100d  150 (N=13 2 170 < 10 FN P 30 Z *** RUTINAS *** d INICIALIZACION n 4 xL1=10 :C1=10 L1,C1;"*"  AZAR 6INCL=(*3-1):INCC=(*3-1)  MOVIMIENTO L2=L1+INCL:C2=C1+INCC L2,C2;"*" "L1L2C1C21;L1,C1;"*" L1=L2:C1=C2  ncnc(3ANIMACION9  * PROGRAMA 9 * 200:DEFIN.AVION 170:INICIALIZAC (A=135#:35 MOVI. 2100d:LECT.MOVIM. <130:MOVIMIENTO FA P Z RUTINAS dLECTURA DE MOVIMIENTOS n X1=X:Y1=Y x5VERTICAL,HORIZONTAL:Y=Y+VERTICAL:X=X+HORIZONTAL: MOVIMIENTO j220+X,175-Y:1;Y1,X1;" ";Y1+1,X1+1;" ";Y1+2,X1+2;"" L 1;Y,X;" ";Y+1,X+1;" ";Y+2,X+2;"" .01z# =,0: INICIALIZA YX=20:Y=0:Y,X;" ";Y+1,X+1;" ";Y+2,X+2;"" 230: DEFINIR AVION /22:A=07:C:"A"+A,C:A: M568,146,214,254,124|,40(,16,16 TABLA DE MOVIMIENTOS B1,0,1,0,0,-1,0,+1,0,-1,1,0,1,0,0,1,1,0,1,0,0,-1,1,0,0,-1,1,0,1,0,1,0,1,1,1,1,1,-1,1,-1,1,-1,0,-1,0,-1,0,-1,-1,0,-1,0,-1,0,0,-1,0,-1,0,-1,1,0,1,0,1,0,1,0,1,0 #(cxy  erticaorizontaANIMACIO10F   * PROGRAMA 10 * 70 F:INICIALIZA 120 x:CALCU.DIRE (200 :MOVIMIENTO 2 30 < *** RUTINAS *** F INCIALIZA P270:LM,CM ZLA1=10 :CA1=10 dLA1,CA1;"#" n x CALCULAR DIRECION INCL=(LM-LA1) INCC=(CM-CA1) INCL0INCC0 !LM:LM=255270:LM CM !0,0;LM;" ";CM;" "  LA2=LA1+INCL CA2=CA1+INCC LA2,CA2;"#" (LA1LA2CA1CA21;LA1,CA1;"#" CA1=CA2:LA1=LA2   TABLA DE DATOS 0,20,15,25,20,10 ,5,5,0,15,15,30,15,0,255 aancncaavANIMACIO11  * P R O G R A M A 11 * 460 :DEF.GRAFI 130 :INICIALIZA 210 :CALCU.DIR (N=1NIVEL 2260:MOV.PROT <P=120:P F330J:MOV.PER P400:TEST.CAPT ZCAPT430:FIN dN n 30 x*** RUTINAS *** INICIALIZA NIVEL=10 CAPT=0 LP1=15:CP1=15 LA1=0:CA1=0 LP1,CP1;"" LA1,CA1;""  CALC.DIR INCL=(LP1-LA1) INCC=(CP1-CA1) "NIVEL=(LP1+CP1-LA1-CA1)/2   MOV.PROT LP2=LP1+(="A")-(="Q") CP2=CP1+(="P")-(="O") "LP2,CP2;"" ,(LP1LP2CP1CP21;LP1,CP1;"" 6LP1=LP2:CP1=CP2 @ J MOV.PERS TLA2=LA1+INCL ^CA2=CA1+INCC hLA2,CA2;"" r(LA1LA2CA1CA21;LA1,CA1;"" |LA1=LA2:CA1=CA2  TEST DE CAPTURA LP1=LA1CP1=CA1CAPT=1  FIN 1;LA2,CA2;"" 0:0: DEFINIR GRAFICOS I480:A=12:A$:B=07:C:A$+B,C:B:A: P"A",144,152,248,116t,62>,240,0,0 O"B",24,60<,24,255,24,60<,36$,102f cfABiveappp a a ncnc(pp <a a 7SOUINT.BAS  ;p(5):par=1:cur=5:23658j\,0  900 9s(lt,i,l,ti,c,t,ic,v)i,cv)=c,v=65v)=65250 a$= a$="q"100d (a$="a"200 2a$="p"ip=5:300, 7 a$=""""ip=1:300, <a$="o"ip=5:400 Aa$=";"ip=1:400 Fa$="m"500 P 20 dCURSOR ARRIBA nccur,9 ;" ";cur,22;" ":cur=cur-(2cur=13 )+(12 cur=5)-2 x'par=par+(5par=1)-1 6cur,9 ;2;1;">";cur,22;"<"  CURSOR ABAJO bcur,9 ;" ";cur,22;" ":cur=cur+(2cur=9 )-(12 cur=5)+2 'par=par-(5par=5)+1 6cur,9 ;2;1;">";cur,22;"<"  ,INCREMENTAR PARAMETROS 6Hn=p(par):n=(n+ip)*(n+ip255):cur,20-n;" ";n:p(par)=n @Opar =3n2=n-(256n>127):cur+2,20-n2;" ";n2 J DECREMENTAR PRAMETROS _n=p(par):n=(n-ip)*(n-ip0)+(255n-ip<0):cur,20-n;" ";n:p(par)=n Opar =3n2=n-(256n>127):cur+2,20-n2;" ";n2   SONIDO" ""510 <s(p(1),p(2),p(3),p(4),p(5))  con=3 &1;19,13 ;"" &%""19,13 ;" ": 03con=con-1:530+(20con0)  PANTALLA 6:6:0::0,7;1;1;"EDITOR DE SONIDOS.";0;2,7;"J. M. Medina 1987." E1:7:f=416:f,10 ;" ":f E:f=5152:f=11 11 ,20;"0":f a$:f,11 ;a$;": 0":f )"LONG.","TONO ","INCR.","CADA ","DUR. " 21,2;2;7;1;"PULSA ~m~ PARA OIR EL SONIDO";6;5,9 ;">";5,22;"<" 8:8: INZIALIZACION '65249:""65250,166 !65406~:activa la rutina.  #65413:desactiva la rutina "" zORGANO V7 u^u^SOUINT.BINH* \####x~>#= !xF(3:H\^FH y5N q NqNwM/uv>G^VɏMU128K.BASPa$="O5V14T140N6#D5#C3#ab5#C3#ab5#C3b#a5#gt145N3#D#D4#C1b3#ab5#C3#ab5#C3b#a5#g" Jb$="O5V14T140N6#g(5#a3g#g)5#a3#gg5#gT145N3bb4#a1#g3g#g5#a3g#g5#a3#gg5#g" (c$="O3V13T140N6#g(3#D#a" 2Ye$="O5V14T150N5#g(5#a3g#g)5#a3#gg5#gT155N3bb4#a1#g3g#g5#a3g#g5#a3#gg5#g6&V15N6#CV13N3E" 3, 4;2;6;" VALS LENTO - DELIVES " *a=1100d:n,d:n/4,d:a (1,9 ,1,12 ,4,17,1,19,1,16,4,14,1,16,1,12 ,2,9 ,2,7,2,5,2,9 ,2,60<,1,9 ,1,12 ,4,17,1,19,1,16,4,14,1,16,1,12 ,2,10 ,2,9 ,2,7,2,10 ,2,60<,1,9 ,1,10 2|4,17,1,16,1,15,2,14,2,60<,1,4,1,7,4,14,1,13 ,1,12 ,2,10 ,2,60<,1,0,1,4,4,7,1,0,1,4,4,8,1,0,1,4,6,9 ,2,5,2,60< <1,9 ,1,12 ,4,17,1,19,1,16,4,14,1,16,1,12 ,2,9 ,2,7,2,5,2,9 ,2,60<,1,9 ,1,12 ,4,17,1,19,1,16,4,14,1,16,1,12 ,2,10 ,2,9 ,2,7,2,10 ,2,60<,1,9 ,1,10 F_4,22,1,21,1,20,4,19,1,9 ,1,10 ,4,21,1,20,1,19,2,17,2,60<,1,9 ,1,12 ,4,9 ,1,8,1,12 ,2,8,2,60<,1,7,1,12 ,8,5 DUELO.BAS    !velene=(*100d+100d) "DUELO ENTRE PIRATAS" v=(*11 -5) (s=(*3+1) 2(s)>128230 <0,0 F"tu estas "; Ps<0"detras " Zs>0"delante " ds=0"igualado" n"tu estas llendo "; x v>0"mas rapido " v<0"mas lento " v=0"a igual velocidad" "v=";velene+v*10 , s<8"d=";s;" " i$= i$ ="q"v=v+1 i$="a"v=v-1 i$=" "s=0250 "s=0<.3320@ s=s+v 5,16;"+-" 56,0,,6, s/8+16;">-" 502 ''"LE HAS PERDIDO DE VISTA" 330J v<2290" .01z# =,0 "<.2~L260 ,"LE DERIBASTE" 6 330J @''"EL DISPARO PRIMERO" J+a=1502:a:0:0: ELIZA.BAS ' ''  doctor B0 :0:0:7:0:0:0: (690:INICIALIZA 28:6;1;"--------------------------------" <'23658j\,200:">";:x$:x$' FX$=""502 P Z,x$=z$"POR FAVOR,NO TE REPITAS":502 dZ$=X$:X$=" "+X$+" " n9X$(6)=" ADIOS""#ADIOS,ESPERO VERTE DE NUEVO": x* BUSQUEDA DE "MI " * a=1̱x$-2 "x$(aa+2)="MI "160 a:170 5T$=x$ (a+3):2910^ :K$=T$(̱T$-1) /**BUSQUEDA DE PALABRAS CLAVES DENTRO DE X$ ** "#"; A=1LONP T$=Q$(A):2910^ X$.73333K$=""  502 *********************** *** INICIALIZACION ****   >''"HOLA,ESPERA UN MOMENTO"'"QUE AHORA NO PUEDO ATENDERTE..." k$="":z$="":S=0 lonc=15:lonp=502 Ic$(lonc,2,10 ):q$(lonp,18):p$(lonp,3,80P) 870f:a=1lonc c$(a,1),c$(a,2)  a 910:a=1lonp  1q$(a),p$(a,1),p$(a,2),p$(a,3) *a 4,'"BUENO,YA HE ACABADO"'"HOLA,SOY ELIZA..." > H *********** R ** DATOS ** \1** CONGUGACIONES **(UN ESPACIO DELANTE SIEMPRE) f4" SOY"," ES"," YO"," TU"," MI"," SU"," MIS"," SUS" p8" TIENE"," TENGO"," SU"," MI"," ES"," SOY"," ME"," LE" zc" SUYO"," MIO"," SUS"," MIS"," USTED"," YO"," LE"," ME"," MIO"," SUYO"," ESTOY"," ESTA","TU","YO" (PALABRAS CLAVE/FRASES DE RESPUESTA 1/3 " NECESITO " "POR QUE NECESITAS*" /"SERIA REALMENTE PROVECHOSO SI CONSIGUIERAS*" !"ESTA SEGURO DE QUE NECESITAS*" " POR QUE NO " "PIENSAS REALMENTE QUE NO*" "QUIZA FINALMENTE *" "REALMENTE QUIERES QUE*" " POR QUE NO PUEDO " "CREES QUE SERIAS CAPAZ DE*" "POR QUE NO PUEDES*" *"QUIZA NO LO HAYAS INTENTADO SUFICIENTE" " ES USTED " 2"POR QUE ESTAS INTERESADO EN SAVER SI SOY O NO*" "ME PREFERIRIAS SI NO FUERA*" $&"QUIZA ALGUNAS VECES SUENE QUE SOY*" ." NO PUEDO " 8"COMO SABES QUE PUEDES*" B"]LO HAS INTENTADO?" L"QUIZA,AHORA,PUEDAS" V" YO ESTOY " `"ACUDISTE A MI PORQUE ESTAS*" j"CUANTO TIEMPO HAS ESTADO*" t"CREES QUE ES NORMAL ESTAR*" ~ " SOY " "DISFRUTAS SIENDO*" "POR QUE ME DICES QUE ERES*" "POR QUE ERES*"  " QUIERO "  "QUE SIGNIFICARIA PARA TI SI*" "POR QUE QUIEREAS*" 0"QUE SIGNIFICARIA EN TU VIDA SI CONSIGUIERAS*"  "]QUE " "]POR QUE PREGUNTAS ESO?" $"]QUE RESPONDERIAS PARA AYUDARTE?" "]TU QUE PIENSAS?"  "]COMO " "]COMO AREGLARIAS ESO?"  3"LO MEJOR SERIA QUE RESPONDIESES HA ESO TU MISMO" /"]QUE ES LO QUE REALMENTE ESTAS PREGUNTANDO?"  "]QUIEN " (&"]TE HACES A MENUDO ESAS PREGUNTAS?" 2("]QUE RESPUESTA LE DEJARIA TRANQUILO?" <"QUIEN CREES QUE*" F "]DONDE " P("ESA ES UNA PREGUNTA BASTANTE INGENUA" Z%"]NECESITAS REALMENTE SABER DONDE?" d0"QUE SUPONDRIA PARA TI SI YO LE DIJERA DONDE*" n "]CUANDO " x"COMO PODRIAS SABER CUANDO*" 1"NO ESTAMOS AQUI PARA DISCUTIR SOBRE EL TIEMPO" ?"LAS COSAS SUELEN OCURIR CASI SIEMPRE EN EL MOMENTO OPORTUNO"  "]POR QUE " 6"POR QUE NO ME DICES LA VERDADERA RAZON POR LA QUE*" C"QUE ES LO QUE HAS DICHO QUE TE AYUDARIA A DECIRTE SOBRE PORQUE*" &"NECESITAS REALMENTE SABER POR QUE*"  " PORQUE " "]ES ESA LA VERDADERA RAZON?" !"]QUE OTRAS RAZONES RECUERDAS?"  "]QUE MAS PUEDE EXPLICAR ESO?" " LO SIENTO " -"]EN QUE OTRAS CIRCUSTANCIAS TE DISCULPAS?" ?"HAY MUCHAS OCASIONES EN LAS QUE NO ES NECESARIO DISCULPARSE" ="]QUE SENSACION EXPERIMENTAS CUANDO TIENES QUE DISCULPARTE"  " HOLA " "HOLA... ME ALEGRO DE VERTE" "7"HOLA ME ALEGRO DE QUE TE HAYAS DEJADO CAER POR AQUI" ,:"]COMO ESTAS?...TENIA GANAS DE QUE CHARLASEMOS DE NUEVO" 6 "[OIGA!" @#"ME ALEGRO DE VERTE HOY POR AQUI" JN"ME ALEGRO DE QUE HAYAS VENIDE TENEMOS UN MONTON DE COSAS DE LAS QUE HABLAR" TD"ATIENDEME AHORA.RELAGATE...Y HABLEMOS UN POCO SOBRE TU SITUACION" ^" PUEDE SER " h"PARECES VACILAR UN POCO" r"PARECES BASTANTE INDECISO" |4"]EN QUE OTRAS CIRCUSTANCIAS TE MUESTRA INDECISO?" " NO " /"]POR QUE TE MUESTRAS TAN NEGATIVO SOBRE ESO" -"ESTAS DICIENDO QUE ESO NO ES SER NEGATIVO" 1"ERES BASTANTE INPULSIVO.]QUE LE SUGUIERE ESO?"  " SIEMPRE " &"POR FAVOR,DAME UN EJEMPLO CONCRETO" 5"NO TE PARECE QUE ""SIEMPRE"" ES UN POCO EXAGERADO"  "]CUANDO?"  " CREO "  "DUDAS*" "]PIENSAS REALMENTE ESO?" "PERO NO ESTAS SEGURO*"  " AMIGO " /"]POR QUE TOCAS AHORA EL TEMA DE LOS AMIGOS?" *"]CUAL ES TU MEJOR RECUERDO DE UN AMIGO" #"HABLAME MAS DE TUS AMISTADES..." & " AMIGOS " 09"]EN QUE MODO TE AFECTAN LAS TUS AMIGOS?" :D"]QUE TE HIZO COMENZAR A HABLAR DE LOS AMIGOS,PRECISAMENTE AHORA?" D0"]DE QUE MODO TE AYUDAN O ENGA\AN TUS AMIGOS?" N" SI " X%"]CAMBIARIAS ALGO SI NO FUESE ASI?" b"ERES BASTANTE POSITIVO" l"PARECES MUY SEGURO DE QUE*" v" ORDENADOR " E"]QUE ES LO QUE SIENTES SENTADO HAY HABLADOME COMO HA UNA PERSONA?" &"]LO PIENSA SOBRE MI EN PARTICULAR?" 6"]QUE ASPECTOS DE LOS ORDENADORES TE INTERESAN MAS?"  " ESTOY " "PIENSAS QUE ESTAS*" ""EN QUE CIRCUSTANCIAS ESTARIAS*" "BIEN PODRIAS NO ESTAR*" " ES " 5"QUE GRADO DE CERTEZA DEPOSITARIAS EN ELLO SIENDO*" "ESTAS SEGURO DE QUE ES*" I"QUE SENSACIONES EXPERIMENTARIAS SI TE DIGERA QUE,PROBABLEMENTE NO ES*"  " PUEDES " !"QUE TE HACE PENSAR QUE PUEDO*" "NO PIENSAS QUE PUEDO*"  )"QUIZA TE GUSTARIA QUE FUERA CAPAZ DE*"  " PUEDO "  "TAL VEZ NO QUIERAS*" *"TE GUSTARIA SER CAPAZ DE*" 4 "LO DUDO" > " SOY " H"POR QUE PIENSAS QUE ERES*" R "TE COMPLACE CREER Q8UE ERES*" \"TAL VEZ TE GUSTARIA SER*" f " ESTA " p"POR QUE PIENSAS QUE ESTOY*" z "TE COMPLACE CREER QUE ESTOY*" "POR QUE DICES QUE ESTOY*"  " YO NO " "REALMENTE NO*" "POR QUE NO*" "TE GUSTARIA SER CAPAZ DE*" " ME SIENTO " '"HABLAME MAS SOBRE ESOS SEMTIMIENTOS" "SIENTES A MENUDO QUE*" "DISFRUTAS SINTIENDOSE*"  " SIENTO " 6"VAMOS HA EXAMINAR ESA AFIRMACION MAS DETENIDAMENTE" '"]TE SIENTE NORMALMENTE DE ESE MODO?" 3"]QUE EMOCIONES TE DESPIERTAN ESOS SENTIMIENTOS?"  " TENGO "  "POR QUE ME DICES QUE TIENES*" ""PARA MI ESTA CLARO QUE TIENES*" $"COMO PODRIA AYUDARLE CON*" . " PODRIA " 8'"PODRIAS EXPLICARME POR QUE PODRIAS*" B)"A QUIEN MAS LE HAS DICHO QUE PODRIAS*" L("QUE SEGURIDAD TIENES DE QUE PODRIAS*" V " HAY " `"POR SUPUESTO QUE HAY*" j"ES COMO SI HUBIERA*" t"TE GUSTARIA QUE HUBIERA*" ~" MI " "SU*" "YA VEO,SU*" $"QUE SIGNIFICA PARA USTED QUE SU*" " TU " 3"ESTA SESION ES PARA AYUDARLE...NO PARA DISCUTIR" )"]QUE TE INPULSO A DECIR ESO SOBRE MI?" B"RECUERDA QUE ANOTO TODO CUANTO DICES,PARA LUEGO PODER AYUDARTE" " YO" "REALMENTE*" "POR QUE*" "CREES DE VERDAD QUE*" " COMO " "COMO CREE USTED QUE ES" "EN VERDAD CREE QUE*" "QUE PASARIA SI NO FUESE ASI"  " DONDE " ("ESTAS SEGURO" 2"Y SI NO TE CREYERA" <)"ESO ES ALGO QUE NO TE PUEDO RESPONDER" F " CUANDO " P#"SIEMPRE HAY UNA EPOCA PARA TODO" Z!"AHORA,NUNCA,SOLO DIOS LO SABE" d&"ES ALGO A LO QUE NO SE RESPONDERTE" n " QUE " x"EN VERDAD CREES QUE ESO EN*" "ESTAS SEGURO DE QUE*" ""ESO ES ALGO QUE ME CUESTA CREE" " DIOS " "CREES EN DIOS" "QUE TE HACE CREEN QUE DIOS*" "HAY MAS DIOSES PARA TI" " OSCENO " &"A QUE TE REFIERE CON QUE ES OSCENO" +"HAY MUCHO TABU SOBRE ESO,QUE PIENSAS TU" "PIENSAS HA MENUDO EN EL SEXO" " JUEGO " $"QUE CLASE DE JUEGOS TE GUSTA MAS" "HABLAME MAS SOBRE ESE JUEGO*" 6"CREE QUE EL JUEGO ES UN VICIO Y COMO TAL CREA MONO"  " AMOR"  "]CREES DE VERDAD EN EL AMOR?" "Y"AMOR,ESA ES UNA SENSACION QUE NO PUEDO ESPERIMENTAR,PERO QUE DEVE SER MUY INTERESANTE" ,/"Y HASTA QUE PUNTO ES VERDAD ESE SENTIMIENTO" 6"SEXO" @-"ESA ES UNA PARTE DEL AMOR MUY INTERESANTE" J"]TE PARECE BIEN EL SEXO?" T "]INFLUYE EN TU VIDA EL SEXO?" ^Z=T$1-1 hT$(Z)=" "Z rT$=T$(Z+1) | Z=X$̱T$ X$=X$+" " Z  ':"ELIZA.BAS"10 forth )#@^P+#`&̼>X AfμFφֽ(Æ FҼFV2ؽ`0vhQؽ PS^"TмFF(*ڼ,G=&F5FFDмؽPVS1PS,TмVVVVDнFFFؽdTмFؽ Xâaʿʿ{ʾBԼنֽ PRx迣5]~@>F&5]@,aB 365o,BԼp &5o8'ּFfABֽҿ|=VF9|Q,N@,9;ؼF9|PNA,ؼ,9ؽd Đ ~BB&\& NvbPaؽTbÊσּBR.`3A ^BrF"0pC#0@| R/R`'O?` Kڄ0Oڄ`6'zAŃ˫ؽJHφֽjhφֽZXφֽ BsֽC*ú ؽPTнֽB@lúDнؽw\”TмFFDнؽ TмFFFؽ}âTмVVDнؽ|TмFFDнؽda{0JhB@GֽaynÆؽ\ĈdžֽvĢˆֽdľãˆԽWBâFؽ ţVؽ$¼FؽBLֽe4^FFFVVVؽCPŊâFؽC~ŨâؽeCâFGFؽu ,̢" Ɇ6TмVVDм&ؽw ǀ̐`ΐ, ƐP `$'ּFؽf |'ؽ |'ּ,3ֽ`ƐcƐeƐg Ɛ0Ɛ@_@Ɛƀ RƐ fƐ ^~Ɛ ^ƐV a a $ :!T%Zj)z-159 =AE I(M>QRUdYGv]acW ǎeW (ǎ t Đ tĐY Ɇ( ʐX ɤ ʐZˣdžԽ . JZJ ƞrĐj ƄLŎL>ĚrjĐ " Đ fʐ (fʐ$ fʐ@ Ǧ Bl ÂɆĐ ~ ƄrBjĐ ~ 8 F"̐ ~ 8 $̐ ~ f&̐~H  f(̐~r Ƣ F,̐ ž $ʐà 8ɆĐ 8ɆĐ . @ĐN LɆĐx LɆĐPvR x0͆ĐÊv ǀ`ΐx |Ɛ }$ x͆TмVVDм'֜FGֽ H ƞŴȄ>Đ xr0LŎ„(`>BjĐZ ƞ(LLŎf>JfrB f˜P\ER 8æΞŴÎΐÄ]D D8 r(̎ў>Ŵ Bɦΐ LŎL( ĂrTjĞ`ʞ(fˎr^^BdBPrjJB``Ɇ9jĐ   &ƲɆĐà Ƣ rTƢƲɆĢ žf˘Fr,jB jĐFbP $&1탆ؽ Ґ JҐ Ť ŤĐ: l Ƣ r ZB  IJ Ŏ„xD*ҲLf8ɤŎɴrPS ǴȞ>L ĈrXL Ğj:L Ğ^ Ŵr^B * :ʞŴ>ZʞÎ^Ɇ@Ԟ>Jfr,>\fBjrĐ Z JǞ 侞Frj侐PSv ưڐ N lrɦΎ~A&¢ xr ĄV] x@ҞxLfx҄rxӦ>Ŏfʞ ņZʐ X džr jLdZȞ>4 ݴ ʞ@f$" ņ$ʐÒ džFj0$ʐÎ 8 r$ʐÐ 8 r֐ ~  Ą̐D džr<8 Ěr0$B 0$VB8^ Ŵr B jVB Đ: 8@$" 0$Ȑ $ʐɆXɆĐÊjpA   "ɆĐÃQ RҐ, ƢɆhXҶ8 FrB H &°VnXZ@b\bX@tbrpfXVBۺT̼TؽT P|dԹ^dۺT̼TؽF PnĤ̽  r نİZ}&ݢBPWԽWZ lrWZ@ lrĐb ƞJܐ ƞnܐ ƺrjĐ ƺĚrjĐT ƺ’܄Ēܞnܐ_ L°8’ 8J܄J܄ĐUN "jĐ^ "Xܐ_ ܄jĐ jĐ T^ "XܐU^ "ބjĐ ^: 8 „  PRX "þǤݎZ \ Ʀ(ΐ N r<xr( žfZB @FAË>BpX0t@Gּ|,|%|^du߮|tNQ @,BԸ|\Cߖ@l1l1@,|B\N@ tԸ1|e1w@|@|@|@|@|@|@|JaL|%||A|ּË|-tNP-}eؽ|,|tNP ,|}eؽb FvV žŎƂr jvƞń fʐ DŽ  ņĐZ vǎLfӎv(``0 ɆĐ n Ğòrn8 lr(88 :8Æ8ÄȐ ŎÄ Ğ 8fʞŎrhFr(j88:(fʞ 8fʞŎFrńjȐJ _ æǤž& rŦr . ǜ(jŜ ƞƂ̢ ² ƲɆžǤܢɆĶ²Ɇ¢ɆĐÆZ[| ǺƲɆžƢ LfʢĐÃO@ džFj֐ f$ʐÊ ƐÊ (ZLfʄņĐÈ Ä* (8ƐÈD 8Z͜ÊVf 8ZÊ ZrÆ Ê ZBÌ (fÄ, r$(ƐÈf (ZB$ʄ((ƐÊ pȐ xr(Z˜yG xӤɆĐG|4 jjŤ xLfʐR :lrZHҐF L h:LĚr`HҐG ƺLLżFr] „Lİ>\Lfΐ]4 "@]| @Zʐ] "ݨ ] Ǩ Ɇ >frXɆĞdx ĞF>rjĐ ưXɆĎ @FA (X`Z` >rÜXHNP|dؽ6r|-|-ؽ\b Ǝhp@@@@@@@AV@@@@@@@AV@A PS&ËBCd蹚Ãؽfu`PؽV ^Ǵ*Ӟx^Ǵr~ ƞ. ĦjĐ " Ɩ"  (" dB jjĐ dd :: fʐ fʐ "  f0͌d *̞LtɆ " ņĐ nȄ(X`8džZ`>rÜ r n88Ǥ8LŎ„(X`>rÜÌp@D 6 ƞžܞɆĎ @F@^^Ǥ:ZX^X>fHVڐF ǒ ^ܐ F ĐF& 6Î^fʐ ZJ ^r| xӴ^ƞxӤr ^* ƞf(``Ȍ ƞĬ:(``D ǒXZ6XjĐ ƞ^ǤݒɆĞĬǘ İǘ xӴȄČ0 ƌ8P ƞ8l ǒɆĐ Ɇ (` ǾǤ Ŏ„žǤݾLŎ„(`Z(fˆŴ㜽jĖ Z ƄxrTLŎ„(>`>frF¾BɜB jF b ºÔLŎ„(`rr4tf`fƄƾÜtF„Đ b XxӦĐ~  Ěr$x^ǴrԎr X8fX8Ò6„r* Ƽǘj ƌr x>Ø ƌx>ǘ 6ƌF6„fǘ ƌxӦX:L8Ò8fž8r6rrǘ\ؽ ֽ Խ"ÊLˆؽPãؽ >~ãʖpKV4L߻Èؽh ƒܞ>rtBDĒܞ*rtB, >Ê.Eؽ (fã˛jÃؽ R ƒܞrjBr4">"jBr4>pjB>">">ĐãʖK(@"jBr4>jBt>">">Đ ` r0>B(>Đ r0>B(>~Đ r,">(Ǽ"B(">"Đ~ r0">"B(">"Đ FO^TмFFFؽvTмFFFFFؽd `ɾ 'FFFVVVؽd 'ؽ]" @ dP ǔԐt jАãʖd@``EÃؽbFcF$F:FT >ĞƄ.fʞĒ:>ĞƄfʞĒ:žlr$Ƅ8hBƄ8hHjĞlr$Ƅ8hBƄ8hbjô( . ZHZŨ.ZbZŨ.ŜÈn ͂ ĢÄ ZL̂r$j Ê ZB$ʄ(Îi Zj ĂFr(BɆĐ -@<` *fLֽZ W*Ґ_ Đ COMP @x """ @@@brpd@@@@@@@@@@@@@@@@@N@N@|DE^uDE^ububunuudfljpԸXpu&D@Edx " @@hrbjd@ "@@@@@@@@@@@@@@@@@ "  VIRUS.FUE \  LIST + ORG #3AFF DEFW INT_1 ACT LD A,#3A LD I,A IM 2 RET DES LD A,#3F LD I,A IM 1 RET INT_1 RST #08 PUSH AF LD A,(FRAMES+1) AND 1 JR NZ,FIN LD A,(FRAMES) AND 7 JR Z,SIGUE FIN POP AF RETI SIGUE PUSH BC PUSH HL LD BC,POS CALL CDIR CALL IMPRI LD BC,(POS) LD A,(DIR) LD H,A DER LD A,C BIT 0,H JR NZ,IZQ INC A CP 32 JR NZ,ARI DEC A SET 0,H JR ARI IZQ DEC A CP 255 JR NZ,ARI INC A RES 0,H ARI LD C,A LD A,B BIT 1,H JR NZ,ABA DEC A CP 255 JR NZ,IMPO INC A SET 1,H JR IMPO ABA INC A CP 22 JR NZ,IMPO DEC A RES 1,H IMPO LD B,A LD A,H LD (DIR),A LD (POS),BC CALL CDIR CALL IMPRIO POP HL POP BC POP AF RETI CDIR LD A,B AND %00011000 OR %01000000 LD H,A LD A,B AND 7 RRCA RRCA RRCA LD L,A LD A,C AND %00011111 OR L LD A,L RET IMPRIO LD (HL),0 INC H LD (HL),%00111100 INC H LD B,4 LOOP1 LD (HL),%01000010 INC H DJNZ LOOP1 LD (HL),%00111100 INC H LD (HL),0 RET IMPRI LD B,8 LOOP2 LD (HL),0 INC H DJNZ LOOP2 RET POS DEFB 21 DEFB 0 DIR DEFB 0 FRAMES EQU 23672 VIRUS.BIN 2 >G^>?GV:y\ :x\(Mx͞K:gyD < == <˄OxL = << =ˌG|2Cx͋Mx@gxoy}6$6<$6B$6<$66$VIRUS2.FUE\ / LIST + ORG 60000 INI HALT PUSH AF LD A,(FRAMES+1) AND 1 JR NZ,FIN LD A,(FRAMES) AND 7 JR Z,SIGUE FIN POP AF JR INI SIGUE PUSH BC PUSH HL LD BC,POS CALL CDIR CALL IMPRI LD BC,(POS) LD A,(DIR) LD H,A DER LD A,C BIT 0,H JR NZ,IZQ INC A CP 32 JR NZ,ARI DEC A SET 0,H JR ARI IZQ DEC A CP 255 JR NZ,ARI INC A RES 0,H ARI LD C,A LD A,B BIT 1,H JR NZ,ABA DEC A CP 255 JR NZ,IMPO INC A SET 1,H JR IMPO ABA INC A CP 22 JR NZ,IMPO DEC A RES 1,H IMPO LD B,A LD A,H LD (DIR),A LD (POS),BC CALL CDIR CALL IMPRIO POP HL POP BC POP AF JP INI CDIR LD A,B AND %00011000 OR %01000000 LD H,A LD A,B AND 7 RRCA RRCA RRCA LD L,A LD A,C AND %00011111 OR L LD A,L RET IMPRIO LD (HL),0 INC H LD (HL),%00111100 INC H LD B,4 LOOP1 LD (HL),%01000010 INC H DJNZ LOOP1 LD (HL),%00111100 INC H LD (HL),0 RET IMPRI LD B,8 LOOP2 LD (HL),0 INC H DJNZ LOOP2 RET POS DEFB 21 DEFB 0 DIR DEFB 0 FRAMES EQU 23672 VIRUS.BIN `2 -v:y\ :x\(K:gyD < == <˄OxL = << =ˌG|2C`x@gxoy}6$6<$6B$6<$66$racing "2 ?  0:  i=8 0:7:0:  9000(#  3 !9 ,12 ;"R A C I N G"  7 w12 ,3;"";13 ,4;"";14,3;"";15,3;"";16,3;"" 9 ,25;"" !21,31;6;"" ^ 12 ,10 ;4;"Por:Eloy Lafuente p."; 14,15 ;"Alfredo Sandin R." Z19,3;5;"PULSA J PARA JUGAR";21,8;" I PARA ISTRUCIONES."  ="j" 491  ="" 28  ="i" 35#  "i" Ŧ"j"27 # )  s$="TU MISION ES CONSEGIR PASAR TO--DA LA PISTA ESQUIVANDO LAS MAN- -CHAS Y A LAS PERSONAS QUE SALEN DE ENTRE EL PUBLICO. CADA VEZ -QUE CONSIGAS LLEGAR A LA META , - SE TE DEVOLVERA/AN LA/AS VIDA/AS QUE SE TE QUITO/ARON CUANDO -PILLASTE A UN PEATON, PISASTE U- -NA MANCHA O TE SALISTE DE LA PISTA. PARA PASARLA POSEES TRES VI-DAS.UTILIZA LA SIGUIENTES TE--CLAS: O : IZQUIERDA P : DERECHA PULSA UNA TECLA" * n=1  s$ +/ 4: ;s$(n);:0.01z# =,(*9 ):n , 0 2 7 F 0 P V" #1;" SALIDA" b j=12 :r=0 c w=0 dC a$="":b$="":c$="":d$="":e$="":f$="":g$="" g g=3 h h=72H-j:t=502-i i x=14:y=1 jQy,x;a$;y+1,x+1;b$;y+2,x;c$;y+3,x;d$;y+4,x;e$ k 9800H& m: a:a=20#1;" META":9991' nE 21,A-5;1;"";21,a+10 ;1;"" o( w$="" q5 21,0;1;2;w$(a-5) r9 21,a+11 ;1;2;w$(a+12 ) s# 3582 :0.01z# =,20 t r=r+1 u y-1,x;" " v. (y,x-1)<32 Ʀ="o" 7000X w/ (y,x+3)<32  Ʀ="p" 7500L x| ="p" x,y;" ";y+1,x;" ";y+2,x;" ";y+3,x;" ";y+4,x;" ":et x=x+1:0.01z# =,20 ="o" y,x;" ";y+1,x;" ";y+2,x+2;" ";y+3,x+2;" ";y+4,x+2;" ":x=x-1:0.01z# =,20 R y,x;a$;y+1,x+1;b$;y+2,x;c$;y+3,x;d$;y+4,x;e$ 3 w=h21,a+6;1;"":w=0  w=w+1 : a=19 21,a-4;6;1;"" B a+10 =1621,a+7;1;5;"" (y+5,x+1)>64 @ū(y+5,x)>64 @ū(y+5,x+28)>64 @ū(y+1,x)>64 @ū(y+1,x+2)>64 @9900& t=t-1 O t=0 21,a-2;1;3;"":0:t=502-i , 109m X y,x-1;" ";y+1,x+1;" ";y+2,x-1;" ";y+3,x-1;" ";;y+4,x-1;" "  9905& ij rwgh<txyatABCDEFGW musica popsou 9a$="Y1T100O2(((1CCg$b))(($E$E$b$D))((FFC$E))((GGDF))))" b$="Y2O5N&&&&C$G)" EC$="Y3O4((3C&)C&1CCDD(3$E&)$E&1$E$EEE(3F&)F&1FF$G$G(3G&)G&1GG$EC))" (D$="Y4N9&&&&&&&&(9EGF7b5CD))" 2 a$,b$,C$,D$ A2Y1T100O2(((1CCg$b))(($E$E$b$D))((FFC$E))((GGDF))))B Y2O5N&&&&C$G)C>Y3O4((3C&)C&1CCDD(3$E&)$E&1$E$EEE(3F&)F&1FF$G$G(3G&)G&1GG$EC))DY4N9&&&&&&&&(9EGF7b5CD))RACING  0:  i=8 0:7:0:  9000(#  3 !9 ,12 ;"R A C I N G"  7 y12 ,3;"";13 ,3;"";14,3;"";15,3;"";16,3;"" 9 ,25;"" !21,31;6;"" ^ 12 ,10 ;4;"Por:Eloy Lafuente p."; 14,15 ;"Alfredo Sandin R." Z19,3;5;"PULSA J PARA JUGAR";21,8;" I PARA ISTRUCIONES."  ="j" 491  ="" 28  ="i" 35#  "i" Ŧ"j"27 # )  s$="TU MISION ES CONSEGIR PASAR TO--DA LA PISTA ESQUIVANDO LAS MAN- -CHAS Y A LAS PERSONAS QUE SALEN DE ENTRE EL PUBLICO. CADA VEZ -QUE CONSIGAS LLEGAR A LA META , - SE TE DEVOLVERA/AN LA/AS VIDA/AS QUE SE TE QUITO/ARON CUANDO -PILLASTE A UN PEATON, PISASTE U- -NA MANCHA O TE SALISTE DE LA PISTA. PARA PASARLA POSEES TRES VI-DAS.UTILIZA LA SIGUIENTES TE--CLAS: O : IZQUIERDA P : DERECHA PULSA UNA TECLA" * n=1  s$ +/ 4: ;s$(n);:0.01z# =,(*9 ):n , 0 2 7 F 0 P V" #1;" SALIDA" b j=12 :r=0 c w=0 dE a$="":b$="":c$="":d$="":e$="":f$="":g$="" g g=3 h h=72H-j:t=502-i i x=14:y=1 jQy,x;a$;y+1,x+1;b$;y+2,x;c$;y+3,x;d$;y+4,x;e$ k 9800H& m: a:a=20#1;" META":9991' nE 21,A-5;1;"";21,a+10 ;1;"" o( w$="" q5 21,0;1;2;w$(a-5) r9 21,a+11 ;1;2;w$(a+12 ) s# 3582 :0.01z# =,20 t r=r+1 u y-1,x;" " v. (y,x-1)<32 Ʀ="o" 7000X w/ (y,x+3)<32  Ʀ="p" 7500L x| ="p" x,y;" ";y+1,x;" ";y+2,x;" ";y+3,x;" ";y+4,x;" ":et x=x+1:0.01z# =,20 ="o" y,x;" ";y+1,x;" ";y+2,x+2;" ";y+3,x+2;" ";y+4,x+2;" ":x=x-1:0.01z# =,20 J y,x;a$;y+1,x;b$;y+2,x;c$;y+3,x;d$;y+4,x;e$ 3 w=h21,a+6;1;"":w=0  w=w+1 : a=19 21,a-4;6;1;"" B a+10 =1621,a+7;1;5;"" (y+5,x+1)>64 @ū(y+5,x)>64 @ū(y+5,x+28)>64 @ū(y+1,x)>64 @ū(y+1,x+2)>64 @9900& t=t-1 O t=0 21,a-2;1;3;"":0:t=502-i , 109m X y,x-1;" ";y+1,x+1;" ";y+2,x-1;" ";y+3,x-1;" ";;y+4,x-1;" "  9905& L^ y,x;" ";y+1,x;" ";y+2,x;" ";y+3,x;" ";y+4,x;" "  9905& #(31,24,138,200,231,242,242,242,255,0,0,255,0,255,255,255,248,24,80P,19,231,79O,79O,79O,242,242,4,8,17,17,17,17,255,126~,0,255,0,24,66B,36$,79O,79O,32 ,16,136,136,136,136,17,17,17,17,16,8,6,2,24,0,60<,0,255,0,0,0,136,136,136,136,8,16,96`,64@,2,2,2,2,2,25,25,24,8,24,40(,8,8,8,189,129,64@,64@,64@,64@,64@,152,152,24,24,24,7,4,7,0,0,0,195,66B,255,0,255,0,0,024,24,224,32 ,224,0,0,0,0,32 ,31,3,163,63?,31,31,568,254,198,231,254,254,240,240,31,63?,127,255,127,63?,31,4,232,248,164,168,176,184,192,0,60<,126~,219,255,189,15,165,36$,255,195,195,195,255,195,195 #+ 9000(# #-" n="a" "u"+7:a:n,a:n #2 16 &H 15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,16,16,17,17,18,18,18,18,18,17,17,17,17,17,18,19,18,17,16,15,14,13 ,12 ,11 ,10 ,10 ,11 ,12 ,13 ,13 ,13 ,13 ,14,15,16,17,17,18,19,19,19,18,17,16,15,14,13 ,12 ,11 ,10 ,10 ,11 ,12 ,13 ,13 ,13 ,13 ,14,15,16,17,17,18,19,19,19,18,17,16,15,14,14,14,13 ,13 ,13 ,12 ,11 ,10 ,10 ,10 ,11 ,11 ,11 ,12 ,12 ,13 ,14,15,16,16,17,17,18,18,18,18,18,19,19,18,18,17,17,17,17,17,16,16,16,15,15,15,14,14,14 &I 14,14,15,15,16,17,18,19,19,19,18,17,16,15,14,13 ,12 ,11 ,10 ,9 ,8,7,6,7,8,9 ,10 ,10 ,10 ,10 ,10 ,11 ,11 ,11 ,12 ,12 ,13 ,14,15,16,17,17,17,18,18 &Jz 17,16,15,14,13 ,2,11 ,10 ,9 ,8,7,6,7,8,9 ,10 ,11 ,12 ,13 ,14,15,16,17,18,19,19,19,19,18,17,16,15,14,13 ,12 ,11 ,10 ,9 ,8,7,6,7,8,8,9 ,10 ,11 ,11 ,12 ,12 ,13 ,13 ,14,14,15,15,16,16,17,17,18,18,19,19,19,19,19,18,17,16,15,14 i-#aHA  doctor A1:0:1:7:0:1:0:  1140t 8:6;1;"--------------------------------" (&23658j\,200:">";:x$:x$' 2X$=""30 < F+x$=z$"POR FAVOR,NO SE REPITA":30 P1Z$=X$:X$=X$+" " Z1X$(5)="ADIOS""ESPERO VERLE DE NUEVO": dA**BUSQUEDA DE PALABRAS CLAVES AL PRINCIPIO DE LA INTRODUCION ** n L=0 x L=L+1 NL=C$(L,1)-40( ?X$(NL-1)=C$(L,2NL)360h:SE HA ENCONTRADO L";:x$:x$' 2X$=""30 < F+x$=z$"POR FAVOR,NO SE REPITA":30 P1Z$=X$:X$=X$+" " Z1X$(5)="ADIOS""ESPERO VERLE DE NUEVO": dA**BUSQUEDA DE PALABRAS CLAVES AL PRINCIPIO DE LA INTRODUCION ** n L=0 x L=L+1 NL=C$(L,1)-40( ?X$(NL-1)=C$(L,2NL)360h:SE HA ENCONTRADO L250530 l 590N v MN=0 MN=MN+1 -Q$="MI"Q$=""K$=X$(X+3̱X$-4) eQ$=A$(MN,2̯A$(MN,1)-40()B$(MN,2̯B$(MN,1)-40();" ";:530 MN.73333K$="" ` 30 j*********************** t*** INICIALIZACION **** ~  .A$(16,20):B$(16,20) \C$(45-,16):D$(45-,16):E$(45-,16):F$(45-,16) Z$="" K$="" : L1;1;5;"EL DOCTOR ESTA EN CONSULTA...POR FAVOR ESPERE"  KK=0 KK=KK+1 A$(KK),B$(KK) .R=141-1:A$(KK,R)=" "R 'A$(KK)=(R+41))+A$(KK,19) .R=141-1:B$(KK,R)=" "R 'B$(KK)=(R+41))+B$(KK,19)  B$(KK,2)="*"1290   1250  K=0  K=K+1 C$(K),D$(K),E$(K),F$(K) -R=10 1-1:C$(K,R)=" "R !%C$(K)=(R+41))+C$(K,14) (F$(K,1)="*"1340< 2 1300 < F"BIENVENIDO A OTRA SESION" P"CON EL DOCTOR..." A5 n,"Up, doctor A1:0:1:7:0:1:0:  1140t 8:6;1;"--------------------------------" (&23658j\,200:">";:x$:x$' 2X$=""30 < F+x$=z$"POR FAVOR,NO SE REPITA":30 P1Z$=X$:X$=X$+" " Z1X$(5)="ADIOS""ESPERO VERLE DE NUEVO": dA**BUSQUEDA DE PALABRAS CLAVES AL PRINCIPIO DE LA INTRODUCION ** n L=0 x L=L+1 NL=C$(L,1)-40( ?X$(NL-1)=C$(L,2NL)360h:SE HA ENCONTRADO L250530 l 590N v MN=0 MN=MN+1 -Q$="MI"Q$=""K$=X$(X+3̱X$-4) eQ$=A$(MN,2̯A$(MN,1)-40()B$(MN,2̯B$(MN,1)-40();" ";:530 MN.73333K$="" ` 30 j*********************** t*** INICIALIZACION **** ~  .A$(16,20):B$(16,20) \C$(45-,16):D$(45-,16):E$(45-,16):F$(45-,16) Z$="" K$="" : L1;1;5;"EL DOCTOR ESTA EN CONSULTA...POR FAVOR ESPERE"  KK=0 KK=KK+1 A$(KK),B$(KK) .R=141-1:A$(KK,R)=" "R 'A$(KK)=(R+41))+A$(KK,19) .R=141-1:B$(KK,R)=" "R 'B$(KK)=(R+41))+B$(KK,19)  B$(KK,2)="*"1290   1250  K=0  K=K+1 C$(K),D$(K),E$(K),F$(K) -R=10 1-1:C$(K,R)=" "R !%C$(K)=(R+41))+C$(K,14) (F$(K,1)="*"1340< 2 1300 < F"BIENVENIDO A OTRA SESION" P"CON EL DOCTOR..." d '"HOLA..." n x ***********  ** DATOS ** ** CONGUGACIONES ** ;"SOY","ES","ERA","ERA","YO","USTED","MI","SU","MIS","SUS" 9"USTED TIENE","YO TENGO","SU","MI","ES","SOY","ME","LE" L"USTED ESTA","YO ESTOY","SUYO","MIO","USTED","MI","MI","USTED","***","***" $PALABRAS CLAVE/FRASES DE RESPUESTA  "NECESITO" "POR QUE NECESITA*" +"NO SERIA REALMENTE PROVECHOSO SI USTED*"  "ESTA SEGURO DE QUE NECESITA*" "POR QUE NO*" "PIENSA REALMENTE QUE YO NO*" "QUIZA FINALMENTE YO*" "REALMENTE QUIERE QUE YO*" "POR QUE NO PUEDO" ""CREE QUE USTED SERIA CAPAZ DE*" ""POR QUE NO PIEDE*" ,)"QUIZA NO LO HAYA INTENTADO SUFICIENTE" 6"ESTA USTED" @4"POR QUE ESTA INTERESADO EN SAVER SI YO SOY O NO*" J"LO PREFERIRIA SI NO FUERA*" T&"QUIZA ALGUNAS VECES SUENE QUE SOY*" ^ "NO PUEDO" h"COMO SABE QUE NO PUEDE*" r"]LO HA INTENTADO?" |"QUIZA,AHORA,USTED PUEDA"  "YO ESTOY" "ACUDIO A MI PORQUE ESTA*" "CUANTO TIEMPO HA ESTADO*" "CREE QUE ES NORMAL ESTAR*" "SOY" "DISFRUTA SIENDO*" "POR QUE ME DICE QUE ES*" "POR QUE ES USTED*"  "QUIERO" #"QUE SIGNIFICARIA PARA USTED SI*" "POR QUE QUIERE*" 5"QUE SIGNIFICARIA EN SU VIDA SI USTED CONSIGUIERA*" "QUE" "]POR QUE PREGUNTA ESO?" #"]QUE RESPONDERIA PARA AYUDARSE?" "]QUE PIENSA USTED?" &"COMO" 0"]COMO AREGLARIA ESO?" :5"LO MEJOR SERIA QUE RESPONDIESE HA ESO USTED MISMO" D."]QUE ES LO QUE REALMENTE ESTA PREGUNTANDO?" N "QUIEN" X%"]SE HACE A MENUDO ESAS PREGUNTAS?" b("]QUE RESPUESTA LE DEJARIA TRANQUILO?" l"QUIEN CREE USTED QUE*" v "DONDE" ("ESA ES UNA PREGUNTA BASTANTE INGENUA" $"]NECESITA REALMENTE SABER DONDE?" 3"QUE SUPONDRIA PARA USTED SI YO LE DIJERA DONDE*"  "CUANDO" "COMO PODRIA SAVER CUNADO*" 1"NO ESTAMOS AQUI PARA DISCUTIR SOBRE EL TIEMPO" ?"LAS COSAS SUELEN OCURIR CASI SIEMPRE EN EL MOMENTO OPORTUNO"  "POR QUE" 5"POR QUE NO ME DICE LA VERDADERA RAZON POR LA QUE*" ="QUE ES LO QUE HA DICHO QUE ME AYUDARIA A DECIRLE POR QUE*" %"NECESITA REALMENTE SABER POR QUE*"  "PORQUE" "]ES ESA LA VERDADERA RAZON?"  "]QUE OTRAS RAZONES RECUERDA?"  ""  "LO SIENTO"  "" *"" 4"" >"HOLA" H"" R"" \"" f "OIGA!" p"" z"" ""  "PUEDE SER" "" "" "" "NO" "" "" ""  "SIEMPRE" "" ""  "]CUANDO?" "CREO"  "DUDA*" "" $"" . "AMIGO" 8"" B"" L"" V "AMIGOS" `"" j"" t"" ~"SI" "" "" "" "ORDENADOR" "" "" "" "ESTA" "" "" "" "ES" "" "" ""  "PUEDE" ("" 2"" <"" F "PUEDO" P"" Z"" d "LO DUDO" n"SOY" x"" "" "" "ESTA" "" "" "" "YO NO" "REALMENTE NO*" "POR QUE NO*" "" "SIENTO" "" "" ""  "SIENDO" "" """ ,"" 6 "TENGO" @"" J"" T"" ^ "PODRIA" h"" r"" |"" "HAY" "" "" "" "MI" "SU*" "" "" "USTED" "" "" "" "*","*","*","*" E) +ES ,ERA .USTED +SU ,SUS 1YO TENGO +MI ,SOY +LE 1YO ESTOY ,MIO +MI .USTED E,SOY ,ERA +YO +MI ,MIS 4USTED TIENE +SU +ES +ME 3USTED ESTA -SUYO .USTED +MI ,*** -,*** 3ESTA SEGURO DE 2REALMENTE QUIE 3QUIZA NO LO HA 3QUIZA ALGUNAS 3QUIZA,AHORA,US 3CREE QUE ES NO 3POR QUE ES UST 3QUE SIGNIFICAR 3]QUE PIENSA US 3]QUE ES LO QUE 3QUIEN CREE UST 3QUE SUPONDRIA 2LAS COSAS SUEL 3NECESITA REALM ) ) ) ) ) ) 1]CUANDO? ) ) ) ) ) ) ) ) 0LO DUDO ) ) ) ) ) ) ) ) ) ) -NECESITO POR QUE NO* POR QUE NO PUEDOESTA USTED NO PUEDO YO ESTOY SOY QUIERO QUE COMO QUIEN DONDE CUANDO POR QUE PORQUE LO SIENTO HOLA OIGA! PUEDE SER NO SIEMPRE CREO AMIGO AMIGOS SI ORDENADOR ESTA ES PUEDE PUEDO SOY ESTA YO NO SIENTO SIENDO TENGO PODRIA HAY MI USTED * -POR QUE NECESITAPIENSA REALMENTECREE QUE USTED SPOR QUE ESTA INTCOMO SABE QUE NOACUDIO A MI PORQDISFRUTA SIENDO*QUE SIGNIFICARIA]POR QUE PREGUNT]COMO AREGLARIA ]SE HACE A MENUDESA ES UNA PREGUCOMO PODRIA SAVEPOR QUE NO ME DI]ES ESA LA VERDA DUDA* REALMENTE NO* SU* * -NO SERIA REALMENQUIZA FINALMENTEPOR QUE NO PIEDELO PREFERIRIA SI]LO HA INTENTADOCUANTO TIEMPO HAPOR QUE ME DICE POR QUE QUIERE* ]QUE RESPONDERIALO MEJOR SERIA Q]QUE RESPUESTA L]NECESITA REALMENO ESTAMOS AQUI QUE ES LO QUE HA]QUE OTRAS RAZON POR QUE NO* * KAk)ZNECESITO QUE ME AYUDEX5NECESITO QUE ME AYUDE ltG laDOCTORqX+0sX doctor A1:0:1:7:0:1:0: 1040:INICIALIZA (8:6;1;"--------------------------------" 2&23658j\,200:">";:x$:x$' <X$=""40( F P+x$=z$"POR FAVOR,NO SE REPITA":40( Z1Z$=X$:X$=X$+" " d1X$(5)="ADIOS""ESPERO VERLE DE NUEVO": nA**BUSQUEDA DE PALABRAS CLAVES AL PRINCIPIO DE LA INTRODUCION ** x L=0 L=L+1 NL=C$(L,1)-40( ?X$(NL-1)=C$(L,2NL)340T:SE HA ENCONTRADO L250540  600X  MN=0 MN=MN+1 -Q$="MI"K$=""K$=X$(X+3̱X$-4) eQ$=A$(MN,2̯A$(MN,1)-40()B$(MN,2̯B$(MN,1)-40();" ";:540 MN3T=1"]QUE LE SUGUIERE A USTED?":40( HGT=2"NO ESTOY SEGURO DE COMPRENDER ESO POR COMPLETO":40( RKT=3"]NO SEA TAN ESCUETO,POR FAVOR,ACLARELO UN POCO MAS":40( \/T=4"ESO ES MUY INTERESANTE":40( f:T=5"BIEN,BIEN...POR FAVOR,CONTINUE...":40( p"T=6"]POR QUE?":40( z%T=7"]Y ENTONCES?":40( BT=8"YA VEO...POR FAVOR,SIGA HABLANDO DE ELLO.":40( UTILIZACION DE MIFLAG T=(*3)+1 (T=1"HABLEMOS MAS SOBRE SU ";K$ =T=2"ANTES ME HABLO DE SU ";K$;".CUENTEME ALGO MAS." (T=3"TIENE QUE VER ALGO SU ";K$ 5T=4"] EXISTEALGUNA COMEXION CON SU ";K$;"?" HT=5"]POR QUE NO RETROCEDEMOS UN POCO Y HABLAMOS DE SU ";K$;"?" LT=6"]LE SUGUIERE QUE EXISTA ALGUNACONEXION ENTRE ESO Y SU ";K$;"?" 2T=7"]PREFERIRIA HABLAR SOBRE SU ";K$;"?" FT=8"CREO QUE EL PREOCUPARSE POR SU ";K$;" NO CONDUCE A NADA" >.73333K$=""  40( *********************** *** INICIALIZACION ****  $ ..A$(16,20):B$(16,20) 8\C$(502,16):D$(502,65A):E$(502,65A):F$(502,65A) BZ$="" LK$="" V: `_1;1;5;" EL DOCTOR ESTA EN CONSULTA... POR FAVOR ESPERE " j KK=0 tKK=KK+1 ~A$(KK),B$(KK) .R=141-1:A$(KK,R)=" "R 'A$(KK)=(R+41))+A$(KK,19) .R=141-1:B$(KK,R)=" "R 'B$(KK)=(R+41))+B$(KK,19)  B$(KK,2)="*"1220  1140t  K=0  K=K+1 C$(K),D$(K),E$(K),F$(K) %C$(K)=(R+41))+C$(K,14)  F$(K,1)="*"1280  1230   "BIENVENIDO A OTRA SESION" "CON EL DOCTOR..."  '"HOLA..." ( 2 *********** < ** DATOS ** F** CONGUGACIONES ** P;"SOY","ES","ERA","ERA","YO","USTED","MI","SU","MIS","SUS" Z9"USTED TIENE","YO TENGO","SU","MI","ES","SOY","ME","LE" dL"USTED ESTA","YO ESTOY","SUYO","MIO","USTED","MI","MI","USTED","***","***" n$PALABRAS CLAVE/FRASES DE RESPUESTA x"NECESITO " "POR QUE NECESITA*" +"NO SERIA REALMENTE PROVECHOSO SI USTED*"  "ESTA SEGURO DE QUE NECESITA*" "POR QUE NO " "PIENSA REALMENTE QUE YO NO*" "QUIZA FINALMENTE YO*" "REALMENTE QUIERE QUE YO*" "POR QUE NO PUEDO " ""CREE QUE USTED SERIA CAPAZ DE*" "POR QUE NO PUEDE*" )"QUIZA NO LO HAYA INTENTADO SUFICIENTE"  "ES USTED " 4"POR QUE ESTA INTERESADO EN SAVER SI YO SOY O NO*" "LO PREFERIRIA SI NO FUERA*" &"QUIZA ALGUNAS VECES SUENE QUE SOY*"  "NO PUEDO " ""COMO SABE QUE NO PUEDE*" ,"]LO HA INTENTADO?" 6"QUIZA,AHORA,USTED PUEDA" @ "YO ESTOY " J"ACUDIO A MI PORQUE ESTA*" T"CUANTO TIEMPO HA ESTADO*" ^"CREE QUE ES NORMAL ESTAR*" h"SOY " r"DISFRUTA SIENDO*" |"POR QUE ME DICE QUE ES*" "POR QUE ES USTED*"  "QUIERO " #"QUE SIGNIFICARIA PARA USTED SI*" "POR QUE QUIERE*" 5"QUE SIGNIFICARIA EN SU VIDA SI USTED CONSIGUIERA*"  "]QUE " "]POR QUE PREGUNTA ESO?" #"]QUE RESPONDERIA PARA AYUDARSE?" "]QUE PIENSA USTED?"  "]COMO " "]COMO AREGLARIA ESO?" 5"LO MEJOR SERIA QUE RESPONDIESE HA ESO USTED MISMO" ."]QUE ES LO QUE REALMENTE ESTA PREGUNTANDO?"  "]QUIEN " %"]SE HACE A MENUDO ESAS PREGUNTAS?" ("]QUE RESPUESTA LE DEJARIA TRANQUILO?" &"QUIEN CREE USTED QUE*" 0 "]DONDE " :("ESA ES UNA PREGUNTA BASTANTE INGENUA" D$"]NECESITA REALMENTE SABER DONDE?" N3"QUE SUPONDRIA PARA USTED SI YO LE DIJERA DONDE*" X "]CUANDO " b"COMO PODRIA SAVER CUNADO*" l1"NO ESTAMOS AQUI PARA DISCUTIR SOBRE EL TIEMPO" v?"LAS COSAS SUELEN OCURIR CASI SIEMPRE EN EL MOMENTO OPORTUNO"  "]POR QUE " 5"POR QUE NO ME DICE LA VERDADERA RAZON POR LA QUE*" ="QUE ES LO QUE HA DICHO QUE ME AYUDARIA A DECIRLE POR QUE*" %"NECESITA REALMENTE SABER POR QUE*"  "PORQUE " "]ES ESA LA VERDADERA RAZON?"  "]QUE OTRAS RAZONES RECUERDA?"  "]QUE MAS PUEDE EXPLICAR ESO?" "LO SIENTO " ,"]EN QUE OTRAS CIRCUSTANCIAS SE DISCULPA?" ?"HAY MUCHAS OCASIONES EN LAS QUE NO ES NECESARIO DISCULPARSE" ;"]QUE SENSACION EXPERIMENTA CUANDO TIENE QUE DISCULPARSE"  "HOLA " "HOLA... ME ALEGRO DE VERLE"  6"HOLA ME ALEGRO DE QUE SE HAYA DEJADO CAER POR AQUI" ?"]COMO ESTA USTED?...TENIA GANAS DE QUE CHARLASEMOS DE NUEVO"  "[OIGA!" *#"ME ALEGRO DE VERLE HOY POR AQUI" 4M"ME ALEGRO DE QUE HAYA VENIDE TENEMOS UN MONTON DE COSAS DE LAS QUE HABLAR" >C"ATIENDAME AHORA.RELAGESE...Y HABLEMOS UN POCOSOBRE SU SITUACION" H"PUEDE SER " R"PARECE VACILAR UN POCO" \"PARECE BASTANTE INDECISO" f4"]EN QUE OTRAS CIRCUSTANCIAS SE MUESTRA INDECISO?" p"NO " z."]POR QUE SE MUESTRA TAN NEGATIVO SOBRE ESO" 2"ESTA USTED DICIENDE QUE ESO NO ES SER NEGATIVO" 5"ES USTED BASTANTE INPULSIVO.]QUE LE SUGUIERE ESO?"  "SIEMPRE " &"POR FAVOR,DEME UN EJEMPLO CONCRETO" 5"NO LE PARECE QUE ""SIEMPRE"" ES UN POCO EXAGERADO"  "]CUANDO?"  "CREO "  "DUDA*" "]PIENSA REALMENTE ESO?" "PERO NO ESTA SEGURO*"  "AMIGO " ."]POR QUE TOCA AHORA EL TEMA DE LOS AMIGOS?" *"]CUAL ES EL MEJOR RECUERDO DE UN AMIGO" #"HABLEME MAS DE SUS AMISTADES..."  "AMIGOS " 9"]EN QUE MODO LE AFECTAN LAS US AMIGOS?" $D"]QUE LE HIZO COMENZAR A HABLAR DE LOS AMIGOS,PRECISAMENTE AHORA?" .0"]DE QUE MODO LE AYUDAN O ENGA\AN SUS AMIGOS?" 8"SI " B&"]QUE TIPO DE MENTIRAS LE MOLESTAN?" L"ES USTED BASTANTE POSITIVO" V"PARECE MUY SEGURO DE QUE*" `"ORDENADOR " jG"]QUE ES LO QUE SE SIENTE SENTADO HAY HABLADOME COMO HA UNA PERSONA?" t&"]LO PIENSA SOBRE MI EN PARTICULAR?" ~6"]QUE ASPECTOS DE LOS ORDENADORES LE INTERESAN MAS?" "ESTAR " "PIENSA QUE ESTAR*" !"EN QUE CIRCUSTANCIAS ESTARIA*" "BIEN PODRIA ESTAR*" "ES " 9"QUE GADO DE CERTEZA DEPOSITARIA USTED EN ELLO SIENDO*" "ESTA USTED SEGURO DE QUE ES*" H"QUE SENSACIONES EXPERIMENTARIA SI LE DIGERA QUE,PROBABLEMENTE NO ES*" "PUEDE " !"QUE LE HACE PENSAR QUE PUEDO*" "MO PIENSA QUE PUEDO*" )"QUIZA LE GUSTARIA QUE FUERA CAPAZ DE*" "PUEDO " "TAL VEZ NO QUIERA*" "LE GUSTARIA SER CAPAZ DE*"  "LO DUDO" ("SOY " 2"POR QUE PIENSA QUE ES*" <"LE COMPLACE CREER QUE SE*" F"TAL VEZ LE GUSTARIA SER*" P "ESTA " Z"POR QUE PIENSA QUE ESTOY*" d "LE COMPLACE CREER QUE ESTOY*" n"POR QUE DICE QUE ESTOY*" x "YO NO " "REALMENTE NO*" "POR QUE NO*" "LE GUSTARIA SER CAPAZ DE*" "ME SIENTO " '"HABLEME MAS SOBRE ESOS SEMTIMIENTOS" "SIENTE A MENUDO QUE*" "DISFRUTA SINTIENDOSE*" "SIENTO " 6"VAMOS HA EXAMINAR ESA AFIRMACION MAS DETENIDAMENTE" '"]SE SIENTE NORMALMENTE DE ESE MODO?" 3"]QUE EMOCIONES LE DESPIERTAN ESOS SENTIMIENTOS?" "TENGO " "POR QUE ME DICE QUE TIENE*" !"PARA MI ESTA CLARO QUE TIENE*" "COMO PODRIA AYUDARLE CON*"  "PODRIA " "$"PODRIA EXPLICARME POR QUE SERIA*" ,-"A QUIEN MAS LE HA DICHO QUE USTED PODRIA*" 6&"QUE SEGURIDAD TIENE DE QUE PODRIA*" @"HAY " J"POR SUPUESTO QUE HAY*" T"ES COMO SI HUBIERA*" ^"LE GUSTARIA QUE HUBIERA*" h"MI " r"SU*" |"YA VEO,SU*" $"QUE SIGNIFICA PARA USTED QUE SU*" "USTED " 3"ESTA SESION ES PARA AYUDARLE...NO PARA DISCUTIR" )"]QUE LE INPULSO A DECIR ESO SOBRE MI?" A"RECUERDE QUE ANOTO TODO CUANTO DICE,PARA LUEGO PODER AYUDARLE" "YO" "REALMENTE*" "POR QUE*" "CREE DE VERDAD QUE*" "COMO " "COMO CREE USTED QUE ES" "EN VERDAD CREE QUE*" ""  "DONDE " "ESTA SEGURO" "Y SI NO LE CREYERA" &)"ESO ES ALGO QUE NO LE PUEDO RESPONDER" 0 "CUANDO " :#"SIEMPRE HAY UNA EPOCA PARA TODO" D!"AHORA,NUNCA,SOLO DIOS LO SABE" N&"ES ALGO A LO QUE NO SE RESPONDERLE" X"QUE " b"EN VERDAD CREE QUE ESO EN*" l"ESTA SEGURO DE QUE*" v""ESO ES ALGO QUE ME CUESTA CREE" "DIOS " "CREE EN DIOS" "QUE LE HACE CREEN QUE DIOS*" "HAY MAS DIOSES PARA USTED" "OSCENO " &"A QUE SE REFIERE CON QUE ES OSCENO" -"HAY MUCHO TABU SOBRE ESO,QUE PIENSA USTED" "PIENSA HA MENUDO EN EL SEXO" "JUEGO " $"QUE CLASE DE JUEGOS LE GUSTA MAS" "HABLEME MAS SOBRE ESE JUEGO*" 6"CREE QUE EL JUEGO ES UN VICIO Y COMO TAL CREA MONO" "*","*","*","*" E,SOY ,ERA +YO +MI ,MIS 4USTED TIENE +SU +ES +ME 3USTED ESTA -SUYO .USTED +MI ,*** E+ES ,ERA .USTED +SU ,SUS 1YO TENGO +MI ,SOY +LE 1YO ESTOY ,MIO +MI .USTED ,*** %2,NECESITO ,POR QUE NO ,POR QUE NO PUE ,ES USTED ,NO PUEDO ,YO ESTOY ,SOY ,QUIERO ,]QUE ,]COMO ,]QUIEN ,]DONDE ,]CUANDO ,]POR QUE ,PORQUE ,LO SIENTO ,HOLA ,[OIGA! ,PUEDE SER ,NO ,SIEMPRE ,CREO ,AMIGO ,AMIGOS ,SI ,ORDENADOR ,ESTAR ,ES ,PUEDE ,PUEDO ,SOY ,ESTA ,YO NO ,ME SIENTO ,SIENTO ,TENGO ,PODRIA ,HAY ,MI ,USTED ,YO ,COMO ,DONDE ,CUANDO ,QUE ,DIOS ,OSCENO ,JUEGO ,* ķ 2APOR QUE NECESITA* PIENSA REALMENTE QUE YO NO* CREE QUE USTED SERIA CAPAZ DE* POR QUE ESTA INTERESADO EN SAVER SI YO SOY O NO* COMO SABE QUE NO PUEDE* ACUDIO A MI PORQUE ESTA* DISFRUTA SIENDO* QUE SIGNIFICARIA PARA USTED SI* ]POR QUE PREGUNTA ESO? ]COMO AREGLARIA ESO? ]SE HACE A MENUDO ESAS PREGUNTAS? ESA ES UNA PREGUNTA BASTANTE INGENUA COMO PODRIA SAVER CUNADO* POR QUE NO ME DICE LA VERDADERA RAZON POR LA QUE* ]ES ESA LA VERDADERA RAZON? ]EN QUE OTRAS CIRCUSTANCIAS SE DISCULPA? HOLA... ME ALEGRO DE VERLE ME ALEGRO DE VERLE HOY POR AQUI PARECE VACILAR UN POCO ]POR QUE SE MUESTRA TAN NEGATIVO SOBRE ESO POR FAVOR,DEME UN EJEMPLO CONCRETO DUDA* ]POR QUE TOCA AHORA EL TEMA DE LOS AMIGOS? ]EN QUE MODO LE AFECTAN LAS US AMIGOS? ]QUE TIPO DE MENTIRAS LE MOLESTAN? ]QUE ES LO QUE SE SIENTE SENTADO HAY HABLADOME COMO HA UNA PERSONPIENSA QUE ESTAR* QUE GADO DE CERTEZA DEPOSITARIA USTED EN ELLO SIENDO* QUE LE HACE PENSAR QUE PUEDO* TAL VEZ NO QUIERA* POR QUE PIENSA QUE ES* POR QUE PIENSA QUE ESTOY* REALMENTE NO* HABLEME MAS SOBRE ESOS SEMTIMIENTOS VAMOS HA EXAMINAR ESA AFIRMACION MAS DETENIDAMENTE POR QUE ME DICE QUE TIENE* PODRIA EXPLICARME POR QUE SERIA* POR SUPUESTO QUE HAY* SU* ESTA SESION ES PARA AYUDARLE...NO PARA DISCUTIR REALMENTE* COMO CREE USTED QUE ES ESTA SEGURO SIEMPRE HAY UNA EPOCA PARA TODO EN VERDAD CREE QUE ESO EN* CREE EN DIOS A QUE SE REFIERE CON QUE ES OSCENO QUE CLASE DE JUEGOS LE GUSTA MAS * ŷ 2ANO SERIA REALMENTE PROVECHOSO SI USTED* QUIZA FINALMENTE YO* POR QUE NO PUEDE* LO PREFERIRIA SI NO FUERA* ]LO HA INTENTADO? CUANTO TIEMPO HA ESTADO* POR QUE ME DICE QUE ES* POR QUE QUIERE* ]QUE RESPONDERIA PARA AYUDARSE? LO MEJOR SERIA QUE RESPONDIESE HA ESO USTED MISMO ]QUE RESPUESTA LE DEJARIA TRANQUILO? ]NECESITA REALMENTE SABER DONDE? NO ESTAMOS AQUI PARA DISCUTIR SOBRE EL TIEMPO QUE ES LO QUE HA DICHO QUE ME AYUDARIA A DECIRLE POR QUE* ]QUE OTRAS RAZONES RECUERDA? HAY MUCHAS OCASIONES EN LAS QUE NO ES NECESARIO DISCULPARSE HOLA ME ALEGRO DE QUE SE HAYA DEJADO CAER POR AQUI ME ALEGRO DE QUE HAYA VENIDE TENEMOS UN MONTON DE COSAS DE LAS QUPARECE BASTANTE INDECISO ESTA USTED DICIENDE QUE ESO NO ES SER NEGATIVO NO LE PARECE QUE "SIEMPRE" ES UN POCO EXAGERADO ]PIENSA REALMENTE ESO? ]CUAL ES EL MEJOR RECUERDO DE UN AMIGO ]QUE LE HIZO COMENZAR A HABLAR DE LOS AMIGOS,PRECISAMENTE AHORA? ES USTED BASTANTE POSITIVO ]LO PIENSA SOBRE MI EN PARTICULAR? EN QUE CIRCUSTANCIAS ESTARIA* ESTA USTED SEGURO DE QUE ES* MO PIENSA QUE PUEDO* LE GUSTARIA SER CAPAZ DE* LE COMPLACE CREER QUE SE* LE COMPLACE CREER QUE ESTOY* POR QUE NO* SIENTE A MENUDO QUE* ]SE SIENTE NORMALMENTE DE ESE MODO? PARA MI ESTA CLARO QUE TIENE* A QUIEN MAS LE HA DICHO QUE USTED PODRIA* ES COMO SI HUBIERA* YA VEO,SU* ]QUE LE INPULSO A DECIR ESO SOBRE MI? POR QUE* EN VERDAD CREE QUE* Y SI NO LE CREYERA AHORA,NUNCA,SOLO DIOS LO SABE ESTA SEGURO DE QUE* QUE LE HACE CREEN QUE DIOS* HAY MUCHO TABU SOBRE ESO,QUE PIENSA USTED HABLEME MAS SOBRE ESE JUEGO* * Ʒ 2AESTA SEGURO DE QUE NECESITA* REALMENTE QUIERE QUE YO* QUIZA NO LO HAYA INTENTADO SUFICIENTE QUIZA ALGUNAS VECES SUENE QUE SOY* QUIZA,AHORA,USTED PUEDA CREE QUE ES NORMAL ESTAR* POR QUE ES USTED* QUE SIGNIFICARIA EN SU VIDA SI USTED CONSIGUIERA* ]QUE PIENSA USTED? ]QUE ES LO QUE REALMENTE ESTA PREGUNTANDO? QUIEN CREE USTED QUE* QUE SUPONDRIA PARA USTED SI YO LE DIJERA DONDE* LAS COSAS SUELEN OCURIR CASI SIEMPRE EN EL MOMENTO OPORTUNO NECESITA REALMENTE SABER POR QUE* ]QUE MAS PUEDE EXPLICAR ESO? ]QUE SENSACION EXPERIMENTA CUANDO TIENE QUE DISCULPARSE ]COMO ESTA USTED?...TENIA GANAS DE QUE CHARLASEMOS DE NUEVO ATIENDAME AHORA.RELAGESE...Y HABLEMOS UN POCOSOBRE SU SITUACION ]EN QUE OTRAS CIRCUSTANCIAS SE MUESTRA INDECISO? ES USTED BASTANTE INPULSIVO.]QUE LE SUGUIERE ESO? ]CUANDO? PERO NO ESTA SEGURO* HABLEME MAS DE SUS AMISTADES... ]DE QUE MODO LE AYUDAN O ENGA\AN SUS AMIGOS? PARECE MUY SEGURO DE QUE* ]QUE ASPECTOS DE LOS ORDENADORES LE INTERESAN MAS? BIEN PODRIA ESTAR* QUE SENSACIONES EXPERIMENTARIA SI LE DIGERA QUE,PROBABLEMENTE NO QUIZA LE GUSTARIA QUE FUERA CAPAZ DE* LO DUDO TAL VEZ LE GUSTARIA SER* POR QUE DICE QUE ESTOY* LE GUSTARIA SER CAPAZ DE* DISFRUTA SINTIENDOSE* ]QUE EMOCIONES LE DESPIERTAN ESOS SENTIMIENTOS? COMO PODRIA AYUDARLE CON* QUE SEGURIDAD TIENE DE QUE PODRIA* LE GUSTARIA QUE HUBIERA* QUE SIGNIFICA PARA USTED QUE SU* RECUERDE QUE ANOTO TODO CUANTO DICE,PARA LUEGO PODER AYUDARLE CREE DE VERDAD QUE* ESO ES ALGO QUE NO LE PUEDO RESPONDER ES ALGO A LO QUE NO SE RESPONDERLE ESO ES ALGO QUE ME CUESTA CREE HAY MAS DIOSES PARA USTED PIENSA HA MENUDO EN EL SEXO CREE QUE EL JUEGO ES UN VICIO Y COMO TAL CREA MONO * Kk1 tla32mxyGPARECE MUY SEGURO DE QUEQ J Z X! musica;X=ZVa$="T120UX3000(O5 6G3#F3G3A5$B3$BO6 3D3CO5 3$B3$B3A5$B)(5$B3AAGG5#F3D1E#F3GGG#F5G)H" d$b$="V9UX4000O3W7 3G1GG3G1GG3G1GG)" nuc$="2&T240UX3000(O5 6gg3#F#FGGA5$B$B3$B$BO6 3DDCCO5 3$B$B$B$BAA5$B$B)(5$B$B3AAAGGGG5#F#F3DD1EE#F1#F3GGGGG#F#F5GG)H" xa$,b$ c$ 120x 7(22)+(1)+(0)+"musica"+(6) AOT120UX3000(O5 6G3#F3G3A5$B3$BO6 3D3CO5 3$B3$B3A5$B)(5$B3AAGG5#F3D1E#F3GGG#F5G)HBV9UX4000O3W7 3G1GG3G1GG3G1GG)Cn2&T240UX3000(O5 6gg3#F#FGGA5$B$B3$B$BO6 3DDCCO5 3$B$B$B$BAA5$B$B)(5$B$B3AAAGGGG5#F#F3DD1EE#F1#F3GGGGG#F#F5GG)Hmusic2n/pPa$="O5V14T140N6#D5#C3#ab5#C3#ab5#C3b#a5#gt145N3#D#D4#C1b3#ab5#C3#ab5#C3b#a5#g" Jb$="O5V14T140N6#g(5#a3g#g)5#a3#gg5#gT145N3bb4#a1#g3g#g5#a3g#g5#a3#gg5#g" (c$="O3V13T140N6#g(3#D#a" 2Ye$="O5V14T150N5#g(5#a3g#g)5#a3#gg5#gT155N3bb4#a1#g3g#g5#a3g#g5#a3#gg5#g6&V15N6#CV13N3E" Vzmin>Pzmin>Icmax +-->Vemax>Iemax Izmax--------->Vzmax>Pzmax>Icmin +-->Vemax>Iemax Un diodo zener tiene una resiste ncia zener de 33w, si la corrien te varia de 25 a 40mA, determina r la variacion que sufrira la te nsion //////////////////////////////// El diodo de la figura tiene una tension de 15v y una potencia no minal de 0.5W. Determinar el val or de la resistencia liminte sab iendo que la tension de entrada es de 48v. //////////////////////////////// Determinar la Iz y la potencia d isipada por el zener y por la re sistencia limite Rs=80w Rc=200w Ve=10v Vz=6v //////////////////////////////// Determinar el valor de la resist ncia limite y las potencias disi padas por ella y en el diodo zen er,suponiendo que la entrada var ia entre 10 y 14V.y que los para metros de salida para una intens idad zener minima de un miliampe io son de 7.5v y 40mA. //////////////////////////////// Para regular una tension aplicad a a una carga resistiva variable se utiliza un regulador zaner p ara una tension de 10v con una i tensidad de salida comprendida e tre 0 y 20mA, sabiendo que la Ve es de 21+-1v y que la Izmin es e 1mA, determinar: A)valor de Rs,Izmax y Pzmax B)Si la zmax es de 200mW calcula r el valor maximo de Iout,actuan do sobre Ve cual sera el valor m inimo que mantendra los siguient es parametros de salida 10V 20mA . //////////////////////////////// DIODOS ESPECIALES DIODO TUNEL-Este tipo de diodo c tiene una proporcion de elemento impuros bastante mas alta que la existente en un diodo normal rec ificador. Asi pues apareceran diferencias otables,como las respuestas que muenstran a continuacion ******************************** GDU_SCREENhJ****************** *DEMO GDU_SCREEN$* ****************** &59999_:""60000`,81Q !S(x,y)=60000` 1000 0,0;1;"DEMO GDU_SCREEN$ ";1,0;"PULSA ""0"" PARA DISPARAR ";2,0;"PULSA ""ENTER"" PARA SALIR" 54,0;"********************************" (8,12 ;" " 2f=19   @@8# ("D@@@"D@ D("D@^  |'@H""""@(H""@^ @@ |'@P"Q@"Q@@(P"Q@    |' "( "("(     8# "D@ "D@BD@@P@ 0 #?@  """"  " AP?@@@ "@@@ @"Q@"Q@ @Q@ @@(  @(  @D@  (p?? ((?` @`@@p((` @  (( @    p(    (@ `t ` (@( @@ @@ @@ @ @ @@`    @@   @  0@xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxdibtecno02 @( @@ H  @ @$P   @   @    P     @ @H  @ H`   @   @`   @  @  @H  @ @? @  @@ p  @?  @ &0<H @H     @  @      @ *PLH @H    ! @   A      2TH H    Q @   B      <dH?  H    @?  D p    ?   H@x H  @ H     @   H       ?  H  D DD ( @@" (H(@  D <P P @ @  @L@@@@ T@   d @ @ x(""@"@@ @@@ @@ @@@ @@?@@@@@@@@xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxa @PI8 I@~I>I?II&8 & &&&&2?222>?22 I IIIIICI I>IIIID"I LILI?LILILILHI@dIdI?dIdIdIdHII?I?IIIIIIIIIII&&&&&&&&22222222IIIIIIIIIIIIIIIIILILILILILILILILIdIdIdIdIdIdIdIdIIIIIIIIIIIIIIIH&&&&&&&H``````````````````````````````2222222D@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"III I I I I CIIIIIII ILILILILILILIL``````````````````````````````IdIdIdIdIdIdIdIIIIIII88888888888888888888888888888888zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzziioooooooooooooooooooooooooooozziioooooooooooooooooooooooooooozzoooooooooooooooooooooooooooooozzoooooooooooooooooooooooooooooozzoooooooooooooooooooooooooooooozz888888888888888888888888888888zz888888888888888888888888888888zz888888888888888888888888888888zz888888888888888888888888888888zz888888888888888888888888888888zz888888888888888888888888888888zz888888888888888888888888888888zz888888888888888888888888888888zz888888888888888888888888888888zz888888888888888888888888888888zz888888888888888888888888888888zz______________________________zz______________________________zz______________________________zz______________________________zz______________________________zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz0CALENDOSCOzͩ2:2: 310 ,3;"*CALENDOSCOPIO DEL SPECTRUM *" F 100d P7:7: Zc=155-1 dr=11 0-1 ncr=(*8) xr,c;cr;"" r,31-c;cr;"" 21-r,c;cr;"" 21-r,31-c;cr;"" ""210 r c 90Z  "A" ZdA @888888888888888??888888888888888888888888888888==88888888888888888888888888888888888888888888888888888888888888==8888888888888888888888888888889988888888888888888888888888888=99=8888888888888888888888888888?99?8888888888888888888888888888<::<8888888888888888888888888888<>><8888888888888888888888888888>;;>8888888888888888888888888888<88<8888888888888888888888888888<88<8888888888888888888888888888>;;>8888888888888888888888888888<>><8888888888888888888888888888<::<8888888888888888888888888888?99?8888888888888888888888888888=99=8888888888888888888888888888899888888888888888888888888888888==88888888888888888888888888888888888888888888888888888888888888==888888888888888888888888888888??8888888888888888888888888888888888888888888888888888888888888888888888888888888S.P.INTERU  ;p(5):par=1:cur=5:23658j\,0  900 9s(lt,i,l,ti,c,t,ic,v)i,cv)=c,v=65v)=65250 a$= a$="q"100d (a$="a"200 2a$="p"ip=5:300, 7 a$=""""ip=1:300, <a$="o"ip=5:400 Aa$=";"ip=1:400 Fa$="m"500 P 20 dCURSOR ARRIBA nccur,9 ;" ";cur,22;" ":cur=cur-(2cur=13 )+(12 cur=5)-2 x'par=par+(5par=1)-1 6cur,9 ;2;1;">";cur,22;"<"  CURSOR ABAJO bcur,9 ;" ";cur,22;" ":cur=cur+(2cur=9 )-(12 cur=5)+2 'par=par-(5par=5)+1 6cur,9 ;2;1;">";cur,22;"<"  ,INCREMENTAR PARAMETROS 6Hn=p(par):n=(n+ip)*(n+ip255):cur,20-n;" ";n:p(par)=n @Opar =3n2=n-(256n>127):cur+2,20-n2;" ";n2 J DECREMENTAR PRAMETROS _n=p(par):n=(n-ip)*(n-ip0)+(255n-ip<0):cur,20-n;" ";n:p(par)=n Opar =3n2=n-(256n>127):cur+2,20-n2;" ";n2   SONIDO" ""510 <s(p(1),p(2),p(3),p(4),p(5))  con=3 &1;19,13 ;"" &%""19,13 ;" ": 03con=con-1:530+(20con0)  PANTALLA 6:6:0::0,7;1;1;"EDITOR DE SONIDOS.";0;2,7;"J. M. Medina 1987." E1:7:f=416:f,10 ;" ":f E:f=5152:f=11 11 ,20;"0":f a$:f,11 ;a$;": 0":f )"LONG.","TONO ","INCR.","CADA ","DUR. " 21,2;2;7;1;"PULSA ~m~ PARA OIR EL SONIDO";6;5,9 ;">";5,22;"<" 8:8: INZIALIZACION '65249:""65250,166 !65406~:activa la rutina.  #65413:desactiva la rutina "" zORGANO V7 u^u^S.BIN P* \####x~>#= !xF(3:H\^FH y5N q NqNwM/uv>G^VɏA //   5000  1000 ( 2000 2!FG1FP130 < 5500| F  entrada v$="":n$="" "]QUE HAGO AHORA? ";R$ / :R$="INVECIL""ESO LO SERAS TU":1000 (R$)<31020 I=1̱(R$) FR$(II)=" "V$=R$(3):N$=R$(I+1):1500:I=(R$) $I . N$"" 8R$=R$(3) B8R$="NOR"R$="SUR"R$="EST"R$="OES"V$="VE ":N$=R$: L/R$="AYU"R$="INV"R$="MIR"N$="AUX":V$=R$: V!"A MI SE ME HABLA EN CRISTIANO" ` 1010 J=1̱(N$) 5N$(JJ)=" "N$=N$(J+1J+3):J=20 J  (N$)>3N$=N$(3)   SELECION V=0:N=0  6530 I=1VV &D$:D$(3)=V$V=1:I=VV I  6510n I=1NN  &D$:D$(3)=N$N=1:I=NN *I 48N=0V=0"A MI SE ME HABLA EN CRISTIANO": >2900T +(100d*V) *****IR***** N>4"] IR A DONDE ?": +S(P,N)=0"POR AHI NO HAY SALIDA": ;P=16(N=1N=4)FA=0FP=1: P=S(P,N):4000 *****coger***** &/n=6p=13 "ES DEMASIADO PESADO": 0N<8"NO SEAS TONTO": :6O(N-7)=99cN$"ESP""YA LO HAS COGIDO": DI=710 N;O(I)=PN=14N=I+7:ES=ES+1:I=10 XI bDO(N-7)=P"O.K.":O(N-7)=99c:ALEA=ALEA+1: l"ESO NO ESTA AQUI": *****INVENTARIO**** "ESTAS LLEVANDO:-" alea=0"NADA": i=110 o(i)=99co$(i)  i: P 6530 ZI=1VV :D$:D$,;:I d8'"(SOLO NECESITAS TECLEAR LAS TRES PRIMERAS LETRAS)": ******MIRA***** "'L$(P):P=32 FP=1: I=110 "I=5P=154050 O(I)=P"AQUI HAY ";O$(I) I  "SALIDAS:"; !S(P,1)>0"NORTE "; S(P,2)>0"SUR ";  S(P,3)>0"ESTE "; !S(P,4)>0"OESTE "; : INIALIZACION .:0,4;"LAS CABERNAS DE NEPTUNO" '"Has encontrado el tapon magico que corresponde al desague del mar,y decides colocarlo antes de que el agua se salga."'"Te sumerges en el oceano y co- -mienza la aventura." '"ASEGURATE QUE TIENES PUESTAS LASMALLUSCULAS PARA ELLO MIRA EL CURSOR CUANDO TE PREGUNTE QUE HACES Y SI NO VES UNA ""C"" PARPA--DEANTE APRIETA ""BLOQ MAYS""."''"Si necesitas ayuda teclea AYUDA."  nn=14:vv=11 :p=3 :alea=1 :es=0:fg=0:fp=0:fab=0:fa=0:fc=0 Ql$(24,176):s(24,4):o$(10 ,24):o(10 ) i=124 Mi=17i=18i=23i=24l$(i)=l$(12 ):5090 d$:l$(i)=d$ i 5i=124:j=14:s(i,j):j:i $i=110 :o$(i):o(i):i 4000:mira |FIN LP=22"DE UNA DENTELLADA,EL TIBURON TE CORTA LA CABEZA.":5550 P=19"LOS PINCHOS DE LOS ERIZOS SON "'"[ MUY VENENOSOS !"'"SUFRES UNA MUERTE TERIBLE."'"LA PROSIMA VEZ TOMA"'"MAS PRECAUCIONES":5550 l"EL TAPON SE METE EN EL AGUJERO"'"Y EL AGUA DEJA DE SALIR."'"[ FELICITACIONES !"'"HAS SALVADO LOS OCEANOS" #'"] QUIERES JUGAR OTRA VEZ ? ";R$ R$(1)="S"  "ADIOS ": p*****DESCRIPCIONES***** zh"ESTAS EN EL FONDO DEL MAR. EL CAMINO HACIA EL OESTE ESTA BLOQUEADO POR UN ARRECIFE DE CO--RAL" P"ESTAS EN EL FONDO DEL MAR. EN EL SUR, UNA PARED SE ALZA FRENTE A TI." X"ESTAS ENFRENTE DE UNA PUERTA DE MADERA QUE ESTA EN LA PARED. NO VES EL PICAPORTE." P"ESTAS EN EL FONDO DEL MAR. EN EL SUR, UNA PARED SE ALZA FRENTE A TI." {"ESTAS EN EL FONDO DEL MAR. EN EL SUR HAY UNA PARED CON ALGAS MARINAS FORMANDO UN CUADRADO SOBRE ELLA." m"ESTAS EN EL FONDO DEL MAR. HACIA EL SUR HAY UNA PARED. UN PRECIPICIO BLOQUEA EL CAMINO AL ESTE." W"ESTAS EN UNA CAVERNA LARGA Y ESTRECHA. AL FONDO VES UN TOLLO NADANDO EN CIRCULO." R"ESTAS EN UNA HABITACION LLENA DELUZ. LAS PAREDES,EL TECHO Y EL SUELO BRILLAN." U"ESTAS EN UNA OSCURA CABERNA CON UNA PUERTA ENORME AL FONDO. NO VES PICAPORTE." e"ESTAS EN UNA HABITECION LLENA DEHAMBRIENTOS CABALLITOS DE MAR. TE HUSMEAN LA MANO AMISTOSAMENTE." ނ"ESTAS EN UNA PEQUE\A SALA CUADRADA. LA PARED DEL NORTE TIENE UNA VENTANA, A TRAVES DE LA QUE SE VE EL FONDO DEL MAR." t"ESTAS EN UNA ESTRA\A SALA CUADRADA. LAS PAREDES, EL SUELO,Y EL TECHO SON CUADRADOS, ASI COMOLAS PUERTAS." c"ESTAS EN UNA DIMINUTA HABITAION QUE ESTA CASI OCUPADA POR UN BAUL CON LAS INICIALES ""J.S.""" m"ESTAS EN UNA HABITACION MUY FRIA. EL FANGO TE RODEA Y NOTAS UNA PEQUE\A CORRIENTE HACIA EL EST E." o"ESTAS EN UN LUGAR REALMANTE TETRICO . ESTA TODO LLENO DE LOSHUESOS DE EXPLORADORES ANTERIORES." "ESTAS EN UNA SALA CUADRADA. ENCIMA DE LA SALIDA SUR PONE NO ENTRES. LAS PUERTAS DEL NORTEY DEL OESTE ESTAN LLENAS DE HORMIGEANTES ERIZOS DE MAR." w"ESTAS EN UNA HABITACION CIRCULARCON UNA FUERTE CORIENTE QUE GIRA EN REMOLINO Y SECURLA POR EL AGUJERO DEL FONDO." $"ESTAS EN UN PASILLO CON UNA FUERTE CORIENTE HACIA EL OESTE. EL CAMINO ESTA BLOQUEADO POR LOSBRAZOS DE UN TERIBLE PULPO." .\"ESTAS EN EL CAMAROTE DEL CAPITANDE UN BARCO. SIENTES EL FLUJO DEL AGUA HACIA EL OESTE." 8K"VES UN TORBELLINO DE AGUA, DE DONDE SALE UN GRAN TIBURON BLANCO." B*******SALIDAS******* L0,0,2,0, 0,0,3,1, 0,0,4,2, 0,0,5,3 V0,0,6,4, 0,0,0,5, 0,0,8,0, 0,14,0,7 `0,15,0,0, 0,16,0,0, 5,17,12 ,0, 0,18,12 ,11 j7,0,0,0, 8,0,15,0, 9 ,21,16,14, 10 ,22,17,15 t11 ,23,18,16, 12 ,24,18,17, 0,0,20,0, 0,0,21,0 ~15,0,0,20, 16,0,0,0, 17,23,24,0, 18,24,24,23 *******OBJETOS****** "UN CUCHILLO",2 "UN PAR DE ALETAS",6 "UNA LLAVE",0 "UN GRUPO DE ALGAS",0 "UN HUESO MOHOSO",15 "EL TAPON MAGICO",99c ""UNAS ESPOSAS AMARILLAS",0 "UNAS ESPOSAS VERDES",9 "UNAS ESPOSAS ROJAS",17  "UNAS ESPOSAS AZULES",11 d*******NOMBRES****** nU"NOR","SUR","EST","OES","AUX","BAU","VEN","CUC","ALE","LLA","ALG","HUE","TAP","ESP" x******VERVOS****** U"VE ","COGE","DEJA","CORTA","PONTE","DALE","ABRE","USA","INVENTARIO","AYUDA","MIRA"  plea̅ESTAS EN EL FONDO DEL MAR. EL CAMINO HACIA EL OESTE ESTA BLOQUEADO POR UN ARRECIFE DE CO--RAL ESTAS EN EL FONDO DEL MAR. EN EL SUR, UNA PARED SE ALZA FRENTE A TI. ESTAS ENFRENTE DE UNA PUERTA DE MADERA QUE ESTA EN LA PARED. NO VES EL PICAPORTE. ESTAS EN EL FONDO DEL MAR. EN EL SUR, UNA PARED SE ALZA FRENTE A TI. ESTAS EN EL FONDO DEL MAR. EN EL SUR HAY UNA PARED CON ALGAS MARINAS FORMANDO UN CUADRADO SOBRE ELLA. ESTAS EN EL FONDO DEL MAR. HACIA EL SUR HAY UNA PARED. UN PRECIPICIO BLOQUEA EL CAMINO AL ESTE. ESTAS EN UNA CAVERNA LARGA Y ESTRECHA. AL FONDO VES UN TOLLO NADANDO EN CIRCULO. ESTAS EN UNA HABITACION LLENA DELUZ. LAS PAREDES,EL TECHO Y EL SUELO BRILLAN. ESTAS EN UNA OSCURA CABERNA CON UNA PUERTA ENORME AL FONDO. NO VES PICAPORTE. ESTAS EN UNA HABITECION LLENA DEHAMBRIENTOS CABALLITOS DE MAR. TE HUSMEAN LA MANO AMISTOSAMENTE. ESTAS EN UNA PEQUE\A SALA CUADRADA. LA PARED DEL NORTE TIENE UNA VENTANA, A TRAVES DE LA QUE SE VE EL FONDO DEL MAR. ESTAS EN UNA ESTRA\A SALA CUADRADA. LAS PAREDES, EL SUELO,Y EL TECHO SON CUADRADOS, ASI COMOLAS PUERTAS. ESTAS EN UNA DIMINUTA HABITAION QUE ESTA CASI OCUPADA POR UN BAUL CON LAS INICIALES "J.S." ESTAS EN UNA HABITACION MUY FRIA. EL FANGO TE RODEA Y NOTAS UNA PEQUE\A CORRIENTE HACIA EL EST E. ESTAS EN UN LUGAR REALMANTE TETRICO . ESTA TODO LLENO DE LOSHUESOS DE EXPLORADORES ANTERIORES. ESTAS EN UNA SALA CUADRADA. ENCIMA DE LA SALIDA SUR PONE NO ENTRES. LAS PUERTAS DEL NORTEY DEL OESTE ESTAN LLENAS DE HORMIGEANTES ERIZOS DE MAR. ESTAS EN UNA ESTRA\A SALA CUADRADA. LAS PAREDES, EL SUELO,Y EL TECHO SON CUADRADOS, ASI COMOLAS PUERTAS. ESTAS EN UNA ESTRA\A SALA CUADRADA. LAS PAREDES, EL SUELO,Y EL TECHO SON CUADRADOS, ASI COMOLAS PUERTAS. ESTAS EN UNA HABITACION CIRCULARCON UNA FUERTE CORIENTE QUE GIRA EN REMOLINO Y SECURLA POR EL AGUJERO DEL FONDO. ESTAS EN UN PASILLO CON UNA FUERTE CORIENTE HACIA EL OESTE. EL CAMINO ESTA BLOQUEADO POR LOSBRAZOS DE UN TERIBLE PULPO. ESTAS EN EL CAMAROTE DEL CAPITANDE UN BARCO. SIENTES EL FLUJO DEL AGUA HACIA EL OESTE. VES UN TORBELLINO DE AGUA, DE DONDE SALE UN GRAN TIBURON BLANCO. ESTAS EN UNA ESTRA\A SALA CUADRADA. LAS PAREDES, EL SUELO,Y EL TECHO SON CUADRADOS, ASI COMOLAS PUERTAS. ESTAS EN UNA ESTRA\A SALA CUADRADA. LAS PAREDES, EL SUELO,Y EL TECHO SON CUADRADOS, ASI COMOLAS PUERTAS.        UN CUCHILLO UN PAR DE ALETAS UNA LLAVE UN GRUPO DE ALGAS UN HUESO MOHOSO EL TAPON MAGICO UNAS ESPOSAS AMARILLAS UNAS ESPOSAS VERDES UNAS ESPOSAS ROJAS UNAS ESPOSAS AZULES 5 c  vnDALGVNRA  *>A wsy -ts=0:i$="":sp =5:A=-4 n=(*30)+10 : ($" LA PIRAMIDE DE LAS CALAVERAS " 2 <" TIENES QUE" F" CONSEGUIR :";N: PK=2000:540 Z :Y=2 dI=14 nA$=(I):X=6+2*I x 5600 I A$="*":I=15 Y=2+2*I J=1I+3 X=7-I+2*J 5600 J I Y=14 I=19 :A$=(I) X=1=2*I:5600 I S=O I=15 A$="ELIGE LA FILA" !X=0:Y=0:5600 "I$= ,I$=""290" 6I$<"1"I$>"4"290" @R=I$ J Y=3:X=6+2*R T F=0 ^A$="" h 5600 r1,A:A=A+2 |A$=" ":5600 )F=0Y<13 X=X+(-.5) I3