XProfan

WindowTitle "Faktoren ermitteln per Kofaktorenmethode"
Cls:font 2:declare n&,flg%,i&,nn&
AppendMenuBar 100,"Hinweis: Die jeweiligen Faktoren landen auch in der Zwischenablage!"

Repeat

    if %csrlin>19:waitinput:cls:endif

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

    until %key=27

    End

    Proc printFactors :parameters n&

        Case n&<1:return
        'Print n&,
        print chr$(26),
        i&=1:nn&=n&+1

        While i&<sqrt(nn&)

            if rnd()<0.1:waitinput 21

                if %key:flg%=1:break

                endif

            endif

            Ifnot n& Mod i&

                Print i&;"*";
                Print format$("%g",n&/i&);"=";
                case %pos>50:print "\n ";
                putclip str$(i&)+"*"+format$("%g",n&/i&)+"="

            endif

            inc i&

        Endwhile

        ifnot flg%

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

        else

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

        endif

    EndProc