Command SET FUNCTION Foundation

// The command associates a function key with a character 
// string. For this command, the function keys from 1-40 
// are numbered and are specified by their Inkey() code. 
// In the example, the command is provided using a #command 
// directive and the user defined function __SETFUNCTION(). 

#command SET FUNCTION <nFKey> [TO] [<cString>] ; 
   => __SETFUNCTION( <nFKey>, #<cString> ) 


FUNCTION __SETFUNCTION( nFKey, cString ) 
   IF GetEnableEvents() 
      DO CASE 
         CASE nFKey <= 10 
            nFKey := nFKey + xbeK_F1 - 1 
         CASE nFKey <= 20 
            nFKey := nFKey + xbeK_CTRL_F1 - 11 
         CASE nFKey <= 30 
            nFKey := nFKey + xbeK_ALT_F1 - 21 
         CASE nFKey <= 40 
            nFKey := nFKey + xbeK_SH_F1 - 31 
      ENDCASE 

      IF Len( cString) == 0 
         RETURN SetAppEvent( nFKey, NIL) 
      ENDIF 
      RETURN SetAppEvent( nFKey, {|| _Keyboard( cString ) } ) 
   ELSE 
      nFKey := IIf( nFKey == 1, 28, 1 - nFKey ) 

      IF Len( cString) == 0 
        RETURN SetKey( nFKey, NIL) 
      ENDIF 
      RETURN SetKey( nFKey,{|| _Keyboard( cString)}) 
   ENDIF 
RETURN NIL