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,

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

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.

BTW,

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

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