!Little utility to delete all files in the current directory
%include "inc:util.imp"
%include "inc:fs.imp"
%include "inc:fsutil.imp"
%begin
%integer a
%string (255) filename, cd
%on 3,9 %start; -> eof; %finish

cd = current directory
printline("Not allowed to delete files of current user") %and %stop %c
%if current user = cd

printline("Delete ALL files in directory ".cd."?")
%cycle
   readsymbol(a)
   %exit %if a='Y' %or a='y'
   %stop %if a>' '
%repeat

openinput(1, cd.":directory"); selectinput(1)
set terminal mode(8)
%cycle
   readline(filename)
   permit(filename,"ffv")
   printline(filename)
   delete(filename)
%repeat
eof:
closeinput

%endofprogram