1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-12-26 03:18:05 +11:00

editor: add "U" word

This commit is contained in:
Virgil Dupras 2020-04-17 07:51:59 -04:00
parent 9edab10a3a
commit 2cadae260d
3 changed files with 14 additions and 2 deletions

View File

@ -1,5 +1,6 @@
T ( n -- ): select line n for editing. T ( n -- ): select line n for editing.
P xxx(return): put typed line on selected line. P xxx: put typed line on selected line.
U xxx: insert typed line on selected line.

View File

@ -1,4 +1,4 @@
103 LOAD 104 LOAD 103 LOAD 104 LOAD 105 LOAD
: BROWSE : BROWSE
100 _LIST 100 _LIST

11
blk/105 Normal file
View File

@ -0,0 +1,11 @@
: _mvln+ ( ln -- move ln 1 line further )
DUP 14 > IF DROP EXIT THEN
_bpos DUP 64 + 64 MOVE
;
: U
15 EDPOS @ - 0 DO
14 I - _mvln+
LOOP
P
;