Intermec Janus 2010 Reference Manual page 86

im_input_status
Example
With System, Intrmecd_IO, Intrmecp_IO, Text_IO;
Use Intrmecd_IO, Intrmecp_IO, Text_IO;
procedure exinput is
label : String(1..256) := (others => Ascii.NUL);
input_status : IM_ORIGIN := IM_NO_SELECT;
receive_status : System.Word;
returned_origin : IM_ORIGIN;
begin
New_Line(2);
Put_Line(" Janus 2010 ");
Put_Line(" Input Status");
Put_Line("Input from keyboard");
Put_Line("or read label");
New_line;
im_set_input_mode(IM_DESKTOP);
-- Loop while waiting for im_input_status
while input_status = IM_NO_SELECT loop
input_status := im_input_status;
end loop;
Put("Input from ");
if input_status = IM_KEYBOARD_SELECT then
Put("Keyboard");
else
Put("Label");
end if;
New_Line;
-- Read input
im_receive_input(input_status, IM_ZERO_TIMEOUT, returned_origin,
label, receive_status);
if im_isgood(receive_status) then
Put(label);
New_Line;
else
Put("Rec status: ");
im_message(receive_status);
New_Line;
end if;
im_set_input_mode(IM_WEDGE);
end exinput;
3-46