DISPLAY(Off!)
IF(NOT ?BlockActive)
PosCharNext PosCharPrevious
ASSIGN(VAR1;?RightChar)
ASSIGN(VAR2; CTON(VAR1))
     IF(VAR2<97)
          TYPE(TOLOWER(VAR1))
     ELSE
          TYPE(TOUPPER(VAR1))
     ENDIF
DelCharNext
ENDIF