10 lines
256 B
Forth
10 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
|