Calculo aproximado de efemerides planetarias. Programa en Basic

'  EFEMERIDES PLANETARIAS
cls

dim b$(32)
c%=360
pi#=4*atn(1)
cd#=360/365.2422 ' grados recorridos en un dia medio
ra#=180/pi#      ' factor para transformar radianes en grados multiplicando
                 '                         grados en radianes dividiendo
rr#=360/pi#      ' el doble de ra#