{**********************************************************************}
{ Print 'Warning' in last line of the screen and make it blink         }
{**********************************************************************}

procedure demo_text_blink;
const
ENABLE = 1;
DISABLE = 0;
BLINKING_BLACK = 8;
GRAY = 7;
warning : array[0..6] of char = 'Warning';
var
i : integer;
begin
	text_blink(ENABLE);		{ Enable text blinking }
	for i := 0 to 6 do begin	{Display string	}
		write_char(warning[i],24,40+i);
		write_attribute(24,40+i, BLINKING_BLACK, GRAY);
	end;
end;