Intermec Janus 2010 Reference Manual page 108

im_irl_y
if im_isgood(status) then
Put_Line("Protocol No change");
-- Display printable characters
for i in Integer range 1..256 loop
exit when irl_string(i) = Ascii.NUL;
if irl_string(i) in ' '..'~' then
Put(irl_string(i));
else
Put('?');
end if;
end loop;
New_Line;
else
im_message(status);
New_Line;
end if;
end loop;
end if;
-- Unlink to protocol handler.
link_status := im_unlink_comm(IM_COM1);
-- Set Reader Wedge mode back to Virtual Wedge mode
im_set_input_mode(IM_WEDGE);
-- Set display mode back to 80X25
display_status := im_set_display_mode(IM_SIZE_MODE_80X25,
IM_STD_VIDEO_MODE_3, IM_LCD_SCROLL_AT_16, IM_STANDARD_CHAR_HEIGHT);
end ex_irl_y;
3-68