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: 269 (0x10d) Types: TextFile Names: »B«
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11 └─ ⟦129cab021⟧ »DATA« └─⟦this⟧
separate (Fish) procedure Sleep (This_Fish : Object) is begin case Part_Of (This_Fish).Offspring_No is when Void => raise Animal.Application.Offspring_Error; when It_Self => Self.Sleep (This_Fish); end case; end Sleep;