17 lines
No EOL
205 B
Text
17 lines
No EOL
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 |