read in string of unknown length : I have the following simple fortran program:

        program quotes
           implicit none
           character*1000 quote       
           integer*4 i

	       open(13,file='d:\sp500.new',status='unknown')
	       close(13,status='delete')

           open(12,file='d:\sp500.dat')
	       open(13,file='d:\sp500.new', status='new')


           do 100 i = 1,61113
              read(12,'(A)') quote          
		  
		      if(quote[1] .eq. 'I')write(13,'(A)')quote

    100    continue

           end

I'm trying to read in the entire string, check to see if the first character in the string = 'I' and if true write out the entire string.  I have some other testing I have to do so I need to read the input string character by character

the error message is:

    D:\quotes.f90(18): error FOR3852: syntax error detected between QUOTE and [1]
    Error executing fl32.exe.
    quotes.obj - 1 error(s), 0 warning(s)
