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 - download

⟦320f6b8f1⟧ TextFile

    Length: 321 (0x141)
    Types: TextFile
    Names: »V«

Derivation

└─⟦bfaa708f6⟧ Bits:30000531 8mm tape, Rational 1000, INSIGHT 1_3_0
    └─ ⟦c51948655⟧ »DATA« 
        └─⟦266b31e86⟧ 
            └─⟦this⟧

TextFile

with Message;
package Message_Test_Driver is
    -- Test driver.  Reads file and pretends messages are being sent
    -- from file.

    procedure Start (In_File : String);

    procedure Divert_Output;
    -- causes output to divert to window.


    procedure Send_Packet (Pkt : Message.Packet);
end Message_Test_Driver;