DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download
Index: T V

⟦baabda5bf⟧ TextFile

    Length: 1354 (0x54a)
    Types: TextFile
    Names: »V«

Derivation

└─⟦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⟧

TextFile

with Text_Io;
package Terminal_Interface is

    subtype Count_Type is Text_Io.Count;

    --exception declarations

    Status_Error : exception renames Text_Io.Status_Error;
    Mode_Error : exception renames Text_Io.Mode_Error;
    Name_Error : exception renames Text_Io.Name_Error;
    Use_Error : exception renames Text_Io.Use_Error;
    Device_Error : exception renames Text_Io.Device_Error;
    End_Error : exception renames Text_Io.End_Error;
    Data_Error : exception renames Text_Io.Data_Error;
    Layout_Error : exception renames Text_Io.Layout_Error;

    -- line and page control

    procedure New_Page;

    procedure New_Line (Spacing : Text_Io.Positive_Count := 1)
        renames Text_Io.New_Line;

    function End_Of_Line return Boolean renames Text_Io.End_Of_Line;

    -- character input-output

    procedure Get (Item : out Character) renames Text_Io.Get;

    procedure Put (Item : Character) renames Text_Io.Put;

    -- string input-output

    procedure Get (Item : out String) renames Text_Io.Get;

    procedure Put (Item : String) renames Text_Io.Put;

    procedure Get_Line (Item : out String; Last : out Natural)
        renames Text_Io.Get_Line;

    procedure Put_Line (Item : String) renames Text_Io.Put_Line;

    procedure Set_Col (To : in Text_Io.Positive_Count) renames Text_Io.Set_Col;

end Terminal_Interface;