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))
1	TYPE 10
10	FORMAT(' FILE NAME ',$)
	READ(5,20,END=999)IQ,IFILE
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)
100	TYPE 101
101	FORMAT(' CHARACTER NUMBER ',$)
300	ACCEPT 102,ICHAR
102	FORMAT(I8)
	IF (ICHAR.LE.0)GOTO 900
	IF( ICHAR - IDIR(INDEX) ) 1001, 1003, 1002
1001	INDEX = INDEX - 2
	IF( INDEX .LT. 0 ) GO TO 800
	IF( ICHAR - IDIR(INDEX) ) 1001, 1003, 800
1002	INDEX = INDEX + 2
	JDIR = IDIR(INDEX)
	IF( JDIR .EQ. 0 ) GO TO 800
	IF( ICHAR - JDIR ) 800, 1003, 1002
1003	IR = IDIR( INDEX+1 )
	READ(1'IR)IDA
	SF=5./50
	IVEC=IDA(1)
	CALL PSEUDO
	CALL CALPLT(5.,5.,-3)
	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
	Y=IY*SF
	CALL CALPLT(X,Y,IPEN)
	IVEC=IVEC-1
	IPOS=IPOS+1
	IF (IVEC.NE.0)GOTO 120
	ACCEPT 102,I
	GOTO 100
C
800	TYPE 801
801	FORMAT(' NO CHARACTER ')
	GOTO 300
C
 900	CALL CLOSE(1)
	GOTO 1
C
C
 999	STOP
	END