collapseos/blk/131

: handle ( c -- f )
    DUP '0' '9' =><= IF num 0 EXIT THEN
    DUP CMD 2+ C! CMD FIND IF EXECUTE ELSE DROP THEN
    0 ACC ! UPPER 'Q' = ;
: bufp ( buf -- )
    DUP 64 + SWAP DO i C@ 0x20 MAX EMIT LOOP ;
: bufs
    1 aty ." I: " IBUF bufp
    2 aty ." F: " FBUF bufp 0 3 gutter ;
: VE
    clrscr 0 ACC ! 0 PREVPOS ! contents
    BEGIN status bufs setpos KEY handle UNTIL
    19 aty ;