A new version of the script producing pseudo poly-AT from channel pressure is available here:
Gabriel