;
; WinEdit Script for Macro Menu
;
; WinEdit Pro records macros as WIL scripts.  After recording a macro,
; save the resulting script as MACROx.MAC, where x is a digit from 0 to 9.
; This menu script will then be able to play back the recorded macro with
; a Control+digit hotkey.
;
; You can edit the names which appear on the macro menu by editing this
; script.   You can also call any other WIL scripts as macros by
; editing the filename used for the call().

Record Macro         \ ^R  ; Start or Stop recording a macro
        wRecord()
        
_&1.    Macro 1      \ ^1  ; Play back Macro 1
        TheFile=strcat(DirHome(),"MACRO1.MAC")   
        if FileExist(TheFile) then call(TheFile,"")
        Drop(TheFile)
        
&2.    Macro 2       \ ^2    ; Play back Macro 2
        TheFile=strcat(DirHome(),"MACRO2.MAC")
        if FileExist(TheFile) then call(TheFile,"")
        Drop(TheFile)

&3.    Macro 3       \ ^3    ; Play back Macro 3
        TheFile=strcat(DirHome(),"MACRO3.MAC")
        if FileExist(TheFile) then call(TheFile,"")
        Drop(TheFile)

&4.    Macro 4       \ ^4    ; Play back Macro 4
        TheFile=strcat(DirHome(),"MACRO4.MAC")
        if FileExist(TheFile) then call(TheFile,"")
        Drop(TheFile)

&5.    Macro 5       \ ^5    ; Play back Macro 5
        TheFile=strcat(DirHome(),"MACRO5.MAC")
        if FileExist(TheFile) then call(TheFile,"")
        Drop(TheFile)

&6.    Macro 6       \ ^6    ; Play back Macro 6
        TheFile=strcat(DirHome(),"MACRO6.MAC")
        if FileExist(TheFile) then call(TheFile,"")
        Drop(TheFile)

&7.    Macro 7       \ ^7    ; Play back Macro 7
        TheFile=strcat(DirHome(),"MACRO7.MAC")
        if FileExist(TheFile) then call(TheFile,"")
        Drop(TheFile)

&8.    Macro 8       \ ^8    ; Play back Macro 8
        TheFile=strcat(DirHome(),"MACRO8.MAC")
        if FileExist(TheFile) then call(TheFile,"")
        Drop(TheFile)

&9.    Macro 9       \ ^9    ; Play back Macro 9
        TheFile=strcat(DirHome(),"MACRO9.MAC")
        if FileExist(TheFile) then call(TheFile,"")
        Drop(TheFile)

1&0.  Macro 10      \ ^0     ; Play back Macro 10
        TheFile=strcat(DirHome(),"MACRO0.MAC")
        if FileExist(TheFile) then call(TheFile,"")
        Drop(TheFile)
