Article 172004 of comp.os.vms:
In article <33A18D98.5A271837@assetservices.com.au.nospam>,
   Robin Garner <robin.garner@assetservices.com.au.nospam> writes:
>My favourite TECO macro approximated PI to an arbitrary number of places.
>I heard that someone at the local DEC office ported it to PostScript,
>producing possibly the least friendly print job I can imagine ...


$ edit/teco pi.tec
*ht$$
+0un qn"E20Un' 0Uh 0uv HK
Qn<j 0uq Qn*10/3Ui
Qi<\+2*10+(Qq*qi)Ua 0LK Qi*2-1Uj Qa/QjUq Qa-(Qq*Qj)-2\10I$ Qi-1ui>
Qq/10Ut Qh+Qt+48Uw Qw-58"E48Uw %v' Qv"NQv^T' QwUv Qq-(Qt*10)Uh>
Qv^T
!Can you figure out what this macro does before running it?  It was
written by Stan Rabinowitz with modifications by Mark Bramhall and
appeared as the Macro of the Month in the Nov. 1977 issue of the TECO
SIG newsletter, the "Moby Munger".  For information on the TECO Special
Interest Group, write to Stan at P.O. Box 76, Maynard, Mass. 01754!
*hxz hk 40mz$$
3141592653589793238462643383279502884197*

you'd have to convert any $ to escape to make the above work.


