alias delxcx {
var %a = 1, %b, %c = $1
window @Clear
aline @Clear Started *.xcx deleting session in %c !
while ($findfile(%c,*.xcx,%a)) {
set %b $ifmatch
remove %b
aline @Clear File: %b found and deleted (No: $+ %a $+ )
inc %a }
if (%a == 1) {
No .xcx file found in %c }
}