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


DIRECTORY
  PascalBasic,
  PascalWizardFiles,
  GFtoPressPrivate,
  GFtoPressVars1;

GFtoPressVarsImpl1: PROGRAM IMPORTS PascalBasic EXPORTS GFtoPressVars1 = PUBLIC
BEGIN OPEN PascalBasic, PascalWizardFiles, GFtoPressPrivate, GFtoPressVars1;
--12:
Xord: LONG POINTER TO ARRAY PascalChar OF AsciiCode _ PascalStaticZone.NEW[ARRAY PascalChar OF AsciiCode];
Xchr: LONG POINTER TO ARRAY PascalInteger[0..255] OF PascalChar _ PascalStaticZone.NEW[ARRAY PascalInteger[0..255] OF PascalChar];
--:12----15:
Buffer: LONG POINTER TO ARRAY PascalInteger[0..150] OF PascalInteger[0..255] _ PascalStaticZone.NEW[ARRAY PascalInteger[0..150] OF PascalInteger[0..255]];

TermIn: TextFile;
--:15
--17:--
LineLength: PascalInteger[0..TerminalLineLength];
--:17----18:

BufPtr: PascalInteger[0..TerminalLineLength];
--:18----37:

Lf: PascalInteger[0..32767];

Lh: PascalInteger[0..32767];

Bc: PascalInteger[0..32767];

Ec: PascalInteger[0..32767];

Nw: PascalInteger[0..32767];

Nh: PascalInteger[0..32767];

Nd: PascalInteger[0..32767];

Ni: PascalInteger[0..32767];

Nl: PascalInteger[0..32767];

Nk: PascalInteger[0..32767];

Ne: PascalInteger[0..32767];

Np: PascalInteger[0..32767];
--:37----46:

GfFile: ByteFile;

TfmFile: ByteFile;
--:46----48:--
CurLoc: PascalInteger;

NameOfFile: LONG POINTER TO PACKED ARRAY PascalInteger[1..128] OF PascalChar _ PascalStaticZone.NEW[PACKED ARRAY PascalInteger[1..128] OF PascalChar];
--:48----49:

B0: EightBits;

B1: EightBits;

B2: EightBits;

B3: EightBits;
--:49----53:
FontInfo: LONG POINTER TO ARRAY PascalInteger[0..1000] OF MemoryWord _ PascalStaticZone.NEW[ARRAY PascalInteger[0..1000] OF MemoryWord];


FmemPtr: PascalInteger[0..FontMemSize];

FontCheck: LONG POINTER TO ARRAY InternalFontNumber OF FourQuarters _ PascalStaticZone.NEW[ARRAY InternalFontNumber OF FourQuarters];

FontSize: LONG POINTER TO ARRAY InternalFontNumber OF Scaled _ PascalStaticZone.NEW[ARRAY InternalFontNumber OF Scaled];

FontDsize: LONG POINTER TO ARRAY InternalFontNumber OF Scaled _ PascalStaticZone.NEW[ARRAY InternalFontNumber OF Scaled];

FontBc: LONG POINTER TO ARRAY InternalFontNumber OF EightBits _ PascalStaticZone.NEW[ARRAY InternalFontNumber OF EightBits];

FontEc: LONG POINTER TO ARRAY InternalFontNumber OF EightBits _ PascalStaticZone.NEW[ARRAY InternalFontNumber OF EightBits];

FontFamily: LONG POINTER TO ARRAY InternalFontNumber OF StrNumber _ PascalStaticZone.NEW[ARRAY InternalFontNumber OF StrNumber];

FontFace: LONG POINTER TO ARRAY InternalFontNumber OF EightBits _ PascalStaticZone.NEW[ARRAY InternalFontNumber OF EightBits];

FontPressCode: LONG POINTER TO ARRAY InternalFontNumber OF CedarNat _ PascalStaticZone.NEW[ARRAY InternalFontNumber OF CedarNat];

--:218----221:--
CommandLineAlreadyGotten: PascalBoolean;

END.