%BEGIN
%STRING(7)%MAP SYSTEM FILENAME(%STRINGNAME FILENAME)
%RESULT==FILENAME
%END
%RECORDFORMAT F(%INTEGER LINK,%STRING(8)FILEID,%STRING(100)FILENAME)
%RECORD(F)TABLE
%RECORD(F)%NAME FF
      TABLE_LINK=0
      TABLE_FILENAME="FORTFILE"
      FF==TABLE
      FF_FILEID=SYSTEMFILENAME(FF_FILENAME)
      %IF FF_FILEID#"FORTFILE" %THEN PRINTSTRING("
WRONG ANSWER OF ".FF_FILEID) %ELSE PRINTSTRING("TEST OK")
%ENDOFPROGRAM