Intermec Janus 2010 Reference Manual page 147

timeout : System.Word := 10000;
returned_origin: IM_ORIGIN;
begin
status := im_link_comm(IM_COM1, comm_buff_ptr, comm_buff_size);
Put("Link status:");
im_message (status);
New_Line;
im_set_input_mode(IM_DESKTOP);
-- turn off protocol and make a <CR> the end of message char
Put_Line ("setting protocol");
status := im_serial_protocol_control(IM_COM1, IM_PROTOCOL_OFF, eom);
im_message (status);
New_Line;
label := (others => Ascii.NUL);
Put_Line ("Waiting for COM1 input");
im_receive_input(IM_COM1_SELECT, timeout, returned_origin,
label, receive_status);
im_set_input_mode (IM_WEDGE);
if IM_ISSUCCESS(receive_status) then
Put_Line("Rec status: ");
im_message (receive_status);
New_Line;
Put("Origin: ");
IM_ORIGIN_IO.Put(returned_origin, WIDTH => 8, BASE => 16);
New_Line;
Put_Line("Label:");
for i in Integer range 1..16 loop
exit when label(i) = Ascii.NUL;
if label(i) in ' '..'~' then
Put(label(i));
else
New_Line;
Put_Line("Unprintable char");
end if;
end loop;
New_Line;
else
Put_Line("Rec error");
im_message (receive_status);
New_Line;
end if;
-- turn off protocol
status := im_serial_protocol_control(IM_COM1, IM_PROTOCOL_OFF, Ascii.CR);
status := im_unlink_comm(IM_COM1);
end protctrl;
im_serial_protocol_control
-- 10 seconds
3
3-107