break on

; settings ...

$filemask = "t.kix"
$tempfile = "%temp%\out.tmp"

; if tempfile exists, delete it ...

if exist($tempfile)
 del "$tempfile"
endif

; enumerate all files into tempfile ...

shell '%comspec% /c dir "$filemask" /s/b >"$tempfile"'

; open tempfile and pretend to delete ...

if open(1,$tempfile) = 0
 $filename = readline(1)
 while @error = 0
  if $filename
   ?"delete $filename"
  endif
  $filename = readline(1)
 loop
 $=close(1)
endif

exit