mirror of
https://gitee.com/zlgopen/awtk.git
synced 2024-12-04 13:07:40 +08:00
15 lines
169 B
Forth
15 lines
169 B
Forth
|
name = 'tom'
|
||
|
|
assert(name == 'tom')
|
||
|
|
|
||
|
|
var name='jim'
|
||
|
|
assert(name == 'jim')
|
||
|
|
|
||
|
|
unset(name);
|
||
|
|
assert(name == 'tom')
|
||
|
|
|
||
|
|
if(name == 'tom') {
|
||
|
|
var age = 100;
|
||
|
|
}
|
||
|
|
assert(age == 100)
|
||
|
|
|