program GetCurrentDir;

uses
  KolibriOS, CRT;

const
  AppPath = PPKolibriChar(32);
  CmdLine = PPKolibriChar(28);

  BUFFER_SIZE = 256;

var
  Buffer: array[0..BUFFER_SIZE - 1] of KolibriChar;

begin
  InitConsole('Get Current Directory');

  GetCurrentDirectory(Buffer, BUFFER_SIZE);

  WriteLn('AppPath is "%s"', [AppPath^]);
  WriteLn('CmdLine is "%s"', [CmdLine^]);
  WriteLn('Current Directory is "%s"', [Buffer]);
end.