cT369	;Hulpprogramma CODA ;%T369 ; [ 04/04/00  2:23 PM ]
	G 1
	;
1	D B^cA612 ; blanco window
11	K TNR D ^cA705 I K="-" G YZ ; bestand kiezen
	;
	; records tonen
2	D RS^cAN210("CODA",0,0,0,0) G 11
	;
YZ	D C^cA612 Q
	;
R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
	;
F1	S R=250
F2	D TXT^cAFA1(R)
FZ	K R Q
	;
ZZ	; 18.04.08 - 16 u 39 * V9.01