-- 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.