// Key code test — shows what Inkey returns for each key press
FUNCTION Main()
   LOCAL nKey
   CLS
   ? "Press keys to see codes. ESC to quit."
   ? ""
   DO WHILE .T.
      nKey := Inkey(0)
      ?? " [" + Str(nKey) + "]"
      IF nKey = 27
         EXIT
      ENDIF
   ENDDO
   ? ""
   ? "Done."
   RETURN NIL