9 lines
203 B
Text
9 lines
203 B
Text
( put$"Enter a variable name: "
|
|
& get$:?name
|
|
& whl
|
|
' ( put$"Enter a numeric value: "
|
|
& get$:?numeric:~#
|
|
)
|
|
& !numeric:?!name
|
|
& put$(str$("Variable " !name " now has the value " !!name \n))
|
|
);
|