|
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 - download
Length: 3072 (0xc00)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package Visual_System_2, seg_04bb8f
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
package Visual_System_2 is
type Marker is private;
type Marker_Ids is (Model_Marker_Id, Selected_Block_Marker_Id,
Top_Block_Marker_Id, Top_Copied_Model_Marker_Id,
On_Table_Marker_Id);
type Directions is (Right, Left, Up, Down);
type Labels is new Character;
Null_Label : constant Labels := ' ';
procedure Put_Block (Block_Marked_With_Id : in Marker_Ids;
On_Marked_Place_With_Id : in Marker_Ids);
function Get_Label (The_Marker_Id : in Marker_Ids) return Labels;
function Is_Same
(One_Marker_Id : in Marker_Ids; Other_Marker_Id : in Marker_Ids)
return Boolean;
function Find (What_Label : in Labels; The_Marker_Id : in Marker_Ids)
return Boolean;
procedure Make_Coincided (What_Id : in Marker_Ids;
With_What_Id : in Marker_Ids);
function Move (What_Id : in Marker_Ids; In_Direction : in Directions)
return Boolean;
procedure Protect_Column (Marker_Id_In_Column : in Marker_Ids);
procedure Unprotect_Column (Marker_Id_In_Column : in Marker_Ids);
private
type Positions is
record
X : Integer;
Y : Integer;
end record;
Null_Position : Integer := -1;
type Marker is
record
Position : Positions := (X => Null_Position, Y => Null_Position);
end record;
end Visual_System_2;
nblk1=2
nid=0
hdr6=4
[0x00] rec0=24 rec1=00 rec2=01 rec3=002
[0x01] rec0=1a rec1=00 rec2=02 rec3=001
tail 0x21750d86286846d32a0ee 0x42a00088462063c03