Unnamed

Variable fd-in

: end-input ( -- )
    fd-in @ close-file ;

: read-fd-in ( -- )
    here 1 fd-in @ read-line throw ;

: get-input ( addr u -- )
    r/o open-file throw fd-in ! ;

: debug-now ( addr u -- )
    get-input
    read-fd-in invert
    if end-input exit then
    begin
	here C@ .
	read-fd-in invert
    until
    end-input ;