: search_for_b4a.prg
: инсталира приложения, които се намират в текущата директория (*.b4a)

чист
създай temp_file_list(50,40,2)
база temp_file_list
директория(*.b4a,1)
б countrr(0)
ако б>1 то блок пълен(2,3,б,3)1
бб countrr(0)
директория(*.b4z,1)
б countrr(0)
ако б>бб то блок пълен(бб+1,3,б,3)2
блок големи(1,1,б,1)+
няма_налични б<2
ако няма_налични то преход 3000

поле (1,1)='Изберете приложение което да бъде инсталирано'
рр menu(0)
ако рр>0 то подпреход 5000
база temp_file_list

3000 : 
база applications
изтр temp_file_list
ако няма_налични то кажи getok('Няма налични приложения за инсталиране','Не е намерен нито едно Б4 - приложение',3)
стоп(1)

5000 : подпрограма за инсталация
файл_позиция scell(рр+1,1)
install_position.prg(файл_позиция)
база APPLICATIONS
добави 1
п_оп отн_пътека+'\APPLICATION_TYPE'
база @п_оп
: поле (1,3)=отн_пътека
база APPLICATIONS
бкопи @п_оп(1,1,1,3) (countrr(0)-1,0)
типов отн_пътека+'\APPLICATION_TYPE'
пътека scell @типов(1,3)
има_пътека existps(пътека)
ако има_пътека=0 то ок 1 иначе ок GetOK('Вече има такава пътека','Пътеката "'+пътека+'" съществува, презапис?',1)
ако ок=0 то стоп(1)
пкопи TEMP @пътека
пизтр TEMP
физтр @файл_позиция
пробратно