disp(char*p){char c;
while(c=*p++){if(c=='<'){do c=*p++;while(c&&c!='>');}else PrChar(c);}}
main(){int i;long ip;char soc,*b,*m,*h,*w;h="www.post.japanpost.jp";
m="data";ip=GetHostByName(h);if(!ip){PrStr("Host?\r\n");return;}
b=MemoryAlloc(256);w=MemoryAlloc(80);
for(;;){PrStr("Enter word=");Gets(w,80);if(!*w)break;
soc=CreateSocket(1);if(Connect(soc,ip,80)<0){CloseSocket(soc);break;}
GetNetLine(0,0,0,0);StrCpy(b,"GET /cgi-zip/zipcode.php?zip=");StrCat(b,w);
StrCat(b," HTTP/1.1\r\nHost: ");StrCat(b,h);
StrCat(b,"\r\n\r\n");Write(soc,b,StrLen(b));WaitWriteComplete(soc);
for(;;){if(GetNetLine(soc,b,250,20)<0)break;if(i=StrStr(b,m))break;}
if(i){for(i=0;i<3;i++){disp(b);if(GetNetLine(soc,b,250,20)<0)break;}
PrStr("\r\n");}GetNetLine(0,0,0,1);CloseSocket(soc);}
MemoryFree(w);MemoryFree(b);}
