! ネイピア数 e の近似値
OPTION ARITHMETIC DECIMAL_HIGH
LET n = 100
LET a = 1
LET s = 2
FOR i = 2 TO n
   LET  a = a / i
   LET  s = s + a
   PRINT USING "####":i;
   PRINT ": ";
   PRINT s
NEXT i
END