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

⟦d4c67b14d⟧ TextFile

    Length: 796 (0x31c)
    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

package body Line is  
    The_String : String (1 .. 80) := (others => '.');
    Index : Positive range 1 .. The_String'Length + 1;
    Max : Positive range 1 .. The_String'Length + 1;

    function Value return Character is
    begin
        return The_String (Index);
    end Value;

    function At_End return Boolean is
    begin
        return Index = Max;
    end At_End;


    procedure Init (S : String) is
    begin  
        if S'Length > The_String'Length then
            Max := The_String'Length + 1;
            The_String := S (1 .. The_String'Length);
        else
            Max := S'Length + 1;
            The_String (1 .. S'Length) := S;
        end if;  
        Index := 1;
    end Init;


    procedure Next is
    begin
        Index := Index + 1;
    end Next;
end Line;