cA207 ;VRAAGSTELLING ;%A207 ; [ 01/03/01  4:18 PM ]
 G 1
 ;
T0 ;Vraagstelling ;
 ;
T0F ;Questions ;
 ;
T0E ;Questions ;
 ;
 ; na X $P(U2,U,17)
0 S R=$P($P(U2,U,10),"~",QTU) I '$L(R) S R=$P($P(U2,U,10),"~")
 S $P(U2,U,10)="[] = "_K_$J("",3)_R
01 S R=$P(U2,U,11) I $L(R) S $P(U2,U,11)=R_"!'$L(K)"
 ;
 ; vraagstelling
1 S $P(U2,U,10)=$S($L($P($P(U2,U,10),"~",QTU)):$P($P(U2,U,10),"~",QTU),1:$P($P(U2,U,10),"~"))
 S R=$P(U2,U,11) I $L(R) S R=R_"!(K=""-"")!(K="","")"
11 I $G(WIJZ)=2!($G(UWZ)=2) S R=$S($L(R):R,1:1)_"!(K=""."")"
13 S KR=K,R="KR\22\3\"_$P(U2,U)_"\C1\"_$P(U2,U,9)_D_$P(U2,U,21)_D_R
15 S R=R_D_D_D_$P(U2,U,25)_D_D_$P(U2,U,24) D R0
 ;
YZ K KR Q
 ;
R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
 ;
C1 W !?2,$P(U2,U,10)
C1A I $G(WIJZ)=2 D C1^cA234
C1B I $G(UWZ)=2 D C1^cMA205
C1Z Q
 ;
Z X ^cZ
ZZ ; 05.02.01 - 16 u 23 * V7.84