Kod

alias depremkanal return #deprem
 alias depremler { .sockclose deprem | .sockopen deprem www.koeri.boun.edu.tr 80 }
 alias deprem { depremler }
 on *:sockopen:deprem:{ var %j = sockwrite -n $sockname | %j GET /scripts/lst9.asp HTTP/1.1 | %j Host: www.koeri.boun.edu.tr | %j $crlf }
 on *:sockread:deprem:{
 var %deprem
 sockread %deprem
 if ($+(*,$time(yyyy.mm.dd),*) iswm %deprem) {
 tokenize 32 %deprem
 set %depremdetay Tarih: $1 Saat: $2 Derinlik: $5 km Siddet: $7 Yer: $9-
if !$read(deprem.txt,w,%depremdetay) { write deprem.txt %depremdetay | msg $depremkanal [DEPREM] %depremdetay | .sockclose deprem }
 if $read(deprem.txt,w,%depremdetay) { .sockclose deprem }
 }
 }