|
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 Ne_Robot, seg_011ea3
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦this⟧
with Expertsystem; use Expertsystem; package Ne_Robot is type Object is private; subtype Tnom is String (1 .. 10); type Ttache is (Prendre, Deposer); subtype Tcase is Positive; function Derniereboite return Tcase; function Nom (R : Reference) return Tnom; function Numeroboite (R : Reference) return Tcase; function Peutprendre (R : Reference) return Boolean; function Peutdeposer (R : Reference) return Boolean; function Tientbrique (R : Reference) return Boolean; procedure Creer; procedure Modifieranc (Unrobot : Reference; Val : Integer); procedure Modifierpince (R : Reference; B : Boolean); procedure Modifiertache (R : Reference; A : Ttache); procedure Modifierboite (R : Reference; C : Tcase); procedure Sesuicide (R : Reference); function Un_Plus_Ancien_Robot (R : Reference) return Boolean; function Anciennete return Integer; function All_Robots return Collection.Object; private Num_Anc : Integer := 0; Numerocourant : Tcase := 1; type Object is record Nom : Tnom; Boite : Tcase; Tache : Ttache; Pinceoccupee : Boolean := False; Anc : Integer; end record; end Ne_Robot;
nblk1=2 nid=0 hdr6=4 [0x00] rec0=19 rec1=00 rec2=01 rec3=02e [0x01] rec0=11 rec1=00 rec2=02 rec3=000 tail 0x2170df17e82466d0e7dad 0x42a00088462063c03