home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Database / CLIPR502.DOS / SOURCE / SAMPLE / FKLABEL.PRG < prev    next >
Encoding:
Text File  |  1993-02-15  |  367 b   |  21 lines
  1. /***
  2. *
  3. *  Fklabel.prg
  4. *
  5. *  Summer '87 FKLABEL() Compatibility Routine
  6. *
  7. *  Copyright (c) 1993, Computer Associates International Inc.
  8. *  All rights reserved.
  9. *
  10. */
  11.  
  12.  
  13. /***
  14. *    FKLABEL( <nFunKey> )
  15. *
  16. *    Return the name of the <expN>th programmable function key
  17. */
  18. FUNCTION FKLABEL(cl_1)
  19.     RETURN IF( cl_1 <= 40 .AND. cl_1 > 0, "F"+LTRIM(STR(cl_1)), "")
  20.  
  21.