: DODIRECTIONALY ( addr --- )
	MDIRECTION @ 4 * + @ EXECUTE ;
: .^ ( --- )
	94 EMIT ;
: .> ( --- )
	62 EMIT ;
: .< ( --- )
	60 EMIT ;
: .V ( --- )
	86 EMIT ;
ALIGN
HERE
' .^ ,
' .> ,
' .V ,
' .< ,
CONSTANT DIRECTION

: .DIRECTION ( --- )
	 DIRECTION DODIRECTIONALY ;