im_set_viewport_lock
loop
exit when in_char = 'q';
Get (in_char);
end loop;
else
Put ("Unlock VP error = ");
SYSWORD_IO.Put (status, Width => 8);
New_Line;
end if;
in_char := ' ';
New_Line;
status := im_set_viewport_lock (IM_ENABLE);
if im_isgood (status)then
Put_Line ("VP LOCKED");
Put_Line ("q to quit");
loop
exit when in_char = 'q';
Get (in_char);
end loop;
else
Put ("Lock VP error = ");
SYSWORD_IO.Put (status, Width => 8);
New_Line;
end if;
end setviewl;
3-122