-- file: TexAlignImpl.mesa
-- Pascal-to-Mesa translator output, translated at September 27, 1985 10:21:38 am PDT


DIRECTORY
  TexTypes,
  TexInteraction,
  TexSymbols,
  TexOps,
  TexBuildPage;

TexAlignImpl: PROGRAM IMPORTS TexInteraction, TexSymbols, TexOps, TexBuildPage EXPORTS TexOps = PUBLIC
BEGIN OPEN TexTypes, TexInteraction, TexSymbols, TexOps, TexBuildPage;
 AlignError: PROCEDURE = 
BEGIN IF ABS[AlignState]>2  THEN--1128:
BEGIN BEGIN IF Interaction=3  THEN NULL;PrintNl[134];Print[967]; END;
PrintCmdChr[CurCmd,CurChr];
IF CurTok=1062  THEN BEGIN BEGIN HelpPtr_6;HelpLine^[5]_968;
HelpLine^[4]_969;HelpLine^[3]_970;HelpLine^[2]_971;HelpLine^[1]_972;
HelpLine^[0]_973; END; END  ELSE BEGIN BEGIN HelpPtr_5;
HelpLine^[4]_968;HelpLine^[3]_974;HelpLine^[2]_971;HelpLine^[1]_972;
HelpLine^[0]_973; END; END;Error[]; END--:1128-- ELSE BEGIN BackInput[];
IF AlignState<0  THEN BEGIN BEGIN IF Interaction=3  THEN NULL;PrintNl[134];
Print[518]; END;AlignState_AlignState+1;CurTok_379;
 END  ELSE BEGIN BEGIN IF Interaction=3  THEN NULL;PrintNl[134];Print[963]; END;
AlignState_AlignState-1;CurTok_637; END;BEGIN HelpPtr_3;
HelpLine^[2]_964;HelpLine^[1]_965;HelpLine^[0]_966; END;InsError[]; END;
 END;--:1127----1129:-- NoAlignError: PROCEDURE
 = 
BEGIN BEGIN IF Interaction=3  THEN NULL;PrintNl[134];Print[967]; END;
PrintEsc[389];BEGIN HelpPtr_2;HelpLine^[1]_975;HelpLine^[0]_976;
 END;Error[]; END; OmitError: PROCEDURE = 
BEGIN BEGIN IF Interaction=3  THEN NULL;
PrintNl[134];Print[967]; END;PrintEsc[391];BEGIN HelpPtr_2;
HelpLine^[1]_977;HelpLine^[0]_976; END;Error[]; END;--:1129----1131:
 DoEndv: PROCEDURE = 
BEGIN IF CurGroup=6  THEN BEGIN EndGraf[];
IF FinCol [] THEN FinRow[]; END  ELSE OffSave[]; END;--:1131----1135:
 CsError: PROCEDURE = 
BEGIN BEGIN IF Interaction=3  THEN NULL;PrintNl[134];
Print[636]; END;PrintEsc[367];BEGIN HelpPtr_1;HelpLine^[0]_979; END;
Error[]; END;--:1135----1136:--
END.