Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!wuarchive!zaphod.mps.ohio-state.edu!swrinde!elroy.jpl.nasa.gov!decwrl!deccrl!bloom-beacon!eru!hagbard!sunic!fuug!news.funet.fi!uwasa.fi!ts
From: ts@uwasa.fi (Timo Salmi)
Newsgroups: comp.lang.pascal
Subject: Re: Text Files, I/O Redirection
Message-ID: <1991May22.173317.1773@uwasa.fi>
Date: 22 May 91 17:33:17 GMT
References: <45670017@hpcupt3.cup.hp.com>
Organization: University of Vaasa, Finland
Lines: 40

In article <45670017@hpcupt3.cup.hp.com> defaria@hpcupt3.cup.hp.com (Andy DeFaria) writes:
>I have been having three problems lately in TP:

>	3) The  FileSize function  doesn't work on  Text files.  How  can I
>	   easily and  efficiently  get the FileSize  (in bytes) of  a Text
>	   file? 

Among other units /ts/tspa23##.arc (##=40,50,55,60) at
garbo.uwasa.fi (and SIMTEL20) archives contains:

TSUNTE: (uses Dos)
  ALLSIZFN Allocated true size of a file in bytes
  BORDER   Change border color (CGA, VGA)
  CAPS     Turn CapsLock on, or off
  CAPSONFN Get CapsLock status
  CLB      Clear the keyboard buffer
  CLUSIZFN Cluster size on a device (cluster is the allocation unit)
  CMDLNFN  Returns the entire command line
  CURSOFF  Turn off cursor (keeps other cursor attributes)
  CURSON   Turn cursor back on as it was
  CURSOR   Change cursor size
  DATEOKFN Is a date a valid, existing date
  FEXISTFN File existence status, handles ReadOnly files correctly
  FSIZE2FN File size in bytes, alternative method
  FSIZEFN  File size in bytes as in directory (never on open file)
  LASTDMFN The number of days in a given month and year
  MONOFN   Is it a monochrome
  NUMLOCK  Turn NumLock on, or off
  NUMLONFN Get NumLock status
  SCRLOCK  Turn ScrollLock on, or off
  SCRLONFN Get ScrollLock status
  WEEKNRFN Returns the week number for a given date
  WKDAYFN  Returns modern weekday
  ZELLERFN Zeller's congruence (for comparing dates etc)

...................................................................
Prof. Timo Salmi
Moderating at garbo.uwasa.fi anonymous ftp archives 128.214.12.37
School of Business Studies, University of Vaasa, SF-65101, Finland
Internet: ts@chyde.uwasa.fi Funet: gado::salmi Bitnet: salmi@finfun