Figure 17.
The IMAGE attribute is awkward to use.
<![CDATA[
---------------------------------------------------------
procedure Move_Cursor_To(LINE : Line_numbers;
COL : Column_numbers) is
L, C : string(1..3);
begin
put(ESC & '[');
if LINE < 10 then
L(2..3) := integer'IMAGE(LINE);
put(L(3..3));
else
L(1..3) := integer'IMAGE(LINE);
put(L(2..3));
end if;
put(';');
if COL < 10 then
C(2..3) := integer'IMAGE(COL);
put(C(3..3));
else
C(1..3) := integer'IMAGE(COL);
put(C(2..3));
end if;
put('H');
end Move_Cursor_To;
]]>