[[24,22,23,25,26,23,22,24][21,21,21,21,21,21,21,21][0,0,0,0,0,0,0,0][0,0,0,0,0,0,0,0][0,0,0,0,0,0,0,0][0,0,0,0,0,0,0,0][11,11,11,11,11,11,11,11][14,12,13,15,16,13,12,14]]->[B]
0->D
0->Ymin
62->Ymax
0->Xmin
94->Xmax
ClrDraw
RecallPic Pic2

0->S
1->X
1->y
0->I
0->J
0->K
0->L
0->T
prgmCHINV

While not(D=1)
getKey->G
If G=24 and X>1
Then
prgmCHINV
X-1->X
prgmCHINV
End
If G=25 and Y>1
Then
prgmCHINV
Y-1->Y
prgmCHINV
End
If G=26 and X<8
Then
prgmCHINV
X+1->X
prgmCHINV
End
If G=34 and Y<8
Then
prgmCHINV
Y+1->Y
prgmCHINV
End
If G=105
Then
If K=0 and not(I=X and J=Y) and not(I=0)
Then
If not(int([B](J,I)/10)=int([B](Y,X)/10))
Then
X->K
y->L

If not((K-I)=0)
(L-J)/(K-I)->M

sqrt((L-J)^2+(K-I)^2)->H

[B](J,I)->[B](L,K)
0->[B](J,I)

For(P,20+7*(I-1),25+7*(I-1))
For(Q,4+7*(J-1),9+7*(J-1))
Pxl-Off(Q,P)
End
End

For(P,20+7*(K-1),25+7*(K-1))
For(Q,4+7*(L-1),9+7*(L-1))
Pxl-Off(Q,P)
End
End

If [B](L,K)-(10*int([B](L,K)/10))=1
"P"->Str1
If [B](L,K)-(10*int([B](L,K)/10))=2
"N"->Str1
If [B](L,K)-(10*int([B](L,K)/10))=3
"B"->Str1
If [B](L,K)-(10*int([B](L,K)/10))=4
"R"->Str1
If [B](L,K)-(10*int([B](L,K)/10))=5
"Q"->Str1
If [B](L,K)-(10*int([B](L,K)/10))=6
"K"->Str1

Text(4+7*(L-1),22+7*(K-1),Str1)

For(P,22+7*(K-1),25+7*K-1)
Pxl-On(10+7*(L-1),P)
End

If int([B](L,K)/10)=2
Then
For(P,20+7*(K-1)25+7*(K-1))
For(Q,4+7*(L-1),9+7*(L-1))
Pxl-Change(Q,P)
End
End
End
prgmCHINV

1->T
End
End
If I=0 and not([B](Y,X)=0)
Then
X->I
Y->J
End
If T=1
Then
0->I
0->J
0->K
0->L
0->T
End
End
End