im_viewport_move
when others => direction := IM_VIEWPORT_RIGHT;
end case;
Put_Line ("Enter distance : ");
Put_Line (">>> ");
SYSWORD_IO.Get (distance);
New_Line;
im_viewport_move (direction, distance, row, col, status);
if im_issuccess (status) then
Put ("Row ");
SYSWORD_IO.Put (row, WIDTH => 4);
New_Line;
Put ("Col ");
SYSWORD_IO.Put (col, WIDTH => 4);
New_Line;
else
Put ("VP Move Error = ");
SYSWORD_IO.Put (status, WIDTH => 8);
New_Line;
end if;
end vp_move;
3-144