mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-02 08:20:57 +11:00
Compare commits
2 Commits
feb0411530
...
be66d7b4a2
Author | SHA1 | Date | |
---|---|---|---|
|
be66d7b4a2 | ||
|
204a9c69f8 |
4
blk/101
4
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.
|
||||
|
||||
|
||||
|
||||
|
2
blk/102
2
blk/102
@ -1,5 +1,5 @@
|
||||
50 LOAD+ ( B152, extras )
|
||||
1 6 LOADR+
|
||||
1 7 LOADR+
|
||||
|
||||
: BROWSE
|
||||
0 ACC ! L
|
||||
|
2
blk/107
2
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
|
||||
;
|
||||
|
||||
|
10
blk/108
10
blk/108
@ -1,9 +1,9 @@
|
||||
: _ilen ( length of str in IBUF )
|
||||
IBUF BEGIN C@+ EOL? UNTIL IBUF - 1- ;
|
||||
: _blen ( buf -- length of str in buf )
|
||||
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 )
|
||||
63 -^ _ilen ( rbuffsize ilen )
|
||||
2DUP > IF
|
||||
IBUF _type _rbufsz IBUF _blen 2DUP > IF
|
||||
SWAP OVER - ( ilen chars-to-move )
|
||||
SWAP EDPOS @ _cpos 2DUP + ( ctm ilen a a+ilen )
|
||||
3 PICK MOVE- ( ctm ilen )
|
||||
|
Loading…
Reference in New Issue
Block a user