XProfan

 {$cleq}
const appTitle="FreeTimer4eBay 0.0"
decimals 0
string s=input$("Erinnerung in wievielen Minuten:",appTitle,"10")
case s=="" : end
long mins=val(s),secs=0
string nam=input$("Name:",appTitle,"Artikel ...")
case nam=="" : nam=appTitle
string url=input$("URL:",appTitle,"")
windowstyle 2 | 8 | 16
windowtitle appTitle
window 300,100
useicon "MUENZE"
settimer 1000

do {

    cls
    case nam<>appTitle : print nam
    print "Noch "+str$(mins)+" Minute"+if(mins==1,"","n")+" und "+str$(secs)+" Sekunden."
    waitinput 1000

    if wmTimer {

        secs--

        if secs==-1 {

            mins--
            secs=59

        }

        settext hwnd,str$(mins)+":"+str$(secs)+" "+nam

        if (mins==0) and (secs==0) {

            case url<>"" : shellExec(url,"open",3)
            messagebox nam,appTitle,4096 | 262144
            break

        }

    }

    case mouseKey==2 : case url<>"" : shellExec(url,"open",3)

}

end