StoreCSD
DIR ADFS::0.$

Set Alias$P. Print %%*0
Run !TG1
UnSet Alas$P.
RestoreCSD