{ OS-CPM86.PAS }
  { put all operating system-dependent routines here }

  procedure listcat;
    { List file names on standard output }
    { not yet implemented for this OS }
   begin
    ERROR('list: not implemented on this operating system');
   end;