Data commit

Task/Pi/Chipmunk-Basic/pi.basic

@@ -0,0 +1,51 @@
+100 REM adopted from Applesoft BASIC
+110 n = 100 : rem n may be increased, but will slow execution
+120 ln = int(10*n/3)+16
+130 nd = 1
+140 dim a(ln)
+150 n9 = 0
+160 pd = 0 : rem First pre-digit is a 0
+170 rem
+180 for j = 1 to ln
+190   a(j-1) = 2 : rem Start wirh 2S
+200 next j
+210 rem
+220 for j = 1 to n
+230   q = 0
+240   for i = ln to 1 step -1 : rem Work backwards
+250     x = 10*a(i-1)+q*i
+260     a(i-1) = x-(2*i-1)*int(x/(2*i-1)) : rem X - Int ( X / Y) * Y
+270     q = int(x/(2*i-1))
+280   next i
+290   a(0) = q-10*int(q/10)
+300   q = int(q/10)
+310   if q = 9 then n9 = n9+1 : goto 510
+320   if q <> 10 then goto 440
+330   rem Q == 10
+340   d = pd+1 : gosub 560
+350   if n9 <= 0 then goto 400
+360     for k = 1 to n9
+370       d = 0 : gosub 560
+380     next k
+390   rem End If
+400   pd = 0
+410   n9 = 0
+420   goto 510
+430   rem Q <> 10
+440   d = pd : gosub 560
+450   pd = q
+460   if n9 = 0 then goto 510
+470     for k = 1 to n9
+480       d = 9 : gosub 560
+490     next k
+500     n9 = 0
+510 next j
+520 print str$(pd)
+530 end
+540 rem
+550 rem Output digits
+560 if nd = 0 then print str$(d); : return
+570 if d = 0 then return
+580 print str$(d);".";
+590 nd = 0
+600 return