如何做（！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 

檢查聯機文檔附帶編譯器（這是「適用於客戶端只」，因此，我們無法查詢）。