CAVERdHIEL~%V"%**Rafael Marquez ** 9900& im=8000@ ma=5000 pul=8300l pa=3000 fin=6500d bor=6600  9800H& ( 8100 c variables d&x=2:y=2:a(x,y)=0 no=6:p=15 x:s=(*9 )+11 :t=1:s=15120x Uan=0:pe=0:cai=0:cav=x*8-16+y-1:en=200 pa  movimientos 3(="o"Ŧ="O")ƫ(o,p-1)5p=p-1 3(="p"Ŧ="P")ƫ(o,p+1)5p=p+1 3(="a"Ŧ="A")ƫ(o+1,p)5o=o+1 3(="q"Ŧ="Q")ƫ(o-1,p)5o=o-1 (o=0x=x-1:o=11 :pa (o=12 x=x+1:o=1:pa $(p=9 y=y-1:p=20:pa .)p=21y=y+1:p=10 :pa 8e(o,p)=2.1}L,40(:.1}L,502:an=an+1:a(x,y)=0:en=en+15 Be(o,p)=4.1}L,502:.1}L,40(:pe=pe+1:a(x,y)=0:en=en+20 L t=t+1 Va(x,y)=2006800  o,p;"" t,s;6;"" @.05|L,0 J="m"Ŧ="M"ma:pa To=tp=s6000p ^en=en-1:2,4;an;4,4;pe;6,4;cai;3,26;cav;" ";7,25;en;" " l o,p;" " v t,s;" " t=10 t=1 en=06100 <t=1s=(*9 )+11 :s=151970 }en=5021:6:1:a=15:b=0:i$="#####CUIDADO CON LA ENERGIA#####":im:0:pul:bor  1000 inprimir caverna $:cav=x*8-16+y-1 < s=(*9 )+11 :t=2:s=153005 AG=10 20:5;1,G;"";11 ,G;"":G AG=210 :5;G,10 ;"";G,20;"":G 1a(x-1,y)100d1,15;" " 2a(x+1,y)100d11 ,15;" " 1a(x,y-1)100d6,10 ;" " 2a(x,y+1)100d 6,20;" " 1a(x,y)=5029 ,15;4;"" 1a(x,y)=259 ,15;2;"" 1,0;2;1;"ANTORCHAS";3,0;"PECES....";5,0;"CAIDAS...";1,22;"CAVERNA...";5,22;"ENERGIA..." q2,4;an;4,4;pe;6,4;cai;3,26;cav;" ";7,25;en;" " &[r$="":3;13 ,0;r$;17,0;r$ la(x,y)=10 3200 v caverna helada 9g=210 :5;g,11 ;"":g g= 12 18:4,g;5;1;" ";9 ,12 ;"AAHHHH!!":.1}L,g:.1}L,g+10 :g:1,-10 'cai=cai+1:6,4;cai ^4:a=15:b=0:i$="Resbalaste en una caverna helada":im:0:pul:bor %cai3:a(x,y)=0:pa: k7:1:a=15:b=0:i$="Demasiadas caidas para continuar":im:0:7:fin mapa M:0,14;1;"MAPA":c=110 :d=110 ti=7:m$="" &a(c,d)=100dm$="":ti=6 %a(c,d)=502m$="":ti=4 %a(c,d)=25m$="":ti=2 %a(c,d)=10 m$="":ti=5 c+5,d+10 ;ti;m$ d:c ?5+x,10 +y;1;1;7;1;"" 7i$=" - comida.":a=17:b=10 :4:im 9i$=" - antorcha.":a=18:b=10 :2:im ?i$=" - caverna helada.":a=19:b=10 :5:im >i$=" - caverna vacia.":a=20:b=10 :7:im 5i$=" - muro.":a=21:b=10 :6:im 7:0: odesprendimiento p1,-20 zk2:6:a=15:b=0:i$="":im:0:7:fin energia agotada 1,-20 k2:6:a=15:b=0:i$="No tienes fuerzas para continuar":im:0:7:fin cfin dH21,0;6;0;"-----]OTRA PARTIDA (s/n) ?------" n="s"Ŧ="S" x="n"Ŧ="N"  6510n borrar mensajes :g=031:15,g;" ";21,g;" ":g: Wtesoro encontrado X.5,30 b9g=210 :6;g,11 ;"":g lMg=10 20 :.1}L,10 :.1}L,g:.1}L,g+10 :g v40(:.5,30: 0:g=1:e =021:e,0;g;"*[BIEN , ENCONTRASTE EL TESORO!*":.01z# =,g:.01z# =,e:g=g+1:g=7g=1 e 6:6:0: Y127,87W,60<:100d,100d,10 :154,100d,10 Bg=05:100d,95_,g:154,95_,g:g .118v,87W:20,0,2 .80P,87W:100d,0,3 dp=1:g=021:g,0;p;8;"$ $ $ $";g,24;"$ $ $ $":p=p+1 p=8p=1 g  p=1:g =723:0,g;0;p;"$";1,g;"$";2,g;"$";19,g;"$";20,g;"$";21,g;"$":p=p+1:p=8p=1 g *e=15 4f=2010 -1 >.1}L,e:.1}L,f R*.1}L,e+10 :.1}L,f-10 ff pe Bfin ? imprimir @=n=1̱i$:a,b+n-1;i$(n):.1}L,502:n: distribuir objetos a(10 ,10 ) g=110 ba(g,10 )=100d:a(10 ,g)=100d:a(g,1)=100d:a(1,g)=100d g g=110 1a1=(*9 )+1:b=(*9 )+1 a(a1,b)08160 a(a1,b)=502 g g=120 1a1=(*9 )+1:b=(*9 )+1 a(a1,b)08200 a(a1,b)=10 &g 0g=110 :1a1=(*9 )+1:b=(*9 )+1 Da(a1,b)08250: Na(a1,b)=25 Xg YRa1=(*9 )+1:b=(*9 )+1:a=2b=28281Y ]a(a1,b)=200 b ktecla pulsada lT21,9 ;6;9 ;"PULSA UNA TECLA":0:.1}L,0: &Ginstruciones &H/0:0:7:0:0: &R4,0;" " &\12 ,15;" DE " &f15,8;" ";16,8;" ";17,8;" ";18,8;" ";19,8;" " &ptinta=6:e=17:g=419:1;g,0;tinta;" ":tinta=tinta-1:tinta=0tinta=6 &qg:e &r`g=110 :.01z# =,g:.1}L,g+10 :.1}L,-10 :.1}L,10 :g &u<21,7;1;6;"]INSTRUCIONES (s/n)?" &v="s"Ŧ="S"9850z& &w"="n"Ŧ="N" 1,502: &y 9846v& &zz::1:7:1:i$="**********INSTRUCIONES**********":a=0:b=0:im:0:2:6 &2;6;2,0;" Un barco cargado de oro se en-callo en los hielos del antarti-co y tu debes recuperarlo. Para ello debes recorrer nume-rosas cabernas donde es facil que haya derrumbamientos. " &3;5;" Tendras que recoger peces paracomer y antorchas para calentar-te por que sino te quedaras sin fuerzas. Hay cabernas que tienen el suelo resbaladizo y si entras en ellas patinaras. " &A16,9 ;1;7;1;"[[BUENA SUERTE!!" &$pul:0:7:0:: &graficos definidos &&g=0557:a:"a"+g,a:g: &N60<,126~,90Z,255,165,189,36$,102f &M255,255,255,255,110n,46.,36$,4 &J8,146,64@,32 ,124|,568,16,16 &J0,0,62>,127,255,254,124|,0 &K0,491,123{,222,254,123{,491,0 &M173,146,36$,73I,146,36$,73I,146 &Q255,129,129,129,129,129,129,255 &Rafael Maequez &***********************  a@ul idointp&b xyopsMtaa @   ddddddddddd  dd dd 2 dd  dd 2 22dd 2 2dd2 dd dddddddddddMI - muro.R 3 TIMONEL $$$:0:0::2:1:9 ,9 ;4;" ";10 ,9 ;" PARE LA CINTA ";11 ,9 ; " ":0:g=18:n=125:.004yn,n+g:n:g  64000  4  7000X 5::0  2005 *********************** #j=j+1:j=3j=1 =t=t+1:21,1;6;1;"Crono ";t $r=(*dif):r=3x=x-1 +="p"Ŧ="0"ſ223=1630 6h=110 3:h/1000,60<:h )="p"Ŧ="0"ſ223=16q=q+kk q=1c=c-q:q=0 (@19,x;7;8;a$(j);20,x;0;b$(j) *6h=110 3:h/1000,60<:h -@16,c;3;8;a$(j);17,c;0;b$(j) /3ek=64026:ek=64001:ek=64026 2!x=1c=16000p < 20 ***********************  2010 6,64@,17,255,71G,213,225,43+,197,1,31,0,26,237,184,35#,119w,0,43+,43+,27,193,16,240,201 6,64@,17,255,79O,213,225,43+,197,1,31,0,26,237,184,35#,119w,0,43+,43+,27,193,16,240,201 &a=64001640502:b:a,b:a ***********************  2070 0,0,0,0,0,128,72H,248,192,160,192,66B,127,112p,568,63?,255,255,0,0,0,128,72H,32 255,255,4,2,1,0,36$,129,255,255,0,0,0,2,16,4,24,20,8,31,502,108l,122z,113q 255,255,0,0,0,0,0,0,255,255,0,1,18,4,72H,18  1,3,7,15,31,63?,127,255,128,192,224,240,248,252,254,255 %,0,0,4,36$,86V,37%,122z,243,126~,66B,66B,126~,85U,106j,214,255,183,187,187,513,83S,83S,83S,223,127,119w,557,546,85U,85U,85U,221 &0,0,0,8,20,8,12 ,30,45-,77M,12 ,20,20,34",34",102f,0,0,0,8,20,8,24,24,24,24,24,8,8,8,8,24 4%n=0143:w:"a"+n,w:n ***********************  j=1 #x=18:c=18:q=0 't=0:vez=1:rec=300, z$(7,7):z$(1)="FASE 1 ":z$(2)="FASE 2 ":z$(3)="8/Final":z$(4)="4/Final":z$(5)="Semifin":z$(6)="FINAL ":z$(7)="CANPEON" ,a$(2,15):b$(2,15) =a$(1)=" ":b$(1)=" " =a$(2)=" ":b$(2)=" " T*********************** .0,0;2;1,,,,,,,,,, r6,0;6;4,,,,,,,,,,,, 0;4,,,,,,14,0;5,,,,,,,,,,,,,,,, 5,0;2,, G4,0;1;2;" " G3,0;1;2;" " H14,0;4;7;"" [n=2308:k=11 9 -1:k,n;2;4;"":k:n Qn=1525564@:g=110 :6;n,100d,g:g:n 16,18;3;8;a$(2);17,18;0;8;b$(2);19,18;7;8;a$(2);20,18;0;8;b$(2) d=291-3 Y4:12 ,d;0;8;"";13 ,d;"":0.05|L,-10 :d H12 ,0;0;8;"" H13 ,0;0;8;"" 40:n=07:.02{# =,60 <:n 821,20;7;4;"Record ";rec;" " 221,12 ;6;2;z$(1) $21,1;6;"CRONO"  10 p*********************** r|16,557:7;0,-47/:15,2;4;7;1;1;"":1,10 ux16800 zt3.3,-10 :9023?# #F:   lLAVERINTO  ؽ 23658j\,8 $n=023:a:"a"+n,a:n  hs=0 ("Seleciona nivel (1/6) ";ta 2>TA<7TA>0ta=1100L-100d*tA:70F < 40( F&1:1:0::7 Ps=0:vidas=3 Z?1;6;2;;"puntos maxima puntuacion " d@n=22561!X22589=X:n,16:n+640,16:n nyn=121:22528X+n*32 ,16:22558X+n*32 ,16:22559X+n*32 ,9 :n xb=22593AX:a=b `a(4):a(1)=-1:a(2)=-32 :a(3)=1:a(4)=32 a,568 j=(*4)+1:g=j Db=a+a(j)*2:b=8b,j:a+a(j),568:a=b:150 #j=j+1:j=5j=1  jg160 :j=a:a,568:j<5a=a-a(j)*2:150 22625aX,568 n=120 Ek=22528X+64@*((*9 )+2)+(*29)+1 k,59;:n x=15:y=10 "tx=(*15)*2+1 "ty=(*10 )*2+2 ;1;2;0,7;s;0,28;hs *23672x\,0:23673y\,0 ".1;3;6;ty,tx;145 ,#2;7;y,x;144 6323672x\+256*23673y\>ta420 @=""3106 Ja$=:sx=x:sy=y T-a$="O"ƫ(y,x-1)568x=x-1 ^-a$="P"ƫ(y,x+1)568x=x+1 h-a$="Q"ƫ(y-1,x)568y=y-1 r-a$="A"ƫ(y+1,x)568y=y+1 |.7;2;sy,sx;" ";y,x;144 .005y# =,-10 ty=ytx=x500  3106 ,1;0;5;y,x;146 [vidas=vidas-1:520:f=010 :a,b:a,b:f:vidas>0280  s>hshs=s )1;2;0,24; hs H1;10 ,1;" Presiona una tecla para jugar de nuevo." ""470 =""480  40( Bs=s+(ta-23672x\+256*23673y\)/2:250 24,24,60<,82R,82R,24,36$,36$,127,65A,93],85U,81Q,95_,64@,127,24,24,255,255,24,24,24,24 .45ffff,0,.3,0,.15~,0,.45ffff,0,.3,3,.15~,2,.3,2,.15~,0,.3,0,.15~,-1,.45ffff,0 affffs Pidab j8gkYxy  A WLAVERI.BAS  { 23658j\,8 $n=023:a:"a"+n,a:n  hs=0 ("Seleciona nivel (1/6) ";ta 2>TA<7TA>0ta=1100L-100d*tA:70F < 40( F&1:1:0::7 Ps=0:vidas=3 Z?1;6;2;;"puntos maxima puntuacion " d@n=22561!X22589=X:n,16:n+640,16:n nyn=121:22528X+n*32 ,16:22558X+n*32 ,16:22559X+n*32 ,9 :n xb=22593AX:a=b `a(4):a(1)=-1:a(2)=-32 :a(3)=1:a(4)=32 a,568 j=(*4)+1:g=j Db=a+a(j)*2:b=8b,j:a+a(j),568:a=b:150 #j=j+1:j=5j=1  jg160 :j=a:a,568:j<5a=a-a(j)*2:150 22625aX,568 n=120 Ek=22528X+64@*((*9 )+2)+(*29)+1 k,59;:n x=15:y=10 "tx=(*15)*2+1 "ty=(*10 )*2+2 ;1;2;0,7;s;0,28;hs *23672x\,0:23673y\,0 ".1;3;6;ty,tx;145 ,#2;7;y,x;144 6323672x\+256*23673y\>ta420 @=""3106 Ja$=:sx=x:sy=y T-a$="O"ƫ(y,x-1)568x=x-1 ^-a$="P"ƫ(y,x+1)568x=x+1 h-a$="Q"ƫ(y-1,x)568y=y-1 r-a$="A"ƫ(y+1,x)568y=y+1 |.7;2;sy,sx;" ";y,x;144 .005y# =,-10 ty=ytx=x500  3106 ,1;0;5;y,x;146 [vidas=vidas-1:520:f=010 :a,b:a,b:f:vidas>0280  s>hshs=s )1;2;0,24; hs H1;10 ,1;" Presiona una tecla para jugar de nuevo." ""470 =""480  40( Bs=s+(ta-23672x\+256*23673y\)/2:250 24,24,60<,82R,82R,24,36$,36$,127,65A,93],85U,81Q,95_,64@,127,24,24,255,255,24,24,24,24 .45ffff,0,.3,0,.15~,0,.45ffff,0,.3,3,.15~,2,.3,2,.15~,0,.3,0,.15~,-1,.45ffff,0 zlaverinto d  f $n=023:a:"a"+n,a:n  hs=0 "Seleciona nivel (1/6) ";ta (ta=1100L-100d*ta 2&1:1:0::7 <s=0:vidas=3 F?1;6;2;;"puntos maxima puntuacion " P@n=22561!X22589=X:n,16:n+640,16:n Zyn=121:22528X+n*32 ,16:22558X+n*32 ,16:22559X+n*32 ,9 :n db=22593AX:a=b n`a(4):a(1)=-1:a(2)=-32 :a(3)=1:a(4)=32 x a,568 j=(*4)+1:g=j Db=a+a(j)*2:b=8b,j:a+a(j),568:a=b:130 #j=j+1:j=5j=1  jg140 :j=a:a,568:j<5a=a-a(j)*2:130 22625aX,568 n=120 Ek=22528X+64@*((*9 )+2)+(*29)+1 k,59;:n x=15:y=10 "tx=(*15)*2+1 "ty=(*10 )*2+2 ;1;2;0,7;s;0,28;hs *23672x\,0:23673y\,0 .1;3;6;ty,tx;145 #2;7;y,x;144 "323672x\+256*23673y\>ta390 ,=""290" 6a$=:sx=x:sy=y @-a$="z"ƫ(y,x-1)568x=x-1 J-a$="x"ƫ(y,x+1)568x=x+1 T-a$="k"ƫ(y-1,x)568y=y-1 ^-a$="m"ƫ(y+1,x)568y=y+1 h.7;2;sy,sx;" ";y,x;144 m01,10 rty=ytx=x470 | 290" ,1;0;5;y,x;146 [vidas=vidas+1:500:f=010 :a,b:a,b:f:vidas>0260  s>hshs=s )1;2;0,24; hs H1;10 ,1;" Presiona una tecla para jugar de nuebu " ""440 =""450  30 7s=s+ta-23672x\+256*23673y\:230 24,24,60<,82R,82R,24,36$,36$,127,65A,93],85U,81Q,95_,64@,127,24,24,255,255,24,24,24,24 .45ffff,0,.3,0,.15~,0,.45ffff,0,.3,3,.15~,2,.3,2,.15~,0,.3,0,.15~,-1,.45ffff,0 affffsida b j8gkYxy A M3 TIMONEL 7&$9&:0:0::2:1:9 ,9 ;4;" ";10 ,9 ;" PARE LA CINTA ";11 ,9 ; " ":0:g=18:n=125:.004yn,n+g:n:g  64000  4  7000X 5::0  2005 *********************** #j=j+1:j=3j=1 =t=t+1:21,1;6;1;"Crono ";t $r=(*dif):r=3x=x-1 +="p"Ŧ="0"ſ223=1630 6h=110 3:h/1000,60<:h )="p"Ŧ="0"ſ223=16q=q+kk q=1c=c-q:q=0 (@19,x;7;8;a$(j);20,x;0;b$(j) *6h=110 3:h/1000,60<:h -@16,c;3;8;a$(j);17,c;0;b$(j) /3ek=64026:ek=64001:ek=64026 2!x=1c=16000p < 20 ***********************  2010 6,64@,17,255,71G,213,225,43+,197,1,31,0,26,237,184,35#,119w,0,43+,43+,27,193,16,240,201 6,64@,17,255,79O,213,225,43+,197,1,31,0,26,237,184,35#,119w,0,43+,43+,27,193,16,240,201 &a=64001640502:b:a,b:a ***********************  2070 0,0,0,0,0,128,72H,248,192,160,192,66B,127,112p,568,63?,255,255,0,0,0,128,72H,32 255,255,4,2,1,0,36$,129,255,255,0,0,0,2,16,4,24,20,8,31,502,108l,122z,113q 255,255,0,0,0,0,0,0,255,255,0,1,18,4,72H,18  1,3,7,15,31,63?,127,255,128,192,224,240,248,252,254,255 %,0,0,4,36$,86V,37%,122z,243,126~,66B,66B,126~,85U,106j,214,255,183,187,187,513,83S,83S,83S,223,127,119w,557,546,85U,85U,85U,221 &0,0,0,8,20,8,12 ,30,45-,77M,12 ,20,20,34",34",102f,0,0,0,8,20,8,24,24,24,24,24,8,8,8,8,24 4%n=0143:w:"a"+n,w:n ***********************  j=1 #x=18:c=18:q=0 't=0:vez=1:rec=300, z$(7,7):z$(1)="FASE 1 ":z$(2)="FASE 2 ":z$(3)="8/Final":z$(4)="4/Final":z$(5)="Semifin":z$(6)="FINAL ":z$(7)="CANPEON" ,a$(2,15):b$(2,15) =a$(1)=" ":b$(1)=" " =a$(2)=" ":b$(2)=" " T*********************** .0,0;2;1,,,,,,,,,, r6,0;6;4,,,,,,,,,,,, 0;4,,,,,,14,0;5,,,,,,,,,,,,,,,, 5,0;2,, G4,0;1;2;" " G3,0;1;2;" " H14,0;4;7;"" [n=2308:k=11 9 -1:k,n;2;4;"":k:n Qn=1525564@:g=110 :6;n,100d,g:g:n 16,18;3;8;a$(2);17,18;0;8;b$(2);19,18;7;8;a$(2);20,18;0;8;b$(2) d=291-3 Y4:12 ,d;0;8;"";13 ,d;"":0.05|L,-10 :d H12 ,0;0;8;"" H13 ,0;0;8;"" 40:n=07:.02{# =,60 <:n 821,20;7;4;"Record ";rec;" " 221,12 ;6;2;z$(1) $21,1;6;"CRONO"  10 p*********************** r|16,557:7;0,-47/:15,2;4;7;1;1;"":1,10 ux16800 zt3.3,-10 :9023?# #F:  32qeonp,ibwjxc@t(ee,6FASE 1 FASE 2 8/Final4/FinalSemifinFINAL CANPEON# #     r e