Forums

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

Proc Wiederhole

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

    While I% < amount%

        Print Text$

    EndWhile

ENDPROC

Cls
Print "Das is yet to the procedure."
Wiederhole 5, "Testtext"
Print "Das is to the procedure."
WaitKey
End

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

Proc Wiederhole

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

    While I% < amount%

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

    EndWhile

ENDPROC

Cls
Print "Das is yet to the procedure."
Wiederhole 5, "Testtext"
Print "Das is to the procedure."
WaitKey
End