DIMENSION ISET(9),ICODE(144)
	DO 1 I=1,9
1	ISET(I)=I
	DO 2 I=1,144
2	ICODE(I)=I-1
	CALL SRAND
	DO 3 I=1,17
3	J=IRAND(0)
	DO 10 NS=1,4
	CALL SHUF1(ICODE,1,144,1)
	WRITE(1,99)
99	FORMAT(3H*20)
	DO 20 N=1,144
	CALL SHUF1(ISET,1,9,1)
	NN=ICODE(N)
	I1=NN/72
	NN=NN-72*I1
	I2=NN/36
	NN=NN-36*I2
	I3=NN/12+2
	IF(I2)21,21,22
 22	NN=NN-12*(I3-2)
	I4=NN/(12/I3)+1
21	WRITE(1,100)(ISET(I),I=1,I3)
100	FORMAT(1H/,4I1)
	I1=I1+1
	GO TO (23,24),I1
23	II2=I2+1
	GO TO (25,26),II2
25	WRITE(1,101)I2
101	FORMAT(2H/-,I1)
	GO TO 20
26	WRITE(1,102)I2
102	FORMAT(2H/+,I1)
	GO TO 20
24	ITEST=ISET(I3+1)
	IF(I2-1)27,28,27
28	ITEST=ISET(I4)
27	WRITE(1,103)ITEST,I2
103	FORMAT(1H/,2I1)
20 	CONTINUE
10	CONTINUE
	STOP
	END