Description of a program to calculate the behaviour of a ship in a seaway. Program listing