:loop
date
ATR$2
goto loop