cA3071 ;Laser-etiketten ;%A307; [ 06/28/00  10:40 AM ]
 ;op laserprinter - etiketten: 105 x 42.3 (14/blad)
 ;
1 X F70 W @F80 D ^cAL320 K ^HULP(boot,$J+.05) S (AE,AEP)=0
11 F XX=1:1:EAR-1 S AE=AE+1 D S1:AE>A1 F Y=1:1:A3 S ^HULP(boot,$J+.05,Y,AE)=""
 ;
3 S I1=""
31 D ^cAN004("I1",$P(TXT,D,2)) G 9:I1=""
33 S K=$$SIGN^cAFA1($P(TXT,D,2),I1,0)
 S AE=AE+1 I AE>A1 D S1
 ;
4 S ^HULP(boot,$J+.05,3,AE)=$S($L($P(K,D,4)):$P(K,D,4)_" ",1:"")_$P(K,D,2)
41 S ^HULP(boot,$J+.05,4,AE)=$P(K,D,3) I 'SW S $E(^(AE),28)=" ",^(AE)=^(AE)_$P(K,D)
42 S ^HULP(boot,$J+.05,5,AE)=$P(K,D,5)
43 S ^HULP(boot,$J+.05,6,AE)=$P(K,D,6)_"  "_$P(K,D,7)
44 G 31
 ;
9 D S1 I AEP W $$FF^cA334 
91 X F71
 ;
YZ Q
 ;
S1 F X=1:1:A3-LASER W !,?A4 I $D(^HULP(boot,$J+.05,X,1)) F I=1:1:A1 I $D(^(I)) S J=$E(^(I),1,A2-1) W J,$J("",A2-$L(J))
 S AEP=AEP+2 I LASER,AEP<AEPMAX W $C(27),"&l",AEPB,"D",!,$C(27),"&l6D",!    ; <Aantal etiketten boven elkaar> lines/inch,<lf>,6 lines/inch,<lf>
 I AEP=AEPMAX W $$FF^cA334 S AEP=0
 K ^HULP(boot,$J+.05) S AE=1
S1Z Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84