XProfan

Título de la ventana "Faktoren ermitteln por Kofaktorenmethode"
Cls:font 2:declarar n&,flg%,i&,nn&
AppendMenuBar 100,"Hinweis: El jeweiligen Faktoren landen auch en el Zwischenablage!"

Repeat

    if %csrlin>19:waitinput:cls:endif

        imprimir " Ganzzahl = ";
        input n&
        clearclip
        flg%=0
        printFactors(n&)

    until %key=27

    End

    Proc printFactors :parámetros n&

        Case n&<1:volver
        'Imprimir n&,
        imprimir chr$(26),
        i&=1:nn&=n&+1

        Mientras que i&<sqrt(nn&)

            if rnd()<0.1:waitinput 21

                if %key:flg%=1:romper

                endif

            endif

            Ifnot n& Mod i&

                Imprimir i&;"*";
                Imprimir format$("%g",n&/i&);"=";
                caso %pos>50:imprimir "\n ";
                putclip str$(i&)+"*"+format$("%g",n&/i&)+"="

            endif

            inc i&

        Endwhile

        ifnot flg%

            Imprimir n&,chr$(27),"ok."
            putclip str$(n&)+"\n"

        más

            Imprimir n&,chr$(27);"..stopped"
            putclip " ... \n"

        endif

    ENDPROC