Visibility of Luna and Lunar Crescent

d.m=@s(ptar'PvlE00)'6(md't!prPvl80 0);
,nfabsrnutr/d.M)<=I0)
I has=aco(nln/dem)| t80 o/PI:
nnotralPhaFplong/l 5 Gghstudi
none=mnot'hddl5 0i
d{erurot+hds/15.0;
i(mot<0 0) motl_24 0;
i(moP24 0) 6nol'=24 0i
iflmoc<o 0) noneF24 0;
i(none24 0) mone'=24 0i
i(mtwo<o 0) ntsoF24.oi
i(mlso>24 0)ntsF24 0:
$mFcmsrzso+mone'1 002?3?90935i
mo;mon.rd.lollint(lved_I620 0)l/36000:
jd=juli6datdv@,hon$3ate,6rwc'/24 0)i
t=(jd-245r 545.0)/35525.0;
n@n @od(t);
caph=shr+plors/I 5.0-halPhapi
alimr-asin(<in(plaFPl/l80 0lrsinlndehap'PVl 80 0l
+.odplat'PVl8o-o). codmdeltaprPvl80 0)
tcos(eph'15.0*Pv180.0))rl80 otrli
deliaml(al$4 12t(codpkePvl80 0)
1@(4d.ltap'ryl8O.0)'sin(caph' I 5-0'PUl80 0))y15 0;
urrcmonrdcltm;
)
ulett((a@s{enaj/(cmaj+hldl000 0))r 180 o/Pl)/l 5 0);
liEcatmr,z4.0i
l
rtrutmfrzonlmi
i(xnr<o.o) ltmr+=24.0;
i(ltmr>24.0) llmr=24,01
)
void dGplay_sord(void)
{
sd=N i
Sotoxy{16,1olconv.rt dn{ilons);
eotoxy(16,I I);conven_dos(fabs(sla0)r
il(slar<o) sd= S'i ele
soroxy(16,12)iprini(' %.21{Xm dn);
i("dclb<o.o) sdrs, ele
gotox(l 6,1 4);@nv..t_bn{salpha);
sotoxy(16, I 5)iconve't_dms(fab(sdelra))i
ifid.lllp<o.ol d S: €le
soloxy(l 6,1 6)i@nven_hft s(sho);
gotoxy(l 6, I 8);mnrcn_hnB(sdph,p):
sd'N r
sd=N;
227