17 lines
205 B
Text
17 lines
205 B
Text
|
Filename:MN-ADDI
|
||
|
|
1->R
|
||
|
|
Do
|
||
|
|
If Mat M[R,S]=0
|
||
|
|
Then L->Mat M[R,S]
|
||
|
|
1->Z
|
||
|
|
If B=0
|
||
|
|
Then "Esine otettu!"
|
||
|
|
IfEnd
|
||
|
|
Return
|
||
|
|
Else R+1->R
|
||
|
|
IfEnd
|
||
|
|
LpWhile R<8
|
||
|
|
If B=1
|
||
|
|
Then ClrText
|
||
|
|
"Ei tilaa esineelle!"[DISP]
|
||
|
|
IfEnd
|