write(6,10)
  10  format(' boring...',/
     + ' boring...',/
     + ' boring...',/
     + ' boring...',/
     + ' boring...',/
     + ' boring...',/
     + ' boring...',/
     + ' boring...',/
     + ' boring...',/
     + ' boring...',/
     + ' boring...',/
     + ' boring...',/
     + ' boring...',/
     + ' boring...',/
     + ' boring...',/
     + ' boring...',/
     + ' boring...',/
     + ' boring...',/
     + ' boring...',/
     + ' boring...',/
     + ' boring...')
      end