позволяет располагать программу в любом месте на диске
Любой путь программы
*процедура определения и установка пути программы
*отучает программу от привязанности к пути на диске
xp=ALLTRIM(SYS(16))
xpl=LEN(xp)
i=1
DO WHILE LEFT(RIGHT(xp,i),1)#''
i=i+1
xpl=xpl-1
ENDDO
xp=LEFT(xp,xpl)
SET DEFAULT TO &xp
retu
Автор: Pyhar
Автор публикации
Комментарии: 1Публикации: 123Регистрация: 10-12-2000