12 lines
187 B
Modula-2
12 lines
187 B
Modula-2
#permission=0
|
|
|
|
SET,vn ${@def}
|
|
SET,vl ${@0}
|
|
DEFAULT,vl 0
|
|
SET,vv,onfail,{<value not set>} ${#${@caller}::${@def}}
|
|
SAY,{${vl}} * Var '${vn}' = '${vv}'
|
|
|
|
UNSET vv
|
|
UNSET vn
|
|
UNSET vl
|