im_set_follow_cursor
end if;
in_char := ' ';
New_Line;
status := im_set_follow_cursor (IM_ENABLE);
if im_isgood (status) then
Put_Line ("Follow cursor ENABLED");
Put_Line ("q to quit");
loop
exit when in_char = 'q';
Get(in_char);
end loop;
else
Put ("Enable Foll Curs error = ");
SYSWORD_IO.Put (status, Width => 8);
New_Line;
end if;
end setfolcr;
3-116