Example
With System, Bit, Text_IO, Intrmecd_IO, Intrmecp_IO;
Use System, Bit, Text_IO, Intrmecd_IO, Intrmecp_IO;
procedure numpadof Is
package SYSWORD_IO is new INTEGER_IO (System.Word);
status
: System.Word;
in_char : Character := ' ';
begin
status := im_number_pad_off;
if not(Tstbit(status, 15)) then
Put_line ("Number pad disable");
Put_Line ("q to quit");
loop
exit when in_char = 'q';
Get (in_char);
end loop;
else
Put ("Nmbr Pad Off error = ");
SYSWORD_IO.Put (status, WIDTH => 8);
New_Line;
end if;
end numpadof;
3
im_number_pad_off
3-77