You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
|
- CREATE ACC 0 ,
- : _LIST ." Block " DUP . NL LIST ;
- : _NUM
- ACC @ SWAP _pdacc
- 1 = IF _LIST 0 THEN
- ACC !
- ;
- : L BLK> @ _LIST ;
- : B BLK> @ 1- BLK@ L ;
- : N BLK> @ 1+ BLK@ L ;
|