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 - download

Index: ┃ B T ┃

⟦97734919c⟧ TextFile

    Length: 789 (0x315)
    Types: TextFile
    Names: »B«

Derivation

└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─ ⟦129cab021⟧ »DATA« 
        └─⟦this⟧ 
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─ ⟦129cab021⟧ »DATA« 
        └─⟦e24fb53b7⟧ 
            └─⟦this⟧

TextFile

with Text_Io;
use Text_Io;
package body Calculator is
    function Must_Keep_The_Fact return Boolean is
        Reponse            : Character;
        Ok, Valid_Response : Boolean;
    begin  
        loop
            Put ("Faut-il conserver ce fait ? (o/n) : ");
            Get (Reponse);
            Put_Line ("");
            case Reponse is
                when 'o' | 'O' =>
                    Ok             := True;
                    Valid_Response := True;
                when 'n' | 'N' =>
                    Ok             := False;
                    Valid_Response := True;
                when others =>
                    null;
            end case;
            exit when Valid_Response;
        end loop;
        return Ok;
    end Must_Keep_The_Fact;
end Calculator;