XProfan

Declare ende%
WindowTitle "Test"
Window 800, 600
Cls 0
Color 14, 0
TBox 1, 5 - 3, 55; 1
Color 15, 0
Locate 2, 10
Print "F2 = START"
Locate 2, 25
Print "F3 = STOP"
Locate 2, 40
Print "F10 = Ende"
AddHotkey 2001, $71, 0' F2 - Taste
AddHotKey 2002, $72, 0' F3 - Taste
AddHotKey 2003, $79, 0' F10 - Taste
ende% = 0

WhileNot ende%

    Waitinput
    Case %key = 2 : ende% = 1

    If MenuItem(2001)

        Mach_was()

    ElseIf MenuItem(2003)

        ende% = 1

    EndIf

EndWhile

Proc Mach_was

    Declare a&
    a& = 0

    While 1

        Case MenuItem(2002) : Break
        a& = a& + 1
        Sleep 100
        Locate 10, 1
        Print "Test : "; a&

    EndWhile

    Locate 10, 1
    Print Space$(20)

EndProc

End