XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Edit: Passworteingabe (2)
declare exit&,e%
declare edit&,vorgabe$
cls
exit& = CreateButton(%HWnd,Beenden,10,380,100,35)
vorgabe$ =
edit& = CreateEdit(%HWnd,vorgabe$,10,20,200,(-1)*25)
SetFocus(edit&)

whilenot e%

    WaitInput

    if GetFocus(exit&)

        e% = 1

    endif

wend

end