Click above to get retro games delivered to your door ever month!

  Name:     setkey() - get procedure assigned to a key via SET KEY TO
  Usage:    <string> = setkey(<key>)
  Params:   integer <key> - the inkey() value of the key you want
            to check
  Returns:  a string equal to the name of the procedure that is
            assigned to that key via SET KEY TO, or null if the
            key is unassigned.

 ---------------------------------- Example ---------------------------------

                 ? setkey(28)
                 * prints "" (null)

                 SET KEY 28 TO POPUP_HELP
                 ? setkey(28)
                 * prints "POPUP_HELP"

                      or:

                 tempstr = ""
                 if iskeyset(28)
                      tempstr = setkey(28)
                      set key 28 to ADDHELP
                 endif

                 do ADDproc

                 set key 28 to &tempstr