Forums Scripts & Popups Looking to reduce/simplify this code

alias day {
  echo -a ---------
  var %day = $findtok(sun.mon.tue.wed.thu.fri.sat,$asctime(ddd),1,46)
  var %c = 0
  while (%c < 7) {
    inc %c
    echo -a did -a $dname $calc(70 + %c) $asctime($calc($ctime + ((%c - %day) * 86400)),d)
  }
}