collapseos/blk/131

: UPPER DUP 'a' 'z' =><= IF 32 - THEN ;
: 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) ;
Remove Extra words The few extra bytes they save in the core aren't worth the extra complexity. This was initially done in a context where I had troubles keeping the RC2014 binary with SDC inside the 8K limit. At this point, even with the few extra bytes we add here, we're at 7200 bytes, so I'd say we're fine. 2020-09-22 04:40:53 +10:00			`: UPPER DUP 'a' 'z' =><= IF 32 - THEN ;`
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) ;`