LOCAL LCSYS16 , LCPROGRAM
LCSYS16 = SYS(16,1)
nPathStart = AT(":",LCSYS16)- 1
nLenOfPath = RAT("\", LCSYS16) - (nPathStart)
SET DEFAULT TO (SUBSTR(LCSYS16, nPathStart, nLenofPath))
SET PATH TO PROGS,FORMS,MENUS,data,databack, OTHERS,REPORTS,INCLUDE, HELP,GRAPHICS,INCLUDE,LIBS