DEFINE Update_10
  LOCAL I
  LOCAL J
  LOCAL String_in
  LOCAL String_out
  EDIT_PART '/'
  DELETE ALL CONFIRM
  SPOTLIGHT OFF
  LET I 1
  LET J (LTAB_ROWS 'FBT_FTAB')
  LOOP
  EXIT_IF (I>J)
    LET String_in (READ_LTAB 'FBT_FTAB' I 1)
    IF (((String_in<>'hp_catfile') AND (String_in<>'hp_catlock')) OR
        ((String_in<>'HP_CAT.FIL') AND (String_in<>'HP_CAT.LCK')))
      TRAP_ERROR
      LOAD String_in
      IF (CHECK_ERROR)
        DISPLAY_NO_WAIT (String_in+' UnzulĖssige MI-Datei.')
        WAIT 1
      ELSE
        STORE MI ALL DEL_OLD String_in
        DELETE ALL CONFIRM
      END_IF
    END_IF
    LET I (I+1)
  END_LOOP
END_DEFINE