ZXTape! 2 Domin 3-DSound on Sound1985SpanishBoard/Card GameNoneOriginal releaseHManufacturer: Iberofon, S.A. D.L.: M-8285-1985 TZXed by Juan Pablo LopezDOMINO -  6z / 6:6:6: =21,12 ;0;"""DOMINO""":0,0; ("" 2 7 F Pw=1216 Za d22528X+a,120x nw sa#1;6;7;2;1;1;"DEJE SEGUIR LA CINTA":0,0; x"" M85U,117u,84T,116t,83S,82R,115s,114r Q146,147,178,179,210,211,242,243 Q274,275,3062,3073,338R,339S,370r,371s Q337Q,369q,336P,368p,335O,367o,334N,366n Q302.,303/,270,271,238,239,206,207 O174,175,142,143,110n,111o,78N,79O M77M,109m,76L,108l,75K,107k,74J,106j Q138,139,170,171,202,203,234,235 Q266 ,267 ,298*,299+,330J,331K,362j,363k Q329I,361i,328H,360h,327G,359g,326F,358f Q294&,295',262,263,230,231,198,199 O166,167,134,135,102f,103g,70F,71G K69E,101e,68D,100d,67C,99c,66B,98b Q130,131,162,163,194,195,226,227 Q258,259,290",291#,322B,323C,354b,355c Q385,386,387,388,417,418,419,420 "Q450,451,482,483,514,515,546",547# ,Q578B,610b,579C,611c,580D,612d,581E,613e 6Q614f,615g,582F,583G,550&,551',518,519 @Q454,486,455,487,456,488,457,489 JQ458,459,490,491,522 ,523 ,554*,555+ TQ586J,618j,587K,619k,588L,620l,589M,621m ^Q622n,623o,590N,591O,558.,559/,526,527 hQ462,494,463,495,464,496,465,497 rQ466,467,498,499,530,531,5622,5633 |Q594R,626r,595S,627s,596T,628t,597U,629u Q630v,631w,598V,599W,5666,5677,534,535 Padom.$ @mCCC8kk8=kkkp=p@@@PPP8PP8<PPPPPPPPPPPPPPPp8=88=88<P<==PPx=P<PP8==P==P8x=PPP=PPp=P=PP=P=PPPP=P=P88====8x<8===|===88======pPPP88PPP8PPP=PPPP88PPPPPP=PPPP8<8pCPCPCP8UPUPP8=PPUPPUPPUPpP=PPPPpPUPPUPPkk/8kkk 8=@C8cc@8 c=CCPPPPPPPPPP'8PPP p8PPP~>@8ccP8>>~Ѐ@@ cccPPP>'8= `81??8c8 ~?=|> =P=PP=P=Px<P=PP=P=P#8=P<P<==P 8P=P=<==P|ccP8c>{P8>>P<==PP====<x===#8==<==p|=<<==8cc{߰8߰|!888 >PPPPP>UPPUPPUP 8=P@PCPPPP8~@P8P ?c=CPCPUPUPUPxkkkx=kkkp@@@pPPP@8PPPPPPPPPPPPp=888???P==P=P=PPPPPPPp==Pހ==P==P<P<P<==P88===8=88====<==޼==pPPPP|PP=PPPP88PPPPPPpP=PPPPUPPUPPUPp@P@P@PpPPP000000000000000000000000000000000000000000000000000000000000000000000000000000000000000002200000000000000000000000000000022000000000000000000000000000000220000000000000000000000000000002200000000000000000000000000000022000000000000000000000000000000220000000000000000000000000000002220000000000000000000000000000022200000000000000000000000000000222000000000000000000000000000002200000000000000000000000000000022000000000000000000000000000000220000000000000000000000000000002200000000000000000000000000000022000000000000000000000000000000220000000000000000000000000000002200000000000000000000000000000022000000000000000000000000000000220000000000000000000000000000002200000000000000000000000000000000000008888888888888888888888888888888888888888888888888888888888888888;dom. p ^^^ 9 +1:1::236099\,100d uw=17:.1}L,15:w:6;0;10 ,10 ;1;"PARE LA CINTA":100d: 1:1: 0;6;" ";" DOMINO";20;"IRIS * 1985";" ":9800H& G.2~L,20:8,8;7;"A cuantos puntos ?":t$ %t$<491ůt$>57911 Jtope=t$:8,8;1;7;"Partida a ";tope;" puntos" lsuma=0:sima=0:tot=0:tota=0:#1;1;1;" ESPERE...":8000@ m$="":f0=0:f1=0:f2=0:f3=0:f4=0:f5=0:f6=0:pausa=15:c$="Vd":t=0:zona=10 :c1=0:c2=0:r=0:paso=0:piso=0 .2~L,20:1;("NIVEL ? (1-5)";1;m$;0;" ");n$:n$<491ůn$>535.1}L,10 :.1}L,10 :m$="(numero)":16 Cnn=n$:11 ,25;5;0;1;"Nivel:";nn turno=0:uuu=14:p=0:uu=22:vv=9 :fu=7:u=26:.1}L,15:.1}L,15:1;("Color tapete";1;m$;0;" ? ");s$:s$<480ůs$>557m$="(numero)":20 s=s$:9700%:s:s:0::11 ,25;5;0;1;"Nivel:";nn;6,24;s;0;" " K#1;1;1;" (estoy repartiendo las fichas) ":7000X Z15,27;6;0;1;1;c$:.1}L,25:9998' c$="Vd"c$="Yo":30 @c$="Yo"9000(#:6000p:9820\&:c$="Vd":35# 1;"Ficha ? ";g$ <g$="f"g$="x"g$="ver"ůg$>47/Ưg$<55734" !0.1}L,10 :.1}L,10 :30 "g$="ver"9900& #g$(1)="x"500 %g$="f"9850z& &g$"x"Ʊg$=133! ^ 85004! h a=g$(1):b=g$(2) r&c$="Yo"w=319 -1 sc$="Vd"w=022 |$c=(20,w):d=(21,w) Sa=cb=da=db=c19,w;s;" ";20,w;s;"7";21,w;"7":420 w  23  c$="Yo"w=31u-1 c$="Vd"w=0fu-2 (20,w)="7"450  460 c$="Yo"h$=(20,w-1):h$"7"7;0;1;20,w;(20,w-1);21,w;(21,w-1);20,w-1;0;s;s;"7";21,w-1;"7" c$="Vd"h$=(20,w+1):h$"7"s;9 ;19,w;"|";ss;ss;20,w;(20,w+1);21,w;(21,w+1);19,w+1;s;" ";20,w+1;s;s;"7";21,w+1;"7" w "c$="Yo"9820\&:u=u+1 c$="Vd"fu=fu-1 4zona=10 5000+paso:paso=paso+10 3zona=05300+piso:piso=piso+10 ^(20,31)="7"20,25;9 ;1;1;"DOMINO":9500% \(20,0)="7"20,2;9 ;1;1;"DOMINO":9500% turno=0:23 'uuu=0turno=29500% uuu=0turno=1:.1}L,15:.1}L,15:17,26;4;0;1;1;"PASO":15,27;6;0;1;1;"Yo":77M:17,26;s;" ":26 c$="Yo"turno=turno+1:.1}L,3:.1}L,3:.1}L,3:20,u-2;7;0;1;(20,uu);21,u-2;(21,uu):19,uu;" ";20,uu;" ";21,uu;" ";18,u-2;s;9 ;1;"*":pausa:18,u-2;s;0;" ":uuu=uuu-1:uu=uu-1:u=u-1:9998':30 19,fu;s;9 ;"|";20,fu;ss;ss;(20,vv);21,fu;(21,vv):19,vv;" ";20,vv;" ";21,vv;" ":uuu=uuu-1:vv=vv+1:fu=fu+1:9998':6000p l x$=g$+z$: v1x$(1)="0"j$=" ":k$=" ":l$=" ":m$=" " 1x$(1)="1"j$="":k$="":l$="":m$="" Ax$(1)="2"x$(1)="3"j$=" ":k$="":l$="":m$=" " Ax$(1)="4"x$(1)="5"j$="":k$="":l$="":m$="" x$(3)="v"700 x$(3)="h"690 <x$(1)="6"j$="":k$="":l$="":m$="":710 1x$(1)="6"j$="":k$="":l$="":m$="" 1x$(2)="0"n$=" ":o$=" ":p$=" ":q$=" " 1x$(2)="1"n$="":o$="":p$="":q$="" Ax$(2)="2"x$(2)="3"n$=" ":o$="":p$="":q$=" " Ax$(2)="4"x$(2)="5"n$="":o$="":p$="":q$="" x$(3)="v"770 x$(3)="h"780  <x$(2)="6"n$="":o$="":p$="":q$="":790  <x$(2)="6"n$="":o$="":p$="":q$="":790 x$(3)="v"810*  x$(3)="h"850R *W1;y,x;7;j$;k$;y+1,x;l$;m$;y+2,x;n$;o$;y+3,x;p$;q$ 4bx$(1)="3"x$(1)="5"1:1;y,x;7;0;"";y+1,x;"" >jx$(2)="3"x$(2)="5"1:1;y+2,x;7;0;"";y+3,x;"" H 900: R=1;y,x;7;j$;k$;n$;o$;y+1,x;l$;m$;p$;q$ \bx$(1)="3"x$(1)="5"1:1;y,x;7;0;"";y+1,x;"" frx$(2)="3"x$(2)="5"1:1;y,x+2;7;0;"";y+1,x+2;"" p 950: z 1:1;7;0;y,x;" ";y+1,x;"";y+2,x;"";y+3,x;" ":x*8,175-y*8:15,0:0,-31:-15,0:0,30:0 xx=0 r0;0;s;y,x+2;"";y+1,x+2;"";y+2,x+2;"";y+3,x+2;""  +0;0;s;y+4,x;"": 1:1;7;0;y,x;" ";y+1,x;" ";y,x+1;"";y+1,x+1;"":x*8,175-y*8:31,0:0,-15:-31,0:0,14:0 xx=0 [0;0;s;y,x+4;"";y+1,x+4;"";y+2,x+2;""  *0;0;s;y+2,x;"":  s:t=0:p=1:r=1:xx=1:y=10 :x=0:z$="h":620l:990:c1=x$(1):c2=x$(2): Gr=1:y=6:x=1:z$="v":620l:c1=x$(1): Sr=0:y=2:x=1:z$="v":620l:c1=x$(1):5600: fr=0:y=0:x=1:z$="h":620l:2,3;1;"":c1=x$(2): Sr=0:y=0:x=5:z$="v":620l:5601:c1=x$(2): Sr=0:y=4:x=5:z$="v":620l:5602:c1=x$(2): Rr=1:y=8:x=5:z$="h":620l:990:c1=x$(2): ^r=1:y=6:x=9 :z$="v":620l:940:5603:c1=x$(1): Sr=0:y=2:x=9 :z$="v":620l:5600:c1=x$(1): gr=0:y=0:x=9 :z$="h":620l:2,11 ;1;"":c1=x$(2): Tr=0:y=0:x=13 :z$="v":620l:5601:c1=x$(2): Tr=0:y=4:x=13 :z$="v":620l:5602:c1=x$(2): Sr=1:y=8:x=13 :z$="h":620l:990:c1=x$(2):  _r=1:y=6:x=17:z$="v":620l:940:5603:c1=x$(1): Tr=0:y=2:x=17:z$="v":620l:5600:c1=x$(1): hr=0:y=0:x=17:z$="h":620l:2,19;1;"":c1=x$(2): (Tr=0:y=0:x=21:z$="v":620l:5601:c1=x$(2): 2Tr=0:y=4:x=21:z$="v":620l:5602:c1=x$(2): c1ɰg$(1)c2ɰg$(1)c1ɰg$(2)c2ɰg$(2).1}L,15:.1}L,15:#1;1;"Ficha NO valida":150:.1}L,25:c$="Vd":23 !C-c1=g$(1)c2=g$(2)8600! !D-c2=g$(1)c1=g$(2)8530R! !H<c1=g$(1)c1=g$(2)zona=10 :8600! !Rzona=0 !\It=1c2=g$(1)j$=g$(2)+g$(1):g$=j$:360h !f&t=1c2=g$(2)360h !p&t=0c2=g$(1)360h !zIt=0c2=g$(2)j$=g$(2)+g$(1):g$=j$:360h ! 360h !Xzona=10 :r=1c1=g$(1)j$=g$(2)+g$(1):g$=j$:360h !&r=0c1=g$(1)360h !Ir=0c1=g$(2)j$=g$(2)+g$(1):g$=j$:360h ! 360h #' 0 #(nn=1 #)'nn=2nivel=5:9005-# #*'nn=3nivel=3:9005-# #+'nn=4nivel=2:9005-# #,'nn=5nivel=1:9005-# #-8w=0fu-1:c5=(20,w):c6=(21,w):c5=c1c6=c1c5=c2c6=c20,0;s;s;(20,0);1,0;(21,0);20,0;ss;ss;(20,w);21,0;(21,w);20,w;(0,0);21,w;(1,0):9007/# #.w #/1w=0fu-1:c5=c1c5=c2c6=c1c6=c2 #0w #2w=vvuunivel #7&c3=(20,w):c4=(21,w) #<c3=c2c4=c1c3=c1c4=c20,0;s;s;(20,w);1,0;(21,w);20,w;sss;sss;1;(20,vv);21,w;(21,vv);20,vv;sss;sss;(0,0);21,vv;(1,0): #Fw #P %suma=0:sima=0 %!w=31u-1-1 %#'su=(20,w):sum=(21,w) %&suma=suma+su+sum %0w %1T(20,0)="7"s;s;20,0;0;21,0;0 %3w=0fu-1 %4'si=(20,w):sim=(21,w) %5sima=sima+si+sim %7w %C0,25;" " %Dw=10 34":.02{# =,w:w:0,25;1;6;0;1;"Puntos:";0;0;s;9 ;2,25;"Vd.:";suma;" ";3,25;"Yo :";sima;" " %N%suma>simasima=0:9560X% %P%sumando10 ,0;2;7;1;1;"Reparto NULO de fichas"''"(tengo ";dobles;" dobles)":9900& & dobles=0 &!w=2531 &"do1=(20,w) &#do2=(21,w) &$ do1=do2dobles=dobles+1 &% w:w$="si" &&pdobles>ndo2;7;1;1;"..Conforme con sus dobles?";w$:w$(1)="s"9998': &'w$(1)="n"21 &G &Hndo=7:5,4;7;1;"Necesita instrucciones ?":h$:h$=h$+" ":1;6;7,0;"Quiere ""destapar"" las fichas quesobran, al final ?":d$:d$=d$+" ":h$(1)="n": &Ra5,0;5;1;;" -Use los numeros correspondien-tes para jugar su ficha. " &T6;1;"No importa el orden en el que lohaga si las fichas jugadas solotienen una posicion posible parasu colocacion." &W:5;1;" -Use la letra """;6;"x";5;""" para """;6;"robar";5;""",o para """;6;"pasar";5;"""."''" -Use la letra """;6;"f";5;""" para contabi-lidad de fichas." &XF::5;1;"De TODO lo demas se encargara lacomputadora." &YJ#1;6;1;"Pulse una tecla para continuar":0:: &\contabilidad de fichas &]g$="x"g$="ver" &^'g$(1)=g$(2)9830f& &_1g$(1)=0f0=f0+1:9830f& &`1g$(1)=1f1=f1+1:9830f& &a1g$(1)=2f2=f2+1:9830f& &b1g$(1)=3f3=f3+1:9830f& &c1g$(1)=4f4=f4+1:9830f& &d1g$(1)=5f5=f5+1:9830f& &e1g$(1)=6f6=f6+1:9830f& &f1g$(2)=0f0=f0+1:9840p& &g1g$(2)=1f1=f1+1:9840p& &h1g$(2)=2f2=f2+1:9840p& &i1g$(2)=3f3=f3+1:9840p& &j1g$(2)=4f4=f4+1:9840p& &k1g$(2)=5f5=f5+1:9840p& &l1g$(2)=6f6=f6+1:9840p& &p &zw=39 :2;7;1;w,0;w-3:w:s;9 ;3,4;f0;4,4;f1;5,4;f2;6,4;f3;7,4;f4;8,4;f5;9 ,4;f6 &{I#0;1;2;7;1;"Pulse una tecla":0 &|;w=39 :s;s;w,0;" ";w,4;" ":w &~ 30 &w=0fu-1 &J20,w;8;9 ;(20,w);21,w;(21,w):w &V#1;"":#1;1;7;2;1;"Pulse una tecla":0 &dobles>ndo:21 &w=0fu-1 &@20,w;ss;ss;(20,w);21,w;(21,w):w & 30 '1;0,25;1;9 ;"Fichas:";0;2,26;"Vd:";33!-u;0;" ";1;3,26;"Yo:";fu;0;" ": '(w=5000554010 :w:w d