|
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: 2048 (0x800) Types: Ada Source Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Essai, seg_04b6b3
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦this⟧
with Memory_1; with Document; with Message_Transport; with Identifier; with Max; with Text_Io; procedure Essai is Ess : Memory_1.File; begin Text_Io.Put_Line (" MAXIMUM => " & Natural'Image (Max.Get_Max)); Text_Io.Put_Line ("INITIALISATION "); Memory_1.Init (Ess); Text_Io.Put_Line (" FIN INITIALISATION "); Text_Io.Put_Line (" RECHERCHER_100 =>" & Natural'Image (Memory_1.Search (Ess, 100))); Memory_1.Add (Ess, 24, 1972); Memory_1.Add (Ess, 20, 1970); Text_Io.Put_Line (" RECHERCHER_20 =>" & Natural'Image (Memory_1.Search (Ess, 20))); Text_Io.Put_Line (" RECHERCHER_24 =>" & Natural'Image (Memory_1.Search (Ess, 24))); end Essai;
nblk1=1 nid=0 hdr6=2 [0x00] rec0=19 rec1=00 rec2=01 rec3=000 tail 0x215488276868258b37283 0x42a00088462060003