ZXTape! 0Created by SpectaculatorC. Mocos ,+,"COME MOCOS - ZX 2007" <http://personales.ciudad.com.ar/spectrum2000/04.htm a=120:a$ b=07:c:a$+b,c b a S"",63?,64@,128,128,128,128,128,128 I"",255,0,0,0,0,0,0,255 I"",255,0,0,0,0,0,0,129 G"",252,2,1,1,1,1,1,1 U"",129,129,129,129,129,129,129,129 S"",129,129,129,129,129,129,66B,60< K "",129,66B,36$,24,0,0,0,0 S"",128,128,128,128,128,128,64@,63? G"",1,1,1,1,1,1,2,252 Q"",63?,64@,128,128,128,128,64@,63? I"",252,2,1,1,1,1,2,252 S"",60<,66B,129,129,129,129,129,129 U"",129,128,128,128,128,128,128,129 I"",129,1,1,1,1,1,1,129 I"",129,0,0,0,0,0,0,255 P"",62>,127,73I,73I,127,127,85U,85U Q"",60<,110n,255,15,15,255,126~,60< S"",60<,118v,255,240,240,255,126~,60< S"",36$,102f,231,167,255,255,126~,60< S"",60<,126~,255,255,229,231,102f,36$ 0:0:7: 1;15,12 ;".TECLAS.";17,8;"Q-arriba A-abajo";19,5;"P-derecha O-izquierda";21,7;"SPACE. nuevo nivel":0: &1;0,12 ;"ZX 2007" "0 $1;10,12;"PRESENTA" &0: ' 1 ($2,8;" " )$3,8;" " *$4,8;" " +$5,8;" " ,&6,8;" ": -*:8,6;" " .(9 ,6;" " /)10 ,6;" " 0)11 ,6;" " 1)12 ,6;" " 27:0 7 va=30 <$3:6;15,va;"" Ah3:6;15,va;" ":(15,va-1)" ".01z# =,10 :.01z# =,15 Fva=va-1 Kva=190Z P .0003uIQ,502:60< Z rec=0 \;po=0:vi=3:q=2:pu=179:v$="" dh.1}L,0:.1}L,10 :.1}L,20:.1}L,25:0:0:7: 1 "" " " " " " _ _ " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " "" 1;568,103g:1;39',0:1;0,-23:1;-39',0:1;0,23:1;58:,101e:1;35#,0:1;0,-19:1;-35#,0:1;0,19 90;8,0;"XXX";8,16;"XXX" ;0;12 ,0;"XXX";12 ,16;"XXX" "0;10 ,8;"XXX" +1;0,20;"~COME MOCOS~"  "1,20;"~ ZX 2007 ~"  B1;20,20;"Record:////";20,27;rec  821,20;"Puntos:////";21,27;po 21;2;3,20;" ~TROLIN~" 11;3;5,20;" ~PUTIN~" 21;4;7,20;" ~TONTIN~" 11;5;9 ,20;" ~BULON~" *2;12 ,20;"@ 100 Pts." *3;14,20;"@ 150 Pts." *4;16,20;"@ 200 Pts." *5;18,20;"@ 250 Pts." + 7 ,a=120 6b=117 @(a,b)=" "7;a,b;"'" Tb ^a ho9 ,9 ;" ";10 ,9 ;" ";11 ,9 ;" ";10 ,0;" ";10 ,18;" " 1go=1000:u=0:x=16:z=9 I#1;1;6;0,1;v$;q;0,17;"@" b6;3,1;"@";3,17;"@";16,1;"@";16,17;"@" y$=""  DIN B$  .b$(4):h=14:b$(h)="":h ^i(4):i(1)=14:i(2)=4:i(3)=4:i(4)=14 s=(*2)+1 s=1510 j(4):j(1)=4:j(2)=14:j(3)=4:j(4)=14:q;1,12 ;"@":511 wj(4):j(1)=14:j(2)=4:j(3)=14:j(4)=4:q;1,6;"@" \n(4):n(1)=2:n(2)=3:n(3)=4:n(4)=5 7a=14:1;n(a);i(a),j(a);b$(a):a 6;x,z;y$ /k=1:t=0:o=4066:g=1 \r(4):r(1)=0:r(2)=0:r(3)=0:r(4)=0  JUEGO   0 k=14 f=5:(*5)+1 Q e=1f j$7;1;i(k),j(k);b$(k) vL(i(k)+1,j(k))=7i(k)+1xi(k)=i(k)+1:1150~ xL(i(k)-1,j(k))=7i(k)-1xi(k)=i(k)-1:1150~ zL(i(k),j(k)+1)=7j(k)+1zj(k)=j(k)+1:1150~ {L(i(k),j(k)-1)=7j(k)-1zj(k)=j(k)-1:1150~ |X1;n(k);1;i(k),j(k);b$(k):k=k+1:k=5k=1:e=5 }*1;n(k);1;i(k),j(k);b$(k) ~?(i(k),j(k))="'"n(1)=1r(k)=1:1152 r(k)=0 L1;n(k);1;i(k),j(k);b$(k):(x,z)6ƫ(x,z)7o  TECLAS  6;x,z;y$ a$= (y=0:y=a$*5+3050 :y * 1000 \R7;x,z;" ":z=z+(uƫ(x,z+1)1):y$="":z=19z=0 aG(x,z)" ".001wn,20:ga=0:ga=4000+(x,z):ga b 2900T fS7;x,z;" ":z=z+(uƫ(x,z-1)1):y$="":z=-1z=18 kG(x,z)" ".001wn,20:ga=0:ga=4000+(x,z):ga l 2999 p;7;x,z;" ":x=x+(uƫ(x-1,z)1):y$="" uG(x,z)" ".001wn,20:ga=0:ga=4000+(x,z):ga v 2999 z;7;x,z;" ":x=x+(uƫ(x+1,z)1):y$="" G(x,z)" ".001wn,20:ga=0:ga=4000+(x,z):ga  2999 ).0003uIQ,502:e::k:1000 TECLAS 2 go pu06000p go go &u=1:go=2170z:2170z go go 'u=-1:go=2150f:2150f go &u=1:go=2140\:2140\ go 'u=-1:go=2160p:2160p #go go PUNTAJE 1  2:.01z# =,5:.01z# =,10 :0:po=po+100d:7;x,z;" ";1;21,27;po:#1;0,17;" ": 3:.01z# =,5:.01z# =,10 :0:po=po+150:7;x,z;" ";1;21,27;po:#1;0,17;" ": 4:.01z# =,5:.01z# =,10 :0:po=po+200:7;x,z;" ";1;21,27;po:#1;0,17;" ": 5:.01z# =,5:.01z# =,10 :0:po=po+250:7;x,z;" ";1;21,27;po:#1;0,17;" ": 1:.01z# =,10 :0:a=14:n(a)=1:1;i(a),j(a);b$(a);n(a);1;i(a),j(a);b$(a):a:o=4064:po=po+502:1;21,27;po: @po=po+1:pu=pu-1:1;21,27;po:  PUNTAJE 2  Upo=po+502:1:.01z# =,5:.01z# =,10 :0:5000 |2:.4L,-5:v$(vi)=" ":#1;1;6;0;0,1;v$:vi=vi-1:4900$ |2:.4L,-5:v$(vi)=" ":#1;1;6;0;0,1;v$:vi=vi-1:4900$ |2:.4L,-5:v$(vi)=" ":#1;1;6;0;0,1;v$:vi=vi-1:4900$ |2:.4L,-5:v$(vi)=" ":#1;1;6;0;0,1;v$:vi=vi-1:4900$ ,:.01z# =,20:.01z# =,30: ,:.01z# =,20:.01z# =,30:  $ovi=06:.6,-20:2:.6,-25:0:.6,-30:6500d ) 5000  GANADOR   0 .b=14:x=i(b)z=j(b)5008 b  pu=pu-r(b) po=po+t:o=4066:1;7;i(b),j(b);b$(b);i(b),j(b);b$(b);0;1;21,27;po:n(1)=2:n(2)=3:n(3)=4:n(4)=5:j(b)=9 a=11 9 -1 >(a,9 )=" "i(b)=a:n(b);i(b),j(b);b$(b):5022 a Ms=1j(b)=10 :i(b)=10 :n(b);i(b),j(b);b$(b):5022 5j(b)=8:i(b)=10 :n(b);i(b),j(b);b$(b)  | oNUEVO NIVEL p.1}L,10 :.1}L,15:.1}L,20:.1}L,25:0;x,z;" ";1,12 ;" ";1,6;" " q|a=14:0;i(a),j(a);" ":a:0;10 ,8;"XXX";9 ,9 ;"X";11 ,9 ;"X" rM0;10 ,8;"XXX";9 ,9 ;"X";11 ,9 ;"X" sa=120 tb=117 v(a,b)=" "a,b;"'" wb xa yB9 ,9 ;" ";10 ,9 ;" ";11 ,9 ;" " z#q=q+1:q=6q=2 pu=179  400 dFIN DEL JUEGO ipo>recrec=po n12,3;"FIN DEL JUEGO" xi1;0;1;9 ,7;" FIN ";10 ,7;" DEL ";11 ,7;"JUEGO" 3#1;0,0;"JUGAMOS DE NUEVO? S/N" d$= d$="s"d$="S"92\  d$""  6535 '"C. Mocos"1 c$eqV \ux z  s  togfQyApYD