_screen.newobject('prettycode','prettycode',home()+'prettycode.prg') on key label alt+f12 _screen.prettycode.go()and then define a class in the home directory
define class prettycode as custom procedure go keyboard "{f10}{T}" if version(4) < '07' keyboard "{F}" else keyboard "{Y}" ENDIF keyboard "{alt+R}" endproc enddefineGlenn
>do (_beautify) with "file1", "file2" >>