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

Global $Paused, $Runner
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{ESC}", "Terminate")
HotKeySet("{NUMPAD1}", "SendE")

;;;; Body of program would go here ;;;;
While 1
    Sleep(100)
WEnd
;;;;;;;;

Func TogglePause()
    $Paused = Not $Paused
    While $Paused
        Sleep(100)
        ToolTip('Script is "Paused"', 0, 0)
    WEnd
    ToolTip("")
EndFunc   ;==>TogglePause

Func Terminate()
    Exit 0
EndFunc   ;==>Terminate

Func SendE()
    $Runner = Not $Runner
    While $Runner
	   MouseClick("left", 34, 60, 2, 5)
	   Sleep(250)
	   MouseClick("left", 148, 160, 1, 10)
	   Sleep(250)
	   Send("Walker, Rob")
	   Sleep(250)
	   Send("{ENTER}")
	   Sleep(250)
	   WinActivate ("Microsoft Excel - Book1")
	   Sleep(1000)
	   Send("{RIGHT}")
	   Sleep(500)
	   Send("^c")
	   Sleep(500)
	   MouseClick("left", 148, 186, 1, 10)
	   Send("^v")
	   Sleep(500)
	   Send("{BS}")
	   Sleep(500)
	   MouseClick("left", 148, 239, 1, 10)
	   Sleep(500)
	   Send("Happy Birthday from your friends at Annuity National")
	   WinActivate ("Microsoft Excel - Book1")
	   Sleep(1000)
	   Send("{LEFT}")
	   Sleep(250)
	   MouseClick("left", 1542, 154, 2, 10)
	   Sleep(500)
	   Send("^c")
	   Sleep(500)
	   Send("{ENTER}")
	   Sleep(500)
	   MouseClick("left", 55, 335, 2, 10)
	   Sleep(500)
	   Send("^v")
	   Sleep(500)
	   MouseClick("left", 29, 184, 1, 10)
	   Sleep(1000)
    WEnd
EndFunc