----------------------------------------------------------------------
     -- Title       :  FileAKD
     -- Author      :  David Wallace Croft, CompuServe [76600,102]
     -- Compiler    :  Ada
     ----------------------------------------------------------------------

     with TextAKD; use TextAKD;

     package FileAKD is
     ----------------------------------------------------------------------
     ----------------------------------------------------------------------
     Copyright : constant string :=
       "FileAKD v1.00 (C) 1994 David Wallace Croft.  All rights reserved.";
     Description : constant string :=
       "Text I/O to and from files.  Complements TextAKD.";
     ----------------------------------------------------------------------
     procedure Demo;
     ----------------------------------------------------------------------
     -- File I/O unique
     ----------------------------------------------------------------------
     subtype Line_Type is string ( 1..255 );

     function Append (
       File_From   : string;
       File_To     : string;
       File_Temp   : string  := "FileAKD.Tmp";
       Delete_From : boolean := false )
       return boolean;
     procedure Copy (
       From : in     string;
       To   : in     string );
     procedure Delete (
       File_Name : in    string );

     ----------------------------------------------------------------------
     ----------------------------------------------------------------------
     end FileAKD;