Additional pattern3 routine removed program trimmed