
      open 'SAMPLE.WEB' to web.fd else stop 201,'SAMPLE.WEB'

      s = ''
      for i = 1 to 1000
         s<-1> = ( 'line ' : i : ' ' : str('.',100) )[1,100]
      next i

      write s on web.fd , 'BIG.TXT'
END
