; ---------------------------------------------------------------------------
; eft_read.cmm
;
; This script is READING the EFT Flash area and saving it to a FILE
;
; ---------------------------------------------------------------------------
  PMACRO.EXPLICIT

  ; show path and name of this script (present practice file)
  ECHO ""
  ECHO %COLOR.BLUE "### " OS.PPF() " ###"

; ---------------------------------------------------------------------------

  PRIVATE &filename &extension

; ---------------------------------------------------------------------------
; dialog to select the filename
  DIALOG.File.SELECT "*.hex"
  ENTRY %LINE &filename

  IF "&filename"!=""
  (
    IF OS.FILE.EXTENSION(&filename)==""
    (
      &filename="&filename.hex"
    )

    ECHO %COLOR.GREEN "Saving EFT data &eft_range to &filename"

    SYStem.Up

    FLASH.AUTO &eft_range

    Data.SAVE.S3record &filename &eft_range /SkipErrors

    FLASH.AUTO CANCEL
  )
  ELSE
  (
    ECHO %COLOR.RED "ERROR: No file name specified!"
  )

  ENDDO