BYTE IBSTAT(2),IB(2048)
	INTEGER NAME(20),IC(2049)
	INTEGER*4	EQUTBL(402)
	COMMON	/CLIST/ISIZE,ICMAX,IC
	COMMON	/ERRORS/IERR,LERR,JERR
	COMMON	/EQU/ IEMAX,IBMAX
	COMMON	/EQUTBL/IEQMAX,EQUTBL
	COMMON	/STACK/	IS,ISMAX,ISTACK(200)
	ICMAX	= 2048
	IEMAX	= 400
	IBMAX	= 2047
	ISMAX	= 200
1	WRITE(5,1000)
	READ(5,1002,END=500) NAME
	CALL MOVE('.CLS',NAME(4),2)
	NAME(6)	= 0
	CALL ASSIGN(1,NAME)
	CALL MOVE('.LST',NAME(4),2)
	CALL ASSIGN(6,'TI:')
	WRITE(6,1003) (NAME(J),J=1,3)
	CALL CLIST
	IF(JERR .NE. 0) STOP '*** CLIST ERROR'
	CALL EXEC
1000	FORMAT('$ ENTER CLIST NAME:')
1001	FORMAT(I8' ERRORS IN COMMAND LIST')
1002	FORMAT(40A2)
1003	FORMAT('	COMMAND LIST	' 3A2//)
500	CONTINUE
	END

	SUBROUTINE EXEC
	INTEGER IA(20)
	COMMON	/CLIST/ISIZE,ICMAX,IC(2049)
	CALL SSET(LERR)
	WRITE(5,1000)
1000	FORMAT('$WRITE RESULTS? (0=NO, 1=YES, 2=MAYBE):')
1001	FORMAT(5I10)
1002	FORMAT('$ENTER # OF BUFFS, BUFFER SIZE:')
	READ(5,1001) IANAL
	WRITE(5,1002)
	READ(5,1001) IBUF,ISZ
	CALL C2SET(3,IC,IBUF,ISZ,2,0,4,IANAL,LERR)
	IF(LERR .EQ. 0 .OR. LERR .EQ. 1) GO TO 1
	WRITE(5,1011) LERR
	WRITE(5,1010) LERR
	WRITE(5,1004)
1004	FORMAT(' ERROR IN C2SET')
1	CONTINUE
	CALL ASTAT(ISTAT)
	IF(ISTAT .NE. 0) GO TO 1
	ISZ	= IBR(0)/2
	MAX	= 5
	CALL BTRAN(IA,-4,MAX)
	WRITE(5,1011) (IA(J),J	= 1,MAX)
1010	FORMAT(1X,10I8)
1011	FORMAT(/1X,10O8)
	WRITE(5,1010) (IA(J),J	= 1,MAX)
	DO 100 I	= 1,ISZ,8
	MAX	= 8
	IF(ISZ - I .LT. MAX) MAX	= ISZ - I + 1
	IF(ISZ .LE. 0) GO TO 100
	CALL	BTRAN(IA,I,MAX)
	WRITE(5,1011) I,(IA(J),J	= 1,MAX)
	WRITE(5,1010) I,(IA(J),J	= 1,MAX)
100	CONTINUE
	CALL RBTS
	GO TO 1
	END