|
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: 2048 (0x800) Types: Ada Source Notes: 03_class, FILE, R1k_Segment, e3_tag, package File_Back, seg_0477f9
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦this⟧
with Text_Io; package File_Back is procedure Open (A_File : Text_Io.File_Type); procedure Create_Error_Report (Nom_Error_Report : String); procedure Save_Error_Report (Chaine : String); procedure New_Line_Error_Report; procedure Close_Error_Report; function At_End_Of_Line (A_File : Text_Io.File_Type) return Boolean; function At_End (A_File : Text_Io.File_Type) return Boolean; procedure Next (A_File : Text_Io.File_Type); function Get (A_File : Text_Io.File_Type) return Character; procedure Unget (A_File : Text_Io.File_Type); function Value (A_File : Text_Io.File_Type) return Character; end File_Back;
nblk1=1 nid=0 hdr6=2 [0x00] rec0=13 rec1=00 rec2=01 rec3=000 tail 0x21544912286545faa3546 0x42a00088462060003