x% = 17
      y% = 34

      REPEAT
        IF NOT FNeven(x%) THEN
          p% += y%
          PRINT x%, y%
        ELSE
          PRINT x%, "       ---"
        ENDIF
        x% = FNhalve(x%)
        y% = FNdouble(y%)
      UNTIL x% = 0
      PRINT " " , "       ==="
      PRINT " " , p%
      END

      DEF FNdouble(A%) = A% * 2

      DEF FNhalve(A%) = A% DIV 2

      DEF FNeven(A%) = ((A% AND 1) = 0)