cA329 ;RAADPLEGEN EIGEN MUNTKODES ;%A329 ; [ 09/30/98  3:55 PM ]
 ;
T0 ;Raadplegen eigen muntcodes ;
 ;
T0F ;Consulter codes monétaires ;
 ;
T0E ;Raadplegen eigen muntcodes ;
 ;
 ; input  : R="outputvar\beginlijn*100"
 ; output : outputvar.
 ;
1 S K=$$^cANSYN("KODE.VM")
 ;
YZ S @$P(R,D)=K Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84