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: B T

⟦0906a0db3⟧ TextFile

    Length: 818 (0x332)
    Types: TextFile
    Names: »B«

Derivation

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

TextFile

WITH Destinations;
WITH Messages;
WITH Lines;
WITH Time_Utilities;
WITH Unbounded;

PROCEDURE Symbolic_Display (The_Message : Messages.Message) IS

   PACKAGE Tu RENAMES Time_Utilities;

   Iter : Lines.Line_Iterator := Lines.Initialize
                                    (Messages.Get_Text (The_Message));

BEGIN

   Put ("To:    " & Destinations.Image (Messages.Get_To (The_Message)));
   New_Line;
   Put ("From:  " & Destinations.Image (Messages.Get_From (The_Message)));
   New_Line;
   Put ("Date:  " & Tu.Image (Messages.Get_Date (The_Message)));
   New_Line;
   Put ("Subject:  " & Messages.Get_Subject (The_Message));
   New_Line;
   Put ("Text:");
   New_Line;
   WHILE NOT Lines.Is_Done (Iter) LOOP
      Put (Lines.Value (Iter));
      New_Line;
      Lines.Next (Iter);
   END LOOP;
END Symbolic_Display;