--- Orao.pm	2007/08/05 15:16:10	150
+++ Orao.pm	2007/08/06 07:04:40	165
@@ -6,8 +6,8 @@
 use Carp qw/confess/;
 use File::Slurp;
 use Data::Dump qw/dump/;
-use M6502; # import @mem $PC and friends
-use Screen qw/$white $black/;
+use M6502;
+use Screen;
 
 use base qw(Class::Accessor VRac M6502 Screen Prefs Tape Session);
 #__PACKAGE__->mk_accessors(qw());
@@ -413,23 +413,6 @@
 
 =cut
 
-my @flip;
-
-foreach my $i ( 0 .. 255 ) {
-	my $t = 0;
-	$i & 0b00000001 and $t = $t | 0b10000000;
-	$i & 0b00000010 and $t = $t | 0b01000000;
-	$i & 0b00000100 and $t = $t | 0b00100000;
-	$i & 0b00001000 and $t = $t | 0b00010000;
-	$i & 0b00010000 and $t = $t | 0b00001000;
-	$i & 0b00100000 and $t = $t | 0b00000100;
-	$i & 0b01000000 and $t = $t | 0b00000010;
-	$i & 0b10000000 and $t = $t | 0b00000001;
-	#warn "$i = $t\n";
-	$flip[$i] = $t;
-}
-
-
 sub render_vram {
 	my $self = shift;