function read_until_nochar,unit,char
;===================================
  ;returns 'EOF!' if eof is reached otherwise returns next
  ;string which doesn't begin with "char"
  on_error,2
  
  s=''
  pos=0
  while (pos eq 0) and (not eof(unit)) do begin 
    ;readf,unit,s
    s=readStringBig(unit)
    pos=strpos(s,';')
  endwhile
  ;print,s
  
  if eof(unit) then return,'EOF!' else return,s
end