|
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: T V
Length: 628 (0x274)
Types: TextFile
Names: »V«
└─⟦149519bd4⟧ Bits:30000546 8mm tape, Rational 1000, !projects 93-07-13
└─⟦124ff5788⟧ »DATA«
└─⟦this⟧
└─⟦f64eaa120⟧ Bits:30000752 8mm tape, Rational 1000, !projects 93 02 16
└─⟦6f12a12be⟧ »DATA«
└─⟦this⟧
with Collection;
with Instance;
package Pilote is
subtype Age is Natural range 1 .. 100;
subtype Nom is String (1 .. 30);
subtype Licence is String (1 .. 30);
subtype Object is Instance.Reference;
function Les_Pilotes return Collection.Object;
function Le_Nom (De : Object) return Nom;
function L_Age (De : Object) return Age;
function La_Licence (De : Object) return Licence;
function Flag_Traite (De : Object) return Boolean;
procedure Modifier (De : Object; Flag_Traite : Boolean);
procedure Creer_Faits;
procedure Effacer_Faits;
end Pilote;