LOCAL lcSys16, ; lcProgram lcSys16 = SYS(16) lcProgram = SUBSTR(lcSys16, AT(":", lcSys16) - 1) CD LEFT(lcProgram, RAT("\", lcProgram)) *-- If we are running MAIN.PRG directly, then *-- CD up to the parent directory IF RIGHT(lcProgram, 3) = "FXP" CD .. ENDIF SET PATH TO PROGS, FORMS, LIBS, ; MENUS, DATA, OTHER, ; REPORTS, INCLUDE, HELP, ; BITMAPS SET CLASSLIB TO MAIN , TSGEN