Initial code; now working on VSOP87.