(WHILE 1
	(SETQ K 20) ; 2s delay start
	(WHILE K 
		(DELAY 100)
		(IF (EQ A 0) (SETQ K 20))
		(SETQ K (SUB K 1)))
	(SETQ X 1)
	(DELAY 5000) ; 5s delay work
	(SETQ X 0)
)