SUBROUTINE HCUSE( KSET )
	CALL HCSETR( KSET )
	RETURN
	END
	SUBROUTINE HCSIZE( STRING, NCHRS, W, HA, HB )
	COMMON /ENTRY/ XENTRY, YENTRY, DIMEN, XMAX, YMAX, YMIN
	LOGICAL DIMEN
	LOGICAL*1 STRING(1)
	XENTRY = 0.
	YENTRY = 0.
	DIMEN = .TRUE.
	CALL HCSGEN( STRING, NCHRS )
	W = XMAX
	HA = YMAX
	HB = YMIN
	RETURN
	END
	SUBROUTINE HCGEN( XP, YP, STRING, NCHRS )
	COMMON /ENTRY/ XENTRY, YENTRY, DIMEN, XMAX, YMAX, YMIN
	LOGICAL DIMEN
	LOGICAL*1 STRING(1)
	XENTRY = XP
	YENTRY = YP
	DIMEN = .FALSE.
	CALL HCSGEN( STRING, NCHRS )
	RETURN
	END