OPTION ARITHMETIC DECIMAL_HIGH
LET x=0
LET y=0
FOR i=1 TO 50
   LET x = x -(-1)^i/((2*i-1)*5^(2*i-1))
   LET y = y -(-1)^i/((2*i-1)*239^(2*i-1))
   IF MOD(i,5)=0 THEN PRINT 4*(4*x-y)
NEXT i
END