cA330 ;Landcodes ;%A330 ; [ 09/22/98  2:32 PM ]
 ;
T0 ;Landcodes ;
 ;
T0F ;Codes pays ;
 ;
T0E ;Landcodes ;
 ;
 ; input  : R="outputvar\beginlijn*100\taalkode"
 ; output : outputvar.
 ;
1 S K=$$^cANSYN("ISO.LAND")
 ;
YZ S @$P(R,D)=K Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84