Intermec Janus 2010 Reference Manual page 107

loop
-- Clear input string
irl_string := (others => Ascii.NUL);
-- Read COM1 with protocol ON
im_irl_y (IM_INFINITE_TIMEOUT, IM_COM1, Ascii.CR, IM_PROTOCOL_ON,
irl_string, cmd_count, status);
exit when irl_string(1) = 'q';
if im_isgood(status) then
Put_Line("Protocol ON");
-- 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;
-- Clear input string
irl_string := (others => Ascii.NUL);
-- Read COM1 with protocol OFF
im_irl_y (IM_INFINITE_TIMEOUT, IM_COM1, Ascii.CR,
IM_PROTOCOL_OFF, irl_string, cmd_count, status);
exit when irl_string(1) = 'q';
if im_isgood(status) then
Put_Line("Protocol OFF");
-- 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;
-- Clear input string
irl_string := (others => Ascii.NUL);
-- Read COM1 with no change in protocol
im_irl_y (IM_INFINITE_TIMEOUT, IM_COM1, Ascii.CR,
IM_NO_CHANGE, irl_string, cmd_count, status);
exit when irl_string(1) = 'q';
3
im_irl_y
3-67