alias startend {
  .remove startend.durations.txt
  .remove startend.intervals.txt
  set %startend.no 1
  echo -a ---
  echo -a BEGINNING OF FILE
  echo -a ---
  :startend.abc
  set %startend.blinkstart $remove($remove($remove($read(startend.txt,%startend.no),OcularCorrection $+ $chr(44) Blink Start $+ $chr(44)), $chr(44) 1 $+ $chr(44) All),OcularCorrection $+ $chr(44) Blink End $+ $chr(44))
  if ($calc($calc( %startend.blinkstart - %startend.lastend )*0.98) > 0) && (%startend.no != 1) { write startend.intervals.txt $calc($calc( %startend.blinkstart - %startend.lastend )*0.98) | echo -a --- Intervall: $calc($calc( %startend.blinkstart - %startend.lastend )*0.98) $+ ms ( $+ $calc($calc($calc( %startend.blinkstart - %startend.lastend )*0.98)/1000) $+ sek) }
  inc %startend.no
  set %startend.blinkend $remove($remove($remove($read(startend.txt,%startend.no),OcularCorrection $+ $chr(44) Blink Start $+ $chr(44)), $chr(44) 1 $+ $chr(44) All),OcularCorrection $+ $chr(44) Blink End $+ $chr(44))
  inc %startend.no
  if (%startend.blinkstart == $null) { set %startend.interv.no $calc($calc( $readn - 1 )/2) | set %startend.dur.no $calc($calc( $readn - 1 )/2) | startend.avgdur | startend.avginterv | echo -a END OF FILE | echo -a --- | unset %startend.no | unset %startend.blinkstart | unset %startend.blinkend | unset %startend.lastend | halt }
  else {
    write startend.durations.txt $calc($calc( %startend.blinkend - %startend.blinkstart )*0.98)
    echo -a Start: %startend.blinkstart & End: %startend.blinkend & Duration: $calc($calc( %startend.blinkend - %startend.blinkstart )*0.98) $+ ms
    set %startend.lastend %startend.blinkend
    goto startend.abc
  }
}

alias startend.avgdur {
  :startend.avgdur
  inc %startend.avgdurcount
  if (%startend.avgdurcount < %startend.dur.no) {
    if (%startend.avgdurcount == 1) { set %startend.avgdurcalc $read(startend.durations.txt,1) | goto startend.avgdur }
    else { set %startend.avgdurcalc $calc( %startend.avgdurcalc + $read(startend.durations.txt,%startend.avgdurcount)) | goto startend.avgdur }
  }
  else {
    echo -a ---
    echo -a Average duration: $calc( %startend.avgdurcalc / %startend.dur.no ) $+ ms ( $+ $calc($calc( %startend.avgdurcalc / %startend.dur.no ) / 1000) $+ sek)
    echo -a ---
    unset %startend.avgdurcalc
    unset %startend.dur.no
    unset %startend.avgdur
    unset %startend.avgdurcount
  }
}

alias startend.avginterv {
  :startend.avginterv
  inc %startend.avgintervcount
  if (%startend.avgintervcount < %startend.interv.no) {
    if (%startend.avgintervcount == 1) { set %startend.avgintervcalc $read(startend.intervals.txt,1) | goto startend.avginterv }
    else { set %startend.avgintervcalc $calc( %startend.avgintervcalc + $read(startend.intervals.txt,%startend.avgintervcount)) | goto startend.avginterv }
  }
  else {
    echo -a Average interval: $calc( %startend.avgintervcalc / %startend.interv.no ) $+ ms ( $+ $calc($calc( %startend.avgintervcalc / %startend.interv.no ) / 1000) $+ sek)
    echo -a ---
    unset %startend.avgintervcalc
    unset %startend.interv.no
    unset %startend.avginterv
    unset %startend.avgintervcount
  }
}