14 lines
254 B
Text
14 lines
254 B
Text
#include <flow.h>
|
|
|
|
DEF-MAIN(argv, argc)
|
|
BREAK-ON
|
|
SET(c,0)
|
|
WHILE (1)
|
|
COND( KEY-PRESSED? )
|
|
SCAN-CODE(c)
|
|
BREAK-IF ( c ) IS-ESCAPE
|
|
CEND
|
|
PRNL( "CODE = ", c )
|
|
WEND
|
|
PRNL( "Last key pressed: ", c )
|
|
END
|