;
; CmdPrompt
; -------
; Invoke a Command prompt at the current window
; via Send To menu.
;
; Note:
; Compile this to CmdPrompt.exe then place a shortcut in SendTo folder
; To use, right click on desired directory, select Send To then select CmdPrompt
;
;report on
setvar B,command.com
winver A,f
ifvar A,9X,doit
;set bg & fg colours with /T see color /?
setvar B,cmd.exe /T:70

:doit

;size command window to match screen size
getscrnx D
mulvar D,3
divvar D,4
getscrny E
divvar E,2

;get calling directory & strip quotes
setvar A,%1
trimvar A,B
setdir %A
start %B,,C|C,%D|%E,CmdPrompt