procedure initwimp()
  integer b%
  integer savewin%
  integer optmenu%
  integer infobox%
  string Appname$
