-- 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.