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=38,39
	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
	J = 0
	K = -1
	DO 1000 JK=0,75
	J = J + 1
	K = K + 1
	IF( K .EQ. 51 ) K = 55
	WRITE(2,50) CHAR(J), CHAR(J), 6000+K
50	FORMAT(2A1,I4)
1000	CONTINUE
	CLOSE( UNIT=2 )
	CLOSE( UNIT=3 )
2000	CONTINUE
	STOP
	END