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


DIRECTORY
  PascalBasic,
  PascalWizardFiles,
  MFTypes;

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

CurName: StrNumber;

CurArea: StrNumber;

CurExt: StrNumber;

AreaDelimiter: PoolPointer;

ExtDelimiter: PoolPointer;

MfArea: StrNumber;

JobName: StrNumber;

LogName: StrNumber;

GfFile: ByteFile;

OutputFileName: StrNumber;

 PrintFileName: PROCEDURE[N,A,E: PascalInteger];

 BeginName: PROCEDURE
;

 MoreName: PROCEDURE[C: AsciiCode] RETURNS[MoreNameResult: PascalBoolean]
;

 EndName: PROCEDURE
;

--773:-- PackFileName: PROCEDURE[N,A,E: StrNumber];

--:777----779:
 MakeNameString: PROCEDURE RETURNS[MakeNameStringResult: StrNumber];

--:779
--780:-- ScanFileName: PROCEDURE;

--783:-- PackJobName: PROCEDURE[S: StrNumber];

 PromptFileName: PROCEDURE[S,E: StrNumber];

END.