Arrow Keys

 BBS: Inland Empire Archive
Date: 04-03-93 (11:48)             Number: 263
From: CRAIG PALAZZO                Refer#: NONE
  To: TOM COAKLEY                   Recvd: NO  
Subj: Arrow Keys                     Conf: (2) Quik_Bas
Perhaps this will help,

        WHILE INKEY$ <> "": WEND
        WHILE kbd$ = ""
                kbd$ = UCASE$(INKEY$)
        StdIn% =  CVI(kbd$ + CHR$(0))
        'LOCATE 1, 1: PRINT StdIn%

This function will return a unique integer value
for any key pressed. The values returned for the
arrows keys and the numeric keypad are the same.
I recommend that if you intend on using this in
an application that needs U/L case then write an
interrupt routine that traps the shift states.


your gonna need the line that has been commented
out. \:-)

--- Maximus 2.01wb
 * Origin: |=[Bloom Co. Hospital>=--- |[GRapids,MI] (616)361-8345 (1:228/26)
Outer Court
Echo Basic Postings

Books at Amazon:

Back to BASIC: The History, Corruption, and Future of the Language

Hackers: Heroes of the Computer Revolution (including Tiny BASIC)

Go to: The Story of the Math Majors, Bridge Players, Engineers, Chess Wizards, Scientists and Iconoclasts who were the Hero Programmers of the Software Revolution

The Advent of the Algorithm: The Idea that Rules the World

Moths in the Machine: The Power and Perils of Programming

Mastering Visual Basic .NET