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 ALGU