-- file: MFGF.mesa
-- Pascal-to-Mesa translator output, translated at October 31, 1985 4:28:00 pm PST


DIRECTORY
  PascalBasic,
  PascalWizardFiles,
  MFTypes;

MFGF: DEFINITIONS IMPORTS  =
BEGIN OPEN PascalBasic, PascalWizardFiles, MFTypes;

GfExt: StrNumber;

GfMinM: PascalInteger;

GfMaxM: PascalInteger;

GfMinN: PascalInteger;

GfMaxN: PascalInteger;

GfPrevPtr: PascalInteger;

TotalChars: PascalInteger;
CharPtr: LONG POINTER TO ARRAY EightBits OF  PascalInteger;
GfDx: LONG POINTER TO ARRAY EightBits OF  PascalInteger;
GfDy: LONG POINTER TO ARRAY EightBits OF  PascalInteger;
GfBuf: LONG POINTER TO ARRAY GfIndex OF  EightBits;

HalfBuf: GfIndex;

GfLimit: GfIndex;

GfPtr: GfIndex;

GfOffset: PascalInteger;

 WriteGf: PROCEDURE[A,B: GfIndex]
;

--:1153----1154:-- GfSwap: PROCEDURE
;

 GfFour: PROCEDURE[X: PascalInteger]
;

 GfTwo: PROCEDURE[X: PascalInteger];

 GfThree: PROCEDURE[X: PascalInteger]
;

 GfPaint: PROCEDURE[D: PascalInteger]
;

 GfString: PROCEDURE[S,T: StrNumber];

 GfBoc: PROCEDURE[MinM,MaxM,MinN,MaxN: PascalInteger]
;

--:1160----1162:-- InitGf: PROCEDURE;

END.