|
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, procedure Test_Array, seg_054962
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
with Com_Storage_Array, Com_Defs, Text_Io, Bounded_String;
procedure Test_Array is
My_Apply_Number : Com_Defs.Com_Number := 1;
My_Quest_Number : Com_Defs.Com_Number;
My_Other_Quest_Number : Com_Defs.Com_Number;
My_Chaine : Com_Defs.V_String;
Chaine_Out : Com_Defs.V_String;
Chaine_In : String (1 .. 11) := "greg norman";
Etat : Boolean := False;
begin
Com_Storage_Array.Manager_Array.Search
(My_Apply_Number, My_Quest_Number, Etat);
Text_Io.Put_Line (Integer'Image (My_Quest_Number));
Bounded_String.Copy
(Bounded_String.Variable_String (Chaine_Out), Chaine_In);
Com_Storage_Array.Manager_Array.Write
(My_Apply_Number, My_Quest_Number, Chaine_Out);
Chaine_In := "nick faldo ";
Bounded_String.Copy
(Bounded_String.Variable_String (Chaine_Out), Chaine_In);
Com_Storage_Array.Manager_Array.Search
(My_Apply_Number, My_Other_Quest_Number, Etat);
Text_Io.Put_Line (Integer'Image (My_Other_Quest_Number));
Com_Storage_Array.Manager_Array.Read
(My_Apply_Number, My_Quest_Number, My_Chaine, Etat);
Text_Io.Put_Line (Bounded_String.Image
(Bounded_String.Variable_String (My_Chaine)));
Com_Storage_Array.Manager_Array.Finish;
end Test_Array;
nblk1=2
nid=0
hdr6=4
[0x00] rec0=18 rec1=00 rec2=01 rec3=04a
[0x01] rec0=07 rec1=00 rec2=02 rec3=000
tail 0x2175daa3487b887ae1afd 0x42a00088462060003