45798: Code for printing routine to display short name of current character

{short name of Current Character}