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


DIRECTORY
  PascalBasic,
  PascalWizardFiles,
  GFtoPressPrivate;

GFtoPressVars3: DEFINITIONS IMPORTS  =
BEGIN OPEN PascalBasic, PascalWizardFiles, GFtoPressPrivate;

TermOut: TextFile;

QDot: TreePointer;

FirstDot: TreePointer;

LastDot: TreePointer;

XDot: Scaled;

YDot: Scaled;

DDot: Scaled;

RuleThickness: Scaled;

OffsetX: Scaled;

OffsetY: Scaled;

XOffset: Scaled;

YOffset: Scaled;

PreMinX: Scaled;

PreMaxX: Scaled;

PreMinY: Scaled;

PreMaxY: Scaled;

RulePtr: TreePointer;

LabelTail: TreePointer;

TitleHead: TreePointer;

TitleTail: TreePointer;

CharCode: PascalInteger;

Fam: PascalInteger;

MinX: PascalInteger;

MaxX: PascalInteger;

MinY: PascalInteger;

MaxY: PascalInteger;

X: PascalInteger;

Y: PascalInteger;

Z: PascalInteger;

XRatio: PascalReal;

YRatio: PascalReal;

SlantRatio: PascalReal;

UnscXRatio: PascalReal;

UnscYRatio: PascalReal;

UnscSlantRatio: PascalReal;

FudgeFactor: PascalReal;

DeltaX: Scaled;

DeltaY: Scaled;

DviX: Scaled;

DviY: Scaled;

OverCol: Scaled;

GrayRuleThickness: Scaled;

TempX: Scaled;

TempY: Scaled;

OverflowLine: PascalInteger;

Delta: Scaled;

HalfXHeight: Scaled;

ThriceXHeight: Scaled;

DotWidth: Scaled;

DotHeight: Scaled;
B: LONG POINTER TO ARRAY PascalInteger[0..4095] OF  PascalInteger[0..120];
R: LONG POINTER TO ARRAY PascalInteger[0..4095] OF  PascalInteger[1..4096];
A: LONG POINTER TO ARRAY PascalInteger[0..WidestRow] OF  PascalInteger[0..4095];

BlankRows: PascalInteger;

K: PascalInteger;

S: PascalInteger;

M: PascalInteger;

P: PascalInteger;

Q: PascalInteger;

Dx: PascalInteger;

Dy: PascalInteger;

TimeStamp: StrNumber;

UseLogo: PascalBoolean;

END.