RosettaCodeData/Task/Calculating-the-value-of-e/Run-BASIC/calculating-the-value-of-e.basic

n = 1  : n1 = 1
e1 = 0 : e = 1 / 1

while e <> e1
    e1 = e
    e = e + 1 / n
    n1 = n1 + 1
    n = n * n1
wend

print "The value of e = "; e