Intermec Janus 2010 Reference Manual page 180

im_viewport_getxy
Example
With System, Text_IO, Intrmecd_IO, Intrmecp_IO;
Use System, Text_IO, Intrmecd_IO, Intrmecp_IO;
procedure vpgetxy Is
package SYSWORD_IO is new INTEGER_IO (System.Word);
row : System.Word;
col : System.Word;
status : System.Word;
wait_status : System.Word;
begin
im_viewport_getxy (row, col, status);
Put_Line ("Getting viewport");
if im_isgood(status) then
Put_Line ("Viewport:");
Put (" X :");
SYSWORD_IO.Put (row, Width => 3);
New_Line;
Put (" Y :");
SYSWORD_IO.Put (col, Width => 3);
New_Line;
else
Put_Line ("Viewport GetXY Error:");
SYSWORD_IO.Put (status, Width => 8);
New_Line;
end if;
Put_Line ("Setting viewport");
Put_Line ("row to 8");
Put_Line ("col to 10");
row := 8;
col := 10;
im_viewport_setxy (row, col, status);
wait_status := im_standby_wait(3000);
if im_isgood(status) then
Put ("Viewport:");
New_Line;
Put (" X :");
SYSWORD_IO.Put (row, Width => 3);
New_Line;
Put (" Y :");
SYSWORD_IO.Put (col, Width => 3);
New_Line;
else
Put_Line ("Viewport SetXY Error:");
SYSWORD_IO.Put (status, Width => 8);
New_Line;
end if;
end vpgetxy;
3-140