ZXTape! Spairs + s0:0:7:25500c:21,0;2;"PEDRO PRESENTA......";1;"Speccy Pairs"  0:0,0:"" .12 ,0:7:7:1 ("" 250000P:"" MVC-635F2 @a ? 0?D@x"x@0  ~ x`?< `8x`@? @g??>@ `@`8}?@|Ap08"9`<> ~@ @(~ 800`~~8 ? ?@@p|'?{|#?G<p?@@ @>   8x@`?xG '>@8`0p <  >? @ `|  ~ ~"ca` p`8  ?@r  x@ 0~(p< #@`8x ~pp`0@<0>00$c@@`pg 8x` ` `C>? 7L6eFS &B~@@(0`Gx| 8`? ` `?p`<`Ot  `M|p0?x0x~p0 ?0xX0A@?(@ =`? w|2y@g<@@0 x zq0x`0< x?p  p? y @@ =p`A p`  @C@?@  00@0'?@ x?pC`p@?<@0FxOxxzxxxxxxxxxxxGGGGGxxxxxxxxxxxxxzxxxxzxzxGGGGGGGGGGxxxxxxzzzxxxxxzxxzxzxGGGGGGxxxxxxxxxxzzxzxxxxxxxxxxzxGGGGGxxxxxxzzzzxxxzzxxzzxxxzzxzxGGGGGxxGxxxzzzzxzzzzxxxxzxxxxxxGGGGGGxxxxxzzxzzxzxzzxzxzxxxxxGxxxxGGxxxxxxzzzzxxzzzzxxxzxxGxxxxxzWxxxxxxxxxyxzxzzxzxxzxzxxxGxxxxxxxxxxxGxxxxxxxxxxzxzxxzxGGGGGGGGGGxGGGGGxGGGGGxGGGGGGxzxxGGGGGGxGGxGxxGxxGGGGGxGGGGGGxxxxGxGGxGGGGGGxxGxxGGxGGGGGGGxGxxxGGGGGGGGGGGGGGGGxGGxGGGBGGGxGxxxxGGGGGGGGGGGGGGGGGGGGGGGGGGGGxGxxxxxxxxxxxxGxxxxxxxxxxxxxxxxxxxxxxxxzzxxxxxxxxxxxxxxxxxxxxxGxxxxxxxxzzxxxxxxxxxxxxxxzWxzzxxxxxxxxxxzzxxxxxxxxxxxxxxxxxxzzxzzxzzxxxxzzxzxxxxxxxxxxxxxzzxxxxzzxzzGxxxxxxxxxxxxxxxxxxxxzzzWzxzzxzzxxzxWzxxxxxxxxxxxxxxxzzWzzxzzWzzxxxxzxxxGxxxxxxxxxxxzWxzzzxWzzWzxxxzxxxxxxxGxxxxxxxxxxxzzx{WxxzzxxzWzxxxxGxxyxxxGxxxzzxxxxxzzzWzUDG X'//////'////////*%*%UUTT*%*%*%*%UUUUTTTT*%*%UUTTl||8~~~~~~ESP @;#@:0:0:7: epunt=0:n$="":r(8):r$(8,10 ):9000(#:n=17:r$(n),r(n):n  8000@ /9100#:crz=5:Inicio del juego s(10 ,5):c(10 ,5):i(10 ,5):b(10 ,5):tiempo=21:level,pairs,max,maxc,cora,ba,rt level=195010 ;fin=pairs+cora+ba:por=0:cartas=pairs*2+cora :2;0;10 ,7;"";11 ,7;"";7;2;"Generando nivel";2;0;"";12 ,7;"";13 ,7;"" r1;17,0;" Q=Arriba A=Abajo O=Izquierda";18,0;" P=Derecha M=Descubrir Carta" Calculo de la Matriz "n=1pairs:por=por+1 ?7;2;12 ,15;(por/fin*100d);"%" %num=(*max):col=(*maxc)+1 (p=12 -1x=(*10 )+1:y=(*5)+1 22i(x,y)=0c(x,y)=num:i(x,y)=col:60< 7 45- <p Fn Y"Calculo de cartas boca ariba Zba=0200 dn=1ba:por=por+1 i?7;2;12 ,15;(por/fin*100d);"%" n1x=(*10 )+1:y=(*5)+1 s*i(x,y)=0b(x,y)=1110n xb(x,y)=1 n Calculo de los corazones cora=0300, !n=1cora:por=por+1 ?7;2;12 ,15;(por/fin*100d);"%" 1x=(*10 )+1:y=(*5)+1 +i(x,y)0c(x,y)=80P220 c(x,y)=80P n "Fin del Calculo de la Matriz ,0:0:7: 64;0,0;"" @k0;4;;1,2;"Vidas";2,2;"Tiempo";3,2;"Nivel";" ";level Ln=6203 Vmn,1;" " `n 'y=15:x=110 i(x,y)=0c(x,y)=0(y-1)*3+6,(x-1)*3+1;" ";(y-1)*3+7,(x-1)*3+1;" ";(y-1)*3+8,(x-1)*3+1;" " b(x,y)=11300 x:y:1350F c(x,y)=c(x,y)-100 >color=i(x,y):color2=0:color3 color2=7 numero=c(x,y) color;0;(y-1)*3+6,(x-1)*3+1;"";(y-1)*3+7,(x-1)*3+1;"";color2;color;numero;color;0;"";(y-1)*3+8,(x-1)*3+1;"" - FH3600:6;4;2,9 ;"" xSeleccion primera carta sx=1:sy=1 <a$=:7:b(sx,sy)=1s(sx,sy)=1i(sx,sy) )4;2,(tiempo+9 );"" (crz=0tiempo05000 cartas=05500| 8+(sx-1)*24,127-(sy-1)*24:23,0:0,-23:-23,0:0,23: 0A$="p"21004:sx<10 sx=sx+1 /A$="o"21004:sx>1sx=sx-1 /A$="q"21004:sy>1sy=sy-1 /A$="a"21004:sy<5sy=sy+1 A$="m"2200 *tiempo=tiempo-rt + 2010 40.005y# =,20:1:8+(sx-1)*24,127-(sy-1)*24:23,0:0,-23:-23,0:0,22:0: [0.005y# =,30:0.005y# =,10 :i(sx,sy)=0c(sx,sy)=02010 c(sx,sy)=80P2300 b(sx,sy)=19 +(sx-1)*24,126~-(sy-1)*24:21,0:0,-21:-21,0:0,21:2500 @color=i(sx,sy):color2=0:color3 color2=7 numero=c(sx,sy) color;0;(sy-1)*3+6,(sx-1)*3+1;"";(sy-1)*3+7,(sx-1)*3+1;"";color2;color;numero;color;0;"";(sy-1)*3+8,(sx-1)*3+1;"" űi(sx,sy):9 +(sx-1)*24,126~-(sy-1)*24:21,0:0,-21:-21,0:0,21:s(sx,sy)=1:2500 7;(sy-1)*3+6,(sx-1)*3+1;"";(sy-1)*3+7,(sx-1)*3+1;"";(sy-1)*3+8,(sx-1)*3+1;"":crz=crz+1:3600  (sy-1)*3+6,(sx-1)*3+1;" ";(sy-1)*3+7,(sx-1)*3+1;" ";(sy-1)*3+8,(sx-1)*3+1;" ":c(sx,sy)=0:i(sx,sy)=0:cartas=cartas-1:2010 Seleccion segunda carta tx=sx:ty=sy <a$=:7:b(tx,ty)=1s(tx,ty)=1i(tx,ty) )4;2,(tiempo+9 );"" (crz=0tiempo05000 cartas=05500| ̊8+(tx-1)*24,127-(ty-1)*24:23,0:0,-23:-23,0:0,23: 0A$="p"3100 :tx<10 tx=tx+1 /A$="o"3100 :tx>1tx=tx-1 /A$="q"3100 :ty>1ty=ty-1 /A$="a"3100 :ty<5ty=ty+1 A$="m"3200 tiempo=tiempo-rt:3010  3010 0.005y# =,20:1:8+(tx-1)*24,127-(ty-1)*24:23,0:0,-23:-23,0:0,22:0: E0.005y# =,30:0.005y# =,10 :sx=txsy=ty3010 /i(tx,ty)=0c(tx,ty)=03010 c(tx,ty)=80P3300 b(tx,ty)=19 +(tx-1)*24,126~-(ty-1)*24:21,0:0,-21:-21,0:0,21:3500 @color=i(tx,ty):color2=0:color3 color2=7 numero=c(tx,ty) color;0;(ty-1)*3+6,(tx-1)*3+1;"";(ty-1)*3+7,(tx-1)*3+1;"";color2;color;numero;color;0;"";(ty-1)*3+8,(tx-1)*3+1;"" i(tx,ty):9 +(tx-1)*24,126~-(ty-1)*24:21,0:0,-21:-21,0:0,21:s(tx,ty)=1:3500 7;(ty-1)*3+6,(tx-1)*3+1;"";(ty-1)*3+7,(tx-1)*3+1;"";(ty-1)*3+8,(tx-1)*3+1;"":crz=crz+1:3600 (ty-1)*3+6,(tx-1)*3+1;" ";(ty-1)*3+7,(tx-1)*3+1;" ";(ty-1)*3+8,(tx-1)*3+1;" ":c(tx,ty)=0:i(tx,ty)=0:cartas=cartas-1:3010 1c(sx,sy)=c(tx,ty)i(sx,sy)=i(tx,ty)4000 4500 Mcrz<15n=1crz:2;4;1,n+8;" ":n: F2;4;1,9 ;"(";crz;")";" ": 0.005y# =,10 :0.005y# =,20:0.005y# =,40(:(sy-1)*3+6,(sx-1)*3+1;" ";(sy-1)*3+7,(sx-1)*3+1;" ";(sy-1)*3+8,(sx-1)*3+1;" " (ty-1)*3+6,(tx-1)*3+1;" ";(ty-1)*3+7,(tx-1)*3+1;" ";(ty-1)*3+8,(tx-1)*3+1;" " crz=crz+1:c(sx,sy)=0:c(tx,ty)=0:i(sx,sy)=0:i(tx,ty)=0:s(sx,sy)=0:s(tx,ty)=0:b(sx,sy)=0:b(tx,ty)=0:cartas=cartas-2:3600 sx=tx:sy=ty:2010 /n=1100d:n:Cartas no iguales 'Colocar primera carta como estaba b(sx,sy)=07;0;(sy-1)*3+6,(sx-1)*3+1;"";(sy-1)*3+7,(sx-1)*3+1;"";;(sy-1)*3+8,(sx-1)*3+1;"":s(sx,sy)=0:4550 @color=i(sx,sy):color2=0:color3 color2=7 numero=c(sx,sy) color;0;(sy-1)*3+6,(sx-1)*3+1;"";(sy-1)*3+7,(sx-1)*3+1;"";color2;color;numero;color;0;"";(sy-1)*3+8,(sx-1)*3+1;"" 'Colocar segunda carta como estaba b(tx,ty)=07;0;(ty-1)*3+6,(tx-1)*3+1;"";(ty-1)*3+7,(tx-1)*3+1;"";;(ty-1)*3+8,(tx-1)*3+1;"":s(tx,ty)=0:4570 @color=i(tx,ty):color2=0:color3 color2=7 numero=c(tx,ty) color;0;(ty-1)*3+6,(tx-1)*3+1;"";(ty-1)*3+7,(tx-1)*3+1;"";color2;color;numero;color;0;"";(ty-1)*3+8,(tx-1)*3+1;"" 7crz=crz-1:3600:sx=tx:sy=ty:2010 ,crz=04;1,9 ;" " 11 ,12 ;2;0;"";12 ,12 ;"";7;2;"Game";2;0;"";13 ,12 ;"";7;2;"Over";2;0;"";14,12 ;"" levelr(7)2;0;15,6;"";16,6;"";7;2;"Escribe tu nombre";2;0;"";17,6;"":n$:8400 n=11000:n  8050r |0n=1502:0.001wn,n:n:10 r30:0:7::x=1:y=1 | 1 'x,y;"" ?n=17:n+x,y;" ":n /X+8,Y;"" 6:1:X+1,Y+1;" ";x+1,y+6;" ";x+1,y+11 ;"";x+1,y+16;" ";x+1,y+21;" ";x+1,y+26;" " X+2,Y+1;" ";x+2,y+6;" ";x+2,y+11 ;" ";x+2,y+16;" ";x+2,y+21;" ";x+2,y+26;" " X+3,Y+1;" ";x+3,y+6;" ";x+3,y+11 ;" ";x+3,y+16;" ";x+3,y+21;" ";x+3,y+26;" " §X+4,Y+1;" ";x+4,y+6;" ";x+4,y+11 ;" ";x+4,y+16;" ";x+4,y+21;" ";x+4,y+26;" " ̧X+5,Y+1;" ";x+5,y+6;" ";x+5,y+11 ;" ";x+5,y+16;" ";x+5,y+21;" ";x+5,y+26;" " ֧X+6,Y+1;" ";x+6,y+6;" ";x+6,y+11 ;" ";x+6,y+16;" ";x+6,y+21;" ";x+6,y+26;" " X+7,Y+1;" ";x+7,y+6;" ";x+7,y+11 ;"";x+7,y+16;" ";x+7,y+21;" ";x+7,y+26;" " X=8:Y=4 42:0:x,y;"" :n=17:n+x,y;" ":n *X+8,Y;"" 7:2 X+1,Y+1;" ";x+1,y+6;" ";x+1,y+11 ;"";x+1,y+16;" ";x+1,y+21;" " &X+2,Y+1;" ";x+2,y+6;" ";x+2,y+11 ;" ";x+2,y+16;" ";x+2,y+21;" " 0X+3,Y+1;" ";x+3,y+6;" ";x+3,y+11 ;" ";x+3,y+16;" ";x+3,y+21;" " :X+4,Y+1;" ";x+4,y+6;"";x+4,y+11 ;" ";x+4,y+16;" ";x+4,y+21;" " DX+5,Y+1;" ";x+5,y+6;" ";x+5,y+11 ;" ";x+5,y+16;" ";x+5,y+21;" " NX+6,Y+1;" ";x+6,y+6;" ";x+6,y+11 ;" ";x+6,y+16;" ";x+6,y+21;" " XX+7,Y+1;" ";x+7,y+6;" ";x+7,y+11 ;"";x+7,y+16;" ";x+7,y+21;" " b7:0 l06;19,8;"1 Nueva Partida" v?1;21,0;"Pedro Romero promero@ono.com '03" n=1300, a$= a$="1"9 a$="2"2000 n :2;3,4;"";4,4;"";7;2;" Mejores Puntuaciones ";2;0;"";5,4;2;0;"" tn=17:8-n;n*2+5,5;n;". ";r$(n);n*2+5,19;"Nivel ";r(n):n 8470! n=17 levelr(n)8430 n f=7n+1-1 (r(f)=r(f-1):r$(f)=r$(f-1) !f ! "r(n)=level:r$(n)=n$:8370 !n=1500 ! "":8050r !*n::8050r #'%level pairs max maxc cora ba rt #(x"Pedro",10 ,"Maribel",9 ,"Pedro",8,"Maribel",7,"Pedro",6,"Maribel",5,"Pedro",4 #?1,23,10 ,1,4,10 ,0.02{# = #>2,24,10 ,1,2,5,0.02{# = #>3,25,10 ,1,0,2,0.02{# = #>4,23,4,2,4,10 ,0.02{# = #=5,25,1,7,0,0,0.01z# = #>6,15,10 ,3,3,5,0.03{u\ #>7,15,10 ,4,2,5,0.03{u\ #>8,15,10 ,5,1,5,0.03{u\ #>9 ,15,10 ,7,0,5,0.03{u\ #>10 ,25,2,7,0,5,0.03{u\ #>11 ,25,3,7,0,5,0.04|# = #>12 ,25,4,7,0,5,0.05|L #>13 ,25,5,7,0,5,0.06|u\ #>14,25,6,7,0,5,0.07}\( #>15,25,7,7,0,5,0.08}# = #>16,25,8,7,0,5,0.09}8Q #>17,25,9 ,7,0,5,0.10}L #?18,25,10 ,7,0,5,0.10}L #:19,0,0,0,0,0,0 unN+ U Pedro Maribel Pedro Maribel Pedro Maribel Pedro x yA1r    iempeveaira axor {# =i%oarta2uo(F