      program st

      integer i

      i=4
      write (7,'($,A)') '1'

      call sleep(i)

      write (7,'(A)') '2'
      stop
      end
