Example
With System, Bit, Text_IO, Intrmecd_IO, Intrmecp_IO;
Use System, Bit, Text_IO, Intrmecd_IO, Intrmecp_IO;
procedure setcontr Is
package SYSBYTE_IO is new INTEGER_IO (System.Byte);
package SYSWORD_IO is new INTEGER_IO (System.Word);
status : System.Word;
level : System.Byte;
begin
Put_Line ("Enter Contrast (0-7)");
Put (">>> ");
SYSBYTE_IO.Get (level);
Skip_Line;
status := im_set_contrast (level);
if Tstbit(status, 15) then
Put ("Set Contrast Error = ");
SYSWORD_IO.Put (status, WIDTH => 8);
New_Line;
end if;
end setcontr;
3
im_set_contrast
3-109