Intermec Janus 2010 Reference Manual page 141

The returned_source parameter specifies the actual input source and is one of
OUT Parameter:
the following constants:
IM_NO_SELECT
IM_LABEL_SELECT
IM_KEYBOARD_SELECT Keypad selected
IM_COM1_SELECT
IM_COM2_SELECT
IM_COM4_SELECT
The ret_string parameter retrieves the string received.
The status_code parameter is a standard status code listed in Appendix A,
"Status Codes."
Return Value: None.
If input from more than one source is received before this function is called,
Notes:
the first available input is returned in this order: label, keypad, COM1,
COM2, and COM4.
If you are using a communications port, you must install a protocol handler
and call im_link_comm.
You must install the Reader Wedge to use this function. For information on
loading RWTSR.EXE, see "Runtime Requirements" in Chapter 2, "Working
With Ada."
im_get_length, im_get_label_symbology, im_link_comm
See Also:
Example
With System, Text_IO, Intrmecd_IO, Intrmecp_IO;
Use System, Text_IO, Intrmecd_IO, Intrmecp_IO;
procedure recinput Is
package SYSWORD_IO is new INTEGER_IO (System.Word);
package SYMBOL_IO is new ENUMERATION_IO(enum => IM_DECTYPE);
symbol : IM_DECTYPE;
status : System.Word;
selected_origin : IM_ORIGIN := IM_LABEL_SELECT + IM_KEYBOARD_SELECT;
returned_origin : IM_ORIGIN;
label : String (1..256);
len : System.Word;
im_receive_input
No selection made
Label selected
COM1 selected
COM2, scanner (2010 and 2050)
COM4 selected (RF only)
3
3-101