-- file: TexInit2Impl.mesa
-- Pascal-to-Mesa translator output, translated at September 27, 1985 10:21:36 am PDT


DIRECTORY
  PascalBasic,
  PascalWizardFiles,
  TexTypes,
  TexInit,
  TexSysdep,
  TexSysdepInline,
  TexInteraction,
  TexMemory,
  TexSymbols,
  TexOps,
  TexParagraph,
  TexRest;

TexInit2Impl: PROGRAM IMPORTS PascalWizardFiles, TexTypes, TexSysdepInline, TexInteraction, TexMemory, TexSymbols, TexOps, TexParagraph, TexRest EXPORTS TexInit = PUBLIC
BEGIN OPEN PascalBasic, PascalWizardFiles, TexTypes, TexInit, TexSysdep, TexSysdepInline, TexInteraction, TexMemory, TexSymbols, TexOps, TexParagraph, TexRest;
 LoadFmtFile: PROCEDURE RETURNS[LoadFmtFileResult: PascalBoolean] = 
BEGIN  J, K:PascalInteger;
P, Q:Halfword;X:PascalInteger;W:FourQuarters;--1308:--
 X_FmtFile.element.Int;
{{IF X#94919885  THEN  GOTO Label6666;BEGIN PascalGET[file: @FmtFile.baseFile, length: SIZE[MemoryWord, 2], element: @FmtFile.element];X_FmtFile.element.Int; END;
IF X#0  THEN  GOTO Label6666;BEGIN PascalGET[file: @FmtFile.baseFile, length: SIZE[MemoryWord, 2], element: @FmtFile.element];X_FmtFile.element.Int; END;
IF X#65000  THEN  GOTO Label6666;BEGIN PascalGET[file: @FmtFile.baseFile, length: SIZE[MemoryWord, 2], element: @FmtFile.element];X_FmtFile.element.Int; END;
IF X#5476  THEN  GOTO Label6666;BEGIN PascalGET[file: @FmtFile.baseFile, length: SIZE[MemoryWord, 2], element: @FmtFile.element];X_FmtFile.element.Int; END;
IF X#2129  THEN  GOTO Label6666;BEGIN PascalGET[file: @FmtFile.baseFile, length: SIZE[MemoryWord, 2], element: @FmtFile.element];X_FmtFile.element.Int; END;
IF X#307  THEN  GOTO Label6666--:1308--;--1310:--BEGIN BEGIN PascalGET[file: @FmtFile.baseFile, length: SIZE[MemoryWord, 2], element: @FmtFile.element];
X_FmtFile.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: @FmtFile.baseFile, length: SIZE[MemoryWord, 2], element: @FmtFile.element];
X_FmtFile.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 PascalGET[file: @FmtFile.baseFile, length: SIZE[MemoryWord, 2], element: @FmtFile.element];X_FmtFile.element.Int; END;
IF(X<0)OR (X>PoolPtr) THEN  GOTO Label6666  ELSE StrStart^[K]_X; ENDLOOP;K_0;
WHILE K+4<PoolPtr DO BEGIN BEGIN PascalGET[file: @FmtFile.baseFile, length: SIZE[MemoryWord, 2], element: @FmtFile.element];W_FmtFile.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_ INT[PoolPtr]-4;BEGIN PascalGET[file: @FmtFile.baseFile, length: SIZE[MemoryWord, 2], element: @FmtFile.element];
W_FmtFile.element.Qqqq; END;StrPool^[K]_W.B0;StrPool^[K+1]_W.B1;
StrPool^[K+2]_W.B2;StrPool^[K+3]_W.B3--:1310--;--1312:
BEGIN BEGIN PascalGET[file: @FmtFile.baseFile, length: SIZE[MemoryWord, 2], element: @FmtFile.element];X_FmtFile.element.Int; END;
IF(X<1019)OR (X>64986) THEN  GOTO Label6666  ELSE LoMemMax_X; END;
BEGIN BEGIN PascalGET[file: @FmtFile.baseFile, length: SIZE[MemoryWord, 2], element: @FmtFile.element];X_FmtFile.element.Int; END;
IF(X<20)OR (X>LoMemMax) THEN  GOTO Label6666  ELSE Rover_X; END;P_0;Q_Rover;
X_0;DO FOR i:INT    IN [ INT[P ].. INT[Q+1 ]] DO  K _ i;  PascalGET[file: @FmtFile.baseFile, length: SIZE[MemoryWord, 2], element: @FmtFile.element];Mem[K]^_FmtFile.element;
 ENDLOOP;P_ INT[Q]+Mem[Q]^.Hh.Lh;
IF( INT[P]>LoMemMax)OR (( INT[Q]>=Mem[Q+1]^.Hh.Rh)AND (Mem[Q+1]^.Hh.Rh#Rover)) THEN
 GOTO Label6666;Q_Mem[Q+1]^.Hh.Rh; IF Q=Rover THEN EXIT; ENDLOOP;
FOR i:INT    IN [ INT[P ].. INT[LoMemMax ]] DO  K _ i;  PascalGET[file: @FmtFile.baseFile, length: SIZE[MemoryWord, 2], element: @FmtFile.element];Mem[K]^_FmtFile.element; ENDLOOP;
IF  INT[MemMin]<-2  THEN BEGIN P_Mem[Rover+1]^.Hh.Lh;Q_MemMin+1;
Mem[MemMin]^.Hh.Rh_0;Mem[MemMin]^.Hh.Lh_0;Mem[P+1]^.Hh.Rh_Q;
Mem[Rover+1]^.Hh.Lh_Q;Mem[Q+1]^.Hh.Rh_Rover;Mem[Q+1]^.Hh.Lh_P;
Mem[Q]^.Hh.Rh_65515;Mem[Q]^.Hh.Lh_ INT[-0]-Q; END;BEGIN BEGIN PascalGET[file: @FmtFile.baseFile, length: SIZE[MemoryWord, 2], element: @FmtFile.element];
X_FmtFile.element.Int; END;
IF(X<LoMemMax+1)OR (X>64987) THEN  GOTO Label6666  ELSE HiMemMin_X; END;
BEGIN BEGIN PascalGET[file: @FmtFile.baseFile, length: SIZE[MemoryWord, 2], element: @FmtFile.element];X_FmtFile.element.Int; END;
IF(X<0)OR (X>65000) THEN  GOTO Label6666  ELSE Avail_X; END;MemEnd_65000;
FOR i:INT    IN [ INT[HiMemMin ].. INT[MemEnd ]] DO  K _ i;  PascalGET[file: @FmtFile.baseFile, length: SIZE[MemoryWord, 2], element: @FmtFile.element];Mem[K]^_FmtFile.element;
 ENDLOOP;BEGIN PascalGET[file: @FmtFile.baseFile, length: SIZE[MemoryWord, 2], element: @FmtFile.element];VarUsed_FmtFile.element.Int; END;BEGIN PascalGET[file: @FmtFile.baseFile, length: SIZE[MemoryWord, 2], element: @FmtFile.element];
DynUsed_FmtFile.element.Int; END--:1312--;--1314:----1317:--K_1;
DO BEGIN PascalGET[file: @FmtFile.baseFile, length: SIZE[MemoryWord, 2], element: @FmtFile.element];X_FmtFile.element.Int; END;
IF(X<1)OR (K+X>5477) THEN  GOTO Label6666;
FOR i:INT    IN [ INT[K ].. INT[K+X-1 ]] DO  J _ i;  PascalGET[file: @FmtFile.baseFile, length: SIZE[MemoryWord, 2], element: @FmtFile.element];Eqtb^[J]_FmtFile.element; ENDLOOP;K_K+X;
BEGIN PascalGET[file: @FmtFile.baseFile, length: SIZE[MemoryWord, 2], element: @FmtFile.element];X_FmtFile.element.Int; END;
IF(X<0)OR (K+X>5477) THEN  GOTO Label6666;
FOR i:INT    IN [ INT[K ].. INT[K+X-1 ]] DO  J _ i; Eqtb^[J]_Eqtb^[K-1] ENDLOOP;K_K+X; IF K>5476--:1317-- THEN EXIT; ENDLOOP;
BEGIN BEGIN PascalGET[file: @FmtFile.baseFile, length: SIZE[MemoryWord, 2], element: @FmtFile.element];X_FmtFile.element.Int; END;
IF(X<258)OR (X>2758) THEN  GOTO Label6666  ELSE ParLoc_X; END;
ParToken_ INT[4096]+ParLoc;BEGIN BEGIN PascalGET[file: @FmtFile.baseFile, length: SIZE[MemoryWord, 2], element: @FmtFile.element];X_FmtFile.element.Int; END;
IF(X<258)OR (X>2758) THEN  GOTO Label6666  ELSE WriteLoc_X; END;--1319:
BEGIN BEGIN PascalGET[file: @FmtFile.baseFile, length: SIZE[MemoryWord, 2], element: @FmtFile.element];X_FmtFile.element.Int; END;
IF(X<258)OR (X>2758) THEN  GOTO Label6666  ELSE HashUsed_X; END;P_257;
DO BEGIN BEGIN PascalGET[file: @FmtFile.baseFile, length: SIZE[MemoryWord, 2], element: @FmtFile.element];X_FmtFile.element.Int; END;
IF(X<P+1)OR (X>HashUsed) THEN  GOTO Label6666  ELSE P_X; END;
BEGIN PascalGET[file: @FmtFile.baseFile, length: SIZE[MemoryWord, 2], element: @FmtFile.element];Hash^[P]_FmtFile.element.Hh; END; IF P=HashUsed THEN EXIT; ENDLOOP;
FOR i:INT    IN [ INT[HashUsed+1 ].. INT[3024 ]] DO  P _ i;  PascalGET[file: @FmtFile.baseFile, length: SIZE[MemoryWord, 2], element: @FmtFile.element];Hash^[P]_FmtFile.element.Hh;
 ENDLOOP;BEGIN PascalGET[file: @FmtFile.baseFile, length: SIZE[MemoryWord, 2], element: @FmtFile.element];CsCount_FmtFile.element.Int; END--:1319----:1314--;
--1321:--BEGIN BEGIN PascalGET[file: @FmtFile.baseFile, length: SIZE[MemoryWord, 2], element: @FmtFile.element];X_FmtFile.element.Int; END;
IF X<7  THEN  GOTO Label6666;IF X>FontMemSize  THEN BEGIN
 {PascalWriteLongString[file: @TermOut, item: "---! Must increase the "]; PascalWriteLongString[file: @TermOut, item: "font mem size"]; PascalWriteLn[file: @TermOut]}; GOTO Label6666;
 END  ELSE FmemPtr_X; END;FOR i:INT    IN [ INT[0 ].. INT[FmemPtr-1 ]] DO  K _ i;  PascalGET[file: @FmtFile.baseFile, length: SIZE[MemoryWord, 2], element: @FmtFile.element];
FontInfo^[K]_FmtFile.element; ENDLOOP;BEGIN BEGIN PascalGET[file: @FmtFile.baseFile, length: SIZE[MemoryWord, 2], element: @FmtFile.element];X_FmtFile.element.Int;
 END;IF X<0  THEN  GOTO Label6666;IF X>FontMax  THEN BEGIN
 {PascalWriteLongString[file: @TermOut, item: "---! Must increase the "]; PascalWriteLongString[file: @TermOut, item: "font max"]; PascalWriteLn[file: @TermOut]}; GOTO Label6666;
 END  ELSE FontPtr_X; END;FOR i:INT    IN [ INT[0 ].. INT[FontPtr ]] DO --1323:
K _ i;  BEGIN PascalGET[file: @FmtFile.baseFile, length: SIZE[MemoryWord, 2], element: @FmtFile.element];FontCheck^[K]_FmtFile.element.Qqqq; END;
BEGIN PascalGET[file: @FmtFile.baseFile, length: SIZE[MemoryWord, 2], element: @FmtFile.element];FontSize^[K]_FmtFile.element.Int; END;BEGIN PascalGET[file: @FmtFile.baseFile, length: SIZE[MemoryWord, 2], element: @FmtFile.element];
FontDsize^[K]_FmtFile.element.Int; END;BEGIN BEGIN PascalGET[file: @FmtFile.baseFile, length: SIZE[MemoryWord, 2], element: @FmtFile.element];
X_FmtFile.element.Int; END;
IF(X<0)OR (X>65515) THEN  GOTO Label6666  ELSE FontParams^[K]_X; END;
BEGIN PascalGET[file: @FmtFile.baseFile, length: SIZE[MemoryWord, 2], element: @FmtFile.element];HyphenChar^[K]_FmtFile.element.Int; END;
BEGIN PascalGET[file: @FmtFile.baseFile, length: SIZE[MemoryWord, 2], element: @FmtFile.element];SkewChar^[K]_FmtFile.element.Int; END;
BEGIN BEGIN PascalGET[file: @FmtFile.baseFile, length: SIZE[MemoryWord, 2], element: @FmtFile.element];X_FmtFile.element.Int; END;
IF(X<0)OR (X>StrPtr) THEN  GOTO Label6666  ELSE FontFamily^[K]_X; END;
BEGIN BEGIN PascalGET[file: @FmtFile.baseFile, length: SIZE[MemoryWord, 2], element: @FmtFile.element];X_FmtFile.element.Int; END;
IF(X<0)OR (X>255) THEN  GOTO Label6666  ELSE FontFace^[K]_X; END;
BEGIN BEGIN PascalGET[file: @FmtFile.baseFile, length: SIZE[MemoryWord, 2], element: @FmtFile.element];X_FmtFile.element.Int; END;
IF(X<0)OR (X>StrPtr) THEN  GOTO Label6666  ELSE FontName^[K]_X; END;
BEGIN BEGIN PascalGET[file: @FmtFile.baseFile, length: SIZE[MemoryWord, 2], element: @FmtFile.element];X_FmtFile.element.Int; END;
IF(X<0)OR (X>StrPtr) THEN  GOTO Label6666  ELSE FontArea^[K]_X; END;
BEGIN BEGIN PascalGET[file: @FmtFile.baseFile, length: SIZE[MemoryWord, 2], element: @FmtFile.element];X_FmtFile.element.Int; END;
IF(X<0)OR (X>255) THEN  GOTO Label6666  ELSE FontBc^[K]_X; END;
BEGIN BEGIN PascalGET[file: @FmtFile.baseFile, length: SIZE[MemoryWord, 2], element: @FmtFile.element];X_FmtFile.element.Int; END;
IF(X<0)OR (X>255) THEN  GOTO Label6666  ELSE FontEc^[K]_X; END;
BEGIN PascalGET[file: @FmtFile.baseFile, length: SIZE[MemoryWord, 2], element: @FmtFile.element];CharBase^[K]_FmtFile.element.Int; END;BEGIN PascalGET[file: @FmtFile.baseFile, length: SIZE[MemoryWord, 2], element: @FmtFile.element];
WidthBase^[K]_FmtFile.element.Int; END;BEGIN PascalGET[file: @FmtFile.baseFile, length: SIZE[MemoryWord, 2], element: @FmtFile.element];
HeightBase^[K]_FmtFile.element.Int; END;BEGIN PascalGET[file: @FmtFile.baseFile, length: SIZE[MemoryWord, 2], element: @FmtFile.element];
DepthBase^[K]_FmtFile.element.Int; END;BEGIN PascalGET[file: @FmtFile.baseFile, length: SIZE[MemoryWord, 2], element: @FmtFile.element];
ItalicBase^[K]_FmtFile.element.Int; END;BEGIN PascalGET[file: @FmtFile.baseFile, length: SIZE[MemoryWord, 2], element: @FmtFile.element];
LigKernBase^[K]_FmtFile.element.Int; END;BEGIN PascalGET[file: @FmtFile.baseFile, length: SIZE[MemoryWord, 2], element: @FmtFile.element];
KernBase^[K]_FmtFile.element.Int; END;BEGIN PascalGET[file: @FmtFile.baseFile, length: SIZE[MemoryWord, 2], element: @FmtFile.element];
ExtenBase^[K]_FmtFile.element.Int; END;BEGIN PascalGET[file: @FmtFile.baseFile, length: SIZE[MemoryWord, 2], element: @FmtFile.element];
ParamBase^[K]_FmtFile.element.Int; END;BEGIN BEGIN PascalGET[file: @FmtFile.baseFile, length: SIZE[MemoryWord, 2], element: @FmtFile.element];
X_FmtFile.element.Int; END;
IF(X<0)OR (X>LoMemMax) THEN  GOTO Label6666  ELSE FontGlue^[K]_X; END;
--:1323----:1321-- ENDLOOP;--1325:--BEGIN BEGIN PascalGET[file: @FmtFile.baseFile, length: SIZE[MemoryWord, 2], element: @FmtFile.element];X_FmtFile.element.Int; END;
IF(X<0)OR (X>307) THEN  GOTO Label6666  ELSE HyphCount_X; END;
FOR i:INT    IN [ INT[1 ].. INT[HyphCount ]] DO  K _ i;  BEGIN BEGIN PascalGET[file: @FmtFile.baseFile, length: SIZE[MemoryWord, 2], element: @FmtFile.element];
X_FmtFile.element.Int; END;IF(X<0)OR (X>307) THEN  GOTO Label6666  ELSE J_X; END;
BEGIN BEGIN PascalGET[file: @FmtFile.baseFile, length: SIZE[MemoryWord, 2], element: @FmtFile.element];X_FmtFile.element.Int; END;
IF(X<0)OR (X>StrPtr) THEN  GOTO Label6666  ELSE HyphWord^[J]_X; END;
BEGIN BEGIN PascalGET[file: @FmtFile.baseFile, length: SIZE[MemoryWord, 2], element: @FmtFile.element];X_FmtFile.element.Int; END;
IF(X<0)OR (X>65515) THEN  GOTO Label6666  ELSE HyphList^[J]_X; END; ENDLOOP;
BEGIN BEGIN PascalGET[file: @FmtFile.baseFile, length: SIZE[MemoryWord, 2], element: @FmtFile.element];X_FmtFile.element.Int; END;IF X<0  THEN  GOTO Label6666;
IF X>TrieSize  THEN BEGIN
 {PascalWriteLongString[file: @TermOut, item: "---! Must increase the "]; PascalWriteLongString[file: @TermOut, item: "trie size"]; PascalWriteLn[file: @TermOut]}; GOTO Label6666;
 END  ELSE TrieMax_X; END;FOR i:INT    IN [ INT[0 ].. INT[TrieMax ]] DO  K _ i;  PascalGET[file: @FmtFile.baseFile, length: SIZE[MemoryWord, 2], element: @FmtFile.element];
Trie^[K]_FmtFile.element.Hh; ENDLOOP;BEGIN BEGIN PascalGET[file: @FmtFile.baseFile, length: SIZE[MemoryWord, 2], element: @FmtFile.element];X_FmtFile.element.Int;
 END;IF(X<0)OR (X>255) THEN  GOTO Label6666  ELSE TrieOpPtr_X; END;
FOR i:INT    IN [ INT[1 ].. INT[TrieOpPtr ]] DO  K _ i;  BEGIN BEGIN PascalGET[file: @FmtFile.baseFile, length: SIZE[MemoryWord, 2], element: @FmtFile.element];
X_FmtFile.element.Int; END;
IF(X<0)OR (X>63) THEN  GOTO Label6666  ELSE HyfDistance^[K]_X; END;
BEGIN BEGIN PascalGET[file: @FmtFile.baseFile, length: SIZE[MemoryWord, 2], element: @FmtFile.element];X_FmtFile.element.Int; END;
IF(X<0)OR (X>63) THEN  GOTO Label6666  ELSE HyfNum^[K]_X; END;
BEGIN BEGIN PascalGET[file: @FmtFile.baseFile, length: SIZE[MemoryWord, 2], element: @FmtFile.element];X_FmtFile.element.Int; END;
IF(X<0)OR (X>255) THEN  GOTO Label6666  ELSE HyfNext^[K]_X; END;--:1325-- ENDLOOP;
--1327:--BEGIN BEGIN PascalGET[file: @FmtFile.baseFile, length: SIZE[MemoryWord, 2], element: @FmtFile.element];X_FmtFile.element.Int; END;
IF(X<0)OR (X>3) THEN  GOTO Label6666  ELSE Interaction_X; END;
BEGIN BEGIN PascalGET[file: @FmtFile.baseFile, length: SIZE[MemoryWord, 2], element: @FmtFile.element];X_FmtFile.element.Int; END;
IF(X<0)OR (X>StrPtr) THEN  GOTO Label6666  ELSE FormatIdent_X; END;
BEGIN PascalGET[file: @FmtFile.baseFile, length: SIZE[MemoryWord, 2], element: @FmtFile.element];X_FmtFile.element.Int; END;
IF (X#69069)OR PascalEOF[file: @FmtFile.baseFile] THEN  GOTO Label6666--:1327--;LoadFmtFileResult_TRUE;
 GOTO Label10;EXITS Label6666 => NULL};{PascalWriteLongString[file: @TermOut, item: "(Fatal format file error; I'm stymied)"]; PascalWriteLn[file: @TermOut]};
LoadFmtFileResult_FALSE;EXITS Label10 => NULL}; END;--:1303----1330:----1333:
 InitPrim: PROCEDURE
 = 
BEGIN 
 NoNewControlSequence_FALSE;--226:--Primitive[244,74,3026];
Primitive[245,74,3027];Primitive[246,74,3028];Primitive[247,74,3029];
Primitive[248,74,3030];Primitive[249,74,3031];Primitive[250,74,3032];
Primitive[251,74,3033];Primitive[252,74,3034];Primitive[253,74,3035];
Primitive[254,74,3036];Primitive[255,74,3037];Primitive[256,74,3038];
Primitive[257,74,3039];Primitive[258,74,3040];Primitive[259,75,3041];
Primitive[260,75,3042];Primitive[261,75,3043];--:226----230:
Primitive[266,71,3557];Primitive[267,71,3558];Primitive[268,71,3559];
Primitive[269,71,3560];Primitive[270,71,3561];Primitive[271,71,3562];
Primitive[272,71,3563];Primitive[273,71,3564];Primitive[274,71,3565];
--:230----238:--Primitive[288,72,4767];Primitive[289,72,4768];
Primitive[290,72,4769];Primitive[291,72,4770];Primitive[292,72,4771];
Primitive[293,72,4772];Primitive[294,72,4773];Primitive[295,72,4774];
Primitive[296,72,4775];Primitive[297,72,4776];Primitive[298,72,4777];
Primitive[299,72,4778];Primitive[300,72,4779];Primitive[301,72,4780];
Primitive[302,72,4781];Primitive[303,72,4782];Primitive[304,72,4783];
Primitive[305,72,4784];Primitive[306,72,4785];Primitive[307,72,4786];
Primitive[308,72,4787];Primitive[309,72,4788];Primitive[310,72,4789];
Primitive[311,72,4790];Primitive[312,72,4791];Primitive[313,72,4792];
Primitive[314,72,4793];Primitive[315,72,4794];Primitive[316,72,4795];
Primitive[317,72,4796];Primitive[318,72,4797];Primitive[319,72,4798];
Primitive[320,72,4799];Primitive[321,72,4800];Primitive[322,72,4801];
Primitive[323,72,4802];Primitive[324,72,4803];Primitive[325,72,4804];
Primitive[326,72,4805];Primitive[327,72,4806];Primitive[328,72,4807];
Primitive[329,72,4808];Primitive[330,72,4809];Primitive[331,72,4810];
Primitive[332,72,4811];Primitive[333,72,4812];Primitive[334,72,4813];
Primitive[335,72,4814];Primitive[336,72,4815];Primitive[337,72,4816];
--:238----248:--Primitive[341,73,5201];Primitive[342,73,5202];
Primitive[343,73,5203];Primitive[344,73,5204];Primitive[345,73,5205];
Primitive[346,73,5206];Primitive[347,73,5207];Primitive[348,73,5208];
Primitive[349,73,5209];Primitive[350,73,5210];Primitive[351,73,5211];
Primitive[352,73,5212];Primitive[353,73,5213];Primitive[354,73,5214];
Primitive[355,73,5215];Primitive[356,73,5216];Primitive[357,73,5217];
Primitive[358,73,5218];Primitive[359,73,5219];Primitive[360,73,5220];
--:248----265:--Primitive[32,64,0];Primitive[47,44,0];Primitive[370,45,0];
Primitive[371,89,0];Primitive[372,40,0];Primitive[373,41,0];
Primitive[374,61,0];Primitive[375,16,0];Primitive[366,106,0];
Primitive[376,15,0];Primitive[377,91,0];Primitive[367,66,0];
Primitive[378,62,0];Hash^[2760].Rh_378;Eqtb^[2760]_Eqtb^[CurVal];
Primitive[379,101,0];Primitive[380,87,0];Primitive[381,76,0];
Primitive[382,32,0];Primitive[383,36,0];Primitive[384,39,0];
Primitive[202,37,0];Primitive[222,18,0];Primitive[385,46,0];
Primitive[386,17,0];Primitive[387,54,0];Primitive[388,90,0];
Primitive[389,34,0];Primitive[390,102,0];Primitive[207,55,0];
Primitive[391,63,0];Primitive[276,83,0];Primitive[392,42,0];
Primitive[393,79,0];Primitive[394,65,0];Primitive[395,95,0];
Primitive[396,0,256];Hash^[2765].Rh_396;Eqtb^[2765]_Eqtb^[CurVal];
Primitive[397,97,0];Primitive[398,108,0];Primitive[275,70,0];
Primitive[223,38,0];Primitive[399,33,0];Primitive[400,56,0];
Primitive[401,35,0];--:265----334:--Primitive[458,13,0];ParLoc_CurVal;
ParToken_ INT[4096]+ParLoc;--:334----376:--Primitive[490,103,0];
Primitive[491,103,1];--:376----384:--Primitive[492,109,0];
Primitive[493,109,1];Primitive[494,109,2];Primitive[495,109,3];
Primitive[496,109,4];--:384----411:--Primitive[339,88,0];
Primitive[362,88,1];Primitive[263,88,2];Primitive[264,88,3];--:411----416:
Primitive[529,78,101];Primitive[530,78,1];Primitive[531,81,0];
Primitive[532,81,1];Primitive[533,82,1];Primitive[534,82,3];
Primitive[535,82,2];Primitive[536,69,0];Primitive[537,69,1];
Primitive[538,69,2];--:416----468:--Primitive[595,107,0];
Primitive[596,107,1];Primitive[597,107,2];Primitive[598,107,3];
Primitive[599,107,4];Primitive[600,107,5];--:468----487:
Primitive[616,104,0];Primitive[617,104,1];Primitive[618,104,2];
Primitive[619,104,3];Primitive[620,104,4];Primitive[621,104,5];
Primitive[622,104,6];Primitive[623,104,7];Primitive[624,104,8];
Primitive[625,104,9];Primitive[626,104,10];Primitive[627,104,11];
Primitive[628,104,12];Primitive[629,104,13];Primitive[630,104,14];
Primitive[631,104,15];Primitive[632,104,16];--:487----491:
Primitive[633,105,2];Hash^[2762].Rh_633;Eqtb^[2762]_Eqtb^[CurVal];
Primitive[634,105,4];Primitive[635,105,3];--:491----553:
Primitive[658,86,0];Hash^[2768].Rh_658;Eqtb^[2768]_Eqtb^[CurVal];--:553
--780:--Primitive[756,4,128];Primitive[757,5,129];Hash^[2759].Rh_757;
Eqtb^[2759]_Eqtb^[CurVal];Primitive[758,5,130];Hash^[2763].Rh_759;
Hash^[2764].Rh_759;Eqtb^[2764].Hh.B0_9;Eqtb^[2764].Hh.Rh_64989;
Eqtb^[2764].Hh.B1_1;Eqtb^[2763]_Eqtb^[2764];Eqtb^[2763].Hh.B0_114;--:780
--983:--Primitive[823,80,0];Primitive[824,80,1];Primitive[825,80,2];
Primitive[826,80,3];Primitive[827,80,4];Primitive[828,80,5];
Primitive[829,80,6];Primitive[830,80,7];--:983----1052:
Primitive[878,14,0];Primitive[879,14,1];--:1052----1058:
Primitive[880,26,4];Primitive[881,26,0];Primitive[882,26,1];
Primitive[883,26,2];Primitive[884,26,3];Primitive[885,27,4];
Primitive[886,27,0];Primitive[887,27,1];Primitive[888,27,2];
Primitive[889,27,3];Primitive[208,28,5];Primitive[212,29,1];
Primitive[213,30,99];--:1058----1071:--Primitive[907,21,1];
Primitive[908,21,0];Primitive[909,22,1];Primitive[910,22,0];
Primitive[277,20,0];Primitive[911,20,1];Primitive[912,20,2];
Primitive[818,20,3];Primitive[913,20,4];Primitive[820,20,5];
Primitive[914,20,105];Primitive[915,31,99];Primitive[916,31,100];
Primitive[917,31,101];Primitive[918,31,102];--:1071----1088:
Primitive[933,43,1];Primitive[934,43,0];--:1088----1107:
Primitive[943,25,12];Primitive[944,25,11];Primitive[945,25,10];
Primitive[946,23,0];Primitive[947,23,1];Primitive[948,24,0];
Primitive[949,24,1];--:1107----1114:--Primitive[45,47,1];
Primitive[220,47,0];--:1114----1141:--Primitive[980,48,0];
Primitive[981,48,1];--:1141----1156:--Primitive[724,50,16];
Primitive[725,50,17];Primitive[726,50,18];Primitive[727,50,19];
Primitive[728,50,20];Primitive[729,50,21];Primitive[730,50,22];
Primitive[731,50,23];Primitive[733,50,26];Primitive[732,50,27];
Primitive[982,51,0];Primitive[736,51,1];Primitive[737,51,2];--:1156
--1169:--Primitive[719,53,0];Primitive[720,53,2];Primitive[721,53,4];
Primitive[722,53,6];--:1169----1178:--Primitive[1000,52,0];
Primitive[1001,52,1];Primitive[1002,52,2];Primitive[1003,52,3];
Primitive[1004,52,4];Primitive[1005,52,5];--:1178----1188:
Primitive[734,49,30];Primitive[735,49,31];Hash^[2761].Rh_735;
Eqtb^[2761]_Eqtb^[CurVal];--:1188----1208:--Primitive[1024,92,1];
Primitive[1025,92,2];Primitive[1026,92,4];Primitive[1027,96,0];
Primitive[1028,96,1];Primitive[1029,96,2];Primitive[1030,96,3];--:1208
--1219:--Primitive[1044,93,0];Primitive[1045,93,1];--:1219----1222:
Primitive[1046,94,0];Primitive[1047,94,1];Primitive[1048,94,2];
Primitive[1049,94,3];Primitive[1050,94,4];Primitive[1051,94,5];
Primitive[1052,94,6];--:1222----1230:--Primitive[283,84,4127];
Primitive[287,84,4639];Primitive[284,84,4255];Primitive[285,84,4383];
Primitive[286,84,4511];Primitive[340,84,5073];Primitive[280,85,4079];
Primitive[281,85,4095];Primitive[282,85,4111];--:1230----1250:
Primitive[798,98,0];Primitive[808,98,1];--:1250----1254:
Primitive[1068,77,0];Primitive[1069,77,1];--:1254----1262:
Primitive[146,99,0];Primitive[147,99,1];Primitive[148,99,2];
Primitive[1078,99,3];--:1262----1272:--Primitive[1079,60,1];
Primitive[1080,60,0];--:1272----1277:--Primitive[1081,58,0];
Primitive[1082,58,1];--:1277----1286:--Primitive[1088,57,4255];
Primitive[1089,57,4383];--:1286----1291:--Primitive[1090,19,0];
Primitive[1091,19,1];Primitive[1092,19,2];Primitive[1093,19,3];--:1291
--1344:--Primitive[1134,59,0];Primitive[456,59,1];WriteLoc_CurVal;
Primitive[1135,59,2];Primitive[1136,59,3];Primitive[1137,59,4];--:1344--NoNewControlSequence_TRUE; END;--:1336----1338:--
END.