infil = 'tfss_check.txt
openr, lun, infil, /get_lun
;
nmax = 200
x = fltarr(nmax)
y = fltarr(nmax)
n = 0
;
lin = ' '
for i=1,6 do readf, lun, lin	;skip header
while not eof(lun) do begin
    for i=1,3 do readf, lun, lin	;skip other data
    readf, lun, a, b
    x(n) = a
    y(n) = b
    n = n+1
end
;
x = x(0:n-1)
y = y(0:n-1)
;
free_lun, lun
end