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


DIRECTORY
  PascalBasic,
  PascalWizardFiles,
  TexTypes,
  TexInit,
  TexInteraction,
  TexMemory,
  TexSymbols,
  TexScan,
  TexOps,
  TexRest;

TexMain: PROGRAM IMPORTS PascalBasic EXPORTS TexTypes = PUBLIC
BEGIN OPEN PascalBasic, PascalWizardFiles, TexTypes, TexInit, TexInteraction, TexMemory, TexSymbols, TexScan, TexOps, TexRest;
 --4:----9:----$C-,A+,D- ----$C+,D+----:9-- --6:----:6

InitPoolPtr: PoolPointer;

InitStrPtr: StrNumber;

History: PascalInteger[0..3];

UseErrHelp: PascalBoolean;
--:124----165:
Free: LONG POINTER TO PACKED ARRAY PascalInteger[0..65000] OF PascalBoolean ← PascalStaticZone.NEW[PACKED ARRAY PascalInteger[0..65000] OF PascalBoolean];

WasFree: LONG POINTER TO PACKED ARRAY PascalInteger[0..65000] OF PascalBoolean ← PascalStaticZone.NEW[PACKED ARRAY PascalInteger[0..65000] OF PascalBoolean];


WasMemEnd: Halfword;

WasLoMax: Halfword;

WasHiMin: Halfword;

Panicking: PascalBoolean;

--:333----361:--
ForceEof: PascalBoolean;

IfLine: PascalInteger;
--:514----527:--
NameInProgress: PascalBoolean;

LogName: StrNumber;

HyphenChar: LONG POINTER TO ARRAY InternalFontNumber OF PascalInteger ← PascalStaticZone.NEW[ARRAY InternalFontNumber OF PascalInteger];

SkewChar: LONG POINTER TO ARRAY InternalFontNumber OF PascalInteger ← PascalStaticZone.NEW[ARRAY InternalFontNumber OF PascalInteger];

PressHOk: PascalBoolean;
--:646----647:

AdjustTail: Halfword;
--:647----661:--
PackBeginLine: PascalInteger;

CurLoop: Halfword;


CurHead: Halfword;

CurTail: Halfword;

PrintedNode: Halfword;

PageMaxDepth: Scaled;


LeastPageCost: PascalInteger;

LastGlue: Halfword;


LastPenalty: PascalInteger;

LastKern: Scaled;

InsertPenalties: PascalInteger;
--:1074----1266:

AfterToken: Halfword;
--:1266----1281:--
LongHelpSeen: PascalBoolean;

Error9998: ERROR = CODE;

Error9999: ERROR = CODE;
 TexRun: UnsafeCommandProc = BEGIN 
--:1332
 END;

PascalRegister["Tex", TexRun];

END.