$D VCRLST VCRLST
:S
ERASE $1.BAK,$0.LST
:R
VCRDIR $1.BAK=ALL:[]
:K
:K
:K

RUN VCRDOC
$1.BAK
$0.LST
:S
PRINT $0.LST/D
ERASE $1.BAK
:R