HotKeySet("^k", "start")
HotKeySet("^j", "pause")
Dim $pause
While 1
Sleep(100)
WEnd
Func start()
$pause = 1
While 1
While $pause
For $I = 1 To 20
If Not $pause Then ExitLoop 3
Send("5")
Sleep(1000)
If Not $pause Then ExitLoop 3
Send("6")
Sleep(1000)
Next
Send("7")
Sleep(12000)
Send("7")
WEnd
WEnd
EndFunc ;==>start
Func pause()
$pause = 0
EndFunc ;==>pause