XProfan

Hauptprog
blablabla
Imprimer "Der Minuteur startet ..."
Schlafe 3000
Imprimer "... et plus gehts",
WaitKey

Proc Schlafe

    Paramètres N&
    Déclarer Ende%
    SetTimer N&
    Claire Ende%

    WhileNot Ende%

        ici sollte Proc Lesen stehen, um au cours de qui Schlafzeit
        wiederholt readdigi1& trop lesen, mais alles sans Tasteneingabe
        mais avec
        Fenêtre Style 112
        Fenêtre %MaxX, %MaxY - 0, 0
        wobei am Ende de Proc dormir wieder eventuelle Fehlermeldungen angezeigt am.
        WaitInput
        Cas %wmtimer:Ende% = 1

    Endwhile

    KillTimer

ENDPROC

Proc lesen

    readdigi1&

endproc