forvalues yr=80/93 {
!zcat /homes/data/morg/raw/morg`yr'.Z |tr "\-A" "  " >/homes/data/morg/raw/morg`yr'.raw
}