my($mode,$td,$ta,$rd,$ra,$ca,$cd) = ('','','','','','','');