-- file: TangleInit.mesa
-- Pascal-to-Mesa translator output, translated at September 23, 1986 11:39:50 am PDT


DIRECTORY
  PascalBasic,
  PascalWizardFiles,
  TanglePrivate;

TangleInit: PROGRAM IMPORTS PascalBasic, PascalWizardFiles, TanglePrivate EXPORTS TanglePrivate = PUBLIC
BEGIN OPEN PascalBasic, PascalWizardFiles, TanglePrivate;
--:188----30:
--PROCEDURE DEBUG_HELP;FORWARD;----:30----31:-- Error: PROCEDURE
 = 
BEGIN J:PascalInteger[0..OutBufSize];K, L:PascalInteger[0..BufSize]; IF PhaseOne  THEN--32:
BEGIN IF  INT[Loc]>=Limit  THEN L_Limit  ELSE L_Loc;
IF Changing  THEN {PascalWriteLongString[file: @TermOut, item: ". (change file pos:"]; PascalWriteInteger[file: @TermOut, item: FileGetPos[
@ChangeFile]-(Limit-L)-2, fieldMinLength: 1]; PascalWriteLongString[file: @TermOut, item: ")"]; PascalWriteLn[file: @TermOut]} ELSE {PascalWriteLongString[file: @TermOut, item: ". (pos:"]
; PascalWriteInteger[file: @TermOut, item: FileGetPos[@WebFile]-(Limit-L)-2, fieldMinLength: 1]; PascalWriteLongString[file: @TermOut, item: ")"]; PascalWriteLn[file: @TermOut]};
FOR i:INT    IN [ INT[1 ].. INT[L ]] DO  K _ i; IF Buffer^[K-1]=9  THEN PascalWriteLongString[file: @TermOut, item: " "] ELSE 
PascalWriteChar[file: @TermOut, item: Xchr^[Buffer^[K-1]]] ENDLOOP;PascalWriteLn[file: @TermOut];
FOR i:INT    IN [ INT[1 ].. INT[L ]] DO  K _ i; PascalWriteLongString[file: @TermOut, item: " "] ENDLOOP;
FOR i:INT    IN [ INT[L+1 ].. INT[Limit ]] DO  K _ i; PascalWriteChar[file: @TermOut, item: Xchr^[Buffer^[K-1]]] ENDLOOP;
PascalWriteLongString[file: @TermOut, item: " "]; END--:32-- ELSE--33:
BEGIN {PascalWriteLongString[file: @TermOut, item: ". (pos:"]; PascalWriteInteger[file: @TermOut, item: FileGetPos[@PascalFile]+OutPtr, fieldMinLength: 1]
; PascalWriteLongString[file: @TermOut, item: ")"]; PascalWriteLn[file: @TermOut]};FOR i:INT    IN [ INT[1 ].. INT[OutPtr ]] DO  J _ i; PascalWriteChar[file: @TermOut, item: Xchr^[OutBuf^[J-1]]] ENDLOOP;
PascalWriteLongString[file: @TermOut, item: "... "]; END--:33--;PascalTextBREAK[file: @TermOut];History_2;--DEBUG_HELP;
 END;--:31----34:-- JumpOut: PROCEDURE = 
BEGIN  ERROR Error9999; END;--:34
 Initialize: PROCEDURE = 
BEGIN--16:--I:PascalInteger[0..255];--:16----41:--Wi:PascalInteger[0..1];--:41----45:
Zi:PascalInteger[0..2];--:45----51:--H:PascalInteger[0..HashSize];--:51----10:--History_0;--:10----14:
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]_' ;--:14----17:
FOR i:INT    IN [ INT[1 ].. INT[31 ]] DO  I _ i; Xchr^[I]_PascalCHR[I] ENDLOOP;--:17----18:
FOR i:INT    IN [ INT[0 ].. INT[255 ]] DO  I _ i; Xord^[PascalCHR[I]]_32 ENDLOOP;FOR i:INT    IN [ INT[1 ].. INT[126 ]] DO  I _ i; Xord^[Xchr^[I]]_I ENDLOOP;
--:18----21:--TtyRewrite[@TermOut];--:21----26:
FileRewrite[@PascalFile,Alfa['p, 'a, 's, ' , ' , ' , ' , ' , ' , ' ]];FileRewrite[@Pool,Alfa['p, 'o, 'o, 'l, ' , ' , ' , ' , ' , ' ]];
--:26----42:--FOR i:INT    IN [ INT[0 ].. INT[1 ]] DO  Wi _ i;  ByteStart^[Wi]_0;BytePtr^[Wi]_0; ENDLOOP;
ByteStart^[2]_0;NamePtr_1;StringPtr_128;PoolCheckSum_271828;
--:42----46:--FOR i:INT    IN [ INT[0 ].. INT[2 ]] DO  Zi _ i;  TokStart^[Zi]_0;TokPtr^[Zi]_0; ENDLOOP;
TokStart^[3]_0;TextPtr_1;Z_ 1 MOD 3;--:46----48:--Ilk^[0]_0;Equiv^[0]_0;
--:48----52:--FOR i:INT    IN [ INT[0 ].. INT[HashSize-1 ]] DO  H _ i;  Hash^[H]_0;ChopHash^[H]_0;
 ENDLOOP;--:52----71:--LastUnnamed_0;TextLink^[0]_0;--:71----144:
ScanningHex_FALSE;--:144----152:--ModText^[0]_32;--:152----180:
--TROUBLE_SHOOTING:=TRUE;DEBUG_CYCLE:=1;DEBUG_SKIPPED:=0;
-- TROUBLE_SHOOTING:=FALSE;DEBUG_CYCLE:=99999;RESET(TERM_IN,'TTY:','/I');
--:180-- END;--:2----24:-- OpenInput: PROCEDURE
 = 
BEGIN FileReset[@WebFile,Alfa['w, 'e, 'b, ' , ' , ' , ' , ' , ' , ' ]];
FileReset[@ChangeFile,Alfa['c, 'h, 'a, 'n, 'g, 'e, 's, ' , ' , ' ]]; END;--:24----28:
 InputLn: PROCEDURE[ F: LONG POINTER TO TextFile] RETURNS[InputLnResult: PascalBoolean] = 
BEGIN FinalLimit:PascalInteger[0..BufSize];
 Limit_0;FinalLimit_0;
IF PascalTextEOF[file: @F^] THEN InputLnResult_FALSE  ELSE BEGIN WHILE  NOT PascalTextEOLN[file: @F^]DO BEGIN
Buffer^[Limit]_Xord^[PascalTextElement[file: @F^]];PascalTextGET[file: @F^];Limit_Limit+1;
IF Buffer^[Limit-1]#32  THEN FinalLimit_Limit;
IF Limit=BufSize  THEN BEGIN WHILE  NOT PascalTextEOLN[file: @F^]DO PascalTextGET[file: @F^] ENDLOOP ;Limit_Limit-1;
BEGIN PascalWriteLn[file: @TermOut];PascalWriteLongString[file: @TermOut, item: "! Input line too long"]; END;
Loc_0;Error[]; END; END ENDLOOP ;PascalReadLn[file: @F^];Limit_FinalLimit;InputLnResult_TRUE; END;
 END;--:28----49:--
END.