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