Figure 18.
The Image function is easy to use.
<![CDATA[
---------------------------------------------------------
procedure Move_Cursor_To(LINE : Line_numbers;
COL : Column_numbers) is
L, C : string(1..3);
begin
put(ASCII.ESC & '[');
put(string'(ASCII_UTILITIES.Image(LINE)));
put(';');
put(string'(ASCII_UTILITIES.Image(COL)));
put('H');
end Move_Cursor_To;
]]>