/* Demo, display all 256 characters of a font */

BAREED_HOST = GetClip('BAREED')

IF BAREED_HOST = '' THEN DO
	CALL SetClip('BAREED')	/* Remove from ClipNode */
	EXIT 5
	END

ADDRESS VALUE BAREED_HOST

CALL SetClip('BAREED')		/* Remove from ClipNode */

/* ------------------- MAIN ---------------- */

set echo off
new "T:temp"
i = 0;

tell "WARNING: Now inserting characters that"'0a'x"may not be displayable and may force"'0a'x"other editors than BareED and perhaps"'0a'x"compilers too, to react incorrect!"

activate window

put chars '0a'x"Going to display all 256 characters of the specified font. Please note:"'0a'x"The zero (#0), the tab (#9) and the line feed (#10) are replaced through"'0a'x"space characters!"'0a'x'0a'x"Displaying 16 characters per line:"'0a'x'0a'x'0a'x
move cursor pageend

do while i < 256
	if i ~=  10 & i ~= 9 then
		put char d2c(i)
			else
		put char ' '	/* Instead of linefeed */

	i = i + 1
	j = i
	if  j % 16 * 16 == i then
		put char '0a'x
end