Intermec Janus 2010 Reference Manual page 103

IM_STD_VIDEO_MODE_0, IM_LCD_SCROLL_AT_16, IM_STANDARD_CHAR_HEIGHT);
Put_Line(" Example im_irl_v");
New_Line;
Put_Line("Enter 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);
loop
-- Clear input string
irl_string := (others => Ascii.NUL);
-- Set input source
source := IM_KEYBOARD_SELECT + IM_LABEL_SELECT;
-- Read input using im_irl_v
im_irl_v (IM_INFINITE_TIMEOUT, IM_ENABLE, IM_WEDGE_BEEP, IM_DISABLE,
source, irl_string, cmd_count, symbol, status);
exit when irl_string(1) = 'q';
if im_isgood(status) then
New_Line;
Put("Source: ");
if source = IM_LABEL_SELECT then
Put("Label");
elsif source = IM_KEYBOARD_SELECT then
Put("Keyboard");
end if;
New_Line;
Put("Data read::");
-- Display printable characters
for i in Integer range 1..256 loop
exit when irl_string(i) = Ascii.NUL;
if irl_string(i) in ' '..'~' then
Put(irl_string(i));
else
Put('?');
end if;
end loop;
Put("::");
New_Line;
Put_Line("The symbology read:");
SYMBOL_IO.Put(symbol);
New_Line;
else
im_message(status);
New_Line;
end if;
end loop;
-- Reset display mode and Reader Wedge mode
im_set_input_mode(IM_WEDGE);
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_v;
3
im_irl_v
3-63