#if ( defined(__COMPACT__)||defined(__LARGE__)||defined(__Huge__) )
/* for Compact, Large and Huge models of memory */
long heapinf() {
	long total = farcoreleft();
	farheapinfo heap;
	switch( farheapcheck() ) {
		case _HEAPEMPTY:
			total = - 1 ;
			break;
		case _HEAPCORRUPT:
			total = - 2 ;
			break;
		case _HEAPOK:
			heap.ptr = NULL;
			while(farheapwalk(&heap) != _HEAPEND)
				if(!heap.in_use)
					total += heap.size;
					break;
		}
	return total;
}
#else
/* for Tiny, Small and Medium models of memory */
long heapinf() {
	long total = coreleft();
	heapinfo heap;
	switch( heapcheck() ) {
		case _HEAPEMPTY:
			total = - 1 ;
			break;
		case _HEAPCORRUPT:
			total = - 2 ;
			break;
		case _HEAPOK:
			heap.ptr = NULL;
			while(heapwalk(&heap) != _HEAPEND)
				if(!heap.in_use)
					total += heap.size;
					break;
		}
	return total;
}
#endif