11 lines
256 B
Forth
11 lines
256 B
Forth
|
unused . \ show how much dictionary space is available
|
||
|
|
marker restore
|
||
|
|
|
||
|
|
create foo 30 allot
|
||
|
|
: my-def 30 0 do cr i . ." test" loop ;
|
||
|
|
|
||
|
|
unused . \ lower than before
|
||
|
|
|
||
|
|
restore
|
||
|
|
unused . \ same as first unused; restore, foo, and my-def no longer defined
|