XProfan

Titre de la fenêtre "Sehr longtemps dezimale positive nombre entier$ pour Binärzahl$ wandeln"
Windowstyle 1048:Fenêtre 0,0-%maxx,%maxy-42:font 2:randomize:cls:declare m$,b$
eingabe:
imprimer "\n s'il te plaît longtemps positive nombre entier eingeben:",:input m$
b$=d2b(m$):imprimer 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$(en%):r%=c%-2*a%:endwhile
        a$=a$+»:a$=translate$(a$,"0"," "):a$=$ Trim(a$)
        a$=translate$(a$," ","0"):a$=left$(a$,len(a$)-1)

        si anz%>0:si r%/2=int(r%/2):b$="0"+b$:d'autre :b$="1"+b$:endif

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

        endproc