XProfan

Declarar ende%
Título de la ventana "Test"
Ventana 800, 600
Cls 0
Color 14, 0
TBox 1, 5 - 3, 55; 1
Color 15, 0
Localizar 2, 10
Imprimir "F2 = START"
Localizar 2, 25
Imprimir "F3 = STOP"
Localizar 2, 40
Imprimir "F10 = Ende"
AddHotkey 2001, $71, 0' F2 - Taste
AddHotKey 2002, $72, 0' F3 - Taste
AddHotKey 2003, $79, 0' F10 - Taste
ende% = 0

Sinestar encargado ende%

    Waitinput
    Case %key = 2 : ende% = 1

    If MenuItem(2001)

        Mach_was()

    ElseIf MenuItem(2003)

        ende% = 1

    EndIf

EndWhile

Proc Mach_was

    Declarar a&
    a& = 0

    Mientras que 1

        Case MenuItem(2002) : Romper
        a& = a& + 1
        Sleep 100
        Localizar 10, 1
        Imprimir "Test : "; a&

    EndWhile

    Localizar 10, 1
    Imprimir Espacio$(20)

ENDPROC

End