|
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: 5120 (0x1400)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Display_Environment, seg_04b78a, separate Visual_System_1
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
with Window_Io;
separate (Visual_System_1)
package body Display_Environment is
package Wio renames Window_Io;
The_Table_Line : constant := 15;
The_Table_Column : constant := 20;
The_Image : Wio.File_Type;
procedure Initialize is
begin
Wio.Create (The_Image, Wio.Out_File, "The fruitcake environment");
end Initialize;
procedure Print_All is
Column : Wio.Column_Number := The_Table_Column;
Line : Wio.Line_Number := The_Table_Line - Max_Y;
begin
Wio.New_Line (The_Image);
Wio.Overwrite (The_Image, " THE ENVIRONMENT : ");
Wio.New_Line (The_Image);
Wio.New_Line (The_Image);
for J in reverse Min_Y .. Max_Y loop
Column := The_Table_Column;
Wio.Position_Cursor (The_Image, Line, Column - 7);
Wio.Overwrite (The_Image, Integer'Image (J) & " * ");
for I in Min_X .. Max_X loop
Wio.Position_Cursor (The_Image, Line, Column);
if Get_Label_In_Position (I, J) /= Null_Label then
Wio.Overwrite
(The_Image,
("[" & Character (Get_Label_In_Position (I, J)) & "]"));
end if;
if I = Max_X then
Wio.Position_Cursor (The_Image, Line, Column + 5);
Wio.Overwrite (The_Image, "*");
Line := Line + 1;
end if;
Column := Column + 5;
end loop;
end loop;
Wio.Position_Cursor (The_Image, The_Table_Line, The_Table_Column - 6);
Wio.Overwrite
(The_Image,
" *****************************************************************");
Wio.Position_Cursor (The_Image, The_Table_Line + 1,
The_Table_Column - 6);
Wio.Overwrite
(The_Image,
" 1 2 3 4 5 6 7 8 9 10 11 12");
Wio.New_Line (The_Image);
end Print_All;
procedure Print_One_Block (X, Y : Integer; What_Label : Labels) is
-- ! x = column and y = line
begin
Wio.Position_Cursor (The_Image, The_Table_Line - Y,
The_Table_Column + (5 * (X - 1)));
if What_Label = Null_Label then
Wio.Overwrite (The_Image, " ");
else
Wio.Overwrite (The_Image, "[" & Character (What_Label) & "]");
end if;
end Print_One_Block;
end Display_Environment;
nblk1=4
nid=0
hdr6=8
[0x00] rec0=20 rec1=00 rec2=01 rec3=008
[0x01] rec0=00 rec1=00 rec2=04 rec3=01a
[0x02] rec0=16 rec1=00 rec2=03 rec3=028
[0x03] rec0=13 rec1=00 rec2=02 rec3=000
tail 0x21750a00886835b662095 0x42a00088462063c03