function Run_Notepad(cFile)
   if type( "ShellExecute" ) # "FP"
      extern cHandle ShellExecute( cHandle, cString, cString,;
                                   cString, cString, cInt ) shell32 from "ShellExecuteA"
   endif
   ShellExecute( _app.framewin.hwnd, "open","notepad", cFile, null,1 )
   return