XProfan

Hauptprog
blablabla
Print "Der Timer startet ..."
Schlafe 3000
Print "... und weiter gehts",
WaitKey

Proc Schlafe

    Parameters N&
    Declare Ende%
    SetTimer N&
    Clear Ende%

    WhileNot Ende%

        hier sollte Proc Lesen stehen, um während der Schlafzeit
        wiederholt readdigi1& zu lesen, aber alles ohne Tasteneingabe
        aber mit
        WindowStyle 112
        Window %MaxX, %MaxY - 0, 0
        wobei am Ende von Proc Schlafen wieder eventuelle Fehlermeldungen angezeigt werde.
        WaitInput
        Case %wmTimer:Ende% = 1

    EndWhile

    KillTimer

EndProc

Proc lesen

    readdigi1&

endproc