X-Hacker.org- FORCE Data Base Compiler - ##############################################################################

Click above to get retro games delivered to your door ever month! X-Hacker.org- FORCE Data Base Compiler - ##############################################################################
[<<Previous Entry] [^^Up^^] [Next Entry>>] [Menu] [About The Guide]
##############################################################################
###+-----------+##############################################################
#+-| LASTKEY() |---------------------------------------------------+##########
#| +-----------+ Returns last key removed from the keyboard buffer |##########
#+-----------------------------------------------------------------+##########
##############################################################################
##############################################################################
#+--| Summary |------------+##################################################
#|     #INCLUDE io.hdr     |##################################################
#+-------------------------+##################################################
##############################################################################
##############################################################################
#+--| Syntax |-----------------------------+##################################
#|     FUNCTION UINT lastkey PROTOTYPE     |##################################
#+-----------------------------------------+##################################
##############################################################################
##############################################################################
###########+---| Description |------------------------------------+###########
###########| The lastkey() function returns the last key that was |###########
###########| removed from the keyboard buffer.                    |###########
###########+------------------------------------------------------+###########
##############################################################################
##############################################################################
#########+--| Example 1 |-------------------------------------------+#########
#########| *    Use lastkey() to check the terminating              |#########
#########| *    key of the READ command.                            |#########
#########|                                                          |#########
#########| READ                                                     |#########
#########| IF lastkey() = &K_ESC                                    |#########
#########|     RETURN                                               |#########
#########| ENDIF                                                    |#########
#########+----------------------------------------------------------+#########
##############################################################################
##############################################################################
#########+--| Example 2 |-------------------------------------------+#########
#########| *    GET allows the use of a keyboard filter.  Use       |#########
#########| *    lastkey() to retrieve the key in your GET           |#########
#########| *    keyboard filter routine.                            |#########
#########|                                                          |#########
#########| * This function provides an "upper" function.            |#########
#########| * This is identical to GET "@!"                          |#########
#########| FUNCTION INT keyboard_filter                             |#########
#########|     VARDEF                                               |#########
#########|         INT    k                                         |#########
#########|     ENDDEF                                               |#########
#########|                                                          |#########
#########|     k = lastkey()                                        |#########
#########|     IF k >= 'a' .AND. k =< 'z'                           |#########
#########|         k = k - 'a' + 'A'   && convert to upper case     |#########
#########|     ENDIF                                                |#########
#########|     RETURN k                                             |#########
#########| ENDPRO                                                   |#########
#########|                                                          |#########
#########|     *--- issue a GET that uses the above keyboard        |#########
#########|     *    filter function, keyboard_filter.               |#########
#########|                                                          |#########
#########|     @ 0,0 SAY "Using filter" GET char_var ;              |#########
#########|           FILTER keyboard_filter                         |#########
#########|     READ                                                 |#########
#########+----------------------------------------------------------+#########
##############################################################################
See Also: @ PROMPT get_key() inkey() is_key()
Online resources provided by: http://www.X-Hacker.org --- NG 2 HTML conversion by Dave Pearson