Forums

'Testprogramm 2
'--------------

Proc Wiederhole

    Parámetros Anzahl%, Texto$
    Declarar I%
    Claro I%

    Mientras que I% < Anzahl%

        Imprimir Texto$

    EndWhile

ENDPROC

Cls
Imprimir "Das es todavía antes Procedimiento."
Wiederhole 5, "Testtext"
Imprimir "Das es después de el Procedimiento."
WaitKey
End

'Testprogramm 2
'--------------

Proc Wiederhole

    Parámetros Anzahl%, Texto$
    Declarar I%
    Claro I%

    Mientras que I% < Anzahl%

        Imprimir Texto$
        'Inc I%
        i% = i%+1

    EndWhile

ENDPROC

Cls
Imprimir "Das es todavía antes Procedimiento."
Wiederhole 5, "Testtext"
Imprimir "Das es después de el Procedimiento."
WaitKey
End