[R-br] Como ajustar algumas propriedades do segundo eixo Y?

[Cleber N.Borges]

Olá a todos,

Gostaria de ajustar um segundo eixo Y (VAR 01), de acordo com o primeiro 
eixo Y (VAR 02).

o que eu não consegui:

1 - ajustar o 'zero' do primeiro com o 'zero' do segundo eixo Y
2 - colocar o nome do segundo eixo (um ylab='VAR 02')

Imagino que vendo o que eu quero, fica mais fácil entender, então segue 
um código exemplo junto.
Agradeço antecipadamente por qualquer ajuda.

Cleber
#############

set.seed(1234)
x1 <- abs(rnorm(10))
x2 <- abs(rnorm(10)) + 100

par(mar=c(5,4,4,5))
bp <- barplot( x1, xlim=c(0,12), ylim=c(0,3), xlab='', ylab='VAR 01', 
xaxt='n')
par( new=T )
plot( bp[,1], x2, t='b', xlim=c(0,12), xlab='', ylab='', xaxt='n', 
yaxt='n', bty='n', ylim=c(100,103) )
axis(4, ylab='VAR 02')
grid()
axis(1, at=bp[,1], labels=letters[1:10])