Intermec Janus 2010 Reference Manual page 136

im_receive_buffer_noprot
else
Put_Line ("tx status = ");
im_message (status);
New_Line;
-- Since there was an error in the transmission, clear the buffer
-- and reset the comm port
status := im_cancel_tx_buffer (IM_COM1);
end if;
New_Line;
-- call Intermec receive function
im_receive_buffer_noprot (IM_COM1, RX_Buff_length, RX_data_ptr,
IM_INFINITE_TIMEOUT, eom_char, comm_length, status);
-- quit if first char in buffer is a 'Q' or a 'q'
if ((RX_data_buffer(1) = 'Q') or (RX_data_buffer(1) = 'q')) then
done := TRUE;
end if;
end loop;
-- Clear buffers and reset comm port
status := im_cancel_rx_buffer (IM_COM1);
status := im_cancel_tx_buffer (IM_COM1);
end exnoprot;
3-96