Procedure.d nBase(n.i,b.i)
  Define r.d,s.i=1
  While n
    s*b
    r+(Mod(n,b)/s)
    n=Int(n/b)
  Wend
  ProcedureReturn r
EndProcedure

Define.i b,c
OpenConsole("van der Corput - Sequence")
For b=2 To 5
  Print("Base "+Str(b)+": ")
  For c=0 To 9
    Print(StrD(nBase(c,b),5)+~"\t")
  Next
  PrintN("")
Next
Input()