******************************************************************
*** ***
*** comp.binaries.cbm is a moderated binaries- ***
*** only newsgroup (no discussion or ***
*** crossposting allowed) for Commodore 8-bits ***
*** ***
*** For information on comp.binaries.cbm visit ***
*** http://www.floodgap.com/comp.binaries.cbm/ ***
*** ***
*** This file is available via mailing list at ***
*** http://lists.trikaliotis.net/listinfo/comp-binaries-cbm/ ***
*** to list subscribers ***
*** Allow time for submission to be received ***
*** ***
******************************************************************

* One from the Vault is a collection of frequently requested, useful or just
plain interesting past posts sent to comp.binaries.cbm, as archived by the
moderators. If you have a request, please send it to the address in the
headers. In addition to being selected and reposted by moderation staff,
some of these postings are regularly posted on Mondays and Fridays on a
rotating schedule.

Take care when replying to these messages, as many were posted years ago.

From: John Iannetta <76703.4244@compuserve.com>
Reply-to: John Iannetta <76703.4244@compuserve.com>
X-Original-Posting-Date: Sun, 24 May 1998 15:16:02 -0400

This is "PI.BIN", a C-64 program, in UUencoded form. It calculates the ratio of the circumference to the diameter of a circle, using a recently published algorithm. The infinite series is especially useful when hexadecimal representation is used. You may select from 2 to 252 hexadigits; the result is displayed, along with the decimal equivalent. It takes about 45 seconds for an entry of 252 places. A PC user would have just gotten past the POST.

Now, you can be the kid with the roundest circles on your block.

begin 644 pi.bin
M`0@+"`H`B3(P,C``'P@4`)<U-2PN.I<U-BPQ-C`ZG``Z"!X`422RQR@S-"DZ M322RQR@Q,RDZC3(P,`!]""@`F2*3CA%%3E1%4B!.54U"15(@3T8@2$58041% M0TE-04P@4$Q!0T53+B(ZF2(1*$923TT@,B!43R`R-3(N*2(`E`@R`)DB$1T= M.9$B.H52.HM2LBZG@`"F"#P`BU*S,K!2L3(U,J<T,`"]"$8`F2(10T%,0U5, M051)3D<N+BXB`-`(4`!.LE*J-#J7,34P+$ZK,0#Q"%H`GC0Y,34R.H\@0T%, M0U5,051%(%!)($E.($A%6``5"60`GC0Y-S,X.H\@0TA%0TL@1D]2(%-014-) M04P@0T%310`I"6X`B\(H,BFG4K)2JC$ZB3@P`$H)>`">-#DX,C4ZCR!3150@ M55`@2$58(%)/54Y$3T9&`&0)@@">-#DV.3$ZCR!23U5.1$]&1B!(15@`?0F, M`)XT.34V-3J/($1)4U!,05D@2$58`,()E@">-#DX-#$ZCR!#04Q#54Q!5$4@ M3E5-0D52($]&($1%0TE-04P@4$Q!0T53($923TT@3$]'*#$V*2],3T<H,3`I M`.8)H`">-#DT,3@ZCR!#3TY615)4($A%6"!43R!$14-)34%,``L*J@">-#DX M.3`ZCR!3150@55`@1$5#24U!3"!23U5.1$]&1@`I"K0`GC0Y-C0T.H\@4D]5 M3D1/1D8@1$5#24U!3`!&"KX`GC0Y-C`R.H\@1$E34$Q!62!$14-)34%,`$P* MPP"``&4*R`"9(I..$1$1$1$1$1$@("`@24Y&(@!T"M(`F2(@("`@KZ^O(@"` M"M<`F2(@("`@S0"J"MP`F2+_(#T@(,T@("`@,39>+4L@*#0O6SA+*S%=+3(O M6SA+*S1=(@#4"N$`F2(@("`@(,X@("`@("`@("`@+3$O6SA+*S5=+3$O6SA+ M*S9=*0#@"N8`F2(@("`@S@#N"NL`F2(@("`@M[>W`/P*\`"9(B`@("!+/3`` M!0OU`(TY.38`-0OZ`)DBDPX1("`@(-1(12!&3U)-54Q!($].(%1(12!04D5# M141)3D<@4$%'12(`8PO_`)DB05!014%2140@24X@5$A%(,]#5$]"15(@,C@L M(#$Y.34@25-3544B`)H+!`&9(D]&("([420[(M/#R<7.P\4@SL77TR([420[ M(BX@(-1(12!.15<@34542$]$($]&(@#)"PD!F2)#04Q#54Q!5$E.1R!022!7 M05,@0U)%1$E4140@5$\@T$5415(@PBXB`/(+#@&9(L)/4E=%24XL(--)34]. M(-!,3U5&1D4L($%.1"!42$5)4B(`(0P3`9DB0T]73U)+15)3($%4(--)34]. M(,9205-%4B#53DE615)32519($E.(@!0#!@!F2+"55).04)9+"#"4DE425-( M(,-/3%5-0DE!+B`@U$A%($9)3D1)3D<B`'\,'0&9(E=!4R!!3DY/54Y#140@ M24X@04X@R4Y415).150@4$]35$E.1R!)3B(`K`PB`9DB14%23%D@ST-43T)% M4BX@(,9/4B!-3U)%($E.1D]234%424].+"(`V0PG`9DB0TA%0TL@5$A%(-=/ M4DQ$(-=)1$4@UT5"(%-)5$4@050@5$A)4R(`Z0PL`9DB041$4D534SHB`!,- M,0&9(A%(5%10.B\O5U=7+D-%0TTN4T95+D-!+_]00D]25T5)3B\B`#P--@&9 M(A'324Y#12!42$4@1D]2355,02!#04Q#54Q!5$53(%1(12(`:0T[`9DB0T]% M1D9)0TE%3E13($]&(#$V7BW+($E.(%1(12!)3D9)3DE412(`F`U``9DB4T52 M2453+"!44E5.0T%424Y'($%.1"!23U5.1$E.1RU/1D8@05)%(@#%#44!F2)' M4D5!5$Q9(%-)35!,249)140@248@5$A%($A%6$%$14-)34%,(@#N#4<!F2)& M3U)-($E3(%53140@1D]2(%1(12!#04Q#54Q!5$E/3BXB`!T.2@&9(A$@("`@ MU$A)4R!04D]'4D%-+"!&3U(@5$A%(,-/34U/1$]212TV-"P`2PY/`9DB0T%, M0U5,051%4R!022!)3B!(15A!1$5#24U!3"P@1D]2($%.(,XB`'<.5`&9(B@Q M(#P@SB`\(#(U,RD@5$A!5"!)4R!%3E1%4D5$($)9(%1(12(`@`Y6`8TY.3<` MK0Y9`9DBDQ%54T52+B`@U%)53D-!5$E/3B!)4R!43R#.*S0@4$Q!0T53.R(` MVPY>`9DB4D]53D1)3D<M3T9&(%1/(,X@4$Q!0T53+B`@U$A%($U!6$E-54TB M``D/8P&9(D524D]2($1512!43R!44E5.0T%424].($%.1"!42$4@1DE.251% M(@`X#V@!F2).54U"15(@3T8@5$5235,@55-%1"!-05D@0D4@0T%,0U5,051% M1#LB`&4/;0&9(DE4($E3("@TSBTS*2`J(#$V7BTHSBLT*2X@(,)55"!)1B!4 M2$4B`)8/<@&9(DQ!4U0@1D]54B!(15A!1$E'2513($%212!,15-3(%1(04X@ M)#@P,#`B.P#$#W<!F2)!3D0@041$24Y'(%1(12!%4E)/4B!04D]$54-%4R!! M($Y534)%4B(`]0]Y`9DB1U)%051%4B!42$%.("0WQL;&+"!23U5.1$E.1R!4 M3R#.(%!,04-%4R([`!\0?`&9(DE3($E-4$]34TE"3$4@04Y$(%1(12!04D]' M4D%-(%=)3$PB`%`0@0&9(E)%0T%,0U5,051%($9/4B#.*S$N("#$25-03$%9 M($E3($E.($)/5$@B.P![$(8!F2)(15@@04Y$($1%0TE-04PN("#)5"!404M% M4R!!0D]55"`T-2(`JA"(`9DB4T5#3TY$4R!43R!#04Q#54Q!5$4@1D]2(,X@ M/2`R-3([(%-424Q,(@#6$(D!F2)&05-415(@5$A!3B!!(#(P,"#-R%H@T$5. M5$E532!)1B!93U4B``,1BP&9(E-405)4(%E/55(@5$E-15(@5TA%3B!93U4@ M4$]715(M55`@5$A%`!01C`&9(D-/35!55$52+B(`0Q&-`9DB$2`@("#42$E3 M(%!23T=204T@25,@0T].5%))0E54140@5$\@5$A%(@!U$8X!F2+054),24,@ MQ$]-04E.+A$1("`@("`@("`@("`@(,I/2$X@R4%.3D545$$B`(`1CP&-.3DW M.HX`Q!'D`YDB$Q$1$1$1$1$1$1$1$1$1$1$1$1$1$1$1$2`@("`@("`@("`@ M("`26U!215-3(%)%5%523EV2(CLZB3DY.``#$N4#F2(3$1$1$1$1$1$1$1$1 M$1$1$1$1$1$1$1$1("`@("`@("`@("`@(!);T-+%T],@TL74U=+.79(B.P`4 M$N8#H4$D.HM!)+)-)*>.`!T2YP.).3DX`$,2Y`>7-38L.3DZF2*3#A'/3D4@ M34]-14Y4(%!,14%312XN+B(`6Q+N!U"RPB@T-2FJ,C4VK,(H-#8IJS$`<1+X M!XO"*%`IIU"R4*LQ.HDR,#0P`(L2`@A0LE"K-S<U.I<W.#$L-#J7-S@R+#@` MNA(,")<X."PN.I<X.2PQ.34ZESDP+%"O,C4U.I<Y,2Q0K3(U-JHS.IXT,3DV M-`#+$A8(ES(P-30L-#@ZB3(P````>*`!J0*-`,>I!)D`QYD"QZD#F0''R,C( MT.Z,`,B,`<BI`H4"I`*I!(7\J0&%_2"[P*26&,B(N0#'>0#(R1"0`ND0F0#' MF-#MI`*I`H7\J02%_2"[P*26R(BY`,?Y`,BP`VD0&)D`QYC0[J0"J0&%_*D% MA?T@N\"DELB(N0#'^0#(L`-I$!B9`,>8T.ZD`JD!A?RI!H7](+O`I);(B+D` MQ_D`R+`#:1`8F0#'F-#NI);$`O`%Y@),),!88*D`A9N%^Z4""B:;"B:;"B:; M9?V%G*7\"B;["B;["B;["B;[A?PXHO^E_.6<A?RE^^6;A?OHL/&E_&6<A?RE M^V6;A?N*F0#(Q):P`\B0QV!XJ0"%CJG)A8\XI9;I`X4"H@"@`+D`QPH*"@J% MB\BY`,<I#P6+G0'&Z,C$`I#FF$J%C*:,&#X`QLK0^HHJC0#%IHR]`,:=`,7* MT/>M`,6FC!@^`,;*T/HJIHP^`,;*T/HJJ*:,O0#%?0#&G0#%RM#TF&T`Q:`` MD8[FCM`"YH^FC+T`Q9T`QLK0]\:;T*7&G!"A6&!XJ?>@PB`>JZ(#O?W&R0J0 M!&DVT`(),"#2_^CDEM#KJ0U83-+_>*D"H,,@'JN@`(3[J<F%_+'["3`@TO_( MT`+F_,:PT/#&L1#LJ0U83-+_>*`!L?W)!9`DB+']:0"1_;']R0J0%YB1_:8# MI?[)R=`#BO`)BM`"QO[&_;#=6&!XH`&QLLD(D"2(L;)I`)&RL;+)$)`7F)&R MIK*EL\G'T`.*\`F*T`+&L\:RL-U88'BFEKT`QX6.O?_&"@H*"@6.A8Z]_L:% MC;W]Q@H*"@H%C86-J0"%BZ66"B:+"B:+A8PXJ?CEC(6,J7_EBX6+I8W)@+`- MI8S%CJ6+Y8VP`ZG_+*D`A0)88'BEEAAI_(6RJ0!IQH6S6&!X.*66Z0.H(**S MJ?*@PB`HNB!)N"";O!BE96D"A9NJI61I`(6<J(K0`8C*AK"$L5A@>!BEL&G_ @A?VEL6G(A?Y88($:(SG!DQ&._R`]("0S+@`1/2`S+@``
`
end
--
Cameron Kaiser * ckaiser@floodgap.com * posting with a Commodore 128
Floodgap Systems: http://www.floodgap.com/
personal page: http://www.cameronkaiser.com/

--- SoupGate-Win32 v1.05
* Origin: fsxNet Usenet Gateway (21:1/5)