-BLOCKS

	DEFINE("MAKEBOX(X,H,W)TB")			:(EBOX)
MAKEBOX
	MAKEBOX = FRONT(H,W) # X
	MAKEBOX = FIX(MAKEBOX)
	MAKEBOX = IT('|') MAKEBOX IT('|')
	TB = '+' REP('-') '+'
	MAKEBOX = TB % MAKEBOX % TB
	:(RETURN)
EBOX

	PRINT(MAKEBOX("HI", 3, 10))
END