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 - downloadIndex: ┃ T V ┃
Length: 987 (0x3db) Types: TextFile Names: »V«
└─⟦149519bd4⟧ Bits:30000546 8mm tape, Rational 1000, !projects 93-07-13 └─ ⟦124ff5788⟧ »DATA« └─⟦this⟧ └─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11 └─ ⟦129cab021⟧ »DATA« └─⟦this⟧ └─⟦f64eaa120⟧ Bits:30000752 8mm tape, Rational 1000, !projects 93 02 16 └─ ⟦6f12a12be⟧ »DATA« └─⟦this⟧ └─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04 └─ ⟦d65440be7⟧ »DATA« └─⟦this⟧ └─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11 └─ ⟦129cab021⟧ »DATA« └─⟦e24fb53b7⟧ └─⟦this⟧
package Output_Stream is type Object is private; function Standard_Output return Object; procedure Open (The_Object : in out Object; Name : String); procedure Align (To_Col : Positive; The_Object : Object); procedure Indent (Count : Integer; The_Object : Object); procedure Indent_Right (The_Object : Object); procedure Indent_Left (The_Object : Object); procedure Put (B : Boolean; To : Object); procedure Put (C : Character; To : Object); procedure Put (I : Integer; To : Object); procedure Put (S : String; To : Object); procedure Put_Line (B : Boolean; To : Object); procedure Put_Line (C : Character; To : Object); procedure Put_Line (I : Integer; To : Object); procedure Put_Line (S : String; To : Object); procedure New_Line (To : Object; Count : Positive := 1); Not_Implemented : exception; private type Object_Structure; type Object is access Object_Structure; end Output_Stream;