program WIN32CUI 'test';

#include 'ch.zir';
#include 'fileio.zir';

////////
const strFileName = 'text.txt';
ZFile file;
char buf[512];
/////

inline procedure doFileOperation() {
  file.writeBuffer('Hello, World!\r\n');

  file.setSOF();

  file.readBuffer(@buf, 512);
  file.close();
  print(@buf);
}

if (file.append(strFileName) == True) {
  print('Appending file "', strFileName, '"\r\n');

  doFileOperation();
} else {
  print('Creating file "', strFileName, '"\r\n');

  if (file.create(strFileName) == True) {
    doFileOperation();
  } else {
    print('Unable to create file "', strFileName, '"\r\n');
  }
}

wait_key();
ExitProcess(0);