XProfan

Hauptprog
blablabla
Print "Der Timer launch ..."
sleep 3000
Print "... and moreover gehts",
WaitKey

Proc sleep

    Parameters N&
    Declare end%
    SetTimer N&
    Clear end%

    WhileNot end%

        here ought to Proc reading stand, circa during the Schlafzeit
        repeatedly readdigi1& To reading, but everything without Tasteneingabe
        but with
        Window Style 112
        Window %MaxX, %MaxY - 0, 0
        where on the end of Proc sleep again possible Fehlermeldungen displayed am.
        WaitInput
        Case %wmtimer:end% = 1

    EndWhile

    KillTimer

ENDPROC

Proc reading

    readdigi1&

endproc