Modified the 1071 procedure