@echo off
:
:
:	Данный BTM-файл (пакет на командном языке 4DOS, сразу
: считывающийся в оперативную память и выполняющийся  намного 
: быстрее) предназначен для удаления деревьев каталогов и 
: является диалоговой оболочкой для программы ZAP2.
:
: Автор: Кохманюк Д.		  (C) 1990 COMpact Soft, Kiev
:
:
cls
set ~f=bright white on red
drawbox 6 12 12 68 0 %[~f] fill red
drawbox 7 14 11 66 2 %[~f] 
scrput 7 38 %[~f] ` Zap `
scrput 8 22 %[~f] You are about to ZAP WHOLE TREE from
scrput 8 39 bright yel on red ZAP WHOLE TREE
set ~d=%_cwds
set ~dd=%@substr[%[~d],47,-48]
iff %@substr[%[~dd],1,1] = : then
	set ~dd=%[~d]
else
	set ~dd=%@substr[%[~d],0,2]...%@substr[%[~dd],41,-42]
endiff
scrput 9 17 %[~f] %[~dd]
set ~d= ^ set ~dd=
set ~a=black on white
set ~o=1
gosub draw
:wait
Set ~k=
inkey %%~k >nul
iff %[~k]== then ^ set ~o=2 ^ goto Doit ^ endiff
iff %[~k]==@75 then
	iff %[~o]==2 then ^ set ~o=1 ^ gosub draw ^ endiff
endiff
iff %[~k]==@77 then
	iff %[~o]==1 then ^ set ~o=2 ^ gosub draw ^ endiff
endiff
iff %[~k]==O then ^ set ~o=1 ^ goto Doit ^ endiff
iff %[~k]==o then ^ set ~o=1 ^ goto Doit ^ endiff
iff %[~k]==C then ^ set ~o=2 ^ goto Doit ^ endiff
iff %[~k]==c then ^ set ~o=2 ^ goto Doit ^ endiff
iff ".%[~k]."==".." then ^ goto Doit ^ endiff
goto wait
:Doit
drawbox 6 12 12 68 0 white on black fill black
screen 15 1
iff %[~o]==1 then
	zap2 . /s/a >nul
endiff
QUIT
:draw
@echo off
scrput 10 35 %[~f] ` Ok   Cancel `
iff %[~o]==1 then
	scrput 10 35 %[~a] ` Ok `
else
	scrput 10 40 %[~a] ` Cancel `
endiff
return
