PROGRAM TEST
C
C
      DIMENSION Y(25)
	LOGICAL E 
      CHARACTER*1 UCC,LCC,LINE1(120)
      DATA UCC/'C'/, LCC/'c'/
C
C  ***** PROGRAM INPUT *****
C
      OPEN(7,FILE='test.in')
 5    READ(7,1) (LINE1(I),I=1,120)
      IF(LINE1(1).EQ.UCC .OR. LINE1(1).EQ.LCC) GO TO 5
      BACKSPACE 7
      READ(7,*) A,B,C,D,E
      READ(7,*) F,G
      READ(7,*) R,S,T,U,V,W
      READ(7,*) (Y(I),I=3,25)
 7    CONTINUE
      WRITE(6,2)
 1    FORMAT(120A1)
 2    FORMAT(60X,'Input was read sucessfully'//)
C
C
      END