cTI225	;Vraag naar landencode ;%TI225 ; [ 01/30/98  5:19 PM ]
	G 1
	;
T0	;Vraag naar landencode ;
	;
T0F	;Demande du code pays ;
	;
1	S K="" I $D(WZ) S K=$P(A(1),D,U7#100) I $L(K) S K=K_" "
12	S K=$P($$^cANSYN("INTR.LAND","",K)," ")
	;
YZ	Q
	;
ZZ	; 19.09.96 - 13 u 49 * V6.2.05