Figure 34.
The first version of Show.
<![CDATA[
---------------------------------------------------------
-- SHOW.ada
-- 9 June 1987
-- Do-While Jones
with TEXT_IO; use TEXT_IO;
procedure Show is
TEXT : string(1..200);
LENGTH : natural;
FILE : File_type;
begin
put("What file? ");
get_line(TEXT,LENGTH);
Open(FILE, IN_FILE, TEXT(1..LENGTH));
MAIN:
loop
for i in 1..22 loop
exit MAIN when End_Of_File(FILE);
get_line(FILE, TEXT, LENGTH);
put_line(TEXT(1..LENGTH));
end loop;
put_line("Press RETURN for the next screen");
get_line(TEXT,LENGTH);
end loop MAIN;
exception
when NAME_ERROR =>
put("File """);put(TEXT(1..LENGTH));
put_line(""" could not be found.");
end Show;
]]>