XProfan

Título de la ventana "Sehr largo dezimale positive Ganzzahl$ después de Binärzahl$ wandeln"
Windowstyle 1048:Ventana 0,0-%maxx,%maxy-42:font 2:randomize:cls:declarar m$,b$
eingabe:
imprimir "\n Bitte Lange positive Ganzzahl eingeben:",:input m$
b$=d2b(m$):imprimir b$:goto "eingabe"

proc d2b :parámetros m$:declarar c%,a%,r%,a$,anz%:b$="": otra vez:

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

    whileloop len(m$):c%=10*r%+val(mid$(m$,&bucle,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$:más :b$="1"+b$:endif

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

        ENDPROC