-- file: GFtoPressVars2.mesa
-- Pascal-to-Mesa translator output, translated at October 25, 1985 5:07:13 pm PDT


DIRECTORY
  PascalBasic,
  PascalWizardFiles,
  GFtoPressPrivate;

GFtoPressVars2: DEFINITIONS IMPORTS  =
BEGIN OPEN PascalBasic, PascalWizardFiles, GFtoPressPrivate;
CharBase: LONG POINTER TO ARRAY InternalFontNumber OF  PascalInteger;
WidthBase: LONG POINTER TO ARRAY InternalFontNumber OF  PascalInteger;
HeightBase: LONG POINTER TO ARRAY InternalFontNumber OF  PascalInteger;
DepthBase: LONG POINTER TO ARRAY InternalFontNumber OF  PascalInteger;
ItalicBase: LONG POINTER TO ARRAY InternalFontNumber OF  PascalInteger;
LigKernBase: LONG POINTER TO ARRAY InternalFontNumber OF  PascalInteger;
KernBase: LONG POINTER TO ARRAY InternalFontNumber OF  PascalInteger;
ExtenBase: LONG POINTER TO ARRAY InternalFontNumber OF  PascalInteger;
ParamBase: LONG POINTER TO ARRAY InternalFontNumber OF  PascalInteger;
StrPool: LONG POINTER TO  PACKED ARRAY PoolPointer OF  AsciiCode;
StrStart: LONG POINTER TO ARRAY StrNumber OF  PoolPointer;

PoolPtr: PoolPointer;

StrPtr: StrNumber;

InitStrPtr: StrNumber;

L: PascalInteger;

CurGf: EightBits;

CurString: StrNumber;

LabelType: EightBits;

CurName: StrNumber;

CurArea: StrNumber;

CurExt: StrNumber;

AreaDelimiter: PoolPointer;

ExtDelimiter: PoolPointer;

JobName: StrNumber;

Interaction: PascalBoolean;

FontsNotLoaded: PascalBoolean;
FontName: LONG POINTER TO ARRAY InternalFontNumber OF  StrNumber;
FontArea: LONG POINTER TO ARRAY InternalFontNumber OF  StrNumber;
FontAt: LONG POINTER TO ARRAY InternalFontNumber OF  Scaled;

TotalPages: PascalInteger;

BoxWidth: Scaled;

BoxHeight: Scaled;

BoxDepth: Scaled;
C: LONG POINTER TO ARRAY PascalInteger[1..120] OF  PascalInteger[1..4095];
D: LONG POINTER TO ARRAY PascalInteger[1..120] OF  PascalInteger[2..4096];
TwoToThe: LONG POINTER TO ARRAY PascalInteger[0..13] OF  PascalInteger[1..8192];

RuleSlant: PascalReal;

SlantN: PascalInteger;

SlantUnit: PascalReal;

SlantReported: PascalReal;
Xl: LONG POINTER TO ARRAY PascalInteger[1..MaxLabels] OF  Scaled;
Xr: LONG POINTER TO ARRAY PascalInteger[1..MaxLabels] OF  Scaled;
Yt: LONG POINTER TO ARRAY PascalInteger[1..MaxLabels] OF  Scaled;
Yb: LONG POINTER TO ARRAY PascalInteger[1..MaxLabels] OF  Scaled;
Xx: LONG POINTER TO ARRAY PascalInteger[1..MaxLabels] OF  Scaled;
Yy: LONG POINTER TO ARRAY PascalInteger[1..MaxLabels] OF  Scaled;
Left: LONG POINTER TO ARRAY PascalInteger[1..MaxLabels] OF  TreePointer;
Mid: LONG POINTER TO ARRAY PascalInteger[1..MaxLabels] OF  TreePointer;
Right: LONG POINTER TO ARRAY PascalInteger[0..MaxLabels] OF  TreePointer;
DlTie: LONG POINTER TO ARRAY PascalInteger[0..MaxLabels] OF  TreePointer;

OvFlag: PascalBoolean;
Info: LONG POINTER TO ARRAY PascalInteger[1..MaxLabels] OF  PascalInteger;

Root: TreePointer;

QSave: TreePointer;

MaxNode: TreePointer;

XLeft: Scaled;

XRight: Scaled;

YTop: Scaled;

YBot: Scaled;

END.