Foren

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

Proc Wiederhole

    Parameters Anzahl%, Text$
    Declare I%
    Clear I%

    While I% < Anzahl%

        Print Text$

    EndWhile

EndProc

Cls
Print "Das ist noch vor der Prozedur."
Wiederhole 5, "Testtext"
Print "Das ist nach der Prozedur."
WaitKey
End

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

Proc Wiederhole

    Parameters Anzahl%, Text$
    Declare I%
    Clear I%

    While I% < Anzahl%

        Print Text$
        'Inc I%
        i% = i%+1

    EndWhile

EndProc

Cls
Print "Das ist noch vor der Prozedur."
Wiederhole 5, "Testtext"
Print "Das ist nach der Prozedur."
WaitKey
End