|
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 - metrics - downloadIndex: B T
Length: 953 (0x3b9)
Types: TextFile
Names: »B«
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
└─⟦129cab021⟧ »DATA«
└─⟦this⟧
separate (Motor)
procedure Envoyer_Trame (Source : Evenement) is
La_Trame_A_Envoyer : constant String := Fabriquer_La_Trame (Source);
begin
Serial_Io.Put (S => La_Trame_A_Envoyer, Tty => "/dev/tty0");
Text_Io.Put ("Format de la trame qui vient d'etre envoyee :");
Text_Io.Put_Line (La_Trame_A_Envoyer);
Text_Io.Put ("Temps passe : ");
Text_Io.Put_Line (Integer'Image (Source.Date_Relative));
Text_Io.Put ("Adresse de la station : ");
Text_Io.Put_Line (Integer'Image (Source.Numero_Station));
Text_Io.Put ("Numero de l'acteur : ");
Text_Io.Put_Line (Integer'Image (Source.Numero_Acteur));
Text_Io.Put ("Valeur de l'action : ");
Text_Io.Put_Line (Integer'Image (Source.Valeur));
Text_Io.Put ("Transition (option) : ");
Text_Io.Put_Line (Integer'Image (Source.Transition));
Text_Io.Put_Line
("----------------------------------------------------------------------");
end Envoyer_Trame;