program signal_sender
 1000 write(*,*)'Signal to be written into signal.txt file:'
      read(*,*)sig
      open(unit=10,file='signal.txt')
      write(10,*)sig
      close(10)
      goto 1000
      end