Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Posting-Version: version B 2.10.1 6/24/83; site islenet.UUCP
Path: utzoo!watmath!clyde!akgua!sdcsvax!noscvax!uhpgvax!islenet!todd
From: todd@islenet.UUCP (Todd Ogasawara)
Newsgroups: net.micro.pc
Subject: Re: Three Microsoft Pascal questions (sort of):
Message-ID: <364@islenet.UUCP>
Date: Fri, 27-Apr-84 12:24:18 EDT
Article-I.D.: islenet.364
Posted: Fri Apr 27 12:24:18 1984
Date-Received: Sun, 29-Apr-84 07:19:27 EDT
References: <12580@sri-arpa.UUCP>
Organization: Islenet Inc., Honolulu
Lines: 14

I only have the answer to the question of trapping i/o errors.  This
info is based on the older IBM Pascal (MS-Pascal is several generations
ahead) and may not be completely true for the new implementation.

	assign (fp, filename);	{filename assigned}
	fp.trap := true;	{trap errors here}
	if fp.errs = 10
	  then writeln('File ',filename,' does not exist.');

Each file has its own 'trap' and 'errs' system values.  Thus, you do
not need to declare 'fp.trap' and 'fp.errs'.  Hope this helps you.

Todd Ogasawara -- University of Hawaii -- Dept. of Psychology
          { dual,vortex,uhpgvax }!islenet!todd