Inkey$ routines...

 BBS: Inland Empire Archive
Date: 03-03-92 (20:21)             Number: 135
From: LYN BORCHERT                 Refer#: NONE
  To: MARGARET ROMAO                Recvd: NO  
Subj: Inkey$ routines...             Conf: (11) Modula-2

 > RV>The problem with this is that the UP ARROW and the "H" key
 > RV>BOTH produce 72, and the DOWN ARROW and the "P" keys BOTH
 > RV>produce 80.  I had a case where I wanted ARROW input (to go
 > RV>up and down the menu) *AND* letter input...

 > OK, OK, several  of you called me on  this one. I went and  tried
 > it out on one of my scrolling menu routines, and sure enough,
 > shift + h and shift + p make the little bar go up and down.

 > I would like  to thank all  of you who  pointed this out  to me,
 > you have saved me a lot of trouble and typing.

Here's a little something that returns a unique integer for any key pressed.

   EXAMPLE OF USE:  k% = Code%

DECLARE FUNCTION Code% ()

   FUNCTION Code% STATIC
       DO
           k$ = INKEY$
       LOOP UNTIL LEN(k$)
       Code% = CVI(k$ + CHR$(0))
   END FUNCTION


                                              -={ Lyn }=-

---
 * Origin: The Hour Glass  (602)326-2999  {Dual}  Home of BasicNet (1:300/12)