Hmm here it is:
Woops..
Global $Paused
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{ESC}", "Terminate")
HotKeySet("+!d", "ShowMessage") ;Shift-Alt-d
Run ("notepad.exe")
Sleep (2000)
Send("Z")
Send("Z")
Send("Z")
Send("Z")
Send("Z")
Send("Z")
Send("Z")
Send("Z")
Send("Z")
Send("Z")
Send("Z")
Send("Z")
Send("Z")
Send("Z")
Send("Z")
Send("Z")
Send("Z")
Send("Z")
Send("Z")
Send("Z")
Send("Z")
Send("Z")
Send("Z")
Send("Z")
Send("Z")
Send("Z")
Send("Z")
Send("Z")
Send("Z")
Send("Z")
Send("Z")
Send("Z")
Send("Z")
Send("Z")
Send("Z")
Send("Z")
Send("Z")
Send("Z")
Send("Z")
Send("Z")
Send("Z")
Send("Z")
Send("Z")
Send("Z")
Send("Z")
Send("Z")
Send("Z")
Send("Z")
Send("Z")
Send("Z")
Send("Z")
Send("Z")
Send("Z")
Send("Z")
Send("Z")
Send("Z")
Send("Z")
Send("Z")
Send("Z")
Send("Z")
Send("Z")
Send("Z")
Send("Z")
Send("Z")
Send("Z")
Send("Z")
Send("Z")
Send("Z")
Send("Z")
Send("Z")
Send("Z")
Send("Z")
;;;; 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
Func Terminate()
Exit 0
EndFunc
Func ShowMessage()
MsgBox(4096,"","This is a message.")
EndFunc