XProfan

declare die&
 $U thread.pcu = thread.
Set("Decimals",0)
windowstyle ( 512 | 8 )
window 160,120,640,480

whilenot %key=2

    thread.start 1,9  <-- die 9 steht für 5000ms, die 1 steht für Thread 1 von 4
    waitinput
    thread.stop 1
    die&=0

wend

end

proc thread.do

    parameters n&

    if n&=1  in N steht die ThreadNummer (1 von 4)

        add die&,5
        settext %hwnd,"Autoende in "+str$(20-die&)+" Sekunden."
        case die&=20 : sendmessage(%Hwnd,$10,0,0)  <--dem Waitinput wird die closeMessage geschickt und die Hauptschleife wird damit verlassen.

    endif

endproc