$dirs scr:for*
$dirs scr:attr.dat,d2:attr.dat
$rena scr:for083.dat scr:for093.dat
$rena scr:for084.dat scr:for094.dat
$rena scr:for085.dat scr:for095.dat
$dele scr:attr.dat;
$copy d2:attr.dat scr: