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 3 col- + SWAP DO I C@ 0x20 MAX EMIT LOOP ;
: bufs
    1 aty ." I: " IBUF bufp
    2 aty ." F: " FBUF bufp
    large? IF 0 3 gutter THEN ;
: VE
    clrscr 0 ACC ! 0 PREVPOS ! nums 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 -- )`
VE: allow usage on screens narrower than 67 columns Previously, display would be completely broken. We have yet to add a way to display the "right" part of a buffer on such smaller displays. 2020-11-14 07:52:12 +11:00			`DUP 3 col- + 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: allow usage on screens narrower than 67 columns Previously, display would be completely broken. We have yet to add a way to display the "right" part of a buffer on such smaller displays. 2020-11-14 07:52:12 +11:00			`2 aty ." F: " FBUF bufp`
			`large? IF 0 3 gutter THEN ;`
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: decouple from core's LIST I'm planning on de-hardcoding columns in VE a bit to add support for screens narrower than 67 columns. There's a lot of hardcoding. Let's begin with not using core's LIST anymore. This allows us to spit 1-16 numbers only at startup. 2020-11-14 07:19:00 +11:00			`clrscr 0 ACC ! 0 PREVPOS ! nums 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) ;`