|
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: T V
Length: 871 (0x367)
Types: TextFile
Names: »V«
└─⟦180fe333a⟧ Bits:30000405 8mm tape, Rational 1000, SW CATALOG, 10_20_0
└─⟦180fe333a⟧ Bits:30000537 8mm tape, Rational 1000, SW Catalog 10_20_0
└─⟦5cb1d1d7f⟧ »DATA«
└─⟦3b1ee7bd8⟧
└─⟦this⟧
with Data_Pkg;
use Data_Pkg;
package Vt100 is
Print_Report : array (1 .. 12) of Boolean := (others => False);
procedure Clear_Screen;
function Print_Report_Menu return Integer;
function Print_Data_Menu return Integer;
function Print_Global_Menu return Integer;
function Print_Operation_Menu return Integer;
function Print_El_Operation_Menu return Integer;
function Print_El_Groups return Integer;
function Print_Ac_Menu (Ac_Ptr : in Activity_Pointer) return Integer;
function Print_El_Menu (El_Ptr : in Element_Pointer) return Integer;
function Print_Ms_Menu (Ms_Ptr : in Milestone_Pointer) return Integer;
function Print_Pr_Menu (Pr_Ptr : in Personnel_Pointer) return Integer;
function Print_Ss_Menu (Ss_Ptr : in Subsystem_Pointer) return Integer;
procedure Tracker_Intro;
procedure Goodbye_Message;
end Vt100;