cat /307,33/$1.w >$1.r
ar xv $1.r $1cbl
ar xv $1cbl
ar dv $1.r $1cbl
rat4 $1.r >$1.f
ar t $1cbl | rm -v
rm $1cbl $1.r