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

⟦565814862⟧ Ada Source

    Length: 5120 (0x1400)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Draw_Box, seg_03f3bc

Derivation

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

with Window_Io;
with Fonts;

procedure Draw_Box (Window : Window_Io.File_Type;
                    On_Line : Window_Io.Line_Number;
                    On_Column : Window_Io.Column_Number;
                    Height : Natural;
                    Width : Natural) is

    Upper_Left_Corner : constant Character := 'l';
    Upper_Right_Corner : constant Character := 'k';
    Lower_Left_Corner : constant Character := 'm';
    Lower_Right_Corner : constant Character := 'j';
    Vertical_Line : constant Character := 'x';
    Horizontal_Line : constant Character := 'q';

begin

    Window_Io.Position_Cursor (Window, On_Line, On_Column);
    Window_Io.Overwrite (Window, Upper_Left_Corner, Fonts.Graphics);
    for I in 1 .. Width loop
        Window_Io.Overwrite (Window, Horizontal_Line, Fonts.Graphics);
    end loop;

    Window_Io.Overwrite (Window, Upper_Right_Corner, Fonts.Graphics);
    Window_Io.Position_Cursor (Window, On_Line + 1, On_Column);

    for I in 1 .. Height loop
        Window_Io.Overwrite (Window, Vertical_Line, Fonts.Graphics);
        Window_Io.Move_Cursor (Window, 1, -1);
    end loop;

    Window_Io.Position_Cursor (Window, On_Line + 1, On_Column + Width + 1);

    for I in 1 .. Height loop
        Window_Io.Overwrite (Window, Vertical_Line, Fonts.Graphics);
        Window_Io.Move_Cursor (Window, 1, -1);
    end loop;

    Window_Io.Position_Cursor (Window, On_Line + Height + 1, On_Column);
    Window_Io.Overwrite (Window, Lower_Left_Corner, Fonts.Graphics);
    for I in 1 .. Width loop
        Window_Io.Overwrite (Window, Horizontal_Line, Fonts.Graphics);
    end loop;
    Window_Io.Overwrite (Window, Lower_Right_Corner, Fonts.Graphics);
end Draw_Box;

    nblk1=4
    nid=2
    hdr6=4
        [0x00] rec0=1d rec1=00 rec2=01 rec3=006
        [0x01] rec0=14 rec1=00 rec2=03 rec3=000
        [0x02] rec0=0b rec1=00 rec2=03 rec3=000
        [0x03] rec0=03 rec1=8e rec2=5d rec3=342
    tail 0x21538eed286076cc0efcc 0x42a00088462060003
Free Block Chain:
  0x2: 0000  00 04 03 fc 80 2c 65 72 5f 52 69 67 68 74 5f 43  ┆     ,er_Right_C┆
  0x4: 0000  00 00 00 09 80 06 65 72 5f 52 69 67 06 72 20 3a  ┆      er_Rig r :┆