RosettaCodeData/Task/Van-der-Corput-sequence/BBC-BASIC/van-der-corput-sequence.basic

      @% = &20509
      FOR base% = 2 TO 5
        PRINT "Base " ; STR$(base%) ":"
        FOR number% = 0 TO 9
          PRINT FNvdc(number%, base%);
        NEXT
        PRINT
      NEXT
      END

      DEF FNvdc(n%, b%)
      LOCAL v, s%
      s% = 1
      WHILE n%
        s% *= b%
        v += (n% MOD b%) / s%
        n% DIV= b%
      ENDWHILE
      = v