Method code for $sys.old_admin()

[Turn off line numbering]

---

  1: if (caller() != $admin)
  2:     throw(~perm, "Caller is not $admin.");
  3: admins = setremove(admins, sender());
  4: system = setremove(system, sender());
  5: 
  6: // $#Edited: 16 Feb 98 15:18 $user_bruce

---

["// Created 26-Mar-1995 as a part of ColdCore, see: @help Credit"]