<*EXTERNAL*> INTERFACE Csort; IMPORT Ctypes; TYPE CompareProc = PROCEDURE(x,y: Ctypes.VoidStar): Ctypes.Int; PROCEDURE qsort(base: Ctypes.VoidStar; nel, width: Ctypes.UnsignedInt; p: CompareProc); END Csort.