Survey_text_io_test (Cave Survey Code in Ada):

--  © Copyright 1999 by John Halleck
--  All rights reserved.

--  Diddly test routine.

with Text_IO;        use Text_IO;
with Survey.Text_IO; use Survey.Text_IO;

procedure Survey_Text_Io_Test is
   Put ("Test routine for the survey Text IO routines.");
end Survey_Text_Io_Test;

Go to ...

This page is
© Copyright 2000 by John Halleck, All Rights Reserved.
This snapshot was last modified on February 1st, 2001
And the underlying file was last modified on November 11th, 1999