XProfan

cls
Conjunto("Decimals",1)
var time%=&GetTickCount
var text&=Crear("Text",%hwnd,"",20,20,120,20)

mientras que 1

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

Endwhile

cls
Conjunto("Decimals",1)
var time%=&GetTickCount
var text&=Crear("Text",%hwnd,"",20,20,120,20)

mientras que 1

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

Endwhile