Intermec Janus 2010 Reference Manual page 84
Intermec janus 2010: reference guide
Hide thumbs
Also See for Janus 2010:
- User manual (558 pages) ,
- Manual (15 pages) ,
- Quick reference manual (12 pages)
Table of Contents
Advertisement
im_increase_contrast
Example
With System, Text_IO, Intrmecd_IO, Intrmecp_IO;
Use System, Text_IO, Intrmecd_IO, Intrmecp_IO;
procedure incrcont Is
package SYSWORD_IO is new INTEGER_IO (System.Word);
status : System.Word;
begin
Put_Line ("Increasing contrast");
status := im_increase_contrast;
if im_iserror (status) then
Put ("Inc contrast error = ");
SYSWORD_IO.Put (status, WIDTH => 8);
New_Line;
end if;
end incrcont;
3-44
Advertisement
Chapters
Table of Contents
