editor: add "U" word

2020-04-17 07:51:59 -04:00 · 2020-04-17 07:51:59 -04:00 · 2cadae260d
commit 2cadae260d
parent 9edab10a3a
3 changed files with 14 additions and 2 deletions
--- a/blk/101
+++ b/blk/101
@ -1,5 +1,6 @@
 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.



--- a/blk/102
+++ b/blk/102
@ -1,4 +1,4 @@
-103 LOAD 104 LOAD
+103 LOAD 104 LOAD 105 LOAD

 : BROWSE
    100 _LIST
--- a/blk/105
+++ b/blk/105
@ -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
+;