25'ten fazla konu seçemezsiniz
Konular bir harf veya rakamla başlamalı, kısa çizgiler ('-') içerebilir ve en fazla 35 karakter uzunluğunda olabilir.
|
- : icpy ( n -- copy n chars from cursor to IBUF )
- IBUF _zbuf EDPOS @ _cpos IBUF ( n a buf ) ROT MOVE ;
- : X ( n -- )
- DUP icpy EDPOS @ _cpos 2DUP + ( n a1 a1+n )
- SWAP _rbufsz MOVE ( n )
- ( get to next line - n )
- DUP EDPOS @ 0xffc0 AND 0x40 + -^ _cpos ( n a )
- SWAP 0 FILL BLK!!
- EDPOS @ 64 / _pln ;
- : E FBUF _blen X ;
- : Y FBUF _blen icpy ;
|