	program BartTest

	CHARACTER*36 HEADER

	INTEGER LVAR1, LVAR2, LVAR3

	OPEN(UNIT=1, FILE='TEST.TXT', STATUS='OLD')

	READ(1, 100) HEADER

100 FORMAT(36A)

	READ(HEADER, FMT=110) LVAR1, LVAR2, LVAR3

110 FORMAT(3I12)

	end program BartTest