INTEGER*2 IA(120),IDO
	INTEGER	ILIM(2)
	DATA	ILIM/10,100/
c	CALL	ASKN('How many hists',MAXH,6,1000,6)
	MAXH	= 10
	CALL	HIEXT(MAXH,,MAXH*2)
	CALL	SSET
	CALL	PSET(LERR,0,0,0,1,IHZ,1,'HIZE',8,0)
	CALL	PSET(LERR,0,0,0,1,IDO,1,'DO  ',8,0)
	CALL	PSET(LERR,0,0,0,1,IA,5,'IA1 IA2 IA3 IA4 IA5 ',8,0)
	IA(1)	= 1
	IA(5)	= 5
	CALL	PSET(LERR,1,0,0,0,FL,1,'FLOAT',8,0)
	CALL	PSET(LERR,0,1,1,2,IA,2,'IB1 IB2 ',3,ILIM)
	CALL	PSET(LERR,0,1,1,2,IA,2,'IB1XIB2X',8,0)
	CALL	PSET(LERR,0,1,1,2,MAXH,1,'maxh',0,0)
	CALL	HISET(1,100)
	CALL	HISET(2,25)
	CALL	SCALH(2,2,0)
	CALL	LABLH(0,'test prog.')
	CALL	SCALH(1,1,1)
	CALL	HISET(4,60,0,2)
	CALL	LABLH(4,'32 bit hist')
	CALL	HISET(5,100,100)
	CALL	LABLH(5,'2 DIM TEST')
	CALL	HISET(3,51)
	CALL	LABLH(3,'51 chan   ')
	DO 4 J = 6,MAXH
	CALL	HISET(J,50,50)
	CALL	LABLH(J,'2 DIM TEST')
4	CONTINUE
	CALL	LABLH(1,'TEST HIST ')
	CALL	LABLH(2,'TEST 2 WORD')
	IM	= -50
	do 5 j = 1,MAXH*2
	CALL MARKI(J,(J+1)/2,IM)
	IM	= - IM
5	continue
	CALL	PARGET
	CALL	CUTGET
	CALL	HISGET
c	OPEN(unit=6,FILE='TT:',type='new')
1	TYPE *,'Ready to begin run'
10	CONTINUE
	CALL	ASTAT(ISTAT)
	IF(ISTAT .GE. 4) GO TO 10	! Wait for beginning of run
	CALL	ZHIST(IHZ)
20	Do 40 i=1,50
	do 40 j=1,I
	DO 40 K=1,MAXH
	l	= K*2
	IF(MTSTI(I,L-1,L) .EQ. 0) go to 40
	l	= 1 + I/10
	DO 40 M	= 1,l
	CALL	HISTI(K,I,J)
	CALL	ASTAT(ISTAT)
	IF(ISTAT .ge. 4) go to 50
40	CONTINUE
	GO TO 20
50	CALL	CUTSAV
	CALL	PARSAV
	CALL	HISSAV
	GO TO 1
	END