Simple PASCAL - McGregor, James J. (Pitman, 1981)