      PROGRAM SBREAD
      IMPLICIT UNDEFINED(A-Z)
      INTEGER*4 NO,I
      REAL*4 RAH,RAM,DECD,DECM,MAG1,MAG2,PERIOD,RA,DEC
      CHARACTER*1 Q
      CHARACTER*9 ID
      CHARACTER*13 NAME
      CHARACTER*20 SP1
      CHARACTER*17 SP2
      OPEN (UNIT=4,FILE='FILE21.DAT',STATUS='OLD')
      OPEN (UNIT=7,FILE='BATTEN.PRN',STATUS='NEW')
      DO 100 I=1,978
      READ (4,1200) NO,ID,NAME,RAH,RAM,DECD,DECM,MAG1,MAG2,SP1,SP2,
     1              PERIOD,Q
      RA=RAH+RAM/60.
      IF(DECD.LT.0) DECM=-DECM
      DEC=DECD+DECM/60.
      WRITE (7,1300) NO,ID,NAME,RA,DEC,MAG1,MAG2,SP1,SP2,PERIOD,Q
  100 CONTINUE
      CLOSE (UNIT=7)
      CLOSE (UNIT=4)
      STOP
 1200 FORMAT (I3,A9,A13,F2.0,F4.1,F3.0,F2.0,8X,F5.2,2X,F5.2,2X,A18,
     1        A19,F9.4,99X,A1)
 1300 FORMAT (I3,1X,'"',A9,'" "',A13,'"',1X,F7.3,1X,F7.2,1X,F6.3,
     1        1X,F6.3,1X,'"',A18,'" "',A19,'"',1X,F9.4,1X,A1)
      END