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


DIRECTORY
  PascalBasic,
  PascalWizardFiles,
  MFTypes,
  MFInit,
  MFInteraction,
  MFMath,
  MFSymbols,
  MFOctants,
  MFContours,
  MFScreen,
  MFEquations,
  MFInput,
  MFParsing,
  MFOps,
  MFTFM,
  MFGF,
  MFDebug;

MFInitImpl2: PROGRAM IMPORTS PascalBasic, MFInit, MFInteraction, MFMath, MFSymbols, MFOctants, MFContours, MFScreen, MFEquations, MFInput, MFParsing, MFOps, MFTFM, MFGF, MFDebug EXPORTS MFInit = PUBLIC
BEGIN OPEN PascalBasic, PascalWizardFiles, MFTypes, MFInit, MFInteraction, MFMath, MFSymbols, MFOctants, MFContours, MFScreen, MFEquations, MFInput, MFParsing, MFOps, MFTFM, MFGF, MFDebug;
--:1213-- Initialize: PROCEDURE
 = 
BEGIN--19:--I:PascalInteger[0..255];--:19----130:--K:PascalInteger;--:130----21:--Xchr^[32]_' ;
Xchr^[33]_'!;Xchr^[34]_'";Xchr^[35]_'#;Xchr^[36]_'$;Xchr^[37]_'%;
Xchr^[38]_'&;Xchr^[39]_'';Xchr^[40]_'(;Xchr^[41]_');Xchr^[42]_'*;
Xchr^[43]_'+;Xchr^[44]_',;Xchr^[45]_'-;Xchr^[46]_'.;Xchr^[47]_'/;
Xchr^[48]_'0;Xchr^[49]_'1;Xchr^[50]_'2;Xchr^[51]_'3;Xchr^[52]_'4;
Xchr^[53]_'5;Xchr^[54]_'6;Xchr^[55]_'7;Xchr^[56]_'8;Xchr^[57]_'9;
Xchr^[58]_':;Xchr^[59]_';;Xchr^[60]_'<;Xchr^[61]_'=;Xchr^[62]_'>;
Xchr^[63]_'?;Xchr^[64]_'@;Xchr^[65]_'A;Xchr^[66]_'B;Xchr^[67]_'C;
Xchr^[68]_'D;Xchr^[69]_'E;Xchr^[70]_'F;Xchr^[71]_'G;Xchr^[72]_'H;
Xchr^[73]_'I;Xchr^[74]_'J;Xchr^[75]_'K;Xchr^[76]_'L;Xchr^[77]_'M;
Xchr^[78]_'N;Xchr^[79]_'O;Xchr^[80]_'P;Xchr^[81]_'Q;Xchr^[82]_'R;
Xchr^[83]_'S;Xchr^[84]_'T;Xchr^[85]_'U;Xchr^[86]_'V;Xchr^[87]_'W;
Xchr^[88]_'X;Xchr^[89]_'Y;Xchr^[90]_'Z;Xchr^[91]_'[;Xchr^[92]_'\\;
Xchr^[93]_'];Xchr^[94]_'^;Xchr^[95]_'_;Xchr^[96]_'`;Xchr^[97]_'a;
Xchr^[98]_'b;Xchr^[99]_'c;Xchr^[100]_'d;Xchr^[101]_'e;
Xchr^[102]_'f;Xchr^[103]_'g;Xchr^[104]_'h;Xchr^[105]_'i;
Xchr^[106]_'j;Xchr^[107]_'k;Xchr^[108]_'l;Xchr^[109]_'m;
Xchr^[110]_'n;Xchr^[111]_'o;Xchr^[112]_'p;Xchr^[113]_'q;
Xchr^[114]_'r;Xchr^[115]_'s;Xchr^[116]_'t;Xchr^[117]_'u;
Xchr^[118]_'v;Xchr^[119]_'w;Xchr^[120]_'x;Xchr^[121]_'y;
Xchr^[122]_'z;Xchr^[123]_'{;Xchr^[124]_'|;Xchr^[125]_'};
Xchr^[126]_'~;Xchr^[0]_' ;Xchr^[127]_' ;--:21----22:
FOR i:INT    IN [ INT[1 ].. INT[31 ]] DO  I _ i; Xchr^[I]_PascalCHR[I] ENDLOOP;--:22----23:
FOR i:INT    IN [ INT[0 ].. INT[255 ]] DO  I _ i; Xord^[PascalCHR[I]]_127 ENDLOOP;
FOR i:INT    IN [ INT[1 ].. INT[126 ]] DO  I _ i; Xord^[Xchr^[I]]_I ENDLOOP;--:23----69:--Interaction_3;--:69----72:
DeletionsAllowed_TRUE;ErrorCount_0;--:72----75:--HelpPtr_0;
UseErrHelp_FALSE;ErrHelp_0;--:75----92:--Interrupt_0;
OkToInterrupt_TRUE;--:92----98:--ArithError_FALSE;--:98----131:
TwoToThe^[0]_1;FOR i:INT    IN [ INT[1 ].. INT[30 ]] DO  K _ i; TwoToThe^[K]_2*TwoToThe^[K-1] ENDLOOP;
SpecLog^[1]_93032640;SpecLog^[2]_38612034;SpecLog^[3]_17922280;
SpecLog^[4]_8662214;SpecLog^[5]_4261238;SpecLog^[6]_2113709;
SpecLog^[7]_1052693;SpecLog^[8]_525315;SpecLog^[9]_262400;
SpecLog^[10]_131136;SpecLog^[11]_65552;SpecLog^[12]_32772;
SpecLog^[13]_16385;FOR i:INT    IN [ INT[14 ].. INT[27 ]] DO  K _ i; SpecLog^[K]_TwoToThe^[27-K] ENDLOOP;
SpecLog^[28]_1;--:131----138:--SpecAtan^[1]_27855475;
SpecAtan^[2]_14718068;SpecAtan^[3]_7471121;SpecAtan^[4]_3750058;
SpecAtan^[5]_1876857;SpecAtan^[6]_938658;SpecAtan^[7]_469357;
SpecAtan^[8]_234682;SpecAtan^[9]_117342;SpecAtan^[10]_58671;
SpecAtan^[11]_29335;SpecAtan^[12]_14668;SpecAtan^[13]_7334;
SpecAtan^[14]_3667;SpecAtan^[15]_1833;SpecAtan^[16]_917;
SpecAtan^[17]_458;SpecAtan^[18]_229;SpecAtan^[19]_115;
SpecAtan^[20]_57;SpecAtan^[21]_29;SpecAtan^[22]_14;SpecAtan^[23]_7;
SpecAtan^[24]_4;SpecAtan^[25]_2;SpecAtan^[26]_1;--:138----179:
WasMemEnd_0;WasLoMax_0;WasHiMin_MemMax;Panicking_FALSE;--:179
--191:--FOR i:INT    IN [ INT[1 ].. INT[40 ]] DO  K _ i; Internal^[K]_0 ENDLOOP;IntPtr_40;--:191----199:
FOR i:INT    IN [ INT[48 ].. INT[57 ]] DO  K _ i; CharClass^[K]_0 ENDLOOP;CharClass^[46]_1;CharClass^[32]_2;
CharClass^[37]_3;CharClass^[34]_4;CharClass^[44]_5;CharClass^[59]_6;
CharClass^[40]_7;CharClass^[41]_8;FOR i:INT    IN [ INT[65 ].. INT[90 ]] DO  K _ i; CharClass^[K]_9 ENDLOOP;
FOR i:INT    IN [ INT[97 ].. INT[122 ]] DO  K _ i; CharClass^[K]_9 ENDLOOP;CharClass^[95]_9;
CharClass^[60]_10;CharClass^[61]_10;CharClass^[62]_10;
CharClass^[58]_10;CharClass^[124]_10;CharClass^[96]_11;
CharClass^[39]_11;CharClass^[43]_12;CharClass^[45]_12;
CharClass^[47]_13;CharClass^[42]_13;CharClass^[92]_13;
CharClass^[33]_14;CharClass^[63]_14;CharClass^[35]_15;
CharClass^[38]_15;CharClass^[64]_15;CharClass^[36]_15;
CharClass^[94]_16;CharClass^[126]_16;CharClass^[91]_17;
CharClass^[93]_18;CharClass^[123]_19;CharClass^[125]_19;
FOR i:INT    IN [ INT[0 ].. INT[31 ]] DO  K _ i; CharClass^[K]_20 ENDLOOP;CharClass^[127]_20;
CharClass^[9]_2;CharClass^[12]_2;--:199----202:--Hash^[1].Lh_0;
Hash^[1].Rh_0;Eqtb^[1].Lh_41;Eqtb^[1].Rh_0;
FOR i:INT    IN [ INT[2 ].. INT[2241 ]] DO  K _ i;  Hash^[K]_Hash^[1];Eqtb^[K]_Eqtb^[1]; ENDLOOP;--:202
--231:--BigNodeSize^[13]_12;BigNodeSize^[14]_4;--:231----251:
SavePtr_0;--:251----396:--OctantDir^[1]_416;OctantDir^[5]_417;
OctantDir^[6]_418;OctantDir^[2]_419;OctantDir^[4]_420;
OctantDir^[8]_421;OctantDir^[7]_422;OctantDir^[3]_423;--:396----428:
MaxRoundingPtr_0;--:428----449:--OctantCode^[1]_1;OctantCode^[2]_5;
OctantCode^[3]_6;OctantCode^[4]_2;OctantCode^[5]_4;OctantCode^[6]_8;
OctantCode^[7]_7;OctantCode^[8]_3;
FOR i:INT    IN [ INT[1 ].. INT[8 ]] DO  K _ i; OctantNumber^[OctantCode^[K]]_K ENDLOOP;--:449----456:
RevTurns_FALSE;--:456----462:--XCorr^[1]_0;YCorr^[1]_0;XyCorr^[1]_0;
XCorr^[5]_0;YCorr^[5]_0;XyCorr^[5]_1;XCorr^[6]_-1;YCorr^[6]_1;
XyCorr^[6]_0;XCorr^[2]_1;YCorr^[2]_0;XyCorr^[2]_1;XCorr^[4]_0;
YCorr^[4]_1;XyCorr^[4]_1;XCorr^[8]_0;YCorr^[8]_1;XyCorr^[8]_0;
XCorr^[7]_1;YCorr^[7]_0;XyCorr^[7]_1;XCorr^[3]_-1;YCorr^[3]_1;
XyCorr^[3]_0;FOR i:INT    IN [ INT[1 ].. INT[8 ]] DO  K _ i; ZCorr^[K]_XyCorr^[K]-XCorr^[K] ENDLOOP;--:462
--570:--ScreenStarted_FALSE;ScreenOk_FALSE;--:570----573:
FOR i:INT    IN [ INT[0 ].. INT[15 ]] DO  K _ i;  WindowOpen^[K]_FALSE;WindowTime^[K]_0; ENDLOOP;
--:573----592:--FixNeeded_FALSE;WatchCoefs_TRUE;--:592----738:--CondPtr_0;
IfLimit_0;CurIf_0;IfLine_0;--:738----752:--LoopPtr_0;--:752----796:
CurExp_0;--:796----821:--VarFlag_0;--:821----1077:--StartSym_0;--:1077
--1084:--LongHelpSeen_FALSE;--:1084----1096:
FOR i:INT    IN [ INT[0 ].. INT[255 ]] DO  K _ i;  TfmWidth^[K]_0;TfmHeight^[K]_0;
TfmDepth^[K]_0;TfmItalCorr^[K]_0;CharExists^[K]_FALSE;
CharTag^[K]_0;CharRemainder^[K]_0; ENDLOOP;
FOR i:INT    IN [ INT[1 ].. INT[HeaderSize ]] DO  K _ i; HeaderByte^[K]_-1 ENDLOOP;Bc_255;Ec_0;Nl_0;Nk_0;
Ne_0;Np_0;--:1096----1149:--GfPrevPtr_0;TotalChars_0;--:1149----1152:
HalfBuf_ PascalDIVPower2[GfBufSize ,1];GfLimit_GfBufSize;GfPtr_0;
GfOffset_0;--:1152----1183:--BaseIdent_0;--:1183-- END;--57:

END.