Intermec Janus 2010 Reference Manual page 234

DISPMODE.ADA
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;
end if;
New_Line;
Put_Line("Setting disp mode");
Put_Line("Any key to continue");
Get(inchar);
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_Line ("Set Disp Mode error:");
im_message(status);
New_Line;
end if;
Put_Line("Press any key");
Get(inchar);
-- Reset display to some standard mode
status := im_set_display_mode (IM_SIZE_MODE_80X25,
end dispmode;
B-4
IM_STD_VIDEO_MODE_0,
IM_LCD_SCROLL_AT_25,
IM_DOUBLE_CHAR_HEIGHT);
IM_STD_VIDEO_MODE_3,
IM_LCD_SCROLL_AT_25,
IM_STANDARD_CHAR_HEIGHT);