3C CONSTANT _#heading_max
	
	dictionary_create    CONFIG
    dictionary_variable  PU0_BAUD    
    dictionary_variable  PU1_BAUD   
\    dictionary_variable  PU_LC       
\    dictionary_variable  PU_AX       
\    dictionary_variable  PU_STARTUP 
    dictionary_variable  WATCHTIME      
    dictionary_create    $HEADING    _#heading_max dictionary_allot
    dictionary_create    $PASSWORD   20 dictionary_allot
    dictionary_create    %MYID       2  dictionary_allot
    dictionary_create    %HARDDISK   2  dictionary_allot
    dictionary_create    NEW_EDITOR  1  dictionary_allot
    dictionary_create    _spare      1  dictionary_allot
    dictionary_create   $local_driver      20 dictionary_allot
    dictionary_create   $PRINTER     20 dictionary_allot
	
    
	\ A horrible horrible kludge to set the target dictionary area as our
	\ compile area
	HERE                 \ Save so we can undo
    set_dictionary       \ Set W0 to base of area and allow for different areas
	CONFIG org           \ move to out base
	HERE                 \ for our calculations
		2580 t, 
		2580 t, 
\		00   t,      \ PU_LC
\		01   t,      \ PU_AX
\		00   t,      \ PU_STARTUP
		#2sec 2 * t, ( watchtime)
		," RTI1000 "
		HERE OVER - $PASSWORD CONFIG - SWAP - ALLOT
		," cvs"
		HERE OVER - %MYID CONFIG - SWAP - ALLOT
		2    tw, 
		0100 tw,
		0000 tw,
		," ws60"
		HERE OVER - $PRINTER CONFIG - SWAP - ALLOT
		," LX800"
	DROP ( start address of area)
	set_prom
	org