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