2020-04-15 22:21:09 -04:00
|
|
|
VARIABLE ACC
|
|
|
|
|
: _LIST ." Block " DUP . CRLF LIST ;
|
|
|
|
|
: _NUM
|
|
|
|
|
ACC @ SWAP _pdacc
|
|
|
|
|
IF _LIST 0 THEN
|
|
|
|
|
ACC !
|
|
|
|
|
;
|
2020-04-16 15:59:43 -04:00
|
|
|
: L BLK> @ _LIST ;
|
2020-04-27 18:11:54 -04:00
|
|
|
: B BLK> @ 1- BLK@ L ;
|
|
|
|
|
: N BLK> @ 1+ BLK@ L ;
|
2020-04-16 19:44:17 -04:00
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
