C     .TITLE NUMBER
C
C  11 MAY 78 - PAUL HENDERSON
C
      INTEGER DKI/15/,DKO/17/
      CHARACTER*80 RECORD
C
   1  CALL OPEN (DKI,'PAUL  ZZZ')
      N = 0
   2  READ (DKI,99,END=7) RECORD
      N = N + 1
      WRITE (DKO,98) N,RECORD
      GO TO 2
C
   7  CALL CLOSE (DKO)
      STOP 7
  99  FORMAT (A80)
  98  FORMAT (I6,2XA80)
      END