  FUNCTION [INLINE] fsp$ve_wrote_ansi_file
    (    implementation_identifier: string (13)): boolean;

    VAR
      ve_wrote_it: string (8);

    ve_wrote_it := fsc$version_two_ve_identifier;
    fsp$ve_wrote_ansi_file := implementation_identifier (1, 8) = ve_wrote_it;

  FUNCEND fsp$ve_wrote_ansi_file;

?? PUSH (LISTEXT := ON) ??
*copyc fsc$version_two_ve_identifier
?? POP ??
