Retro video games delivered to your door every month!
Click above to get retro games delivered to your door ever month!
X-Hacker.org- The Guide To Clipper - <b>fklabel() function key name examplep.prg</b> http://www.X-Hacker.org [<<Previous Entry] [^^Up^^] [Next Entry>>] [Menu] [About The Guide]
FkLabel()      Function key name                       Examplep.prg


Syntax:        FkLabel()

Returns:       FkLabel() returns a character string in the form "F1"
               depending on the numeric value passed to it.  It is
               intended to return the name of the <expN>th programmable
               function key.  If the numeric argument is less than one
               or greater than 40, it returns a null ("") string.

Library:       EXTEND.LIB


--------------------------------- Source Code ------------------------------

   FUNCTION FkLabel
   PARAMETERS cl_1
   *
   RETURN IF(cl_1 <= 40 .AND. cl_1 > 0, "F" + LTRIM(STR(cl_1)), [])

Online resources provided by: http://www.X-Hacker.org --- NG 2 HTML conversion by Dave Pearson