DOCERR: GetCharQQ Not Accepting Direction Keys in QuickWin

MORE INFORMATION

Sample Code

C Compile options needed: /MW (to duplicate problem)

      INCLUDE 'flib.fi'
      INCLUDE 'flib.fd'
      CHARACTER*1 key / 'A' / 
      WRITE (*,*) ' Type a key; (or q to quit)'
C     Read and display keys until ESC is pressed.
      DO WHILE (ICHAR(key) .NE. 27)
      key = GETCHARQQ()
C     If extended key, its control or function key
      IF ((ICHAR(key) .EQ. 0) .OR.
     +       (ICHAR(key) .EQ. 224)) THEN
            key = GETCHARQQ()
            WRITE (*,900) 'ASCII: no    Char: NA    '
C     Otherwise, there's only one key
      ELSE
            WRITE (*,900) 'ASCII: yes   Char: '
            WRITE (*,900) key
      END IF
            WRITE (*, 901) ICHAR(key), ICHAR(key)
      IF (key .EQ. 'q') EXIT
      END DO
900   FORMAT (1X, A, \)
901   FORMAT (1X, 'Decimal: ', I3, '   Hex: ',Z4, /)
      END