;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
; File name: Scratch.ddx
;
; Date revised: 11-14-96
;
; Description: Enables you to "scratch" (delete) words and characters in Command Mode.
;              Here are some examples:
;
;              1) Say "scratch four words" to delete the last four words.
;              Note! You will receive a message box to confirm the action.
;              The commands are not dependent on the cursor being placed right after
;              the last word (with or without a space). 
;
;              2) Say "scratch five characters" to delete the last five characters.
;              (You won't receive a message box to confirm the action.) 
;              These commands perform the same action as "[Back x]" and they are 
;              dependent on the spacing mentioned above (One space = One character).
;  
;
; Included macros: [scratch 1-10 word(s)], [scratch 1-10 character(s)]
;
; Compatible with DDWIN version: 2.0 or higher
;
; Compatible with Windows version: Win 3.x, Win 95, Win NT.
;
;
; I. To import this ddx file into your voice files...
;
;    First make sure that the voice file you wish to import the macros to
;    is the active one.
;
;    1) Select VoiceMenu | Tools | Vocabulary manager to start
;       the Vocabulary Manager (or say "[Bring Up Vocabulary Manager]")
;    2) Go to the the Vocabulary menu and select "Import..." to bring up the Import 
;       Vocabulary dialog box.
;    3) Select the file called Scratch.DDX  (The location will depend on where you
;       put it on your hard drive when you downloaded it). Once the path is correct, select OK.
;    4) A warning dialog might be displayed saying that "the vocabulary
;       "XXXXXX" already exists".  Select Yes to merge the new macros 
;       into the existing vocabulary.
;    5) Select VoiceMenu | Quick Access | Save User to save your 
;       user files.  This saves your voice files with the new macros
;       which have just been added.
; 
; Note:	These macros have not been tested nor certified by the Dragon Systems 
;       Quality Assurance team, and they may not work perfectly on your
;       system without modification.
;
;       THIS DOCUMENTATION IS PROVIDED "AS IS" WITHOUT WARRANTY OF 
;	ANY KIND.  The user assumes the entire risk as to the use of this
;	utility.  You have the right to use this technical information 
;	subject to the terms of the License Agreement that you received 
;	with the product this information pertains to.
;
;       © Copyright 1995-97 Dragon Systems, Inc.
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
;
switch-to-vocabulary /create Number /overwrite
switch-to-group /create Number
switch-to-group /create "text objects"
switch-to-group /create "text object"
switch-to-group /create "text objects"
add-word "[eight characters]" /script "SendKeys \"{BackSpace 8}\"" /nsc
add-word "[eight words]" /script "MsgBoxConfirm \"Scratch 8 words?\",33,\"Confirm This Command\"
SendKeys \"{Ctrl+Shift+ExtLeft 8}{ExtDel}\"" /nsc
add-word "[five characters]" /script "SendKeys \"{BackSpace 5}\"" /nsc
add-word "[five words]" /script "MsgBoxConfirm \"Scratch 5 words?\",33,\"Confirm This Command\"
SendKeys \"{Ctrl+Shift+ExtLeft 5}{ExtDel}\"" /nsc
add-word "[four characters]" /script "SendKeys \"{BackSpace 4}\"" /nsc
add-word "[four words]" /script "MsgBoxConfirm \"Scratch 4 words?\",33,\"Confirm This Command\"
SendKeys \"{Ctrl+Shift+ExtLeft 4}{ExtDel}\"" /nsc
add-word "[nine characters]" /script "SendKeys \"{BackSpace 9}\"" /nsc
add-word "[nine words]" /script "MsgBoxConfirm \"Scratch 9 words?\",33,\"Confirm This Command\"
SendKeys \"{Ctrl+Shift+ExtLeft 9}{ExtDel}\"" /nsc
add-word "[seven characters]" /script "SendKeys \"{BackSpace 7}\"" /nsc
add-word "[seven words]" /script "MsgBoxConfirm \"Scratch 7 words?\",33,\"Confirm This Command\"
SendKeys \"{Ctrl+Shift+ExtLeft 7}{ExtDel}\"" /nsc
add-word "[six characters]" /script "SendKeys \"{BackSpace 6}\"" /nsc
add-word "[six words]" /script "MsgBoxConfirm \"Scratch 6 words?\",33,\"Confirm This Command\"
SendKeys \"{Ctrl+Shift+ExtLeft 6}{ExtDel}\"" /nsc
add-word "[ten characters]" /script "SendKeys \"{BackSpace 10}\"" /nsc
add-word "[ten words]" /script "MsgBoxConfirm \"Scratch 10 words?\",33,\"Confirm This Command\"
SendKeys \"{Ctrl+Shift+ExtLeft 10}{ExtDel}\"" /nsc
add-word "[three characters]" /keys "SendKeys \"{BackSpace 3}\"" /nsc
add-word "[three words]" /script "MsgBoxConfirm \"Scratch 3 words?\",33,\"Confirm This Command\"
SendKeys \"{Ctrl+Shift+ExtLeft 3}{ExtDel}\"" /nsc
add-word "[two characters]" /script "SendKeys \"{BackSpace 2}\"" /nsc
add-word "[two words]" /script "MsgBoxConfirm \"Scratch 2 words?\",33,\"Confirm This Command\"
SendKeys \"{Ctrl+Shift+ExtLeft 2}{ExtDel}\"" /nsc
switch-to-group /create "text object"
add-word "[one character]" /script "SendKeys \"{BackSpace}\"" /nsc
add-word "[one word]" /script "SendKeys \"{Ctrl+Shift+ExtLeft}{ExtDel}\"" /nsc
switch-to-vocabulary /create /module System System
switch-to-group /create System
switch-to-group /create "Global Commands"
add-word "[scratch <Number/text object>]" /script "'SendKeys text_object_1,1" /nsc
add-word "[scratch <Number/text objects>]" /script "'SendKeys text_objects_1,1" /nsc