--- M6502/Orao.pm	2007/07/30 17:32:41	29
+++ M6502/Orao.pm	2007/07/30 17:56:13	30
@@ -8,7 +8,7 @@
 #use Time::HiRes qw(time);
 use File::Slurp;
 
-use base qw(Class::Accessor M6502);
+use base qw(Class::Accessor M6502 Screen);
 __PACKAGE__->mk_accessors(qw(debug trace run_for mem_dump trace));
 
 =head1 NAME
@@ -29,6 +29,23 @@
 
 =cut
 
+=head2 init
+
+Start emulator
+
+=cut
+
+sub init {
+	my $self = shift;
+	warn "call upstream init\n";
+	$self->SUPER::init( @_ );
+
+	warn "staring Orao $ORAO::VERSION emulation\n";
+
+	$self->open_screen;
+	$self->load_rom;
+}
+
 my $loaded_files = {
 	0xC000 => 'rom/BAS12.ROM',
 	0xE000 => 'rom/CRT12.ROM',
@@ -160,6 +177,7 @@
 	return split(/\s+/, $in) if $in;
 }
 
+
 =head1 AUTHOR
 
 Dobrica Pavlinusic, C<< <dpavlin@rot13.org> >>