%begin; !Delete file {,file}*
%include "inc:util.imp"
%include "inc:fs.imp"
%include "inc:fsutil.imp"
%string(255) parm,file


%routine READ FILENAME(%string(255)%name s)
%integer k
  s = ""
  read symbol(k) %until k > ' '
  %cycle
    k = k+32 %if 'A' <= k <= 'Z'
    s = s.tostring(k) %if k # '?'
    read symbol(k)
  %repeat %until k <= ' '
%end

%routine DELETE ALL FILES(%string (255) dir)
%integer i
%string(255) f
  %on %event 3,9 %start
    %return
  %finish
  
   printline("Confirm: Delete all files of directory ".dir)
   %cycle
      readsymbol(i); i=i-'a'+'A' %if 'n'<=i<='y'
      %exit %if i='Y'
      printline("Wipe aborted") %and %return %if i>' '
   %repeat

   open input(1,dir.":directory");  select input(1)

   set directory(dir)
   %cycle
     read filename(f)
     permit(f,"FFA")
     delete(f)
     printline(dir.":".f. "   deleted")
   %repeat
   set directory("")
%end
  
set terminal mode(8)
delete all files(cli param) %unless cli param = current directory
%endofprogram