BUG: PEEKCHARQQ Fails in QuickWin or Standard Graphics ProgramLast reviewed: July 3, 1997Article ID: Q150127 |
The information in this article applies to:
SYMPTOMSUsing the PEEKCHARQQ() run-time function to check the keystroke buffer for keyboard characters will fail, causing .false. to be returned as the function's result.
STATUSMicrosoft has confirmed this to be a bug in the Microsoft products listed at the beginning of this article. We are researching this problem and will post new information here in the Microsoft Knowledge Base as it becomes available.
MORE INFORMATION
Steps to Reproduce Problem
Sample Code! Compile options needed: /MW or /MWs
INCLUDE 'FLIB.FI' INCLUDE 'FLIB.FD' INTEGER COUNT LOGICAL DONE COUNT = 0 DONE = .FALSE.10 DO WHILE( (.NOT. DONE) .AND. (COUNT .LT. 100) ) WRITE(*, *) 'Press any key to exit' IF ( PEEKCHARQQ() ) THEN DONE = .TRUE. GOTO 10 END IF COUNT = COUNT + 1 END DO WRITE(*,*) 'Program terminated...' END |
Keywords : FORTLngIss kbprg
© 1998 Microsoft Corporation. All rights reserved. Terms of Use. |