100 key off: width 40
120 cls: color 7,0
130 defint a-z
140 dim T$(9),C$(1),ply(9)
150 dim N(9,60,7),Y(9,9)
160 dim H(9,3),I(1,7)
170 dim A(9),C(9),D(9),G(9)
180 dim X(9),V(9),W(9)
190 dim B(1),K(15),Q(15)
220 A$="123456789147258369159357"
230 C$(0)="1-0": C$(1)="0-1"
240 B(0)=7: B(1)=4
250 c=1: ply(0)=9
260 for x=0 to 9
270 W(x)=x mod 2
280 V(x)=1-2*W(x)
290 X(x)=-1: G(x)=-1
300 next
310 for x=0 to 23
320 y=asc(mid$(A$,x+1))-48
330 G(y)=G(y)+1
340 H(y,G(y))=x\3
350 next
370 for x=0 to 8
380 y=9-x: ply(y)=y
390 locate 20,7+6*(x mod 3)
400 T$(y)=chr$(97+x mod 3)
410 print T$(y)
420 locate 16-5*(x\3),2
430 A$=chr$(49+x\3): T$(y)=T$(y)+A$
440 print A$
450 next
460 for y=0 to 3
470 locate 4+5*y,5
480 print "----- ----- -----"
490 next
500 locate 3,25: print "Blancas Rojas"
510 locate 4,25: print "------- -------"
520 for x=0 to 15
530 K(x)=5+2*(x\4)
540 Q(x)=25+4*(x mod 4)-x mod 2
550 locate K(x)+1,Q(x)
560 print mid$("---",2-x mod 2)570 next
700 b=0: gosub 5000
710 w=(E$="M")-(E$="K")
720 c=c+w: if(c<1) then c=9
730 if(c>9) then c=1
740 if(D(c)) goto 720
750 b=B(t): gosub 5000
760 color 7,0
770 for x=0 to 15
780 locate K(x),Q(x)
790 print mid$(" ",2-x mod 2)800 next
820 for x=0 to X(c)+1
830 locate K(2*x+2*t),Q(2*x+2*t)
840 y=c: if(x) then y=N(c,v-1,x-1)
850 print T$(y)
860 next
870 E$=" "+inkey$: if(E$=" ") goto 870
880 E$=right$(E$,1)
890 if(E$<>chr$(13)) goto 700
920 for x=0 to G(c)
930 y=I(t,H(c,x))
940 I(t,H(c,x))=y+1
950 locate K(t),Q(1+2*t)
960 if(y>1) then print C$(t): end
970 next
1000 ply(0)=ply(0)-1
1010 if(ply(0)*X(c)=0) then end
1020 w=1: t=1-t
1030 C(0)=10: D(c)=1
1040 goto 720
5000 a=c-1: color 0,b
5010 y=5+5*(a\3): x=18-6*(a mod 3)
5020 locate y,x: print " "
5040 locate y+1,x-1: print " "
5060 locate y+2,x-1: print " "
5080 locate y+3,x: print " "
5090 return
Crear cuenta
Comentarios sobre la versión: 1.0 (0)
No hay comentarios