XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Controls: Viele Eingabefelder erstellen
declare e&[100]
declare x%,y%,z%
cls
x%=5
y%=10

whileloop 100

    inc z%

    if x% > 500

        y%=(y%+20)
        x%=5

    endif

    e&[z%]=create(Edit,%hwnd,str$(z%),x%,y%,100,18)
    x%=(x%+110)

endwhile

waitinput