XProfan

Hauptprog
blablabla
Imprimir "Der Temporizador startet ..."
Schlafe 3000
Imprimir "... y más gehts",
WaitKey

Proc Schlafe

    Parámetros N&
    Declarar Ende%
    SetTimer N&
    Claro Ende%

    Sinestar encargado Ende%

        hier debería Proc Lesen posición, en während el Schlafzeit
        wiederholt readdigi1& a lesen, aber alles sin Tasteneingabe
        aber con
        Ventana de Estilo 112
        Ventana %MaxX, %MaxY - 0, 0
        wobei al Ende de Proc Schlafen otra vez eventuelle Fehlermeldungen adecuado voluntad.
        WaitInput
        Case %wmtimer:Ende% = 1

    EndWhile

    KillTimer

ENDPROC

Proc lesen

    readdigi1&

ENDPROC