-- $Source: /commtar/monoBANK/CICS_INTF/tiotst.ada,v $ 
-- $Revision: 1.1 $ $Date: 88/03/27 12:52:07 $ $Author: chris $ 
with text_io;
procedure tiotst is
    package TIO renames Text_io;
    input : string(1..80);
    last : natural;
begin
    TIO.put_line("write using text_io");
    TIO.put_line("write a second line");
    TIO.put_line("enter something");
    TIO.new_page;
    TIO.get_line(input, last);
    TIO.put_line("just got the following: " & input(1..last));
    TIO.new_page;
end tiotst;