Intermec Janus 2010 Reference Manual page 119

Example
With System, Text_IO, Intrmecd_IO, Intrmecp_IO;
Use System, Text_IO, Intrmecd_IO, Intrmecp_IO;
procedure numpadon Is
status : System.Word;
in_char : Character := ' ';
begin
Put_Line ("Turn numlock ON/OFF");
-- IM_NUMLOCK_ON : Number pad enable with Numlock ON
status := im_number_pad_on (IM_NUMLOCK_ON);
Put_Line ("NP enable NL ON");
Put_Line ("q to quit");
loop
exit when in_char = 'q';
Get (in_char);
end loop;
New_Line;
in_char := ' ';
-- IM_NUMLOCK_OFF : Number pad enable with Numlock OFF
status := im_number_pad_on (IM_NUMLOCK_OFF);
Put_Line ("NP enable NL OFF");
Put_Line ("q to quit");
loop
exit when in_char = 'q';
Get (in_char);
end loop;
end numpadon;
3
im_number_pad_on
3-79