36 lines
1.0 KiB
Ada
36 lines
1.0 KiB
Ada
-- 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;
|
||
|
||
|