.PS
boxwid = 1.5
boxht = 0.35
lineht = 0.30
diaml = 0.55
sbh = 0.35

   box "Person with evidence"
   arrow right linewid
   box "Associate Dean"
   line down from last box.s "sp_``Promptly''" ljust

   { box invis ht diaml*2.1 "Informal" "resolution" "possible" "?" }
   line down diaml left diaml
L: Here
   line down diaml right diaml
   {line up diaml right diaml then up diaml left diaml}

   line down lineht "sp_{}Yes" ljust
   box "Informal resolution"
   line "sp_{}5 working days" ljust
   box "Associate Dean"
   line

diaml = 0.4
   { box invis ht diaml*2.0 "Fair ?" }
   line down diaml left diaml then down diaml right diaml
   {line up diaml right diaml
      { line right "Yes" above
      box "File with Secretariat" }
    line up diaml left diaml}

   arrow down "sp_{}No" ljust
   { move left boxwid*3/4
   arrow <- to (Here,L); line to L "No" above}

   move left boxwid/3; down
   box wid boxwid*1.5 "Formal Resolution"

   {move left boxwid/2
   line down "sp_{}5 working days" ljust
   box wid boxwid*0.8 ht boxht*1.2 "Student prepares" "response"}

   move right boxwid/2
   line down "sp_{}5 working days" ljust
   box wid boxwid*0.8 ht boxht*1.2 "Assoc. Dean" "investigates"

   arrow from 2nd last box.r to last box.l

   line down from last box.s "sp_{}10 working days" ljust
   box "Notice of meeting"
   line "sp_{}24 hours" ljust
   box "Meeting"
   line "sp_{}10 working days" ljust

   { box invis ht diaml*2.0 "Appeal ?" }
   line down diaml left diaml
   {arrow left "Yes" above
   box wid boxwid*1.4 "FCSA/UCSA Hearing"}
   line down diaml right diaml then up diaml right diaml
   {line right "No" above
   box "File with Secretariat"}
   line up diaml left diaml

.PE