18 lines
233 B
Text
18 lines
233 B
Text
|
Filename:MN-GETIN
|
||
|
|
Mat M[L,S]->A
|
||
|
|
If A=1
|
||
|
|
Then Locate G,H,"VASARA"
|
||
|
|
Return
|
||
|
|
IfEnd
|
||
|
|
If A=2
|
||
|
|
Then Locate G,H,"MEISSELI"
|
||
|
|
Return
|
||
|
|
IfEnd
|
||
|
|
If A=3
|
||
|
|
Then Locate G,H,"DOOM"
|
||
|
|
Return
|
||
|
|
IfEnd
|
||
|
|
If A=17441
|
||
|
|
Then Locate G,H,"TLAMPPU"
|
||
|
|
Return
|
||
|
|
IfEnd
|