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


DIRECTORY
  PascalBasic,
  PascalWizardFiles,
  GFtoPressPrivate,
  GFtoPressVars3;

GFtoPressVarsImpl3: PROGRAM IMPORTS PascalBasic EXPORTS GFtoPressVars3 = PUBLIC
BEGIN OPEN PascalBasic, PascalWizardFiles, GFtoPressPrivate, GFtoPressVars3;
--:223-- 
TermOut: TextFile;
--:142----146:--
QDot: TreePointer;


FirstDot: TreePointer;

LastDot: TreePointer;
--:146----151:

XDot: Scaled;

YDot: Scaled;

DDot: Scaled;
--:151----155:--
RuleThickness: Scaled;


OffsetX: Scaled;

OffsetY: Scaled;

XOffset: Scaled;

YOffset: Scaled;


PreMinX: Scaled;

PreMaxX: Scaled;

PreMinY: Scaled;

PreMaxY: Scaled;
--:155----158:

RulePtr: TreePointer;
--:158----161:--
LabelTail: TreePointer;


TitleHead: TreePointer;

TitleTail: TreePointer;
--:161----167:--
CharCode: PascalInteger;

Fam: PascalInteger;


MinX: PascalInteger;

MaxX: PascalInteger;

MinY: PascalInteger;

MaxY: PascalInteger;

X: PascalInteger;

Y: PascalInteger;

Z: PascalInteger;
--:167----169:

XRatio: PascalReal;

YRatio: PascalReal;

SlantRatio: PascalReal;


UnscXRatio: PascalReal;

UnscYRatio: PascalReal;

UnscSlantRatio: PascalReal;

FudgeFactor: PascalReal;


DeltaX: Scaled;

DeltaY: Scaled;

DviX: Scaled;

DviY: Scaled;

OverCol: Scaled;
--:169----175:

GrayRuleThickness: Scaled;

TempX: Scaled;

TempY: Scaled;
--:175----183:

OverflowLine: PascalInteger;
--:183----184:--
Delta: Scaled;

HalfXHeight: Scaled;


ThriceXHeight: Scaled;

DotWidth: Scaled;

DotHeight: Scaled;
--:184----205:
B: LONG POINTER TO ARRAY PascalInteger[0..4095] OF PascalInteger[0..120] _ PascalStaticZone.NEW[ARRAY PascalInteger[0..4095] OF PascalInteger[0..120]];
R: LONG POINTER TO ARRAY PascalInteger[0..4095] OF PascalInteger[1..4096] _ PascalStaticZone.NEW[ARRAY PascalInteger[0..4095] OF PascalInteger[1..4096]];
--:205----209:
A: LONG POINTER TO ARRAY PascalInteger[0..8192] OF PascalInteger[0..4095] _ PascalStaticZone.NEW[ARRAY PascalInteger[0..8192] OF PascalInteger[0..4095]];
--:209----210:--
BlankRows: PascalInteger;
--:210
--218:--
K: PascalInteger;

S: PascalInteger;

M: PascalInteger;

P: PascalInteger;

Q: PascalInteger;

Dx: PascalInteger;

Dy: PascalInteger;

TimeStamp: StrNumber;

UseLogo: PascalBoolean;

END.