-- This is a substitute package for A000001 for incomplete compilers

with Text_Io;
package Duration_Io is

    procedure Put (Item : in Duration;   -- Do what ever you have to in order
                                         -- to export this procedure
                   Fore : in Text_Io.Field := 6;
                   Aft : in Text_Io.Field := 1;
                   Exp : in Text_Io.Field := 2);

    procedure Put (File : Text_Io.File_Type;
                   Item : in Duration;   -- Do what ever you have to in order
                                         -- to export this procedure
                   Fore : in Text_Io.Field := 6;
                   Aft : in Text_Io.Field := 1;
                   Exp : in Text_Io.Field := 2);

end Duration_Io;