--- Tape.pm	2008/04/14 19:55:29	209
+++ Tape.pm	2008/04/14 21:16:19	210
@@ -100,20 +100,21 @@
 
 =head2 load_tape
 
-  $self->load_tape( '/path/to/file' );
+  $self->load_tape( '/path/to/file', $position );
 
 =cut
 
 sub load_tape {
 	my $self = shift;
 	my $path = shift || return;
+	my $pos = shift || 0;
 
 	my $tape = read_file( $path ) || confess "can't load $path: $!";
 	$self->tape_path( $path );
 
-	$self->tape_pos( 0 );
+	$self->tape_pos( $pos );
 	$self->tape( $tape );
-	warn "loaded tape $path ", -s $path, " bytes\n";
+	warn "loaded tape $path ", -s $path, " bytes at $pos\n";
 	return 1;
 }