XProfan

Declare end%
Window Title "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 - Button
WAY from 2002, $72, 0' F3 - Button
WAY from 2003, $79, 0' F10 - Button
ende% = 0

WhileNot end%

    Waitinput
    Case %key = 2 : end% = 1

    If MenuItem(2001)

        Mach_was()

    ElseIf MenuItem(2003)

        end% = 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