diff --git a/CMakeLists.txt b/CMakeLists.txt
index bb8827a..b879331 100644
--- a/CMakeLists.txt
+++ b/CMakeLists.txt
@@ -77,7 +77,6 @@ ENDIF()
 SET(BAD_SRCS
     src/atom.c
     src/chatter.c
-    src/Cldeetr.c
     src/codeconv.c
     src/codetbl.c
     src/doscomm.c
diff --git a/src/Cldeetr.c b/src/Cldeetr.c
deleted file mode 100644
index 9794c0f..0000000
--- a/src/Cldeetr.c
+++ /dev/null
@@ -1,177 +0,0 @@
-/* $Id: Cldeetr.c,v 1.3 1999/01/03 02:06:30 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved
- */
-
-/*
- *
- *	Cldeetr.c
- *	Kick starter for COLOR emulator
- */
-
-/************************************************************************/
-/*									*/
-/*	(C) Copyright 1989-95 Venue. All Rights Reserved.		*/
-/*	Manufactured in the United States of America.			*/
-/*									*/
-/************************************************************************/
-
-#include "version.h"
-
-#include <stdio.h>
-#include <string.h>
-#include <ctype.h>
-#include <sys/types.h>
-#include <sys/time.h>
-#include <sys/socket.h>
-#ifdef OS4
-#include <sys/file.h>
-#endif /* OS4 */
-
-#include <net/if.h>
-#include <netdb.h>
-#include <netinet/in.h>
-#include <netinet/if_ether.h>
-#include <net/nit.h>
-#include <sys/ioctl.h>
-#ifdef OS4
-#include <stropts.h>
-#include <net/nit_if.h>
-#include <net/nit_pf.h>
-#endif /* OS4 */
-
-#include <nlist.h>
-#include <fcntl.h>
-#include <errno.h>
-
-int ether_fd = -1;                                /* file descriptor for ether socket */
-unsigned char ether_host[6] = {0, 0, 0, 0, 0, 0}; /* 48 bit address */
-char filetorun[30] = "ldecolor";
-
-int main(int argc, char *argv[])
-{
-  char Earg[30], Ename[30], **newargv;
-  int i;
-  /* Kickstart program for the Lisp Development Environment (LDE).
-          Run this as setuid root to open the LDE ether socket.
-          Passes all arguments through to LDE plus -E <ether-info>
-          to communicate open ether socket.
-
-          <ether-info> looks like this:
-          <descriptor-number>:<b1>:<b2>:<b3>:<b4>:<b5>:<b6>:<name>
-
-          where <descriptor-number> is the number of the open
-          socket (decimal), and <b1>-<b6> are hex of the socket's
-          48-bit Ethernet address, and <name> is the name of the
-          Ethernet device as found by SIOCGIFCONF.
-  */
-
-  if (!geteuid()) {
-#ifndef OS4
-    if ((ether_fd = socket(AF_NIT, SOCK_RAW, NITPROTO_RAW)) >= 0) {
-#else  /* OS4 */
-
-    if ((ether_fd = open("/dev/nit", O_RDWR)) >= 0) {
-#endif /* OS4 */
-
-      /* it's open, now query it and find out its name and address */
-      /* JRB - must document that LDE uses the first net board as found
-      by SIOCGIFCONF (see if(4)).  Maybe we need an option to specify
-      which net board (suspect more than one net board on an LDE machine
-      will be rare, but...).
-      */
-      struct ifconf if_data;
-      struct ifreq ifbuf[20];
-
-#ifdef OS4
-      /* first and foremost, get the packet filter module attached
-              (used for ether_suspend and ether_resume) */
-
-      if (ioctl(ether_fd, I_PUSH, "pf") < 0) {
-        perror("IOCTL push of pf lost");
-        close(ether_fd);
-        goto I_Give_Up;
-      }
-#endif /* OS4 */
-
-      if_data.ifc_len = sizeof(ifbuf);
-      if_data.ifc_req = ifbuf;
-#ifndef OS4
-      if (ioctl(ether_fd, SIOCGIFCONF, &if_data) < 0) {
-        perror("Couldn't GIFCONF socket; Net is off");
-#else  /* OS4 */
-
-      memset(ifbuf, 0, sizeof(ifbuf));
-      {
-        /* we have to get the interface name from another socket, since
-        /dev/nit doesn't know anything until it gets bound, and we
-        can't bind it without knowing the interface name... */
-        int s;
-
-        if ((s = socket(AF_INET, SOCK_DGRAM, 0)) < 0) {
-          perror("No socket for interface name");
-          close(s);
-          close(ether_fd);
-          ether_fd = -1;
-          goto I_Give_Up;
-        }
-        if (ioctl(s, SIOCGIFCONF, (char *)&if_data) < 0) {
-          perror("Couldn't get interface name from socket");
-          close(s);
-          close(ether_fd);
-          ether_fd = -1;
-          goto I_Give_Up;
-        }
-        (void)close(s);
-      }
-      if (ioctl(ether_fd, NIOCBIND, &if_data.ifc_req[0]) < 0) {
-        perror("Couldn't NIOCBIND socket: Net is off");
-#endif /* OS4 */
-
-        close(ether_fd);
-        ether_fd = -1;
-        goto I_Give_Up;
-      }
-      /* now for the address */
-      if (ioctl(ether_fd, SIOCGIFADDR, &if_data.ifc_req[0]) < 0) {
-        perror("Couldn't GIFADDR socket: Net is off");
-        close(ether_fd);
-        ether_fd = -1;
-        goto I_Give_Up;
-      }
-      bcopy(if_data.ifc_req[0].ifr_addr.sa_data, ether_host, 6);
-      strcpy(Ename, if_data.ifc_req[0].ifr_name);
-
-      fcntl(ether_fd, F_SETFL, fcntl(ether_fd, F_GETFL, 0) | O_ASYNC | O_NONBLOCK);
-
-#ifdef DEBUG
-      printf("init_ether: **** Ethernet starts ****\n");
-#endif
-    } else {
-    I_Give_Up:
-      perror("init_ether: can't open NIT socket\n");
-      ether_fd = -1;
-      /*	exit();	*/
-    }
-    seteuid(getuid());
-  }
-
-  /* OK, right here do other stuff like scan args */
-  /* finally crank up LDE; first copy the original args */
-
-  newargv = (char **)malloc((argc + 1 + (ether_fd > 0) * 2) * sizeof(char **));
-  newargv[0] = filetorun; /* or whatever... */
-  for (i = 1; i < argc; i++) newargv[i] = argv[i];
-
-  /* then if the net is active, spit out the ether info */
-  if (ether_fd > 0) {
-    newargv[i++] = "-E";
-    sprintf(Earg, "%d:%x:%x:%x:%x:%x:%x:%s", ether_fd, ether_host[0], ether_host[1], ether_host[2],
-            ether_host[3], ether_host[4], ether_host[5], Ename);
-    newargv[i++] = Earg;
-  }
-  newargv[i] = 0;
-
-  /* then execve the LDE executable */
-  execvp(filetorun, newargv);
-  perror(filetorun);
-  exit(1);
-}