DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software.

top - metrics - download

⟦85cf4a78f⟧ TextFile

    Length: 321 (0x141)
    Types: TextFile
    Names: »B«

Derivation

└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
    └─⟦d65440be7⟧ »DATA« 
        └─⟦this⟧

TextFile

with Money;
procedure Test_Money is
    type Franc is new Money.Object;
    type Dollar is new Money.Object;
    type Livre is new Money.Object;
    F1, F2 : Franc := Convert_To_Object (10.0);
    D1, D2 : Dollar;
    L : Livre;
begin
    F2 := Convert_To_Object (100.01);
    F2 := F2 - F1;
    Put (F2);
end Test_Money;