char		*m_erfind;
char		*m_lieferung;
char		*m_personal;
char		*m_teile;

f_erfind(frame)
register char		*frame;
{
   if (MMshell(m_erfind, 0, 0, "./k_erfind"))
	MMerror(" k_erfind nicht ausfuehrbar ");
}

f_lieferung(frame)
register char		*frame;
{
   if (MMshell(m_lieferung, 0, 0, "./k_lieferung"))
	MMerror(" k_lieferung nicht ausfuehrbar ");
}

f_personal(frame)
register char		*frame;
{
   if (MMshell(m_personal, 0, 0, "./k_personal"))
	MMerror(" k_personal nicht ausfuehrbar ");
}

f_teile(frame)
register char		*frame;
{
   if (MMshell(m_teile, 0, 0, "./k_teile"))
	MMerror(" k_teile nicht ausfuehrbar ");
}

main()
{
	register char		*form;
	char			*frame;
	extern char		*MMalloc();

   MMinit_form(1);

   frame = (char *) 0;
   form = MMalloc(&frame, 2, 1, 71, (char *) 0);
   MMout_field(form, "------------------------------------------------- K O R R E K T U R E N");

   m_erfind = form = MMalloc(&frame, 8, 5, 11, (char *) 0);
   MMmen_field(form, f_erfind, (int (*)()) 0, " ERFIND");

   m_lieferung = form = MMalloc(&frame, 10, 5, 11, (char *) 0);
   MMmen_field(form, f_lieferung, (int (*)()) 0, " LIEFERUNG");

   m_personal = form = MMalloc(&frame, 12, 5, 11, (char *) 0);
   MMmen_field(form, f_personal, (int (*)()) 0, " PERSONAL");

   m_teile = form = MMalloc(&frame, 14, 5, 11, (char *) 0);
   MMmen_field(form, f_teile, (int (*)()) 0, " TEILE");

   MMform(frame);

   MMfree(&frame);
   MMexit_form(1);
   return (0);
}