program mkufs;

const DISKSIZE = 1024*1440;

var
  F : file;
  i : integer;
  sector:array[0..511] of byte;
begin
  assign(f, 'ubixfs.dsk');
  rewrite(f, 512);
  fillchar(sector, sizeof(sector), 0);
  for i := 0 to (DISKSIZE div 512) -1 do
    blockwrite(f, sector, 1);
  close(f);
end.