7 BC=8;FC=7
   8 clear 
   9 X=1
  10 A=0;H=0
  20 B=3;C=3;D=3;E=3;F=3;G=3;I=3;J=3;K=3;L=3;M=3;N=3
  30 @(B)=B;@(C)=C;@(D)=D;@(E)=E;@(F)=F;@(G)=G;@(I)=I;@(J)=J;@(K)=K;@(L)=L;@(M)=M;@(N)=N
  31 if B=0if C=0if D=0if E=0if F=0if G=0goto 1000
  32 if I=0if J=0if K=0if L=0if M=0if N=0goto 1050
  40 @(A)=A;@(H)=H;gosub 50
  41 if X=1goto 80
  42 if X=2goto 90
  50 CY=20;CX=-70
  51 print @(B),#2,@(C),#2,@(D),#2,@(E),#2,@(F),#2,@(G)
  60 CY=0;CX=-80
  61 print @(A),#12,@(H)
  70 CY=-20;CX=-70
  71 print @(I),#2,@(J),#2,@(K),#2,@(L),#2,@(M),#2,@(N);return 
  80 CY=-30;CX=-70
  81 print "#1 UP"
  82 CY=-30;CX=45
  83 print "      "
  84 input P;if (P<1)+(P>6)goto 100
  85 goto 500
  90 CY=-30;CX=45
  91 print "#2 UP"
  92 CY=-30;CX=-70
  93 print "      "
  94 input Q;if (Q<1)+(Q>6)goto 100
  95 goto 560
 100 CY=0;CX=-40
 101 print "TRY AGAIN DIP";goto 30
 500 if P=1 R=G;S=F;T=E;U=D;X=2;goto 650
 510 if P=2 R=F;S=E;T=D;U=C;X=2;goto 650
 520 if P=3 R=E;S=D;T=C;U=B;X=2;goto 650
 530 if P=4 R=D;S=C;T=B;U=A;X=1;goto 650
 540 if P=5 R=C;S=B;T=A;U=I;X=1;goto 650
 550 if P=6 R=B;S=A;T=I;U=J;X=1;goto 650
 560 if Q=1 R=I;S=J;T=K;U=L;X=1;goto 900
 570 if Q=2 R=J;S=K;T=L;U=M;X=1;goto 900
 580 if Q=3 R=K;S=L;T=M;U=N;X=1;goto 900
 590 if Q=4 R=L;S=M;T=N;U=H;X=2;goto 900
 600 if Q=5 R=M;S=N;T=H;U=G;X=2;goto 900
 610 if Q=6 R=N;S=H;T=G;U=F;X=2;goto 900
 650 if R=0goto 100
 660 if R>=3 Y=3;goto 690
 670 if R=2 Y=2;goto 700
 680 if R=1 Y=1;goto 710
 690 R=R-Y;S=S+1;T=T+1;U=U+1;goto 750
 700 R=R-Y;S=S+1;T=T+1;goto 750
 710 R=R-Y;S=S+1;goto 750
 750 if P=1 G=R;F=S;E=T;D=U;goto 30
 760 if P=2 F=R;E=S;D=T;C=U;goto 30
 770 if P=3 E=R;D=S;C=T;B=U;goto 30
 780 if P=4 D=R;C=S;B=T;A=U;goto 30
 790 if P=5 C=R;B=S;A=T;I=U;goto 30
 800 if P=6 B=R;A=S;I=T;J=U;goto 30
 810 if Q=1 I=R;J=S;K=T;L=U;goto 30
 820 if Q=2 J=R;K=S;L=T;M=U;goto 30
 830 if Q=3 K=R;L=S;M=T;N=U;goto 30
 840 if Q=4 L=R;M=S;N=T;H=U;goto 30
 850 if Q=5 M=R;N=S;H=T;G=U;goto 30
 860 if Q=6 N=R;H=S;G=T;F=U;goto 30
 900 if R=0goto 100
 910 if R>=3 Y=3;goto 940
 920 if R=2 Y=2;goto 950
 930 if R=1 Y=1;goto 960
 940 R=R-Y;S=S+1;T=T+1;U=U+1;goto 810
 950 R=R-Y;S=S+1;T=T+1;goto 810
 960 R=R-Y;S=S+1;goto 810
1000 clear ;CX=-50;CY=0;print "PLAYER #1 WINS",#2,A,#2,"TO",#2,H
1010 for Z=1to 2000;next Z
1020 goto 7
1050 clear ;CX=-50;CY=0;print "PLAYER #2 WINS",#2,H,#2,"TO",#2,A
1060 for Z=1to 2000;next Z
1070 goto 7