XProfan

Titre de la fenêtre "Collatz-Folge erzeugen;  Space=Next, Return=Andere Startzahl, ESC = Ende "
window 0,0 - %maxx,%maxy:showmax
declare s!,z!,n&,k$
start:
s!=1
cls
imprimer "\n Gewünschte Startzahl (>0):  ";:input s!
cas s!<1:end
rept:
cls
z!=s!
n&=0
imprimer "\n ";format$("%g",z!),

tandis que z!>1

    si z! mod 2

        z!=3*z!+1

    d'autre

        z!=z!\2

    endif

    imprimer format$("%g",z!),
    inc n&

endwhile

imprimer:imprimer "(Kettenlänge ";n&;")"
s!=s!+1
k$=getkey$()

si k$=" ":goto "rept"

elseif k$=chr$(13):goto "start"

endif

end