*********************************************************************** SUBROUTINE TOFKEY *********************************************************************** return end