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

⟦c336b027d⟧ Ada Source

    Length: 2048 (0x800)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Classbehavior, package body Classidentity, package body Collection, package body Debugger, package body Engine, package body Expertsystem, package body Motor, package body Nothing, package body Rulemanager, package body Terminal, package body Tuple, package body Tuplecollection, seg_00e3d3

Derivation

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

E3 Source Code



with Text_Io;
use Text_Io;

package body Expertsystem is
    package Entier_Io is new Integer_Io (Integer);

    procedure Put (Aninteger : Integer) is
    begin
        Entier_Io.Put (Aninteger);
    end Put;

    package body Collection is separate;

    package body Classidentity is separate;

    package body Classbehavior is separate;

    package body Tuple is separate;

    package body Tuplecollection is separate;

    package body Rulemanager is separate;

    package body Nothing is separate;

    package body Debugger is separate;

    package body Engine is separate;

    package body Motor is separate;

    package body Terminal is separate;


end Expertsystem;

E3 Meta Data

    nblk1=1
    nid=0
    hdr6=2
        [0x00] rec0=26 rec1=00 rec2=01 rec3=000
    tail 0x2150a01aa821e40ceb3e3 0x42a00088462063c03