1 USING: definitions kernel parser words sequences math.parser
2 namespaces editors io.launcher windows.shell32 io.files
3 io.paths strings unicode.case make ;
7 \ editpadpro-path get-global [
8 program-files "JGsoft" append-path
9 t [ >lower "editpadpro.exe" tail? ] find-file
12 : editpadpro ( file line -- )
14 editpadpro-path , "/l" swap number>string append , ,
15 ] { } make run-detached drop ;
17 [ editpadpro ] edit-hook set-global