izaya
/
collapseos
mirror of https://github.com/hsoft/collapseos.git
1
0
Fork 0
Code Issues Releases Wiki Activity
collapseos/blk/128

14 lines
475 B
Plaintext
Raw Normal View History

VE: replace 'W' with 'b' and implement 'W' and 'B' Which are end-of-word movements.
2020-06-07 11:01:35 +10:00
: _pos! 1023 MIN DUP 0< IF DROP 0 THEN EDPOS ! ;
VE: load Block Editor and reuse some of its words
2020-06-05 10:20:35 +10:00
: $w EDPOS @ BLK( + acc@ 0 DO
VE: Add H and L Also, add MODE indirection.
2020-06-05 09:20:40 +10:00
BEGIN C@+ WS? UNTIL BEGIN C@+ WS? NOT UNTIL LOOP
VE: replace 'W' with 'b' and implement 'W' and 'B' Which are end-of-word movements.
2020-06-07 11:01:35 +10:00
1- BLK( - _pos! ;
VE: load Block Editor and reuse some of its words
2020-06-05 10:20:35 +10:00
: $W EDPOS @ BLK( + acc@ 0 DO
VE: replace 'W' with 'b' and implement 'W' and 'B' Which are end-of-word movements.
2020-06-07 11:01:35 +10:00
1+ BEGIN C@+ WS? NOT UNTIL BEGIN C@+ WS? UNTIL LOOP
2- BLK( - _pos! ;
: $b EDPOS @ BLK( + acc@ 0 DO
1- BEGIN C@- WS? NOT UNTIL BEGIN C@- WS? UNTIL LOOP
2+ BLK( - _pos! ;
: $B EDPOS @ BLK( + acc@ 0 DO
VE: Add H and L Also, add MODE indirection.
2020-06-05 09:20:40 +10:00
BEGIN C@- WS? UNTIL BEGIN C@- WS? NOT UNTIL LOOP
VE: replace 'W' with 'b' and implement 'W' and 'B' Which are end-of-word movements.
2020-06-07 11:01:35 +10:00
1+ BLK( - _pos! ;