Source (or source of an earlier version at least), in BASIC: https://archive.org/details/BYTE_Vol_10-07_1985-07_Computers_and_Space/BYTE%20Vol%2010-07%201985-0

Source (or source of an earlier version at least), in BASIC: https://archive.org/details/BYTE_Vol_10-07_1985-07_Computers_and_Space/BYTE%20Vol%2010-07%201985-07%20Computers%20and%20Space/page/n180/mode/1up?q=+travesty https://archive.org/details/BYTE_Vol_10-07_1985-07_Computers... I couldn't find the Nov 1984 Pascal version, but like they say, Basic is easier for working with strings.