@Echo Off
:: Testing JULIAN.BTM and GREGOR.BTM
:: Author: Michael Bednarek (mb@doh.health.nsw.gov.au)

:: Calls GREGOR.BTM with incremented variable JULIAN, calls JULIAN.BTM
:: with variable GREGOR (as returned from GREGOR.BTM) and GREGOR.BTM
:: again with variable JULIAN as returned from JULIAN.BTM.
:: Input:  dd mm yyyy
:: Output: Echos DOW GREGOR JULIAN DOW

Echo Hit any key to stop %0
:: Initial calls
Call Julian %1 %2 %3
Echos %DOW
Call Gregor %JULIAN
Echo .%Gregor.%Julian.%DOW

:next
Set JULIAN=%@Eval[%Julian + 1]
Call Gregor %Julian
Echos %DOW
Set oldGregor=%Gregor
Set oldJulian=%Julian
Call Julian %Gregor
Echo .%Gregor.%Julian.%DOW
If Not %Julian == %oldJulian Pause Wrong Julian
Call Gregor %Julian
If Not %Gregor == %oldGregor Pause Wrong Gregor
Inkey /W0 %%x
If "%x" == "" Goto next
Unset x oldGregor oldJulian