FOCAL-SORT
FOCAL8-180

F. R. Johnson, Dow Badische Company, Freeport, Texas

This is a short routine to sort subscripted arrays by pair inter-
change. If duplication is found in array(x), then corresponding
two elements in array (y) are sorted into ascending order.

Minimum Hardware:
4K PDP-5/8
Other Programs Needed:
FOCAL-1968
Restrictions:
Inefficient for arrays of greater
than 20 elements
Source Language:
FOCAL-1968

Catalog: July 1973