F16 File of text und writeln

     
...
var F: File of text

Procedure testfile;
begin
      f16_changedir('');
      if not f16_pathexist('testdir') then
        f16_createdir('', 'testdir, 0, 0);
      endif;
      f16_changedir('testdir);
      writeln(serout, f16_getcurdir);
      f16_fileassign(F, 'testdir', 'test.txt');
      f16_filerewrite(F, [], 0, 0);
      writeln(F, 'Hallo');
      F16_Fileclose(f);
end;