Intermec Janus 2010 Reference Manual page 61

None.
Return Value:
im_increase_contrast, im_decrease_contrast, im_set_contrast
See Also:
Example
With System, Text_IO, Intrmecd_IO, Intrmecp_IO;
Use System, Text_IO, Intrmecd_IO, Intrmecp_IO;
procedure getcontr Is
package SYSBYTE_IO is new INTEGER_IO (System.Byte);
package SYSWORD_IO is new INTEGER_IO (System.Word);
contrast : System.Byte;
status : System.Word;
begin
im_get_contrast (contrast, status);
Put_Line ("Getting contrast");
if im_isgood (status) then
Put_Line ("The contrast level");
Put ("setting is : ");
SYSBYTE_IO.Put (contrast, Width => 3);
else
Put ("Get Contrast error = ");
SYSWORD_IO.Put (status, WIDTH => 8);
end if;
New_Line;
end getcontr;
3
im_get_contrast
3-21