crdir :sd:/irmxiii/disk%0
ad bh as :b:
copydir :b: to :sd:/irmxiii/disk%0
traverse :b: dir :b: l i > bdisk%0.txt
traverse :sd:/irmxiii/disk%0 dir :sd:/irmxiii/disk%0 l i> cdisk%0.txt
dd :b: