Intermec Janus 2010 Reference Manual page 63

Example
With System, Text_IO, Intrmecd_IO, Intrmecp_IO;
Use System, Text_IO, Intrmecd_IO, Intrmecp_IO;
procedure getcntrl Is
control_key_status : IM_CONTROL;
status_code
begin
im_get_control_key (control_key_status, status_code);
if control_key_status = IM_ENABLE then
put_Line ("Ctrl key ENABLED");
else
put_Line ("Ctrl key DISABLED");
end if;
end getcntrl;
: System.Word;
3
im_get_control_key
3-23