Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!mnetor!uunet!husc6!cmcl2!rutgers!ames!sdcsvax!ucbvax!pro-carolina.UUCP!delton
From: delton@pro-carolina.UUCP (Don Elton)
Newsgroups: comp.sys.apple
Subject: orca/pascal
Message-ID: <8709201736.AA24680@crash.CTS.COM>
Date: Sun, 20-Sep-87 08:46:51 EDT
Article-I.D.: crash.8709201736.AA24680
Posted: Sun Sep 20 08:46:51 1987
Date-Received: Sun, 20-Sep-87 22:59:58 EDT
Sender: daemon@ucbvax.BERKELEY.EDU
Reply-To: pnet01!pro-sol!pro-carolina!delton@nosc.MIL
Organization: The ARPA Internet
Lines: 19

Has anyone come up with a working substitute for the following code in
Orca/Pascal?

Begin
        Repeat
                Write('Enter file name: ');
                ReadLn(fname);
                {$I-}
                reset(file,fname);
                {$I+}
        Until IOResult = 0;
End;

The docs didn't seem to be very clear on how to catch io errors (like file not
found) using the SYSTEMERROR procedure in your own code.

UUCP: [ ihnp4 sdcsvax nosc ] !crash!pnet01!pro-sol!pro-carolina!delton
ARPA: crash!pnet01!pro-sol!pro-carolina!delton@nosc.mil
INET: delton@pro-carolina.cts.com