alias Deprem { sockopen aziz [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80 }
on *:sockopen:aziz: {
  sockwrite -n $sockname Get /scripts/lst6.asp HTTP/1.1
  sockwrite -n $sockname  host: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
  sockwrite -n $sockname $crlf
}
on *:SOCKREAD:aziz: {
  var %a
  sockread %a
  window -enz @Depremler
  if (Büyüklük isin %a) { aline @Depremler  3------------------------------------------------------------------0,4 $+ $htmlfree(%a) $+ 3-------------------------------- }
  if (son depremler isin %a) { aline @Depremler  13 $htmlfree(%a) }
  if (İlksel isin %a) {   
    set %iv $htmlfree(%a) |  
    set %iv $instok(%iv,4T=s,1,32)
    set %iv $instok(%iv,4Enlm,4,32)
    set %iv  $instok(%iv,4Boylm,6,32)
    set %iv $instok(%iv,4Dernlk 6km,8,32)
    set %iv $instok(%iv,4Sürsi6md ,11,32)
    set %iv $instok(%iv,3 -4Şideti3+ ,4,45)
    set %iv $instok(%iv,4 İL 3 İlce ,7,45)
  aline @Depremler %iv }
  if (REVIZE isin %a) {   
    set %iv $htmlfree(%a) |  
    set %iv $instok(%iv,4T=s,1,32)
    set %iv $instok(%iv,4Enlm,4,32)
    set %iv  $instok(%iv,4Boylm,6,32)
    set %iv $instok(%iv,4Dernlk 6km,8,32)
    set %iv $instok(%iv,4Sürsi6md ,11,32)
    set %iv $instok(%iv,3 -4Şideti3+ ,4,45)
    set %iv $instok(%iv,4 İL 3 İlce ,7,45)
  aline @Depremler %iv }
  if (Enlem(N) isin %a) { aline @Depremler  6 $htmlfree(%a) }
  if (-------------- isin %a) { aline @Depremler  4 $htmlfree(%a) }
}
alias htmlfree { 
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;) 
  return %x 
}