XProfan

Título de la ventana "Collatz-Folge erzeugen;  Space=Next, Return=Andere Startzahl, ESC = Ende "
window 0,0 - %maxx,%maxy:showmax
declarar s!,z!,n&,k$
start:
s!=1
cls
imprimir "\n Gewünschte Startzahl (>0):  ";:input s!
caso s!<1:end
rept:
cls
z!=s!
n&=0
imprimir "\n ";format$("%g",z!),

mientras que z!>1

    if z! mod 2

        z!=3*z!+1

    más

        z!=z!\2

    endif

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

endwhile

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

if k$=" ":goto "rept"

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

endif

end