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


DIRECTORY
  PascalBasic,
  PascalWizardFiles,
  MFTypes,
  MFInit,
  MFExternals,
  MFInteraction,
  MFMath,
  MFSymbols,
  MFInput,
  MFFileNames,
  MFOps,
  MFRest;

MFMain: PROGRAM IMPORTS PascalBasic, PascalWizardFiles, MFInit, MFExternals, MFInteraction, MFMath, MFSymbols, MFInput, MFFileNames, MFOps, MFRest EXPORTS MFRest, MFTypes = PUBLIC
BEGIN OPEN PascalBasic, PascalWizardFiles, MFTypes, MFInit, MFExternals, MFInteraction, MFMath, MFSymbols, MFInput, MFFileNames, MFOps, MFRest;
 --4:----9:----$C-,A+,D- ----$C+,D+----:9-- --6:----:6

--:679----698:--
BgLoc: PascalInteger[1..2241];

EgLoc: PascalInteger[1..2241];

--:1187----1202:--
StartLikeInimf: PascalBoolean;
--:1211----:1201----1203:-- TheRealMf: PROCEDURE = 
BEGIN --1210:--  {ENABLE Error9999 => GOTO Label9999;{ENABLE Error9998 => GOTO Label9998;History_3;
RewriteTermOut[@TermOut];SetBackgroundPriority[];--14:--Bad_0;
IF( INT[HalfErrorLine]<30)OR ( INT[HalfErrorLine]>ErrorLine-15) THEN Bad_1;
IF  INT[MaxPrintLine]<60  THEN Bad_2;IF  PascalMODPower2Mask[GfBufSize ,7]#0  THEN Bad_3;
IF  INT[1100]>50000  THEN Bad_4;IF  INT[1777]>2100  THEN Bad_5;
IF  PascalMODPower2Mask[HeaderSize ,3]#0  THEN Bad_6;--:14----154:
IF MemMax#50000  THEN Bad_10;IF  INT[MemMax]<50000  THEN Bad_10;
IF( INT[0]>0)OR ( INT[255]<127) THEN Bad_11;IF( INT[0]>0)OR ( INT[65535]<32767) THEN Bad_12;
IF( INT[0]<0)OR ( INT[255]>65535) THEN Bad_13;IF( INT[0]<0)OR ( INT[MemMax]>=65535) THEN Bad_14;
IF  INT[MaxStrings]>65535  THEN Bad_15;IF  INT[BufSize]>65535  THEN Bad_16;
IF( INT[255]<255)OR ( INT[65535]<65535) THEN Bad_17;--:154----204:
IF  INT[2241+MaxInternal]>65535  THEN Bad_21;--:204----214:
IF  INT[2692]>65535  THEN Bad_22;--:214----310:
IF  INT[15*11]>BistackSize  THEN Bad_31;--:310----553:
IF  INT[20+17*45]>BistackSize  THEN Bad_32;--:553
IF Bad>0  THEN BEGIN {
PascalWriteLongString[file: @TermOut, item: "Ouch---my internal constants have been clobbered!"]; PascalWriteLongString[file: @TermOut, item: "---case "]; PascalWriteInteger[file: @TermOut, item: Bad, fieldMinLength: 1]; PascalWriteLn[file: @TermOut]};
 ERROR Error9999; END;Initialize[];
IF StartLikeInimf  THEN BEGIN IF  NOT GetStringsStarted [] THEN  ERROR Error9999
;InitTab[];InitPrim[]; END;--55:--Selector_1;Tally_0;TermOffset_0;
FileOffset_0;--:55----61:
PascalWriteLongString[file: @TermOut, item: "This is METAFONT 0.9999, for Cedar 6.0"];
IF BaseIdent=0  THEN {PascalWriteLongString[file: @TermOut, item: " (no base preloaded)"]; PascalWriteLn[file: @TermOut]} ELSE BEGIN
Print[BaseIdent];PrintLn[]; END;PascalTextBREAK[file: @TermOut];--:61----782:--JobName_0;
--:782----791:--OutputFileName_0;--:791--BEGIN--656:

 BEGIN InputPtr_0;MaxInStack_0;InOpen_0;MaxBufStack_0;
ParamPtr_0;MaxParamStack_0;First_1;CurInput.StartField_1;
CurInput.IndexField_0;Line_0;CurInput.NameField_0;
ForceEof_FALSE;IF  NOT InitTerminal [] THEN  ERROR Error9999;
CurInput.LimitField_Last;First_Last+1; END;--:656----659:
ScannerStatus_0;--:659--IF(BaseIdent=0)OR (Buffer^[CurInput.LocField]=38) THEN BEGIN IF
BaseIdent#0  THEN Initialize[];IF  NOT OpenBaseFile [] THEN  ERROR Error9999;
IF  NOT LoadBaseFile [] THEN BEGIN WClose[@BaseFile]; ERROR Error9999; END;
WClose[@BaseFile];
WHILE( INT[CurInput.LocField]<CurInput.LimitField)AND (Buffer^[CurInput.
LocField]=32)DO CurInput.LocField_ INT[CurInput.LocField]+1 ENDLOOP ; END;
Buffer^[CurInput.LimitField]_37;FixDateAndTime[];
InitRandoms[( PascalDIVPower2[Internal^[17],16])+Internal^[16]];--70:
IF Interaction=0  THEN Selector_0  ELSE Selector_1--:70--;
ReadProfileForDirectories[];
IF  INT[CurInput.LocField]<CurInput.LimitField  THEN IF Buffer^[CurInput.
LocField]#92  THEN StartInput[]; END--:1210--;InitStrPtr_StrPtr;
InitPoolPtr_PoolPtr;MaxStrPtr_StrPtr;MaxPoolPtr_PoolPtr;
History_0;IF  INT[StartSym]>0  THEN BEGIN CurSym_StartSym;BackInput[]; END;
MainControl[];FinalCleanup[];EXITS Label9998 => NULL};CloseFilesAndTerminate[];EXITS Label9999 => NULL}; END;

Error9998: ERROR = CODE;

Error9999: ERROR = CODE;
 MFRun: UnsafeCommandProc = BEGIN 
RegisterMfCommands[];--:1203
 END;

PascalRegister["MF", MFRun];

END.