XProfan

Window Title "Sehr long dezimale positive Ganzzahl$ to Binärzahl$ wandeln"
Windowstyle 1048:Window 0,0-%maxx,%maxy-42:font 2:randomize:cls:declare m$,b$
input:
print "\n Please long positive Ganzzahl prompt:",:input m$
b$=d2b(m$):print b$:goto "eingabe"

proc d2b :parameters m$:declare c%,a%,r%,a$,anz%:b$="": again:

    anz%=len(m$):m$=trim$(m$):r%=0:a$=""

    whileloop len(m$):c%=10*r%+val(mid$(m$,&loop,1))

        a%=c%\2:a$=a$+st$(a%):r%=c%-2*a%:endwhile
        a$=a$+":":a$=translate $(a$,"0"," "):a$=trim$(a$)
        a$=translate $(a$," ","0"):a$=left$(a$,len(a$)-1)

        if anz%>0:if r%/2=int(r%/2):b$="0"+b$:else :b$="1"+b$:endif

            m$=a$:goto "nochmal":endif :return b$

        endproc