Remove Timestamps for DJOrwell

alias remstamp {
  var %file $iif($1,$1,$?="Enter the FULL path of the file to remove timetamps from")
  var %new $replace(%file,$right(%file,4),-remstamp $+ $right(%file,4))
  echo -ac info Removing timestamps from %file -- Creating %new
  var %i 1
  while (%i <= $lines(%file)) {
    tokenize 93 $read(%file,%i)
    write %new $iif($2,$2-,$1-)
    inc %i
  }
  run %new
}