6 lines
98 B
Forth
6 lines
98 B
Forth
|
: test { \ obj -- }
|
||
|
|
New> MyClass to obj
|
||
|
|
show: obj
|
||
|
|
1000 set: obj
|
||
|
|
obj dispose ;
|