PROGRAM VAN_DER_CORPUT

!
! for rosettacode.org
!

PROCEDURE VDC(N%,B%->RES)
      LOCAL V,S%
      S%=1
      WHILE N%>0 DO
        S%*=B%
        V+=(N% MOD B%)/S%
        N%=N% DIV B%
      END WHILE
      RES=V
END PROCEDURE

BEGIN
      FOR BASE%=2 TO 5 DO
        PRINT("Base";STR$(BASE%);":")
        FOR NUMBER%=0 TO 9 DO
          VDC(NUMBER%,BASE%->RES)
          WRITE("#.##### ";RES;)
        END FOR
        PRINT
      END FOR
END PROGRAM