Intermec Janus 2010 Reference Manual page 176

im_transmit_byte
if (im_iserror(status)) then
Put ("tx byte status = ");
im_message (status);
New_Line;
end if;
end loop;
New_Line;
Put_Line ("Transmit done");
else
Put_Line("Com setup failed");
im_message (System.Word(setup_comm_status));
New_Line;
end if;
end txbyte;
3-136