uses metaphon
   metaph(inx cptr, lgth clong, retx cptr) [stdcall]
enduses

method run(var eventInfo Event)
var
   a, b string
endvar
   b=space(100)

   a.view("Enter word")
   metaph(a,20,b)
   b.view("Return value")

endMethod