#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