Code:
 var %day = $findtok(Sunday Monday Tuesday Wednesday Thursday Friday Saturday,$day,1,32)
  if $1 == 1 {
    did -a $dname 71 $asctime($calc($ctime + 0),d)
    did -a $dname 72 $asctime($calc($ctime + 86400),d)
    did -a $dname 73 $asctime($calc($ctime + 172800),d)
    did -a $dname 74 $asctime($calc($ctime + 259200),d)
    did -a $dname 75 $asctime($calc($ctime + 345600),d)
    did -a $dname 76 $asctime($calc($ctime + 432000),d)
    did -a $dname 77 $asctime($calc($ctime + 518400),d)
  }
  elseif %day == 2 {
    did -a $dname 71 $asctime($calc($ctime - 86400),d)
    did -a $dname 72 $asctime($calc($ctime + 0),d)
    did -a $dname 73 $asctime($calc($ctime + 86400),d)
    did -a $dname 74 $asctime($calc($ctime + 172800),d)
    did -a $dname 75 $asctime($calc($ctime + 259200),d)
    did -a $dname 76 $asctime($calc($ctime + 345600),d)
    did -a $dname 77 $asctime($calc($ctime + 432000),d)
  }
  elseif %day == 3 {
    did -a $dname 71 $asctime($calc($ctime - 172800),d)
    did -a $dname 72 $asctime($calc($ctime - 86400),d)
    did -a $dname 73 $asctime($calc($ctime + 0),d)
    did -a $dname 74 $asctime($calc($ctime + 86400),d)
    did -a $dname 75 $asctime($calc($ctime + 172800),d)
    did -a $dname 76 $asctime($calc($ctime + 259200),d)
    did -a $dname 77 $asctime($calc($ctime + 345600),d)
  }
  elseif %day == 4 {
    did -a $dname 71 $asctime($calc($ctime - 259200),d)
    did -a $dname 72 $asctime($calc($ctime - 172800),d)
    did -a $dname 73 $asctime($calc($ctime - 86400),d)
    did -a $dname 74 $asctime($calc($ctime + 0),d)
    did -a $dname 75 $asctime($calc($ctime + 86400),d)
    did -a $dname 76 $asctime($calc($ctime + 172800),d)
    did -a $dname 77 $asctime($calc($ctime + 259200),d)
  }
  elseif %day == 5 {
    did -a $dname 71 $asctime($calc($ctime - 345600),d)
    did -a $dname 72 $asctime($calc($ctime - 259200),d)
    did -a $dname 73 $asctime($calc($ctime - 172800),d)
    did -a $dname 74 $asctime($calc($ctime - 86400),d)
    did -a $dname 75 $asctime($calc($ctime + 0),d)
    did -a $dname 76 $asctime($calc($ctime + 86400),d)
    did -a $dname 77 $asctime($calc($ctime + 172800),d)
  }
  elseif %day == 6 {
    did -a $dname 71 $asctime($calc($ctime - 432000),d)
    did -a $dname 72 $asctime($calc($ctime - 345600),d)
    did -a $dname 73 $asctime($calc($ctime - 259200),d)
    did -a $dname 74 $asctime($calc($ctime - 172800),d)
    did -a $dname 75 $asctime($calc($ctime - 86400),d)
    did -a $dname 76 $asctime($calc($ctime + 0),d)
    did -a $dname 77 $asctime($calc($ctime + 86400),d)
  }
  elseif %day == 7 {
    did -a $dname 71 $asctime($calc($ctime - 518400),d)
    did -a $dname 72 $asctime($calc($ctime - 432000),d)
    did -a $dname 73 $asctime($calc($ctime - 345600),d)
    did -a $dname 74 $asctime($calc($ctime - 259200),d)
    did -a $dname 75 $asctime($calc($ctime - 172800),d)
    did -a $dname 76 $asctime($calc($ctime - 86400),d)
    did -a $dname 77 $asctime($calc($ctime + 0),d)
  }


There are a lot of similar things happening in this code, and it does work as written, but if I could get this reduced in size I'd appreciate it.. The overall code is going to be very long to start with.