collapseos/blk/500

5 lines
97 B
Plaintext
Raw Normal View History

: FD@ ['] RDSEC SWAP FD@! ;
: FD! ['] WRSEC SWAP FD@! ;
: FD$ ['] FD@ BLK@* ! ['] FD! BLK!* ! ;