Filename:S-SMAT
ClrList1
If T=0
Then 1->T
IfEnd
If V=0
Then 1->V
IfEnd
0->L
1->R
Do
L+1->L
If T=2
Then If Abs (Mat S[V,L]-N)<=Abs (D)
Then L->List 1[R]
R+1->R
IfEnd
IfEnd
If T=1
Then If Abs (Mat S[L,V]-N)<=Abs (D)
Then L->List 1[R]
R+1->R
IfEnd
IfEnd
Dim Mat S
LpWhile L<List Ans[T]
If X=1
Then 0->List 1[R]
IfEnd
Return