Post Aj7dPj1SyFjcU0UrK4 by EdS@mastodon.sdf.org
 (DIR) More posts by EdS@mastodon.sdf.org
 (DIR) Post #Aj7dPgtasYFVt0nXm4 by EdS@mathstodon.xyz
       2024-06-20T14:44:12Z
       
       0 likes, 0 repeats
       
       #bbcmicrobot #retrocomputing  🚀TIME=0:G%=768:Y%=G%*5DIV12+2PRINT"Digits = ";G%A%=&100:B%=&80:C%=&40:D%=&20:E%=&10:U%=&FA:V%=&3E8:o=318/A%:DIMJ%Y%+4,Z%Y%+4:b=0:L%=bFORI%=L%TOY%-1:Z%?I%=0:NEXT:Z%!(Y%-1)=4N%=0:F%=0:T%=0:O%=-1:M%=Y%-1FORI%=L%TOY%-1:J%?I%=0:NEXT:J%!(Y%-1)=4REPEAT:K%=T%+1:IFN%O%=-O%:PROCd:O%=-O%K%=(T%+3)*4:PROCd:K%=(T%+5)*C%:PROCd:K%=(T%+7)*C%:PROCd:K%=(T%+9)*A%:O%=-O%:PROCd:O%=-O%:K%=(F%+1)*8:PROCd:K%=(F%+3)*A%:PROCd:IFN%PRINT;RIGHT$("000"+STR$(J%!(Y%-1)),3);ELSEPRINT;J%!(Y%-1);I%=Y%-1:J%?I%=0:J%?(I%+1)=0:W%=0:FORI%=L%TOY%:Q%=V%*(J%?I%)+W%:J%?I%=Q%:W%=Q%DIVA%:NEXT:W%=0:FORI%=L%TOY%:Q%=U%*(Z%?I%)+W%:Z%?I%=Q%:W%=Q%DIVA%:NEXT:FORI%=L%TOY%-1:Z%?I%=Z%?(I%+1):NEXT:Z%?Y%=0O%=-O%:IFZ%?M%=0M%=M%-1b=b+o:L%=b:F%=F%+4:T%=T%+&A:N%=N%+3:UNTILN%>G%:PRINT'TIME/100"s":ENDDEFPROCd:Q%=0:FORI%=M%TOL%STEP-1:Q%=Q%*A%+Z%?I%:X%=0:IFQ%>=K%*B%Q%=Q%-K%*B%:X%=X%ORB%IFQ%>=K%*C%Q%=Q%-K%*C%:X%=X%ORC%IFQ%>=K%*D%Q%=Q%-K%*D%:X%=X%ORD%IFQ%>=K%*E%Q%=Q%-K%*E%:X%=X%ORE%IFQ%>=K%*8Q%=Q%-K%*8:X%=X%OR8IFQ%>=K%*4Q%=Q%-K%*4:X%=X%OR4IFQ%>=K%+K%Q%=Q%-K%-K%:X%=X%OR2IFQ%>=K%Q%=Q%-K%:X%=X%OR1S%=J%!I%:J%!I%=S%+X%*O%:IFO%*(SGNS%-SGN(J%!I%))<0STOPNEXT:ENDPROC
       
 (DIR) Post #Aj7dPi7SKUvpgII81I by bbcmicrobot@mastodon.me.uk
       2024-06-20T14:44:31Z
       
       0 likes, 0 repeats
       
       I ran @EdS's program and got this.Source: https://bbcmic.ro/?t=a7hKc #bbcbasic
       
 (DIR) Post #Aj7dPj1SyFjcU0UrK4 by EdS@mastodon.sdf.org
       2024-06-20T14:51:51Z
       
       0 likes, 0 repeats
       
       At last!  You can read about our #mos6502 assembly language adventure, writing a big and fast spigot for the #bbcmicro over here:"A tale of two spigots - more digits of pi, and faster"https://stardot.org.uk/forums/viewtopic.php?t=29301#retrocomputing Thanks to @geoffl @bbcmicrobot @EdS@mathstodon.xyz