collapseos/blk/130

: 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 ;
VE: replace 'W' with 'b' and implement 'W' and 'B' Which are end-of-word movements. 2020-06-07 11:01:35 +10:00			`: 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+ !`
VE: add command 'f' Kinda proud of this one. Efficiently piggy-backing on the Block Editor, keeping things simple, and yet, building power into the editor. 2020-06-07 11:46:46 +10:00			`clrscr 0acc 0 EDPOS ! 0 PREVPOS ! contents`
VE: replace 'W' with 'b' and implement 'W' and 'B' Which are end-of-word movements. 2020-06-07 11:01:35 +10:00			`BEGIN status bufs setpos KEY handle UNTIL`
			`0 0x08 RAM+ ! 19 aty ;`