Olá,
encontrei uma possível solução
Código COBOL:
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 INDICEKEY PIC 9(03) VALUE 1.
01 keyBoard.
03 aKeyCode PIC S9(09) COMP-5 VALUE 0.
03 keys PIC X(256).
PROCEDURE DIVISION.
MOVE 0 TO aKeyCode
CALL "GetKeyState" WITH STDCALL USING aKeyCode
MOVE SPACES TO keys
CALL "GetKeyboardState" WITH STDCALL USING keys
IF keys(38:1) > X"01"
DISPLAY "LEFT"
END-IF
IF keys(39:1) > X"01"
DISPLAY "UP"
END-IF
IF keys(40:1) > X"01"
DISPLAY "RIGHT"
END-IF
IF keys(41:1) > X"01"
DISPLAY "DOWN"
END-IF
Agora posso terminar o jogo
Gracias, Emerson