del junk* v-
imcopy ly213_0b.fringe ly213_0b
apall ly213_0b
apall ly213_0b.sky refer=ly213_0b int- fit- tra- rec- back-
identify ly213_0b.sky.ms
refspec ly213_0b.ms refer=ly213_0b.sky.ms
dispcor ly213_0b.ms ly213_0b.w
calibra ly213_0b.w junkb sensi=sens_blue
scopy junkb ly213_0b.f w1=3500 w2=5600
splot ly213_0b.f

del junk* v-
imcopy ly213_0r.fringe ly213_0r
apall ly213_0r
apall ly213_0r.sky refer=ly213_0r int- fit- tra- rec- back-
identify ly213_0r.sky.ms
refspec ly213_0r.ms refer=ly213_0r.sky.ms
dispcor ly213_0r.ms ly213_0r.w
calibra ly213_0r.w junkr sensi=sens_red
scopy junkr ly213_0r.f w1=5750 w2=9000
splot ly213_0r.f