verify on
mode 80
if exist nodate goto a
date
:a
grd
