MENU "EXPLORER" {
	STATE "" {
		COMMAND "Go Back" {
			SCRIPT {
				SendSystemKeys "{Alt+Left}"
			}
		}

		COMMAND "Go Forward" {
			SCRIPT {
				SendSystemKeys "{Alt+Right}"
			}
		}

		COMMAND "Go <BackForward> <1To9>" {
			SCRIPT {
				direct$ = "Left"
				IF _arg1 = "Forward" THEN direct$ = "Right"
				
				i = _arg2
				WHILE i > 0
				SendSystemKeys "{Alt+" + direct$ + "}"
				i = i - 1
				WEND
			}
		}

		COMMAND "New Folder" {
			SCRIPT {
				SendKeys "{Alt+f}"
				ActiveMenuPick "New"
				SendKeys "{Down}{Enter}"
			}
		}

		COMMAND "Arrange Icons" {
			SCRIPT {
				SendKeys "{Ctrl+Space}{Shift+F10}in"
			}
		}

		COMMAND "Address Bar" {
			SCRIPT {
				SendKeys "{Alt+d}"
			}
		}

		COMMAND "Add to Music List" {
			SCRIPT {
				SendKeys "{Shift+F10}"
				SendKeys "e"
			}
		}

		COMMAND "Undo Move" {
			SCRIPT {
				SendKeys "{Ctrl+z}"
			}
		}

		COMMAND "Copy to Folder" {
			SCRIPT {
				SendKeys "{Alt+e}f"
			}
		}

		COMMAND "Move to Folder" {
			SCRIPT {
				SendKeys "{Alt+e}v"
			}
		}

		COMMAND "<GoCopyMove> to <Folder>" {
			SCRIPT {
				IF _arg1 = "Go" THEN SendKeys "{Alt+d}"
				IF _arg1 = "Copy" THEN SendKeys "{Alt+e}f"
				IF _arg1 = "Move" THEN SendKeys "{Alt+e}v"
				
				Wait 25
				
				pos1&=instr(_arg2,"\")
				fold$=mid$(_arg2,0,pos1&-1)
				
				IF mid$(_arg2, instr(_arg2, "\"), 8) = "Natspeak" THEN dragon$ = "C:\Program Files\Dragon Systems\NaturallySpeaking\"
				IF mid$(_arg2, instr(_arg2, "\"), 8) = "Natspeak" AND mid$(_arg2, Len(_arg2) - 4) = "2000" THEN dragon$ = "D:\Program Files\Dragon Systems\NaturallySpeaking\"
				IF mid$(_arg2, instr(_arg2, "\")) = "NatSpeak Support" THEN dragon$ = ""
				IF mid$(_arg2, instr(_arg2, "\"), 8) <> "NatSpeak" THEN dragon$ = ""
				
				SendKeys dragon$ + fold$ + "{Enter}"
			}
		}

		COMMAND "<GoUp> <1To9> <Levels>" {
			SCRIPT {
				i = _arg2
				WHILE i > 0
				SendKeys "{Backspace}"
				Wait 5
				i = i - 1
				WEND
			}
		}

		LIST "1To9" {
			"1"
			"2"
			"3"
			"4"
			"5"
			"6"
			"7"
			"8"
			"9"
		}

		LIST "BackForward" {
			"Back"
			"Forward"
		}

		LIST "Levels" {
			"Level"
			"Levels"
		}

		LIST "GoUp" {
			"Move up"
			"Go up"
			"Up"
		}

		LIST "Folder" {
			"E:{Alt+0092}\\CD-ROM"
			"E:{Alt+0092}\\CD Drive"
			"A:{Alt+0092}\\Floppy Drive"
			"F:{Alt+0092}\\Rewritable Drive"
			"C:{Alt+0092}\\Hard Drive"
		}

		LIST "GoCopyMove" {
			"Go"
			"Copy"
			"Move"
		}
	}
}