XProfan

Window Title "Faktoren detect by Kofaktorenmethode"
Cls:font 2:declare n&,flg%,i&,nn&
AppendMenuBar 100,"Hinweis: The jeweiligen factors disembark too in the Clipboard!"

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 stature$("%g",n&/i&);"=";
                case %pos>50:print "\n ";
                putclip st$(i&)+"*"+stature$("%g",n&/i&)+"="

            endif

            inc i&

        Endwhile

        ifnot flg%

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

        else

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

        endif

    ENDPROC