Intermec Janus 2010 Reference Manual page 183

The (Row, Column) pair represents the upper left corner of the viewport
Notes:
being displayed.
The minimum value for both the Row and Column is (0,0), which is the
upper left corner of the virtual window. The maximum value is determined
by the video mode and the number of lines and columns displayed.
For example, for the normal video mode 3 (80X25 display) with a 20X16
display size, the maximum value of Row is 9 (25 minus 16) and the
maximum value of Column is 60 (80 minus 20).
Do not wraparound when changing the row and column viewport settings.
They are set to the maximum allowed for the current mode and display size.
To determine the actual values set, check the returned values of row and col.
This function has no effect on the JANUS 2050.
im_viewport_end, im_viewport_home, im_viewport_page_down,
See Also:
im_viewport_page_up, im_viewport_to_cursor, im_cursor_to_viewport
Example
With System, Bit, Text_IO, Intrmecd_IO, Intrmecp_IO;
Use System, Bit, Text_IO, Intrmecd_IO, Intrmecp_IO;
procedure vp_move Is
package STATUS_IO is new INTEGER_IO (System.Word);
package SYSWORD_IO is new INTEGER_IO (System.Word);
direction : IM_VIEWPORT_DIRECTION;
dir_type : Character := ' ';
distance : System.Word;
row : System.Word;
col : System.Word;
status : System.Word;
begin
Put_Line ("Enter direction ");
Put_Line (" 1 : up");
Put_Line (" 2 : down");
Put_Line (" 3 : left");
Put_Line (" 4 : right");
Put_Line (">>> ");
Get (dir_type);
case dir_type Is
when '1' => direction := IM_VIEWPORT_UP;
when '2' => direction := IM_VIEWPORT_DOWN;
when '3' => direction := IM_VIEWPORT_LEFT;
when '4' => direction := IM_VIEWPORT_RIGHT;
3
im_viewport_move
3-143