c     text console output channel = 6 !
100   format(1x,"Hi Adam!")
      write(6,100)
	  stop
      end