Someone

alias npcc {
  if ($did(nn,1).lines) > 1) {
    while ($did(nn,1).lines > %ct) {
      if ($did(nn,1,%ct) != $null) { 
        var %answer = $input(The text in %filename has changed. $crlf Do you want to save the changes?,n,Neural's Notepad Clone)
        if (%answer == $true) { npsf }
      }
    }
  }
  else { dialog -x nn nn }
}