--- Orao.pm	2007/08/05 01:36:37	144
+++ Orao.pm	2007/08/05 13:27:27	145
@@ -9,7 +9,7 @@
 use M6502; # import @mem $PC and friends
 use Screen qw/$white $black/;
 
-use base qw(Class::Accessor VRac M6502 Screen Prefs Tape);
+use base qw(Class::Accessor VRac M6502 Screen Prefs Tape Session);
 #__PACKAGE__->mk_accessors(qw());
 
 =head1 NAME
@@ -18,11 +18,11 @@
 
 =head1 VERSION
 
-Version 0.05
+Version 0.06
 
 =cut
 
-our $VERSION = '0.05';
+our $VERSION = '0.06';
 
 =head1 SUMMARY
 
@@ -54,7 +54,7 @@
 	warn "emulating ", $#mem, " bytes of memory\n";
 
 #	$self->scale( 2 );
-	$self->show_mem( 1 );
+#	$self->show_mem( 1 );
 
 	$self->open_screen;
 	$self->load_rom({
@@ -389,6 +389,7 @@
 	warn sprintf("# Orao::write(%04x,%02x)\n", $addr, $byte) if $self->trace;
 
 	if ( $addr == 0x8800 ) {
+		$self->write_tape( $byte );
 		warn sprintf "sound ignored: %x\n", $byte;
 	}
 
@@ -460,6 +461,10 @@
 	return $PC;
 }
 
+=head1 SEE ALSO
+
+L<VRac>, L<M6502>, L<Screen>, L<Tape>
+
 =head1 AUTHOR
 
 Dobrica Pavlinusic, C<< <dpavlin@rot13.org> >>