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


DIRECTORY
  PascalBasic,
  PascalWizardFiles,
  TexTypes;

TexRest: DEFINITIONS IMPORTS  =
BEGIN OPEN PascalBasic, PascalWizardFiles, TexTypes;

BestHeightPlusDepth: Scaled;

PageTail: Halfword;

PageContents: PascalInteger[0..2];

BestPageBreak: Halfword;

BestSize: Scaled;
PageSoFar: LONG POINTER TO ARRAY PascalInteger[0..7] OF  Scaled;

OutputActive: PascalBoolean;

CurBox: Halfword;

FormatIdent: StrNumber;

FmtFile: WordFile;

StartLikeInitex: PascalBoolean;
WriteFile: LONG POINTER TO ARRAY PascalInteger[0..15] OF  AlphaFile;
WriteOpen: LONG POINTER TO ARRAY PascalInteger[0..17] OF  PascalBoolean;

WriteLoc: Halfword;

 MacroCall: PROCEDURE;

 StrToks: PROCEDURE RETURNS[StrToksResult: Halfword];


 ResumeAfterDisplay: PROCEDURE;

 GetRToken: PROCEDURE;

 TrapZeroGlue: PROCEDURE
;

 DoRegisterCommand: PROCEDURE[A: SmallNumber];

 AlterAux: PROCEDURE;

--:1243----1244:-- AlterPrevGraf: PROCEDURE;

 AlterPageSoFar: PROCEDURE;

 AlterInteger: PROCEDURE
;

--:1246----1247:-- AlterBoxDimen: PROCEDURE;

 NewFont: PROCEDURE[A: SmallNumber];

 NewInteraction: PROCEDURE;

 PrefixedCommand: PROCEDURE;

 DoAssignments: PROCEDURE;

 OpenOrCloseIn: PROCEDURE
;

 IssueMessage: PROCEDURE;

 ShiftCase: PROCEDURE;

 ShowWhatever: PROCEDURE;

 StoreFmtFile: PROCEDURE;

 MainControl: PROCEDURE;

 GiveErrHelp: PROCEDURE
;


 CloseFilesAndTerminate: PROCEDURE;

 FinalCleanup: PROCEDURE;

 DebugHelp: PROCEDURE;

 TheRealTex: PROCEDURE;

END.