Intermec Janus 2010 Reference Manual page 57

Example
With System, Bit, Text_IO, Intrmecd_IO, Intrmecp_IO;
Use System, Bit, Text_IO, Intrmecd_IO, Intrmecp_IO;
procedure deccontr Is
package SYSWORD_IO is new INTEGER_IO (System.Word);
status : System.Word;
begin
Put_Line ("Decreasing contrast");
status := im_decrease_contrast;
if Tstbit(status, 15) then
Put ("Dec contrast error = ");
SYSWORD_IO.Put (status, WIDTH => 8);
New_Line;
end if;
end deccontr;
im_decrease_contrast
3
3-17