#include "pmode.h"

long __pascal filesize (WORD handle)
{
  long t;
  int r;

  if ((t = filelseek (handle, 0, SEEK_CUR)) < 0)
    return t;

  if ((r = filelseek (handle, 0, SEEK_END)) < 0)
    return r;

  filelseek (handle, t, SEEK_SET);
  return r;
}