|
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: 1142 (0x476)
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 Window_Io;
with System_Utilities;
package body Browse_Keys is
package Raw renames Window_Io.Raw;
Found_Key : Boolean;
Terminal_Type : constant String := System_Utilities.Terminal_Type;
begin
if Terminal_Type = "FACIT" then
Raw.Value ("C_F4", Terminal_Type, Quit, Found_Key);
Raw.Value ("C_F8", Terminal_Type, Display_Text, Found_Key);
Raw.Value ("S_F5", Terminal_Type, Give_Help, Found_Key);
Raw.Value ("F6", Terminal_Type, Download_Item, Found_Key);
elsif Terminal_Type = "RATIONAL" then
Raw.Value ("M_F10", Terminal_Type, Quit, Found_Key);
Raw.Value ("F17", Terminal_Type, Display_Text, Found_Key);
Raw.Value ("F11", Terminal_Type, Give_Help, Found_Key);
Raw.Value ("F13", Terminal_Type, Download_Item, Found_Key);
else
Raw.Value ("Esc_E", Terminal_Type, Quit, Found_Key);
Raw.Value ("Esc_Q", Terminal_Type, Display_Text, Found_Key);
Raw.Value ("Esc_H", Terminal_Type, Give_Help, Found_Key);
Raw.Value ("Esc_I", Terminal_Type, Download_Item, Found_Key);
end if;
end Browse_Keys;