[INHERIT('Interface_Module')]
MODULE Implementation_Module;

{ The implemenation module inherits the		}
{ environment containing the "external"		}
{ definitions of the routines this module	}
{ will actually defined.  VAX Pascal allows	}
{ variables, procedures, and functions to be	}
{ redeclared as long as they have matching	}
{ types and parameter lists.  By separating	}
{ the code from the interface, the routines	}
{ can be implemented without causing the	}
{ entire application to be recompiled.		}
{						}
{ See INTERFACE_MODULE.PAS and			}
{ MAIN_PROGRAM.PAS for more information.	}


[GLOBAL] PROCEDURE Delete_One
          (VAR P : Interesting_Type);
    BEGIN
    { Body of Delete_One}
    END;

[GLOBAL] PROCEDURE Invert_One
          (Src : Interesting_Type;
       VAR Dst : Interesting_Type);

    BEGIN
    { Body of Invert_One }
    END;

[GLOBAL] FUNCTION Make_One : Interesting_Type;

    BEGIN
    { Body of Make_One }
    END;

END.