diff -r ecc10b50b7a6 -r a6bc8818d069 examples/client
--- a/examples/client	Tue Jan 06 10:56:28 2009 +0100
+++ b/examples/client	Tue Jan 06 15:07:03 2009 +0100
@@ -14,8 +14,16 @@
     my $r;
 
     # reset
-    $r = $q->full_reset;
-    print $r->ok ? $r->data : $r->error_message, "\n";
+    $q->full_reset->ok or die $q->last_result->error_message;
+
+    # does not work
+    #$q->cmd("RB 0007")->ok or die $q->last_result->error_message;
+    #print "***: " . $q->last_result->data . "\n";
+    #$q->set_timeout(5)->ok    or die $q->last_result->error_message;
+    #$q->cmd("WB 0100 FF")->ok or die $q->last_result->error_message;
+    #$q->cmd("RB 0007")->ok    or die $q->last_result->error_message;
+    #print "***: " . $q->last_result->data . "\n";
+    #exit;
 
     foreach (
         qw(
@@ -28,21 +36,22 @@
         WL.0100.00.55.00.55
         SL.0100.00.55.00.55
         CL.0100.00.55.00.55
+        WX.0100.FF.FF.FF.FF.FF.FF.FF.FF
         )
       )
     {
         $r = $q->cmd($_);
         print "err: " . $r->error_message . "\n" if not $r->ok;
 
-	/.(.)\.(....)/;
-	$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;
+        /.(.)\.(....)/;
+        $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;
     }
 
 }