alias kalanzaman {

  if ($0 < 1) return $null

  if ($1 < $ctime) return Bitti.

 
  var %durum = $duration($calc($1 - $ctime))

  %durum = $replace(%durum, wk, Ay)

  %durum = $replace(%durum, hr, Saat)

  %durum = $replace(%durum, min, Dakika)

  %durum = $replace(%durum, sec, Saniye)

  %durum = $replace(%durum, wk, Ay)

  %durum = $replace(%durum, $chr(32), $chr(44) $+ $chr(32))

  %durum = $regsubex(%durum, /([0-9])([a-z])/ig, \1 \2)

  return 2Haftalık operatörlük yarışmasının sonlanması için, %durum kaldı.. 

}

 
if (&testdate == $strip($1) && %kodDurumu == aktif) { 

.set %girilentarih $ctime($$1-)

msg # tarih belirlendi..

}

 if (&testdate2 == $strip($1) && %kodDurumu == aktif) { 

 msg # $replace($kalanzaman(%girilentarih),Dakikas,dakika,Day,gün,Saniyes,saniye,Ays,ay,Saats,Saat,güns,gün)

 }