Keyclick.ada - Intermec Janus 2010 Reference Manual

KEYCLICK.ADA

-- File Name: keyclick.ada
--
-- Purpose : This sample program demonstrates how to enable and disable
-- the click when a key is pressed on the reader keypad. It
-- uses Intermec's Ada function im_set_keyclick and the procedure
-- im_get_keyclick to retrieve the current status.
--
-- COPYRIGHT (c) 1994 INTERMEC CORPORATION, ALL RIGHTS RESERVED
With System, Bit, Text_IO, Intrmecd_IO, Intrmecp_IO;
Use System, Bit, Text_IO, Intrmecd_IO, Intrmecp_IO;
procedure keyclick Is
keyclick_status : IM_CONTROL;
status_code : System.Word;
in_char : Character := ' ';
begin
im_get_keyclick (keyclick_status, status_code);
if keyclick_status = IM_ENABLE then
Put_Line ("Keyclick ENABLED");
else
Put_Line ("Keyclick DISABLED");
end if;
status_code := im_set_keyclick (IM_DISABLE);
if im_isgood(status_code) then
Put_Line ("Keyclick DISABLED");
Put_Line ("q to quit");
loop
exit when in_char = 'q';
Get (in_char);
end loop;
else
Put_Line ("Disable Keyclick error:");
im_message(status_code);
New_Line;
end if;
in_char := ' ';
New_Line;
status_code := im_set_keyclick (IM_ENABLE);
if im_isgood(status_code) then
Put_Line ("Keyclick ENABLED");
Put_Line ("q to quit");
loop
exit when in_char = 'q';
Get (in_char);
end loop;
B
KEYCLICK.ADA
B-5