Dispmode.ada - Intermec Janus 2010 Reference Manual

This appendix contains the Ada sample programs from your PSK Language
Libraries disk.

DISPMODE.ADA

-- File Name: dispmode.ada
--
-- Purpose: This sample program demonstrates how to change the display
-- mode of the reader. It uses Intermec's Ada procedure
-- im_get_display_mode to get the current display size mode,
-- video mode, scroll mode, and character height, then displays
-- each parameter on the screen. It also calls Intermec's Ada
-- function im_set_display_mode to change the display mode
-- to use double height characters and resets to normal
-- display mode before exiting.
--
-- COPYRIGHT (c) 1994 INTERMEC CORPORATION, ALL RIGHTS RESERVED
With System, Text_IO, Intrmecd_IO, Intrmecp_IO;
Use System, Text_IO, Intrmecd_IO, Intrmecp_IO;
procedure dispmode Is
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);
status : System.Word;
size : IM_STD_SIZE_MODE;
video : IM_STD_VIDEO_MODE;
scroll : IM_SCROLL_MODE;
char_ht : IM_CHARACTER_HEIGHT;
inchar : Character := ' ';
begin
-- RWTSR must be installed before running this program
Put_Line ("Getting disp mode");
New_Line;
im_get_display_mode (size, video, scroll, char_ht, status);
if im_iserror(status) then
Put_Line ("Get Disp Mode error:");
im_message(status);
New_Line;
else
Put ("size : ");
IM_STD_SIZE_MODE_IO.Put (size);
New_Line;
B
DISPMODE.ADA
B-3