Example
With System, Intrmecd_IO, Intrmecp_IO, Text_IO, RTEXT_IO, ITOOLS;
Use Intrmecd_IO, Intrmecp_IO, Text_IO, RTEXT_IO, ITOOLS;
procedure POSAMBLE is
package SYSBYTE_IO is new INTEGER_IO(System.Byte);
package SYSWORD_IO is new INTEGER_IO(System.Word);
use SYSBYTE_IO, SYSWORD_IO;
postamble_string : String(1..300) := (others => Ascii.NUL);
postamble_length : System.Word;
status
: System.Word;
begin
clrscr;
Put_Line("im_get_postamble example:");
New_line;
im_get_postamble(postamble_string, postamble_length, status);
Put("Postamble: ");
for i in Integer range 1..300 loop
exit when postamble_string(i) = Ascii.NUL;
Put(postamble_string(i));
end loop;
New_line;
Put("Length
: ");
Put(postamble_length);
New_line;
Put("Status
: ");
Print_status_code(status);
New_line;
end POSAMBLE;
3
im_get_postamble
3-37