: .HEADING  ( --) 
    	'HEADING @execute 
    ;
	 

.context ( --)

Print the search order.

 

	: .context ( --)
		GET-ORDER zero ?DO
			i' I - 1- ROLL   \ print the lowest first
			[ _#voc_name> _#voc_wid - ]T LITERAL + @ ?DUP IF
				name_count _#name_count_bits AND
			ELSE 
				S" Not_named" 
			THEN
			TYPE
			SPACE
		LOOP
	;


    : .task_name ( --)
		_%task_name> @ _%task_name_count @ TYPE 
	;
    

    : .prompt  ( --)
		seal W@ IF
    		.version SPACE .HEADING SPACE .task_name SPACE ." COMMAND>
    	ELSE
			.wd SPACE
    		.HEADING 
			SPACE 
			.task_name
			SPACE
			.context 
    		BASE @ DUP u>d
			DECIMAL <# # # #> TYPE
			BASE !
    		[CHAR] > EMIT
    	THEN   
    ;