program testsocket1
  integer :: connection, handle, i, iport, istat
  integer, dimension(4) :: iaddress
  character (len=80) :: nam 
  character (len=256) :: lin 
  integer :: nlin

  iport=9000
  call fortran_mkserver(iport, handle, istat)
  if (istat /= 0) then
    write(*,*) 'ERROR: Unable to open port ', iport
    stop
  end if
  call fortran_accept(handle, connection, istat)
  call fortran_send(connection, 'Welcome!\n\n', istat)
  nlin=0
  lin=' '
  do while (lin /= 'quit')
    call fortran_send(connection, '>> ', istat)
    call fortran_receive(connection, lin, istat)
    nlin=nlin+1
    write(*,*) nlin, ': "', trim(lin), '"'
    if (lin(1:4) == 'help') then
      call fortran_send(connection, 'Type "quit" to finish.\n', istat)
    end if
  end do
  call fortran_closeserver(handle, istat)
end program testsocket1