%%HP: T(1)A(D)F(.);
 { 1. -16. } CF
   1. SF CONT
   'EXIT' STO
   180. SWAP HMS-
   'Supp' STO { EXIT
{ } Supp { } { } CONT
} TMENU { } 'a' STO
  DO "Dist&Brg?" HALT
    IFERR HMS -16.
SF V2 a + 'a' STO
DROP
    THEN DROP a OBJ
2. SWAP
      START
        IFERR +
        THEN 1. SF
        END
      NEXT
      IFERR NEG V
HMS DUP DUP
        IF 0. <
        THEN 360.
HMS+ SWAP DROP
        ELSE
          IF 360. >
          THEN 360.
HMS-
          END
        END "Brg"
TAG SWAP "Dist" TAG
SWAP 1. SF
      THEN 1. SF
      END
    END
  UNTIL 1. FS?
  END 2. MENU { EXIT
Supp a } PURGE -16.
CF
