Some very old pascal code I wrote during my very early days.