如何做（！kbhit（））COBOL等价？

Question

我想使用isCOBOL编译器在COBOL中检测按键事件。怎么做？

EX在C：

if(time==despert_time){ while(!kbhit()){ Beep(500,500); } }

Answer 1

它看起来像你想从控制台的用户交互。 如果它是不是一个时间框架内发生的事情：哔

PERFORM FOREVER *> or UNTIL EXIT or UNTIL 0 = 1, depending on the available extensions 
    ACCEPT OMITTED *> or ACCEPT DUMMY [which you'd define as 77 DUMMY PIC X.], depending on the available extensions 
     BEFORE TIME 500 *> [or WITH TIMEOUT 500] this is a more or less common extension, with most vendors using a different time scale --> may need to change the 500 
    END-ACCEPT 
    IF keypressed NOT = timeout *> the actual var to be checked and the timeout value need to be checked in the docs 
     EXIT PERFORM 
    END-IF 
    CALL x'E5' 
     ON EXCEPTION *> the system call x'E5' for beep may not be available 
     DISPLAY SPACE AT 2080 WITH BEEP *> may not be available, too... 
    END-CALL 
END-PERFORM 

检查联机文档附带编译器（这是“适用于客户端只”，因此，我们无法查询）。