Someone

on *:TEXT:!except *:#pc-hq: {
  if ($nick isop $chan) {
    set %aa 1
    while (%aa <= $lines(exceptions.txt)) {
      if ($2 == $read(exceptions.txt,%aa)) {
        msg #pc-hq 4 $+ $2 14is on the4 exception14 list.
        set %bloobla yes
        halt
      }
      inc %aa 1
      set %bloobla no
    }
    if (%bloobla == no) {
      write exceptions.txt $2
      notice $nick 4 $+ $2 14has been added to the 4exception 14list.
      /load -rs exceptions.txt
    }
  }
  else {
    notice $nick 14Sorry, only 4Ops 14can use this 4command14.
  }
}

on *:TEXT:!unexcept *:#pc-hq: {
  if ($nick isop $chan) {
    if ($2 !isin $read(exceptions.txt)) {
      notice $Nick 14This person isn't on the 4exception 14list.
    }
    else {
      write -ds $+ $2 exceptions.txt $2
      notice $nick 4 $+ $2 14has been deleted from the 4exception 14list.
      /load -rs exceptions.txt
    }
  }
  else {
    notice $nick 14Sorry, only 4Ops 14can use this 4command14.
  }
}

on *:TEXT:!elist:#pc-hq: {
  if ($nick isop $chan) {
    set %ss 1
    while (%ss <= $lines(exceptions.txt)) {
      msg $nick 4 $+ $read(exceptions.txt,%ss) 14is an 4exception14.
      inc %ss 1
    }
  }
  else {
    notice $nick 14Sorry, only 4Ops 14can use this 4command14.
  }
}

and for your on join... add to it....
on *:JOIN:#goodpcw: {
  set %aa 1
  while (%aa <= $lines(exceptions.txt)) {
    if ($nick == $read(exceptions.txt,%aa)) {
      msg #goocpcw 4 $+ $nick 14is on the4 exception14 list.
      halt
    }
    inc %aa 1
    set %bloobla no
  }
  <rest of your onjoin>