--- a/erasemem2	Thu Nov 21 14:01:21 2013 +0000
+++ b/erasemem2	Fri Jul 03 10:25:08 2020 -0400
@@ -2,9 +2,9 @@
 #======================================================================
 #                    E R A S E M E M 2 
 #                    doc: Mon Mar  8 02:57:35 2004
-#                    dlm: Thu Aug 26 00:28:51 2010
+#                    dlm: Fri Jul  3 10:16:02 2020
 #                    (c) 2004 A.M. Thurnherr
-#                    uE-Info: 18 39 NIL 0 0 72 2 2 8 NIL ofnI
+#                    uE-Info: 61 9 NIL 0 0 72 2 2 8 NIL ofnI
 #======================================================================
 
 # HISTORY:
@@ -12,6 +12,7 @@
 #  Nov 19, 2008: - added version
 #  Aug 25, 2010: - DEFAULTS.expect -> CRUISE_SETUP.expect
 #		 - libBB.expect -> libRDI.expect
+#  Jul  3, 2020: - expunged master/slave terminology
 
 log_user 0;
 
@@ -28,9 +29,9 @@
 reset_two_instruments;
 
 set must_erase 0;
-select_master 0;
+select_DL 0;
 if {[memory_empty]} {
-	select_slave;
+	select_UL;
 	if {[memory_empty]} {
 		send_user "\nMemory is empty --- nothing to erase.\n";
 	} else {
@@ -40,7 +41,7 @@
 } else {
 	send_user "\n"; list_dir;
 	set must_erase 1;
-	select_slave;
+	select_UL;
 	if {![memory_empty]} {
 		send_user "\n"; list_dir;
 		set must_erase 1;
@@ -50,13 +51,13 @@
 if {$must_erase == 1} {
 	if {[affirm "\nERASE FILES? (Y/n) --- timeout erases! " 10 1]} {
 		send_user "Erasing memory...";
-		select_master; erase_memory;
-		select_slave; erase_memory;
+		select_DL; erase_memory;
+		select_UL; erase_memory;
 		send_user "\n";
 	}
 }
 
 send_user "Putting instruments to sleep..."
-select_master; put_to_sleep; select_slave; put_to_sleep;
+select_DL; put_to_sleep; select_UL; put_to_sleep;
 
 send_user "\nDone\n"