Index: cAFA6.mac.rou
===================================================================
diff -u -r734 -r4204
--- cAFA6.mac.rou	(.../cAFA6.mac.rou)	(revision 734)
+++ cAFA6.mac.rou	(.../cAFA6.mac.rou)	(revision 4204)
@@ -128,14 +128,14 @@
  I %X=""!(%X="-") S %X="-" g CHECKZ
  I $ZV'["MSM" S %X=1 G CHECKZ
  S %Y=%X
- S %CURDRV=$ZOS(14) ; save default drive
- I %X[":" S %Z=$ZOS(14) I %Z'=$P(%X,":") S %ER=$ZOS(1,$P(%X,":")) I %ER<0 S %Z=$ZOS(1,%CURDRV) D %OS1 G CHECKZ
- S %L=$L(%Y,"\") I %Y'[":" S %ER=$ZOS(14) S:%ER'<0 %Y=%ER_":"_%Y I %ER<0 S %Z=$ZOS(1,%CURDRV) D %OS1 G CHECKZ
- I %L>2 S %I=$ZOS(11,$P(%Y,":")) S %Z=$P(%Y,"\",1,$L(%Y,"\")-1),%Z=$P(%Z,":",2,999) S:%Z="" %Z="\" I %Z'=%I S %ER=$ZOS(8,%Z),%I=$ZOS(8,%I) I %ER<0 S %Z=$ZOS(1,%CURDRV) D %OS1 G CHECKZ
- S %CURDRV=$ZOS(1,%CURDRV) ; restore default drive
- I %L=1 S %ER=$ZOS(11,$P(%Y,":")) I %ER<0 D %OS1 G CHECKZ
- S:%L=1 %Y=$P(%Y,":")_":"_$S(%ER="\":%ER,1:%ER_"\")_$P(%Y,":",2)
- S %X=%Y S %ER=$ZOS(10,%Y) I %ER<0 D %OS1 G CHECKZ
+ ;S %CURDRV=$ZOS(14) ; save default drive
+ ;I %X[":" S %Z=$ZOS(14) I %Z'=$P(%X,":") S %ER=$ZOS(1,$P(%X,":")) I %ER<0 S %Z=$ZOS(1,%CURDRV) D %OS1 G CHECKZ
+ ;S %L=$L(%Y,"\") I %Y'[":" S %ER=$ZOS(14) S:%ER'<0 %Y=%ER_":"_%Y I %ER<0 S %Z=$ZOS(1,%CURDRV) D %OS1 G CHECKZ
+ ;I %L>2 S %I=$ZOS(11,$P(%Y,":")) S %Z=$P(%Y,"\",1,$L(%Y,"\")-1),%Z=$P(%Z,":",2,999) S:%Z="" %Z="\" I %Z'=%I S %ER=$ZOS(8,%Z),%I=$ZOS(8,%I) I %ER<0 S %Z=$ZOS(1,%CURDRV) D %OS1 G CHECKZ
+ ;S %CURDRV=$ZOS(1,%CURDRV) ; restore default drive
+ ;I; %L=1 S %ER=$ZOS(11,$P(%Y,":")) I %ER<0 D %OS1 G CHECKZ
+ ;S;:%L=1 %Y=$P(%Y,":")_":"_$S(%ER="\":%ER,1:%ER_"\")_$P(%Y,":",2)
+ ;S %X=%Y S %ER=$ZOS(10,%Y) I %ER<0 D %OS1 G CHECKZ
  ;
 CHECKZ Q %X
  ;