diff -r 246d80ec6653 -r ecc10b50b7a6 examples/client
--- a/examples/client	Tue Jan 06 09:31:17 2009 +0100
+++ b/examples/client	Tue Jan 06 10:56:28 2009 +0100
@@ -14,44 +14,36 @@
     my $r;
 
     # reset
-    $r = $q->cmd("SL000700000001"); 
-    print $r->ok ? $r->data : $r->error_message, "\n";
-
-    sleep 1;
-    $r = $q->cmd("WX0100FFFFFFFFFFFFFFFF");
-    print $r->ok ? $r->data : $r->error_message, "\n";
-
-    sleep 1;
-    # switch off all lights
-    $r = $q->cmd("WX01000000000000000000");
-    print $r->ok ? $r->data : $r->error_message, "\n";
-
-    sleep 1;
-    $r = $q->cmd("WB0100FF");
-    print $r->ok ? $r->data : $r->error_message, "\n";
-
-    sleep 1;
-    $r = $q->cmd("WB010001");	# 1 bit setzen
+    $r = $q->full_reset;
     print $r->ok ? $r->data : $r->error_message, "\n";
 
-    sleep 1;
-    $r = $q->cmd("WB010055");	# 0101|0101
-    print $r->ok ? $r->data : $r->error_message, "\n";
-
-    sleep 1;
-    $r = $q->cmd("WB0100AA");	# 1010|1010
-    print $r->ok ? $r->data : $r->error_message, "\n";
+    foreach (
+        qw(
+        WX.0100.FF.FF.FF.FF.FF.FF.FF.FF
+        WX.0100.00.00.00.00.00.00.00.00
+        WB.0100.FF
+        WB.0100.01
+        WB.0100.55
+        WB.0100.AA
+        WL.0100.00.55.00.55
+        SL.0100.00.55.00.55
+        CL.0100.00.55.00.55
+        )
+      )
+    {
+        $r = $q->cmd($_);
+        print "err: " . $r->error_message . "\n" if not $r->ok;
 
-    sleep 1;
-    $r = $q->cmd("WW0100AAAA");	# 1010|1010 1010|1010
-    print $r->ok ? $r->data : $r->error_message, "\n";
+	/.(.)\.(....)/;
+	$r = $q->cmd("R$1$2");
+	if ($r->ok) {
+	    print "got: " . $r->data . "\n";
+	} 
+	else {
+	    print "err: " . $r->error_message . "\n" if not $r->ok;
+	}
+	sleep 1;
+    }
 
-    sleep 1;
-    $r = $q->cmd("SL010000550055");	# + 1010|1010 0000|0000 0101|0101
-    print $r->ok ? $r->data : $r->error_message, "\n";
-
-    sleep 1;
-    $r = $q->cmd("CL010000000055");	# - 0101|0101
-    print $r->ok ? $r->data : $r->error_message, "\n";
 }