ZXTape! 2 Diablo King Cibercomp1984SpanishBoard/Card Game 540 ptas.NoneOriginal release4Publisher release code: CI-006 TZXed by Tony Barnett^diablokingX 2:7::"" _DIABLOKING;;="cibercomp" 8:8: "DIABLOKING" _cibercomp @OR ?????@BB|B@|<<|@B<<@~|~x<|<<Bx|~|<BHDBB@BDFBB@@D@DB@BBB@DBBB@B~x>B|~B<B~@B~x<@BBBv|~B<<<<================================================================================================================================================================================================================================================================================================================================================================================================================================================================================================================================================================================================================================================================================================================================8888888888888888888888888888888888888888888888888888888888888888aDIABLOKING+(4+"H" alfredo paya  e3,7,10 ,20,"DIABLOKING",2,7,0,100d," CIBERCOMP 1984" ,EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE 0:0:0:0:0:7::AP=1:R(15):N$(15,13 ):7,10 ;"PARA LA CINTA";15,8;"PROGRAMA CARGADO":J=110 :.5,J+30:J::J=12:6500d:100d #eeeeeeeeeeeeeeeeeeeeeee M4:4::XS=1:YS=2:23658j\,8:MO=0 AP=0100d DIF=2:120x: 0;6;11 ,0;"ESTE ES EL DIABLOKING QUE TENDRAS QUE ORDENAR HASTA CONSEGUIR ESTE":AP=2::J=2DV+1:H=2DH+1:B(J,H)=A(J,H):2000:.3,J+4*H:H:J 09300T$:J=031:Q:"A"+J,Q:J 10 ,0;0;4;" LAS FICHAS SE MUEVEN CON LAS 4 TECLAS DEL CURSOR (5,6,7 Y 8)",,," ES DECIR............ Y " ,100d:4:8900":6500d a1,1;6;"POR EJEMPLO APRETANDO EL 8 () OCURRIRA LO SIGUIENTE :":200: <XS=1:YS=2:ERR=1:Q=8:1030 `4,1;6;0;"Y APRETANDO EL 6 ()...":200:Q=6:1030 `6,1;6;0;"Y APRETANDO EL 5 ()...":200:Q=5:1030 !`8,1;6;0;"O APRETANDO EL 7 ()...":200:Q=7:1030 "10 ,1;0;7;"LA TECLA ""E"" (DE ERROR) DESHACE";11 ,1;"EL ULTIMO MOVIMIENTO REALIZADO.":100d:Q=6:1030 #100d:4::16,0;7;" HAY 15 NIVELES DE DIFICULTAD "'"QUE DEPENDEN DE LAS DIMENSIONES "'"DEL DIABLOTIN (DE 6 A 40 FICHAS)" $`AP=1:7;0;20,5;"ESTE ES EL NIVEL =1=":DIF=1:120x 'n4:200::7;0;20,5;"Y ESTE ES EL NIVEL =15=":DIF=15:120x (4::6;" ESTAS SON LAS POSIBILIDADES "'''"NIVEL DIMENSION No. DE FICHAS***** ********* *************" )9000(#:4:7:'':J=115:" ";(" "J<10 );J;" ";:DV,DH:DV;" X ";DH," ";:(" "J<4);DV*DH:J 2200::7;2;''"PUEDEN PARTICIPAR UNO O VARIOS JUGADORES, INTENTANDO MEJORAR LOS RECORDS ANTERIORES EN CADA NIVEL DE DIFICULTAD" F#eeeeeeeeeeeeeeeeeeeeeee Z8#0;" PULSA UNA TECLA PARA COMENZAR":0 dmERR=0:AP=0:4::"NIVEL DE DIFICULTAD (1-15)";DIF:DIF<1 DIF>15 100d xQ9000(#:I=1DIF:DV,DH:I:C=((30-DH*3)/2)-1 #eeeeeeeeeeeeeeeeeeeeeee A(DV+2,DH+2):B(DV+2,DH+2):AP=02:J=13*DH+2:1,J+C;"";3*DV+2,J+C;"":J:I=13*DV+2:I,1+C;"";I,3*DH+C+2;"":I k9000(#+DIF:J=2DV+1:H=2DH+1:B(J,H):A(J,H)=(J-2)*DH+H-1:H:J dA(DV+1,DH+1)=99c:B(DV+1,DH+1)=99c:X0=DV+1:Y0=DH+1 LJ=2DV+1:H=2DH+1:2000:H:J:AP=1 #eeeeeeeeeeeeeeeeeeeeeee 69200#:3:7:6500d:7000X ,#eeeeeeeeeeeeeeeeeeeeeee 8000@:A$="" A$=:A$=""1000 AA$<"5"A$>"8"A$"E"1,-30:5000:1000  A$="E"6000p:1000 '.02{# =,0:Q=A$:ERR=0 #eeeeeeeeeeeeeeeeeeeeeee ^XF=X0+(1Q=7)-(1Q=6):YF=Y0+(1Q=5)-(1Q=8) $*B(XF,YF)=05000:1000 .(ERR=0MO=MO+1:7000X 3wT=B(XF,YF):B(XF,YF)=99c:J=XF:H=YF:2000:B(X0,Y0)=T:J=X0:H=Y0:2000:X0=XF:Y0=YF:AP=2 8 1000 l#eeeeeeeeeeeeeeeeeeeeeee iXX=(H-2)*24+20+8*C:XY=(J-2)*24+20+(112pAP=2) =1:6:B(J,H)/2=(B(J,H)/2)5 $Z$=B(J,H):Z$=1Z$=" "+Z$ #B(J,H)=99cZ$=" ":0 9990':3000 : #eeeeeeeeeeeeeeeeeeeeeee yXX-4,156-XY:23,0:0,23:-23,0:0,-23:.01z# =,40(: #eeeeeeeeeeeeeeeeeeeeeee 9210#:2:7:1:6500d:0:J=110 :.2~L,J:J:Z$=" ":4:XS=32 :9990':XS=1:YS=2: p4MO=0ERR=15000:1000 q#eeeeeeeeeeeeeeeeeeeeeee uERR=1:.5,-30:R=(5Q=8)+(8Q=5)+(6Q=7)+(7Q=6):Q=R:MO=MO-1:7000X:1030 d!XS,YS,XX,XY,Z$:9990':J: XN7:3:XS=3:YS=3:XX=186:XY=168:Z$=MO ]#eeeeeeeeeeeeeeeeeeeeeee gZ$=1Z$="00"+Z$ hZ$=2Z$="0"+Z$ l&9990':XS=1:YS=2: #eeeeeeeeeeeeeeeeeeeeeee @SJ=DV+12-1:H=DH+12-1:A(J,H)B(J,H) J#H:J:1:1:7: TJ=140(5:.4L,J:J:9230$:J=13:6500d:J=140(5:.4L,-J:J:MOR(DIF)R(DIF)08100 Y#eeeeeeeeeeeeeeeeeeeeeee :XY=0:Z$="Y ADEMAS...":9990':J=1204:.2~L,J*-2:J:XY=40(:Z$="HAS BATIDO":9990':XY=80P:Z$="EL RECORD":9990':XY=120x:Z$="EN EL NIVEL "+DIF:9990':R(DIF)=MO:"ESCRIBE TU NOMBRE ";N$(DIF) 1,0:0:0::H=17:H:0,5;"LOS RECORDS DE HOY":'''"NIVEL";" ";"RECORD"," JUGADOR"'"===== ====== ================="'' aJ=115:R(J)0" ";(" "J<10 );J;" ";(" "R(J)<100d);R(J),N$(J) J:H #eeeeeeeeeeeeeeeeeeeeeee _#0;" PULSA UNA TECLA PARA COMENZAR "'''" O LA ""T"" PARA TERMINAR "  A$="":A$=:A$=""8140 A$="T"0  20 #eeeeeeeeeeeeeeeeeeeeeee "'32 ,14,0,0," " "#eeeeeeeeeeeeeeeeeeeeeee #(2,3,2,4,3,3,3,4,3,5,4,4,3,6,4,5,3,7,4,6,5,5,4,7,5,6,5,7,5,8 #))2,4,5,3,1 #*94,1,7,2,5,3,6 #+A5,4,2,1,3,7,8,6 #,[10 ,8,7,3,11 ,6,1,4,5,2,9 #-v8,13 ,12 ,9 ,1,6,14,10 ,7,5,11 ,4,3,2 #.15,2,11 ,10 ,5,8,13 ,3,9 ,1,14,6,4,12 ,7 #/3,10 ,5,16,11 ,6,13 ,15,9 ,7,17,12 ,8,4,2,1,14 #06,19,14,9 ,5,4,8,10 ,13 ,17,3,16,15,1,12 ,11 ,7,18,2 #15,10 ,16,17,12 ,20,7,2,3,18,9 ,13 ,14,19,1,8,4,15,11 ,6 #27,15,6,11 ,22,18,8,20,17,3,23,12 ,13 ,21,19,4,5,16,2,14,9 ,1,10 #39 ,5,15,24,23,17,16,11 ,13 ,22,6,14,19,18,20,1,21,10 ,12 ,7,3,4,2,8 #48,10 ,19,12 ,26,6,14,9 ,3,16,7,5,13 ,25,23,22,17,11 ,27,18,20,15,21,24,1,2,4 #58,17,27,22,10 ,11 ,3,20,26,28,18,21,7,24,29,12 ,23,14,19,2,25,5,1,4,9 ,6,16,15,13 #6*15,8,9 ,17,33!,13 ,26,23,22,3,32 ,5,20,6,29,10 ,31,19,34",12 ,14,16,11 ,18,7,1,27,21,30,24,25,28,2,4 #7`9 ,18,19,10 ,4,23,21,15,26,35#,27,31,6,39',30,14,20,17,2,33!,29,1,32 ,13 ,25,34",3,36$,38&,7,5,8,28,22,12 ,37%,24,11 ,16,99c #22,3,0,168,"MOVIMIENTOS:" #62,3,0,144,"NO HAGAS TRAMPAS" $)3,3,186,168,MO $ #eeeeeeeeeeeeeeeeeeeeeee $2,4,0,40(,"LO CONSEGUISTE",2,4,0,80P,"ORDENAR EN",2,4,0,120x,MO+" MOVIMIENTOS" $TM16,480,126~,255,255,126~,480,16 $U#eeeeeeeeeeeeeeeeeeeeeee $^K60<,60<,60<,60<,255,126~,60<,24 $hK24,60<,126~,255,60<,60<,60<,60< $rK8,12 ,254,255,255,254,12 ,8 '#eeeeeeeeeeeeeeeeeeeeeee 'YI=23306 [:I,XX:I+1,XY:I+2,XS:I+3,YS:I+4,8:I=Z$ ' OK=1I:23310[+K,Z$(K):K:23311[+I,255:64869e: '3"DIABLOKING"0:"H"64869e,277: '#eeeeeeeeeeeeeeeeeeeeeee N HH x    'ic qrticicrZ EN EL NIVEL 1AaH e ![~#"[o<&)))K6\ >2[: [2 [: [2[> 2[~#"[2[:[= 2:[= :[G: [O: [ 2 [*[h2[: [G: [2 [*[Å2[: [G: [2[: [O :[<2[ :[<2[ :[Õ@ :\G:\G:[o:[g>Xg:\w:[G@gxgxo:[Go!xO F![F(//