euler.bas

10 cls:gosub 70
20key1,"1/factk"
30 key2,"1+FX"
40 key 3,"1"
50 key 4,"30"
60 wait:print:end
70 print "        *  EULER NUMBER  *"
80 print "      "; chr$ 205
90 print " e = 1+";chr$92;"1/n! = 2.718281828459045235360287"
100 print"      ";chr$194;
110 return