program zaser
      integer*4 k,l
      real*8 zb,zi,zj 
1     write(6,*)'how many bytes to zaser:'
      read(5,*)zb
      open(1,file='zaser.test',form='unformatted')
      zi=zb/1000.0d0/4.0d0
      k=10
      write(6,*)zi
      zj=0.0d0
2     zj=zj+1.0d0
      write(1)(k,l=1,1000)
      if(zj.lt.zi)goto 2
      close(1)
      stop
      end