PROGRAM OMAKE
C
	LOGICAL*1 DEF(40), FILE(40), CHAR(90)
C
	ENCODE(90,1,CHAR)
1	FORMAT('AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYyZz',
	1  '.,?:;''"!0123456789()[]<>+-=*#$%&^@\_/ ')
	OPEN( UNIT=1, NAME='ORIENT.DEF', TYPE='OLD', READONLY )
C
	DO 2000 I=30,37
	ENCODE(11,10,FILE) I, 0
10	FORMAT('HCST',I2,'.MAK',A1)
	OPEN( UNIT=2, NAME=FILE )
	WRITE(2,20) I
20	FORMAT(I2,/,'ORIENT.DAT',/,'64,.05')
	ENCODE(11,30,FILE) I, 0
30	FORMAT('HCST',I2,'.DEF',A1)
	OPEN( UNIT=3, NAME=FILE )
C
	DO 1000 J=1,90
	READ(1,40,END=1100) K, NDEF, DEF
40	FORMAT(I8,2X,Q,40A1)
	WRITE(2,50) CHAR(J), CHAR(J), K
50	FORMAT(2A1,I4,',1,-10')
	WRITE(3,60) CHAR(J), ( DEF(L), L=1,NDEF )
60	FORMAT(A1,1X,40A1)
1000	CONTINUE
1100	CLOSE( UNIT=2 )
	CLOSE( UNIT=3 )
2000	CONTINUE
	STOP
	END