Var (deprecated)

public func show_me_pi()
{
	// Variablendeklarationen
	var b,d,e,g,out,bufLen = 2800,res=10000;
	// Puffer initialisieren
	Var(bufLen-1)=0;
	while (b!=bufLen) Var(b++)=res/5;
	// Für den gesamten Puffer...
	while (g=bufLen*2)
		{
		// Die nächsten vier Stellen berechnen; nachfolgenden Puffer nachberechnen
		d=0;
		for (b=bufLen; b; --b)
			{
			d+=Var(b)*res;
			Var(b)=d%--g;
			d=d/g--*b;
			}
		// Anfangswert hardcoded, fürs Komma
		if (bufLen==2800)
			out = "3.141";
		else
			// Ansonsten vier Stellen des letzten, berechneten Wertes ausgeben
			out = Format("%s%.4d", out, e+d/res);
		// Weiter im Puffer
		bufLen-=14;
		// An der Hälfte umbrechen
		if (bufLen == 1400) { Log(out); out="	"; }
		// Restwert der letzten Berechnung für die nächsten vier Stellen nehmen
		e=d%res;
		}
	// Zweiten Teil des Puffers ausgeben
	Log(out);
}