From 2cadae260d56b7b01db36cb6cadf426df2a8e1a4 Mon Sep 17 00:00:00 2001
From: Virgil Dupras <hsoft@hardcoded.net>
Date: Fri, 17 Apr 2020 07:51:59 -0400
Subject: [PATCH] editor: add "U" word

---
 blk/101 |  3 ++-
 blk/102 |  2 +-
 blk/105 | 11 +++++++++++
 3 files changed, 14 insertions(+), 2 deletions(-)
 create mode 100644 blk/105

diff --git a/blk/101 b/blk/101
index 5878ac9..8ee99e6 100644
--- 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.
 
 
 
diff --git a/blk/102 b/blk/102
index 7b9e5a4..bde0c81 100644
--- a/blk/102
+++ b/blk/102
@@ -1,4 +1,4 @@
-103 LOAD 104 LOAD
+103 LOAD 104 LOAD 105 LOAD
 
 : BROWSE
     100 _LIST
diff --git a/blk/105 b/blk/105
new file mode 100644
index 0000000..4608590
--- /dev/null
+++ 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
+;