#!/usr/bin/perl -w
#
# Create/enlarge A8HI PBI-IDE hard disk image file.
#
# Written by Nathan Hartwell
#
# 1.0 - 12/18/2001 - Initial release
#
use strict;
use integer;
use Fcntl;

if ($#ARGV != 1)
{
  die "Must call with filename and size parameters!";
}
else
{
  my $file = $ARGV[0];
  my $size = $ARGV[1];

  sysopen(FD, $file, O_CREAT|O_RDWR)
    or die "Error opening '$file'\n";
  binmode(FD);
  seek(FD, $size - 1, 0);
  syswrite(FD, chr(0), 1);
  close(FD);
}