>and it worked much, much faster.

That's really strange. Nothing in this code looks like it would speed up things so much. To the contrary, you are using naming expressions, more STRTRAN(), etc. I'd thought that the second version is slower or equally fast.