MENU "NETSCAPE" {
STATE "Netscape" {
COMMAND "Go Back" {
SCRIPT {
SendKeys "{Alt+Left}"
}
}
COMMAND "Go Forward" {
SCRIPT {
SendKeys "{Alt+Right}"
}
}
COMMAND "Add Bookmark" {
SCRIPT {
SendKeys "{Ctrl+d}"
}
}
COMMAND "Stop Loading" {
SCRIPT {
SendKeys "{Esc}"
}
}
COMMAND "Reload Page" {
SCRIPT {
SendKeys "{Ctrl+r}"
}
}
COMMAND "Print Page" {
SCRIPT {
SendKeys "{Alt+f}p"
}
}
COMMAND "Previous Frame" {
SCRIPT {
SendKeys "{Ctrl+l}"
}
}
COMMAND "Next Frame" {
SCRIPT {
SendKeys "{Ctrl+j}"
}
}
COMMAND "Open Page" {
SCRIPT {
SendKeys "{Ctrl+o}"
}
}
COMMAND "Go Home" {
SCRIPT {
SendKeys "{Alt+g}h"
}
}
COMMAND "Open <Page>" {
SCRIPT {
pos&=Instr(_arg1,"\")
SendKeys "{Ctrl+o}" + Mid$(_arg1,0,pos&-1)
ControlPick "Open"
}
}
COMMAND "Find On This Page" {
SCRIPT {
SendKeys "{Ctrl+f}"
}
}
COMMAND "Find Again" {
SCRIPT {
SendKeys "{Ctrl+g}"
}
}
COMMAND "Find Next" {
SCRIPT {
SendKeys "{Ctrl+g}"
}
}
COMMAND "Search Internet" {
SCRIPT {
SendKeys "{Alt+e}i"
}
}
COMMAND "Edit Prefrences" {
SCRIPT {
SendKeys "{Alt+e}e"
}
}
COMMAND "Show Page Source" {
SCRIPT {
SendKeys "{Ctrl+u}"
}
}
COMMAND "Show Page Info" {
SCRIPT {
SendKeys "{Ctrl+i}"
}
}
COMMAND "Edit Bookmarks" {
SCRIPT {
SendKeys "{Ctrl+b}"
}
}
COMMAND "Show Address Book" {
SCRIPT {
SendKeys "{Ctrl+Shift+2}"
}
}
LIST "Page" {
"http://homes.arealcity.com/dragonmacros/index.html \\Dragon Macros"
"www.dragonsys.com\\Dragon Page"
"http://www.synapseadaptive.com/joel/default.htm\\Joel Goulds Site"
"www.msnbc.com\\News"
"www.lycos.com\\Lycos"
"www.netscape.com\\Netscape"
"http://dragon-support.dragonsys.com/support/discforum.nsf/($All)?OpenView\\Dragon Discussion Forum"
"www.yahoo.com\\Yahoo"
}
}
STATE "Open Page" {
COMMAND "<Key>" {
SCRIPT {
num1&=instr(_arg1,"\")
SendKeys MID$(_arg1,0,num1&-1)
}
}
COMMAND "<Key> <Key>" {
SCRIPT {
num1&=instr(_arg1,"\")
num2&=instr(_arg2,"\")
SendKeys MID$(_arg1,0,num1&-1) + MID$(_arg2,0,num2&-1)
}
}
COMMAND "<Key> <Key> <Key>" {
SCRIPT {
num1&=instr(_arg1,"\")
num2&=instr(_arg2,"\")
num3&=instr(_arg3,"\")
SendKeys MID$(_arg1,0,num1&-1) + MID$(_arg2,0,num2&-1) + MID$(_arg3,0,num3&-1)
}
}
COMMAND "<Key> <Key> <Key> <Key>" {
SCRIPT {
num1&=instr(_arg1,"\")
num2&=instr(_arg2,"\")
num3&=instr(_arg3,"\")
num4&=instr(_arg4,"\")
SendKeys MID$(_arg1,0,num1&-1) + MID$(_arg2,0,num2&-1) + MID$(_arg3,0,num3&-1) + MID$(_arg4,0,num4&-1)
}
}
COMMAND "<Key> <Key> <Key> <Key> <Key>" {
SCRIPT {
num1&=instr(_arg1,"\")
num2&=instr(_arg2,"\")
num3&=instr(_arg3,"\")
num4&=instr(_arg4,"\")
num5&=instr(_arg5,"\")
SendKeys MID$(_arg1,0,num1&-1) + MID$(_arg2,0,num2&-1) + MID$(_arg3,0,num3&-1) + MID$(_arg4,0,num4&-1) + MID$(_arg5,0,num5&-1)
}
}
COMMAND "<Key> <Key> <Key> <Key> <Key> <Key>" {
SCRIPT {
num1&=instr(_arg1,"\")
num2&=instr(_arg2,"\")
num3&=instr(_arg3,"\")
num4&=instr(_arg4,"\")
num5&=instr(_arg5,"\")
num6&=instr(_arg6,"\")
SendKeys MID$(_arg1,0,num1&-1) + MID$(_arg2,0,num2&-1) + MID$(_arg3,0,num3&-1) + MID$(_arg4,0,num4&-1) + MID$(_arg5,0,num5&-1) + MID$(_arg6,0,num6&-1)
}
}
COMMAND "<Key> <Key> <Key> <Key> <Key> <Key> <Key>" {
SCRIPT {
num1&=instr(_arg1,"\")
num2&=instr(_arg2,"\")
num3&=instr(_arg3,"\")
num4&=instr(_arg4,"\")
num5&=instr(_arg5,"\")
num6&=instr(_arg6,"\")
num7&=instr(_arg7,"\")
SendKeys MID$(_arg1,0,num1&-1) + MID$(_arg2,0,num2&-1) + MID$(_arg3,0,num3&-1) + MID$(_arg4,0,num4&-1) + MID$(_arg5,0,num5&-1) + MID$(_arg6,0,num6&-1) + MID$(_arg7,0,num7&-1)
}
}
COMMAND "<Key> <Key> <Key> <Key> <Key> <Key> <Key> <Key>" {
SCRIPT {
num1&=instr(_arg1,"\")
num2&=instr(_arg2,"\")
num3&=instr(_arg3,"\")
num4&=instr(_arg4,"\")
num5&=instr(_arg5,"\")
num6&=instr(_arg6,"\")
num7&=instr(_arg7,"\")
num8&=instr(_arg8,"\")
SendKeys MID$(_arg1,0,num1&-1) + MID$(_arg2,0,num2&-1) + MID$(_arg3,0,num3&-1) + MID$(_arg4,0,num4&-1) + MID$(_arg5,0,num5&-1) + MID$(_arg6,0,num6&-1) + MID$(_arg7,0,num7&-1) + MID$(_arg8,0,num8&-1)
}
}
COMMAND "<Key> <Key> <Key> <Key> <Key> <Key> <Key> <Key> <Key>" {
SCRIPT {
num1&=instr(_arg1,"\")
num2&=instr(_arg2,"\")
num3&=instr(_arg3,"\")
num4&=instr(_arg4,"\")
num5&=instr(_arg5,"\")
num6&=instr(_arg6,"\")
num7&=instr(_arg7,"\")
num8&=instr(_arg8,"\")
num9&=instr(_arg9,"\")
SendKeys MID$(_arg1,0,num1&-1) + MID$(_arg2,0,num2&-1) + MID$(_arg3,0,num3&-1) + MID$(_arg4,0,num4&-1) + MID$(_arg5,0,num5&-1) + MID$(_arg6,0,num6&-1) + MID$(_arg7,0,num7&-1) + MID$(_arg8,0,num8&-1) + MID$(_arg9,0,num9&-1)
}
}
COMMAND "<Key> <Key> <Key> <Key> <Key> <Key> <Key> <Key> <Key> <Key>" {
SCRIPT {
num1&=instr(_arg1,"\")
num2&=instr(_arg2,"\")
num3&=instr(_arg3,"\")
num4&=instr(_arg4,"\")
num5&=instr(_arg5,"\")
num6&=instr(_arg6,"\")
num7&=instr(_arg7,"\")
num8&=instr(_arg8,"\")
num9&=instr(_arg9,"\")
num10&=instr(_arg10,"\")
SendKeys MID$(_arg1,0,num1&-1) + MID$(_arg2,0,num2&-1) + MID$(_arg3,0,num3&-1) + MID$(_arg4,0,num4&-1) + MID$(_arg5,0,num5&-1) + MID$(_arg6,0,num6&-1) + MID$(_arg7,0,num7&-1) + MID$(_arg8,0,num8&-1) + MID$(_arg9,0,num9&-1) + MID$(_arg10,0,num10&-1)
}
}
LIST "Key" {
"www.\\World Wide Web"
"www.\\www."
"http://\\HTTP"
".com\\.com"
".edu\\.edu"
".org\\.org"
".gov\\.gov"
".net\\.net"
".\\."
"/\\/"
"~\\~"
"_\\_"
"{Enter}\\Enter"
"a\\alpha"
"b\\bravo"
"c\\charlie"
"d\\delta"
"e\\echo"
"f\\foxtrot"
"g\\golf"
"h\\hotel"
"i\\india"
"j\\juliett"
"k\\kilo"
"l\\lima"
"m\\mike"
"n\\november"
"o\\oscar"
"p\\papa"
"q\\quebec"
"r\\romeo"
"s\\sierra"
"t\\tango"
"u\\uniform"
"v\\victor"
"w\\whiskey"
"x\\xray"
"y\\yankee"
"z\\zulu"
"1"
"2"
"3"
"4"
"5"
"6"
"7"
"8"
"9"
"0"
}
}
}