I couldn't resist making this specialized tool... cus I love using MID$ for strings  
I think it makes a nice simple tool
 Code:      INPUT "give me a word : ",a$
      PRINT "THE last character is"
      PRINT "'"+FNendst(a$)+"'"
      END
      DEFFNendst(st$)
      LOCAL la%,res$
      la%=LEN(st$)
      res$=MID$(a$,la%,1)
      =res$