When using the following piece of code to check wheter files are
initialised the first IOResult is always <>0 even if the file exists.

{$I-}
Reset(filename);
{$I}+
IF IOResult <> 0 THEN
  Rewrite(Filename);

With the second + File this operation works fine

Also when printing an error occurs when tring to assign to LPT1 using
code:

VAR
  Lst:Text;

BEGIN
......
 Assign(lst,'LPT1');
 ......
END;

These procedure work fine under windows 3.1 and dos (including DOS v7)

If you no why ths occuring please E-Mail me @

M...@europa.demon.co.uk

or write a reply to this newsgroup