editor: implement E

blk/101

@@ -2,8 +2,8 @@ T ( n -- ): select line n for editing.
 P xxx: put typed line on selected line.
 U xxx: insert typed line on selected line.
 F xxx: find typed string in block.
-I xxx: insert typed string at cursor
+I xxx: insert typed string at cursor.
-
+E: Delete previously found string.
 
 
 

blk/102

@@ -1,5 +1,5 @@
 50 LOAD+ ( B152, extras )
-1 6 LOADR+
+1 7 LOADR+
 
 : BROWSE
     0 ACC ! L

blk/107

@@ -7,6 +7,6 @@
         OVER BLK) = OR ( a1 a2 f1|f2 )
     UNTIL
     DUP BLK) < IF BLK( - FBUF + -^ EDPOS ! THEN
-    EDPOS @ 64 / _pln
+    EDPOS @ 64 / _pln DROP
 ;
 

blk/108

@@ -1,9 +1,9 @@
-: _ilen ( length of str in IBUF )
+: _blen ( buf -- length of str in buf )
-    IBUF BEGIN C@+ EOL? UNTIL IBUF - 1- ;
+    DUP BEGIN C@+ EOL? UNTIL -^ 1- ;
+: _rbufsz ( size of linebuf to the right of curpos )
+    EDPOS @ 64 MOD 63 -^ ;
 : _I
-    IBUF _type EDPOS @ 64 MOD ( cno )
+    IBUF _type _rbufsz IBUF _blen 2DUP > IF
-    63 -^ _ilen ( rbuffsize ilen )
-    2DUP > IF
         SWAP OVER - ( ilen chars-to-move )
         SWAP EDPOS @ _cpos 2DUP + ( ctm ilen a a+ilen )
         3 PICK MOVE- ( ctm ilen )

blk/109

@@ -0,0 +1,9 @@
+: E
+    FBUF _blen EDPOS @ _cpos 2DUP + ( l a1 a1+l )
+    SWAP _rbufsz MOVE ( l )
+    ( get to next line - l )
+    DUP EDPOS @ 0xffc0 AND 0x40 + -^ _cpos ( l a )
+    SWAP 0 FILL
+    EDPOS @ 64 / _pln
+;
+