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

⟦a56146551⟧ Ada Source

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

Derivation

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

with Text_Io;
package body Car is
    procedure Center (X, Y : in out Integer) is
    begin
        X := 3;
        Y := 3;
    end Center;


    procedure Movenorth (X, Y : in out Integer) is
    begin
        Y := Y - 1;
    end Movenorth;


    procedure Moveeast (X, Y : in out Integer) is
    begin
        X := X + 1;
        Y := Y - 1;
        if X > 5 then
            X := 1;
        end if;
        if X < 1 then
            X := 5;
        end if;
        if Y < 1 then
            Y := 5;
        end if;
    end Moveeast;


    procedure Movewest (X, Y : in out Integer) is
    begin
        X := X - 1;
        Y := Y - 1;  
        if X > 5 then
            X := 1;
            if X < 1 then
                X := 5;
                if Y < 1 then
                    Y := 5;
                end if;
            end if;
        end if;
    end Movewest;


    procedure Deposit (I : in Integer;
                       X, Y : in out Integer;
                       Square : in out Carre) is
    begin
        Square (X, Y) := I;
    end Deposit;


    function Isempty (X, Y : in Integer; Square : in Carre) return Boolean is
    begin
        if Square (X, Y) = 0 then
            return True;
        else
            return False;
        end if;
    end Isempty;


    procedure Display (Square : in out Carre) is
    begin  
        for I in 1 .. 5 loop
            for J in 1 .. 5 loop
                Text_Io.Put (Integer'Image (Square (I, J)));
            end loop;
        end loop;
    end Display;
end Car;

    nblk1=2
    nid=0
    hdr6=4
        [0x00] rec0=32 rec1=00 rec2=01 rec3=012
        [0x01] rec0=1a rec1=00 rec2=02 rec3=001
    tail 0x2153a5346860d6efdbe99 0x42a00088462060003