rem %1 == input directory name

%cdrom%\_bbs\printh %cdrom% " #a CDROM, #d.  Walnut Creek CDROM.\n" > %cdrom%%1\files.%in_language%
%cdrom%\_bbs\printh %cdrom% " #*-+30#a#d]\n" >> %cdrom%%1\files.%in_language%

%cdrom%\_bbs\get_area other 1 %1 < \_bbs\dirs.%in_language% >> %cdrom%%1\files.%in_language%
echo  path: %1 >> %cdrom%%1\files.%in_language%

%cdrom%\_bbs\printh %cdrom% " #*-+30#a#d]\n" >> %cdrom%%1\files.%in_language%

cd %cdrom%%1
%cdrom%\_bbs\c %in_type% opus %cdrom%%1 %cdrom%files.%in_language% %in_language%

del %cdrom%descript.ion
%cdrom%\_bbs\c %in_type% 4dos %cdrom%%1 %cdrom%descript.ion %in_language%

cd %cdrom%\_bbs\opus