PROGRAM INICHR
	INTEGER A1,A2,A3,C(64)
	OPEN (UNIT=10,DEVICE='DSK:',FILE='DNDCHR.DAT',MODE='BINARY',
	1	RECORDSIZE=67,ACCESS='RANDOM',ASSOCIATEVARIABLE=IASC)
	A1='     '
	A2=A1
	A3=A1
C
	DO 10 I=1,64
10	C(I)=0
C
	DO 20 I=1,100
20	WRITE (10'I) C,A1,A2,A3
C
	CLOSE (UNIT=10)
	STOP
	END