help: How to bind a TCP/IP socket ?

[nhwind]

I'm trying to use write a TPC/IP socket program. But i'm not to know how bind a socket . Here is the code:
program WINSOCK
use dfwin
implicit none

integer Err,Pcol,IP,Queue
integer*2 wVer,port

type(T_s_sockaddr_in) IpAddr
type (T_WSADATA) WSinfo

wVer=#101
Err = WSAStartup (wVer,WSinfo)
Pcol= socket(AF_INET,SOCK_STREAM,IPPROTO_TCP)

port=1250
IpAddr.sin_family=AF_INET
IpAddr.sin_port=htons(port)
IpAddr.sin_Addr.s_addr=htonl(INADDR_ANY)

Err= bind(Pcol,IpAddr,sizeof(IpAddr))

Err= WSAGetLastError()
print *,'Done'
end program WINSOCK

Some one can help me correct this binding socket,please ?
Sorry for possible grammar and other mistakes.

[Paul_Curtis]

This may help. Code has been extracted from a larger program, and will need to be slightly modified to be stand-alone.

[onkelhotte]

Hi there,
is there a way to establish a TCP IP connection between a fortran program with another program?

Markus