cTU31 ;BEHEER PASWOORD BESTANDEN ;%TU31;
 G 1
 ;
T1 ;NUMMER BESTAND\"-[] = einde programma";
T2 ;VORIG PASWOORD\;
T3 ;NIEUW PASWOORD\"[] = zonder paswoord";
 ;
1 S K=$P($T(+1),U,2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
11 S I1=0
13 S I1=$O(@("^"_Q_"LI(I1)")) I $L(I1) S K=K+1,FP=K*100+403+(K>14*-1360),A(K)=I1 W @F,$J(K,2),". ",$P(^(I1,0),D,1) G 13:K<28
 ;
2 S K=1,R="K\22\3\"_$P($T(T1),U,2)_"\2\\K?.N&$E(K,1)&$D(A(+K))!(K=""-"")" D R0 G YZ:K="-"
21 S FP=2003 W @F,$P(@("^"_Q_"LI(A(K),0)"),D,1),@F2 G 3:'$D(^("PW"))
25 S R="K\22\3\"_$P($T(T2),U,2)_"\12" D R0 G 2:K'=^("PW")
 ;
3 S R="K\22\3\"_$P($T(T3),U,2)_"\12" D R0 G 2:K="-"
31 I K="" K ^("PW") G 2
33 S ^("PW")=K G 2
 ;
YZ Q
 ;
R0 S R0=$P(R,D,5) I $L(R0),R0'["""" S $P(R,D,5)=R0_"^"_$T(+0)
R0A S R0=$P(R,D,7) I $L(R0),R0'="DCTR" S $P(R,D,7)="",R1=$P(R,D,8),R0=$P($T(@R0),U,2,99) S:$L(R1) R0=R0_"&("_R1_")" S $P(R,D,8)=R0
R0Z S $P(R,D,12)=$T(+0) K R0,R1 D ^cA100 Q  ; v11 30.05.94
 ;
Z X ^cZ Q
ZZ ; 11.07.88 -  8 u 42