collapseos/blk/106

6 lines
115 B
Plaintext
Raw Normal View History

2020-06-09 21:48:49 -04:00
CREATE ACC 0 ,
: _LIST ." Block " DUP . NL LIST ;
: L BLK> @ _LIST ;
: B BLK> @ 1- BLK@ L ;
: N BLK> @ 1+ BLK@ L ;