bwBASIC/B15B/gmst.bas

700 REM    GREENWICH MEAN
702 REM    SIDEREAL TIME
704 REM
706 INPUT "J,F ";J,F
708 D=J-2451545
710 T=D/36525: T1=INT(T)
712 J0=T1*36525+2451545
714 T2=(J-J0+0.5)/36525
716 S=24110.54841+184.812866*T1
718 S=S+8640184.812866*T2
720 S=S+0.093104*T*T
722 S=S-0.0000062*T*T*T
724 S=S/86400: S=S-INT(S)
726 S=24*(S+(F-0.5)*1.002737909)
728 IF S<0 THEN S=S+24
730 IF S>24 THEN S=S-24
732 H=INT(S): M1=60*(S-H)
734 M=INT(M1): S=60*(M1-M)
736 PRINT "GMST: ";H;M;S
738 END
740 REM  ------------------------
745 REM  APPERAED IN ASTRONOMICAL
750 REM  COMPUTING, SKY & TELE-
755 REM  SCOPE. JUNE, 1984
760 REM  ------------------------