Visibility of Luna and Lunar Crescent

gobxy(l 6,1 9);conven-dns(fabs(sdelap));
iotoxy(16,20);co.v.d-hds(sha)i
coroxv{ 16,21)i@nren dmstsla)i
;oblt(I6.22 ):@ven d6l rabslsalt Di
i(elr<0.oJ sdrBi.ls. $:Ai
lobxr(I6,2axprinrn'/..a1rd nin .sFidia'4 0)i
I
loid dhplay-mcooid(void)
{
i(mtat<o.o)
sobx,{l6,l0r.on(n dns(TlongI
sobry(16.1 1),.onven-dns(labs{darr)l
!dnd( ',6c".sd),
eoroxv16.12,:Dnntt( % 8lf ,mdst/em!j) &Fmdsr:
;tmd;lia.o.or sd=s', cl*
.oloxytl6,l4),on!cn hms(nralphal,
;otoxy(16.1 5,.cDnven dms{fabs(mdelta))
ed=N i
soro\y(36,1 6)lconven-hos(rnht)
gorory(16,18).on!en hm(m.lphapli
,fidelkD<oo) sd=s: else
e;ro\ril6.l9 r;mnven dms(fabnmdeltaPr',
sd=N i
sobxy(36,20r:@Ncn hm({abs(mha)):
Robxv(16.22);conEndd{rabi mdlU:
;ftmah<O.oj sdrB ebe
sd= Al
SotoxY( ]6.21}:@nven dms(m@':
goto\y16.24,:pnn't "" 4lfdc mrn" m*midrd2 ur'
J
iDnmniDu4. \n';d1""dl"idr""d l ocnl iniidate'Jnimon'h' rn(vean)
brinttflt4. %5 IlAt%t Il^f/"d\".plal plon&in(pall)):
'ta'irii"-l."s.s.
r rn'v,s. r trr," a."d\".flmp.phu.,n(urst in((urssin(ubr f60 0)l:
frintfif;J4,'%15.t^f/'6 2llL",mjd Cd._nojor2a 0):
r.rinrntok4. %6.2lnlo/o6 2lAt',tlim$ltst'60 0'elongp)i
bnntn6t4. 0/.6 2tlt'/"6 21fli .mah_salr.s.4_m@)
ilaiirirld..as.rr^e,"4.:tNz8..lllt.wid'60 'ri."iiiiiuo.""
0.qvalohlri
pac ort""s 4lNToa 4lrrt 9 5lft"phrtemda-mla(mlon&srong N
"s.alr
[i,,iiro"n."vo.zrn.z*.1 tfl *,,8 ] lt\r./,8.11{\ro^8. 1ll\e.6. 1U\".25.5-
msFidiat.2,day,d.vl Bkv ul(v_rdavrstv_davl )i
fDrinr(fpir4,"o/o8,lllvo8 3lAf '.nma8 len)i
22E