var %day = $findtok(Sunday Monday Tuesday Wednesday Thursday Friday Saturday, $day, 1, 32)
var %did = $calc(70 + %day), %start = %did, %i = 0
while (%i < 7) {
did -a $dname %did $asctime($calc($ctime + (86400 * (%did - %start))),d)
inc %i
inc %did
if (%did > 77) { var %did = 71 }
}