DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 300 (0x12c) Types: TextFile Names: »B«
└─⟦85b835f43⟧ Bits:30000549 8mm tape, Rational 1000, Xlib rev 6.00 └─ ⟦0c20f784e⟧ »DATA« └─⟦1abbe589f⟧ └─⟦ada0be243⟧ └─⟦this⟧
separate (Xev_Main) procedure Do_Noexpose (E : X_No_Expose_Event) is use Text_Io; use S_Long_Io; begin Put (" major="); Put (X_Event_Code_8'Image (E.No_Expose.Major_Event)); Put (", minor="); Put (E.No_Expose.Minor_Event); New_Line; end Do_Noexpose;