XProfan

cls
Set("Décimal",1)
var time%=&GetTickCount
var text&=Créer("Text",%hwnd,»,20,20,120,20)

tandis que 1

    sleep 100
    Cas &GetTickCount-time%<180000 : Settext text&,Str$((&GetTickCount-time%)/1000) + "  Sekunden"

Endwhile

cls
Set("Décimal",1)
var time%=&GetTickCount
var text&=Créer("Text",%hwnd,»,20,20,120,20)

tandis que 1

    sleep 100
    Cas &GetTickCount-time%<180000 : Settext text&,Str$((180000-(&GetTickCount-time%))/1000) + "  Sekunden"

Endwhile