cAB112	; BEHEER ^DMH ;%AB11 ; [ 03/29/01  9:26 AM ]
	;
T1	;Prompt N;
T2	;B-index;
T3	;Kolom output;
T4	;Lengte tonen;
T5	;Alligneren;[] = links   1[] = rechts;Links;Rechts;
T6	;X ivm output;
T7	;Prompt F;
T8	;Prompt E;
T9	;Prompt D;
	;
T20	;Nummer element\"-[] = einde";
	;
	; Window & Titel
1	D O^cA612(11,1,11,80,1,1,0,0)
	;
	; Tonen gegevens
2	W /CUP(1,2)," 1 ",/SGR(4),$$S1(1),/SGR(24),/CUP(1,19),": ",$$S2(101),@F1
21	W /CUP(2,2)," 2 ",/SGR(4),$$S1(2),/SGR(24),/CUP(2,19),": ",$$S2(201)
23	W /CUP(3,2)," 3 ",/SGR(4),$$S1(3),/SGR(24),/CUP(3,19),": ",$$S2(202)
25	W /CUP(4,2)," 4 ",/SGR(4),$$S1(4),/SGR(24),/CUP(4,19),": ",$$S2(203)
27	W /CUP(5,2)," 5 ",/SGR(4),$$S1(5),/SGR(24),/CUP(5,19),": ",$P($T(T5),U,4+$$S2(204))
29	W /CUP(6,2)," 6 ",/SGR(4),$$S1(6),/SGR(24),/CUP(6,19),": ",$$S2(205)
	;
3	W /CUP(7,2)," 7 ",/SGR(4),$$S1(7),/SGR(24),/CUP(7,19),": ",$$S2(102)
	W /CUP(8,2)," 8 ",/SGR(4),$$S1(8),/SGR(24),/CUP(8,19),": ",$$S2(104)
	W /CUP(9,2)," 9 ",/SGR(4),$$S1(9),/SGR(24),/CUP(9,19),": ",$$S2(103)
	;
	; Nummer element
6	S R="UV\22\3\"_$P($T(T20),U,2)_"\2\\$L(K)" D R0 I K="-"!(K=",") G YZ
61	I K>9!'K G 6
	;
7	S UV=+UV
701	I UV=1 D S3(1,101,$$S2(203)) I K'="-",K'="," D S4(101)
702	I UV=2 D S3(2,201,3) I K'="-",K'="," D S4(201)
703	I UV=3 D S3(3,202,2) I K'="-",K'="," D S4(202)
704	I UV=4 D S3(4,203,2) I K'="-",K'="," D S4(203)
705	I UV=5 D S3(5,204,1) I K'="-",K'="," D S4(204)
706	I UV=6 S K=$$I^cAB1($$S2(205),$$S1(6)) I K'="-",K'="," D S4(205)
707	I UV=7 D S3(7,102,$$S2(203)) I K'="-",K'="," D S4(102)
708	I UV=8 D S3(8,104,$$S2(203)) I K'="-",K'="," D S4(104)
709	I UV=9 D S3(9,103,$$S2(203)) I K'="-",K'="," D S4(103)   
79	G 6:K="-"!(K=","),2
	;
YZ	D C^cA612 Q
	;
	; Prompt
S1(R)	S R=$P($T(@("T"_R)),U,2)
S1Z	Q R
	;
	; Data
S2(R)	S R=$P($G(U2(R\100-1)),D,R#100)
S2Z	Q R
	;
	; Vraagstelling
S3(T,B,L)	         S I=$$S2(B),R="I\22\3\"_$$S1(T)_"\\"_L_"\\\\\\\1" D  D R0
	. I T=5 S $P(R,D,5)=""""_$P($T(@("T"_T)),U,3)_""""
S3Z	Q
	;
	; Update
S4(R)	S $P(U2(R\100-1),D,R#100)=K
S4Z	Q
	;
R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
	;
ZZ	; 18.05.04 - 15 u 48 * V8