XProfan

Déclarer ende%
Titre de la fenêtre "Test"
Fenêtre 800, 600
Cls 0
Color 14, 0
TBox 1, 5 - 3, 55; 1
Color 15, 0
Localiser 2, 10
Imprimer "F2 = START"
Localiser 2, 25
Imprimer "F3 = STOP"
Localiser 2, 40
Imprimer "F10 = Ende"
AddHotkey 2001, $71, 0' F2 - bouton
AddHotKey 2002, $72, 0' F3 - bouton
AddHotKey 2003, $79, 0' F10 - bouton
ende% = 0

WhileNot ende%

    Waitinput
    Cas %clé = 2 : ende% = 1

    Si MenuItem(2001)

        Mach_was()

    ElseIf MenuItem(2003)

        ende% = 1

    EndIf

Endwhile

Proc Mach_was

    Déclarer a&
    a& = 0

    Tandis que 1

        Cas MenuItem(2002) : Pause
        a& = a& + 1
        Sleep 100
        Localiser 10, 1
        Imprimer "Test : "; a&

    Endwhile

    Localiser 10, 1
    Imprimer Space$(20)

ENDPROC

Fin