RosettaCodeData/Task/Calculating-the-value-of-e/Chipmunk-Basic/calculating-the-value-of-e.basic

10 CLS
20 N = 1 : N1 = 1
30 E1 = 0 : E = 1/1
40 WHILE E <> E1
50  E1 = E
60  E = E+1/N
70  N1 = N1+1
80  N = N*N1
90 WEND
100 PRINT "The value of E = " E
110 END