;TIP554.LSP   Defining Function Keys   (c)1990, James Tseng
(defun C:FKEYS (/ FF ST)
  (setq FF
      (getint "Function Keys (3-10): "))
  (if (and (> FF 2)(< FF 11))
    (progn
      (setq
        FF (itoa(+ FF 58))
        ST (getstring T "Redefine as: ")
        ST (strcat "\e[0;" FF ";'" ST "';13p")
      )
      (textscr)
      (prompt ST)
      (graphscr)
   )
  )
) end of FKEYS
(textscr)
(prompt "\e[0;60;'fkeys';13p")
(graphscr)
(prompt "Hotkey: F2")
(princ)