|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 4096 (0x1000)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Draw_Box, seg_04484d
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦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); -- descend 1 et gauche 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=3
nid=3
hdr6=4
[0x00] rec0=17 rec1=00 rec2=01 rec3=022
[0x01] rec0=12 rec1=00 rec2=02 rec3=000
[0x02] rec0=02 rec1=00 rec2=02 rec3=000
tail 0x21745bd98863f3c8b596d 0x42a00088462060003
Free Block Chain:
0x3: 0000 00 00 03 fc 80 35 65 72 77 72 69 74 65 20 28 57 ┆ 5erwrite (W┆