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 7 LOADR+
+1 6 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 DROP
+    EDPOS @ 64 / _pln
 ;
 

blk/108

@@ -1,9 +1,9 @@
-: _blen ( buf -- length of str in buf )
+: _ilen ( length of str in IBUF )
-    DUP BEGIN C@+ EOL? UNTIL -^ 1- ;
+    IBUF BEGIN C@+ EOL? UNTIL IBUF - 1- ;
-: _rbufsz ( size of linebuf to the right of curpos )
-    EDPOS @ 64 MOD 63 -^ ;
 : _I
-    IBUF _type _rbufsz IBUF _blen 2DUP > IF
+    IBUF _type EDPOS @ 64 MOD ( cno )
+    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

@@ -1,9 +0,0 @@
-: 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
-;
-