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 (infl) ;
VE: add 'o' and 'O' 2020-06-07 21:25:02 +10:00			`: handle ( c -- f )`
			`DUP '0' '9' =><= IF num 0 EXIT THEN`
			`DUP CMD 2+ C! CMD FIND IF EXECUTE ELSE DROP THEN`
VE: make ACC reset after each non-digit keystrokes It simplifies things. Also, removed ';' which became useless. 2020-06-11 06:54:36 +10:00			`0 ACC ! UPPER 'Q' = ;`
VE: add 'o' and 'O' 2020-06-07 21:25:02 +10:00			`: bufp ( buf -- )`
ed: rename I to i Shadowing core "I" is too messy. As soon as ed is loaded in memory, nothing else that isn't "i-aware" can be loaded anymore. I guess that's why "contexts" exist in Starting Forth, but adding this concept just for allowing the shadowing of core words seems overkill to me. Renaming I to i in ed seems better. 2020-06-23 21:08:21 +10:00			`DUP 64 + SWAP DO I C@ 0x20 MAX EMIT LOOP ;`
VE: add 'o' and 'O' 2020-06-07 21:25:02 +10:00			`: bufs`
			`1 aty ." I: " IBUF bufp`
VE: add gutter 2020-06-12 02:01:22 +10:00			`2 aty ." F: " FBUF bufp 0 3 gutter ;`
VE: use system input buffer for IBUF and FBUF typing This gives us backspace handling. Also, remove all usages of C< which allows us to remove the C<* override. 2020-06-12 10:31:18 +10:00			`: VE`
VE: make ACC reset after each non-digit keystrokes It simplifies things. Also, removed ';' which became useless. 2020-06-11 06:54:36 +10:00			`clrscr 0 ACC ! 0 PREVPOS ! contents`
VE: add 'o' and 'O' 2020-06-07 21:25:02 +10:00			`BEGIN status bufs setpos KEY handle UNTIL`
VE: Add dirtiness indicator in status bar Written from VE! 2020-06-12 11:52:08 +10:00			`19 aty (infl) ;`