[comp.sys.apple2] Help converting Turbo-Pascal -> ORCA/Pascal

$CSQ320@SN01.SNCC.LSU.EDU (John Mills) (02/27/91)

Hi y'all
  Do any you guys out there kown how to implement the following piece of
Turbo-pascal code in ORCA/Pascal?  What gets me stumped is the way TP
handles its I/O error checking.  Is there any way to do this with 
ORCA/Pascal?
  Any help will be greatly appreciated.
     --  John Mills

      .
      . 
      .
 var
   cardfile : text;

 procedure Opencards;
    {This procedure must open the input file, and display an error message 
       and exit if there is one}
 
      begin
        assign(cardfile,'CARDS.DAT');

        (*$i-*)   {Turbo-Pascal says this shuts OFF I/O error checking}

        reset(cardfile);

        (*$i+*)   {Turbo-Pascal says this turns ON I/O error checking} 

        if ioresult <> 0 then    {Function or var with I/O result code}
         begin
           writeln('Error opening input file');
           halt (* HALT is a GOTO just before the END. statement *)
         end
      end;
      .
      .
      .

===================================
Inet: $csq320@lsuvax.sncc.lsu.edu
===================================