DataMuseum.dk

top - download

    Length: 709 (0x2c5)
    Types: TextFile
    Names: »B«

└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─ ⟦129cab021⟧ »DATA« 
        └─⟦this⟧ 

TextFile

package body Current_Time is

    Current_Time : Natural;

    procedure Initialize_Current_Time is
    begin
        Current_Time := 0;
    end Initialize_Current_Time;

    procedure Add_Current_Time (The_Value : Natural) is
    begin
        Current_Time := The_Value + Current_Time;
    end Add_Current_Time;

    procedure Sub_Current_Time (The_Value : Natural) is
    begin
        Current_Time := The_Value - Current_Time;
    end Sub_Current_Time;


    function Get_Current_Time return Natural is
    begin
        return Current_Time;
    end Get_Current_Time;

    procedure Set_Current_Time (Value : Natural) is
    begin
        Current_Time := Value;
    end Set_Current_Time;

end Current_Time;