: words
cr lp @
max do
118 do
	dup 0 =	if pop pop 2drop drop ret then
	colnorm
	dup 13 + c@
	dup 2 =	if colhigh then
	0 = if colneg then
	dup 4 +	write colnorm
	curx @ 10 mod 10 swap -	do space loop
	@
loop
cr 50 do asc = emit loop KBD_FW@ drop
loop ;

: statinc
inccur @ dup ."	depth: " d. cr
." <handle> <size> <current offset>" cr
incfiles swap 1+ do
	dup @ dup d. space dyns	d. space 4 + dup @ d. 4	+ cr
loop drop ;

: (cmdline
\ colhigh
200 dynal
0
cr
until
	KBD_FW@	( handle addr key )
	push
	0 swap 200 bound
	over dynp over + i swap	c!	( handle addr )
	1+
	i FC = if 2 - FC emit space then
	pop dup	FE - if			( handle addr )
		emit
	else
		drop space
		over dynresize	( handle )
		dyninc
		done
	then
loop \ colnorm
;

' (cmdline ' cmdline is

: ascii
until KBD_FW@ dup 1B = if done then
dup emit space d. space	loop ;

: fs. (	fname -- ) fsDloadnew dup dyn. dynde ;

: fsdisp ( fname -- )
screen cls 0 0 at! fs. cr
." press any key to continue ..."
KBD_FW@	drop ;

create tmpbuf 100 alloc
: s.
depth 2	- push
." depth: " i .	cr
1 i 400	bound? if
	i do
		i 4 * tmpbuf + !
	loop
	0 i for
		i 4 * tmpbuf + @ dup . tab.
	loop
then pop drop ;	rh tmpbuf

: bye 2dup push	push	\ R: n1	n2
i2 3 = if
	i FE = if halt then
then
." unbalanced stack: " swap . space . KBD_FW@ halt ;