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


DIRECTORY
  PascalBasic,
  PascalWizardFiles,
  MFTypes,
  MFMoves,
  MFTime;

MFTimeImpl3: PROGRAM IMPORTS PascalBasic, MFMoves, MFTime EXPORTS MFTime = PUBLIC
BEGIN OPEN PascalBasic, PascalWizardFiles, MFTypes, MFMoves, MFTime;
 InterSubdivide: PROCEDURE--559:-- = 
BEGIN CISubdiv1: PROCEDURE
 = 
BEGIN BisectStack↑[BisectPtr]←Delx;BisectStack↑[BisectPtr+1]←Dely;
BisectStack↑[BisectPtr+2]←Tol;BisectStack↑[BisectPtr+3]←Uv;
BisectStack↑[BisectPtr+4]←Xy;BisectPtr←BisectPtr+45;
CurT←CurT+CurT;CurTt←CurTt+CurTt;
BisectStack↑[BisectPtr-25]←BisectStack↑[Uv-5];
BisectStack↑[BisectPtr-3]←BisectStack↑[Uv-3];
BisectStack↑[BisectPtr-24]← PascalDIVPower2[(BisectStack↑[BisectPtr-25]+BisectStack↑
[Uv-4]),1];
BisectStack↑[BisectPtr-4]← PascalDIVPower2[(BisectStack↑[BisectPtr-3]+BisectStack↑[Uv
-4]),1];
BisectStack↑[BisectPtr-23]← PascalDIVPower2[(BisectStack↑[BisectPtr-24]+BisectStack↑
[BisectPtr-4]),1];
BisectStack↑[BisectPtr-5]←BisectStack↑[BisectPtr-23];
IF BisectStack↑[BisectPtr-25]<0  THEN IF BisectStack↑[BisectPtr-23]>=0
 THEN BEGIN IF BisectStack↑[BisectPtr-24]<0  THEN BisectStack↑[BisectPtr
-22]←BisectStack↑[BisectPtr-25]+BisectStack↑[BisectPtr-24] ELSE
BisectStack↑[BisectPtr-22]←BisectStack↑[BisectPtr-25];
BisectStack↑[BisectPtr-21]←BisectStack↑[BisectPtr-25]+BisectStack↑
[BisectPtr-24]+BisectStack↑[BisectPtr-23];
IF BisectStack↑[BisectPtr-21]<0  THEN BisectStack↑[BisectPtr-21]←0;
 END  ELSE BEGIN BisectStack↑[BisectPtr-22]←
BisectStack↑[BisectPtr-25]+BisectStack↑[BisectPtr-24]+BisectStack↑[BisectPtr-23];
IF BisectStack↑[BisectPtr-22]>BisectStack↑[BisectPtr-25] THEN
BisectStack↑[BisectPtr-22]←BisectStack↑[BisectPtr-25];
BisectStack↑[BisectPtr-21]←BisectStack↑[BisectPtr-25]+BisectStack↑
[BisectPtr-24];
IF BisectStack↑[BisectPtr-21]<0  THEN BisectStack↑[BisectPtr-21]←0;
 END  ELSE IF BisectStack↑[BisectPtr-23]<=0  THEN BEGIN IF BisectStack↑
[BisectPtr-24]>0  THEN BisectStack↑[BisectPtr-21]←BisectStack↑
[BisectPtr-25]+BisectStack↑[BisectPtr-24] ELSE BisectStack↑[BisectPtr
-21]←BisectStack↑[BisectPtr-25];
BisectStack↑[BisectPtr-22]←BisectStack↑[BisectPtr-25]+BisectStack↑
[BisectPtr-24]+BisectStack↑[BisectPtr-23];
IF BisectStack↑[BisectPtr-22]>0  THEN BisectStack↑[BisectPtr-22]←0;
 END  ELSE BEGIN BisectStack↑[BisectPtr-21]←
BisectStack↑[BisectPtr-25]+BisectStack↑[BisectPtr-24]+BisectStack↑[BisectPtr-23];
IF BisectStack↑[BisectPtr-21]<BisectStack↑[BisectPtr-25] THEN
BisectStack↑[BisectPtr-21]←BisectStack↑[BisectPtr-25];
BisectStack↑[BisectPtr-22]←BisectStack↑[BisectPtr-25]+BisectStack↑
[BisectPtr-24];
IF BisectStack↑[BisectPtr-22]>0  THEN BisectStack↑[BisectPtr-22]←0;
 END;
IF BisectStack↑[BisectPtr-5]<0  THEN IF BisectStack↑[BisectPtr-3]>=0
 THEN BEGIN IF BisectStack↑[BisectPtr-4]<0  THEN BisectStack↑[BisectPtr
-2]←BisectStack↑[BisectPtr-5]+BisectStack↑[BisectPtr-4] ELSE
BisectStack↑[BisectPtr-2]←BisectStack↑[BisectPtr-5];
BisectStack↑[BisectPtr-1]←BisectStack↑[BisectPtr-5]+BisectStack↑
[BisectPtr-4]+BisectStack↑[BisectPtr-3];
IF BisectStack↑[BisectPtr-1]<0  THEN BisectStack↑[BisectPtr-1]←0;
 END  ELSE BEGIN BisectStack↑[BisectPtr-2]←
BisectStack↑[BisectPtr-5]+BisectStack↑[BisectPtr-4]+BisectStack↑[BisectPtr-3];
IF BisectStack↑[BisectPtr-2]>BisectStack↑[BisectPtr-5] THEN
BisectStack↑[BisectPtr-2]←BisectStack↑[BisectPtr-5];
BisectStack↑[BisectPtr-1]←BisectStack↑[BisectPtr-5]+BisectStack↑
[BisectPtr-4];
IF BisectStack↑[BisectPtr-1]<0  THEN BisectStack↑[BisectPtr-1]←0;
 END  ELSE IF BisectStack↑[BisectPtr-3]<=0  THEN BEGIN IF BisectStack↑
[BisectPtr-4]>0  THEN BisectStack↑[BisectPtr-1]←BisectStack↑[BisectPtr
-5]+BisectStack↑[BisectPtr-4] ELSE BisectStack↑[BisectPtr-1]←
BisectStack↑[BisectPtr-5];
BisectStack↑[BisectPtr-2]←BisectStack↑[BisectPtr-5]+BisectStack↑
[BisectPtr-4]+BisectStack↑[BisectPtr-3];
IF BisectStack↑[BisectPtr-2]>0  THEN BisectStack↑[BisectPtr-2]←0;
 END  ELSE BEGIN BisectStack↑[BisectPtr-1]←
BisectStack↑[BisectPtr-5]+BisectStack↑[BisectPtr-4]+BisectStack↑[BisectPtr-3];
IF BisectStack↑[BisectPtr-1]<BisectStack↑[BisectPtr-5] THEN
BisectStack↑[BisectPtr-1]←BisectStack↑[BisectPtr-5];
BisectStack↑[BisectPtr-2]←BisectStack↑[BisectPtr-5]+BisectStack↑
[BisectPtr-4];
IF BisectStack↑[BisectPtr-2]>0  THEN BisectStack↑[BisectPtr-2]←0; END;
 END; CISubdiv2: PROCEDURE
 = 
BEGIN BisectStack↑[BisectPtr-30]←BisectStack↑[Uv-10];
BisectStack↑[BisectPtr-8]←BisectStack↑[Uv-8];
BisectStack↑[BisectPtr-29]← PascalDIVPower2[(BisectStack↑[BisectPtr-30]+BisectStack↑
[Uv-9]),1];
BisectStack↑[BisectPtr-9]← PascalDIVPower2[(BisectStack↑[BisectPtr-8]+BisectStack↑[Uv
-9]),1];
BisectStack↑[BisectPtr-28]← PascalDIVPower2[(BisectStack↑[BisectPtr-29]+BisectStack↑
[BisectPtr-9]),1];
BisectStack↑[BisectPtr-10]←BisectStack↑[BisectPtr-28];
IF BisectStack↑[BisectPtr-30]<0  THEN IF BisectStack↑[BisectPtr-28]>=0
 THEN BEGIN IF BisectStack↑[BisectPtr-29]<0  THEN BisectStack↑[BisectPtr
-27]←BisectStack↑[BisectPtr-30]+BisectStack↑[BisectPtr-29] ELSE
BisectStack↑[BisectPtr-27]←BisectStack↑[BisectPtr-30];
BisectStack↑[BisectPtr-26]←BisectStack↑[BisectPtr-30]+BisectStack↑
[BisectPtr-29]+BisectStack↑[BisectPtr-28];
IF BisectStack↑[BisectPtr-26]<0  THEN BisectStack↑[BisectPtr-26]←0;
 END  ELSE BEGIN BisectStack↑[BisectPtr-27]←
BisectStack↑[BisectPtr-30]+BisectStack↑[BisectPtr-29]+BisectStack↑[BisectPtr-28];
IF BisectStack↑[BisectPtr-27]>BisectStack↑[BisectPtr-30] THEN
BisectStack↑[BisectPtr-27]←BisectStack↑[BisectPtr-30];
BisectStack↑[BisectPtr-26]←BisectStack↑[BisectPtr-30]+BisectStack↑
[BisectPtr-29];
IF BisectStack↑[BisectPtr-26]<0  THEN BisectStack↑[BisectPtr-26]←0;
 END  ELSE IF BisectStack↑[BisectPtr-28]<=0  THEN BEGIN IF BisectStack↑
[BisectPtr-29]>0  THEN BisectStack↑[BisectPtr-26]←BisectStack↑
[BisectPtr-30]+BisectStack↑[BisectPtr-29] ELSE BisectStack↑[BisectPtr
-26]←BisectStack↑[BisectPtr-30];
BisectStack↑[BisectPtr-27]←BisectStack↑[BisectPtr-30]+BisectStack↑
[BisectPtr-29]+BisectStack↑[BisectPtr-28];
IF BisectStack↑[BisectPtr-27]>0  THEN BisectStack↑[BisectPtr-27]←0;
 END  ELSE BEGIN BisectStack↑[BisectPtr-26]←
BisectStack↑[BisectPtr-30]+BisectStack↑[BisectPtr-29]+BisectStack↑[BisectPtr-28];
IF BisectStack↑[BisectPtr-26]<BisectStack↑[BisectPtr-30] THEN
BisectStack↑[BisectPtr-26]←BisectStack↑[BisectPtr-30];
BisectStack↑[BisectPtr-27]←BisectStack↑[BisectPtr-30]+BisectStack↑
[BisectPtr-29];
IF BisectStack↑[BisectPtr-27]>0  THEN BisectStack↑[BisectPtr-27]←0;
 END;
IF BisectStack↑[BisectPtr-10]<0  THEN IF BisectStack↑[BisectPtr-8]>=0
 THEN BEGIN IF BisectStack↑[BisectPtr-9]<0  THEN BisectStack↑[BisectPtr
-7]←BisectStack↑[BisectPtr-10]+BisectStack↑[BisectPtr-9] ELSE
BisectStack↑[BisectPtr-7]←BisectStack↑[BisectPtr-10];
BisectStack↑[BisectPtr-6]←BisectStack↑[BisectPtr-10]+BisectStack↑
[BisectPtr-9]+BisectStack↑[BisectPtr-8];
IF BisectStack↑[BisectPtr-6]<0  THEN BisectStack↑[BisectPtr-6]←0;
 END  ELSE BEGIN BisectStack↑[BisectPtr-7]←
BisectStack↑[BisectPtr-10]+BisectStack↑[BisectPtr-9]+BisectStack↑[BisectPtr-8];
IF BisectStack↑[BisectPtr-7]>BisectStack↑[BisectPtr-10] THEN
BisectStack↑[BisectPtr-7]←BisectStack↑[BisectPtr-10];
BisectStack↑[BisectPtr-6]←BisectStack↑[BisectPtr-10]+BisectStack↑
[BisectPtr-9];
IF BisectStack↑[BisectPtr-6]<0  THEN BisectStack↑[BisectPtr-6]←0;
 END  ELSE IF BisectStack↑[BisectPtr-8]<=0  THEN BEGIN IF BisectStack↑
[BisectPtr-9]>0  THEN BisectStack↑[BisectPtr-6]←BisectStack↑[BisectPtr
-10]+BisectStack↑[BisectPtr-9] ELSE BisectStack↑[BisectPtr-6]←
BisectStack↑[BisectPtr-10];
BisectStack↑[BisectPtr-7]←BisectStack↑[BisectPtr-10]+BisectStack↑
[BisectPtr-9]+BisectStack↑[BisectPtr-8];
IF BisectStack↑[BisectPtr-7]>0  THEN BisectStack↑[BisectPtr-7]←0;
 END  ELSE BEGIN BisectStack↑[BisectPtr-6]←
BisectStack↑[BisectPtr-10]+BisectStack↑[BisectPtr-9]+BisectStack↑[BisectPtr-8];
IF BisectStack↑[BisectPtr-6]<BisectStack↑[BisectPtr-10] THEN
BisectStack↑[BisectPtr-6]←BisectStack↑[BisectPtr-10];
BisectStack↑[BisectPtr-7]←BisectStack↑[BisectPtr-10]+BisectStack↑
[BisectPtr-9];
IF BisectStack↑[BisectPtr-7]>0  THEN BisectStack↑[BisectPtr-7]←0; END;
 END; CISubdiv3: PROCEDURE
 = 
BEGIN BisectStack↑[BisectPtr-35]←BisectStack↑[Xy-15];
BisectStack↑[BisectPtr-13]←BisectStack↑[Xy-13];
BisectStack↑[BisectPtr-34]← PascalDIVPower2[(BisectStack↑[BisectPtr-35]+BisectStack↑
[Xy-14]),1];
BisectStack↑[BisectPtr-14]← PascalDIVPower2[(BisectStack↑[BisectPtr-13]+BisectStack↑
[Xy-14]),1];
BisectStack↑[BisectPtr-33]← PascalDIVPower2[(BisectStack↑[BisectPtr-34]+BisectStack↑
[BisectPtr-14]),1];
BisectStack↑[BisectPtr-15]←BisectStack↑[BisectPtr-33];
IF BisectStack↑[BisectPtr-35]<0  THEN IF BisectStack↑[BisectPtr-33]>=0
 THEN BEGIN IF BisectStack↑[BisectPtr-34]<0  THEN BisectStack↑[BisectPtr
-32]←BisectStack↑[BisectPtr-35]+BisectStack↑[BisectPtr-34] ELSE
BisectStack↑[BisectPtr-32]←BisectStack↑[BisectPtr-35];
BisectStack↑[BisectPtr-31]←BisectStack↑[BisectPtr-35]+BisectStack↑
[BisectPtr-34]+BisectStack↑[BisectPtr-33];
IF BisectStack↑[BisectPtr-31]<0  THEN BisectStack↑[BisectPtr-31]←0;
 END  ELSE BEGIN BisectStack↑[BisectPtr-32]←
BisectStack↑[BisectPtr-35]+BisectStack↑[BisectPtr-34]+BisectStack↑[BisectPtr-33];
IF BisectStack↑[BisectPtr-32]>BisectStack↑[BisectPtr-35] THEN
BisectStack↑[BisectPtr-32]←BisectStack↑[BisectPtr-35];
BisectStack↑[BisectPtr-31]←BisectStack↑[BisectPtr-35]+BisectStack↑
[BisectPtr-34];
IF BisectStack↑[BisectPtr-31]<0  THEN BisectStack↑[BisectPtr-31]←0;
 END  ELSE IF BisectStack↑[BisectPtr-33]<=0  THEN BEGIN IF BisectStack↑
[BisectPtr-34]>0  THEN BisectStack↑[BisectPtr-31]←BisectStack↑
[BisectPtr-35]+BisectStack↑[BisectPtr-34] ELSE BisectStack↑[BisectPtr
-31]←BisectStack↑[BisectPtr-35];
BisectStack↑[BisectPtr-32]←BisectStack↑[BisectPtr-35]+BisectStack↑
[BisectPtr-34]+BisectStack↑[BisectPtr-33];
IF BisectStack↑[BisectPtr-32]>0  THEN BisectStack↑[BisectPtr-32]←0;
 END  ELSE BEGIN BisectStack↑[BisectPtr-31]←
BisectStack↑[BisectPtr-35]+BisectStack↑[BisectPtr-34]+BisectStack↑[BisectPtr-33];
IF BisectStack↑[BisectPtr-31]<BisectStack↑[BisectPtr-35] THEN
BisectStack↑[BisectPtr-31]←BisectStack↑[BisectPtr-35];
BisectStack↑[BisectPtr-32]←BisectStack↑[BisectPtr-35]+BisectStack↑
[BisectPtr-34];
IF BisectStack↑[BisectPtr-32]>0  THEN BisectStack↑[BisectPtr-32]←0;
 END;
IF BisectStack↑[BisectPtr-15]<0  THEN IF BisectStack↑[BisectPtr-13]>=0
 THEN BEGIN IF BisectStack↑[BisectPtr-14]<0  THEN BisectStack↑[BisectPtr
-12]←BisectStack↑[BisectPtr-15]+BisectStack↑[BisectPtr-14] ELSE
BisectStack↑[BisectPtr-12]←BisectStack↑[BisectPtr-15];
BisectStack↑[BisectPtr-11]←BisectStack↑[BisectPtr-15]+BisectStack↑
[BisectPtr-14]+BisectStack↑[BisectPtr-13];
IF BisectStack↑[BisectPtr-11]<0  THEN BisectStack↑[BisectPtr-11]←0;
 END  ELSE BEGIN BisectStack↑[BisectPtr-12]←
BisectStack↑[BisectPtr-15]+BisectStack↑[BisectPtr-14]+BisectStack↑[BisectPtr-13];
IF BisectStack↑[BisectPtr-12]>BisectStack↑[BisectPtr-15] THEN
BisectStack↑[BisectPtr-12]←BisectStack↑[BisectPtr-15];
BisectStack↑[BisectPtr-11]←BisectStack↑[BisectPtr-15]+BisectStack↑
[BisectPtr-14];
IF BisectStack↑[BisectPtr-11]<0  THEN BisectStack↑[BisectPtr-11]←0;
 END  ELSE IF BisectStack↑[BisectPtr-13]<=0  THEN BEGIN IF BisectStack↑
[BisectPtr-14]>0  THEN BisectStack↑[BisectPtr-11]←BisectStack↑
[BisectPtr-15]+BisectStack↑[BisectPtr-14] ELSE BisectStack↑[BisectPtr
-11]←BisectStack↑[BisectPtr-15];
BisectStack↑[BisectPtr-12]←BisectStack↑[BisectPtr-15]+BisectStack↑
[BisectPtr-14]+BisectStack↑[BisectPtr-13];
IF BisectStack↑[BisectPtr-12]>0  THEN BisectStack↑[BisectPtr-12]←0;
 END  ELSE BEGIN BisectStack↑[BisectPtr-11]←
BisectStack↑[BisectPtr-15]+BisectStack↑[BisectPtr-14]+BisectStack↑[BisectPtr-13];
IF BisectStack↑[BisectPtr-11]<BisectStack↑[BisectPtr-15] THEN
BisectStack↑[BisectPtr-11]←BisectStack↑[BisectPtr-15];
BisectStack↑[BisectPtr-12]←BisectStack↑[BisectPtr-15]+BisectStack↑
[BisectPtr-14];
IF BisectStack↑[BisectPtr-12]>0  THEN BisectStack↑[BisectPtr-12]←0;
 END; END; CISubdiv4: PROCEDURE
 = 
BEGIN BisectStack↑[BisectPtr-40]←BisectStack↑[Xy-20];
BisectStack↑[BisectPtr-18]←BisectStack↑[Xy-18];
BisectStack↑[BisectPtr-39]← PascalDIVPower2[(BisectStack↑[BisectPtr-40]+BisectStack↑
[Xy-19]),1];
BisectStack↑[BisectPtr-19]← PascalDIVPower2[(BisectStack↑[BisectPtr-18]+BisectStack↑
[Xy-19]),1];
BisectStack↑[BisectPtr-38]← PascalDIVPower2[(BisectStack↑[BisectPtr-39]+BisectStack↑
[BisectPtr-19]),1];
BisectStack↑[BisectPtr-20]←BisectStack↑[BisectPtr-38];
IF BisectStack↑[BisectPtr-40]<0  THEN IF BisectStack↑[BisectPtr-38]>=0
 THEN BEGIN IF BisectStack↑[BisectPtr-39]<0  THEN BisectStack↑[BisectPtr
-37]←BisectStack↑[BisectPtr-40]+BisectStack↑[BisectPtr-39] ELSE
BisectStack↑[BisectPtr-37]←BisectStack↑[BisectPtr-40];
BisectStack↑[BisectPtr-36]←BisectStack↑[BisectPtr-40]+BisectStack↑
[BisectPtr-39]+BisectStack↑[BisectPtr-38];
IF BisectStack↑[BisectPtr-36]<0  THEN BisectStack↑[BisectPtr-36]←0;
 END  ELSE BEGIN BisectStack↑[BisectPtr-37]←
BisectStack↑[BisectPtr-40]+BisectStack↑[BisectPtr-39]+BisectStack↑[BisectPtr-38];
IF BisectStack↑[BisectPtr-37]>BisectStack↑[BisectPtr-40] THEN
BisectStack↑[BisectPtr-37]←BisectStack↑[BisectPtr-40];
BisectStack↑[BisectPtr-36]←BisectStack↑[BisectPtr-40]+BisectStack↑
[BisectPtr-39];
IF BisectStack↑[BisectPtr-36]<0  THEN BisectStack↑[BisectPtr-36]←0;
 END  ELSE IF BisectStack↑[BisectPtr-38]<=0  THEN BEGIN IF BisectStack↑
[BisectPtr-39]>0  THEN BisectStack↑[BisectPtr-36]←BisectStack↑
[BisectPtr-40]+BisectStack↑[BisectPtr-39] ELSE BisectStack↑[BisectPtr
-36]←BisectStack↑[BisectPtr-40];
BisectStack↑[BisectPtr-37]←BisectStack↑[BisectPtr-40]+BisectStack↑
[BisectPtr-39]+BisectStack↑[BisectPtr-38];
IF BisectStack↑[BisectPtr-37]>0  THEN BisectStack↑[BisectPtr-37]←0;
 END  ELSE BEGIN BisectStack↑[BisectPtr-36]←
BisectStack↑[BisectPtr-40]+BisectStack↑[BisectPtr-39]+BisectStack↑[BisectPtr-38];
IF BisectStack↑[BisectPtr-36]<BisectStack↑[BisectPtr-40] THEN
BisectStack↑[BisectPtr-36]←BisectStack↑[BisectPtr-40];
BisectStack↑[BisectPtr-37]←BisectStack↑[BisectPtr-40]+BisectStack↑
[BisectPtr-39];
IF BisectStack↑[BisectPtr-37]>0  THEN BisectStack↑[BisectPtr-37]←0;
 END;
IF BisectStack↑[BisectPtr-20]<0  THEN IF BisectStack↑[BisectPtr-18]>=0
 THEN BEGIN IF BisectStack↑[BisectPtr-19]<0  THEN BisectStack↑[BisectPtr
-17]←BisectStack↑[BisectPtr-20]+BisectStack↑[BisectPtr-19] ELSE
BisectStack↑[BisectPtr-17]←BisectStack↑[BisectPtr-20];
BisectStack↑[BisectPtr-16]←BisectStack↑[BisectPtr-20]+BisectStack↑
[BisectPtr-19]+BisectStack↑[BisectPtr-18];
IF BisectStack↑[BisectPtr-16]<0  THEN BisectStack↑[BisectPtr-16]←0;
 END  ELSE BEGIN BisectStack↑[BisectPtr-17]←
BisectStack↑[BisectPtr-20]+BisectStack↑[BisectPtr-19]+BisectStack↑[BisectPtr-18];
IF BisectStack↑[BisectPtr-17]>BisectStack↑[BisectPtr-20] THEN
BisectStack↑[BisectPtr-17]←BisectStack↑[BisectPtr-20];
BisectStack↑[BisectPtr-16]←BisectStack↑[BisectPtr-20]+BisectStack↑
[BisectPtr-19];
IF BisectStack↑[BisectPtr-16]<0  THEN BisectStack↑[BisectPtr-16]←0;
 END  ELSE IF BisectStack↑[BisectPtr-18]<=0  THEN BEGIN IF BisectStack↑
[BisectPtr-19]>0  THEN BisectStack↑[BisectPtr-16]←BisectStack↑
[BisectPtr-20]+BisectStack↑[BisectPtr-19] ELSE BisectStack↑[BisectPtr
-16]←BisectStack↑[BisectPtr-20];
BisectStack↑[BisectPtr-17]←BisectStack↑[BisectPtr-20]+BisectStack↑
[BisectPtr-19]+BisectStack↑[BisectPtr-18];
IF BisectStack↑[BisectPtr-17]>0  THEN BisectStack↑[BisectPtr-17]←0;
 END  ELSE BEGIN BisectStack↑[BisectPtr-16]←
BisectStack↑[BisectPtr-20]+BisectStack↑[BisectPtr-19]+BisectStack↑[BisectPtr-18];
IF BisectStack↑[BisectPtr-16]<BisectStack↑[BisectPtr-20] THEN
BisectStack↑[BisectPtr-16]←BisectStack↑[BisectPtr-20];
BisectStack↑[BisectPtr-17]←BisectStack↑[BisectPtr-20]+BisectStack↑
[BisectPtr-19];
IF BisectStack↑[BisectPtr-17]>0  THEN BisectStack↑[BisectPtr-17]←0;
 END;Uv←BisectPtr-20;Xy←BisectPtr-20;Delx←Delx+Delx;Dely←Dely+Dely;
Tol←Tol-ThreeL+TolStep;Tol←Tol+Tol;ThreeL←ThreeL+TolStep ; END;
--:559-- CISubdiv1[];CISubdiv2[];CISubdiv3[];CISubdiv4[]; END;

END.