--- VRac.pm	2007/08/06 09:19:19	168
+++ VRac.pm	2007/08/06 09:20:20	169
@@ -160,7 +160,7 @@
 		close($fh);
 
 		my $size = -s $path;
-		warn sprintf "saved %s %04x-%04x %d %x bytes\n", $path, $from, $to, $size, $size;
+		print sprintf "saved %s %04x-%04x %d %x bytes\n", $path, $from, $to, $size, $size;
 	} else {
 		warn "can't create $path: $!";
 	}
@@ -259,7 +259,7 @@
 	my $self = shift;
 	my $a = $self->cpu_PC() || confess "can't find PC";
 	my $run_for = 0;
-	warn $self->dump_R() if $show_R;
+	print $self->dump_R() if $show_R;
 	while ( my ($line, @v) = $self->prompt( $a, $last ) ) {
 		my $c = shift @v;
 		next unless defined($c);
@@ -272,7 +272,7 @@
 		} elsif ( $c eq '?' ) {
 			my $t = $self->trace ? 'on' : 'off' ;
 			my $d = $self->debug ? 'on' : 'off' ;
-			warn <<__USAGE__;
+			 <<__USAGE__;
 Usage:
 
 x|q\t\texit
@@ -284,7 +284,8 @@
 d\t\tdebug [$d]
 
 __USAGE__
-			warn $self->dump_R;
+			print $self->tape_status if $self->can('tape_status');
+			print $self->dump_R;
 			$last = '';
 		} elsif ( $c =~ m/^e/i ) {
 			$a = $v if defined($v);
@@ -336,10 +337,7 @@
 			$show_R = 1;
 			last;
 		} elsif ( $c =~ m/^tape/ ) {
-			if ( $c =~ m/rate/ ) {
-				$self->tape_rate( $v );
-				warn "will read table with rate $v\n";
-			} elsif ( ! $v ) {
+			if ( ! $v ) {
 				warn "ERROR: please specify tape name!\n";
 			} elsif ( ! -e $v ) {
 				warn "ERROR: tape $v: $!\n";
@@ -370,6 +368,8 @@
 
 Emulators: L<Orao>, L<Galaksija>
 
+L<References> about different architectures
+
 =head1 AUTHOR
 
 Dobrica Pavlinusic, C<< <dpavlin@rot13.org> >>