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

⟦6cc950b71⟧ TextFile

    Length: 500 (0x1f4)
    Types: TextFile
    Names: »B«

Derivation

└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─⟦129cab021⟧ »DATA« 
        └─⟦this⟧ 
└─⟦f64eaa120⟧ Bits:30000752 8mm tape, Rational 1000, !projects 93 02 16
    └─⟦6f12a12be⟧ »DATA« 
        └─⟦this⟧ 
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
    └─⟦d65440be7⟧ »DATA« 
        └─⟦this⟧

TextFile

with Window_Io;
procedure Test_Window_Io is
    The_Window : Window_Io.File_Type;
    Start      : Integer := 30;
begin
    Window_Io.Create (The_Window, Window_Io.Out_File, "test window io");
    Window_Io.Position_Cursor (The_Window, 2, 40, 0);
    for I in 0 .. 20 loop
        Window_Io.Position_Cursor (The_Window, 2 + I, I + Start, 0);
        Window_Io.Overwrite (The_Window, "coucou");
    end loop;
    --Window_Io.Close (The_Window);
    --Window_Io.Delete (The_Window);
end Test_Window_Io;