$loop:
$ file = f$search("*.dsk")
$ if file .eqs. "" then exit
$ def for001 'file'
$ @dirone
$ goto loop