1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-24 07:08:05 +11:00
collapseos/blk/103
2020-04-15 22:39:14 -04:00

10 lines
177 B
Plaintext

VARIABLE ACC
: _LIST ." Block " DUP . CRLF LIST ;
: _NUM
ACC @ SWAP _pdacc
IF _LIST 0 THEN
ACC !
;
: B BLK> @ 1- DUP BLK> ! _LIST ;
: N BLK> @ 1+ DUP BLK> ! _LIST ;