@echo off

if not exist datebook.box echo datebook.box not found.
if not exist datebook.box goto LE
if not exist \_dat\appt.adb echo \_dat\appt.adb not found.
if not exist \_dat\appt.adb echo goto LE

copy \_dat\appt.adb . > NUL
copy appt.adb apptorg.adb > NUL
del appt.adb

bu -nENVTMP PRINTF "20%%02d%%02d%%02d",CLOCKYEAR,CLOCKMONTH,CLOCKDAY
palm2txt -v datebook.box -date1 %ENVTMP% -date2 %ENVTMP% > datebook.csv

grep -iv "\"NONE\",\"NONE\"" datebook.csv > datebook.$$$
apptout -a -x apptorg.adb -i datebook.$$$ -o appt.adb
copy appt.adb apptorg.adb > NUL

grep -i "\"NONE\",\"NONE\"" datebook.csv > datebook.$$$
apptout -e -x apptorg.adb -i datebook.$$$ -o appt.adb
del datebook.$$$

rem ren \_dat\appt.adb apptorg.adb
rem copy appt.adb \_dat > NUL
rem echo.
rem echo Make   new \_dat\appt.adb from datebook.box
rem echo Backup old \_dat\appt.adb to   apptorg.adb and \_dat\apptorg.adb

:LE