Directory of image this file is from
This file as a plain text file

	INTEGER SET(9),CODE(144),MOCO(2),TEST
C  SET UP CODES
	MOCO(1)=11
	MOCO(2)=22
	DO 1I=1,9
 1	SET(I)=I
	DO 2 J=1,144
 2	CODE(J)=J-1
	DO 10 NS=1,4
	CONTINUE
 11	CONTINUE
	WRITE(1,99)
	DO 20 N=1,144
 12	CONTINUE
	NN=CODE(N)
	I1=NN/72
	NN=NN-72*I1
	I2=NN/36
	NN=NN-36*I2
	I3=NN/12+2
	IF(I2.EQ.0)GO TO 21
	NN=NN-12*(I3-2)
	I4=NN/(12/I3)
 21	WRITE(1,100) (SET(I),I=1,I3)
	I1=I1+1
	GO TO (22,23), I1
 22	TEST=MOCO(I2+1)
	GO TO 25
 23	TEST=SET(I3+1)
	IF(I2.EQ.1) TEST=SET(I4)
 25	WRITE(1,101) TEST,I2
 20	CONTINUE 
 10	 CONTINUE
 99	FORMAT(3H*20)
 100	FORMAT(1H/,4I1)
 101	FORMAT(1H/,2I1)
	STOP
	END