SUBROUTINE 	HITSST
	INTEGER*4	DBL(64),DLIM(2)
	COMMON	TIMER,TIMSAV,DBL,ISNGL,FVAL
	COMMON	/DATA/IHMAX,IMMAX,ISPACE
	DATA	DLIM/-10,10/
	CALL	ASK('READ TAPE',JJ)
	IF(JJ .NE. 0) CALL C2SET
	CALL	ASKN('EXTENDED HIST SPACE(0-1023)',ISPACE,0,1023)
	CALL	ASKN('# OF HISTS?',IHMAX)
	CALL	ASKN('NUMBER OF MARKERS',IMMAX)
	CALL	HIEXT(IHMAX,ISPACE,IMMAX)
	CALL	PSET(LERR,0,0,0,1,IHMAX,3,'HMAXMMAXSPAC',0,0)
	CALL	PSET(LERR,0,0,0,0,TIMER,2,'DTIMTIME',8,0)
	CALL	PSET(LERR,0,2,0,2,DBL,20,
	1 'D   DB  DB3 DB04DB05DB06DB07DB08DB09DB10DB11
	2DB12DB13DB14DB15DB16DB17DB18DB19DB20',15,DLIM)
	CALL	PSET(LERR,0,1,0,1,ISNGL,1,'SNGL',8,0)
	CALL	PSET(LERR,0,0,0,0,FVAL,1,'FVAL',8,0)
	CALL	LABLH(0,'TEST PROG ')
	CALL	HISET(1,100,0,2)
	CALL	LABLH(1,'1 DIM HIST')
	CALL	HISET(2,50,50)
	CALL	HISET(3,25,25,2)
	CALL	HISET(4,50,4)
	CALL	HISET(5,50)
	DO 43 I	= 6,IHMAX
	CALL	HISET(I,50,50)
	CALL	LABLH(I,'2 DIM HIST ')
43	CONTINUE
	IH	= 1
	DO 60 IM = 1,IMMAX,4
	DO 50	J	= IM,IM+1
	AB	= J*10
	CALL MARKF(J,IH,AB)
50	CALL MARKF(J+2,-IH,AB)
60	IH	= IH + 1
	CALL	PARGET
	CALL HISGET
	CALL CUTGET
	END