on *:sockopen:_borsa: { 
  sockwrite -nt $sockname GET /borsa.php HTTP/1.0
  sockwrite -nt $sockname Host: $sock($sockname).addr | sockwrite -nt $sockname $crlf
}
on *:sockread:_borsa:{
  var %i | sockread %i | if !$window(@BoRsa) { window -en @BoRsa } 
  if "isim" isin %i { echo @BoRsa 7 $token($htmlfree(%i),1,64) 2Fiyat:4 $token($htmlfree(%i),2,64)  2Degisim:4 $token($htmlfree(%i),3,64) }
}
alias borsa { if $window(@BoRsa) { clear @BoRsa } | sockclose _borsa | sockopen _borsa api.teknolobi.net 80 }
alias htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,,$chr(9)) | return %x }