-- file: MFInitImpl1.mesa
-- Pascal-to-Mesa translator output, translated at October 31, 1985 4:28:03 pm PST
-- Pavel, October 31, 1985 5:07:17 pm PST


DIRECTORY
  PascalBasic,
  PascalWizardFiles,
  MFTypes, MFRest, 
  MFInit,
  MFProcArray,
  MFExternals,
  MFInteraction,
  MFMemory,
  MFSymbols,
  MFInput,
  MFOps;

MFInitImpl1: PROGRAM IMPORTS PascalWizardFiles,  MFRest, MFProcArray, MFExternals, MFInteraction, MFMemory, MFSymbols, MFInput, MFOps EXPORTS MFInit = PUBLIC
BEGIN OPEN  MFRest, PascalBasic, PascalWizardFiles, MFTypes, MFInit, MFProcArray, MFExternals, MFInteraction, MFMemory, MFSymbols, MFInput, MFOps;
--:1150----13:--
Bad: PascalInteger;

--:1161----1182:--
BaseIdent: StrNumber;
--:1182----1187:--
BaseFile: WordFile;
 InitTerminal: PROCEDURE RETURNS[InitTerminalResult: PascalBoolean]
 = 
BEGIN  CmdBlank: PascalInteger =0;CmdOk: PascalInteger =1;CmdOverflow: PascalInteger =-1;
 CmdStatus:PascalInteger; ResetTermIn[@TermIn];
CmdStatus_StuffOnCmdLine[];
IF CmdStatus=CmdOverflow  THEN Overflow[128,BufSize];
{IF CmdStatus=CmdOk  THEN BEGIN InitTerminalResult_TRUE; GOTO Label10 ; END;
WHILE TRUE DO BEGIN PascalWriteLongString[file: @TermOut, item: "**"];PascalTextBREAK[file: @TermOut];
IF  NOT InputLn[@TermIn,TRUE] THEN BEGIN PascalWriteLn[file: @TermOut];
PascalWriteLongString[file: @TermOut, item: "! End of file on the terminal... why?"];
InitTerminalResult_FALSE; GOTO Label10; END;CurInput.LocField_First;
WHILE( INT[CurInput.LocField]<Last)AND (Buffer^[CurInput.LocField]=32)DO
CurInput.LocField_ INT[CurInput.LocField]+1 ENDLOOP ;
IF  INT[CurInput.LocField]<Last  THEN BEGIN InitTerminalResult_TRUE; GOTO Label10; END;
{PascalWriteLongString[file: @TermOut, item: "Please type the name of your input file."]; PascalWriteLn[file: @TermOut]}; END ENDLOOP ;EXITS Label10 => NULL}; END;
 GetStringsStarted: PROCEDURE RETURNS[GetStringsStartedResult: PascalBoolean]
 = 
BEGIN  K, L:PascalInteger[0..127];M, N:PascalChar;G:StrNumber;A:PascalInteger;C:PascalBoolean;
 PoolPtr_0;StrPtr_0;MaxPoolPtr_0;MaxStrPtr_0;
StrStart^[0]_0;--48:--FOR i:INT    IN [ INT[0 ].. INT[127 ]] DO  K _ i;  IF(--49:
( INT[K]<32)OR ( INT[K]>126)--:49--) THEN BEGIN BEGIN StrPool^[PoolPtr]_94;
PoolPtr_PoolPtr+1; END;BEGIN StrPool^[PoolPtr]_94;
PoolPtr_PoolPtr+1; END;IF  INT[K]<64  THEN BEGIN StrPool^[PoolPtr]_K+64;
PoolPtr_PoolPtr+1; END  ELSE BEGIN StrPool^[PoolPtr]_K-64;
PoolPtr_PoolPtr+1; END; END  ELSE BEGIN StrPool^[PoolPtr]_K;
PoolPtr_PoolPtr+1; END;G_MakeString[];StrRef^[G]_127;--:48-- ENDLOOP;--51:
SetPoolName[];{IF AOpenIn[@PoolFile] THEN BEGIN C_FALSE;DO--52:
BEGIN IF PascalTextEOF[file: @PoolFile] THEN BEGIN
 {PascalWriteLongString[file: @TermOut, item: "! MF.POOL has no check sum."]; PascalWriteLn[file: @TermOut]};AClose[@PoolFile];
GetStringsStartedResult_FALSE; GOTO Label10; END;{M_PascalReadChar[file: @PoolFile]; N_PascalReadChar[file: @PoolFile]};
IF M='* THEN--53:--BEGIN A_0;K_1;
{WHILE TRUE DO BEGIN IF( INT[Xord^[N]]<48)OR ( INT[Xord^[N]]>57) THEN BEGIN
 {PascalWriteLongString[file: @TermOut, item: "! MF.POOL check sum doesn't have nine digits."]; PascalWriteLn[file: @TermOut]};
AClose[@PoolFile];GetStringsStartedResult_FALSE; GOTO Label10; END;
A_10*A+Xord^[N]-48;IF K=9  THEN  GOTO Label30;K_K+1;N_PascalReadChar[file: @PoolFile]; END ENDLOOP ;
EXITS Label30 => NULL};IF A#514717228  THEN BEGIN
 {PascalWriteLongString[file: @TermOut, item: "! MF.POOL doesn't match; TANGLE me again."]; PascalWriteLn[file: @TermOut]};
AClose[@PoolFile];GetStringsStartedResult_FALSE; GOTO Label10; END;C_TRUE;
 END--:53
 ELSE BEGIN IF( INT[Xord^[M]]<48)OR ( INT[Xord^[M]]>57)OR ( INT[Xord^[N]]<48)OR ( INT[Xord^[N]]>57) THEN
BEGIN
 {PascalWriteLongString[file: @TermOut, item: "! MF.POOL line doesn't begin with two digits."]; PascalWriteLn[file: @TermOut]};
AClose[@PoolFile];GetStringsStartedResult_FALSE; GOTO Label10; END;
L_Xord^[M]*10+Xord^[N]-48*11;
IF  INT[PoolPtr+L+StringVacancies]>PoolSize  THEN BEGIN
 {PascalWriteLongString[file: @TermOut, item: "! You have to increase POOLSIZE."]; PascalWriteLn[file: @TermOut]};AClose[@PoolFile];
GetStringsStartedResult_FALSE; GOTO Label10; END;
FOR i:INT    IN [ INT[1 ].. INT[L ]] DO  K _ i;  IF PascalTextEOLN[file: @PoolFile] THEN M_'  ELSE 
M_PascalReadChar[file: @PoolFile];BEGIN StrPool^[PoolPtr]_Xord^[M];PoolPtr_PoolPtr+1; END; ENDLOOP;
PascalReadLn[file: @PoolFile];G_MakeString[];StrRef^[G]_127; END; END--:52--; IF C THEN EXIT; ENDLOOP;
AClose[@PoolFile];GetStringsStartedResult_TRUE; END  ELSE BEGIN
 {PascalWriteLongString[file: @TermOut, item: "! I can't read MF.POOL."]; PascalWriteLn[file: @TermOut]};AClose[@PoolFile];
GetStringsStartedResult_FALSE; GOTO Label10; END--:51--;EXITS Label10 => NULL}; END;--:47----65:
--:1132----1186:----778:-- OpenBaseFile: PROCEDURE RETURNS[OpenBaseFileResult: PascalBoolean] = 
BEGIN 
 J:PascalInteger[0..BufSize]; J_CurInput.LocField;
{{IF Buffer^[CurInput.LocField]=38  THEN BEGIN 
 CurInput.LocField_
 INT[CurInput.LocField]+1;J_CurInput.LocField;Buffer^[Last]_32;
WHILE Buffer^[J]#32 DO J_J+1 ENDLOOP ;
PackBufferedName[CurInput.LocField,J-1];
IF WOpenIn[@BaseFile] THEN  GOTO Label40;
PackDefaultArea[CurInput.LocField,J-1];
IF WOpenIn[@BaseFile] THEN  GOTO Label40;{PascalWriteLongString[file: @TermOut, item: "Sorry, I can't find that base;"]
; PascalWriteLongString[file: @TermOut, item: " will try your default."]; PascalWriteLn[file: @TermOut]};PascalTextBREAK[file: @TermOut]; END;PackAllDefault[];
IF  NOT WOpenIn[@BaseFile] THEN BEGIN
 {PascalWriteLongString[file: @TermOut, item: "I can't find your default base file!"]; PascalWriteLn[file: @TermOut]};
OpenBaseFileResult_FALSE; GOTO Label10; END;EXITS Label40 => NULL};CurInput.LocField_J;
OpenBaseFileResult_TRUE;EXITS Label10 => NULL}; END;--:778-- LoadBaseFile: PROCEDURE RETURNS[LoadBaseFileResult: PascalBoolean]
 = 
BEGIN  K:PascalInteger;P, Q:Halfword;X:PascalInteger;W:FourQuarters;
--1190:--
 X_BaseFile.element.Int;{{IF X#514717228  THEN  GOTO Label6666;
BEGIN PascalGET[file: @BaseFile.baseFile, length: SIZE[MemoryWord, 2], element: @BaseFile.element];X_BaseFile.element.Int; END;IF X#0  THEN  GOTO Label6666;
BEGIN PascalGET[file: @BaseFile.baseFile, length: SIZE[MemoryWord, 2], element: @BaseFile.element];X_BaseFile.element.Int; END;IF X#50000  THEN  GOTO Label6666;
BEGIN PascalGET[file: @BaseFile.baseFile, length: SIZE[MemoryWord, 2], element: @BaseFile.element];X_BaseFile.element.Int; END;IF X#2100  THEN  GOTO Label6666;
BEGIN PascalGET[file: @BaseFile.baseFile, length: SIZE[MemoryWord, 2], element: @BaseFile.element];X_BaseFile.element.Int; END;IF X#1777  THEN  GOTO Label6666;
BEGIN PascalGET[file: @BaseFile.baseFile, length: SIZE[MemoryWord, 2], element: @BaseFile.element];X_BaseFile.element.Int; END;IF X#6  THEN  GOTO Label6666--:1190
;--1192:--BEGIN BEGIN PascalGET[file: @BaseFile.baseFile, length: SIZE[MemoryWord, 2], element: @BaseFile.element];X_BaseFile.element.Int; END;
IF X<0  THEN  GOTO Label6666;IF X>PoolSize  THEN BEGIN
 {PascalWriteLongString[file: @TermOut, item: "---! Must increase the "]; PascalWriteLongString[file: @TermOut, item: "string pool size"]; PascalWriteLn[file: @TermOut]};
 GOTO Label6666; END  ELSE PoolPtr_X; END;BEGIN BEGIN PascalGET[file: @BaseFile.baseFile, length: SIZE[MemoryWord, 2], element: @BaseFile.element];
X_BaseFile.element.Int; END;IF X<0  THEN  GOTO Label6666;IF X>MaxStrings  THEN BEGIN
 {PascalWriteLongString[file: @TermOut, item: "---! Must increase the "]; PascalWriteLongString[file: @TermOut, item: "max strings"]; PascalWriteLn[file: @TermOut]}; GOTO Label6666;
 END  ELSE StrPtr_X; END;
FOR i:INT    IN [ INT[0 ].. INT[StrPtr ]] DO  K _ i;  BEGIN BEGIN PascalGET[file: @BaseFile.baseFile, length: SIZE[MemoryWord, 2], element: @BaseFile.element];
X_BaseFile.element.Int; END;
IF(X<0)OR (X>PoolPtr) THEN  GOTO Label6666  ELSE StrStart^[K]_X; END;
StrRef^[K]_127; ENDLOOP;K_0;
WHILE K+4<PoolPtr DO BEGIN BEGIN PascalGET[file: @BaseFile.baseFile, length: SIZE[MemoryWord, 2], element: @BaseFile.element];W_BaseFile.element.Qqqq; END;
StrPool^[K]_W.B0;StrPool^[K+1]_W.B1;StrPool^[K+2]_W.B2;
StrPool^[K+3]_W.B3;K_K+4; END ENDLOOP ;K_PoolPtr-4;BEGIN PascalGET[file: @BaseFile.baseFile, length: SIZE[MemoryWord, 2], element: @BaseFile.element];
W_BaseFile.element.Qqqq; END;StrPool^[K]_W.B0;StrPool^[K+1]_W.B1;
StrPool^[K+2]_W.B2;StrPool^[K+3]_W.B3--:1192--;--1194:
BEGIN BEGIN PascalGET[file: @BaseFile.baseFile, length: SIZE[MemoryWord, 2], element: @BaseFile.element];X_BaseFile.element.Int; END;
IF(X<1022)OR (X>49998) THEN  GOTO Label6666  ELSE LoMemMax_X; END;
BEGIN BEGIN PascalGET[file: @BaseFile.baseFile, length: SIZE[MemoryWord, 2], element: @BaseFile.element];X_BaseFile.element.Int; END;
IF(X<23)OR (X>LoMemMax) THEN  GOTO Label6666  ELSE Rover_X; END;P_0;Q_Rover;
X_0;DO FOR i:INT    IN [ INT[P ].. INT[ INT[Q]+1 ]] DO  K _ i;  PascalGET[file: @BaseFile.baseFile, length: SIZE[MemoryWord, 2], element: @BaseFile.element];Mem[K]^_BaseFile.element;
 ENDLOOP;P_ INT[Q]+Mem[Q]^.Hh.Lh;
IF( INT[P]>LoMemMax)OR (( INT[Q]>=Mem[ INT[Q]+1]^.Hh.Rh)AND (Mem[ INT[Q]+1]^.Hh.Rh#Rover)) THEN
 GOTO Label6666;Q_Mem[ INT[Q]+1]^.Hh.Rh; IF Q=Rover THEN EXIT; ENDLOOP;
FOR i:INT    IN [ INT[P ].. INT[LoMemMax ]] DO  K _ i;  PascalGET[file: @BaseFile.baseFile, length: SIZE[MemoryWord, 2], element: @BaseFile.element];Mem[K]^_BaseFile.element; ENDLOOP;
BEGIN BEGIN PascalGET[file: @BaseFile.baseFile, length: SIZE[MemoryWord, 2], element: @BaseFile.element];X_BaseFile.element.Int; END;
IF(X< INT[LoMemMax]+1)OR (X>49999) THEN  GOTO Label6666  ELSE HiMemMin_X; END;
BEGIN BEGIN PascalGET[file: @BaseFile.baseFile, length: SIZE[MemoryWord, 2], element: @BaseFile.element];X_BaseFile.element.Int; END;
IF(X<0)OR (X>50000) THEN  GOTO Label6666  ELSE Avail_X; END;MemEnd_50000;
FOR i:INT    IN [ INT[HiMemMin ].. INT[MemEnd ]] DO  K _ i;  PascalGET[file: @BaseFile.baseFile, length: SIZE[MemoryWord, 2], element: @BaseFile.element];Mem[K]^_BaseFile.element;
 ENDLOOP;BEGIN PascalGET[file: @BaseFile.baseFile, length: SIZE[MemoryWord, 2], element: @BaseFile.element];VarUsed_BaseFile.element.Int; END;
BEGIN PascalGET[file: @BaseFile.baseFile, length: SIZE[MemoryWord, 2], element: @BaseFile.element];DynUsed_BaseFile.element.Int; END--:1194--;--1196:
BEGIN BEGIN PascalGET[file: @BaseFile.baseFile, length: SIZE[MemoryWord, 2], element: @BaseFile.element];X_BaseFile.element.Int; END;
IF(X<1)OR (X>2229) THEN  GOTO Label6666  ELSE HashUsed_X; END;P_0;
DO BEGIN BEGIN PascalGET[file: @BaseFile.baseFile, length: SIZE[MemoryWord, 2], element: @BaseFile.element];X_BaseFile.element.Int; END;
IF(X< INT[P]+1)OR (X>HashUsed) THEN  GOTO Label6666  ELSE P_X; END;
BEGIN PascalGET[file: @BaseFile.baseFile, length: SIZE[MemoryWord, 2], element: @BaseFile.element];Hash^[P]_BaseFile.element.Hh; END;BEGIN PascalGET[file: @BaseFile.baseFile, length: SIZE[MemoryWord, 2], element: @BaseFile.element];
Eqtb^[P]_BaseFile.element.Hh; END; IF P=HashUsed THEN EXIT; ENDLOOP;
FOR i:INT    IN [ INT[ INT[HashUsed]+1 ].. INT[2241 ]] DO  P _ i;  BEGIN PascalGET[file: @BaseFile.baseFile, length: SIZE[MemoryWord, 2], element: @BaseFile.element];
Hash^[P]_BaseFile.element.Hh; END;BEGIN PascalGET[file: @BaseFile.baseFile, length: SIZE[MemoryWord, 2], element: @BaseFile.element];Eqtb^[P]_BaseFile.element.Hh;
 END; ENDLOOP;BEGIN PascalGET[file: @BaseFile.baseFile, length: SIZE[MemoryWord, 2], element: @BaseFile.element];StCount_BaseFile.element.Int; END--:1196--;--1198:
BEGIN BEGIN PascalGET[file: @BaseFile.baseFile, length: SIZE[MemoryWord, 2], element: @BaseFile.element];X_BaseFile.element.Int; END;
IF(X<40)OR (X>MaxInternal) THEN  GOTO Label6666  ELSE IntPtr_X; END;
FOR i:INT    IN [ INT[1 ].. INT[IntPtr ]] DO  K _ i;  BEGIN PascalGET[file: @BaseFile.baseFile, length: SIZE[MemoryWord, 2], element: @BaseFile.element];
Internal^[K]_BaseFile.element.Int; END;BEGIN BEGIN PascalGET[file: @BaseFile.baseFile, length: SIZE[MemoryWord, 2], element: @BaseFile.element];
X_BaseFile.element.Int; END;
IF(X<0)OR (X>StrPtr) THEN  GOTO Label6666  ELSE IntName^[K]_X; END; ENDLOOP;
BEGIN BEGIN PascalGET[file: @BaseFile.baseFile, length: SIZE[MemoryWord, 2], element: @BaseFile.element];X_BaseFile.element.Int; END;
IF(X<0)OR (X>2229) THEN  GOTO Label6666  ELSE StartSym_X; END;
BEGIN BEGIN PascalGET[file: @BaseFile.baseFile, length: SIZE[MemoryWord, 2], element: @BaseFile.element];X_BaseFile.element.Int; END;
IF(X<0)OR (X>3) THEN  GOTO Label6666  ELSE Interaction_X; END;
BEGIN BEGIN PascalGET[file: @BaseFile.baseFile, length: SIZE[MemoryWord, 2], element: @BaseFile.element];X_BaseFile.element.Int; END;
IF(X<0)OR (X>StrPtr) THEN  GOTO Label6666  ELSE BaseIdent_X; END;
BEGIN BEGIN PascalGET[file: @BaseFile.baseFile, length: SIZE[MemoryWord, 2], element: @BaseFile.element];X_BaseFile.element.Int; END;
IF(X<1)OR (X>2241) THEN  GOTO Label6666  ELSE BgLoc_X; END;
BEGIN BEGIN PascalGET[file: @BaseFile.baseFile, length: SIZE[MemoryWord, 2], element: @BaseFile.element];X_BaseFile.element.Int; END;
IF(X<1)OR (X>2241) THEN  GOTO Label6666  ELSE EgLoc_X; END;BEGIN PascalGET[file: @BaseFile.baseFile, length: SIZE[MemoryWord, 2], element: @BaseFile.element];
X_BaseFile.element.Int; END;IF (X#69069)OR PascalEOF[file: @BaseFile.baseFile] THEN  GOTO Label6666--:1198
;LoadBaseFileResult_TRUE; GOTO Label10;EXITS Label6666 => NULL};{PascalWriteLongString[file: @TermOut, item: "(Fatal base file error; I'm stymied)"]; PascalWriteLn[file: @TermOut]};
LoadBaseFileResult_FALSE;EXITS Label10 => NULL}; END;--:1186----1201:----822:----1209:-- InitPrim: PROCEDURE = 
BEGIN--192:-- Primitive[282,40,1];
Primitive[283,40,2];Primitive[284,40,3];Primitive[285,40,4];
Primitive[286,40,5];Primitive[287,40,6];Primitive[288,40,7];
Primitive[289,40,8];Primitive[290,40,9];Primitive[291,40,10];
Primitive[292,40,11];Primitive[293,40,12];Primitive[294,40,13];
Primitive[295,40,14];Primitive[296,40,15];Primitive[297,40,16];
Primitive[298,40,17];Primitive[299,40,18];Primitive[300,40,19];
Primitive[301,40,20];Primitive[302,40,21];Primitive[303,40,22];
Primitive[304,40,23];Primitive[305,40,24];Primitive[306,40,25];
Primitive[307,40,26];Primitive[308,40,27];Primitive[309,40,28];
Primitive[310,40,29];Primitive[311,40,30];Primitive[312,40,31];
Primitive[313,40,32];Primitive[314,40,33];Primitive[315,40,34];
Primitive[316,40,35];Primitive[317,40,36];Primitive[318,40,37];
Primitive[319,40,38];Primitive[320,40,39];Primitive[321,40,40];--:192
--211:--Primitive[281,47,0];Primitive[91,63,0];Eqtb^[2232]_Eqtb^[CurSym];
Primitive[93,64,0];Primitive[125,65,0];Primitive[123,46,0];
Primitive[58,78,0];Eqtb^[2234]_Eqtb^[CurSym];Primitive[330,77,0];
Primitive[44,79,0];Primitive[59,80,0];Eqtb^[2235]_Eqtb^[CurSym];
Primitive[92,7,0];Primitive[331,18,0];Primitive[332,72,0];
Primitive[333,59,0];Primitive[334,32,0];BgLoc_CurSym;
Primitive[335,57,0];Primitive[336,19,0];Primitive[337,60,0];
Primitive[338,27,0];Primitive[339,11,0];Primitive[324,81,0];
Eqtb^[2239]_Eqtb^[CurSym];EgLoc_CurSym;Primitive[340,26,0];
Primitive[341,6,0];Primitive[342,9,0];Primitive[343,70,0];
Primitive[344,73,0];Primitive[345,13,0];Primitive[346,14,0];
Primitive[347,15,0];Primitive[348,69,0];Primitive[349,28,0];
Primitive[350,24,0];Primitive[351,12,0];Primitive[352,8,0];
Primitive[353,17,0];Primitive[354,74,0];Primitive[355,35,0];
Primitive[356,58,0];Primitive[357,71,0];Primitive[358,75,0];--:211----682:
Primitive[521,16,1];Primitive[522,16,2];Primitive[523,16,53];
Primitive[524,16,44];Primitive[525,16,49];Primitive[325,16,0];
Eqtb^[2237]_Eqtb^[CurSym];Primitive[526,4,2242];Primitive[527,4,2392];
Primitive[528,4,1];Primitive[326,4,0];Eqtb^[2236]_Eqtb^[CurSym];--:682
--687:--Primitive[529,61,0];Primitive[530,61,1];Primitive[64,61,2];
Primitive[531,61,3];--:687----694:--Primitive[542,56,2242];
Primitive[543,56,2392];Primitive[544,56,2542];Primitive[545,56,1];
Primitive[546,56,2];Primitive[547,56,3];--:694----708:--Primitive[557,3,0];
Primitive[483,3,1];--:708----739:--Primitive[584,1,1];Primitive[323,2,2];
Eqtb^[2238]_Eqtb^[CurSym];Primitive[585,2,3];Primitive[586,2,4];--:739
--892:--Primitive[220,33,30];Primitive[221,33,31];Primitive[222,33,32];
Primitive[223,33,33];Primitive[224,33,34];Primitive[225,33,35];
Primitive[226,33,36];Primitive[227,33,37];Primitive[228,34,38];
Primitive[229,34,39];Primitive[230,34,40];Primitive[231,34,41];
Primitive[232,34,42];Primitive[233,34,43];Primitive[234,34,44];
Primitive[235,34,45];Primitive[236,34,46];Primitive[237,34,47];
Primitive[238,34,48];Primitive[239,34,49];Primitive[240,34,50];
Primitive[241,34,51];Primitive[242,34,52];Primitive[243,34,53];
Primitive[244,34,54];Primitive[245,34,55];Primitive[246,34,56];
Primitive[247,34,57];Primitive[248,34,58];Primitive[249,34,59];
Primitive[250,34,60];Primitive[251,34,61];Primitive[252,34,62];
Primitive[253,34,63];Primitive[254,34,64];Primitive[255,34,65];
Primitive[256,34,66];Primitive[257,34,67];Primitive[258,36,68];
Primitive[43,43,69];Primitive[45,43,70];Primitive[42,55,71];
Primitive[47,54,72];Eqtb^[2233]_Eqtb^[CurSym];Primitive[259,45,73];
Primitive[183,45,74];Primitive[261,52,76];Primitive[260,45,75];
Primitive[60,50,77];Primitive[262,50,78];Primitive[62,50,79];
Primitive[263,50,80];Primitive[61,51,81];Primitive[264,50,82];
Primitive[265,37,94];Primitive[266,37,95];Primitive[267,37,96];
Primitive[268,37,97];Primitive[269,37,98];Primitive[270,37,99];
Primitive[271,37,100];Primitive[38,48,83];Primitive[272,55,84];
Primitive[273,55,85];Primitive[274,55,86];Primitive[275,55,87];
Primitive[276,55,88];Primitive[277,55,89];Primitive[278,55,90];
Primitive[279,55,91];Primitive[280,45,92];--:892----1012:
Primitive[213,30,15];Primitive[199,30,4];Primitive[197,30,2];
Primitive[204,30,9];Primitive[201,30,6];Primitive[206,30,11];
Primitive[208,30,13];Primitive[209,30,14];--:1012----1017:
Primitive[777,82,0];Primitive[778,82,1];--:1017----1023:
Primitive[145,23,0];Primitive[146,23,1];Primitive[147,23,2];
Primitive[784,23,3];--:1023----1026:--Primitive[785,21,0];
Primitive[786,21,1];--:1026----1036:--Primitive[800,22,0];
Primitive[801,22,1];Primitive[802,22,2];Primitive[803,22,3];
Primitive[804,22,4];--:1036----1051:--Primitive[821,68,1];
Primitive[822,68,0];Primitive[823,68,2];Primitive[824,66,6];
Primitive[825,66,16];Primitive[826,67,0];Primitive[827,67,1];--:1051
--1078:--Primitive[857,25,0];Primitive[858,25,1];Primitive[859,25,2];
--:1078----1100:--Primitive[869,20,0];Primitive[870,20,1];
Primitive[871,20,2];Primitive[872,20,3];Primitive[873,20,4];--:1100
--1108:--Primitive[890,76,0];Primitive[891,76,128];--:1108----1175:
Primitive[913,29,4];Primitive[914,29,16];--:1175-- END; InitTab: PROCEDURE
 = 
BEGIN K:PascalInteger;--176:--Rover_23;Mem[Rover]^.Hh.Rh_65535;
Mem[Rover]^.Hh.Lh_1000;Mem[ INT[Rover]+1]^.Hh.Lh_Rover;
Mem[ INT[Rover]+1]^.Hh.Rh_Rover;LoMemMax_ INT[Rover]+1000;
Mem[LoMemMax]^.Hh.Rh_0;Mem[LoMemMax]^.Hh.Lh_0;
FOR i:INT    IN [ INT[49999 ].. INT[50000 ]] DO  K _ i; Mem[K]^_Mem[LoMemMax]^ ENDLOOP;Avail_0;
MemEnd_50000;HiMemMin_49999;VarUsed_23;DynUsed_-0;--:176----193:
IntName^[1]_282;IntName^[2]_283;IntName^[3]_284;IntName^[4]_285;
IntName^[5]_286;IntName^[6]_287;IntName^[7]_288;IntName^[8]_289;
IntName^[9]_290;IntName^[10]_291;IntName^[11]_292;IntName^[12]_293;
IntName^[13]_294;IntName^[14]_295;IntName^[15]_296;IntName^[16]_297;
IntName^[17]_298;IntName^[18]_299;IntName^[19]_300;IntName^[20]_301;
IntName^[21]_302;IntName^[22]_303;IntName^[23]_304;IntName^[24]_305;
IntName^[25]_306;IntName^[26]_307;IntName^[27]_308;IntName^[28]_309;
IntName^[29]_310;IntName^[30]_311;IntName^[31]_312;IntName^[32]_313;
IntName^[33]_314;IntName^[34]_315;IntName^[35]_316;IntName^[36]_317;
IntName^[37]_318;IntName^[38]_319;IntName^[39]_320;IntName^[40]_321;
--:193----203:--HashUsed_2229;StCount_0;Hash^[2240].Rh_322;
Hash^[2238].Rh_323;Hash^[2239].Rh_324;Hash^[2237].Rh_325;
Hash^[2236].Rh_326;Hash^[2235].Rh_59;Hash^[2234].Rh_58;
Hash^[2233].Rh_47;Hash^[2232].Rh_91;Hash^[2231].Rh_41;
Hash^[2229].Rh_327;Eqtb^[2231].Lh_62;--:203----229:--Mem[19]^.Hh.Lh_2242;
Mem[19]^.Hh.Rh_0;--:229----324:--Mem[50000]^.Hh.Lh_65535;--:324----475:
Mem[3]^.Hh.Lh_0;Mem[3]^.Hh.Rh_0;Mem[4]^.Hh.Lh_1;Mem[4]^.Hh.Rh_0;
FOR i:INT    IN [ INT[5 ].. INT[11 ]] DO  K _ i; Mem[K]^_Mem[4]^ ENDLOOP;Mem[12]^.Int_0;Mem[0]^.Hh.Rh_0;
Mem[0]^.Hh.Lh_0;Mem[1]^.Int_0;Mem[2]^.Int_0;--:475----586:
Mem[13]^.Hh.Rh_13;Mem[14]^.Hh.Lh_13;Mem[13]^.Hh.Lh_0;Mem[14]^.Hh.Rh_0;
--:586----701:--Mem[21]^.Hh.B1_0;Mem[21]^.Hh.Rh_2240;Eqtb^[2240].Rh_21;
Eqtb^[2240].Lh_41;--:701----758:--Eqtb^[2230].Lh_88;Hash^[2230].Rh_601;
--:758----910:--Mem[17]^.Hh.B1_11;--:910----1115:--Mem[20]^.Int_1073741824;
--:1115----1126:--Mem[16]^.Int_0;Mem[15]^.Hh.Lh_0;--:1126----1184:
BaseIdent_922;--:1184-- END;--:1209----1211:--
END.