DataMuseum.dk Presents historical artifacts from the history of: Rational R1000/400

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 Excavated with: AutoArchaeologist - Free & Open Source Software.

top - download

⟦cb2cccdd5⟧ Ada Source

    Length: 3072 (0xc00)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Document, seg_04b166

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦5a81ac88f⟧ »Space Info Vol 1« 
        └─⟦this⟧ 

package body Document is  
    Entier : Natural;
    Le_Fichier : Text_Io.File_Type;

    procedure Open (Le_Nom : in String) is
    begin
        Text_Io.Open (File => Le_Fichier,
                      Mode => Text_Io.In_File,
                      Name => Le_Nom);
    end Open;

    procedure Close is
    begin
        Text_Io.Close (File => Le_Fichier);
    end Close;

    procedure Get is
    begin
        Int_Io.Get (File => Le_Fichier, Item => Entier);
    exception
        when Text_Io.End_Error =>
            raise End_Of_File;
    end Get;


    function Get_Value return Natural is
    begin
        return Entier;
    end Get_Value;



end Document;

    nblk1=2
    nid=2
    hdr6=2
        [0x00] rec0=23 rec1=00 rec2=01 rec3=000
        [0x01] rec0=00 rec1=12 rec2=07 rec3=121
    tail 0x2154828fc867b6f1ae1eb 0x42a00088462060003
Free Block Chain:
  0x2: 0000  00 00 00 07 80 01 3b 01 00 00 00 00 00 00 3f ff  ┆      ;       ? ┆