18 lines
No EOL
233 B
Text
18 lines
No EOL
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 |