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