-- file: TFtoPLPrivate.mesa
-- Pascal-to-Mesa translator output, translated at September 23, 1986 1:04:35 pm PDT


DIRECTORY
  PascalBasic,
  PascalWizardFiles;

TFtoPLPrivate: DEFINITIONS IMPORTS  =
BEGIN OPEN PascalBasic, PascalWizardFiles;
--4:
TfmSize: PascalInteger =20000;
--:4----18:--Byte: TYPE =PascalInteger[0..255];
Index: TYPE =PascalInteger[0..TfmSize];
--:18----90:
ByteFile: TYPE =   RECORD[baseFile: PascalFile, element: PascalInteger[0..255] _ NULL];

--:89
 Initialize: PROCEDURE;

 OutDigs: PROCEDURE[J: PascalInteger]
;

 PrintDigs: PROCEDURE[J: PascalInteger];

 PrintOctal: PROCEDURE[C: Byte];

 OutLn: PROCEDURE;

 Left: PROCEDURE;

 Right: PROCEDURE;

--35:-- OutBcpl: PROCEDURE[K: Index];

 OutOctal: PROCEDURE[K,L: Index];

 OutChar: PROCEDURE[C: Byte]
;

 OutFace: PROCEDURE[K: Index]
;

 OutFix: PROCEDURE[K: Index];

 CheckBcpl: PROCEDURE[K,L: Index]
;

--:52----85:-- Organize: PROCEDURE RETURNS[OrganizeResult: PascalBoolean];

 CheckTheFixWordEntries: PROCEDURE;

 DoSimpleThings: PROCEDURE
;

--87:-- DoCharacters: PROCEDURE;

END.