on 1:sockread:qrz:{
if ($sockerr) {
echo -a Error.
halt
}
else {
sockread %temptext
if ($mid(%temptext,41,8) == Country:) {
var %head = <tr bgcolor="#FFFFFF"><td align="right">
var %mid = </td><td><b>
var %end = </b></td></tr>
%text = %text $+ $chr(32) $+ $remove(%temptext,%head,%mid,%end)
write "C:\Documents and Settings\Owner\Desktop\hams2.txt" %text
unset %text
}
elseif ($left(%temptext,14) == <title>QRZ.COM) {
var %head = <title>QRZ.COM
var %mid = </td><td><b><a href="/callsign/ $+ %call $+ ">
var %end = </title>
set %text $remove(%temptext,%head,%end)
}
}
if (%temptext = </html>) {
%ln = %ln + 1
set %url /detail/ $+ $read("C:\Documents and Settings\Owner\Desktop\hams.txt",%ln)
set %call $read("C:\Documents and Settings\Owner\Desktop\hams.txt",%ln)
sockwrite -n $sockname GET %url HTTP/1.1
sockwrite -n $sockname Host: www.qrz.com $+ $crlf $+ $crlf
}
}