Article 813 of alt.lang.teco:
In article <5ct0b2$c80@lana.zippo.com>,  <Geo. Goldsmith> wrote:
>In article <32F11759.383A@mathpro.com>, Stanley says...
>>
>>The TECO macro to compute pi was mine.
>>
>>- stan -
>
>Would you share that macro with us, Stan?

The following version of Stan's macro works with some current TECO
implmentations
(Pete Siemsen's TECOC and Matt Fichtenbaum's UNIX TECO)

e.g.
# TECOC-146
$ tecoc mung pi.tec,20
31415926535897932384
# Fichtenbaum TECO
$ te @pi.tec 20
31415926535897932384

here's a printable version...
GZ0J\UNQN"E 40UN ' BUH BUV HK
QN< J BUQ QN*10/3UI
QI< \+2*10+(QQ*QI)UA B L K QI*2-1UJ QA/QJUQ
QA-(QQ*QJ)-2\ 10@I// -1%I >
QQ/10UT QH+QT+48UW QW-58"E 48UW %V ' QV"N QV^T ' QWUV QQ-(QT*10)UH >
QV^T @^A/
/HKEX$$

here it is uuencoded...
begin 622 pi.tec
M1UHP2EQ53E%.(D4@-#!53B`G($)52"!"558@2$L*44X\($H@0E51(%%.*C$P
M+S-520I123P@7"LR*C$P*RA142I122E502!"($P@2R!122HR+3%52B!102]1
M2E51"E%!+2A142I12BDM,EP@,3!`22\O("TQ)4D@/@I142\Q,%54(%%(*U%4
M*S0X55<@45<M-3@B12`T.%57("56("<@458B3B!15EY4("<@45=55B!142TH
=450J,3`I54@@/@I15EY4($!>02\*+TA+15@;&PI1
`
end
-- 
Mark Henderson -- mch@squirrel.com, henderso@netcom.com, markh@wimsey.bc.ca
PGP key 1024/B2667EFF - 5A 93 7D 29 EB 63 84 09  EA A2 AA 6C FA C5 A6 21
unstrip for Solaris, Wimsey crypto archive, TECO, computer security links,
change-sun-hostid, Sun NVRAM/hostid FAQ - http://www.squirrel.com/squirrel/


Article 814 of alt.lang.teco:
Mark C. Henderson (henderso@netcom.com) wrote:
: In article <5ct0b2$c80@lana.zippo.com>,  <Geo. Goldsmith> wrote:
: >In article <32F11759.383A@mathpro.com>, Stanley says...
: >>
: >>The TECO macro to compute pi was mine.
: >>
: >>- stan -
: >
: >Would you share that macro with us, Stan?

: The following version of Stan's macro works with some current TECO
: implmentations
: (Pete Siemsen's TECOC and Matt Fichtenbaum's UNIX TECO)

: e.g.
: # TECOC-146
: $ tecoc mung pi.tec,20
: 31415926535897932384
: # Fichtenbaum TECO
: $ te @pi.tec 20
: 31415926535897932384

: here's a printable version...
: GZ0J\UNQN"E 40UN ' BUH BUV HK
: QN< J BUQ QN*10/3UI
: QI< \+2*10+(QQ*QI)UA B L K QI*2-1UJ QA/QJUQ
: QA-(QQ*QJ)-2\ 10@I// -1%I >
: QQ/10UT QH+QT+48UW QW-58"E 48UW %V ' QV"N QV^T ' QWUV QQ-(QT*10)UH >
: QV^T @^A/
: /HKEX$$

: here it is uuencoded...
: begin 622 pi.tec
: M1UHP2EQ53E%.(D4@-#!53B`G($)52"!"558@2$L*44X\($H@0E51(%%.*C$P
: M+S-520I123P@7"LR*C$P*RA142I122E502!"($P@2R!122HR+3%52B!102]1
: M2E51"E%!+2A142I12BDM,EP@,3!`22\O("TQ)4D@/@I142\Q,%54(%%(*U%4
: M*S0X55<@45<M-3@B12`T.%57("56("<@458B3B!15EY4("<@45=55B!142TH
: =450J,3`I54@@/@I15EY4($!>02\*+TA+15@;&PI1
: `
: end
: -- 
: Mark Henderson -- mch@squirrel.com, henderso@netcom.com, markh@wimsey.bc.ca
: PGP key 1024/B2667EFF - 5A 93 7D 29 EB 63 84 09  EA A2 AA 6C FA C5 A6 21
: unstrip for Solaris, Wimsey crypto archive, TECO, computer security links,
: change-sun-hostid, Sun NVRAM/hostid FAQ - http://www.squirrel.com/squirrel/


    I verified the printable version here on Netcom. It should be noted
that the two $$ are dollar signs, and must be replaced with two ESCs. Also,
what you do is: teco @pi-macro nnn
where nnn is the numer of digits you wish to produce. It is 40 if nnn
is not present.

    And yes, I knew that because I got the macro from Mark Henderson, I
believe, distributed with his patches to UTECO (Matt Fichtenbaum's) called
MLFTECO. I want to get attributions right for a change.
-- 
Poltergeists are the basic manifestation of spontaneous material
regeneration.
                                          cliffr@netcom.com


