
procedure initwimp()
  integer infobox%
  integer typemenu%
  integer savewin%
  integer dispformatmenu%
  integer editmenu%
  integer disp_sizemenu%

