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
Index: B T

⟦f7317b062⟧ TextFile

    Length: 1863 (0x747)
    Types: TextFile
    Names: »B«

Derivation

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

TextFile

with Banque;
with Text_Io;
procedure Ma_Banque is
    Compte : Banque.Clef;
    Somme : Banque.Argent;
begin
    Somme := 1000;
    Banque.Ouvrir_Compte (Compte, Somme);
    Text_Io.Put_Line ("Apres ouverture compte = " &
                      Integer'Image (Banque.Releve (Compte)) & " clef " &
                      Boolean'Image (Banque.Valable (Compte)));
    Text_Io.New_Line;
    Banque.Cloturer_Compte (Compte, Somme);
    Text_Io.Put_Line ("Apres fermeture la somme retiree est " &
                      Integer'Image (Somme));
    Text_Io.New_Line;
    Somme := 10_000;
    Banque.Ouvrir_Compte (Compte, Somme);
    Text_Io.Put_Line ("Apres ouverture compte = " &
                      Integer'Image (Banque.Releve (Compte)) & " clef " &
                      Boolean'Image (Banque.Valable (Compte)));
    Text_Io.New_Line;
    Banque.Deposer (Compte, 5_000);
    Text_Io.Put_Line ("Apres depot de 5_000 compte = " &
                      Integer'Image (Banque.Releve (Compte)) & " clef " &
                      Boolean'Image (Banque.Valable (Compte)));
    Text_Io.New_Line;
    Somme := 10_000;
    Banque.Retirer (Compte, Somme);
    Text_Io.Put_Line ("Apres retrait de 10_000 compte = " &
                      Integer'Image (Banque.Releve (Compte)) & " clef " &
                      Boolean'Image (Banque.Valable (Compte)) &
                      " valeur retiree " & Integer'Image (Somme));
    Text_Io.New_Line;
    Banque.Retirer (Compte, Somme);
    Text_Io.Put_Line ("Apres retrait de 10_000 compte = " &
                      Integer'Image (Banque.Releve (Compte)) & " clef " &
                      Boolean'Image (Banque.Valable (Compte)) &
                      " valeur retiree " & Integer'Image (Somme));
    Text_Io.New_Line;
exception
    when Banque.Alarme =>
        Text_Io.Put_Line ("La valeur de cle est illegale");
end Ma_Banque;