#include "WIN32API.INC"

'Flag to indicate that Ctrl-Break was pressed.
GLOBAL BreakFlag AS LONG

FUNCTION pbmain AS LONG

'Set up the handler
SetConsoleCtrlHandler codeptr(Handler_CtrlBreak), %TRUE

'The break-flag is true. Ctrl-Break was pressed.
IF BreakFlag THEN
   STDOUT "Ctrl-Break pressed." 
END IF

'Free the callback.
SetConsoleCtrlHandler codeptr(Handler_CtrlBreak), %FALSE

END FUNCTION


'This is the capture function. This is called when Ctrl-Break is pressed.
FUNCTION Handler_CtrlBreak() AS LONG
    BreakFlag = %TRUE
END FUNCTION