10 lines
102 B
Text
10 lines
102 B
Text
|
Filename:MN-GETIF
|
||
|
|
1->R
|
||
|
|
Do
|
||
|
|
If Mat M[R,S]=L
|
||
|
|
Then 1->A
|
||
|
|
Return
|
||
|
|
Else R+1->R
|
||
|
|
IfEnd
|
||
|
|
LpWhile R<8
|
||
|
|
0->A
|