|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: B T
Length: 709 (0x2c5)
Types: TextFile
Names: »B«
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
└─⟦129cab021⟧ »DATA«
└─⟦this⟧
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;