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: 613 (0x265) Types: TextFile Names: »V«
└─⟦149519bd4⟧ Bits:30000546 8mm tape, Rational 1000, !projects 93-07-13 └─ ⟦124ff5788⟧ »DATA« └─⟦this⟧ └─⟦f64eaa120⟧ Bits:30000752 8mm tape, Rational 1000, !projects 93 02 16 └─ ⟦6f12a12be⟧ »DATA« └─⟦this⟧
WITH Complex_Defs; PACKAGE Complex_Service IS SUBTYPE Number IS Complex_Defs.Number; FUNCTION Make (Real, Imag : Float) RETURN Number; FUNCTION Real_Part (X : Number) RETURN Float; FUNCTION Imaginary_Part (X : Number) RETURN Float; FUNCTION Plus (Left, Right : Number) RETURN Number; FUNCTION Minus (Left, Right : Number) RETURN Number; FUNCTION Image (X : Number) RETURN String; FUNCTION Value (S : String) RETURN Number; Overflow : EXCEPTION; Underflow : EXCEPTION; END Complex_Service;