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