Metropoli BBS
VIEWER: dist.src MODE: TEXT (ASCII)
%%HP: T(3)A(D)F(.);
@ DIST, Great Circle Distance
@ by Eric Bergman-Terrell
\<< 0 0 \-> LATA LONA LATB LONB A B
  \<< -15 SF -16 SF 1 LONA HMS\-> 90 LATA HMS\-> - \->V3 'A' STO
    1 LONB HMS\-> 90 LATB HMS\-> - \->V3 'B' STO
    A B DOT ACOS 60 * 6080 * 5280 / -15 CF -16 CF
  \>>
\>>

[ RETURN TO DIRECTORY ]