; from mua.c in the nsx distribution
; ----------------------------------------------------------------------
;   Finds the last occurence of a non-blank, non-carraige return
;   character in string "a".
;   The first character position is 0.
;   Returns -1 if string is completely blank.
;
function clc,a
  ia = strlen(a)
  ii = ia - 1
  c = strmid(a,ii,1)
  while ( (ii ge 0) and ( (c eq ' ') or (c eq string(12b)) or (c eq string(13b))) ) do begin
     ii = ii-1
     c = strmid(a,ii,1)
  end
  return, ii
;while ( (ii >= 0) && ((a[ii] == ' ')||(a[ii] == '\012')||(a[ii] == '\013')) ) { --ii; }

end