🚀 go-pugleaf

I'm hoping someone out there can help me on this one.  I was looking at a 
friend's copy of Apple Technote #31 (the Dogcow) from his technote stack and 
in the course of poking around in the stack script, managed somehow to mung
it up.  Tried everything I could.  Needless to say my friend is a tad upset.
Would some kind soul please supply me the correct text of the following routine
from the stack script:

From Script of stack "Technical Notes Stack 3.1"

on goEnvsm
  global theEnvsm
  ask "What was that again?"
  if main(it) = "Tenmvat bss n pyvss" then
    repeat with which = 1 to 3
      put main("gacvpg gafg"&which&",1,0") into the Envsm
      do mainstream - (note, this is where the execution dies)
    end repeat
  else
    put empty into theEnvsm
  endif
end goEnvsm

I'd _really_ appreciate some help on this.  My friend has been really
tolerant about losing access to the Dogcow TN. ("Oh, I've read it a few
times already")  but he spent 12 hours downloading it.  I know if I were
he, I'd boil me in oil.

Again, thanks.

----------------------------------------------------------------------------
joe houghtaling
jh0576@leah.albany.edu