Index: /trunk/tools/czartool.pl
===================================================================
--- /trunk/tools/czartool.pl	(revision 28160)
+++ /trunk/tools/czartool.pl	(revision 28161)
@@ -32,5 +32,5 @@
 sub printInstructions {
 
-    print "\n### Enter: (s)ervers (f)ull (n)ew (d)rop (w)ait (q)uit (l)abel, or label number from table above: ";
+    print "| Usage: (s)ervers, (l)ables, (q)uit, or label number from table above: ";
 }
 
@@ -48,11 +48,7 @@
 
         if ($key eq "s") {checkServers();}
-        elsif ($key eq "f") {checkAllLabels("full");}
-        elsif ($key eq "n") {checkAllLabels("new");}
-        elsif ($key eq "d") {checkAllLabels("drop");}
-        elsif ($key eq "w") {checkAllLabels("wait");}
-        elsif ($key eq "l") {labelDetails();}
+        elsif ($key eq "l") {checkAllLabels("new");}
         elsif ($key eq "u") {serverStatus("stdscience");}
-        elsif ($key =~ m/[0-9]/) {my $key2=getc; checkOneLabel($stdscienceLabels[$key.$key2]);}
+        elsif ($key =~ m/[0-9]/) {my $key2=getc; checkOneLabel($stdscienceLabels[($key.$key2)-1]);}
         printInstructions();
 
@@ -227,5 +223,5 @@
     my $stdsLabel;
     my $distLabel;
-    my $i=0;
+    my $i=1;
     my $distributing;
     foreach $stdsLabel (@stdscienceLabels) {