I wrote...
>>>	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

Bob responded...
>My question is: Did you write this down from memory or did you have it written on the back of a punched card somewhere?

I've lost a lot of things, but I kept those cards.

>P.S. I finally got the cobwebs out of the Fortran-to-Smalltalk part of my brain and produced a reasonably faithful conversion:
	<awesome executable transcription snipped>

Whoa -- amazing, Bob!
I never thought I would see it run again.
It's even faster than that old line printer -- and quieter
(now don't get me started on printer music ;-).

	- Dan