36 lines
1.0 KiB
Plaintext
36 lines
1.0 KiB
Plaintext
|
-- SAMPLE1.ADA uses the standard package TEXT_IO
|
|||
|
|
|
|||
|
|
with TEXT_IO; use TEXT_IO;
|
|||
|
|
|
|||
|
|
procedure SAMPLE1 is
|
|||
|
|
|
|||
|
|
package INTIO is new INTEGER_IO (INTEGER);
|
|||
|
|
|
|||
|
|
F : FILE_TYPE;
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
NEW_LINE (3);
|
|||
|
|
PUT_LINE ("This is a string output to the standard file CON.");
|
|||
|
|
NEW_LINE; -- No parameter means default file and default number of lines
|
|||
|
|
PUT ("Following this string is an integer => ");
|
|||
|
|
INTIO . PUT (100); -- default width and base
|
|||
|
|
NEW_LINE;
|
|||
|
|
PUT ("... and the same integer in base 2 => ");
|
|||
|
|
INTIO . PUT (100, 10, 2); -- width 10 and base 2
|
|||
|
|
NEW_LINE (2);
|
|||
|
|
PUT_LINE ("Creating the file TEMP.TMP on default drive and directory.");
|
|||
|
|
CREATE (F, OUT_FILE, "TEMP.TMP"); -- No FORM
|
|||
|
|
for I in 1..15 loop
|
|||
|
|
PUT (F, "Line ");
|
|||
|
|
INTIO . PUT (F, I, 3);
|
|||
|
|
NEW_LINE (F);
|
|||
|
|
end loop;
|
|||
|
|
NEW_LINE;
|
|||
|
|
PUT_LINE ("The creation of TEMP.TMP was successful.");
|
|||
|
|
NEW_LINE (2);
|
|||
|
|
exception
|
|||
|
|
when NAME_ERROR =>
|
|||
|
|
PUT_LINE ("This is an exception handler for NAME_ERROR.");
|
|||
|
|
end SAMPLE1;
|
|||
|
|
|
|||
|
|
|