ZXTape! 0Created by SpectaculatorPARCHIS !8!8s#8*********************** *  J.F.CAMARA 1.986 * * PARCHIS * ***********************  9500% SBR.PINTA FICHA +FIL,COL;I;9 ;(143+FICHA): SBR.BORRA FICHA EFIL,COL;ڰC$(CAS,7);0;C$(CAS,5+(POS=2)): SBR.CALCULA COORDENADAS 9FIL=C$(CAS,2)+(C$(CAS,8)="V"POS=2) (@COL=C$(CAS,34)+(C$(CAS,8)="H"POS=2) 2 I=P(J) F OSBR. TABLERO PQ$=("tu"f(j,ficha)=0)+("vw"f(j,ficha)=100d)+("0"f(j,ficha)<10 f(j,ficha)>0)+((f(j,ficha))f(j,ficha)<100d) Zd3*j-(ficha2),24+(5(ficha=2ficha=4));0;7;q$: cSBR.TRANSFORMA d%CAS=69EJ1CAS=1 n*CAS=E(J)+1CAS=62>+7*J x'CAS=69E+7*JCAS=100d  SBR. DETECTA POSICION POS=0 Z=12 HC$(CAS,(7+2*Z)(8+2*Z))="00"POS=Z:175 Z  SBR. DEL 5 6SALIDA=1:E$(J)="0"SALIDA=2:E$(J)="1" X=1SALIDA Y=14 $F(J,Y)=0FICHA=Y:230 Y: &CAS=S(J):DL:POS0260 *IGUALES=0:CCOM:IGUALES=1 DC0:B0:CC:PF  ASIG:TABU X "MOV=1: +SBR.DETECT COORD. ,^FIL0=4+(13 (J=1J=4)):COL0=4+(13 (J=1J=2)) 6rFIL0=FIL0-(FICHA<3)+(FICHA>2):COL0=COL0+(FICHA=2FICHA=4)-(FICHA=1FICHA=3) @ ISBR.BORRA POS.0 JFIL0,COL0;ڨP(J);" ": SSBR.PINTA POS.0 T3FIL0,COL0;8;9 ;(143+FICHA): ]SBR.CASILLA COMPLETA ^Z=12 h)C$(CAS,7+2*Z)J380| rZ:IGUALES=1: |JPER=C$(CAS,7+2*Z):FIPER=C$(CAS,8+2*Z):POS=Z:COM:JESP=20:Z$="HAS COMIDO UNA FICHA, CUENTAS 20"  SBR.COMER F(JPER,FIPER)=0 %JG=J:J=JPER:FG=FICHA:FICHA=FIPER cCC:BF:C$(CAS,(7+POS*2)(8+POS*2))="00":DC0:P0:TABU:J=JG:FICHA=FG: SBR.ASIGNA VALOR QF(J,FICHA)=CAS:C$(CAS,(7+2*POS)(8+2*POS))=J+FICHA: SBR. DEL 6 "seis=seis+1:mismo=1 (seis=3mismo=0:500 .x=14:f(j,x)=0480 x:d=12 (x=13:y=x+14 DF(J,X)=F(J,Y)F(J,X)0F(J,X)100dX$=X+Y:495 Y:X:496 BARR  ,SEIS=0:MOV=1:FICHA=0 %FIPER=FICHA:JPER=J:CAS=F(J,FIPER) _Z=12:C$(CAS,7+2*Z8+2*Z)=JPER+FIPERPOS=Z:530  Z COM: SBR.ERROR 4#0;0,9 ;1;"JUGADA ILEGAL" &^Z=12:.1}L,0:.1}L,0:.5,0:.5,4:Z 0#0;0,0,,: 9SBR.OTRA POSICION :?(C$(CAS,56)=""C$(CAS,56)="") D+POS=POS+1:POS=3POS=1 N+C$(CAS,7+2*POS)J600X S+POS=POS+1:POS=3POS=1 U XJPER=C$(CAS,7+2*POS):FIPER=C$(CAS,8+2*POS):COM:JESP=20:POS=1:Z$="HAS COMIDO UNA FICHA, CUENTAS 20" b kSBR.DIBUJA TODAS lJG=J:FG=FICHA q"X=1JUG:Y=14 ~CAS=F(X,Y):CAS=8CAS=9 CAS=25CAS=26CAS=42*CAS=43+CAS=59;CAS=60<650  660 [J=X:FICHA=Y:Z=12:C$(CAS,7+2*Z8+2*Z)=X+YPOS=Z  Z:CC:PF Y:X J=JG:FICHA=FG: SBR.FINAL JUGADOR  GANA=GANA+1:K$(J)=GANA 2W=0:H=1JUG:K$(H)"0"W=W+1 H WJUG-1740  FIN=1 &L=1JUG:K$(L)="0"K$(L)=JUG L  SBR.BARRERA FICHA=X$(1) CAS=F(J,FICHA) ;Y=1D-1:CAS=CAS+1:TR:CAS=100d  DL:POS0790 7C$(CAS,9 )=C$(CAS,11 )C$(CAS,9 )J +Y:CAS=CAS+1:TR:DL:POS=0  BARRERA=1:SPJJUG#0;0,3;"TIENES QUE ABRIR BARRERA!!":1,20:1,10 :1,20 * RUTINA PRINCIPAL N=1JUG K$(O$(N))"0"5320 .5,10 rFICHA=0:J=O$(N):Z$="":X$=" ":SEIS=0:MOV=0:MISMO=0:JESP=0:BARRERA=0 !20,22;ڨP(J);N$(J)  10 DADO (D=5R5:MOV=15270 (D=6R6:MOV=15270 @M=14:F(J,M)0F(J,M)100d5077 M:5280 6SPJ=JUGSPEC:5150+(130FICHA=0) "QUE FICHA MUEVES ?:";F$ 9F$<"0"F$>"4"űF$1.1}L,0:5080 F$="0"5280 BARRERAF$X$(1)F$X$(2)#0;0,3;"TIENES QUE ABRIR BARRERA!!":1,20:1,10 :1,20:5080 #BARRERABARRERA=0:X$=" " GFICHA=F$:F(J,FICHA)=0F(J,FICHA)=100dERROR:5080 %CAS=F(J,FICHA):M=1D-1 CAS=CAS+1:TR "CAS100dERROR:5080  `(C$(CAS,9 )=C$(CAS,11 ))(C$(CAS,9 )JC$(CAS,9 )"0")ERROR:5080 3M:CAS=CAS+1:TR:CAS=100d5150 $DL:POS=0ERROR:5080 aCAS=F(J,FICHA):Z=12:C$(CAS,7+2*Z8+2*Z)=J+FICHAPOS=Z (oZ:CC:BF:C$(CAS,7+2*POS8+2*POS)="00":M=1D-1:CAS=CAS+1:TR:DL -POS=05180< 2CC:PF:10 :BF <M F|CAS=CAS+1:TR:CAS=100dJESP=10 :Z$="HAS ENTRADO UNA FICHA,CUENTAS 10":F(J,FICHA)=100d:5210Z K+DL:C$(CAS,9 12 )"0000"OTRA PCC:PF:ASIG ZTABU DT FCONT=0:Z=14:F(J,Z)=100dCONT=CONT+1 Z 2CONT=4700:FIN=17000X JESP0SPJ=JUGZ$="" JESP0CONT4D=JESP:JESP=0:#0;0,0;Z$:1,20:1,10 :1,20:#0;0,0,,:5070 *MISMO=1MISMO=0:5020 N:5000 WFINAL DE PARTIDA X&0:3:3:0: bDIS=(16/JUG) lN=1JUG vK(N-1)*DIS+4,3;1;"CLASIFICADO EN EL PUESTO ";N'' 1M=1JUG:K$(M)=N11 ;ڨP(M);N$(M) M:N ("DESEAS JUGAR OTRA PARTIDA (S/N)?";R$ R$="S"9000(# 5R$="N"236066\,0:236077\,60<: .1}L,0:7060 ?SBR.JUEGA SPECTRUM @VBARRERAFICHA=X$(1):BARRERA=0:X$=" ":#0;0,0,,: B2#0;0,8;"*ESTOY PENSANDO*" E T(4) JK=14 T-F(J,K)=0F(J,K)=100d8200 ^QCAS=F(J,K):L=1D-1:CAS=CAS+1:TR:CAS=100d8200 cDL hNPOS=0C$(CAS,9 )=C$(CAS,11 )C$(CAS,9 )J8200 r3L:CAS=CAS+1:TR:CAS=100d8070 |DL:POS=08200 ANT=CAS:T(K)=T(K)+5 /CAS=100dT(K)=T(K)+10 :8200 -CAS>68DT(K)=T(K)+2:8200 @X=1JUG-1:CAS=S(X)T(K)=T(K)-2:8100 X ZC$(CAS,56)=""C$(CAS,56)=""T(K)=T(K)+1:8100 XX=9 11 2:C$(CAS,X)"0"C$(CAS,X)JT(K)=T(K)+15:8200 X `C$(F(J,K),56)=""C$(F(J,K),56)=""T(K)=T(K)-1:8120 4CAS=F(J,K)-12 :CAS0CAS=68D+CAS %S=112 :CAS=CAS+1 WX=9 11 2:C$(CAS,X)"0"C$(CAS,X)JT(K)=T(K)+1+(S6) X:S:CAS=ANT GC$(CAS,56)=""C$(CAS,56)=""8140 /CAS=F(J,K)-1:CAS=0CAS=68D "S=1D:CAS=CAS+1:TR KX=9 11 2:C$(CAS,X)"0"C$(CAS,X)JT(K)=T(K)-3 X:S:CAS=ANT X=1JUG-1 CAS=S(X)T(K)=T(K)-2 X CAS=F(J,K)+D CAS>E(J)8190 (S=16:CAS=CAS+1:TR KX=9 11 2:C$(CAS,X)"0"C$(CAS,X)JT(K)=T(K)+1 X:S:CAS=ANT yX=9 11 2:C$(CAS,X)=J(C$(CAS,56)=""C$(CAS,56)="")T(K)=T(K)+1 X T(K)0T(K)=1 K /MAYOR=0:MAX=0:K=14 T(K)MAXMAYOR=K:MAX=T(K):8250: (MAYOR=08250: )!D(2):X=MAYORK(K-MAYOR) +OCAS=F(J,X):DIS=0:CAS>E(J)DIS=68D-CAS:PRIN=0:82455 0 PRIN=CAS 55D((1X=MAYOR)+(2X=K))=E(J)-PRIN+DIS:X 7 D(2)(4-SP).1}L,0:9600% %KJUG=S$+SP:N=1JUG:M=14:J=N:FICHA=M:DC0:P0:M:N %!N$(JUG,9 ):F(JUG,4) %\P(X)=(6X=1)+(4X=2)+(2X=3)+(5X=4) %4N=1JUG-SP:"NOMBRE JUGADOR ";(N);":";N$(N) %63*N-2,22;ڨP(N);9 ;N$(N):N %MSPN$(JUG)="SPECTRUM":3*N-2,22;ڨP(N);9 ;N$(JUG) %53*(JUG+1)-2,22;"" %,K$="0000"(JUG):GANA=0:FIN=0 %D$(6,4):D$(1)="abcd":D$(2)="efhg":d$(3)="ibcj":d$(4)="eqrg":d$(5)="iklj":d$(6)="mnop" %c7;0;16,25;D$(6,2);17,25;D$(6,3) %SORTEO DE SALIDA %.#0;0,8;"SORTEO DE SALIDA" %g:1,20:1,10 :1,20:#0;0,0;,,:S$=" "(JUG) %N=1JUG &E19,24;"TIRA:";20,22;ڨP(N);9 ;N$(N) & DADO:S$(N)=D &a7;0;3*N-1,25;D$(D,2);3*N,25;D$(D,3) & N &*M=61-1 &4A$="":N=1̱S$ &>S$(N)=MA$=A$+N &HN &RA$=0M &\A$>1T$="":N=1̱A$:T$=T$+A$(N)+",":N:T$=T$(̱T$-1):#0;0,5;"EMPATE ENTRE:"+T$:1,15:#0;0,0;,,:9860& &f+#0;0,9 ;"SALE "+N$(A$) &z;1,15:#0;0,0,,:9200# &dN=1JUG:0;3*N-1,22;" ";3*N,22;" ":N & S$="0000" &N=1̱A$ &420,22;ڨP(A$(N));9 ;N$(A$(N)) &DADO:S$(A$(N))=D &k7;0;3*A$(N)-1,25;D$(D,2);3*A$(N),25;D$(D,3) &N & 9770*& '  PARCHIS PF$$$~$$~$>(> >bd&F(*D:  >>> < >>>BB<DHpHDB@@@@@~BfZBBBBbRJFB>dd||၃D((DDDD<8| |0p p(