Intermec Janus 2010 Reference Manual page 128

im_receive_buffer
-- quit if first char in buffer is a 'Q' or a 'q'
if ((data_buffer(1) = 'Q') or (data_buffer(1) = 'q')) then
done := TRUE;
end if;
end loop;
status := im_cancel_rx_buffer (IM_COM1);
if im_iserror(status) then
Put ("canc rx last = ");
im_message (status);
New_Line;
end if;
status := im_cancel_tx_buffer (IM_COM1);
if im_iserror(status) then
Put ("canc tx last = ");
im_message (status);
New_Line;
end if;
end rec_buff;
3-88