cQPRE	;Compare Printerdrivers ;cQPRE;
	;
	K
	S G="^cDATA(0,""DEV.PRT"")",I3=" P",I4=0
	F  S I4=$O(@G@(I3,I4)) Q:I4=""   S B(I4)=""
	F  S I3=$O(@G@(I3)) Q:I3=""   I $L(I3)>3 S A(I3)=^(I3,0)
	S PC="",ES=""
	F  S PC=$O(A(PC)) Q:PC=""  S SW=0 D
	. F ES=$O(B(ES)) Q:ES=""  I $D(@G@(PC,ES)) S K=@G@(PC,ES),PC2=PC D
	.. F  S PC2=$O(A(PC2)) Q:PC2=""  I $D(@G@(PC2,ES)) S L=@G@(PC2,ES) D
	... I K'=L W:'SW !!,PC," ",$P(A(PC),"\",2),?36,ES,?41,K S SW=1
	... I K'=L W !,PC2," ",$P(A(PC2),"\",2),?36,ES,?41,L S SW=1
	;
YZ	Q
	;
ZZ	; 17.01.2012 - 15:58 * Cache-r6.4.9