Алгоритм быстрого расчета первых 300 цифр числа Пи. Можно и больше, но будет и дольше.

Код:

ms=10^300
s=0
for i=0 to 300
    ii=8*i
    s=s+del(1*ms, 16^i)*(del(4*ms, (ii+1))-_
                         del(2*ms, (ii+4))-_
                         del(1*ms, (ii+5))-_
                         del(1*ms, (ii+6)))
    locate 0,0
    print s
    scan
next i
end
function del(a, b)
    del=(a-(a mod b))/b
end function