[comp.sys.apple] orca/pascal

delton@pro-carolina.UUCP (Don Elton) (09/20/87)

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