Intermec Janus 2010 Reference Manual page 90

im_irl_a
-- Set display mode to something other than 80X25
display_status := im_set_display_mode(IM_SIZE_MODE_20X16,
IM_STD_VIDEO_MODE_0, IM_LCD_SCROLL_AT_16, IM_STANDARD_CHAR_HEIGHT);
Put_Line(" Example im_irl_a");
New_Line;
Put_Line("Enter 8 AlphaNums");
Put_Line(" from keyboard");
Put_Line(" or read label");
Put_Line("q to quit");
-- Set Reader Wedge mode to program interface
im_set_input_mode(IM_PROGRAMMER);
mask(1..8) := "????????";
loop
-- Read input using im_irl_a
im_irl_a (timeout, length_table, mask, irl_string,
cmd_count, symbol, status);
exit when irl_string(1) = 'q';
if im_isgood(status) then
New_Line;
Put("Data read: ");
Put(irl_string(1..8));
New_Line;
Put_Line("The symbology read:");
SYMBOL_IO.Put(symbol);
New_Line;
else
im_message(status);
New_Line;
end if;
end loop;
-- Set Reader Wedge mode back to Virtual Wedge mode
im_set_input_mode(IM_WEDGE);
-- Set display mode back to 80X25
display_status := im_set_display_mode(IM_SIZE_MODE_80X25,
IM_STD_VIDEO_MODE_3, IM_LCD_SCROLL_AT_16, IM_STANDARD_CHAR_HEIGHT);
end ex_irl_a;
3-50
(IM_RANGE, 16, 17, 2),
(IM_NO_LENGTH, 2, 2, 2));