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

⟦678d7ddf0⟧ TextFile

    Length: 510 (0x1fe)
    Types: TextFile
    Names: »B«

Derivation

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

TextFile

with Motor;
procedure Test_Moteur_En_Ecriture is

begin
    Motor.Ouvrir ("Fichier_Test_Moteur");
    Motor.Inserer_Un_Evenement (10, 5, 6, 111, 222);
    Motor.Inserer_Un_Evenement (0, 22, 9, 14, 0);
    Motor.Inserer_Un_Evenement (20, 9, 89, 15, 896);
    Motor.Inserer_Un_Evenement (30, 90, 8, 1, 64);
    Motor.Inserer_Un_Evenement (0, 20, 99, 1234, 8964);
    Motor.Inserer_Un_Evenement (0, 1, 8, 1, 1);
    Motor.Inserer_Un_Evenement (5, 99, 56, 891, 604);
    Motor.Fermer;

end Test_Moteur_En_Ecriture;