freepascal.compiler/packages/libndsfpc/examples/input/keyboard/keyboard_async/keyboardAsync.pp

program keyboardAsync;

{$mode objfpc}

uses
  ctypes, nds9;
  
var
  key: integer;

begin
  consoleDemoInit();  //setup the sub screen for printing
  
  keyboardDemoInit();
  
  keyboardShow();
  
  while true do
  begin
  
    key := keyboardUpdate();
  
    if (key > 0) then
      iprintf('%c', key);
  
    swiWaitForVBlank();
  end;

end.