PROGRAM LOOK
C
C THIS PROGRAM IS TO LOOK AT THE HERSHEY CHARACTER
C SETS OCCD.DAT AND ORIENT.DAT
C
	DIMENSION IDIR(4000),IDI(16,250),IDA(16)
	BYTE IFILE(40)
	EQUIVALENCE (IDIR(1),IDI(1,1))
	CALL PSEUDO
	CALL HOME
1	TYPE 10
10	FORMAT(' FILE NAME ',$)
	READ(5,20,END=999)IQ,IFILE
	CALL ERASE
	CALL SIZEUP(.25,0.)
20	FORMAT(Q,40A1)
	IFILE(IQ+1)=0
	INDEX = 1
	OPEN(UNIT=1,NAME=IFILE,ACCESS='DIRECT',
	1RECORDSIZE=8,ASSOCIATEVARIABLE=IR,
	2TYPE='OLD',READONLY)
	DO 40 I=1,250
40	READ(1'I)(IDI(KK,I),KK=1,16)
	SF=1./50.
	ICR=0
	ICC=0
	ILAST=0
	IST=1
100	IF (IDIR(IST).LE.ILAST)GOTO 1
	ICHAR=IDIR(IST)
	ILAST=ICHAR
	IST=IST+1
	IR=IDIR(IST)
	IST=IST+1
	ENCODE(40,101,IFILE)ICHAR,0
101	FORMAT(I4,A1)
	XOFF=ICC*2.1
	YOFF=ICR*1.+.5
	CALL HCGEN(XOFF,YOFF,IFILE,999)
	READ(1'IR)IDA
	IVEC=IDA(1)
	IPOS=2
120	IF (IPOS.LE.16)GOTO 130
	READ(1'IR)IDA
	IPOS=1
130	CALL UNPACK(IDA(IPOS),IX,IY,IPEN)
	X=IX*SF+XOFF+1.5
	Y=IY*SF+YOFF+.125
	CALL CALPLT(X,Y,IPEN)
	IVEC=IVEC-1
	IPOS=IPOS+1
	IF (IVEC.NE.0)GOTO 120
	ICR=ICR+1
	IF (ICR.LT.10)GOTO 200
	ICR=0
	ICC=ICC+1
200	IF (ICC.LT.6)GOTO 100
	ICC=0
	ICR=0
	CALL HDCOPY
	CALL ERASE
	CALL SIZEUP(.25,0.)
	GOTO 100
C
 900	CALL CLOSE(1)
	GOTO 1
C
C
 999	STOP
	END