:: SORTDATE.BAT
:: return the current date in sortable form
@ECHO OFF
ECHO/ | DATE > READDATE.BAT
CALL READDATE.BAT
DEL READDATE.BAT
SET d=%date%
SET date=
SET dash=

:top
CALL SETCH_RM %d%
SET d=%Rm%
IF NOT "%Ch%"=="-" GOTO getchar
IF '%dash%'=='1' GOTO finish
SET dash=1
GOTO top

:getchar
SET date=%date%%Ch%
IF NOT "%Ch%"=="" GOTO top

:finish
SET date=%Rm%%date%
FOR %%v IN (d Ch Rm dash) DO SET %%v=
ECHO Sortable date is %date%