-- file: MFTime.mesa -- Pascal-to-Mesa translator output, translated at October 31, 1985 4:28:00 pm PST DIRECTORY PascalBasic, PascalWizardFiles, MFTypes; MFTime: DEFINITIONS IMPORTS = BEGIN OPEN PascalBasic, PascalWizardFiles, MFTypes; TolStep: PascalInteger[0..6]; CurT: PascalInteger; CurTt: PascalInteger; TimeToGo: PascalInteger; Delx: PascalInteger; Dely: PascalInteger; Tol: PascalInteger; Uv: PascalInteger[0..BistackSize]; Xy: PascalInteger[0..BistackSize]; ThreeL: PascalInteger; --:527----539:-- FindDirectionTime: PROCEDURE[X,Y: Scaled,H: Halfword] RETURNS[FindDirectionTimeResult: Scaled] ; InterSubdivide: PROCEDURE--559:--; CubicIntersection: PROCEDURE[P,Pp: Halfword]; PathIntersection: PROCEDURE[H,Hh: Halfword]; END.