"David N. Smith \(IBM\)" <dnsmith at watson.ibm.com> wrote...
>BTW, my first programs were in FORTRAN on a 1401 back in college.

FORTRAN -- did you say FORTRAN?

Maybe you can tell me what this does...

       INTEGER N(134)/'0','1',132*'0'/,L(2)/'(133',' A1)'/,G/133/,H/266/
       DO 1 K=G,17688
       IF(K.EQ.K/G*G) WRITE(6,L)(L(2),J=K,17689,H)(N((K-J)/G+2),J=G,K,G)
       N(J-K+1)=2**24*MOD((N(J-K+1)-N(1)+(N(J-K)-N(1))/10)/2**23,10)+N(1)
1      IF(MOD(K+1,G).EQ.0.AND.N(J/G+1).LE.N(1)) K=K-G
       END

	- Dan