Intermec Janus 2010 Reference Manual page 154

im_set_display_mode
Example
With System, Text_IO, Intrmecd_IO, Intrmecp_IO;
Use System, Text_IO, Intrmecd_IO, Intrmecp_IO;
procedure setdpmod Is
package SYSWORD_IO is new INTEGER_IO (System.Word);
package IM_STD_SIZE_MODE_IO is new ENUMERATION_IO
(enum => IM_STD_SIZE_MODE);
package IM_STD_VIDEO_MODE_IO is new ENUMERATION_IO
(enum => IM_STD_VIDEO_MODE);
package IM_SCROLL_MODE_IO is new ENUMERATION_IO
(enum => IM_SCROLL_MODE);
package IM_CHARACTER_HEIGHT_IO is new ENUMERATION_IO
(enum => IM_CHARACTER_HEIGHT);
size : IM_STD_SIZE_MODE;
video : IM_STD_VIDEO_MODE;
scroll : IM_SCROLL_MODE;
char_ht : IM_CHARACTER_HEIGHT;
status : System.Word;
begin
status := im_set_display_mode (IM_SIZE_MODE_80X25,
if im_isgood (status) then
im_get_display_mode (size, video, scroll, char_ht, status);
Put ("size
IM_STD_SIZE_MODE_IO.Put (size);
New_Line;
Put ("video :");
IM_STD_VIDEO_MODE_IO.Put (video);
New_Line;
Put ("scroll:");
IM_SCROLL_MODE_IO.Put (scroll);
New_Line;
Put ("char_ht :");
IM_CHARACTER_HEIGHT_IO.Put (char_ht);
New_Line;
else
Put ("Set Disp Mode error = ");
SYSWORD_IO.Put (status, Width => 8);
New_Line;
end if;
end setdpmod;
3-114
IM_STD_VIDEO_MODE_0,
IM_LCD_SCROLL_AT_25,
IM_DOUBLE_CHAR_HEIGHT);
:");