cA319 ;KADERS TEKENEN ;%A319; [ 05/03/96  9:55 AM ]
 ;
T0 ;Kaders tekenen ;
 ;
T0F ;Dessiner cadres ;
 ;
T0E ;Kaders tekenen ;
 ;
 ; R = FP linkerbovenhoek \ FP rechterbenedenhoek
 ; RV = FP begin # FP einde \ FP begin # FP einde \ ... vertikale lijnen
 ; RH = FP begin # FP einde \ FP begin # FP einde \ ... horizont. lijnen
 ;
1 W @F7 S:'$D(R) R=D S R1=$P(R,D),R2=$P(R,D,2) K R,RK F R=1:1:24 S R(R)=D
10 I $G(QW) W /WSCROFF
11 I 'R1!'R2 G 2
13 S FP=R1,RA=FP+1,RB=R1\100*100+(R2#100)-1 W @F,@$P(FG,D) D S1 W @$P(FG,D,2)
15 S RA=R1+100,RB=R2\100*100+(R1#100) D S2 S RA=RA\100*100+(R2#100),RB=R2 D S2
17 S FP=R2\100*100+(R1#100),RA=FP+1,RB=R2-1 W @F,@$P(FG,D,3) D S1 W @$P(FG,D,4)
 ;
2 I $D(RH) S RA=+RH,RB=+$P(RH,"#",2),RH=$P(RH,D,2,99) I RA,RB D S1 G 2
21 I $D(RV) S RA=+RV,RB=+$P(RV,"#",2),RV=$P(RV,D,2,99) I RA,RB D S2 G 21
 ;
YZ W @F8 I $G(QW) W /WSCRON
 K R,R1,R2,RA,RB,RH,RV Q
 ;
S1 S R=RA\100,FP=RA W @F I $G(QW) W /cDR(2,RB-RA+1)
S1A F FP=RA:1:RB S RX=D_(FP#100)_D,RY=R(R)[RX,R(R)=R(R)_(FP#100)_D W:'$G(QW) @$P(FG,D,9+RY) I RY S RK(FP)=""
S1Z K RX,RY D S3 Q
 ;
S2 F FP=RA:100:RB S R=FP\100,RX=D_(FP#100)_D,RY=R(R)[RX S:RY RK(FP)="" I 'RY W @F,@$P(FG,D,10) S R(R)=R(R)_(FP#100)_D
S2Z K RX,RY D S3 Q
 ;
S3 S FP=""
S3A S FP=$O(RK(FP)),RK=0 G S3Z:'FP
S3B S R=FP-1,R3=R\100,RL=$D(R(R3)) I RL S R4=D_(R#100)_D,RL=R(R3)[R4
S3C S R=FP-100,R3=R\100,RU=$D(R(R3)) I RU S R4=D_(R#100)_D,RU=R(R3)[R4
S3D S R=FP+1,R3=R\100,RR=$D(R(R3)) I RR S R4=D_(R#100)_D,RR=R(R3)[R4
S3E S R=FP+100,R3=R\100,RD=$D(R(R3)) I RD S R4=D_(R#100)_D,RD=R(R3)[R4
S3F I 'RL,'RU,RR,RD S RK=1 G S3O
S3G I RL,'RU,'RR,RD S RK=2 G S3O
S3H I 'RL,RU,RR,'RD S RK=3 G S3O
S3I I RL,RU,'RR,'RD S RK=4 G S3O
S3J I RL,'RU,RR,RD S RK=5 G S3O
S3K I RL,RU,'RR,RD S RK=6 G S3O
S3L I 'RL,RU,RR,RD S RK=7 G S3O
S3M I RL,RU,RR,'RD S RK=8 G S3O
S3N I RL,RU,RR,RD S RK=11
S3O W:RK @F,@$P(FG,D,RK) G S3A
S3Z K RK,RL,RU,RR,RD,R3,R4 Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84