:DCS
"222DDD222DDD222D222D3D222D3D222D222DDD222DDD222DDDD222DDD222DDD2D3D222DDD222D2D2DDD222DDD222DDD2222DDD222DDD222D222D3D222DDD222D222DDD222DDD222DDDD222DDD222DDD2DDD222D2D222D3D2DDD222DDD222DDD2222DDD222DDD222D222DDD222D2D222D222DDD222DDD222DDDD222DDD222DDD2"
ClrDraw:AxesOff
GridOff
SetUpEditor L3
SetUpEditor L2
SetUpEditor L1
32->dim(L1
{1,1,0,2,1,0,2,2,1,1,0,2,1,0,2,2,1,1,0,2,1,0,2,2,1,1,0,2,1,0,2,2->L1
{0,0,10,108,100,23->L2
{2,4,5,6,6,7,7,7->L3
BackgroundOff
0->Xmin:0->Ymin:1->I
264->Xmax:164->Ymax
11->S:23->T:11->U:12->V:20->R
1->W:7->A:1->C:DelVar D
For(F,4,156,19
Line(7,F,167,F,1,12,1
End
For(F,7,167,20
Line(F,4,F,156,1,12,1
End
For(H,8,166,20
not(I->I
For(F,4,138,19
not(I->I
For(G,2,18,2
Line(H,F+G,H+18,F+G,1,S(I=0)+TI,2
End:End:End
5->theta
For(F,1,8
not(I->I
TextColor(11+I
Text(~1,theta,175,sub("CHECKERS",F,1
theta+20->theta
End
2->theta
Text(~1,75,205,"BY:
For(F,1,12
not(I->I
TextColor(11+I
Text(theta,254,sub("TI-FREAKWARE",F,1
theta+13->theta
End
TextColor(12
Text(5,202,"TURN:
Text(20,195,"PLAYER
Text(91,207,"2ND:
Text(104,208,"SEL
Line(190,44,248,44,1,11
Text(122,200,"ALPHA:
Text(135,201,"CLEAR
Text(148,210,"SEL
1->I:1->G
For(J,17,157,20
not(I->I
For(H,13,146,38
If L1(G)>0:Then
For(F,1,8
L3(F
Line(J-Ans,(H-7)+F+19I,J+Ans,(H-7)+F+19I,1,U(iPart(L1(G))=1)+V(iPart(L1(G))=2),2
Line(J-Ans,16-F+(H-7)+19I,J+Ans,16-F+(H-7)+19I,1,U(iPart(L1(G))=1)+V(iPart(L1(G))=2),2
End:End
G+1->G
End:End
48->A:43->B:1->I:3->W

While W=3
TextColor(11+1(C=2
Text(~1,45,215,C
Line(A,B,A+18,B,1,R,1
Line(A,B,A,B+17,1,R,1
Line(A+18,B,A+18,B+17,1,R,1
Line(A,B+17,A+18,B+17,1,R,1
getKey->K
If K:Then
Line(A,B,A+18,B,1,T(I=1)+S(I=0),1
Line(A,B,A,B+17,1,T(I=1)+S(I=0),1
Line(A+18,B,A+18,B+17,1,T(I=1)+S(I=0),1
Line(A,B+17,A+18,B+17,1,T(I=1)+S(I=0),1
End
A->N:B->O
B-19((K=34 and B>5)-(K=25 and B<138->B
A-20((K=24 and A>8)-(K=26 and A<148->A
If max(K={24,25,26,34}) and (A!=N or B!=O:not(I->I
If K=22:Return
If K=31 and D>0:Then
If C=1:Then
Line(L2(1)+1,L2(2)+3,L2(1)+3,L2(2)+1,1,T,1
Line(L2(1)+1,L2(2)+14,L2(1)+3,L2(2)+16,1,T,1
Line(L2(1)+17,L2(2)+3,L2(1)+15,L2(2)+1,1,T,1
Line(L2(1)+17,L2(2)+14,L2(1)+15,L2(2)+16,1,T,1
End
If C=2:Then
Line(L2(4)+1,L2(5)+3,L2(4)+3,L2(5)+1,1,T,1
Line(L2(4)+1,L2(5)+14,L2(4)+3,L2(5)+16,1,T,1
Line(L2(4)+17,L2(5)+3,L2(4)+15,L2(5)+1,1,T,1
Line(L2(4)+17,L2(5)+14,L2(4)+15,L2(5)+16,1,T,1
End
0->D
End
If K=21 and I=1:Then
(((((A-8)/20)+1)*4)-4)+(((B+14)/19)+1(fPart(((B+14)/19)/2)=.5))/2->E
If D>0:Then

If C=1:Then
If fPart(L1(L2(3)))=0:Then
If B-L2(2)=38 and (A-L2(1)=40 or L2(1)-A=40) and L1(E)=0:Then
A-20(A>L2(1))+20(A<L2(1)->N:B-19->O
(((((N-8)/20)+1)*4)-4)+(((O+14)/19)+1(fPart(((O+14)/19)/2)=.5))/2->theta
If iPart(L1(theta))=2:Then
For(G,2,16,2
Line(L2(1),L2(2)+G,L2(1)+18,L2(2)+G,1,T,2
End
For(G,2,16,2
Line(N,O+G,N+18,O+G,1,T,2
End
For(F,1,8
L3(F
Line(A-Ans+9,(B-7)+F+8,A+Ans+9,(B-7)+F+8,1,U,2
Line(A-Ans+9,16-F+(B-7)+8,A+Ans+9,16-F+(B-7)+8,1,U,2
End
A->L2(1:B->L2(2:L1(L2(3->L1(E:0->L1(L2(3:E->L2(3
If L2(2)=138 and L1(L2(3))=1:.5+L1(L2(3->L1(L2(3
If fPart(L1(L2(3)))=.5:Pt-On(A+9,B+8,1,19
L2(4->A:L2(5->B:2->C:DelVar D
0->L1(theta
End:End
If B-L2(2)=19 and (L2(1)-A=20 or A-L2(1)=20) and L1(E)=0 and C=1:Then
For(G,2,16,2
Line(L2(1),L2(2)+G,L2(1)+18,L2(2)+G,1,T,2
End
For(F,1,8
L3(F
Line(A-Ans+9,(B-7)+F+8,A+Ans+9,(B-7)+F+8,1,U,2
Line(A-Ans+9,16-F+(B-7)+8,A+Ans+9,16-F+(B-7)+8,1,U,2
End
A->L2(1:B->L2(2:L1(L2(3->L1(E:0->L1(L2(3:E->L2(3
If L2(2)=138 and L1(L2(3))=1:.5+L1(L2(3->L1(L2(3
If fPart(L1(E))=.5:Pt-On(A+9,B+8,1,19
L2(4->A:L2(5->B:2->C:DelVar D
End:End
If fPart(L1(L2(3)))=.5:Then
If (L2(1)+20=A and (L2(2)+19=B or L2(2)-19=B)) or (L2(1)-20=A and (L2(2)+19=B or L2(2)-19=B) and L1(E)=0:Then
For(G,2,16,2
Line(L2(1),L2(2)+G,L2(1)+18,L2(2)+G,1,T,2
End
For(F,1,8
L3(F
Line(A-Ans+9,(B-7)+F+8,A+Ans+9,(B-7)+F+8,1,U,2
Line(A-Ans+9,16-F+(B-7)+8,A+Ans+9,16-F+(B-7)+8,1,U,2
End
A->L2(1:B->L2(2:L1(L2(3->L1(E:0->L1(L2(3:E->L2(3
If fPart(L1(E))=.5:Pt-On(A+9,B+8,1,19
L2(4->A:L2(5->B:2->C:DelVar D
End
If (L2(1)+40=A and (L2(2)+38=B or L2(2)-38=B)) or (L2(1)-40=A and (L2(2)+38=B or L2(2)-38=B) and L1(E)=0:Then
A-20(A>L2(1))+20(A<L2(1)->N
B-19(B>L2(2))+19(B<L2(2)->O
(((((N-8)/20)+1)*4)-4)+(((O+14)/19)+1(fPart(((O+14)/19)/2)=.5))/2->theta
If iPart(L1(theta))=2:Then
For(G,2,16,2
Line(L2(1),L2(2)+G,L2(1)+18,L2(2)+G,1,T,2
End
For(G,2,16,2
Line(N,O+G,N+18,O+G,1,T,2
End
For(F,1,8
L3(F
Line(A-Ans+9,(B-7)+F+8,A+Ans+9,(B-7)+F+8,1,U,2
Line(A-Ans+9,16-F+(B-7)+8,A+Ans+9,16-F+(B-7)+8,1,U,2
End
A->L2(1:B->L2(2:L1(L2(3->L1(E:0->L1(L2(3:E->L2(3
If fPart(L1(L2(3)))=.5:Pt-On(A+9,B+8,1,19
L2(4->A:L2(5->B:2->C:DelVar D
0->L1(theta
End:End
End:End


If C=2:Then
If fPart(L1(L2(6)))=0:Then
If L2(5)-B=38 and (A-L2(4)=40 or L2(4)-A=40) and L1(E)=0:Then
A-20(A>L2(4))+20(A<L2(4)->N:B+19->O
(((((N-8)/20)+1)*4)-4)+(((O+14)/19)+1(fPart(((O+14)/19)/2)=.5))/2->theta
If iPart(L1(theta))=1:Then
For(G,2,16,2
Line(L2(4),L2(5)+G,L2(4)+18,L2(5)+G,1,T,2
End
For(G,2,16,2
Line(N,O+G,N+18,O+G,1,T,2
End
For(F,1,8
L3(F
Line(A-Ans+9,(B-7)+F+8,A+Ans+9,(B-7)+F+8,1,V,2
Line(A-Ans+9,16-F+(B-7)+8,A+Ans+9,16-F+(B-7)+8,1,V,2
End
A->L2(4:B->L2(5:L1(L2(6->L1(E:0->L1(L2(6:E->L2(6
If L2(5)=5 and L1(L2(6))=2:.5+L1(L2(6->L1(L2(6
If fPart(L1(E))=.5:Pt-On(A+9,B+8,1,19
L2(1->A:L2(2->B:1->C:DelVar D
0->L1(theta
End
End
If L2(5)-B=19 and (A-L2(4)=20 or L2(4)-A=20) and L1(E)=0:Then
For(G,2,16,2
Line(L2(4),L2(5)+G,L2(4)+18,L2(5)+G,1,T,2
End
For(F,1,8
L3(F
Line(A-Ans+9,(B-7)+F+8,A+Ans+9,(B-7)+F+8,1,V,2
Line(A-Ans+9,16-F+(B-7)+8,A+Ans+9,16-F+(B-7)+8,1,V,2
End
A->L2(4:B->L2(5:L1(L2(6->L1(E:0->L1(L2(6:E->L2(6
If L2(5)=5 and L1(L2(6))=2:.5+L1(L2(6->L1(L2(6
If fPart(L1(E))=.5:Pt-On(A+9,B+8,1,19
L2(1->A:L2(2->B:1->C:DelVar D
End
End

If fPart(L1(L2(6)))=.5:Then
If (L2(4)+20=A and (L2(5)+19=B or L2(5)-19=B)) or (L2(4)-20=A and (L2(5)+19=B or L2(5)-19=B) and L1(E)=0:Then
For(G,2,16,2
Line(L2(4),L2(5)+G,L2(4)+18,L2(5)+G,1,T,2
End
For(F,1,8
L3(F
Line(A-Ans+9,(B-7)+F+8,A+Ans+9,(B-7)+F+8,1,V,2
Line(A-Ans+9,16-F+(B-7)+8,A+Ans+9,16-F+(B-7)+8,1,V,2
End
A->L2(4:B->L2(5:L1(L2(6->L1(E:0->L1(L2(6:E->L2(6
If fPart(L1(L2(6)))=.5:Pt-On(A+9,B+8,1,19
L2(1->A:L2(2->B:1->C:DelVar D
End
If (L2(4)+40=A and (L2(5)+38=B or L2(5)-38=B)) or (L2(4)-40=A and (L2(5)+38=B or L2(5)-38=B) and L1(E)=0:Then
A-20(A>L2(4))+20(A<L2(4)->N
B-19(B>L2(5))+19(B<L2(5)->O
(((((N-8)/20)+1)*4)-4)+(((O+14)/19)+1(fPart(((O+14)/19)/2)=.5))/2->theta
If iPart(L1(theta))=1:Then
For(G,2,16,2
Line(L2(4),L2(5)+G,L2(4)+18,L2(5)+G,1,T,2
End
For(G,2,16,2
Line(N,O+G,N+18,O+G,1,T,2
End
For(F,1,8
L3(F
Line(A-Ans+9,(B-7)+F+8,A+Ans+9,(B-7)+F+8,1,V,2
Line(A-Ans+9,16-F+(B-7)+8,A+Ans+9,16-F+(B-7)+8,1,V,2
End
A->L2(4:B->L2(5:L1(L2(6->L1(E:0->L1(L2(6:E->L2(6
If fPart(L1(L2(6)))=.5:Pt-On(A+9,B+8,1,19
L2(1->A:L2(2->B:1->C:DelVar D
0->L1(theta
End:End
End:End
End
If D=0:Then
If C=iPart(L1(E:Then
Line(A+1,B+3,A+3,B+1,1,R,1
Line(A+1,B+14,A+3,B+16,1,R,1
Line(A+17,B+3,A+15,B+1,1,R,1
Line(A+17,B+14,A+15,B+16,1,R,1
C->D
If C=1:Then
A->L2(1:B->L2(2:E->L2(3:End
If C=2:Then
A->L2(4:B->L2(5:E->L2(6:End
End
End
End
End