DOCUMENT:Q108345  04-MAY-2001  [fortran]
TITLE   :DOCERR: GetCharQQ Not Accepting Direction Keys in QuickWin
PRODUCT :Microsoft Fortran Compiler
PROD/VER::1.0,4.0
OPER/SYS:
KEYWORDS:kbcode kbFortranPS kbLangFortran

======================================================================
-------------------------------------------------------------------------------
The information in this article applies to:

 - Microsoft Fortran Powerstation 32 for Windows NT, versions 1.0, 4.0 
-------------------------------------------------------------------------------

SYMPTOMS
========

Page 553 of the Microsoft FORTRAN PowerStation 32 "Programmer's Guide" states
that GetCharQQ will not accept function keys under QuickWin. The manual fails to
state that direction keys are also not accepted by GetCharQQ under QuickWin.

CAUSE
=====

QuickWin uses the direction keys to scroll the active window. The direction keys
are trapped by QuickWin before GetCharQQ has a chance to interpret them.

STATUS
======

Microsoft has confirmed this to be a problem in Microsoft FORTRAN PowerStation
32 version 1.0. We are researching this problem and will post new information
here in the Microsoft Knowledge Base as it becomes available.

NOTE: Under FORTRAN PowerStation 4.0, GetCharQQ will accept function keys under
QuickWin. Direction keys are still trapped by QuickWin for scrolling the active
window.

MORE INFORMATION
================

The sample program below, built as a QuickWin application, does not work with
the direction keys. The same program built as a console application can identify
direction keys. This is done by using the extended code obtained by calling
GetCharQQ a second time.

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

Additional query words: 1.00

======================================================================
Keywords          : kbcode kbFortranPS kbLangFortran 
Technology        : kbAudDeveloper kbFortranSearch kbZNotKeyword2 kbFORTRANPower32100NT kbFORTRANPower32400NT
Version           : :1.0,4.0

=============================================================================

THE INFORMATION PROVIDED IN THE MICROSOFT KNOWLEDGE BASE IS
PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND.  MICROSOFT DISCLAIMS
ALL WARRANTIES, EITHER EXPRESS OR IMPLIED, INCLUDING THE WARRANTIES
OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.  IN NO
EVENT SHALL MICROSOFT CORPORATION OR ITS SUPPLIERS BE LIABLE FOR
ANY DAMAGES WHATSOEVER INCLUDING DIRECT, INDIRECT, INCIDENTAL,
CONSEQUENTIAL, LOSS OF BUSINESS PROFITS OR SPECIAL DAMAGES, EVEN IF
MICROSOFT CORPORATION OR ITS SUPPLIERS HAVE BEEN ADVISED OF THE
POSSIBILITY OF SUCH DAMAGES.  SOME STATES DO NOT ALLOW THE EXCLUSION
OR LIMITATION OF LIABILITY FOR CONSEQUENTIAL OR INCIDENTAL DAMAGES
SO THE FOREGOING LIMITATION MAY NOT APPLY.

Copyright Microsoft Corporation 2001.