dp p@  align dp p! 2pdrop

: ##### ;
: ##### ;


: threader
	s->r bcellsd
		@   
		100 XOR  
		! 
	r->s
;



: ( 
	29
	(O)
		dup this step 
			yes
			to2
        	maskbyte
        	if=             
                	yes         
                	to2
	ell
	to1
true
;



( Comments!  )



: (R ( ; 
: (P ( ; 


		(P &HNC ||| )  ( toggle hide bit )
: hide
	s->r bcellsd
		@  
		1000000 XOR  
		!
	r->s
;


	( a b c --- c_is_within_a<->b )
: within 
	swap over swap over 
	min if= ->r over min
	if=  <-r  maskbyte AND 
;
	

		( ignore to EOL, a, works in a definition 
		will ignore ; too!   ) 
: # 
	a
	(O)
		dup this step 
			yes
			to2
        	maskbyte
        	if=             
                	yes         
                	to2
	ell
	to1
true
;	' # threader 


: w 10 wo. ;


( dictionary/threading  stunts)


( one-shot immediate ) 
: now ' doHNC ;		' now threader


: snag ' ->code ;	' snag threader

: size 
	' pdup
	->link p@ gap x 
;


: cellstep 4 - dup 0 max if ;		( # --- #-4 flag )

: pd .p pdrop  		;
: pd5 pd pd pd pd pd    ;


			( not working yet )
: scan 
        ' pdup
        ->link p@ gap pdrop ->code 
		(O) 
			cellstep             no to2

		ell to1
						(O)
drop
;


: markers  a5a5a5a5a5 dup ->p ;



cr
