\ show-space  ( -- )    displays the amount of remaining space in the
\                       resident and transient dictionaries

: show-space	( -- )
	push-decimal
	." Bytes available (decimal): Resident: " limit here - .
	."  Transient " hedge there - .  cr pop-base ;
