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


DIRECTORY
  PascalBasic,
  PascalWizardFiles,
  GFtoPressPrivate,
  GFtoPressVars2;

GFtoPressVarsImpl2: PROGRAM IMPORTS PascalBasic EXPORTS GFtoPressVars2 = PUBLIC
BEGIN OPEN PascalBasic, PascalWizardFiles, GFtoPressPrivate, GFtoPressVars2;

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

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

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

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

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

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

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

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

ParamBase: LONG POINTER TO ARRAY InternalFontNumber OF PascalInteger ← PascalStaticZone.NEW[ARRAY InternalFontNumber OF PascalInteger];
--:53----71:
StrPool: LONG POINTER TO PACKED ARRAY PoolPointer OF AsciiCode ← PascalStaticZone.NEW[PACKED ARRAY PoolPointer OF AsciiCode];

StrStart: LONG POINTER TO ARRAY StrNumber OF PoolPointer ← PascalStaticZone.NEW[ARRAY StrNumber OF PoolPointer];

PoolPtr: PoolPointer;


StrPtr: StrNumber;

InitStrPtr: StrNumber;
--:71----76:--
L: PascalInteger;
--:76
--80:--
CurGf: EightBits;

CurString: StrNumber;

LabelType: EightBits;
--:80
--86:--
CurName: StrNumber;

CurArea: StrNumber;

CurExt: StrNumber;
--:86
--87:--
AreaDelimiter: PoolPointer;

ExtDelimiter: PoolPointer;
--:87----93:

JobName: StrNumber;
--:93----96:--
Interaction: PascalBoolean;


FontsNotLoaded: PascalBoolean;

FontName: LONG POINTER TO ARRAY InternalFontNumber OF StrNumber ← PascalStaticZone.NEW[ARRAY InternalFontNumber OF StrNumber];

FontArea: LONG POINTER TO ARRAY InternalFontNumber OF StrNumber ← PascalStaticZone.NEW[ARRAY InternalFontNumber OF StrNumber];

FontAt: LONG POINTER TO ARRAY InternalFontNumber OF Scaled ← PascalStaticZone.NEW[ARRAY InternalFontNumber OF Scaled];
--:96----102:

TotalPages: PascalInteger;
--:102----117:--
BoxWidth: Scaled;

BoxHeight: Scaled;


BoxDepth: Scaled;
--:117----124:--C: LONG POINTER TO ARRAY PascalInteger[1..120] OF PascalInteger[1..4095] ← PascalStaticZone.NEW[ARRAY PascalInteger[1..120] OF PascalInteger[1..4095]];

D: LONG POINTER TO ARRAY PascalInteger[1..120] OF PascalInteger[2..4096] ← PascalStaticZone.NEW[ARRAY PascalInteger[1..120] OF PascalInteger[2..4096]];
TwoToThe: LONG POINTER TO ARRAY PascalInteger[0..13] OF PascalInteger[1..8192] ← PascalStaticZone.NEW[ARRAY PascalInteger[0..13] OF PascalInteger[1..8192]];
--:124----131:

RuleSlant: PascalReal;

SlantN: PascalInteger;

SlantUnit: PascalReal;

SlantReported: PascalReal;

--:131----138:--Xl: LONG POINTER TO ARRAY PascalInteger[1..2000] OF Scaled ← PascalStaticZone.NEW[ARRAY PascalInteger[1..2000] OF Scaled];
Xr: LONG POINTER TO ARRAY PascalInteger[1..2000] OF Scaled ← PascalStaticZone.NEW[ARRAY PascalInteger[1..2000] OF Scaled];
Yt: LONG POINTER TO ARRAY PascalInteger[1..2000] OF Scaled ← PascalStaticZone.NEW[ARRAY PascalInteger[1..2000] OF Scaled];
Yb: LONG POINTER TO ARRAY PascalInteger[1..2000] OF Scaled ← PascalStaticZone.NEW[ARRAY PascalInteger[1..2000] OF Scaled];

Xx: LONG POINTER TO ARRAY PascalInteger[1..2000] OF Scaled ← PascalStaticZone.NEW[ARRAY PascalInteger[1..2000] OF Scaled];
Yy: LONG POINTER TO ARRAY PascalInteger[1..2000] OF Scaled ← PascalStaticZone.NEW[ARRAY PascalInteger[1..2000] OF Scaled];

Left: LONG POINTER TO ARRAY PascalInteger[1..2000] OF TreePointer ← PascalStaticZone.NEW[ARRAY PascalInteger[1..2000] OF TreePointer];
Mid: LONG POINTER TO ARRAY PascalInteger[1..2000] OF TreePointer ← PascalStaticZone.NEW[ARRAY PascalInteger[1..2000] OF TreePointer];

Right: LONG POINTER TO ARRAY PascalInteger[0..2000] OF TreePointer ← PascalStaticZone.NEW[ARRAY PascalInteger[0..2000] OF TreePointer];

DlTie: LONG POINTER TO ARRAY PascalInteger[0..2000] OF TreePointer ← PascalStaticZone.NEW[ARRAY PascalInteger[0..2000] OF TreePointer];

OvFlag: PascalBoolean;

Info: LONG POINTER TO ARRAY PascalInteger[1..2000] OF PascalInteger ← PascalStaticZone.NEW[ARRAY PascalInteger[1..2000] OF PascalInteger];

Root: TreePointer;


QSave: TreePointer;

MaxNode: TreePointer;
--:138----142:

XLeft: Scaled;

XRight: Scaled;

YTop: Scaled;

YBot: Scaled;

END.