ф > PIdigits ф Calculate digits of PI ?ф Original by Valentin Albillo for HP and Sharp calculators (&ф Converted by BigEd for BBC BASIC 2: <и"How many digits? "N% FT%=‘ P!L%=10*N%/3+1:ЮA%L%,B%N%:C%=B% ZZ$="000000":T$="999999" dгI%=1ёL%:A%?I%=2:н n M%=0:P%=0 xгJ%=1ёN%:Q%=0:K%=2*L%+1 ‚гI%=L%ё1€-1 ЊK%=K%-2:X%=10*A%?I%+Q%*I% –Q%=X%ЃK%:A%?I%=X%-Q%*K% н Є Y%=Q%Ѓ10:A%?1=Q%-10*Y%:Q%=Y% ґзQ%=9:M%=M%+1:еЌd\@ ѕ)зQ%=10:$C%=Г(P%+1)+АZ$,M%):P%=0:еЌdR@ И$C%=ГP%+АT$,M%):P%=Q% ТC%=C%+M%+1:M%=0 Ьн ж$C%=ГP% рT%=‘-T% ъ+з N%<254:с$B% ‹ г C%=0 ё N%:п B%?C%:н:с с T%;"cs" я