*copyc amt$file_contents
*copyc fsc$file_contents

  FUNCTION [INLINE] fsp$contents_is_legible
    (    file_contents: amt$file_contents): boolean;


    fsp$contents_is_legible := (file_contents = fsc$legible_data) OR
          (file_contents = fsc$legible_scl_procedure) OR
          (file_contents = fsc$legible_scl_include) OR
          (file_contents = fsc$legible_scl_job);

  FUNCEND fsp$contents_is_legible;

