:R
xy=0
log opr:
;
;IF REQUIRED, place here the password for the system operator account
;
:<

CLEANT -- Creating directory of ".LST" files

>
dir CLEANT.DAT=ALL:*.lst[]/d/k
run cleant
:k
erase CLEANT.DAT
:<

CLEANT is done.  Enter a (CR) to continue
>
:K
log $:[$P]
;
;place here the command to return to your application program
;