XProfan

Source watts on the 15.07.2007 from the MMJ-Quellcodesammlung (Dietmar horn) in The Babyklappe on XProfan.Com stored:
Password inquire
executable ex Profan-Version 5.0
Password is the actually date
declare end%,pas%,eing%,but%,end%,code%
let pas%=@createdialog(%hwnd,Please your Password:,50,50,200,75)
let eing%=@Done: ReBar(pas%,,0,0,200,24)
let but%=@createbutton(pas%,&OK,10,26,70,23)
let end%=@createbutton(pas%,&end,110,26,70,23)
let end%=0
let code%=0
@setfocus(eing%)

whilenot @equ(end%,4)

    waitinput

    if @getfocus(but%)

        if @equ$(@gettext$(eing%),@date$(0))

            let end%=4

        else

            settext eing%,Wrong Password
            inc end%

        endif

        @setfocus(eing%)

    elseif @getfocus(end%)

        let end%=3

    endif

    case equ(end%,3):let code%=1
    case code% :let end%=4

wend

if code%

    settext eing%,3 x Wrong Password

else

    settext eing%,Password correctly.

endif

waitinput
@destroywindow(pas%)
end