FileMaker Pro Custom Functions

/* GetKeys by Fabrice Nordmann, BH&A v.1.0 May 18th, 2008 returns a list of keys held by user (Shift, Caps Lock, Control, Alt, Command) like Get ( ActiveModifierKeys ), but readable :-) */ Let ([ $x = Get ( ActiveModifierKeys ) ; t = Case ( $x >= 16 ; Let ([ $r = "Command" ; $x = $x - 16 ]; "" )) ; t = Case ( $x >= 8 ; Let ([ $r = List ( $r ; "Alt" ) ; $x = $x - 8 ]; "" )) ; t = Case ( $x >= 4 ; Let ([ $r = List ( $r ; "Control" ) ; $x = $x - 4 ]; "" )) ; t = Case ( $x >= 2 ; Let ([ $r = List ( $r ; "Caps Lock" ) ; $x = $x - 2 ]; "" )) ; t = Case ( $x = 1 ; Let ([ $r = List ( $r ; "Shift" )] ; "" )) ]; $r & Let ( $r = "" ; "" ) )
 Then copy & paste into FileMaker Advanced's Edit Custom Function window.