-- file: MFMainControlImpl.mesa
-- Pascal-to-Mesa translator output, translated at October 31, 1985 4:28:03 pm PST


DIRECTORY
  PascalBasic,
  PascalWizardFiles,
  MFTypes,
  MFInteraction,
  MFInput,
  MFParsing,
  MFOps,
  MFRest;

MFMainControlImpl: PROGRAM IMPORTS MFInteraction, MFInput, MFParsing, MFOps EXPORTS MFRest = PUBLIC
BEGIN OPEN PascalBasic, PascalWizardFiles, MFTypes, MFInteraction, MFInput, MFParsing, MFOps, MFRest;
 MainControl: PROCEDURE = 
BEGIN DO DoStatement[];
IF CurCmd=81  THEN BEGIN BEGIN IF Interaction=3  THEN NULL;PrintNl[133];
Print[775]; END;BEGIN HelpPtr_2;HelpLine^[1]_776;HelpLine^[0]_556;
 END;FlushError[0]; END; IF CurCmd=82 THEN EXIT; ENDLOOP; END;--:1016----1116:

END.