(* (3-LISP) to start up 3-LISP.
   <CONTROL-D> to reset 3-LISP tower.
   <CONTROL-Y> to return to Interlisp.
   3-LISP (LOGOUT) erases all non-system bindings. *)