RosettaCodeData/Task/Dynamic-variable-names/Oforth/dynamic-variable-names.oforth

8 lines
94 B
Plaintext

: createVar(varname)
"tvar: " varname + eval ;
"myvar" createVar
12 myvar put
myvar at .