Du kan inte välja fler än 25 ämnen
Ämnen måste starta med en bokstav eller siffra, kan innehålla bindestreck ('-') och vara max 35 tecken långa.
|
- 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 ;
|