im_irl_k
-- Read input from keyboard
im_irl_k (timeout, length_table, mask, irl_string, cmd_count, status);
exit when irl_string(1) = 'q';
if im_isgood(status) then
New_Line;
Put("Data::");
Put(irl_string(1..8));
Put("::");
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_k;
3-54