procedure initwimp()
  integer infobox%
  integer mainwin%
  string Appname$

function taskwindow_start(,,,1,,)
  function \1_ended
  function \1_data
