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