main(){int i;long ip;char soc,*b;
ip=GetHostByName("www.cqpub.co.jp");if(!ip)return;soc=CreateSocket(1);
if(Connect(soc,ip,80)<0){CloseSocket(soc);return;}
b=MemoryAlloc(256);GetNetLine(0,0,0,0);
StrCpy(b,"GET / HTTP/1.1\r\nHost: www.cqpub.co.jp\r\n\r\n");
PrStr("---\r\n");PrStr(b);PrStr("---\r\n");
Write(soc,b,StrLen(b));WaitWriteComplete(soc);for(i=0;i<9;i++)
{if(GetNetLine(soc,b,250,20)<0)break;PrStr(b);PrStr("\r\n");}
GetNetLine(0,0,0,1);CloseSocket(soc);MemoryFree(b);}
