uses UbixFS, Device, ramDrive, diskDrv, debug, strings, dos, crt, math;

var
   // drive : PRamDrive;
    drive:PDiskDrive;
    fs: PUbixFS;

begin

//  new(drive, init(2880)); // allocate a ramdrive that's 2880 sectors long (floppy size)
//  new(drive, init(8192*4)); // allocate a ramdrive that's big
  new(drive, init('ubixfs.dsk'));
  new(fs, init(drive));
  fs^.vfs_init();
  fs^.printSuperBlock();
  fs^.visualize();
  fs^.examine();

  dispose(fs, done);
  dispose(drive, done);

  writeln('sizeof(diskSuperBlock): ',sizeof(TdiskSuperBlock));
  writeln('sizeof(ubixfsInode): ',sizeof(TubixfsInode));
  writeln('sizeof(dataStream): ', sizeof(TdataStream));
end.