|
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: 10240 (0x2800)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Display_Environment, seg_04bc2c, separate Visual_System_3
└─⟦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_3)
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=9
nid=3
hdr6=8
[0x00] rec0=20 rec1=00 rec2=01 rec3=008
[0x01] rec0=00 rec1=00 rec2=04 rec3=004
[0x02] rec0=16 rec1=00 rec2=09 rec3=012
[0x03] rec0=13 rec1=00 rec2=06 rec3=000
[0x04] rec0=15 rec1=00 rec2=03 rec3=00c
[0x05] rec0=15 rec1=00 rec2=04 rec3=000
[0x06] rec0=17 rec1=00 rec2=03 rec3=018
[0x07] rec0=13 rec1=00 rec2=04 rec3=000
[0x08] rec0=13 rec1=00 rec2=04 rec3=000
tail 0x21750f32286895bee2c0a 0x42a00088462063c03
Free Block Chain:
0x3: 0000 00 07 03 f9 80 25 20 20 20 20 20 20 20 20 20 20 ┆ % ┆
0x7: 0000 00 05 03 fc 80 03 73 65 3b 03 00 0c 20 20 20 20 ┆ se; ┆
0x5: 0000 00 02 00 b8 80 2b 3a 20 42 6f 6f 6c 65 61 6e 20 ┆ +: Boolean ┆
0x2: 0000 00 08 03 f9 00 2e 20 20 20 20 2d 2d 20 20 20 20 ┆ . -- ┆
0x8: 0000 00 00 00 ab 80 30 20 47 65 74 5f 4c 61 62 65 6c ┆ 0 Get_Label┆