cTU9 ;BEHEER LISTINGS ;%TU7 ; [ 09/01/95   1:53 PM ]
 G 2
 ;
T1 ;[] = vervolg;
 ;
 ; detail voor printlijn NT op schermlijn LN+1
S2 I LN=MIN S FP=LN*100+1 W @F F S2=1:1:8 W ".........",S2
S2A S S1=1,S2=@("^"_Q_"LIL(I1,0)"),S2=NT*100,FP=LN+1*100+1 W @F,@F1,@F,*124
S2B S S2=S2+1 I $D(^(S2)) D  G S2B
 . S S3=^(S2),S4=" "_$E($P(S3,U,2)_$J("",$P(S3,U)),1,$P(S3,U))_" "
 . S S1=S1+$L(S4)+1 W S4,*124
S2Z W @F,@F92,@F,NT#100,@F93 S LN=S1-1\80+LN+1 Q
 ;
 ; detail alle NT's
2 S K="",OS=0,NT=1,MIN=4,MAX=18,LN=MIN,FP=250 W @F,$J(OM,28),@F1
21 D S2 S NT=NT+1 I '$L($O(^(NT*100))) G YZ
23 I LN'<MAX S R="K\22\3\"_$P($T(T1),U,2)_"\\1\\""-""[K" D R0 S LN=MIN
25 I K="" G 21
 ;
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
 ;
ZZ ; 14.01.99 - 21 u 28 * V5.7