freepascal.compiler/packages/libndsfpc/examples/graphics/Printing/ansi_console/AnsiConsole.pp

program AnsiConsole;

{$mode objfpc}

uses
  ctypes, nds9;
var
  keys: integer;
  
begin

  consoleDemoInit();

  // ansi escape sequence to clear screen and home cursor
  // #27 + [line;columnH
  iprintf(#27 + '[2J');

  // ansi escape sequence to set print co-ordinates
  // #27 + [line;columnH
  iprintf(#27 + '[10;10H' + 'Hello World!');

  // ansi escape sequence to move cursor up
  // #27 + [linesA
  iprintf(#27 + '[10A' + 'Line 0');

  // ansi escape sequence to move cursor left
  // #27 + [columnsD
  iprintf(#27 + '[28D' + 'Column 0');

  // ansi escape sequence to move cursor down
  // #27 + [linesB
  iprintf(#27 + '[19B' + 'Line 19');

  // ansi escape sequence to move cursor right
  // #27 + [columnsC
  iprintf(#27 + '[5C' + 'Column 20');

  while true do
  begin
    swiWaitForVBlank();
    scanKeys();
		keys := keysDown();
		if (keys and KEY_START) <> 0 then break;
  end;
end.