Microsoft Small Basic

Program Listing:
Embed this in your website
n=TextWindow.Read()
While n>0
c=c+1
x[c]=Math.Remainder(n,2)
n=Math.Floor(n/2)
EndWhile
For i=0To c-1
TextWindow.Write(x[c-i])
EndFor
Copyright (c) Microsoft Corporation. All rights reserved.