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