10 REM THIS IS PROGRAM "RISING.BAS" A PROGRAM TO CALCULATE THE LOCAL HOUR ANGLE
20 REM    AND THE LOCAL AZMUTH OF THE RISING OF AN ASTRONOMICAL BODY
30 REM       GIVEN ITS DECLINATION AND THE OBSERVERS LATITUDE
40 REM ***********************************************************************
50 PI = 3.1415926#
60 INPUT "DECLINATION OF BODY IN DEC. DEGREES";D
70 INPUT "LATITUDE OF OBSERVER IN DEGREES AND MINUTES"; LAT
80 DEC = D*PI/180
90 LATITUDE = 100/60*(LAT - INT(LAT))+INT(LAT)
100 L = LATITUDE*PI/180
110 LHACOS = - TAN(L)*TAN(DEC)
120 AZCOS = SIN(DEC)/COS(L)
130 LHA =PI/2-ATN(LHACOS/(1-LHACOS^2)^.5)
140 AZ = PI/2-ATN(AZCOS/(1-AZC0S^2)^.5)
150 AZ = AZ/PI*180
160 LHA=LHA/PI*12
170 LHA = 24-LHA
180 PRINT "RISING AZMUTH =";AZ;"DEGREES, SETTING AZMUTH =";360-AZ;"DEGREES"
190 PRINT "LHA RISING =";LHA;"HOURS, LHA SETTING =";24-LHA;"HOURS"
200 END