--- Tape.pm	2008/04/12 16:18:09	193
+++ Tape.pm	2008/04/12 22:54:19	194
@@ -69,13 +69,13 @@
 
 	if ( $pos <= $tape_len ) {
 		$byte = ord( substr($self->tape,$pos,1) );
-		warn sprintf("## tape pos %d/%d %.02f%% 0x%04x = %02x\n", $pos, $tape_len, ($pos * 100) / $tape_len, $pos, $byte);
 	} elsif ( $pos  == $tape_len ) {
 		_warn "end of tape [$pos]";
 	}
 
 	my $bit = $byte & $mask;
-	#warn sprintf("## tape pos %d 0x%04x mask %02x and %02x = %d\n", $pos, $pos, $mask, $byte, $bit); # if $self->trace;
+
+	warn sprintf("## tape pos %d/%d %.02f%% 0x%04x = %02x\n", $pos, $tape_len, ($pos * 100) / $tape_len, $pos, $byte) if $mask == 1;
 
 	( $c_0, $c_1 ) = ( 0x17, 0x17 );
 	( $c_0, $c_1 ) = ( 0x30, 0x30 ) if $bit;
@@ -132,7 +132,7 @@
 
 	return sprintf(
 		"tape file: %s with %d 0x%x bytes, current position: %d 0x%x",
-		$self->tape_path, $size, $size, $self->pos, $self->pos,
+		$self->tape_path, $size, $size, $self->tape_pos, $self->tape_pos,
 	);
 }