Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!usc!samsung!uunet!shelby!agate!ucbvax!SN01.SNCC.LSU.EDU!$CSQ320
From: $CSQ320@SN01.SNCC.LSU.EDU (John Mills)
Newsgroups: comp.sys.apple2
Subject: Help converting Turbo-Pascal -> ORCA/Pascal
Message-ID: <06A8A97F00E0035F@LSUVAX.SNCC.LSU.EDU>
Date: 26 Feb 91 21:25:00 GMT
Sender: daemon@ucbvax.BERKELEY.EDU
Organization: The Internet
Lines: 40

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
===================================