Code:
0->Xmin:0->Ymin:1->I
264->Xmax:164->Ymax
ClrDraw:AxesOff
GridOff
RecallPic Pic5
3->W
{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,0->L2
{2,4,5,6,6,7,7,7->L3
48->A:43->B:1->I:1->C:DelVar D
11->S:23->T:11->U:12->V:20->R
While W=3
(((((A-8)/20)+1)*4)-4)+(((B+14)/19)+1(fPart(((B+14)/19)/2)=.5))/2->E
Text(1,200,I
Text(14,200,E
Text(27,200,C
Text(40,200,D
Text(53,200,fPart(L1(L2(3
Text(1,230,L2(3
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
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:not(I->I
If K=22:Return
If K=21 and I=1:Then
0->Z
(((((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
Pause
If (E-L1(L2(3))=~4 or E-L1(L2(3))=4) and L1(E)=0:Then
For(G,2,18,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+20I,(B-7)+F,A+Ans+20I,(B-7)+F,1,U,2
Line(A-Ans+20I,16-F+(B-7),A+Ans+20I,16-F+(B-7),1,U,2
End
A->L2(1:B->L2(2:L2(3->L1(E
If fPart(L1(E))=.5:Pt-On(A+9,B+8,3,19
L2(4->A:L2(5->B:2->C:DelVar D
End
End
If fPart(L1(L2(3)))=.5:Then
If (E=L2(3)+1 or E=L2(3)-1 or E=L2(3)+3 or E=L2(3)+4 or E=L2(3)-4 or E=L2(3)-5) and L1(E)=0:Then
For(G,2,18,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+20I,(B-7)+F,A+Ans+20I,(B-7)+F,1,U,2
Line(A-Ans+20I,16-F+(B-7),A+Ans+20I,16-F+(B-7),1,U,2
End
A->L2(1:B->L2(2:L2(3->L1(E
If fPart(L1(E))=.5:Pt-On(A+9,B+8,3,19
L2(4->A:L2(5->B:2->C:DelVar D
End
End
End:"C=1
End:"D>0
If D=0:Then
If C=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:"K=21
End:"W=3
I know that the offending bit of code is "If (E-L1(L2(3))=~4 or E-L1(L2(3))=4) and L1(E)=0:Then" because it hits the Pause before it, but refuses to do anything after that. It makes no sense because the values are correct.
I can't figure out for the life of me why the checkers won't move now.
And yes, all the values match up properly. There doesn't appear to be a reason why it's not working. :< I will, of course, keep testing.