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: 324 (0x144) Types: TextFile Names: »B«
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11 └─ ⟦129cab021⟧ »DATA« └─⟦this⟧
separate (Fish) package body Self is procedure Sleep (This_Fish : Object; Marker : Boolean := False) is begin Text_Io.Put_Line ("fish now sleeping ..."); end Sleep; procedure Swim (This_Fish : Object) is begin Text_Io.Put_Line ("fish now swimming with ..."); end Swim; end Self;