|
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: 630 (0x276)
Types: TextFile
Names: »B«
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
└─⟦129cab021⟧ »DATA«
└─⟦this⟧
with Role;
use Role;
with Text_Io;
use Text_Io;
procedure Test_Role is
package Int_Io is new Text_Io.Integer_Io (Integer);
N : Integer;
F : File_Type;
Mr : P_Role;
A : Acteur;
begin
Put_Line ("debut role");
Open (F, In_File, "file_role");
A.Num_Station := 99;
A.Num_Acteur := 50;
Put_Line ("debut lecture fichier");
for I in 1 .. 10 loop
Int_Io.Put (I);
Put_Line ("");
Mr := Lire_Un_Role (F, Mr, A);
end loop;
Put_Line ("fin de lecture du fichier");
Close (F);
Affiche_Role (Mr);
Jouer_Role (Mr);
Put_Line ("fin role");
end Test_Role;