XProfan

WindowTitle "Sehr lange dezimale positive Ganzzahl$ nach Binärzahl$ wandeln"
Windowstyle 1048:Window 0,0-%maxx,%maxy-42:font 2:randomize:cls:declare m$,b$
eingabe:
print "\n Bitte Lange positive Ganzzahl eingeben:",:input m$
b$=d2b(m$):print b$:goto "eingabe"

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

    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$+str$(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