|
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: 1854 (0x73e)
Types: TextFile
Names: »B«
└─⟦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;
with Text_Io;
use Text_Io;
package body Vt100 is
----------------------------------------------------------------------
--|
--| NAME: VT100
--|
--| OVERVIEW:
--| This package maintains actions that affect the screen display.
--| Various menus can be displayed by passing the appropriate
--| parameter to the function PRINT. The user's selection from
--| the displayed menu is returned.
--|
--| EXCEPTIONS HANDLED:
--| none
--|
--| HISTORY:
--| written by May Lee March 1985
--|
----------------------------------------------------------------------
use Calendar;
use Float_Text_Io;
use Integer_Text_Io;
use Boolean_Text_Io;
Response : Integer;
procedure Clear_Screen is separate;
function Print_Report_Menu return Integer is separate;
function Print_Data_Menu return Integer is separate;
function Print_Global_Menu return Integer is separate;
function Print_Operation_Menu return Integer is separate;
function Print_El_Operation_Menu return Integer is separate;
function Print_El_Groups return Integer is separate;
function Print_Ac_Menu (Ac_Ptr : in Activity_Pointer)
return Integer is separate;
function Print_El_Menu (El_Ptr : in Element_Pointer)
return Integer is separate;
function Print_Ms_Menu (Ms_Ptr : in Milestone_Pointer)
return Integer is separate;
function Print_Pr_Menu (Pr_Ptr : in Personnel_Pointer)
return Integer is separate;
function Print_Ss_Menu (Ss_Ptr : in Subsystem_Pointer)
return Integer is separate;
procedure Tracker_Intro is separate;
procedure Goodbye_Message is separate;
end Vt100;