PRO go893

CD,'\usask\893\crossect'
CD,current=curdir
Print,curdir

Return
END