; Press Esc to terminate script, Pause/Break to "pause"

Global $Paused
HotKeySet("{NUMPAD0}", "TogglePause")
HotKeySet("{numpad1}", "Terminate")
HotKeySet("+!d", "ShowMessage") ;Shift-Alt-d
While 1
Sleep(10)
Send('{backspace}')
Sleep(100)
Send('{ESC}')
Sleep(100)

Sleep(50)
Send('{numpad0}')
Sleep(50)
Send('{space}')
Sleep(50)
WEnd
While 1
    MsgBox (0, "Pause ;-)")
    Sleep (2000)
WEnd
;;;;;;;;

Func TogglePause()
    $Paused = NOT $Paused
    While $Paused
        sleep(100)
        ToolTip('"Paused"',0,0)
    WEnd
    ToolTip("")
EndFunc

Func Terminate()
    Exit 0
EndFunc

Func ShowMessage()
    MsgBox(4096,"","This is a message.")
EndFunc