How about your own replacement in your code or XL.

Sorry, my pascal is not ingrained, as you can C.
  :SETVAR CCOPTS "-Aa -C +e +w1"
  :CCXLLK FSC,FSP,,-DTEST
  :run FSP
/*----------------------------------------------------------------*/
/* file fsc */
/* freadseek wrapper */

#pragma list off

#define  _MPEXL_SOURCE

#include <stdio.h>
#include <mpe.h>

#pragma intrinsic HPSETCCODE     mpe_hpsetccode
#pragma intrinsic CCODE          mpe_ccode

typedef  short       i16;
typedef  int         i32;
/*----------------------------------------------------------------*/

void FREADSEEK ( i16 fn, i32 rec )
{
/* Do nothing; except say all is ok */
   mpe_hpsetccode ( CCE );
}
/*----------------------------------------------------------------*/

#ifdef   TEST
#undef   TEST

int main ( int ac, char* av [] )
{
   int   cc;

/* call my FREADSEEK and test return status */
   FREADSEEK ( 10, 23 );
   cc = mpe_ccode ();
   printf ( "CC%c\n", "GLE?" [cc] );
}
#endif
/*----------------------------------------------------------------*/

_______________________________________________
Keven Miller       [log in to unmask]

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *