|
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, procedure I_O_Rapide, seg_036046
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦this⟧
with Text_Io; use Text_Io; with Window_Io; use Window_Io; procedure I_O_Rapide is Term : Raw.Stream_Type; Item : array (1 .. 10) of Raw.Key; Toto : Window_Io.File_Type; procedure Go is begin Raw.Open (Term); end Go; procedure Take is begin for I in 1 .. 10 loop Raw.Get (Term, Item (I)); Bell (Toto); end loop; end Take; procedure Test is Tutu : Raw.Key; begin Go; Take; for I in 1 .. 10 loop Tutu := Item (I); Put_Line (Character'Image (Raw.Convert (Tutu))); end loop; end Test; begin Test; Raw.Disconnect (Term); end I_O_Rapide;
nblk1=1 nid=0 hdr6=2 [0x00] rec0=26 rec1=00 rec2=01 rec3=000 tail 0x2152f704484dd77e9f360 0x42a00088462060003