if im_isgood (status)then
Put_Line ("Control Key ENABLED");
Put_Line ("q to quit");
loop
exit when in_char = 'q';
Get(in_char);
end loop;
else
Put ("Enable Ctrl Key error = ");
SYSWORD_IO.Put (status, Width => 8);
New_Line;
end if;
end setclkey;
3
im_set_control_key
3-111