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