PRB: INKEY() May Return Same ASCII Values for Different Keys

Step-by-Step Resolution

1. Place the following code into a program (.prg) file, and then run it.

      i=1
      tmpcompt=SET('COMPATIBLE')
      SET COMPATIBLE OFF
      FOR i= 1 TO 2                         && Sets up 2 passes in loop
         DEFINE WINDOW keypress FROM 4,4 TO 20,75 DOUBLE TITLE "This is with ;
             Set Compatible "+ IIF(SET('COMPATIBLE') ='ON','DB4','OFF')
         ACTIVATE WINDOW keypress
         @ 6,16 SAY 'Press a key to start or press the Esc key to quit'
         @ 8,16 SAY ':'
         keyvar = 0             && Initialize inkey system memory variable
   
   
         *** Main program loop ***
         DO WHILE .T.
            keyvar = INKEY(0,'M')    && Get INKEY() value
            IF keyvar = 0            && No key press or mouse click
                LOOP                 && Creates Wait State
            ENDIF
            IF keyvar = 27           && ESC key pressed, exit main loop
                EXIT
            ENDIF
            IF keyvar # 151          && Not a mouse click
                CLEAR
                @ 10,16 SAY 'The ASCII code for the key you hit is ' + ;
                    ALLTRIM(STR(keyvar))
            ENDIF
         ENDDO                       && End of Main loop
         RELEASE WINDOW keypress
         SET COMPATIBLE DB4
      ENDFOR
      SET COMPATIBLE &tmpcompt
   						

2. Try pressing ALT+R and the LEFT ARROW key. Each will return an ASCII equivalent of 19 because the first time through, COMPATIBLE is set OFF.
3. Press the ESC key. The window will come back up with SET COMPATIBLE DB4.
4. Try pressing ALT+R, and the LEFT ARROW key again. ALT+R returns -418 and LEFT ARROW still returns 19.