|
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: 1790 (0x6fe)
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 Fonts;
package body Display_Tools is
procedure Open_Output is
begin
Window_Io.Open (Output_Window, Window_Io.Out_File, "SCRIPT WINDOW");
end Open_Output;
procedure Close_Output is
begin
Window_Io.Close (Output_Window);
end Close_Output;
procedure Open_Input is
begin
Window_Io.Create (Input_Window, Window_Io.In_File, "SCRIPT WINDOW");
end Open_Input;
procedure Close_Input is
begin
Window_Io.Close (Input_Window);
end Close_Input;
procedure Delete_Window is
begin
if Window_Io.Is_Open (Input_Window) then
Close_Input;
end if;
Window_Io.Delete (Output_Window);
end Delete_Window;
procedure Erase is
begin
Window_Io.Position_Cursor (Output_Window);
Window_Io.Delete_Lines (Output_Window,
Window_Io.Last_Line (Output_Window));
end Erase;
procedure Label_Window (Label : String) is
begin
Window_Io.Set_Banner (Output_Window, "Field_3", Label);
end Label_Window;
function Query (Prompt : String; Line : Positive; Column : Positive)
return String is
function Get_It (S : String) return String is
begin
Window_Io.Position_Cursor (Output_Window, Line, Column);
Window_Io.Delete_Lines (Output_Window, 1);
return S;
end Get_It;
begin
Window_Io.Position_Cursor (Output_Window, Line, Column);
Window_Io.Insert (Output_Window, Prompt,
Fonts.Inverse_Bold, Window_Io.Prompt);
Window_Io.Position_Cursor (Input_Window, Line, Column);
return Get_It (Window_Io.Get_Line (Input_Window, ""));
end Query;
end Display_Tools;