(WHILE 1
	(WHILE (EQ A 0))
	(SETQ X 1)
	(WHILE (EQ A 1))
	(SETQ K 100)
	(WHILE K 
		(DELAY 10)
		(IF (EQ A 1) (SETQ K 100))
		(SETQ K (SUB K 1)))
	(SETQ X 0)
)(STOP)