XProfan

def $appTitle myShutdown 0.1
var h&=findWindow($appTitle)

if h&

    sendMessage(h&,16,0,0)
    end

endif

var endZeit&=&getTickCount+60000*30+59999
var m&=0

if %parCount

    h&=val(par$(%parCount))
    case h&>0 : endZeit&=&getTickCount+60000*h&+59999

endif

windowStyle 16 | 1 | 2 | 4 | 8
windowTitle $appTitle
window 40,40 - 350,150
useIcon knopf1
userMessages 16
setTimer 10000
mcls 40,12

while 1

    h&=(endZeit&-&getTickCount)*(1/60000)

    if h&<1

        exitWindows 6
        break

    endif

    startPaint -1
    cls 0
    useFont Courier,10,0,0,0,0,0
    textColor $BB0000,-1
    m&=h& mod 60
    case h& : h&=h&60
    drawText 0,0,format$(0#,h&)+:+format$(0#,m&)
    endPaint
    mCopySizedBmp 1,1 - 39,11 > 0,0 - width(%hWnd),height(%hWnd);0
    waitInput
    case (%key=27) or (%uMessage=16) : break
    case (%key=43) : endZeit&=endZeit&+60000
    case (%key=45) : endZeit&=endZeit&-60000

wend

killTimer
end

Path$ = $SysPath + \Shutdown.exe -s -t 15
Run Path$