 { 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

