#include "RESOLVE_Foundation.h"

program_body main ()
{
    object Boolean finished;
    object Character_IStream input;
    object Character_OStream output;

    input.Open_External ("");
    output.Open_External ("");

    while (not finished)
    {
	object Text path;

	output << "\n\nEnter a path name, or return to quit: ";
	input >> path;

	finished = (path.Length () == 0);
	if (not finished)
	{
	    output << "\n File name: " << path
		   << "\n    Exists: " << File_Exists (path)
		   << "\n  Readable: " << File_Is_Readable (path)
		   << "\n Writeable: " << File_Is_Writeable (path)
		   << "\nExecutable: " << File_Is_Executable (path)
		   << "\n Directory: " << File_Is_A_Directory (path);
	}
    }
    
    input.Close_External ();
    output.Close_External ();
}