SUBROUTINE	CLOUT(NAME)
	BYTE	NAME(10)
	BYTE	NAME2(10)
	COMMON /CLIST/ IADD,ICMAX,IC(500)
	INTEGER IA(40)
	DATA LUN/4/
	DO 10 J	= 1,IADD
	WRITE(6,1001) J,IC(J),IC(J)		!WRITE OUT FINISHED CLIST
10	CONTINUE
	MAX	= 0
	DO 5	J	= 1,10
	IF(NAME(J) .EQ. ' ') GO TO 5
	MAX	= MAX + 1
	NAME2(MAX)	= NAME(J)
5	CONTINUE
	CALL OPE4(NAME2,MAX)
	CALL ZERO(IA,40)
	IA(1)	= 1			!SYMBOL RECORD
	CALL IRAD50(6,NAME,IA(2))	!TITLE
	IA(8)	= "2450			!BLANK PSECT(RW,LCL,CON,I)
	IA(9)	= IADD*2		!NUMBER OF BYTES IN PSECT
	CALL IRAD50(6,NAME,IA(10))	!GLOBAL NAME
	IA(12)	= "2150			!DEFINE NAME A GLOBAL SYMBOL
	CALL PUT4(IA,26,IERR)		!OUTPUT 1 RECORD
	CALL PUT4(2,2,IERR)		!OUTPUT END OF GLOBAL RECORD
	I	= 2
	CALL ZERO(IA,40)
	IA(1)	= 4			!RELOCATION DIRECTORY
	IA(2)	= 7
	CALL PUT4(IA,10,IERR)
C
C	NOW OUTPUT DATA
C
	IA(1)	= 3			!TEXT RECORD
	DO 100 I	= 1,IADD,19	!DO 19 WORDS/PER RECORD
	MAX	= IADD - I + 1
	IF(MAX .GT. 19) MAX	= 19
	IA(2)	= 2 * (I-1)		!LOCATION COUNTER
	CALL MOVE(IC(I),IA(3),MAX)
	CALL PUT4(IA,2*(MAX+2),IERR)	!OTPUT RECORD
100	CONTINUE
	CALL PUT4(6,2,IERR)		!EOF RECORD
	I	= 6
1000	FORMAT(O8,8I8)
1001	FORMAT(2I10,'	"'O6)
	CALL CLS4
	END