SUMARINO xI!z   9000(#  n=0 x=(*10 +1) (y=(*10 +1) 2 n=n+1 <"0,0;"intento";n;" " F""N-S(1-10) ";A,"E-O(1 TO 10)";B G5B>10 B<1A>10 A<170F K#3+A,2+B;1;"X" Pa=Yb=X170 Z 200 d nn4502 xp15,0;"No te quedan mas oportunidades"'"EL SUBMARINO ESTABA EN:";3+y,2+x;1;"#" "]quieres volver a jugar?" r$ ,r$(1)="s"r$(1)="S" 10  ("DISTE AL SUBMARINO EN ";n;" INTENTOS" 130 1,0;"FALLASTE" "DISPARA AL "; A=y250 A>y"NORTE "; Ax"OESTE"; " ": #(-9010 2#:a="a""a"+7:b:a,b:a #2Q255,129,129,129,129,129,129,255 #<3,3;"1234567890" #F[A=19  :3+A,2;A;"":A:13 ,2;"0" #P  F#bnxyRnhJET PAC II   /0:7:0:7:1: letra A 1 $x=8:y=124|:1020 $x=8:y=150:1020 %x=17:y=159:1030 (%x=30:y=150:1020 2%x=17:y=133:1030 <%x=30:y=124|:1020 E letra L F%x=513:y=107k:1040 P%x=42*:y=124|:1010 Z%x=42*:y=150:1020 c letra E d%x=80P:y=107k:1040 n%x=71G:y=124|:1010 s%x=80P:y=133:1030 x%x=71G:y=150:1000 %x=80P:y=159:1050 letra A 2 &x=100d:y=124|:1020 &x=100d:y=150:1020 &x=109m:y=159:1030 &x=122z:y=150:1020 &x=109m:y=133:1030 &x=122z:y=124|:1020 letra s &x=139:y=107k:10808 &x=160:y=112p:1060$ &x=143:y=117u:1030 &x=138:y=122z:1060$ &x=143:y=127:10808 letra o &x=175:y=108l:1070. &x=176:y=129:1030 &x=197:y=108l:1070. &x=176:y=107k:1030 ! letra f "'x=203 :y=124|:1020 ,&x=202:y=133:1060$ 6&x=212:y=133:1060$ @'x=203 :y=150:1020 J&x=212:y=159:1030 S letra t T'x=228 :y=124|:1020 ^&x=227:y=133:1060$ h&x=237:y=133:1060$ r'x=228 :y=150:1020 |+12 ,11 ;1;" PRESENTA: " 718,10 ;2;7;" JET PAC II. " 219,0;:0:0:"jet2.BAS"  x,y:0,-16:4,-4:4,4:0,16:-8,8:0,-8:.01z# =,0: ux,y:0,-24:8,8:0,16:-4,4:-4,-4:.01z# =,0: x,y:0,-16:4,-4:4,4:0,16:-4,4:-4,-4:.01z# =,0: x,y:12 ,0:4,-4:-4,-4:-12 ,0:-4,4:4,4:.01z# =,0 : ux,y:12 ,0:4,-4:-4,-4:-20,0:8,8:.01z# =,0: x,y:12 ,0:4,-4:-4,-4:-12 ,0:-8,8:8,0 :.01z# =,0: $bx,y:4,-4:-4,-4:-4,4:4,4:.01z# =,0: .x,y:0,12 :-4,4:-4,-4:0,-12 :4,-4:4,4:.01z# =,0: 8x,y:16,0:4,-4:-4,-4:-16,0:-4,4:4,4:.01z# =,0 : Njet2.BAS ??#A 30 0"jet2.BIN"63258,2041:63257 < 23658j\,8:0:7:0:1: (=a=110 :a$:b=07:c:a$+b,c:b:a 2"a",8,8,8,8,8,8,8,8,"b",24,36$,195,16,24,36$,195,16,"c",28,28,28,72H,252,212,212,219,"d",252,220,28,524,108l,108l,118v,118v,"e",568,568,568,18,63?,43+,43+,219,"f",63?,59;,568,44,,546,546,110n,110n,"G",0,24,24,60<,90Z,102f,126~,126~,"H",255,255,255,255,255,255,255,255,"I",0,60<,66B,255,66B,36$,24,0,"J",60<,126~,231,195,195,231,126~,60< < 650 FgFASE=0:VID=3 :PUNTOS=0:P$="1628162212281220122308210825082708300428042404210417" PCE1=1:CE2=CE1:LE1=2:LE2=LE1: TES=0:TIME=68D-(FASE*8):GASOFA=0:C1=30:L1=16:GASOFAMINIMA=60<: C2=C1:L2=L1:A$="":B$="":INC=16 Z0,0;"PUNTOS:","VIDAS:";1,0;"TIEMPO:","GASOFA:";1,7;2;" ";3;" ";4;" ";5;" ";6;" ";1,23;2;" ";3;" ";4;" ";5;" ";6;" " d0,160:8;255,0:A=0TIME-1:8;568+A,162:8;0,4:.004yn,40 (:A n_20,0;1;"" x3;5,0;"";5,17;"";5,20;"";5,24;"";5,26;"";5,31;"";9 ,0;"";9 ,21;"";9 ,25;"";9  ,29;"";13 ,0;"";13 ,19;"";13 ,23;"";13 ,27;"";13 ,31;"";17,0;"";17,19;"";17,25;"";5;4,1;"";8,1;"";12 ,1;"";16,1;"" :480 /0,7;PUNTOS;0,22;VID C2=C2+(57342=190C2<31ƫ(L2,C2+1)67Cƫ(L2-1,C2+1)67C)-(57342=189C2>0ƫ(L2,C2-1)67Cƫ(L2-1,C2-1)67C) L2=L2+(65022=190L2<19ƫ(L2+1,C2)67C)-(64510=190L2>3ƫ(L2-2,C2)67C(GASOFA>0)) Y(L2+1,C2)67CL1=L2(64510190GASOFA0)L2=L2+1 C2> C1A$="":B$="" C2 < C1A$="":B$="" ȤL1> L2ſ64510=190GASOFA>0C2<15GASOFA=GASOFA-1:1;8;184+GASOFA,162:1;8;0,4 ҤL1> L2ſ64510=190GASOFA>0C2<15GASOFA=GASOFA-1:1;8;184+GASOFA,162:1;8;0,4 ܤL1> L2ſ64510=190GASOFA>0C2<15GASOFA=GASOFA-1:1;8;184+GASOFA,162:1;8;0,4 L1> L2ſ64510=190 GASOFA>0C2<15GASOFA=GASOFA-1:1;8;184+GASOFA,162:1;8;0,4 L1> L2ſ64510=190 GASOFA>0GASOFA=GASOFA-1:1;8;184+GASOFA,162:1;8;0,4 (L2,C2)=69ETES=TES+1:PUNTOS=PUNTOS+100d:N=1410 -1:.01z# =,N:N:TES=4630v 1(L2,C2)=70FINC=10 -FASE:480 L2-1,C2;A$;L2,C2;B$ 'C2C1 L1,C1;" ";L1-1,C1;" " "L2 > L1 L1-1,C1;" " ,L2 < L1 L1,C1;" " 6.A=(*4)+1:A=4370r @|C2> CE2(LE2,CE1+1)67C(LE2,CE2+1)69E(LE2,CE2+1)70FCE2=CE2+1:360h J|C2< CE2(LE2,CE1-1)67C(LE2,CE2-1)69E(LE2,CE2-1)70FCE2=CE2-1:360h T|L2< LE2(LE2-1,CE1)67C(LE2-1,CE2)69E(LE2-1,CE2)70FLE2=LE2-1:360h ^qL2> LE2(LE2+1,CE1)67C(LE2+1,CE2)69E(LE2+1,CE2)70FLE2=LE2+1 h$LE1,CE1;" ";LE2,CE2;4;"" rCE2=C2LE2=L2610b |#CE2=C2LE2=L2-1610b CE1=CE2:LE1=LE2 pTIME=TIME-.5:(TIME)=TIME1;8;TIME+568,162:1;8;0,4 TIME0610b $TIME<10 .003xD,40( PUNTOS=PUNTOS+1 L2 > 19610b C1=C2:L1=L2  140  .(GASOFA+INC)> 68DINC =68D-GASOFA A=0INC-1 0PUNTOS=PUNTOS+1:0,7;PUNTOS V1;8;184+GASOFA+A,162:1;8;0,4:A GASOFA=GASOFA+INC: ,A= 4*((*12 )+1)+1 POGAL=(P$(AA+1)) &"POGAC=(P$(A+2A+3)) 0 POGAL=L2 POGAC=C2530 :!POGAL=LE2POGAC=CE2530 DPOGAL,POGAC;6;"" N X b+VID= VID-1:VID0:80P l9 ,11 ;" ";10 ,11 ;" GAME OVER ";11 ,11 ;" ":1:0::70F v>FASE=FASE+1:FASE<5:vid=vid+1:80P 9 ,10 ;" ";10 ,10 ;" ENORABUENA! ";11 ,10 ;" HAS ACABADO ";12 ,10 ;" EL JUEGO. ";13 ,10 ;" ":1:0::70F 63258 ^A$="O4N1dO5EDDaaO4dFdO5EDaaaO4dFO3gO5C#a#affO3gO5dO3gO5C#afffO3gO5fO3#aO5#aaaffO3#a#A#a#A#A#A#A#A#a#AaA#A#AO5ccO3aO5dO3aO5efgggO3aO5aO4dO5EDDaaO4dFdO5EDaaaO4dFO3gO5C#a#affO3gO5dO3gO5C#afffO3gO5fO3#aO5#aaaffO3#a#A#a#A#A#A#A#A#a#AaA#A#AO5ccO3aO5dO3dO5efgggO3aO5aO4d&a&&&ggdgffffddO3gDD&&&g&g&&&a&D&#aA#A#A#A#A#aG#aGD&F&#a&a&&&G&a&a&&&E&a&D&DEF&DA&&)" 63357}:A$ 64329I  '<:"jet2.BAS"20:"jet2.BIN"63258,2041: Ojet2.BIN ?!"" "" ""tG!B;C:yK:>yC<2>>ỳ:\[y:>K<: ( !N#F#~!@6+6I+r+s###!>2-N#F#~#2(S&$v +*a\|8 {06"+++p+q,:-<2-ʇ>x2C*&G~"!Nʂ ʂYZO-VDWYUXʆTʚ_w()HM&P$#A8h5H7a705:5KC{ 8 G>2G>D2?y2@x2A(!?:(2?z(= B_!)NC:Ϳ &2Kd&o ˯!pA_~#Gf(:=2(GKjlacefh+++?:(:?#D GfK CG>2:@o:Ag }2?|2@++* "(#~"!#(DbEdGgAiBk#F˨5 #(CbDdFgGiAk#F˨5 #(2?z 0 z2@()2?z0z2@(2?z0!w_~2@(   #(2?{2@z2A(>D2?z<802Ϳy2@x2A((-K+->x(-8͢-2?z@B/2@(#((#~0:0Oz8:G8683808-W##08:0)8)8)8 8 0O 8'>wGC C"C$!="4!E"7!M":26292<>G^͟GF>2-! :-G~G!~#(-F+N q#p!:-O 6#6~6N#F#~#2) !:-O :?w:? :-G>GwGI1OVWUXD(;)q>ʚHʤM&ʰG~ WFz(a_!^#Vx({:_z(s#rw^#V!s#r++p+q:-<2-¬###!:-O !!T!:-O ?:)!yCVQ#< :-(+:I :I K C.C K C0C G:-"2tCCCCx2>2>2222U2V2W>222CCC :?w :?w :?2>w:?_:@WS:?_:@Ws#r :?2!1:-GO ^#V#~((,:)+?6)GtG~w^#V!s#r41//, *'s%Y#]!~KCALEND.BASzz|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" bA @888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888A @888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888DIBUJO.BASF 0:0:7: x1=0:y1=0  c=1 (&x2=(*256):y2=(*176) 2c;x2-x1,y2-y1 <x1=x2:y1=y2 F#c=c+1:c=8c=1 P 40( @c@,MULTIP.BASg  5"]que tabla quieres estudiar?,teclea 90 para fin";a a=90Z240 (b=(*10 ) 2a;" * ";b;" es " <c Fd=a*b Pcd120x Z "CORRECTO" dN=1100d:N n 20 x-"mal,tienes que estudiar,la respuesta es";d a;"*1 es ";a*1 a;"*2 es ";a*2 a;"*3 es ";a*3 a;"*4 es ";a*4 a;"*5 es ";a*5 a;"*6 es ";a*6 a;"*7 es ";a*7 a;"*8 es ";a*8 a;"*9 es ";a*9 a;"*10 es ";a*10 ""aprieta una tecla para segir";h 40( "otra tabla ";j$ j$="si"10  kPRESEN.BASa 2 &2:120x,87W,80P j3:f=125520:0,0:f,175:255,0:- f,175:f H4:n= 0255:n,88X+80P*(n/128*):n %0:(6);"ALEA SOFTWARE" (9 );"PRESENTA" h= 121 nota 0.5,nota h 16,14,16,7,18,16,18,16,14,18,16,18,7,5,16,14,16,14,12 ,11 ,9  1"":"" "" "" " " g=11000:g: kORGANO.BAS^MUSICA ES UN PROGRAMA DE: ALVARO ALEA FDZ.  OVIEDO, 6/6/1988. PROHIBIDA SU REPRODUCION Y VENTA SIN EL PERMISO ESCRITO DEL AUTOR DE EL PROGRAMA. duracion=0.01z# =  !"ESTE ES UN PROGRAMA DE MUSICA" ""SOLO PUEDES APRETAR UNA TECLA " )"PARA QUE HAYA MUSICA CUANDO VEAS ESTO" ("LAS TECLAS QUE SUENAN SON:" 2"DO:Z","RE:X" <"MI:C","FA:V" F"SOl:B","LA:N" P"SI:M" U "Sonido:" V "Largo:1" W "Corto:2" ZA$= dA$=""90Z nA$="z"a$="Z"190 xA$="x"a$="X"260 A$="c"a$="C"3106 A$="v"a$="V"360h A$="b"a$="B"410 A$="n"a$="N"460 A$="m"a$="M"500 &a$="1"duracion=0.1}L:90Z 'a$="2"duracion=0.01z# =:90Z 5"esa tecla no suena":0.09}8Q,502:90Z  240:nota duracion,nota 0 10  290":nota duracion,nota " 2 , 10 6 @340T:nota Jduracion,nota T 4 ^ 10 h r390:nota |duracion,nota  6  10  440:nota duracion,nota  8  10 480:nota :duracion,nota  10  10  530:nota duracion,nota  11  10 &*********************** uracioz# =otA CARA.BAS y@V{ 100d,87W,80P '64@,64@:64@,7, n=1 16 (^n+71G,128 2 n+71G,129 <n+103g,129 F n+103g,128 P n Zz=1 24 d 95_,z-112p n 94^,z-108l x96`,z-108l  z  a=1 160  a+18,167  a+18,168  a 120x,96` 68D,96` !0,5;"HOLA A TODOS" Z2RELOG.BAS  relog h=024 0.1}L,9 (m=060< 20.1}L,0 <s=060< F0.1}L,-9 P Z+11 ,12 ;1;h;":";m;".";s d 45- ns xm h 20 PERCAL.BASzzw| calendario "dia";d  "mes";m  "a|o";a (w=a dn=100d+(m*10 ) in no$="enero":300, xo$="febrero":300, o$="marzo":300, o$="abril":300, o$="mayo":300, o$="junio":300, o$="julio":300, o$="agosto":300, o$="setiembre":300, o$="octubre":300, o$="noviembre":300, o$="dicienbre":300, ,+m-2>0m=m+1:330J 6m=m+13 @ a=a-1 J4n=(365.256*a)+(30.6t*m)+d-621049 T n=n-1 ^1y=((n-(n/7)*7)*10 )+400 hy a$="lunes":500 a$="martes":500 a$="miercoles":500 a$="jueves":500 a$="viernes":500 a$="sabado":500 a$="domingo":500 a$;" ";d;" De ";o$;" De ";w CASA.BAS ``nb $a=0255:a,16:a 2a=16103g:80P,a:160,a:a &a=80P160:a,104h:a (&a=160191:a,557:a 2%a=16557:191,a:a <8b=104h:a=80P119w:a,b:b=b+1:a F,a=120x159:a,b:b=b-1:a P119w,120x,8 ZLa=1647/:127,a:151,a:169,a:183,a:a dLa=127151:a,480:a:a=169183:a,480:a n=a=32 480:87W,a:99c,a:111o,a:a x=a=87W111o:a,480:a,32 :a,40(:a 2a=87 W151:a,64@:a,72H:a 1a=64@72H:87W,a:151,a:a %a=95_144:a,88X:a >a=72H88X:95_,a:111o,a:143,a:a 0PAYASO.BASk "":0 EPAYASO.BIN@  @@ @@ @|<|<@@ @@>x><@@@@0`BBBB @@DB@@@@@ BBBB@xx@@BB@@  |~|~  @@B~0@@ @BDB @@DB@@@@0 @BBB  @~>x>B @?  `@P @ @=@ @@ @@ @ @ @@@@ @@@ @ @` @ @`@ @@@  @ @@@@@ @@A 0@@ @@@@0@@@@@@^ @@p@@<@@@@@@@@` @@O  @ @@@@@@y@ 0@@@@@? @@@@@@@ @@8` ` `       ``88      `0`  @@     0`    888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888Crol.scr  <H< `@~B~|B~B~x~~@0 P@0 @0` @(@B@BBDBBb@b@D@@ x < 0 p   ?@|B|BBBBBR|R|B|| ?8 < ,!@B@|BB~~J@J@B@@  < pT!M@B@@BDBBF@F@D@@!0 x ? 0 0?  0  !@<~@B~B~x~@A` < 0@@ `@@P? `X < PP ?  @!@@L2~pZZ@      @!@@~>B@Ȁ@X <<<<<<@F@      <<@ ?  G~@b  ` @$ (FFFFFF ??????~       FF ?????  ܀#H<|RP @@ JJJJJJ((((((      JJ(((((?@( $@JP @@T RRRRRR$$$$$$$$$$$$RR$$$$$$$$$$ L20?B@F P @&D  @bbbbbb "D"D"D"D"D"Dƀ bb "D"D"D"D"D@RJ @>B@T*@%p @<<<<<<@!!!!!!@<<@!!!!! RJ~ZZ@                A     >|<@~B~@~~~<b!     BB@@B@@@@@Bd     BB@|B|@|||@ |B@@B@@@@@@@B@@$@@@@@B&>@<~~~~~@~<F~~~xxxxxz~~|xxxxxz~~|xxxxxz~~|~~~~~xxxxxz~~|xxxxxz~~|xxxxxz~~|x~xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx888888888888888xxxxxxxxxxxxxxxxx888888888888888xxxxxxxxxxxxxxxxx888888888888888xxxxxxxxxxxxxxxxx888888888888888xxxxxxxxxxxxxxxxx888888888888888xxxxxxxxxxxxxxxxx888888888888888xxxxxxxxxxxxxxxxx888888888888888xxxxxxxxxxxxxxxxx888888888888888xxxxxxxxxxxxxxxxx888888888888888xxxxxxxxxxxxxxxxx888888888888888xxxxxxxxxxxxxxxxx888888888888888xxxxxxxxxxxxxxxxx888888888888888xxxxxxxxxxxxxxxxx888888888888888xxxxxxxxxxxxxxxxx888888888888888xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx88888888888888xxx88888888888888x88888888888888xxx88888888888888x88888888888888xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx8888888888888888888888888888888888888888888888888888888888888888Crelog 8: relog h=024 0.1}L,9 (m=060< 20.1}L,0 <s=060< F0.1}L,-9 P Z+11 ,12 ;1;h;":";m;".";s d 45- ns xm h 20 <(<<ocalendarioz^ calendario "dia";d  "mes";m  "a|o";a (w=a dn=100d+(m*10 ) in no$="enero":300, xo$="febrero":300, o$="marzo":300, o$="abril":300, o$="mayo":300, o$="junio":300, o$="julio":300, o$="agosto":300, o$="setiembre":300, o$="octubre":300, o$="noviembre":300, o$="dicienbre":300, ,+m-2>0m=m+1:330J 6m=m+13 @ a=a-1 J4n=(365.256*a)+(30.6t*m)+d-621049 T n=n-1 ^1y=((n-(n/7)*7)*10 )+400 hy a$="lunes":500 a$="martes":500 a$="miercoles":500 a$="jueves":500 a$="viernes":500 a$="sabado":500 a$="domingo":500 a$;" ";d;" De ";o$;" De ";w dmawnOeneroyfAdomingo"ALGO 0- 0011.140012.120011.140012.120021.110011.140012.120211.120011.140012.120021.110022.120021.140221.140022.120021.140022.120021.110221.110021.9 0032.120031.140231.140032.120031.140011.9 0011.110211.110011.110012.120011.140011.160010.170010.190010.190010.190211.190010.190010.170011.140012.12227 00000000000021.110022.120021.140021.140221.140021.160020.170020.190014.0 0013.2 0211.2 0013.4 0012.5 0012.7 0011.9 0011.110012.120011.140011.160211.160010.170010.170010.19 casa y`{ $a=0255:a,16:a 2a=16103g:80P,a:160,a:a &a=80P160:a,104h:a (&a=160191:a,557:a 2%a=16557:191,a:a <8b=104h:a=80P119w:a,b:b=b+1:a F,a=120x159:a,b:b=b-1:a P119w,120x,8 ZLa=1647/:127,a:151,a:169,a:183,a:a dLa=127151:a,480:a:a=169183:a,480:a n=a=32 480:87W,a:99c,a:111o,a:a x=a=87W111o:a,480:a,32 :a,40(:a 2a=87 W151:a,64@:a,72H:a 1a=64@72H:87W,a:151,a:a %a=95_144:a,88X:a >a=72H88X:95_,a:111o,a:143,a:a YXbhypallaso @  @@ @@ @|<|<@@ @@>x><@@@@0`BBBB @@DB@@@@@ BBBB@xx@@BB@@  |~|~  @@B~0@@ @BDB @@DB@@@@0 @BBB  @~>x>B @?  `@P @ @=@ @@ @@ @ @ @@@@ @@@ @ @` @ @`@ @@@  @ @@@@@ @@A 0@@ @@@@0@@@@@@^ @@p@@<@@@@@@@@` @@O  @ @@@@@@y@ 0@@@@@? @@@@@@@ @@8` ` `       ``88      `0`  @@     0`    88888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888CD&M   ** MATRICES ** L(100d):W(100d) #D(100d,4):Q(568) (S(16):C(40() 2T(8):M(8) F** VARIABLES ** PIV=1:WE=1 ZCR=1:FB=1 d LB=1 n A$="ARM.CU" x W$="DAGA" HP=502 CF=2:DF=4 G=0:23658j\,8 MO=0 X=5:Y=5 3** CARACTERES DEFINIDOS POR USUARIO ** 9020<# I=140( C(I) I -I=18:"A"+(I-1),C(I):I .I=9 16:"B"+(I-9 ),C(I):I 0I=1724:"C"+(I-17),C(I):I 0I=2532 :"D"+(I-25),C(I):I 0I=33!40(:"E"+(I-33!),C(I):I **HECHIZOS ** " 9090# ,I=116 6S(I) @I J-I=18:"F"+(I-1),S(I):I T.I=9 16:"G"+(I-9 ),S(I):I ^ ** ORO ** h 9120# rI=18 |T(I) "H"+(I-1),T(I) I ** INC. MAZMORRAS ** G1;2;7;10 ,6;"INICIALIZANDO MAZMORAS" A1;2;7;11 ,9 ;"POR FAVOR ESPERE"  9500% I=1  93] L(I) W(I) J=14 D(I,J) J I **BUSQUEDA ** #< ** CARAC. ** #FK12 ,12 ,120x,94^,24,28,116t,70F #PJ480,480,30,122z,24,568,46.,98b #ZK88X,88X,126~,26,26,60<,36$,102f #dJ24,24,60<,90Z,90Z,60<,36$,102f #nK26,26,126~,88X,88X,60<,36$,102f #x** HECHIZOS ** #M149,82R,173,58:,93],180,74J,145 #E0,0,24,60<,60<,24,0,0 # ** ORO ** #F0,0,0,0,0,568,102f,221 #** MOSTRUOS ** ddd8SR:]J<<( x^tF00z8.bXX~<$f<ZZ<$f~XX<$f+8f+AARM.CUWDAGA2gxy rledemo   ini=0 lon=160 ( dur=5 2120x+ini*10 <a=1lon Fdato P4093,dato Zdur d="!"4093,0: n a:502 x00000001 00000010 00000100 00001000 00010000 00100000 01000000@ 10000000 10000001 10000010 10000100 10001000 10010000 10100000 11000000 11000001 11000010 "11000100 ,11001000 611010000 @11100000 J11100001 T11100010 ^11100100 h11101000 r11110000 |11110001 11110010 11110100 11111000 11111001 11111010 11111100 11111101 11111110 11111111 11111110 11111101 11111011 11110111 11101111 11011111 10111111 &01111111 001111110~ :01111101} D01111011{ N01110111w X01101111o b01011111_ l00111111? v00111110> 00111101= 00111011; 001101117 00101111/ 00011110 00011110 00011101 00011011 00010111 00001111 00001110 00001101 00001011 00000111  00000110 00000101  00000011 *00000010 400000001 >00000000 H00000001 R00000010 \00000100 f00001000 p00010000 z00100000 01000000@ 10000000 01000000@ 00100000 00010000 00001000 00000100 00000010 00000001 00000010 00000100 00001000 00010000 00100000 01000000@ 10000000 $01000000@ .00100000 800010000 B00001000 L00000100 V00000010 `00000001 j00000000 t11111111 ~00000000 11111111 00000000 11111111 00000000 11111111 00000000 11111111 00000000 11111111 00000000 00000001 00000010 00000101  00001010 00010101 00101010* (01010101U 210101010 <01010101U F10101010 P01010101U Z10101010 d01010101U n10101010 x01010101U 10101010 01010100T 10101000 01010000P 10100000 01000000@ 10000000 00000000 10000000 01000000@ 10100000 01010000P 10101000 01010100T 10101010 01010101U "10101010 ,01010101U 610101010 @01010101U J10101010 T01010101U ^10101010 h01010101U r00101010* |00010101 00001010 00000101 00000010 00000001 00000000 PIRAMIDE  "":"" @X@<|>|x~x~@<<<<@BBB>x~x~~B<77`777wwPwww?P|||||||||||||||||||||||||||||||||xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx||xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx||xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx||xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx||xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx||xxxxxxxxxxxxxxxxxxxxxxxxxx~~~~||xxxxxxxxxxxxxxxxxxxxxxxxxx~xxx||||||||||||||||||||||||xxxx~xxx||xxxxxxxxxxxxxxxxxxxxx|xxxx~xxx||xxxxxxxxxx~~xxxxxxxxx|xxxx~xxx||xxxxxxxxx~~~~xxxxxxxx|||xx~xxx||xxxxxxxx~~FF~~xxxxxxxxx|xx~xxx||xxxxxxx~~FFFF~~~xxxxxxx|xx~xxx||xxxxxx~~FFFFFF~~~xxxxx~~~~~~~~||xxxxx~~FFFFFFFF~~xxxxxx|x~~xxx||xxxx~~FFFFFFFFFF~~xxx||||||||x||xxx~~FFFFFFFFFFFF~~xxxxxx~~|xx||xx~~FFFFFFFFFFFFFF~~xxxxx~~xxx||x~~FFFFFFFFFFFFFFFF~~xxx|~~~~x||x~FFFFFFFFFFFFFFFFF~||||~~~~~|||||||||||||||||||||||||||||~||||xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx|||||||||||||||||||||||||||||||||#