function strlastchar, array ; ; ; barray=byte(array) ; byte version rbarray=reverse(barray) ; reverse byte version null=where(rbarray eq 0b,ncnt) ; find nulls if ncnt gt 0 then rbarray(null) = 32b ; blank fill nulss (avoid truncation) ; now extract the first (character of the reversed array retval=strmid(strtrim(string(rbarray),2),0,1) return,retval end