-- file: GFTypePrivate.mesa
-- Pascal-to-Mesa translator output, translated at October 18, 1985 11:15:21 am PDT


DIRECTORY
  PascalBasic,
  PascalWizardFiles;

GFTypePrivate: DEFINITIONS IMPORTS  =
BEGIN OPEN PascalBasic, PascalWizardFiles;
--5:
TerminalLineLength: PascalInteger =150;
LineLength: PascalInteger =79;
--:5----8:--AsciiCode: TYPE =PascalInteger[32..126];

--:8----9:--TextFile: TYPE =   PascalTextFile;
--:9----20:--EightBits: TYPE =PascalInteger[0..255];

ByteFile: TYPE =   RECORD[baseFile: PascalFile, element: EightBits _ NULL];
--:20----36:--Pixel: TYPE =PascalInteger[0..1];
Xord: LONG POINTER TO ARRAY PascalChar OF  AsciiCode;
Xchr: LONG POINTER TO ARRAY PascalInteger[0..255] OF  PascalChar;

GfFile: ByteFile;

CurLoc: PascalInteger;

WantsMnemonics: PascalBoolean;

WantsPixels: PascalBoolean;
Buffer: LONG POINTER TO ARRAY PascalInteger[0..TerminalLineLength] OF  AsciiCode;

TermIn: TextFile;

TermOut: TextFile;

M: PascalInteger;

N: PascalInteger;

PaintSwitch: Pixel;
ImageArray: LONG POINTER TO  PACKED ARRAY PascalInteger[0..79] OF PACKED ARRAY PascalInteger[0..79] OF  Pixel;

MaxSubrow: PascalInteger;

MaxSubcol: PascalInteger;

MinMStated: PascalInteger;

MaxMStated: PascalInteger;

MinNStated: PascalInteger;

MaxNStated: PascalInteger;

MaxMObserved: PascalInteger;

MaxNObserved: PascalInteger;

MinMOverall: PascalInteger;

MaxMOverall: PascalInteger;

MinNOverall: PascalInteger;

MaxNOverall: PascalInteger;

TotalChars: PascalInteger;
CharPtr: LONG POINTER TO ARRAY PascalInteger[0..255] OF  PascalInteger;

GfPrevPtr: PascalInteger;

CharacterCode: PascalInteger;

BadChar: PascalBoolean;

DesignSize: PascalInteger;

CheckSum: PascalInteger;

Hppp: PascalInteger;

Vppp: PascalInteger;

PostLoc: PascalInteger;

PixRatio: PascalReal;

A: PascalInteger;

B: PascalInteger;

C: PascalInteger;

L: PascalInteger;

O: PascalInteger;

P: PascalInteger;

Q: PascalInteger;

R: PascalInteger;

Output: TextFile;

--:74----73:
 TtyReset: PROCEDURE[ F: LONG POINTER TO Text];


 TtyRewrite: PROCEDURE[ F: LONG POINTER TO Text];


 ByteFileReset: PROCEDURE[ F: LONG POINTER TO ByteFile,Ext: Alfa];


 FileRewrite: PROCEDURE[ F: LONG POINTER TO Text,Ext: Alfa];


 FileClose: PROCEDURE[ F: LONG POINTER TO Text];


 ByteFileClose: PROCEDURE[ F: LONG POINTER TO ByteFile];

--:73
 Initialize: PROCEDURE;

 JumpOut: PROCEDURE;

 OpenGfFile: PROCEDURE
;

 GetByte: PROCEDURE RETURNS[GetByteResult: PascalInteger];

 GetTwoBytes: PROCEDURE RETURNS[GetTwoBytesResult: PascalInteger]
;

 GetThreeBytes: PROCEDURE RETURNS[GetThreeBytesResult: PascalInteger];

 SignedQuad: PROCEDURE RETURNS[SignedQuadResult: PascalInteger];

 InputLn: PROCEDURE
;

 LowerCasify: PROCEDURE[C: AsciiCode] RETURNS[LowerCasifyResult: AsciiCode]
;

 Dialog: PROCEDURE;

 PrintScaled: PROCEDURE[S: PascalInteger];

 FirstPar: PROCEDURE[O: EightBits] RETURNS[FirstParResult: PascalInteger]
;

 DoChar: PROCEDURE RETURNS[DoCharResult: PascalBoolean];

 ReadPostamble: PROCEDURE;

Error9999: ERROR;

END.