Source Code
input” YEAR ” to myear
set cent on
set date brit
use ahasx
loca for myear = year
store ahargana to ah1
skip
store ahargana to ah2
use long20
store lmoo to lmo
loca for starno = 8 .and. lsun > 270 .and. lsun < 300 .and. ahargana > ah1 .and. ahargana < ah2
store date to dt
?dt
use nak
locate for space > lmo
store space to lx
store lx-lmo to lz
if lz > 1.3
dt = dt
else
dt = dt-1
endif
?dt