Code for computing date of the Tenth Rising of the Sun, Patham Udayam !

set cent on

set date brit

use ahx

loca for xdate > date()

skip-1

store ahargana to axx

use long20

loca for date > date()

skip -1

store ahargana to ahx

store recno() to rn

loca for ahargana > axx .and. lsun < 10 .and. lsun >9

store date to string

display

?”Date”, string

Resut = 24/04/2023