; Openall -- Macro to tell Notepad to open with a *.* file listing instead of
; a *.TXT listing.  Handy.

WinActivate("Notepad")               ;Make sure Notepad is the active window
sendkey("!FO")                       ;SendKeystrokes "ALT-F O"
a=WinGetActive()                     ;Get the name of the active window
if  (a=="Notepad") then goto oops    ;If its "Notepad" then an error occurred
SendKey("*.*~")                      ;SendKeystrokes "*.* <ENTER>"
exit                                 ;And then we are done

:oops                                ;Ooops, some kind of error, take a guess
                                     ;Gotta save files before this works
Display(5,"OPEN ALL","Save File Before using openall")   
exit

