RosettaCodeData/Task/Dynamic-variable-names/BBC-BASIC/dynamic-variable-names.basic

      INPUT "Enter a variable name: " name$
      INPUT "Enter a numeric value: " numeric$
      dummy% = EVAL("FNassign("+name$+","+numeric$+")")
      PRINT "Variable " name$ " now has the value "; EVAL(name$)
      END

      DEF FNassign(RETURN n, v) : n = v : = 0