: INSTALL_POSITION.PRG : 1. инсталира приложение "fparam(1)" от компресиран файл : 2. на дискетата трябва да съществува файла @комп_ : 3. програмата се инсталира в директория 'TEMP' отн_пътека 'TEMP' комп_ fparam(1) : ------------------диспечерът подава при старта своето местоположение ---------- пътека_диспечер getwind('%C') : ------------------начало на инсталацията-------------------------------------- прдоклад 'Инсталация на '+комп_ акомп_ комп_ ако existfs(акомп_)=0 то кажи ##не_е_намерен_файла_източник дълж lenstr(комп_) ако дълж>4 то разшир scopy(комп_,дълж-3,4) иначе разшир '' тип_B4A 1 тип_B4Z 2 тип_компресия 0 ако разшир='.B4A' то тип_компресия тип_B4A ако разшир='.b4a' то тип_компресия тип_B4A ако разшир='.B4Z' то тип_компресия тип_B4Z ако разшир='.b4z' то тип_компресия тип_B4Z ако тип_компресия=0 то кажи ##непознат_файл торба 'all.bag' център пътека_диспечер+'\center' пътека пътека_диспечер+'\'+отн_пътека има_пътека existps(пътека) ако има_пътека=0 то ок 1 иначе ок GetOK('Вече има такава пътека','Пътеката "'+пътека+'" съществува, презапис?',1) ако ок=0 то стоп(1) ако има_пътека то пизтр @пътека md @пътека нкомп пътека+'\'+комп_ : прдоклад 'Копира източника от дискета '+диска фкопи @акомп_ @нкомп cd @пътека прдоклад 'Декомпресира файловете' ако тип_компресия=тип_B4A то bag (комп_,'U',торба) ако тип_компресия=тип_B4Z то bag (комп_,'X','') физтр @комп_ bag (торба,'E','') физтр @торба cd @пътека_диспечер : ------------------край на инсталацията--------------------------------------